IBM 5150 Technical Reference page 139

LOC OBJ
LINE SOURCE
E562 BOM
1202
MOV AL,OAAH
J IoiRITE DATA TO PORT A
E564 EE
1203
OUT
OX.AL
E565 52
1204
PUSH OX
E566 EC
1205
IN Al,OX
I READ PORT A
E567 SA
1206
POP OX
E568 3eAA
1207
CMP AL,OA.AH
; DATA PATTERN SAME
E56" 7505
1208
JNE F17
I NO - CHECK NEXT PRJ CD
E56C 895408
1209 MOV
PR INTER_BASE [51 ] • OX
YES - STORE PRT BASE ADDR
E56F 46
1210
INC 51
; INCREMENT TO NEXT WORD
E570 46
1211
INC 51
E571
1212 F17:
J NO_STORE:
£571 45
1213
INC BP
; POINT TO NEXT BASE 'u)OR
E572 4S 1214
INC BP
E573 81FD43E6
1215
CMP BP,OfFSET F4E
I ALL POSSIBLE AODRS CHECKED?
£577 75E5
1216
JNE Fl.
I PRT_BASE
E579 2BDB
1217 SUB
eX,ex
I POINTER TO RS232 TABLE
E57B BAFAOl
1218
MOV DX,3FAH
I CHECK IF RS232 CD 1 ATTCH?
ES7E EC
1219
IN Al,OX
1 READ INTR 10 REG
E57F "aFe
E581 7506
122:0
1221
TEST
JHZ
"L,OFaH
Fl.
E583 C707F803
1222
MOV
RS232_BASE[BX
J.
3F8H ; SETUP R5232 CD I I ADDR
E587 43
1223 INC
ex
E588 43
1224
INC
ex
E589
IUS F18!
E589 8602
1226 t10V
DH.02H I CHECK IF RS232 CD 2 ATTCH (AT 2FAI
E588 EC
1227
IN
AL.DX ; READ INTERRUPT 10 REG
E58C A8F8
1228
TEST AL.OF8H
E58E 7506
1229
JHZ F19 , BASE_END
ES90 C707F802
1230
MOV RS2:32_8ASEfBX 1.2F8H
j
SETUP RS232 CO IZ
E594 43
1231
INC
ex
E595 43
1232
INC BX
1233
1234
j - - - - -
SET UP EQUIP FLAG TO INDICATE tM1BER OF PRINTERS At-IJ RS232 CARDS
1235
£596
1236 Fl9:
i
BASE_END:
ES96 8BC6
1237
MOV AX,SI
I 51 HAS 2* tM18ER OF RS232
E598 BI03
1236 MOV
Cl.3 , SHIFT COUNT
ES9A D2C6
1239
000 Al,Cl I ROTATE RIGHT 3 POSITIONS
ES9C OAC3 1240
00
AL.Bl I OR IN THE PRINTER COUNT
ES9E A21100
1241
MOV BYTE PTR EGlUIPJLAG+l ,Al I STORE AS SECOND BYTE
ESAI B201 1242
MOV
Dl.OIH ; DX::201
ESA3 EC
1243
IN Al.OX
E5A4 A80F
ESA6 7505
1244
12:45
TEST
JNZ
AL,OFH
"0
I NO_GAME_CARD
ESA8 800E110010 1246
00 BYTE PR EQUIP_FlAG+l.16
ESAD 1247 f20:
1248
1249
1----- SET DEFAULT TIMEOUT VAlUES FOR PRINTER AND RS232
1250
E5AO IE 1251
PUSH D5
E5AE 07 1252
POP E5
E5AF BF7800 12S3 MOV
DI.OFFSET PRINT_TIM_OUT
E5B2 B81414 1254 MOV
AX,1414H ; PRINTER DEFAULTS ICOUNT::20)
E585 AB
1255 STOSW
E586 AB
1256 STOSW
E5B7 B80101
1257
MOV
AX,OIOIH
; RS232 DEFAULTS::Ol
ESBA AB
1256 STOSW
E5BB AB
1259 STOSW
1260
1261
;----- ENABLE HHI INTERRUPTS
1262
E5BC B080
1263
HOV
Al,80H I ENABLE HHI INTERRUPTS
E58E E6AO 1264
OUT OAOH .AL
E5CO 603E120001 1265 CMP
MFG_TST,1 I MFG MODE?
E5CS 7406
1266 JE
"1
I LOAD_BOaT_STRAP
E5C7 BAOI00 1267
MOV DX,l
E5CA E80200
1268 CALL
ERR_BEEP ; BEEP 1 SHORT TONE
12:69
EseD
1270 F21:
I LOAD_BOOT_STRAP:
EseD CDl9
1271
INT
19H
j
BOOTSTRAP
1272
1273
,-------------------------------------------------------­
1274
1275
INITIAL RElIABILITY TEST -­ SUBROUTINES
1-----­ - -----------­ _____________________________________
1276
ASSUME CS:COOE .OS: DATA
1277
;-----------------------------------------------------------------------­
1278
; SUBROUTINES FOR POWER ON DIAGNOSTICS
5-46 System BIOS