IBM 5170 Technical Reference page 194

0023 E6 Al OUT I NT801 ,AL WRITE TO 2ND IMR
0025 EB 00
JMP SHORT $+2 10 DELAY
0027
0029
E4 21
8A EO
IN
MOV
AL, I NTAOl
AH,AL
READ IMR
SAVE RESULTS
002B E4 Al IN
AL, I NTBOl READ 2ND IMR
0020 05 0001
ADD
AX,1 ALL IMR BIT ON?
0030 75 15 JNZ 06
NO - GO TO ERR ROUT I NE
; ----­ CHECK FOR HOT INTERRUPTS
;----­ INTERRUPTS ARE MASKED OFF. CHECK THAT NO INTERRUPTS OCCUR.
0032 A2 00613 R
MOY
I
NTR~FLAG,
AL ; CLEAR I NTERRUPT FLAG
0035 BO 26 MDV AL,26H
; <><><><><><><><><><><><><><>
0037 E6 80
OUT
MFG_PORT, AL
; <><><>CHECKPO I NT 26 <><><><>
0039 FB
STI
ENABLE EXTERNAL INTERRUPTS
003A
003C
2B C9
E2 FE D4;
SUB
LOOP
CX,CX
Du
WAIT 1 SEC FOR ANY INTRS THAT
MIGHT OCCUR
003E E2 FE D5: LOOP 05
0040
0045
80 3E 006B R 00
74 00
eM'
JZ
I NTR FLAG. DOH
07 -
DID ANY INTERRUPTS OCCUR?
NO - GO TO NEXT TEST
0047 c6 06 0015 R 05 06: MDV
<><><><><><><><><><><><><><>
<><>CHECKPO! NT 5<><><><><><>
004C BE 0000 E MOV 51,OFFSET EO DISPLAY 101 ERROR
004F
0052
E8 0000 E
FA
D6A: CALL
eLi
E_MSG
0053 F4
HLT
HALT THE SYSTEM
;-------CHECK THE CONVERTING LOGIC
0054 BO 27 07: MOV
AL,27H
; <><><><><><><><><><><><><><>
0056 E6 80 OUT MFG_PORT, AL ; <><><>CHECKPO I NT 27 <><><><>
0058 B8 AA55 MOV
AX,OAA55H
005B E7 82 OUT MFG_PORT+2,AX
WRITE A WORD
0050 E4 82 IN AL,MFG_PORT+2 GET THE FIRST BYTE
005F 86 C4 XCHG AL,AH SAVE IT
0061 EB 00 JMP SHORT $+2 10 DELAY
0063 E4 83 IN AL, MFG_PORT+3 GET THE SECOND BYTE
0065 3D 55AA CMP AX,55AAH IS IT OK?
0068 74 05 JZ D7_A GO I F YES
006A BE 0000 E MOV S I • OFFSET CM4_A DISPLAY 106 ERROR
0060 E8 EO
JMP
D6A
;------- CHECK FOR HOT NMI INTERRUPTS WITHOUT la/RAM PARITY ENABLED
006F
006F 2A CO
SUB
AL,AL SET FLAG TO ZERO
0071 £6 80 OUT MFG_PORT, AL SAVE IT
0073 BO Of
MOV
AL,OFH
TURN ON NM I
0075 E6 70 OUT CMOS_PORT, AL
0077 89 OOFF
MOV
CX,OOFFH
DELAY
007A E2 FE 07_8: LOOP 07_B
007C BO 8F MOV AL,8FH TURN OFf NMI
007E E6 70 OUT CMOS PORT, AL
0080 E4 80 IN AL,MFG_PORT ANY NMI?
0082 OA CO OR AL,AL
0684 74 09 JZ 07_C CONT I NUE 1 F NOT
0086 BO 28 MOV AL,28H ; <><><><><><><><><><><><><><>
0088 E6 80 OUT
MFG_PORT ,AL
; <><><>CHECKPOI NT 28 <><><><>
008A BE 0000 E MOV
SI,OFFSET CM4_B
DISPLAY 107 ERROR
0080 EB CO
JM'
D6A
;
------~
TEST THE DATA BUS TO T I MER 2
008F BO 29 D7_C: MOV Al,29H ; <><><><><><><><><><><><><><>
0091 E6 80 OUT MFG PORT .AL ; <><><>CHECKPO I NT 29 <><><><>
0093 EI~ 61
IN AL, PORT_B GET CURRENT SETT I NG OF PORT
0095 8A EO MOV AH,AL SAVE THAT SETTING
0097 EB 00
JMP SHORT $+2 10 DELAY
0099 24 FC
AND AL,OFCH
I NSURE SPEAKER OFF
009B E6 61 OUT PORT_B,AL
0090 BO BO
MOV AL,lOllOOOOB
SEL TIM 2,LSB,MSB,BINARY,MODE 0
009F E6 43 OUT TIMER+3,AL WRITE THE TIMER MODE REG
OOAl EB 00
JMP SHORT $+2 10 DELAY
00A3 B8 AA55 MOV AX,OAA55H WRITE AN AA55
00A6 E6 42 OUT TIMER+2,AL WRITE TIMER 2 CNT - LSB
00A8 EB 00 JMP SHORT $+2 10 DELAY
OOAA
SA
C4 MOV
AL,AH
OOAC E6 42 OUT T IMER+2,AL WRITE TIMER 2 CNT - MSB
OOAE EB 00 JMP SHORT $+2 10 DELAY
OOBO E4 42 IN AL, TIMER+2 GET TIlE LSB
00B2 86 EO XCHG AH,AL SAVE IT
00B4 EB 00
JM'
SHORT $+2 10 DELAY
00B6 E4 42
IN AL, TlMER+2
GET THE MSB
00B8 3D 55AA
eM'
AX,055AAH BUS OK?
OOBB 74 05 JZ
07_0
GO I F OK
OOBD BE 0000 E
MDV
SI,OFFSET CM4_C 01 SPLAY 108 ERROR
OOCO EB 80
JM'
o6A
TEST.18
8253 T I MER CHECKOUT
OEseR I PT! ON
VERifY THAT THE SYSTEM TIMER
to)
DOESN'T COUNT
TOO FAST OR TOO SLOW.
00C2 BO 2A
D7~D:
f/,OV AL,2AH
<><><><><> <><> <><><><><><><>
00C4 E6 80 OUT MFG_PORT, AL <><><>CHECKPO I NT 2A <><><><>
OOC6 FA
eLi
OOC7 BO FE MOV AL,OFEH MASK ALL IIHRS EXCEPT LVl
a
OOC9 E6 21 OUT I NTA01, AL WRITE THE 8259 IMR
OOCB BO 10
MOV
AL, 0001 00006 SEL TIM
0,
LSB, MODE
0,
BINARY
OOCD E6 43 OUT T IM_CTL,AL
WR I TE T I MER CONTROL MODE REG
OOCF B9 002C MOV CX,16H*2 SET PGM LOOP CNT
0002 EB 00 JMP SHORT $+2
10 DELAY
0004 8A C1 MOV AL,CL SET TIMER
a
CNT REG
0006 E6 40 OUT TlMERO,AL WR I TE 11 MER 0 CNT REG
0008 FB STI
0009 F6 06 006B R 01 08: TEST INTRJLAG,OlH
5-52 Test 2