IBM 5150

LOC OBJ
LINE
SOU-RCE
f082: 5A 2464
2485
POP
ox
; RECOVER REGISTER'S
E08l F60b3F0080
EO&6 7412
EDBA B81400
EDeD E8EOOO
£090 0.4.£4
E092
Eon 7408
E094 2BC9
E096 E2FE
ED98 FEce
ED9A fBF6
EDge
EDge FB
ED90 59
2486
2487
2488
2489
2490
2491
2492
2493
2494
2495
2496
2497
2:498
2499
2500
2501
2502
2503
;------ WAIT FOR MOTOR' IF WRITE OPERATION
J12:
J13:
J14:
TEST MOTOR.:,.STATUS.80H
JZ J14
MaV
CALL
DR
JZ
SUB
BX.20
GET_PARH
AH.AH
Jl4
cx.ex
lOOP J13
DEC AH
JMP
STI
POP
Jlt
ex
; IS THIS A WRITE
;
NO. CONTINUE WITHOUT WAIT
; GET THE MOTOR WAIT
; PARAMETER
;
TEST FOR NO WAIT
; TEST_WAIT_TIME
; EXIT WITH TItlE EXPIRED
; SET UP 1/8 SECOND LOOP TIME
; WAIT FOR THE REQUIRED TIME
; DECREMENT TIME YALUE
; ARE WE DONE YET
; MOTOR_RUNNING
INTERRUPTS BACK ON FOR BYPASS WAIT
ED9E £8EOOO
EoAl 58
fOAl 8AFe
EDA4 6600
EDAb 7246
EDA8 BEF1ED90
EOAe 56
2504
2505
2506
Z507
2508
Z50~
Z510
Z511
2512
2513
~------ 00 THE SEEK OPERATION
CAll SEEK ; MOVE TO CORRECT TRACK
POP AX ; RECOVER
COMMAUO
NOV BH, Aft l SAVE COH11AND IN BH
HOV DH.O ; SET NO SECTORS READ IN CASE OF ERROR
JC J 17 ; IF ERROR. THEt! EXIT AFTER MOTOR Off
MOV 51 ,OffSET J17 ; DUMMY RETURN ON STACK FOR ~IEC_OUTF'UT
PUSH 51 ; SO THAT IT WILL RETURN TO MOTOR Off LOCATION
~
EDAD E89400
EDBD 8A6601
EoB3 DOE4
EoBS 00E4
EOB7 80£404
EDBA OAE2
EDBC E86500
2514
2515
2516
2517
2518
2519
2520
2521
2522
}------ SEND OUT THE PARAMETERS TO THE CONTROllER
CALL NEC_OUTPUT
MOY AH,[ BP+ II
SAL AH,l
SAL
AIm
OR
AH.l
AH.4
AH.DL
; OUTPUT THE OPERATION COMMANO
I GET THE CURRENT HEAD NUMBER
j MOVE IT TO BIT 2
;
ISOLATE THAT BIT
; OR IN. THE OP.IVE NUMBER
EDBF 60FF4D
£oe.2 7503
EDC4 E96ZFF
2523
2524
2525
2526
2527
2528
2529
j------ TEST FOR FORMAT COMMAND
eMP
Jt~E
JMP
6H .04DH
JIS
JIO
I IS THIS A fORMAT OPERATION
;
NO. CONTINUE WITH R/W/V
; IF SO. HAt.fDlE SPECIAL
EOC7 BAES
Eoe9 £87800
Eoce 8MbOl
EOCF f87200
E002 8AEl
EDD4 E86000
E007 B60700
EDDA E89300
EOoD B60900
£OEO £88000
EDEl 860600
EDE6 f88700
EOE9 eeoooo
fDEC
EDEC E88100
EDEF 5f
fDFO £84001
EOFl
EOF3 7245
EDFS £67301
fDFS 7.23F
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
~542
2543
2544
2545
2546
2547
2548
254';1
2550
2551
2.552
2553
2.554
JlS~
J16:
MOV
CALL
AH,CH
MOV AH, [BPtl J
CALL NEe_OUTPUT
MOV AH,CL
CALL NEC_OUTPUT
MOV BX.7
CAll GET _PARM
MOV' BX.9
CALL GET_PARM
MOY BX,Il
CALL GET_PARM
nov BX.13
CALL GET_PARM
POP 51
;------ LET THE OPERATION HAPPEN
J17:
CALL
Je
CALL
Je
J21
RESULTS
J20
; CYlINDER NUMBER
HEAD NUt1BER
FROM STACK
SECTOR NUMBER
;
BHES/SECTOR PAPM FROM BLOCK
TO THE NEe
i EOT PARM FRaN BLOCK
I TO THE NEe
; GAP LEHGTH PARI1 FROM BLOCK
i TO THE NEe
j OTl PARM fRCi~ BLOCK
;
Rll_OFt~_FItHSH
; TO THE NEC
CAN
NOW DISCARD THAT DUHtI'f RETlIRN ADDRESS
I WAIT FOR THE INTERRUPT
; MOTOR_OFF
; LOOK
FOR ERROR
; GET THE NEC STATUS
; LdaK fOR ERROR
EOFA Fe
EDFB 6£4200
EOFE AC
EOFF 24eo
2555
2556
2557
2558
2559
2560
;------ CHECK THE RESULTS RETURNED BY THE CONTROllER
CLD
; set THE CORRECT DIRECTION
MOV 51 ,OFFSET NEC_STATUS
;
porNT TO STATUS FIElD
; GET STO
LODS
NEC_STATUS
AND Al.OCOH
; TEST fOR NORMAL TERMINATION
A-35