IBM 5150 Hardware Reference Manual 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 EQUIPJLAG+l,16
1193 F20:
1194
1195 EHABLF NMI INTERRUPTS
1196
1197 MOV AL,80H ;ENABlE HMI nrrERRUPTS
1198
OUT
OAOH,AL
A-I7