IBM 5170 Technical Reference page 249

OlD)
;s
POP AX
0106 8A 26 0074
R MOV
AH, 01 SK_ STATUS1
FROM OPERATION
eET
STATUS
()lllA
80 rc 01 eMP AH,l SET
THE CARRY FLAG TO INDICATE
0100 F; eMG
SUCCESS OR FAILURE
OlOE
SF POP DI
RlSTORE REG I STERS
010F SE POP $I
01 EO
07 POP ES
01 El
1F POP DS
01t.2
5A POP OX
01 E3
59
POP
ex
01E4
5B
POP
BX
Oll')
CA 0002 RET 2
THROW AWAY SAYED FLAGS
01 E8 DISK 10 ENDP
OH8 M1
LABEL
WORD
rUNCTION TRANSFER TABLE
r-""
OlE8
OlEA
01EC
02B3 R
0307 R
0310 R
OW
OW
ow
DI SK RESET
RETURN STATUS
DI SK READ
OOOH
OOlH
002H
01 EE 0318 R
ow
01 SK-WR I TE 003H
OHO
0320 R
ow
01 SK-YERF 004H
01F2 0333 R
DW FMT
IRK 005H
OH4 02M3 R
ow
BAD-COMMAND 006H rORMAT BAD SECTORS
OlF6 02AB R
ow
BAD-COMMAND 007H rORMAT DRIVE
OH8 02AB R
ow
BAD-COMMAND 008H RETURN PARto1S
OlFA U3EA
R
ow
It'nT
DRY
009H
OlFC 04lF
R DW RD
LONG
-
OOAH
OlFE
0427 R
ow
WR LONG
OOBH
0200 042r R
DW
DISK SEEK
-
OUCH
0202 02B3 R
ow
DISK RESt:T OODH
0204 D2AB
R
ow BAD cor~MAND
OOEH READ BUFFER
0206 02AB R
ow
BAD::::COMt~AND
OOI-H
\-IRITE BUFFER
0208 044E R
DW TST ROY
01UH
020A 046') R OW HDISK RECAL 011H
020C 02AB
R
ow
BAD COMMAND 012H
020E 02AB R
ow
BAD-COMMAND 013H
0210 0489 R
ow
CTLR DIAGNOSTIC
-
014H
= 002A
M1 L EQU
S-M1
0212 01 SK
-
IO_CONT PROC NI:.AR
0212
0213
50
BB
---­
R
PUSH
MOV
AX
AX,DATA
0216
BE DB MOV DS,AX
EST ABL I SH SEGMENT
0218
58
POP AX
0219
80
01 CMP AH,OlH
RETURN STATUS
021C
75 JNZ SUD
021E
E9
JMP
RETURN STATUS
-
0221 SUO;
0221 C6 06 0074 R 00 DISK_STATUS1,0 ; RESET THE STATUS I NO I CAT OR
0226 53
BX
SAVE DATA ADDRESS
0227
8A
1 E 0075 R BL, HF_NUM GET NUMBER OF DRIVES
022B
50
AX
022C
80 E2 7F
DL,7FH
GU
DRIVE AS 0 OR 1
0221 3A OA BL,DL
0231
76 76 BAD_COMMAND POP
I NVALI 0 DRIVE
0233 06
ES
0234
E8
06B4
R GET VEe GET
DI SK PARMS
0237 26: 8B 47
05 AX, "WORD PTR
ES: [ex] [5
J
GET WRITE PRE-COMP CYL
AX,2
0238 + 7?0006 BYTE
02313 E8
+
AX,l
0230
+
??OO07 BYTE
0238
+
OFFSEl CS; ?70006
~,
023B
023B C1
+
1"0008
+
NEAR
OC1H
0230 OFFSET CS; 7'10007
0230
02
2
023t. A2 0042 R
CMD
_ BLOCK,AL
lJ241
26: 8A 47 08 AL,BYTE
PTR
ES: [BX][8J
GET CONTROL BYTE MOD I F I ER
02115
'2
DX
0246 BA 03F6
DX, HF_
REG
-
PORT
02119
EE OX,Al SET
EXTRA HEAD OPT I ON
024A 5A DX
0211B
07 ES
024C 8A 26 0076
R AH, CONTROL_BYTE SET
EXTRA HEAD OPTION IN
02:>0 80 E4 CO AH,OCOH
CONTROL BYTE
0253
OA EO
AH,AL
0255
88
26 0076 R CONTROL _BYTE,AH
0259 58 AX
025A A2 0043 R CMD_BLOCK+l, AL SECTOR COUNT
0250
50 AX
025E SA Cl
AL,CL GET
SECTOR NUt~BER
0260 24 3F AL,3FH
0262
A2
0044
R
CMO_BLDCK+2, AL
0265
88
2E 0045 R CMD_BLOCK+3,CH GET CYLI NDER NUMBER
0269 8A Cl AL,CL
AL,6
026B
+
770009
BYTE
0268 DO E8
+
AL,l
0260
+
??OOOA BYTE
0268
+
OFFSET CS:??0009
0260
CO
OCOH
0260 OFFSET CS: ??OOOA
0260
06
6
026E
A2
0046 R CMD_BLOCK+!/,AL CYL I NDER HIGH ORDER 2 BITS
0271 8A C2 AL,DL DRIVE NUMBER
AL,lj
U273
+
??OOOC BYTE
0273 DO EO AL,l
0275
+ ??OOOO
BYTE:..
0273
+
OFFSET CS: 7?OOOC
0273
CO
OCOH
0275 OFFSET CS: 7?000D
0275 04
I,
0276 80 OF DH,OFH HEAD NUMBER
0279 OA AL, DH
0278
oe
AL,80H OR 20H
0270 A2
CMD
_BLOCK+5,AL
02RO
58 AX
u28l
50
AX
~
0282 8A C4 AL,AH GET INTO LOW BYTE
0284 32 E4 AH,AH
ZERO HIGH BYTE
0286 D1 EO AX,1 *2 FOR
TABLE LOOKUP
0288
8B FD
51 ,AX POT INTO SI FOR BRANCH
028A 3D 002A AX,Ml L
rEST WI rHIN RANGE
0280 73
1A
BAD_GOMMAND_
POP
028F
58 AX
RESTORE AX
0290 5B BX
AND DATA ADDRESS
0291 51
ex
0292
50
AX
ADJUST ES;BX
0293 8B CB CX, ex
CCT
3 HIGH ORDER NYBBLES OF ax
CX,4
+ 7?000F BYTE
D1 E9
+
CX,l
+
770010 BYTE
+
OFFSET CS: ??OOOF
+
?70011 NEAR
Disk
5-107