EasyManua.ls Logo

IBM 5150 - Running Diagnostic Test

IBM 5150
393 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
•••
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

Table of Contents

Other manuals for IBM 5150

Related product manuals