IBM 5170 Technical Reference page 255

0698 71\ 03 JZ
CK01
069A
0690
06Al
B8 7F04
3A 26 0043
R
77 06
CK01:
MOV
CMP
JA
AX,7F04H
AH, CMD_BLOCK+l
CKDOK
ECC I S 4 MORE BYTES
NUMBER OF SECTORS
IT
WILL FIT
06A3 72 07 JB CKDERR
TOO MANY
06A5
06A7
3A C3
72 03
eMP
JB
Al, BL
CKDERR
CHECK OFFSET ON MAX SECTORS
ERROR
06A9 F8 CKDOK: ClC
CLEAR CARRY
06AA
58 POP
AX
OM6 C3
RET
NORMAL RETURN
06AC
06AO
F9
C6 06 0074 R 09
CKDERR: STC
MOV
DISK_STATUS1,DMA_BOUNDARY INDICATE ERROR
06B2 58 POP AX
06B3 C3
RET
06B4
CHECK_DMA
ENDP
0664 GET_VEe PROC NEAR
06B4 28 CO
SUB
AX,AX
; GET 0 I SK PARAMETER ADDRESS
06B6 8E CO
MOV
ES,AX
ASSUME ES:ABSO
0688 F6 C2 01 TEST Dl,1
068B
74 07
JZ GV_O
06BO 26: C4
1[
0118
R
LES
ax,
HF1_TBL_V[C
ES;BX -> DRIVE PARAMETERS
06C2 EB 05 JMP SHORT GV_EX I T
06C4
06C4 26: C4 lE 0104
R
LES
ax,
HF_TBL_VEC
ES:
ax
-> DR I
V[
PARAMETERS
06C9
GV EXIT:
06C9 C3
- RET
06CA GET_VEe ENDP
: -
~;~D
-[;i
sK-iNjERR~;j-R;;uji
NE---­
06CA HD_I
NT
PROC NEAR
06CA 50 PUSH AX
06CS 1 E PUSH OS
06CC B8 ---- R
MOV AX, DATA
06CF 8E 08 MOV DS,AX
0601 c6 06
OOSE R FF MOV HF I NT FLAG, OFFH ALL DONE
0606 BO 20 MOV AL-:-EO I- NON-SPEC I FIC END OF INTERRUPT
0608 E6 AO OUT
I NT_CTl_PORT ,Al
FOR CONTROLLER #2
06DA EB 00
JMP
$+2 WAIT
060C E6 20
OUT
I Nfl_CTL_PORT, AL FOR CONTROLLER #1
060E 1 F
POP OS
06DF F8
STI RE-ENABLE INTERRUPTS
06EO 88 g100 MOV AX,9100H DEVICE POST
06E3 CD 15
INT
15M
INTERRUPT
06E5 58
POP
AX
06E6 CF
IRET RETURN FROM INTERRUPT
06£7
HD_I NT ENDP
06E7 31 2F 31 31 2F 38
DB
'1/11/84' RELEASE MARKER
34
06EE
END ADDRESS
LABEL BYTE
06EE CODE ENDS
END
Disk 5-113