IBM 5150 - Page 210

lOC OBJ lJNE
SOURCE
E585 6501
ES87 88163EOO
ESBB EBF30S
ES8E n07
E590 8522
E592 f8Ee08
E595 7309
E597
E597 BEAEElt
E59A 890300
E590 fB2AOt
E5AO
[SAO BoDe
E5A2
BAF20J
E5A5 EE
ESAO
E5A6 C7061A001EOO
ESAC C7061C001£00
E582 8081E4
E585 BEOOOO
E588
E588
2E885600
E58C BOAA
ESSE EE
ESBF 2ACO
E5Cl EC
E5C2 leAA
ESC4 7506
E5e6 89940800
ESCA 46
EseB 46
ESCC
Esec 45
EseD 45
EseE BIFDB7E4
E502 75E4
E504 BBOOOO
E507 BAFA03
E50A EC
E50B ABFa
E50D
7508
ESDF C7870000FS03
E5E5 43
E5E6 43
ESE7 SAfAD2
ESEA EC
ESEB ABfa
ESED 7506
E5EF C7870000f802
ESF5 43
ESF6 43
ESF7
ESF7 8BC6
ESF9 6103
ESFB 02G8
E5FO OAe3
ESFF A21100
~E602BAOI02
f605 EC
f606 AaOF
E608 7505
f60A 800E110010
E60F
E60F
B080
E611 E6AO
1122 HOV 01,1
; Sf lEeT TRACK 1
1123 HOV SEEK_STATUS,OL
112:4
CALL
SEEK
;R"ECAlIBRATE DISKETTE
112:5
JC F13
IGO
TO EPA' SUBROUTINE IF ERR
1126
HOV CH.34 I SELECT TRACK 34
1127
CALL SEEK ,SEEK TO TRACK 34
1128
JHC
F14 10K. TURH HOTOR OFF
112:9 F13:
; DSK_ERR!
1130 MOV
SI.OFFSET F3
IGET
ADOR OF HSG
1131 HOV CX.F3L
IGET I1SG BYTE COUNT
1132:
CALL P _HSG
IGO PRINT ERROR HSG
1133
1134
TURN DRIVE 0 MOTOR OFF
1135
1136
F14:
1137 MOV
AL,OCH ; TURN DRIVE 0 MOTOR OFF
1138
MOV OX,03FZH ; FOC ClL ADDRESS
1139
OUT
DX,AL
1140
1141
SETUP PRINTER
ANO RSZ3Z BASE ADDRESSES IF DEVICE ATTACHED
114,
1143 F15:
1144
MOV SUFFER_HEAD, OFFSET KB_BUFFER ISETUP KEYBOARD PARAI1ETERS
1145
MOV BUFFER_TAIL.OFFSET KB_BUFFER
1146
MOV BP.OFFSET F4
1147
MOV
SI.O
1148
Fl6:
1149
MOV OX,CS: [BP] i6ET PRINTER BASE ADDR
1150 MOV AL,OAAH iWRITE DATA TO PORT A
1151
OUT
DX,AL
1152:
SUB AL.AL
1153
IN
AL,DX
;READ
PORT A
1154
CMP AL,OAAH iDATA PATTERN SAME
1155
JNE
Fl7
iNO - CHECK NEXT PRT CD
1156 MOV
PRINTER_BASEL SI J,OX
iYES - STORE PRT BASE ADDR
1157
INC SI
; INCREMENT TO NEXT WORO
1158
INC 51
U59 F17:
1160
INC
BP
I POINT
TO NEXT BASE ADDR
1161 It~C
BP
116,
CMP BP.OFFSET F4E
IALL POSSIBLE AOORS CHECKED?
1163 Jt1E FI6
1264
HOV ex.o
;POINTER
TO RS2:32: TABLE
1265
HOV OX.3FAH ;CHECK IF RS2:32 co 1 ATTCH?
1166 IN AL,OX
iREAQ
INTR 10 REG
1167 TEST AL,OF8H
1168 JNZ
Fl8
1169
MOV RS232_BASE[ BX 1, 3F6H iSETUP RS2:32 CD II ADOR
1170 INC
BX
1171
WC
BX
1172
FIB:
MOV DX,2FAH
;CHECK IF RSl32 CD 2: ATTCH
1113
IN AL.OX
;READ INTERRUPT
10 REG
1174
TEST AL.OF8H
1175
JtlZ FI9
1176
; SETUP RS232 CD 12
1177
INC BX
1178
INC
BX
1179
1180 j------ SET UP EQUIP FLJ.G TO INDICATE NUMBER OF PRINTERS AND RS2:32: CARDS
1181
Jl8, Fl9:
1163 MOV AX,SI ; 51 HAS 2* N1.JM8E'R Of RS232
1184 MOV Cl,3
;
SHIFT COlMT
118S ROR Al,Cl ; ROTATE RIGHT 3 POSITIONS
1186 OR AL,BL ; OR IN THE PRINTER COUNT
1187
MOV BYTE PTR EQUIP_FLAG+l.Al ; STURE AS SECOND BYTE
1188 HOV DX.20IH
1189- IN AL,DX
1190 TEST Al,OFH
1191 JNZ f20 ; HO_GAME_CARD
1192 OR BYTE PTR EQUIP JLAG+l,16
1193 F20:
1194
1195 EHABLF NMI INTERRUPTS
1196
1197 MOV AL,80H
;ENABlE HMI nrrERRUPTS
1198
OUT
OAOH,AL
A-I7