IBM 5150 - Page 226

~
LOC OBJ
LINE SOURCE
EC87 BA.fO
EC89 60l63F007F-
EceE 0"E4
£C90 7427
£C92 FEte
EC94 7474
EC96 C606410000
EC9B eOFA04
EC9E 7313
ECAO FEte
feA,l 746A.
ECA4 FEte
ECA6 7503
ECAB £99600
ECAB
eCAB FEte
feAD 7468
fCAF FEte
feel 7468
Eee3
ECB3 C6064100111
ECBS C3
EC59
ECB9 BAFZ03
fCBC FA
EeeD A03FOO
feeD BI04
eeel OZEO
Ece4 A82:0
£CC6 750C
fees A,840
ECCA 7506
Ecce A860
ECCE 7406
EeDO FEtO
ECD2 FEtD
ECD4 FE.tD
fCD6 oe08
ECOB EE
ECD9 C6063£0000
ECDE C606410000
feEl OC04
fees EE
fCEb FB
ftE7 £8280Z
EeEA A04200
fCED 3etO
EceF 7407
fCFI 600£410020
ECF6 EBII
ECFa
ECFe 8403
fCFA £84701
fCFO 880100
EDOO E86DOl
E003 880300
fD06 £86701
£009
£P09 C1
fDOA
EDOA A04100 ,
EDOO C3
2:5'32 HOV OH,Al
'; SAVE. SECTot;!S IN DH
2333 AND
;. INDICATE A READ OPERATION
2334
OR
AH,AH • AH=O
,335
JZ DISK_RESET
U16 DEC AH
; AH=l
2337
JZ DISK_STATUS
2:336
HOV
; RESET THE STATUS INDICATOR
2339 CMP
Dl.4
I TEST FOR DRIVE IN 0-3 RANGE
2340
JAE
J3
; ERROR IF ABOVE
2341
DEC AH i AH=2:
2342
JZ nISK_READ
2343
DEC AH
; AH=3
2344 JHZ
J'
;
TEST_DISK_VERF
2:345
JMP
2346 J2 :
2347 DEC
2348 JZ
2349 DEC AH ; AH=S
2350 JZ DISKJORf1AT
2:351
J3:
2352 NOV
DISKETTE_STATUS.BAD_CND
i ERROR CODE. NO SECTORS TRANSFERRED
2353
RET
; UNDEFINED OPERATION
2354 Jl ENDP
2355
2356 ;------ RESET THE DISKETTE SYSTEM
2357
2358
PROC HEAR
2359 MOV
DX.03FZH ; ADAPTER CONTROL PORT
2360
CLl '; NO INTERRUPTS
2361 MOV
AL,MOTOR_STATUS I WHICH MOTOR IS ON
236Z
HOV CL.4 ; SHIFT CCU~T
2363
SAL AL.CL
; MOVE MOTOR VALUE TO HIGH HYBBLE
2364
TEST Al, tOH I SElECT CORRESPOHOIHG DRIVE
2365
JNZ J5
I JUMP IF MOTOR ONE IS Ot~
2366
TEST AL. 40H
2367
JHZ J4
1 JUMP IF HOTOR TWO IS ON
2:368
TEST AL. SOH
2:369
JZ J6 ; JUMP IF MOTOR ZERO IS ON
2370
IHC Al
2371 J4:
ItIC
Al
2372 J5:
IIle
Al
2373 J6:
OR AL,S j TURN ON INTERRUPT EHABlE
2374
OUT OX,AL ; RESET TH~ AnAPTER
2375
MOV SEEK_STATUS, 0 ; SET RECAl REQUIRED ON ALL DRIVES
2376 MOV DISKETTE_STATU5.0 j SET OK STATUS FOR DISKETTE
2.377 OR Al.4 ; TURN OFF RESET
2378 OUT DX.Al , TURN OFF THE RESET
2379
STI ; RHNABlE THE INTERRUPTS
2380 CALL CHK_STAT3 ; DO SENSE INTERRUPT STATUS FOLLOWING RESET
USI MOV AL.NEC_STATUS IGNORE ERROR RETURN AND 00 OWN TEST
uat CNP AL,OCOH I TEST FOR DRIVE READY TRANSITION
U83
JZ J7 ; EVERYTHING OK
2384 OR OISKETTE_STATUS.BAO_NEC ; SET ERROf;! CODE
2385
" ..
JMP
SHORT J8 ; RESET_RET
2387 ;------ SEND SPECIFY CotR1ANO TO HEC
2388
2389 J7:
; DRIVE_READY
2390 MOY AH,03H
;
SPECIFY COMMAND
2391
CALL NEC_OUTPUT
; OUTPUT TH E COMMAND
2:392
MaV ex.l
; FIRST BYTE PARM IN BLOCK
2393
CALL GET_PARM
; TO THE NEe COtHROLLER
2394
MOV
I
SECOND BYTE PARtl IN BLOCK
2395
CALL
;
TO THE NEC COIHROLLER
2396-
J8:
1 RESET_RET
2397
RET
; RETURN TO CALLER
2398
ENDP
2399
2400 ;------ DISKETTE STATUS ROUTINE
2401
2402 PROC NEAR
2403 NOV AL. DISKETTE_STATUS
2404
2405-
ENDP
2406
A-33