IBM 5150

lOC OBJ LINE SOURCE
(Eol 7438
fE03 3C40
EEOS 1529
EE07 AC
EE08 ODED
EEOA 8404
EEOC 7224
EEOE OOEO
EEIO ODED
Efl2 8410
EE14 721C
EE16
DOEO
EElS 8408
EEU 7216
EEle OOEO
EElf OOEO
Ef20 8404
EE22 nOE
E:E24 ODED
EE26 6403
EEM nOB
EEZA OOEO
EEzt 8402
EEZE 72:02:
EnD
EE30 8.20
EE32
ED2 06264100
EE36 E67701
EEl9
EE39 C3
EE3A
EE3A E82E01
EE3D C3
EnE
EDE E86FOl
EE"1 32E4
£E43 C3
EE44
EE44 52
EE45 51
EE46 BAF401
EE49 33C9
EE48
EE48 EC
EE4C A840
E£4E 740C
EESO E2:f9
fE5,
2561
JZ
2562 CtlP
Al,040H
j TEST FOR ABNORMAL TERMINATION
2563
JHZ
JI8
j NOT ASNORHAl, BAD NEe
2564
2565 1------ AE'.NORMAl TERMINATION, FIND OUT WHY
2566
2:567
lOoS
NEC_STATUS ; GET STl
2568
SAL AL,I
, TEST FOR EaT FOUND
2569 HOV
AH .RECORD_NOT_FND
2570
JC JI. ; RWJAIL
2571 SAL
AL.I
ZS7Z SAL
AL,l
; TEST FOR CRC ERROR
2573 HOV AH.BAD_CRC
2574
JC JI.
• RWJAIL
2575 SAL
ALol i TEST FOR DttA OVERRUN
2576 HOV
AH.BAD_DMA
2.577 JC
JI.
2:578 SAL
AL,I
2579
SAL
At,l
TEST FOR RECORD HOT FOUND
2560
MOV AH,RECORD_NOTJHD
2561
JC
JI.
; RWJAIL
2!i9.2 SAL AL,t
2583 HOV
AH ,WRITE]ROTECT
2564
JC Jl9 ; RWJAIL
2585
SAL AL.l
; TEST HISSING ADDRESS HARK
25&6 HOV
AH ,BAD_ADDR_ttA~K
2587
Je
JI'
; RWJAIL
2568
2569
j------ NEC MUST HAVE FAILED
2S'i'D
2591
JI8: ; RW-NEe-FAIL
2592
HOV
ZS93 J19: : RW-FAIL
2594 OR
DISKETTE_STATUS ,AH
2595 CALL NUM_TRANS
I HOW HAtty WERE REALLY TRANSFERRED
2596 J20: ; FlN_H!R
2597
RET
; RETURN TO CALLER
ZS98
2599
J21:
; RN_ERR_RES
2&00 CALL RESULTS ; FLUSH THE RESULTS BUFFER
2601 RET
2602
2603 ~------ OPERATION WAS SUCCESSFUL
260'4
260'5
J22:
; OPH_OK
260'6
CALL
NUM_TRANS
; HOW HANY GOT HOVED
2607 XOR
AH,AH
;
NO ERRORS
26()8
RET
260'9 RW_OPN ENDP
261 () ; ----------- ----------- ----------------- -----
2611 ; NEC_OUTPUT
2612 THIS ROUTINE SEttOS A BYTE TO THE HEC CONTROLLER
2613 AFTER TESTING FOR CORRECT DIRECTION AND COHTROLlER READY
2:614 THIS ROUTINE WIll TIHE OUT IF THE BYTE IS NOT ACCEPTED
2:615 WITHIN A REASONABLE AHOUNT OF TIttE. SETTING THE DISKETTE STATUS
2:616
ON COMPLETION
2:617
INPUT
2618
(AH)
BYTE TO BE OUTPUT
2:619 OUTPUT
2:620
CY = 0 SUCCESS
2621 CY =1 FAILURE -- DISKETTE STATUS UPDATED
262:2
IF A FAILVRE HAS OCCURRED. THE RETURN IS MADE ONE LEVEL
2623 HIGHER THAN THE CALLER OF NEC_OUTPUT
2624 THIS REMOVES THE REQUIREMENT OF TESTING AFTER EVERY CALL
2:62:5
OF NEC_OUTPUT
2:626
(At) DESTROYED
262:7 ; ---------- ---- -------- - -------------- -------
2:62:8
NEC_OUTPUT !"ROC NEAR
2:629 PUSH ox ; SAVE REGISTERS
2630
PUSH ex
2:631 HOV DX,O'3F4H
; STATUS
PORT
XOR CX,CX ; COUNT FOR TIME OUT
"'2
2633 J23:
2:634 It. Al,ox ; GET STATUS
2635 TEST AL,040H ; TEST DIRECTION BIT
2:636 JZ
J25
; DIRECTION OK
2637 LOOP
J2J
2638
J2:4:
TIME_ERROR
A-36