IBM 5170 Technical Reference page 213

0100
OlOE
Cf IRET
INT_287 END?
; RETURN
;--HAIIDWAI(E INT
9
(LEVEL 71H) --.----------------------­
; REDIRECT SLAVE INTERRUPT 9 TO INTERRUPT LEVEL 2
THIS ROUTINE FI ELDS LEVEL
9
INTERRUPTS AND
CONTROL
010E
RE_D I RECT PRQe
010E 50
PUSH
010F
80 20 MOV
0111 E6 AO
OUT
0113 5.
POP
0114 CO OA
INT
0116
Cf I RET
0117 RE_DIRECT ENor
,..-.....
PR I NT A
OX MUST
0117 PRT _SEG PRoe
0117 8A C6
MOV
0119 E8 0000 E CALL
011C 8A C2 MOV
011 E
[8 0000 E
CALL
0121 BO 30 MOV
0123 [8 0000 [
CALL
0126
BO
20
MOV
0128 E8 0000 [ CALL
0126 C3 RET
012C PRT_SEG ENDP
012C CODE ENOS
END
I S PASSED TO MASTER
I
NTERRUPT LEVEL 2
NEAR
AX
SAVE AX
Al, EOI
INTBOO, AL EO I TO SLAVE I NT CONTROLLER
AX
RESTORE -AX
DAM
GIVE CONTROL TO HARDWARE LEVEL 2
RETURN
SEGMET VALUE TO LOOK LIKE A 21
81
T ADDRESS
CONTAIN SEGMENT VALUE TO BE PRINTED
NEAR
AL,DH GET MSB
XPC_BYTE
AL,DL L5B
XPC BYTE
tiL TO' PRINT A '0
PRT
HEX
\L
T ,
SPACE
PRT_HEX
Test 4 5-71