IBM 5170 Technical Reference page 216

0070 En
65
90 JMP TEST_EXC ; GO TEST IF EXCEPTION WAS EXPECTED
0073
0073 60
A2 MOV AL,OA2H ; <><><>5ET CHECK PO I NT<><><><>
0075 E6
60
90
JMP
TEST_EXC
; GO TEST IF EXCEPTION WAS EXPECTED
0078
0078 BO A3 MOV AL,OA3H ; <><><>SET CHECKPO f NT<><><><>
007A EB 5B 90 JMP TEST_EXC ; GO TEST IF EXCEPTION WAS EXPECTED
0070
0070
007F
60 A4
E6
56
90
MOV
JMP
AL,OAI.H
TEST_EXC
; <><><>SET CHECKPO I NT<><><><>
; GO TEST IF EXCE PT I ON WAS EXPECTED
0082
0082
0084
BO
A'y
EB 51 90
MOV
JMr
AL,OASH
TEST_EXC
; <><><>SET CHECKPO
r
NT<><><><>
; GO TEST IF EXCEPTION WAS EXPECTED
0087
0087
0089
BO
A6
EB 4C 90
MOV
JMP
AL,OA6H
TEST_EXC
; <><><>5ET CHECKPO
r
NT<><><><>
; GO TEST
IF
EXCEPTION WAS EXPECTED
D08C
008C 60 A7
MOV
AL,OA7H ; <><><>SET CH£CKPO I NT<><><><>
008E EB 47 90 JMP TEST_EXC ; GO TEST IF EXCEPTION WAS EXPECTED
0091
0091 80 A8
MOV AL,OA8H
; <><><>SET CHECK PO I NT<><><><>
0093 E6 42 90 JMr TEST_EXC ; GO TEST I F EXCEPTION WAS EXPECTED
0096
0096 BO A9 MOV Al,OA9H
; <><><>SET CHECKPO I NT<><><><>
0098 EB 3D 90 JMP TEST_EXC ; GO TEST IF EXCEPTION WAS EXPECTED
009B
009B BO AA
MOV
Al,OAAH
; <><><>5ET CHECKPO I NT<><><><>
0090 EB 38 90 JMP TEST_EXC ; GO TEST
r
F EXCEPTION WAS EXPECTED
OOAO
OOAO 60 Ail MOV AL,OABH ; <><><>SET
CHECK
PO
I
NT<><><><>
OOA2 EB 33 90 JMP
TEST_EXC
; GO TEST I F EXCEPTION WAS EXPECTED
OOAS
OOA5 60 AG MOV AL,OACH ; <><><>5ET CHECKPO I NT<><><><>
00A7 EB 2E 90
JMP TEST_EXC ; GO TEST I F EXCEPTION WAS EXPECTED
OOAA
OOAA
OOAC
BO AD
EB
29
90
MOV
JMP
Al,OADH
TEST_EXC
; <><><>$ET CHECKPO
I
NT<><><><>
; GO T£ST I F EXCEPTION WAS EXPECTED
OOAF
OOAF BO AE
MOV AL,OAEH
; <><><>5ET CHECKPO I NT<><><><>
OOBl EB 24 90 JMP TEST_EXC ; GO TEST
I F
EXCEPTION WAS EXPECTED
UOB4
00B4 BO AF
MOV AL,OAFH
; <><><>S£T CHECKPO I NT <><><><>
0066 En 1 F 90
JMP
TEST_EXC ; GO TEST I F INTERRUPT WAS EXPECTED
00B9
00B9 BO BO
MOV AL,OBOH
:<><><>SET CHECKPOINT<><><><>
OOBB EB 1A 90 JMr
TEST_EXC
; GO TEST I
f-"
INTERRUPT WAS EXPECTED
OOBE
OOBE
ooeo
BO Bl
EB
15
90
MOV
JMP
AL,OBlll
TEST_EXC
;<><><>5ET CHECKPOINT<><><><>
; GO TEST I F INTERRUPT WAS EXPECTED
00C3
00C3 BO B2 MOV AL,OB2H ; <><><>SET CH[CKPO I NT<><><><>
DOCS EB 10 90 JMP TEST_EXC ; GO TEST IF I!iTERRU PT WAS EXPECTED
00C8
OOC8
OOCA
BO 83
EB OB 90
MOV
JMP
AL,OB3H
TEST_EXC
;<><><>SET CHECKPOINT<><><><>
; GO TEST I F I NTERRUPT WAS EXPECTED
OOCD
OOCD BO B4 MOV AL,OB4H ; <><><>SET CHECKPOINT<><><><>
OOCF EB 06 90 JMP
TEST_EXG ; GO TEST I
F
I NTERRUPT WAS EXPECTED
0002
0002 BO B5 MOV AL,085H ; <><><>SET CHECKPO
f
NT<><><><>
0004 EB 01 90 JMP TEST_EXC ; GO TEST 'F I NTERRUPT WAS EXPECTED
0007 TEST EXC:
OOD7
0(')[)9
OODB
E6 80
3C
AE
77 22
- OUT
eMP
JA
MFG_PORT, AL
AL,OAEH
TEST_EXCO
OUTPUT THe CH(CKPOINT
CHECK FOR EXCEPTION
GO I F A SYSTEM INT
0000 1 E
PUSH OS SAVE THE. CURRENT DATA SEGMENT
OODE 50 PUSH
AX
OODF
00E2
B8 0008
8E 08
MOV
MOV
AX,GDT PTR
DS,AX - ,
OO£lf
OOEA
DOEF
C7 06 0048
C6 06 0040
B8 00
1
18
FFFF
93
MOV
MOV
MOV
DS:ES TEMP.SEG LIMIT,MAX SEG LEN
BYTE PTR DS:(ES TEMP. DATA Ace RIGHTS),CPLO DATA ACCESS
AX, ES_TEMP - - - - ­
00F2 8E CO MOV ES,AX
00F4 S8 POP AX RESTORE REGS
OaFs 1F
POP OS
00F6 SA POP DX CHECK I F CODE SEC SECOND ON STACK
00F7 S9 POP
ex
OOF8
Sl
PUSH
ex
00F9
OOFC
00 F E
83 F9 40
75 01
52
eMP
JHZ
PUSH
CX, SYS ROM CS
TEST [XeD -
OX -
CONTINUE IF ERROR CODE
PUT SEGMENT BACK ON STACK
DOFF
TEST EXCO:
~OFF
86 EO
- XCHG
AH,AL SAVE THE CHECKPOI NT
0101
0103
E4 8B
3A C4
IN
eMP
AL, DMA PAGE+OAH
AL, AH -
WAS THE EXCEPT! ON EXPECTED?
0105 74 DE JZ TEST_EXC3 GO I F YES
0107
TEST EXC':
0107 E4 80 IN AL, MFG PORT CHECK THE CURRENT CHKPT
0109 3C 3B eMP AL,03BH HALT IF CHKPT BELOW 3BH
010B 72 01 JH TEST_EXC2
0100 CF
I
RET
OlOE
TEST EXCZ:
010E 86 EO
- XCHG
AH,AL OUTPUT THE CURRENT CHECKPO I NT
0110 E680 OUT MFG_PORT,AL <><><> CKPT 90 rHRU B5­ <><><>
0112 F4 HL T
0113 EB F9 JMP TEST_EXC2 1NSURE SYSTEM HALT
0115 TEST_EXC3 :
011S 2A CO
SUB
AL,AL CLEAR oMA PAGE
0117 £68£5
OUT DMA_PAGE+OAH, AL
0119 B8 0100 MOV AX,0100H USED FOR BOUND I NSTR EXPECTED I NT5­
all C CF IRET RETURN
0110 CODE ENDS
END
5-74 Test 5