IBM 5150 Technical Reference page 136

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