IBM 5170 Technical Reference page 215

0000
0000
0000
0000
0002
0005
0005
0007
OOOA
OODA
00 DC
OOOF
OOOF
0011
0014
0014
0016
0019
0019
001A
0010
001 F
0021
0026
002C
0020
002F
0032
0032
0034
0037
0017
0039
003C
003C
003E
0041
0041
0043
0046
0046
0048
004B
004B
0040
0050
0050
0052
0055
0055
0057
005A
005A
OOSC
005F
005F
0061
0064
0064
0066
0069
0069
006B
006E
006E
BO
E9
SO
E9
BO
E9
BO
E9
BO
E9
06
B8
BE
28
26:
26:
07
BO
£9
BO
E9
BO
E9
BO
E9
BO
E9
BO
E9
60
E9
BO
E9
BO
EB
BO
EI3
80
EB
BO
EB
BO
EB
BO
90
0007 R
91
0007 R
92
0007 R
93
0007
R
94
0007
R
0048
CO
FF
C7 05 0000
C7 45 02 7FFF
95
0007 R
96
0007
R
97
0007
R
98
0007 R
99
0007 R
9A
0007 R
9B
0007 R
9C
0007 R
90
7 E 90
9E
79 90
9F
74 90
AO
6F 90
Al
6A 90
A2
TITLE 12/16/83 TESTS
EXCEPT I ON I NTERRU PT HANDLER
• LIST
PUBLIC
POSTS
PUBLIC
EXC_OO
PUBU C EXC_Ol
PUBLIC EXC_02
PUBLI C
EXC_03
PUBLIC EXC_04
PUBLIC
EXC_05
PUBLIC EXC_06
PUBLIC EXC_07
PUBL I C EXC 08
PUBLIC
EXC=09
PUBLIC EXG_ 10
PUBLI C EXC_11
PUBLI C EXC_ 12
PUBLI C EXC_ 13
PUBLIC EXC_14
PUBLIC EXC 15
PUBLIC EXC=16
PUBL I C EXC_17
PUBLIC EXC_18
PUBL I C EXC_19
PUBLI C EXG_20
PUBLI C EXG_21
PUBLI C £XC_22
PUBLIC EXC_23
PUBLIC EXC_24
PUBLIC EXC_25
PUBLIC EXC_26
PUBLIC EXC 27
PUBLI C EXC::28
PUBLI C
EXC_29
PUBLIC
PUBLIC
~~g3~
PUBL I C SYS_32
PUBL I C SYS_33
PUBL I C SYS_34
PUBL I C SYS_35
PUBLIC SYS_36
PUBLIC SYS_37
PUBL I
C
SYS_38
I NCLUDE SEGMENT. SRC
CODE SEGMENT BYTE PUBLIC
;
~~~--- -----~-------~~------------~~-----
EXCEPT I ON I NTERRU PT ROUT I NE
j - - - - - - - - - - - - - - - - . - - - - - - - - - - - - - - - - - - - - - - ­
ASSUME
CS: CODE, DS:ABSO
POST5:
EXC_OO:
MOV
AL,90H
JMP
TEST_
EXC
;
<~~>~~~V
I
iH~~~~~+~~~>~~~>~~PECTED
EXC_Ol :
MOV AL.91H
JMP
TEST_EXC
;
<~~>~~~r
I
~H~~~~+ n~>~~~>~~PECTED
EXC_02:
MOV
Al,92H
; <><><>5ET CH[CKPO
I
NT<><><><>
JMP
TEST_EXC ; GO TEST
!
F EXCEPT I ON WAS EXPECTED
EXC_03:
MOV AL,93H
;<><><>SET CHECKPOINT<><><><>
JMP
TEST
-
EXC
; GO TEST IF EXCEPTION WAS EXPECTED
EXC_04 :
MOV AL,94H
; <><><>5£T CHECKPO! NT<><><><>
JMP TEST
- EXC
; GO TEST
I
F EXCEPT I ON WAS EXPECTED
EXC_OS:
PUSH
ES
MOV
AX, ES_TEMP
LOAD ES REG
1
STER
MOV ES,AX
;
-------
FIX BOUND PARAMETERS
SUB
MOV
01, DI
WORD PTR [5:(011.0
POINT BEGININO OF THE BLOCK
SET FIRST WORD TO ZERO
MOV
WORD
PTR ES:[DI+21,07FFFH ; SET SECOND TO 07FFFH
POP
ES
MOV AL.95H
; <><><>S£T CHECKPO I NT<><><><>
JMP
TEST_EXC
; GO TEST 1 F EXCEPT I ON WAS EXPECTED
EXC_06:
MOV
JMP
AL,96H
TEST_EXC
; <><><>SET CHECKPO I NT<><><><>
; GO TEST I
F
EXCEPT I ON WAS EXPECTED
EXC_07 :
MOV
JMP
AL,97H
TEST_EXC
; <><><>SET CHECKPO I NT<><><><>
; GO TEST
I
F EXCEPT I ON WAS EXPECTED
EXC_OB:
MOV
JMP
AL,98H
TEST_EXC
; <><><>SET CHECKPO I NT<><><><>
; GO TEST I F EXCEPT I ON WAS EXPECTED
EXC_09:
MOV AL.99H
; <><><>SET CHECKPO
I
NT<><><><>
JMP
TEST_EXC ; GO TEST
I
F EXCEPTION WAS EXPECTED
EXC _10:
MOV
JMP
AL,9AH
TEST_EXC
; <><><>SET CHECKPO I NT<><><><>
; GO TEST,
F
EXCEPTION WAS EXPECTED
EXC
_11:
MOV
JMP
AL , 9BH
TEST_EXC
; <><><>S£T CHECKPO I NT<><><><>
; GO TEST IF EXCEPTION WAS EXPECTED
EXC
-
12:
MOV
JMP
AL,9CH
TEST_EXC
; <><><>SET CHECKPO I NT<><><><>
; GO TEST IF EXCEPTION WAS EXPECTED
EXC -
13:
MOV AL.9DH
; <><><>SET CHECKPO I NT<><><><>
JMP TEST_EXC
; GO TEST I F EXCEPTION WAS EXPECTED
EXC_14:
MOV
JMP
AL,9EH
TEST_EXC
; <><><>SET CHECKPOI NT<><><><>
; GO TEST I F EXCEPTION WAS EXPECTED
EXC _1S:
MOV
JMP
AL,9fH
TEST_EXC
; <><><>SET CH(CKPO I NT<><><><>
; GO TEST I F EXCEPT ION WAS EXPECTED
EXC_16:
MOV
AL.OAOH
; <><><>5ET CHECKPO I NT<><><><>
JMP
TEST_EXC ; CO TEST IF EXCEPTION WAS EXPECTED
EXC
-
17:
Mav
JMP
AL,OA1H
TEST_EXC
; <><><>5ET CHECKPO I NT<><><><>
; GO TEST IF EXCEPTION WAS EXPECTED
EXC~18:
MOV
AL,OA2H ; <><><>S£T CHECKPO I NT<><><><>
Test 5 5-73