IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

LOC OBJ LINE SOURCE
97. ;--------------------------------------­
97. ; INITIAL RELIABILITY TEST -- PHASE 4
97. ;--------------------------------------­
977 ASSUME CS:COOE ,OS: DATA
E4A7 20333031 97. '1 DB • 301'
0004 97. EQU $-FI J KEYBOARD MESSAGE
E4A8 313331 980 DB '131'
"L EOU t-F2 i CASSETTE MESSAGE
E4AE 363031 982 F3 O' '601 '
".......... 0003 9Bl "
•••
'IL
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 '0123456789ABCDEF'
37383941424344
.546
991 .-------------------------------------------­
9'2 HEST.12
9.J KEYBOARD TEST
99. ;DESCRIPTION
E4C7 '.B TSTl2:
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 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 '6
i PRINT ERR HSG IF NO INTERRUPT
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?
"..........
1009
E40F 7522 1006 JHE F. iNO - DISPLAY ERROR HSG
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 '5
;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 '7
J YES - CONTINUE TESTING
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