IBM AT 5170 Technical Reference page 248

Table of Contents

Advertisement

IBM Per-sonal Comput .... MACRO Assemble...
V., ... alon 2.00
, -2
T£ST3 - --- 06/10' 8S
POST EXCEPT I ON I NTERRUPT TESTS
06-10-85
1150058E680
OUT
MFG PORT ,AL
:
<><>
CHECKPOINT
F2
<><>
I 16
005A BO 90
MOV
AL,9DH
;
SET
INTERRUPT
!
3
FLAG
1 17
005e E6 8B
OUT
OMA
~PAGE+
OAH. AL
;
FOR THE I NTERRUPT HANDLER
II.
;
-----
MODIFY DESCRIPTOR TA8LES
"'
SET TEMPORARY ES DESCRIPTOR TO SEGMENT LIMIT
120
121
122
005E C1 06 0048 0000
MOV
OS:ES_TEMP.SEG_LIMIT,O; SET SEGMENT TO 0
123
12'
CPLO. DATA ACCESS RIGHTS
125
126
0064 C6 06 0040 93
MOV
8YTE PTR OS: IES TEMP.OATA ACC RIGHTS) ,CPLO DATA ACCESS
127
0069 C6 06 004C 0'
MOV
BYTE PTR os:
IES~TEMP.8ASE-H[
BYTE) ,01
r DO ALL-TESTS ON 2ND 64K
128
006E C7 06 004A 0000
MOV
WORD PTR OS: I ES:TEMP. BASE=:LO':::WORD ) ,0
12'
130
SET ES REGISTER
131
132
0074 6A 48
PUSH
8YTE PTR ES TEMP
; LOAD ES
133
0016 07
POP
ES
­
134
135
CAUSE AN EXCEPT I ON
13 INTERRUPT
13.
131
0071 2B FF
SUB
01.01
138
0079 26: 8B as
MOV
AX,ES:[OIJ
TH I S SHOULD CAUSE AND EXCEPT I ON
139
007C 28 C9
SUB
CX,CX
WA I T FOR ! NTERRUPT
140
007E E4 88
LOOP2:
AL,OMA FAGE+OAH
141
0080 22 CO
ANa
AL, AL -
DID THE INTERRUPT OCCUR1
142
0082 EO FA
LOOPNZ
LOOP2
143
0084 74 03
JZ
T1 3
CaNT I NUE I F
INTERRUPT
144
0086 E9 02CO R
JMP
ERROR_EXIT
MISS I NG INTERRUPT
'N
'.5 ,
..
.
---- - - - - - -
-- ---------- -
---------------- ­
,.7
,
..
I
VER 1 FY 286 LOT
I
SOT UR / S TR
...
I
;
I NSTRUCT IONS
'50
OESCR I pT I ON
lSI
LOAD LOT
REG I STERS WITH A
1S2
OESCR I PTOR AND VER I FY CORRECT
153
154
155
WRITE TO 286 LOT REGISTER
IS.
0089
, 57
0089 80 F3
MOV
AL,OF3H
<><> <><> <><><><><><> <><>
'5.
00138 E6 50
OUT
MFG PORT, AL
<><>
CHECKPOINT
F3
<><>
'59
0080 8F 0078
MOV
01 ,POST LDTR
,.0
0'
LLOT
-
REG I STER FROM TH I S AREA
I.,
0090 OF
OB
OOFH
,.2
0091
nOOoo
LABEL
BYTE
'.3
0091
88 07
MOV
OX,DI
,
..
0093
.. 11000 1
LABEL
BYTE
0091
ORG
OFFSET CS: 110000
I ••
0091
00
OB
OOOH
'.5
0093
ORG
OFFSET CS:110001
'.7
,
..
I ••
READ AND VER IFY 286 LOT SELECTOR
170
171
0093 2B CO
SUB
AX.AX
CLEAR AX
172
SLOT
AX
GET THE LOT SELECTOR
173
0095 OF
OB
OOFH
0096
?
?0002
LA8EL
BYTE
175
0096 03 co
AOO
AX,AX
"4
17.
0098
110003
LABEL
BYTE
177
0096
ORG
OFFSET CS: 110002
17.
0096 00
OB
OOOH
17'
0098
ORG
OFFSET CS: 1 10003
'.0
0095 25 00F8
ANa
AX. OF8H
STRIP TI/RPL
,.,
0098 3D 0078
CMP
AX, POST_LOTR
CORRECT SELECTOR?
,.2
009E 15 18
JNZ
ERROR
GO
IF NOT
,.3
'.4
;
-----
WRITE TO 286 TR
'.5
I ••
OOAO 8F 0068
"OV
DI,POST_TR
L TR
0'
REGISTER FROM THIS AREA
,
..
00A3 OF
DB
OOFH
,
,.,
..
00A4
110004
LABEL
BYTE
"0
OOM
88 OF
MOV
BX,DI
I.,
OOM
.
110005
LABEL
BYTE
, '2
00A4
ORG
OFFSET CS: 110004
,.3
00A4 00
OB
OOOH
"4
00A6
ORG
OFFSET CS: 1 10005
,.5
VER 1 FY 286 TR REGISTERS
".
,
,
..
'7
,
..
OOM
28 CO
SUB
AX,AX
STR
AX
GET THE TR
REGISTER
200
00A8 OF
OB
OOFH
20'
00A9
.. 110006
LA8EL
BYTE
202
00A9 88 C5
MOV
CX,AX
203
OOAB
110001
LABEL
BYTE
20'
00A9
ORG
OFFSET CS:?70006
205
00A9 00
OB
OOOH
20.
00A8
aRG
OFFSET cs: 770001
207
00A8 25 00F8
ANa
AX,OF8H
20.
OOAE 3D 0068
COP
AX,POST TR
CORRECT SELECTOR?
20'
0081
75 08
JNZ
ERROR
­
210
211
TEST 286 CONTROL FLAGS
2'2
213
0083 FO
STO
SET 0 I RECT I ON FLAG FOR DECREMENT
2"
0084 9C
PUSHF
GET THE FLAGS
215
0085 58
POP
AX
2'.
0086 A9 0200
TEST
AX ,0200H
I NTERRUPT FLAG SHOULD BE OFF
217
0089
H
03
JZ
17
CaNT I NUE I F OFF
21.
0088 E9 02CD R
ERROR:
JMP
ER~OR_EX I T
GO IF NOT
2"
008E
17
.,
220
008E A9 0400
-
TEST
AX,0400H
CHECK 0 I RECT I ON FLAG
22'
OOC 1 15 03
JNZ
17
5
222
00C3 E9 02CO R
J"P
ERROR_EXIT
GO IF NOT SET
223
aOC6
17
5,
224
OOC6 FC
-
CLO
CLEAR 0 I RECT ION FLAG
225
00C1 9C
PUSHF
INSURE 0 I RECT I ON FLAG
I S RESET
22.
ooca 56
POP
AX
227
00C9 A9 0400
TEST
AX.0400H
22.
OOCC 14 03
JZ
17
-
.
5-76
TEST3

Advertisement

Table of Contents
loading

Table of Contents