IBM 5170 Technical Reference page 220

0035
BC FFFD
MOV SP, MAX_SEG_LEN·2
; .~~.~-~; ~~~7FY-;~~~~C~~D~~OD~
;
~~~------------------
SMSW
AX
GET THE MACH I NE STATUS WORD
0038
OF
+
DB OOFH
0039
: ??OOOO
LABEL
BYTE
0039 01 EO SHL AX,1
003B + ??0001 LABEL BYTE
0039 +
DRG OFFSET CS:??OOOO
0039
01
+
DB 001H
003B
DRG
OFFSET CS: ??0001
003B A9 0001 TEST AX, V I RTUAL_ENABLE ; ARE WE I N PROTECTED MODE
003E 75 03
JNZ
T7 1
0040
E9 02EA R JMP
ERROR_EX I T
; ERROR I F NOT
0043 BO F1 MOV AL,OF1H
; <><><><><><><><><><><><><><>
0045 E6 80
OUT
MFG_PORT,AL
; <><><>CHECKPO I NT F1 <><><><>
-
~
-
---------------
--
-
-.-
----
--
----------­
0047 BO AF MOV AL,OAFH SET EXCEPTION FLAG
0049 E6 89
OUT DMA PAGE+OAH,AL FOR I NT 10
004B CO 20
I NT 32 - INTERRUPT
0040 2B C9
SUB CX,CX WAIT FOR INT
004F E4 88 LOOP1 : IN AL,DMA PAGE+OAH
0051 22 CO
AND AL,AL - DID THE INTERRUPT OCCUR?
0053 EO FA LOOPNZ LOOP1
0055
74 03 JZ T7' 2
0057
E9 02EA R JMP ERROR_EXIT MISSING INTERRUPT
;-------- CAUSE AN EXCEPTION INTERRUPT (GENERAL PROTECTION INT 130)
005A 80 F2 T7_2: MOV AL,OF2H
; <><><><><><><><><><><><><><>
005C E6 80
OUT
MFG_PORT, AL
; <><><>CHECKPO I NT F2 <><><><>
005E BO 90 MDV AL,9DH
SET INT 13 FLAG
0060 E6 88
OUT
DMA_PAGE+OAH,AL
FOR THE I NT HANDLER
; ------- MOD I FY DESCR I PTOR TABLES
; -------; ~~~-~~~p-~S-DE~c~7p~o~-~O-~~G~~~~-~7~7~-
0062 C7 06 0048 0000
MOV
OS: ES_ TEMP. SEG_L I MIT, 0
; SET SEGMENT TO 0
;------- CPLO, DATA ACCESS RIGHTS
0068 C6 06 0040 93
MOV BYTE PTR OS: ( ES_ TEMP. DATA_ACC_R I GHTS), CPLO_DATA_ACCESS
0060 C6 06 004C 01
MOV BYTE PTR DS:(ES_TEMP,BASE_HI_BYTE),Ol ; DO ALL TESTS ON 2ND 64K
0072 C7 06 004A 0000
MOV WORD PTR OS: ( ES_ TEMP, BASE_LO_WORD), 0
; -~------ SET ES REG I STER
0078 B8 0048 MDV
LOAD ES
007B 8E CO
MOV
;------- CAUSE AN EXCEPTION 13 INTERRUPT
0070 23 FF SUB 01,01
007F 26: 8B 05 MOV AX,ES:[DI]
THJS SHOULD CAUSE AND EXCEPTION
0082
2B C9 SUB CX,CX
WAIT FOR INT
0084 E4 89
LOOP2: IN AL,DMA_PAGE+OAH
0086 22 CO
AND
AL,AL
DID THE INTERRUPT OCCUR?
0088
EO FA LOOPNZ LOOP2
008A
74 03
JZ T7_3
CONTI NUE I F INTERRUPT
008C E9 02EA R
JMP
ERROR_EX IT
MJSSING INTERRUPT
008F
; VER I FY 286 LOT/SOT L TR/STR
; I NSTRUCT IONS
; DESCRIPTION
LOAD LOT REG I STERS WITH A DESCR JPTOR
VER I FY CORRECT
;
-----------
---
---------------------------------­
; ------- WR I TE TO 286 LOT REG I STER
008F BO F3 MDV AL,OF3H
; <><><><><><><><><><><><><><>
0091
E6 80 OUT MFG PORT,AL
; <><><>CHECKPO I NT F3 <><><><>
0093
BF 0078
MOV
01, POST _LDTR
LLDT 01
REG I STER FROM TH I S AREA
0096
OF
+
DB OOFH
0097
+ 110002 LABEL BYTE
0097
8B 07
+
MDV
DX,DJ
0099
+ 1?0003 LABEL BYTE
0097
+
DRG
OFFSET CS: 1?0002
0097
00 DB
OOOH
0099 ORG
OFFSET CS:??0003
; ------- READ AND VER I FY 286 LOT SELECTOR
0099 2B CO SUB
AX,AX
; CLEAR AX
SLOT
AX
; GET THE LOT SELECTOR
009B OF
+
DB
OOFH
009C : 1?0004
LABEL BYTE
009C 03 CO
ADD AX,AX
009E
: 110005
LABEL BYTE
009C ORG
OFFSET CS:110004
009C 00 DB
OOOH
009E ORG
OFFSET CS:??0005
009E
25 00F8 AND
AX,OF8H STRI P TI/RPL
OOAl 3D 0078 GMP
AX, POST_LDTR CORRECT SELECTOR?
00A4 75 1B JNZ ERROR
GO IF NOT
; -------- WR I TE TO 286 TR
00A6 BF 0068 MOV
01, POST_TR
LTR 01
REGISTER FROM THIS AREA
00A9
OF
+
DB
OOFH
OOAA + 1?0006 LABEL BYTE
OOAA 8B DF
+
MOV BX,DI
OOAC + 1?0007 LABEL BYTE
OOAA
+
ORG
OFFSET CS: 110006
OOAA 00 DB
OOOH
OOAC ORG
OFFSET CS: ??0007
; ------- VER I FY 286 TR REG I STERS
5-78 Test 7