IBM 5150 - Page 160

LOC OBJ
LINE
SOURCE
2638
; RI"LOPN
2639
THIS ROUTINE PERFORMS THE READ.lWRITE/vERIFY OPERATION
2640
.----------------------------------------------------------------
ED4A
2641 RW_OPN
PROt NEAR
ED4A 7308 2642
JNe
J11
; TEST FOR DMA ERROR
E04C C606410009
2643
"OV
D1 SK E TTE_ STATUS. DNA_BOUNDARY
, SET ERROR
ED51 BODO
2644
"OV
.U.O
, NO SECTORS TRANSFERRED
~
E053 C3
2645
RET J RETURN TO MAIN ROUTINE
EDS4 2646 Jll:
I DO_RICOPN
E054 50 2647
PUSH AX I SAVE THE COMMAND
2646
2649
1----- TURN ON THE MOTOR AND SELECT TliE DRIVE
2650
E055 51
2651
PUSH ex I SAVE THE TIS PARMS
EO 56 SACA 2652
"OV
CL.Dl
I GET DRIVE HUMBER AS sHIFT COUNT
EO 58 BOOI
2653
"ev
Al.l
I MASK FOR DETERMINING MOTOR BIT
ED5A 02EO 2654
SAL AL,CL
; SHIFT THE MASK BIT
ECSC FA
2655
eLI
I NO INTERRUPTS WHILE DETERMINING
2656
;
MOTOR STATUS
EDSC C6064000fF
2657
"OV
MOTOR_COUNT.OFFH
; SET LARGE COUNT DURING OPERATION
E062 84063FOQ
2658 TEST Al,MOTOR_STATUS
I
TEST THAT MOTOR FOR OPERATING
E066 7531
2659
JHZ J14 I IF RUNNING. SKIP THE WAIT
E068 80263FOOFO
2660
AHO
MOTOR_STATUS,OFOH I TURN OFF ALL MOTOR BITS
ED6D 08063FOO 2661 OR HOTOR_STATUS,AL
I
TURN ON THE CURRENT MOTOR
ED71 FB 2662
STI
I INTERRUPTS BACK ON
Eon BOlO
2663
"OV
Al.lOH
• MASK BIT
E074 02EO 2664
SAL Al.CL • DEVELOP BIT MASK FOR MOTOR ENABLE
E076 OAC2 2665
DR Al,Ol
; GET DRIVE SELECT BITS IN
E078 oeoc 2666 OR
Al.OCH
• NO RESET,
ENABLE OMA/INT
E07A
52
2667
PUSH OX
o SAVE REG
E07B BAF203 2668
MOV OX,03F2H
;
CONTROL PORT ADDRESS
ED7E EE 2669 OUT DX,Al
ED7F SA 2670
POP OX
I RECOVER REGISTERS
2671
2672
J----- WAIT FOR MOTOR IF WRITE OPERATION
2673
ED80 f6063F0080 2674
TEST MOTOR_STATUS,80H
I
IS THIS A WRITE
~
ED85 7412 2675
JZ J14
I NO, CONTINUE WITHOUT WAlT
E087 BB1400
2676 MOV BX,20
; GET THE MOTOR WAlT
ED8 .... E80FOO Z677
CALL GET_P .... RM
;
PARAMETER
ED8D OAE4 2678
OR AH ..... H I TEST FOR NO WAIT
ED8F 2679 J12: I TEST_WAlT_TIME
ED8F 7408 2680
JZ
J14 I EXIT WITH TIME EXPIRED
E091 2BC9 2681
SUB
CX.CX I SET UP 1/8 SECOND LOOP TIME
ED93
2682
J13:
ED93 E2FE Z6B3
lOOP J13 I WAIT FOR THE REQUIRED TIHE
E095 FECC
2684
DEe
AH ; DECREMENT TIME VALUE
ED97 EBF6 Z6B5
JHP J12
; ARE WE OONE YET
ED99 2686 J14:
; MOTOJUHJNNING
E099 FB
2687 STI I INTERRUPTS BACK ON FOR BYPASS WAIT
ED9A 59 2688
POP ex
2689
2690
; ----- DO THE SEEK OPER .... TION
2691
ED9B
E8DFOO 2692
CALL SEEK I MOVE TO CORRECT TR .... CK
ED9E 58
2693 POP AX ; RECOVER COHHAttJ
ED9F 8AFC
2694
"OV
BH,AH ; SAVE COMHAND IN BH
EDAI B600
2695
"OV
DH.O I SET NO SECTORS READ IN CASE OF ERROR
ED .... J 724B 2696
JC J17 ; IF ERROR. THEN EXIT AFTER MOTOR OFF
EOA5 BEFOED90 2697
"OV
51 ,OFFSET J17 I DUMttY RETURN ON STACK FOR NEC_OUTPUT
EDA9 56 2698 PUSH
51 SO THAT IT WIll RETURN TO MOTOR OFF
2699
;
LOCATION
2700
2701 1----- SEND OUT THE PARAMETERS TO THE CONTROLLER
2702
EDM E89400 2703 CALL
NEC_OUTPUT
; OUTPUT THE OPER .... TION COI1I'1AJIJ
EDAD 8A6601
2704
MOV "HdBP+l)
; GET ruE CURRENT HEAD NUI1BER
~
EDBO 00E4
2705 SAL AH.l I MOVE IT TO BIT 2:
EDB2 DOE4
2706
SAL AH.l
EDB4 80E404
2707
ANO AH,4 ; ISOLATE THAT BIT
EDB7 OAE2
2708
DR AH.Ol , OR IN THE DRIVE NUHBER
EDB9 E88500
2709 CALL NEC_OUTPUT
2710
2711 ;----- TEST FOR FORHAT Cott"IANQ
2712
EDBC 80FF4D 2:713
C"P
BH,040H , IS THIS A FORMAT OPER .... TION
EOBF 7503 2714
JH'
J15
, NO. CONTINUE WITH R/WN
System BIOS 5-67