IBM XT 5160 - Page 192

.--- --- ----------------------------- -- -------------- -- --------- --
; 01 SK INT
- TH I S ROUT I NE HANDLES THE 0 I SKETTE INTERRUPT.
; ON EX IT: THE I NTERRUPT FLAG I S SET IN OSEEK_STATUS.
6 ~ ~~ - ~~~ - ~ - -- --- ;~~~----~~~- -------------- ~~~~; - ;~~~~ - ~~~ - ~~~ -~~~5 7H
-
ST I RE-ENABLE INTERRUPTS
PUSH AX SAVE WORK REG I STER
PUSH
OS SAVE REGISTERS
CALL DDS SETUP DATA ADDRESS I NG
OR OSEEK STATUS,INT FLAG TURN ON INTERRUPT OCCURRED
POP
OS - - RESTORE USER (OS)
MOV AL ,EO I END OF I NTERRUPT MARKER
OUT
INTAOO,AL INTERRUPT CONTROL PORT
MOV AX, 0910 I H I NTERRUPT POST CODE AND TYPE
INT 15H GO PERFORM OTHER TASK
POP AX RECOVER REG I STER
I
RET RETURN FROM INTERRUPT
oISK_INT_1 ENDP
5-45
SAVE DR I VE COUNT
DE
TERM I NE DR I VE
TRANSLATE STATE TO COMPATI BLE MODE
AND ONEC STATUS WITH HOME MASK
RESTORE OR I VE COUNT
PO I
NT TO NEXT DR I VE
REPEAT FOR EACH DR I VE
FORCE
RECAL I BRATE
ALLOW FOR RTC WA I T
VAR 10US
CLEANUPS
EX I T WITH CY FLAG FROM SETUP END
TEST HOME I NO I CATORS FOR ALL -DR I VES
ERROR-->HOME INDICATOR BAD
RESTORE CALLERS RES I STERS
MASK DRIVE BITS
AX=NUMBER OF DR I VES (RELATI VE ZERO)
DI=INITIAL DRIVE TO BE ESTABLISHED
S I =HOME MASK FOR ALL DR I VES
1-23
01-10-86
DISKETTE (01/10/86)
OS
S I
01
OX
CX
BX
AX
OSEEK STATUS,O
ORTC \VA I T FLAG, OFEH
SETUP ENo-
HOME OK
SI,SI
HOME_OK
OHF
CNTRL, DUAL I TEST CONTROLLER TYPE
SUPI
ODSK_STATE[DI ] ,DRV _DET+MED_DET+RATE_250
AX
DRIVE oET
XLAT OLD
S I, WORD PTR ONEC STATUS
AX -
01
DI,AX
SUPO
SUPO:
TEST
JNZ
MOV
SUPI:
PUSH
CALL
CALL
AND
POP
INC
CMP
JNA
SUP2:
MOV
AND
CALL
JC
OR
JNZ
STC
HOME OK:
- POP
POP
POP
POP
POP
POP
POP
RET
DSKETTE SETUP ENDP
CODE
-ENDS
END
.------------------ -- -------------- ------------------------------
; DSKETTE SETUP :
TH I S ROUT I NE DOES A PRELl MI NARY CHECK TO SEE WHAT TYPE :
OF 0 I
SKETTE DR I VES ARE ATTACHED TO THE SYSTEM. :
6~~~~~~ - ~~~~; - ;~~~ -- -- --~~~~ -------- ---- ------- -- ------- -- ----- --
-PUSH AX I SAVE REG I STERS
PUSH BX
PUSH CX
PUSH OX
PUSH 01
PUSH S I
PUSH
OS
CALL DDS I PO I NT OATA SEGMENT TO B I OS OATA AREA
OR ORTC WA I T FLAG, 0 I I NO RTC WA IT, FORCE USE OF LOOP
MOV WORD-PTR iiDSK STATE, 0 I I N I TI ALI ZE STATES
AND OLASTRATE,NOT-STRT MSK+SEND MSK I CLEAR START & SEND
OR OLASTRATE,SEND MSK- I INITIALIZE SENT TO IMPOSSIBLE
MOV OSEEK STATUS,O- I INDICATE RECALIBRATE NEEDED
MOV OMOTOR COUNT, 0 I I NIT I AL I ZE MOTOR COUNT
MOV OMOTOR-STATUS,O I INITIALIZE DRIVES TO OFF STATE
MOV ODSKETTE STATUS, 0 I NO ERRORS
MOV AL,BYTE PTR OEQUIP FLAG I GET EQUIPMENT STATUS
ROL AL, I - I SH I FT BITS 7,6 TO 1,0
ROL AL, I
AND
AL,3
XOR AH,AH
XOR 01,01
MOV SI,HOME
2456
2457
2458
2459
2460
2461
2462 OB74
2463 OB74 FB
2464 OB75 50
2465 OB76 IE
2466 OB77 E8 0000 E
2467 OB7A 80 OE 003E R 80
2468 OB7F IF
2469 .OB80 BO 20
2470 OB82 E6 20
247 I OB84 B8 9 I 0 I
2472 OB87 CD 15
2473 OB89 58
2474 OB8A CF
2475 OB8B
2476
2477
2478
2479
2480
2481 OB8B
2482 OB8B 50
2483 OB8C 53
2484 OB8o 51
2485 OB8E 52
2486 OB8F 57
2487 OB90 56
2488 OB91 IE
2489 OB92 E8 0000 E
2490 OB95 80 OE OOAO R 0 I
2491 OB9A C7 06 0090 R 0000
2492 OBAO 80 26 008B R 33
2493 OBA5 80 OE 008B R CO
2494 OBAA C6 06 003E R 00
2495 OBAF C6 06 0040 R 00
2496 OBB4 C6 06 003F R 00
2497 OBB9 C6 06 0041 R 00
2498 OBBE AO 00 lOR
2499 OBC I DO CO
2500 OBC3 DO CO
250 I OBC5 24 03
2502 OBC7 32 E4
2503 OBC9 33 FF
2504 OBCB BE 00 I 0
2505 OBCE
2506 OBCE F6 06 008F R 0 I
2507 OB03 75 05
2508 OB05 C6 85 0090 R 94
2509 OBoA
2510 OBoA 50
25 I I OBoB E8 OB2B R
25 I 2 OBOE E8 0432 R
2513 OBEI 23 36 0042 R
2514 OBE5 58
2515 OBE6 47
2516 OBE7 3B F8
2517 OBE9 76 E3
2518 OBEB
2519 OBEB C6 06 003E R 00
2520 OBFO 80 26 OOAO R FE
252 I OBF5 E8 0832 R
2522 OBF8 72 05
2523 OBFA OB F6
2524 OBFC 75 0 I
2525 OBFE F9
2526 OBFF
2527 OBFF IF
2528 OCOO 5E
2529 OCO I 5F
2530 OC02 5A
2531 OC03 59
2532 OC04 5B
2533 OC05 58
2534 OC06 C3
2535 OC07
2536 OC07
2537
IBM Personal Computer MACRO Assembler Version 2.00
oSKETTE - - 0 I /10/86 0 I SKETTE ADAPTER B I OS