IBM XT 5160 Technical Reference page 286

LINE SOURCE (81 OS FOR THE IBM PERSONAL COMPUTER XT) 1 1 /08/82
;----- ALLOW WRITE ROUTINE TO FALL INTO RW_OPN
PC-XT System BIOS (11/08/82)
5-139
NEC COMMAND TO WR I TE TO 0 I SKETTE
I NO I CATE WR I TE OPERA T I ON
DMA WR I TE COMMAND
..JUMP I F MOTOR ZERO I S ON
VER I FY COMMAND FOR DMA
DO AS IF 0 I SK READ
INDICATE WRITE OPERATION
WILL WRITE TO THE DISKETTE
SET UP THE DMA
ESTA8L I SH THE FORMAT COMMAND
DO THE OPERA T I ON
CONT I NUA T I ON OF RW OPN FOR FMT
GET THE -
8YTES / SECTOR VALUE TO NEC
GET THE
SECTOR S /TRACK VALUE TO NEC
GET THE
GAP LENGTH VALUE TO NEC
GET THE FILLER 8YTE
TO THE CONTROLLER
READ COMMAND FOR DMA
DISK READ CONT
SET UP THE DMA
SET UP RD COMMAND FOR NEC CONTROLLER
GO DO THE OPERATION
..JUMP I F MOTOR TWO I S ON
DR I VE READY
SPEC I FY COMMAND
OUTPUT THE COMMAND
FIRST 8YTE PARM IN 8LOCK
TO THE NEC CONTROLLER
SECOND 8YTE PARM IN 8LOCK
TO THE NEC CONTROLLER
RESET RET
RETURN TO CALLER
ADAPTER CONTROL PORT
NO INTERRUPTS
WHICH MOTOR I S ON
SHIFT COUNT
MOVE MOTOR VALUE TO HIGH NY88LE
SELECT CORRESPOND I NG DR I VE
..JUMP I F MOTOR ONE I S ON
TURN ON INTERRUPT ENA8LE
RESET THE ADAPTER
SET RECAL REQU I RED ON ALL DR I YES
SET OK STATUS FOR 0 I SKETTE
TURN OFF RESET
TURN OFF THE RESET
REENA8LE THE INTERRUPTS
DO SENSE INTERRUPT STATUS
FOLLOW I NG RESET
I GNORE ERROR RETURN AND DO OWN TEST
TEST FOR DR I VE READY TRANS I T I ON
EVERYTH I NG OK
SET ERROR CODE
AL
AL
ENDP
PROC NEAR
AL,046H
8X,7
GET PARM
8X,9
GET PARM
8X,15
GET PARM
8X,17
..J16
ENDP
PROC NEAR
AL,042H
..J9
ENDP
PROC NEAR
MOTOR STATUS,80H
AL,04AH
DMA SETUP
AH,04DH
SHORT RW_OPN
PROC NEAR
DX,03F2H
AL,MOTOR STATUS
CL,4 -
AL,CL
AL, 20H
..J5
AL, 40H
..J4
AL, 80H
..J6
AL
PROC NEAR
MOTOR STATUS,80H
AL,04AH
DMA SETUP
AH,OC5H
ENDP
DMA SETUP
AH,OE6H
SHORT RW OPN
ENDP -
PROC NEAR
AL,D I SKETTE_STATUS
ENDP
AL,8
DX,AL
SEEK STATUS,O
DISKETTE STATUS, 0
AL,4 -
DX,AL
AH,03H
NEC OUTPUT
8X,1
GET_PARM
8X,3
GET _PARM
CHK_STAT_2
AL ,NEC STATUS
AL,ocoR
..J7
DISKETTE_STATUS,8AD_NEC
INC
INC
OR
OUT
MOV
MOV
OR
OUT
STI
CALL
MOV
CMP
..JZ
OR
RET
MOV
CALL
MOV
CALL
MOV
CALL
SEND SPEC I FY COMMAND TO NEC
;----- DISKETTE READ
; ----- 0 I SKETTE FORMAT
; ----- 0 I SKETTE STATUS ROUTINE
;----- DISKETTE VERIFY
; - - - - - 0 I SKETTE WR I TE ROUT I NE
;----- RESET THE DISKETTE SYSTEM
01 SK READ
- MOV
01 SK VERF
- MOV
..JMP
01 SK_VERF
01 SK WRITE
- OR
MOV
CALL
MOV
01 SK_WR ITE
CALL
MOV
..JMP
01 SK_READ
..JI 0:
RET
01 SK_RESET
DISK FORMAT
- OR
MOV
CALL
MOV
..JMP
MOV
CALL
MOV
CALL
MOV
CALL
MOV
..JMP
DISK _FORMA T
DISK RESET
- MOV
CLI
MOV
MOV
SAL
TEST
..JNZ
TEST
..JNZ
TEST
..JZ
INC
DISK STATUS
- MOV
RET
DISK_STATUS
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427 ..J4:
2428
2429 ..J5:
2430
2431 ..J6:
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449 ..J7:
2450
2451
2452
2453
2454
2455
2456 ..J8:
2457
2458
2459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471 ..J9:
2472
2473
2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
ED07
ED07 A04100
EDOA C3
ED14
ED14 8042
ED16 E8F5
ED08
ED08 8046
EDOD
EDOD E88801
ED10 84E6
ED12 E836
ED3E
ED3E 800E3F0080
ED43 804A
ED45 E88001
ED48 84C5
LOC 08..JECT
EDI8
ED 18 800E3F0080
ED 10 804A
ED 1F E8A60 1
ED22 8440
ED24 E824
ED26
ED26 880700
ED29 E84001
ED2C 880900
ED2F E83AO 1
ED32 880FOO
ED35 E83401
ED38 881100
ED38 E9A800
ECE8 A04200
ECE8 3CCO
ECED 7406
ECEF 800E410020
ECF4 C3
ECF5
ECF5 8403
ECF7 E84701
ECFA 880100
ECFD E86CO 1
EDOO 880300
ED03 E86601
ED06
ED06 C3
EC87
EC87 8AF203
EC8A FA
EC88 A03FOO
EC8E 8104
ECCO 02EO
ECC2 A820
ECC4 750C
ECC6 A840
ECC8 7506
ECCA A880
ECCC 7406
ECCE FECO
ECDO
ECDO FECO
ECD2
ECD2 FECO
ECD4
ECD4 OC08
ECD6 EE
ECD7 C6063EOOOO
ECDC C606410000
ECEI OC04
ECE3 EE
ECE4 F8
ECE5 E82A02