IBM 5170 Technical Reference page 243

07E4 85 OA
MOV CH, QU lET_SEEK
GET TRACK AT PRESENTLY
07E6 33 F6
XOR
SI, SI
CLEAR SEEK COUNTm
07E8 FE CD SUP3: DEC
CH
SEEK TO NEXT TRACK, TOWARDS TRACK 0
U7EA 5A POP
DX
RESTORE PO INTER
07[[3
52
PUSt!
DX
SAVE PO! NTER
07EC 56
pust!
51
SAVE COUNTEH
07ED E8 041C R CALL
SEEK
SEEK TO TRACK
07F0
B4 04
MOV AH, SENSE_DRV_ST
SENSE DRIVE STATUS COMMAND BYTE
07F2 E8 082C R CALL
SUPS
I SSUE THE COMMAND
07F5 E8 0580 R CALL RESULTS GO GET STATUS
07F8
5E
POP 51
RESTORE COUNTER
07F9
46 INC 51
COUNT NUMBER OF SEEKS TIL AT HOME(TRACK 0)
07FA F6 06 0042 R 10 TEST
NEC_STATUS, HOME;
LOOK TO SEE I F HEAD IS AT TRACK 0
07FF
75 08 JNZ SUP4
GO DETERMINE DRIVE TYPE
~
0801
83
FE DB
CMP
SI,QUIET_SEEK+l
SEE
I F THE NUMBER OF SEEKS NUMBER ISSUED
0804 72 E2 J8 SUP3 I F LESS THAN,
NOT DONE YET
0806 58 POP
BX
RESTORE POI NTEH
0807
EB 10
JMP SHORT NXT_DRV
DRIVE NOT
INSTALLED, BYPASS
0809 5B SUP4: POP
BX
RESTORE PO INTER
08C1A 83 FE CIA CMP SI,QUiET_SEEK SEE I F SEEKS STEPPED EQUAL THE OR I G I NAL
0800 C6 87 0090 R 61 MOV DSK_STATE! BX], POA_DUAL ; SETUP POWER ON ASSUMPTION
0812
73 05 JAE NXT_DRV ;
IFYES1.2DRIVE
OB14 c6 87 0090 R 93 MOV DSK_STATE[BX],M326D326 ; ESTABLISH 320/360K STATE
0819 NXT_DRV:
OB19 43 INC 8X
POINT TO NEXT DRIVE
OB1A 8J FB 02 CMP 8X,MAX_ORV SEE I F DONE
0810 74 03
JE
SUP1 IF FINISHED LEAVE TEST
OBH E9 07AO R
JMP
SUPO REPEAT TIL DONE FOR EACH DRIVE
OB22 5D
fuUPl :
POP BP
RESTORE ALL REG I STERS
0823 1F POP
D5
0824 07 POP
E5
0825 5F
POP 01
0826 5E POP 51
OB27
5A POP OX
OB2B 59
POP
CX
0829 58 POP BX
OB2A
58
POP
AX
082B CJ RET
OTHERWI SE RETURN
;._----­
KEEP STACK COf\RECT FOR CALL TO NEG_OUTPUT I F ERROR
082C E8 03E2 R SUP5: GALL NEC OUTPUT
OUTPUT TO NEC
082F 8A E2 MOV AH,DL
GET DRIVE NUMBER SELECTED
OB31 EB 03E2 R CALL NEC_OUTPUT
OUTPUT TO NEC
OB34 CJ
RET
0835 DSKETTE_SETUP ENDP
OB35 CODE ENDS
END
~
Diskette 5-101