IBM 5150 Hardware Reference Manual page 208

•••
LOC OBJ
LINE SOURCE
97.
;
-------------------------------------- ­
97. ; INITIAL RELIABILITY TEST -- PHASE 4
97.
;-------------------------------------- ­
977 ASSUME
CS:COOE ,OS: DATA
E4A7 20333031 97. DB
• 301'
'1
0004
97. EQU
$-FI
J
KEYBOARD MESSAGE
E4A8 313331
980 DB '131'
"..........
0003 9Bl
"
"L EOU
t-F2
i CASSETTE MESSAGE
E4AE 363031
982
F3
'601 '
'IL
O'
00Q3
9B3
F3L
EOU
$-F3 ; DISKETTE MESSAGE
98.
E481
985 F.
LABEL
WORD
; PRINTER SOURCE TABLE
E4Bl BC03 986
OW 38CH
E483 7603
9B7 OW 378H
E485 7602
9BB
OW 278H
E487
989
F'E
LABEL
WORD
£487 30313233343536
9'0
ASCII.TBl
DB
'0123456 789ABCDEF'
37383941424344
.546
991
.-------------------------------------------­
9'2
HEST.12
9.J KEYBOARD TEST
99.
;DESCRIPTION
99. PESET THE KE'tBOARD AND CHECK THAT SCAN CODE
AA.'
IS RETURNED
99. TO THE CPU. CHECK FOR STUCK KEYS.
9.7 i ----------------------- ---- --- -----------.- ­
E4C7
'.B
TSTl2:
E4C7 884000 MOV
AX,DATA ;POINT OS TO DATA SEG
E4CA 8E08 1000
MOV
OS,AX
E4CC 803E120001 1001
eMP
~:FG_
TST ,I ;MANUFACTURING TEST HODE?
E401 7439 1002
JE F7
; YES - SKIP KEYBOARD TEST
E4D3 E8B201 1003 CAll K8D_RESET
; ISSUE SOFTWARE RESET TO KEYBRD
E4D6 E32B 1004
JCXZ i
PRINT ERR HSG IF NO INTERRUPT
'6
E4D8 B04D 1005
NOV AL,4DH
; ENABLE KEYBOARD
E40A E661 1006 OUT
PORT_B,Al
E40C 80FBll 1007
CMP Bl,OAAH iSCAN CODE AS EXPECTED?
E40F 7522 1006
JHE F. iNO - DISPLAY ERROR HSG "..........
1009
1010
CHECK FOR STUCK KEYS
1011
E4E1 BOCt 1012
tIOV Al,otCH
; e lR KBD. SET ClK lINE HIGH
E4E3 E661
Ion
OUT
PORT_B,Al
E4£5 B04C 1014
MOV Al.4CH
IENABlE KBD,elK IN NEXT BYTE
E4E7 E661 1015 OUT
PORT_B,Al
E4E9 2BC9
1016
SUB
ex,cx
E4EB 1017 F5: ; KBD_WAIT:
E4EB E2FE 1018
lOOP
;DELAY FOR A WHILE
E4ED E460 1019
IN Al,KBD_IN
ICHECK FOR STUCK KEYS
E4EF 3COO 1020
CMP
Al,o iSCAN CODE
=
O?
E4Fl 7419
1021 JE J YES - CONTINUE TESTING
'5
'7
E4F3 8AE8 1022 MOV eH,Al .SAVE SCAN CODE
E4F5 BI04 1023 MOV Cl,4
E4F7 02E8 1024 5H. Al,el
iRIGHT-JUSTIFY HIGH BYTE
E4F9 E89CFF
1025 CAll XlAT_PIHHT_CODE
j
CONVERT AND PRINT
E4FC 8AC5 1026 MOV Al.CH JRECOVER SCAN CODE
E4FE 240F 1027 AND Al.OFH iISOlATE LOW ORDER BYTE
E500 E895FF 1028 CAll XlAT_PRINT_CODE I CONVERT ANO PRINT
E503 BEA7E4
1029
F6:
MDV 5I.OFFSET F 1
;GET MSG AOOR
E506 B90400 1030
MOV
CX,F1l ;GET HSG BYTE COUNT
E509 E86E01 1031
CAll
P_HSG i PRINT MSG ON SCREEN
1032
1033
SETUP INTERRUPT VECTOR TABLE
1034
ESOC 1035 F7: ; SE1UP_lNT_TABlE:
E50C 2BCO 1036
SUB
AX,AX
£50£ 8ECO 1037 MOV ES,AX
"..........
£510 B93000 1038 MOV CX,24*Z:
;GET VECTOR CNT
E513 OE 1039 PUSH CS
iSETUP OS SEG REG
E514 IF
1040
POP
OS
£515 BEnF£
1041
MOV SI.OFEF3H
; OFFSET VECTOR_TABLE
E518 BF2000 1042
MOV
OI.OFFSET INT_PTR
E51B FC 1043
CLD
E5lC F3 1044
.EP
HOV5W
E51D AS
A-IS