IBM 5150 - Using BASIC

LaC OBJ
LINE SOURCE
EOCI E96ZFF
2715
JMP
JID
EDC4
2716 JlS:
EDC4 8AE5
2717 MOV
AH,CH
EDC6 E87800
2718
CAll
NEC_OllTPlIT
EOC.9 8A6601
2719
MOV
AH.IBP+l J
EOCC £87200
2720
CALL
NEt_OUTPUT
EOCF 8AEI
2721
HOY AH,CL
EODI £86DOO
2722
CAlL
NEC_OUTPUT
EDOlt 880700
27Z3
HOY
BX,7
EDD7 [89200
2724
CALL GET_PARH
EDDA 880900
2725
HOY BX.9
EDDD E88COO
2726
CALL
GET_PARM
EDEO 6B0600
2727
HOY
eX.II
Eon E88600
2728 CAll
GET_PARH
EDE6 6eODOO
2729
HOY
BX.I!
EDE9
2730 JI6:
EDE9 E88000
2731
CAll
GET_PAR"
EDEC 5£
2732
POP
sr
2733
2734
2735
1----- LET THE OPERATION HAPPEN
2736
EO ED E84301
2737
CALL
WAIT_INT
EDFO
2736 J17:
EDFO 7245
2739
JC
J21
EDF2 E87401
2740
CALL
RESULTS
EDF5 723F
2741
JC
J2D
2742
2743
1----- CHECK THE RESULTS RETlmNED BY
2744
EOF7 FC
2745
CLD
ED Fa BE4200
2746
HOY
51 ,OFFSET NEC_STATUS
EOFB AC
2747
LODS NEC_STATUS
EOFC 24CO
2748
AND AL,OCOH
EDFE 7438
2749
JZ
J22
EEOO 3C40
2750
C!1P
AL.040H
EE02
7529
2751
JHZ
JIS
2752
2753
1----- ABNORHAL TERHINATIOt." FIND OUT
2754
EE04 AC
2755
LOOS NEC_STATUS
EE05
OOEO
2756
SAL AL,!
EE07 B404
2757
HOY
AH,RECORO_NOTJND
EE09
7224
2758
JC
JI'
EEOB ODED
2759
SAL
AL.l
EEOD DOEO
2760
SAL
AL,I
EEOF B410
2761
HOY AH.BAD_CRC
EEll 721C 2762
JC
JI'
EE13 OOEO
2763 SAL
AL.l
EElS B408
2764 MOV AH,BAD_DMA
EEl7 7216
2765 JC
JI'
EE19 OOEO
2766 SAL AL,l
EEIB OOEO
2767 SAL
AL.l
EEtO B404
2768 MOV
AN .RECORD_NOT_FND
EE IF 720E 2769
JC
JI'
EE21
OOEO 2770
SAL AL.l
EE23 8403
2771 HOY AN .WRITE_PROTECT
EE25
7208
2772 JC
JI'
EEZ7 ODED
2773 SAL
AL.l
EE29 8402 2774
HOY
"'H, S"'O_"'DDR_HARK
EEtS 7202
2775 JC
JI,
2776
2777
1----- NEC MUST HAVE F ... ILED
2778
EE20 2779 J18:
EE20 6420
2780
MOV
AH.B ... D_NEC
EE2F 2781
J19:
EE2F 08264100 2782
OR
DISKETTE_STATUS .... H
EEl3 E87801 2783 CALL NUM_TRANS
EEl6 2784 J20:
EE36 C3
2785
RET
EEl7 2786 J21:
EEn E82FOl 2787 CALL RESULTS
EnA C3
2788 RET
2789
2790 1----- OPERATION WAS SUCCESSFUL
2791
; IF SO, HANDLE SPECIAL
I CYLINDER tu1BER
l HEAD HUMBER FROH STACK
J SECTOR HLlMBER
I BYTES/SECTOR PARH FRCH BLOCK
I
TO THE NEt
J EDT PAR'" FRCH BlOCK
TO THE NEt
.
I GAP LENGTH PARH FRCH BLOCK
;
TO THE NEC
I on PARH FRCH BLOCK
I RW_OPN_FINISH
.
TO THE NEe
, CAN NOW DISCARD THAT DUHMY
I
RETURN ADDRESS
I WAIT FOR THE INTERRUPT
I
HOTOR_OFF
I LOOK FOR ERROR
;
GET THE NEC STATUS
; LOOK FOR ERROR
THE CONTROLLER
I SET THE CORRECT DIRECTION
I POINT
TO STATUS FIELD
I
GET STO
I TEST
FOR NORM"'L TERMINATION
I
OPN_OK
; TEST FOR ABNORMAL TERMINATION
I
NOT ABNORH"'L, BAD NEC
WHY
;
GET STl
; TEST FOR EaT FOlHl
I RN_FAIl
I TEST FOR CRC ERROR
I Rw..FAIl
I TEST FOR DHA OVERRUN
I RWJAIL
I TEST FOR RECORD NOT FOlN)
I RN.,FAIL
I TEST
FOR WRITE_PROTECT
t RWJAIL
; TEST HISSING ADDRESS MARK
I RWJAIL
; RN-NEC-FAIL
I RN-FAIL
I HOW HANY WERE REALLY TR ... NSFERRED
J RN_ERR
I RETURN TO CALLER
I RW_ERR_RES
I
flUSH THE RESULTS BUFFER
5-68 System BIOS