IBM 5150

LOC OBJ LINE SOURCE
£408 58 .72
POP BX
; RESTORE REGS
£409 59
.73
POP
ex
E40A 74f6
'74
J CHECK I F MOP E STG TO TEST
J'
"1
.75
976 J----- PRINT FAILING ADDRESS A"" XQR'ED PATTERN IF DATA COt1PAr.!E EIHIOR
'77
E40e BCDA .78 MOV
OX.OS
;
CONVERT FAILING HIGH-ORDER
E40E
8Afa
HOV CH.AL i SAVE FAILING BIT PATTERN
'7'
E410 aAC6 980
HOV AL.DH
I GET FAILING ADDR
E412 E61002
'81
CALL XPC_BYTE
;
CONVERT AND PRINT CODE
£415 8ACS
'B2
HOV AL.CH i GET FAILING BIT PATTERN
f417 E80B02 .B3
CALL XPC_BYTE
;
CONVERT AND PRINT CODE
f41A BE67FA90
HOV SI.OFfSET El
; SETUP ADDRESS OF ERROR HSG
'B'
E41E
E89902 9BS
CALL P_HSG
; PRINT ERROR HSG
E421 E22:
'8'
E421 EB18
'87
JMP SHORT TST12
;
GO TO NEXT TEST
E423
'BB
E23:
j STG_ TEST _DOHE
E423 IF
POP OS
I POINT as TO DATA SEGMENT
'B.
E424 IE
PUSH OS
'90
E425 66161500
'91
HOV OX,IO_RAM_SIZE
i GET 10 CHAHNE L RAM SIZE
E429 OB02 992 OR DX,OX i SET flAG RESULT
E42B 740E
993
JZ TSTl2
i NO 10 RAM. GO TO NEXT TEST
E420 890000 .94
MOV CX,O
E430 81FB0010 995 CMP ex, 1 (lOOH i HAS 10 RAM' BEEN TESTED
E434
7705 .96 JA TSTl2 I YES - GO TO NEXT TEST
£436 BBOOI0
.97
HOV ex.l OOOH
I SETUP BEG LOC FOR 10 RAM
E439 EBB7 99B
JMP
i GO TEST 10 CHANNEL RAH
"1
99.
,--- - --- --------~- - ~ -- --- ---- -- ---- -- ----- - -- -- -- --- -- ---
1000
KEYBOARD TEST
1001 ; DESCRIPTION
1002 RESET THE KEYBOARD AND CHECK THAT SCAN CODE
1003 'AA' IS RETURNED TO THE cpu. CHECK FOR STUCK
1004 KEYS.
1005 ; ------------------- ____________________________________ _
1006 ASSUME OS:DATA
E438
1007 TSTl2:
E438 1 F
100&
POP
E43C 603E120001
1009
eMP
; MANUFACTURING TEST MODE?
E441 742"
1010
F7
I YES - SKIP KEYBOARD TEST
J'
E443 E6FOOl
lOll
I ISSUE SOFTWARE RESET TO KEYBRD
E446 E31E
1012
JCXZ F6
I PRINT ERR MSG IF NO INTERRUPT
E448 B040
1013
MOV AL,40H
i ENABLE KEYBOARD
E44A E661
1014
OUT PORT_B.AL
E44C BOFBAA
1015
CMP Bl.OAAH
I SCAN CODE AS EXPECTED?
E44F
7515
1016
JNE F6
,
NO - DISPlAY ERROR HSG
1017
1018
i----- CHECK FOR STUCK KEYS
1019
f451 Boee
1020
I10V
AL,OCCH
I CLR KBD, SET CLK LIHE HIGH
f453 E661
1021
OUT
PORT_B.Al
E4SS B04e
1022
MOV AL,4tH
I ENABLE KBD ,eLK IN NEXT BYTE
f457 E661
102]
OUT PORT_B.Al
£459 28C9
1024
SUB CX,CX
E458
1025
F5:
I KBD_WAIT
E458 E2FE
1026
lOOP F5
; DELAY fOR A WHILE
E450 £460
1027
IN AL.KBD_IH
I CHECK fOR STUCK KEYS
f45F 3eoo
1028
CHP AL,a
; SCAN CODE = O?
E461 740.1
1029
JE F7
I YES - CONTINUE TESTING
E463 E88F01
1030
CALL XPC_BYTE
;
CONVERT At«) PRINT
E466 BEHFF90
1031
F6:
MOV SI.OFFSET F1
I
GET HSG ADDR
E46A E64002
1032
CALL P _HSG
; PRINT HSG ON SCREEN
1033
1034 j----- SETUP INTERRUPT VECTOR TABLE
1035
£460
1036 F7:
E460 ZBca
1037
SUB
AX,AX
E46F
8EtO
1038
MOV
ES.AX
f471 890800
MOV
I VECTOR
1039
CX,8
GET CNT
E474 IE
1040
PUSH Os
;
SAVE DATA SEGt'lENT
£475 DE
1041
PUSH eS
i SETUP OS SEG REG
E476 IF
1042
POP OS
E477 BEFlFE90
1043
MOV SI.OFFSET VECTOR_TABLE
E478 8F2:000
1044
I10V
Dr .OFFSET INT_PTR
£47£
1045
F7A:
E47E AS
1046
MOVSW
f47F 47
1047
INC
01
I SKIP OVER SEGt1ENT
E460 47
1048
INC DX
System BIOS 5-43