IBM 5150 Hardware Reference Manual page 228

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