IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

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