IBM XT 5160 - Page 182

ON THE NEXT OPERATJ ON THE REQU I RED MOTOR START UP T I ME WILL
8E WA I TED. (DR I VE MOTOR MAY GO OFF UPON DOOR OPEN ING) •
DISKETTE (01/10/86) 5-35
SAVE REG
GET
LAST DATA RATE SELECTED
GET RATE STATE OF TH IS DR I VE
KEEP ONLY RATE 81 TS OF 80TH
COMPARE TO PREY I OUSL Y TR I ED
ZF = 1 RATE IS THE SAME
RESTORE REG.
TEST CONTROLLER 1.0.
OUTPUT NEW DATA RATE
RESTORE REG.
SAVE REG.
ELSE CLEAR LAST RATE ATTEMPTED
GET RATE STATE OF TH IS DR I VE
KEEP ONLY RATE 81 TS
SAVE NEW RATE FOR NEXT CHECK
MOVE TO 81 T OUTPUT POS I T IONS
NO MED I A CHANGED, CLEAR CY
CHECK MED I A CHANGED AGA I N
IF ACTIVE, NO DISKETTE, TIMEOUT
; CL = DRIVE #
; MOTOR ON 81 T MASK
TO APPROPR I ATE POS I T I ON
KEEP ALL BUT MOTOR ON
; NO INTERRUPTS
; TURN MOTOR OFF I NO I CATOR
;
INTERRUPTS ENA8LED
; TURN MOTOR ON
1-13
01-10-86
AX
ENDP
ENDP
CtDSKETTE_STATUS, TIME_OUT; TIMEOUT IF DRIVE EMPTY
MED I A CHANGED, SET CY
READ DSKCHNG
OK2 -
CtMOTOR_STATUS, AL
MOTOR_ON
CX,DI
AL,I
AL,CL
AL
MOV
MOV
SHL
NOT
CLI
AND
STI
CALL
SEND RATE
; - SENDS DATA RATE COMMAND TO NEC
;
ON ENTRY: 01 = DRIVE #
; ON EXIT: NONE
; REG I 5 TER 5
ALTERED: NONE
POP
RET
CHK_LASTRATE
.------------- - ------ - - -- -- - ---- -- - - - - - - - -- - ---- - - -- -- - - - - -- - - - --
CHK LASTRATE PROC NEAR
- PUSH
AX
MOV AH,CtLASTRATE
MOV AL,CtDSK_STATE[DI]
AND AX,SEND MSK·X
CMP AL,AH-
CHK LASTRATE
- CHECK PREV 10US OATA RATE SENT TO THE CONTROLLER.
ON ENTRY:
01 = DR I VE #
ON EXIT:
ZF = 1 DATA RATE IS THE SAME AS LAST RATE SENT TO NEC
ZF = 0 DATA RATE IS DIFFERENT FROM LAST RATE
REG I STERS ALTERED: NONE
TH
IS SEQUENCE OF SEEKS IS USED TO RESET 0 I SKETTE CHANGE 5 I GNAL
DISK RESET ; RESET NEC
CH,oTH ; MOVE TO CYLINDER 1
SEEK ;
ISSUE SEEK
CH, CH ; MOVE TO CYL I NDER 0
SEEK ;
ISSUE SEEK
CtDSKETTE_STATUS ,MEDI A_CHANGE ; STORE IN STATUS
.--- --------- -'- -------- -- -- - - - - - - -- -- ---- -- - - - -- -- - --- -- - -- -- ----
SEND RATE PROC NEAR
-
TEST CtHF CNTRL,DUAL
JZ C S-OUT
PUSH AX -
AND CtLASTRATE,NOT SEND MSK
MOV AL,CtDSK_STATE[DI] -
AND
AL, SEND MSK
OR CtLASTRATE,AL
ROL AL,I
ROL AL,I
MOV OX, 03F7H
OUT DX,AL
POP AX
C 5 OUT:
- - RET
SEND_RATE
CALL
MOV
CALL
XOR
CALL
MOV
OKI :
CALL
JZ
OK4: MOV
OK2: STC
RET
CLC
RET
MED_CHANGE ENDP
1353
1354
1355
1356
0606 88 CF
1357 0608 80 01
1358 060A 02 EO
1359 060C F6 DO
1360 060E FA
1361 060F 20 06 003F R
1362 0613 F8
1363 0614 E8 0913 R
1364
1365
1366
1367 0617 E8 0092 R
1368 061 A 85 01
1369 061C E8 OA14 R
1370 061F 32 ED
1371 0621 E8 OA 14 R
1372 0624 C6 06 0041 R 06
1373
1374 0629 E8 0821 R
1375 062C 74 05
1376
1377 062E C6 06 0041 R 80
1318
1379
0633 F9
1380 0634 C3
1381 0635
1382 0635 F8
1383 0636 C3
1384 0637
1385
1386
1387
1388
1389
1390
1391
1392 0637
1393 0637 F6 06 008F R 01
1394 063C 74 19
1395 063E 50
1396 063F 80 26 0088 R 3F
1397 0644 8A 85 0090 R
1398 0648 24 CO
1399 064A 08 06 0088 R
1400 064E DO CO
1401 0650 DO CO
1402 0652 8A 03F7
1403 0655 EE
1404 0656 58
1405 0657
1406 0657 C3
1407 0658
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
0658
1420 0658 50
1421 0659 8A 26 0088 R
1422 0650 8A 85 0090 R
1423 0661 25 COCO
1424 0664 3A C4
1425
1426 0666 58
1427 0667 C3
1428 0668
1429
IBM Personal Computer MACRO Assembler Version 2.00
DSKETTE - - 01 /10/86 0 I SKETTE ADAPTER 8105