IBM 5170 Technical Reference page 193

TITLE 01/03/84 TEST2 POWER ON SELr TEST
.LIST
PUBliC C21
PUBL I C SHUT2
PUBL I C SHUT3
PUBLIC SHUT4
PUBL I C SHUT6
PUBLIC SHUT7
PUBL I C POST2
I NCLUDE SEGMENT. SRC
0000
CODE SL.:GMENT BYTE PUBLIC
EXTRN H5: NEAR
EXTRN POST7: NL.:AR
EXTRN SET_TOO: NEAR
EXTRN
EO: NEAR
101 ERROR CODE
EXTRN
EO A: NEAR
102 ERROR CODE
£XTRN
ED=B: NEAR
103 ERROR CODE
EXTRN VIR ERR:N[AR
104 ERROR CODE
EXTRN CM4:NEAR
105 ERROR CODE
EXTRN CM4_A: NEAR
106 ERROH CODE
EXTRN CM4_B: NEAR
107 ERROR CODE
EXTRN CM4_C: NEAR
108 ERROl{ CODE
EXTRN CM4_D: NEAR
109 ERROH CODE
EXTRN CMl :NEAR
161 ERROi\ CODE
EXTRN
CM2:NEAR
162 ERROf;: CODE
EXTRN CM3: NEAR
163 ERROR COOL.:
[XTRN
El_A: NEAR
164 ERROR CODE
EXTRN El;NEAR
201 ERROR CODE
EXTRN ADERR1: NEAR
202 ERROR CODE
EXTRN
AD[RR:NEAR
203 ERROR CODE
301 ERROR CODE
EXTRN lOCK: NEAR
302 ERROR CODE
EXTRN
303 ERROR CODE
£XTRN F1: NEAR
F'_A: NEAR
EXTRN Fl_B:NEAR
304 ERROR CODE
EXTRN
El B:NEAR
401 ERROR CODE
EXTRN E(::C: NEAR
501 ERROR CODE
EXTRN F3: NEAR
601 ERROR CODE
EXTRN KBD RESET:NEAR
EXTRN GAT"CA20:NEAR
EXTRN E..MSG: NEAR
EXTRN XPC BYTE:NEAR
EXTRN VEc-foR. TABLE: NEAR
EXTRN SLAVE VECTOR TABLE: NEAR
EXTRN NMI_INT:NEAR­
EXTRN PRINT sCREEN:NEAR
EXTRN Bli NK-I NT: NEAR
EXTRN PRT HEX: NEAR
EXTRN F3B:NEAR
EXTRN PRT SEG: NEAR
EXTRN XPC=BYTE:NEAR
EXTRN ROM_CHECK: NEAR
[XTRN ROS CHECKSUM: NEAR
EXTRN SEEK:NEAR
EXTRN ERR BEEP: NEAR
EXTRN P _MSG: NEAR
EXTRN START _ 1 : NEAR
EXTRN r4; NEAR
EXTRN F4E: NEAR
EXTRN F3A: NEAR
EXTRN DiSK_BASE: NEAR
EXTRN F30: NEAR
EXTRN F301: NEAR
EXTRN PROC_SHUTDOWN: NEAR
EXTRN SYS I N I T1: NEAR
EXTRN PROT_PR1_HEX:NEAR
EXTRN DISK_IO:NEAR
EXTRN HD I NT: NEAR
EXTRN C8042:NEAR
EXIRN OBF 42:NEAR
EXTRN STGTST CNT; NEAR
EXTRN BOOT STRAP 1: NEAR
EXTRN XMIT-804?: NEAR
EXTRN ROM ERR:NEAR
EXTRN OOS:NEAR
EXTRN DISK_SETUP:NEAR
EXTRN OSKETTE_SETU P: NEAR
;
~-~
-------
--
-------
- --
-----
- -- -- -
----------------------­
TEST. 17
8259 I NTERRU PT CONTROLLER TEST
DESCR I PT I ON
READ/WRITE THE INTERRUPT MASK REGISTER (IMR)
WITH AI L ONES AND ZEROES. ENABLE SYSTEM
INTERRUPTS. MASK DEVICE I NTERRUPTS OFF. CHECK
FOR HOT INTERRUPTS (UNEXPECTED).
ASSUME CS:CODE
ASSUME DS;DATA
0000 POST2 PROC NEAR
0000 BO OA C21 : MOV AL,10
; LINE rEED ON CRT
0002
£8 0000 E CALL PRT_HEX
0005 £8 0000 E
CAl L DDS ;SET DATA SEGMENT
; ----- TEST THE IMR
REGI STERS
,,-....,
0008
rA
C21A;
eLi TURN OFF INTERRUPTS
0009 BO 00
MOV
AL,O
SET I MR TO ZERO
OOOB £6 21
DOT
INTA01,AI
0000 £6 A1 DOT
INTB01,AL
SEND TO 2ND I NT
Door EB 00 JMP
SHORT $+2
0011 E4 21
IN
AL, I NTA01
READ I MR
0013
8A EO
MOV
AH,AL SAVE RESULTS
0015 E4 Al
IN
Al, I NTBOl
READ 2ND IMR
0017
OA EO
OR
AH,AL
BOTH I f>IR :.: O?
0019 75 2C
JNZ
D6
GO TO ERR ROUT I NE I F NOT 0
001B BO 25
MOV
AI,25H
: <><><><><><><><><><><><><><>
0010 E6 80 OUT
MFG_PORT, AL
; <><><>cHECKPO I NT 25 <><><><>
001 F
BO FF ~1OV
AL,OFFH
; 0 I SABLE DEV I CE INTERRUPTS
0021 E6 21
OUT
I NTA01, AL
; WRITE TO IMR
Test 2 5-51