IBM 5170 Technical Reference page 184

O:'>FB BC 8000
MOV
; STACK I S READY TO GO
;-------- GET THE INPUT BUFfER (SWITCH SETTINGS)
05FE BO 11
C37: MOV AL, 1 lH
<><><><><><><><><><><><>
0600 E6 80
OUT
MFG_PORT ,AL <><><>CHECKPO! NT 11 <><>
0602 E4 82
IN AL,OMA_PAGE+1
GET THE SWITCH SETTINGS
0604
0606
24 FO
A2 0012 R
AND
MOV
AL,OFOH
MfG_TST,AL
STR I P UNUSED BITS
SAVE SETT I NGS
0609
06013
2A CO
E6 82
SUB AL,AL
RESET DMA_PAGE
OUT OMA_PAGE+1,AL ;
;
----­---­---­--­-­-
­ -
--
­ -
-------­---­-­-
----
---­
TEST.11A
VER I FY 286 LGDT /SGDT L I DT /S I DT
; INSTRUCTIONS
; OEseR I PTION
LOAD GOT AND lOT REG I STERS WI TH
AA,55,00 AND VERIFY CORRECT
;-------- VERIFY STATUS INDICATE COMPABILlTY (REAL) MODE
SMSW
AX
; GET THE CURRENT STATUS WORD
0600 Of
DB
OOfH
060E
+ ??OOOO
LABEL BYTE
060E 01 EO
SHl AX,1
0610
+
??OOOl LABEL BYTE
060E
+
ORG OFFSET CS: ??OOOO
060E 01
DB 001 H
0610 ORC OFfSET CS: ??0001
0610 A9 OOOf
TEST
AX,OFH
PE/MP/EM/TS BITS SHOULD BE ZERO
0613 75 37
JNZ
ERR_PROT GO I F STATUS NOT REAL MODE
; -------­ TEST PROTECTED MODE REG I STERS
0615 SO 12
MOV AL,12H
; SET CHECK PO I NT 12
0617 E6 80 OUT MFG_PORT, AL
; <><><><><><><><><><><>
0619 1 E PUSH
as
SET ES TO SAME SEGMENT AS OS
061A 07 POP ES
061 B BF OOAO MOV 0 I, SYS_I DT_LOC USE TH I S AREA TO BU I LD TEST PATTERN
061E
0621
B90003
B8 AAAA
MOV
MOV
CX,3
AX, OAAAAH fiRST PATTERN
06211 E8 064F R CALL WRT PAT
0627 B8 5555 MOV AX,05555H
062A E8 064F R CALL WRT PAT WRITE NEXT PATTERN
0620 2B CO SUB AX,AX WRITE
a
062F E8 064F R CALL WRT PAT
0632 213 ED SUB BP,BP
RESTORE BP REG
; -------­ TEST 286 CONTROL FLAGS
0634 FO STO
SET DIRECTION FLAG fOR DECREMENT
0635 9C
PUSHF GET THE FLAGS
0636 58 POP AX
0637 A9 0200 TEST AX,0200H I NTERRUPT FLAG SHOULD BE OFF
063A 75 10 JNZ ERR PROT
GO
I F
NOT
063C A9 0400 TEST AX,0400H
CHECK DIRECTION FLAG
063F
06L~
1
74 013
fC
JZ
ClD
ERR_PROT GO IF KOT SET
CLEAR DIRECTION FLAG
0642 9C PUSHF INSURE DIRECTION FLAC IS RESET
0643 58 POP AX
06411 A9 0'100
TEST
AX,0400H
0647 75 03
JNZ
ERR_PROT GO I F NOT
0649 EB 3E 90
JMP C37A
TEST OK CONT I NUE
064C ERR_PROT:
06'IC f4
HLT
PROTECTED MODE REG I STER FA I LURE
0640 EB fD
JMP
INSURE NO BREAKOUT OF HALT
;------- WRITE TO 286 REGISTERS
064f 139 0003 WRT_PA
T:
!10V CX,3
0652 F3/ AI3 REP STOSW STORE 6 BYTES OF PATTERN
0654 130 DOAO MOV BP,SYS_IOT_LOC
SECOY ES LOAD THE lOT
0657 26 DB 026H
0658 OF +
LlDT
DB
[BP]
OOfH
REG I STER FROM TH I 5 AREA
0659 + ??0003 LABEL BYTE
0659 8B 5E 00
+
MOV BX,WORD PTR [BP]
065C + ?10004 LABEL BYTE
0659
+ ORG OFFSET CS;??0003
0659 01 DB OOlH
065C ORG OFFSET CS; ??0004
065C SO DOAO MOV BP,SYS_IDT_LOC
SEGOV ES LOAD THE GOT
065 F 26 DB 026H
0660 OF
+
LGDT
DB
[BPI
OOfH
FROM THE SAME AREA
0661 + ??0006 LABEL BYTE
0661
0664
8B 56 00 +
+ ??0007
MOV
LABEL
OX, WORD PTR [BP]
BYTE
0661 ORG OFfSET CS: ??0006
0661 01 DB 001 H
0664
ORG OffSET CS: ??0007
;------- READ AND VERifY 286 REGISTERS
0664 SO D8AO
110V
SECOY
BP ,GOT LOC
ES -
STORE THE REGISTERS HERE
0667 26 DB 026H
SlOT
I
BP
J GET THE lOT REGS
0668 Of
+
DB
OOfH
0669
+ ??0009 U'ISEL BYTE
0669
066C
8B 4E 00
+
+ ??OOOA
MOV
LABEL
CX, [BPj
BYTE
0669
DRG
OffSET CS: ?10009
0669 01 DB
00lH
066C
DRG OFfSET CS:11000A
066C BD D8A5 ~tOV BP, GOT_LOC+5
SECOY
ES
066f 26 DB 026H
SCOT [BP
J
CET THE GOT REGS
0670 OF
+
DB OOfH
0671 + 1?OOOC LABEL BYTE
0671
067j~
03 46 00
+
+ ??OOOD
ADD
LABEL
AX, [BPI
BYTE
0671
+
ORG OFfSET CS:??OOOC
0671 01
DB
D01H
0674
ORG
OFFSET CS:??OOOD
0674
0677
SF DOAO
88 05
MOV
MOV
DI,SYS lOT LOC
AX,os:TDI]­
GET THE PATTERN WRITTEN
0679 139 0005
MOV CX,5
CHECK ALL REG I STERS
067C BE D8AO MOV SI,GOT_LOC POINT TO THE BECINNING
067f 26: 313 04 C37B: eMP AX,ES:[SI]
5-42 Test 1