IBM 5150 - 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 F 17:
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 II 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 EGlUIP JLAG+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