IBM 5170 Technical Reference page 195

OODE
ODED
75 00
E2 F7
JNZ
LOOP
09
DB
: 0 lOT I MER 0 I NTERRUPT OCCUR?
; YES - CHECK TIMER OP FOR SLOW TIME
; WAlT FOR INTR FOR SPECifiED TIME
00E2 C6 06 0015 R 02 MOV MFG_ERR_FLAG,02H
; <><><><><><><><><><><><><><>
;<><>TIMER CHECKPOINT (2)<>
DOn
OOEA
BE 0000 E
E9 004F R
MOV
JMP
S I, OFFSET EO_A
D6A
;
;
0 I SPLAY 102 ERROR
TIMER 0 INTR DIDN'T OCCUR - ERR
ODED
OOEF
60 2B
£6 80
09:
MOV
OUT
AL,2BH
MFG_PORT ,AL
; <><><><><><><><><><><><><><>
; <><><>CHECKPO I NT 26 <><><><>
~
OOFl
00F2
00F4
00F6
00F8
OOFD
OOFF
0101
0102
0107
0109
FA
Bl DC
00 FF
E6 40
C6 06 006B R 00
00 FE
E6 21
FB
F6 06 006B R 01
75 DE
E2 F7
010:
eLi
MOV
MOV
OUT
MOV
MOV
OUT
STI
TEST
JNZ
LOOP
CL,12
AL,OFFH
TIMERO,AL
I NTR_FLAG, 0
AL,OFEH
INTA01,AL
I NTR_FLAG, 01H
DB A
OlD
SET PGM LOOP CNT
WRITE TIMER 0 CNT REG
RESET I NTR RECE I YEO fLAG
REENABLE T I MER
a
I NTERRUTS
DID TIMER 0 INTERRUPT OCCUR?
YES - T I MER CNT J NG TOO FAST, ERR
WAIT FOR INTR FOR SPEC] FlED TIME
;------- WAIT
FOR
INTERRUPT
010B 28 C9
SUB
CX,CX
0100
010F
00 2C
E6 80
MOV
OUT
AL,2CH
MFe _PORT ,AL
; <><><><><><><><><><><><><><>
; <><><>CHECKPO I NT 2C <><><><>
0111
0116
0'18
F6 06 006B R 01
75 08
E2 F7
011: TEST
JNZ
LOOP
INTR_FLAG,OlH
012
011
DID TIMER 0 INTERRUPT OCCUR?
GO I f YES
TRY AGAI N
011A
0110
BE 0000 E
E9 004F R
MOV
JMP
SI,OFFSET
EO ­
D6A
B
DISPLAY 103 ERROR
ERROR I f NOT
;------ SETUP TIMER 0 TO MODE 3
0120
0121
0123
0125
0127
0129
012B
0120
012F
0131
FA
BO FF
E6 21
BO 36
E6 43
EB 00
BO 00
E6 40
EB 00
E6 40
012:
eLi
MaY AL,OFFH
OUT INTA01,AL
MOY AL,36H
OUT TIMER+3,AL
JMP SHORT $+2
MOY AL,O
o
I SABLE ALL DEY I CE INTERRUPTS
SEL TIM O,LSB,MSB,MODE 3
WR I TE T I MER MODE REG
10 DELAY
OUT TIMER,AL WRlTE LSB TO TIMER 0 REG
JMP SHORT $+2
10
DELAY
OUT TIMER,AL ; WRITE MSB TO TIMER 0 REG
",==============;;",,,,,,,=,,,,,,,,,,,,:,,,======-====
; -------' CHECK 8042 FOR LAST COMMAND ACCEPTED
0133
0135
0137
0139
013B
0130
013F
2B C9
BO 20
E6 80
E4 64
A8 02
74 08
E2 F8
013:
§~~==="::"c~~c~=========:=========~=~~~ WA ITT I ME
MOY AL,2DH ; <><><><><><><><><><><><><><>
OUT MFG PORT,AL ;<><><>CHECKPOINT 20 <><><><>
IN AL,STATUS_PORT GET THE 8042 STATUS
TEST AL,INPT_BUF_FULL HAS THE LAST COMMAND BEEN ACCEPTED?
JZ E19 GO IF YES
LOOP 013 TRY AGAIN
~
;-------- ERROR EXIT (MSG 105)
0141
0144
BE 0000 E
E9 004F R
MOV
JMP
SI,OFFSET CM4
OM
PR I NT 105 ERROR
GO ERROR HALT
;
­
-­ - - -­
-----­----­---­--­--­--­
------­
-­--­--­---­--­ --­
TEST.19
ADDITIONAL READ/WRITE STORAGE TEST
; ++++ MUST RUN IN PROTECTED MODE ++++
; DESCRIPTION
WRITE/READ DATA PATTERNS TO ANY READ/WRITE
STORAGE AFTER THE FIRST 64;(. STORAGE
ADDRESSABILITY IS CHECKED,
0147
0147
014A
014C
E8 0000 E
60 2F
E6 80
E19:
ASSUME
CALL
MOV
OUT
OS: DATA
DDS
AL,2FH
MFG_PORT, AL
; SET DATA SEGMENT
; <><><><><><><><><><><><><><>
;<><><>CHECKPOINT 2F <><><><>
014E
0154
0156
B1 3E 0072 R 1234
75 03
E9 0558 R
eMP
JNE
J~' P
RESETJLAG,1234H
E19A
SHUT2
WARM START?
; GO I F NOT
; GO TO NEXT TEST I F WARM START
; ------­ SET SHUTDOWN RETURN 2
0159
015B
BO 30
E6 80
E19A: MOV
OUT
AL,301l
MFG_PORT, AL
; <><><><><><><><><><><><><><>
; <><><>CHECKPO I NT 30 <><><><>
0150
015F
0161
0163
0165
60 8F
E6 70
BO 02
EB 00
E6 71
Mav
OUT
Mav
JMP
aUT
AL, SHUT _DOWN
CMOS_PORT, AL
AL,2
SHORT $+2
CMOS~PORT+1
,AL
ADDR FOR SHUTDOWN BYTE
SECOND ENTRY ! NTO TABLE
10 DELAY
; -------' ENABLE PROTECTED MODE
0167
016A
016C
BC 0000
8E 011
BC 8000
MOY
MOV
MOV
SP, POST_5S
SS,SP
SP, POST_SP
SET STACK fOR SYSINITl
016F
E8 0000 E
CALL
SY$INIT1 GO ENABLE PROTECTED MODE
0172
0174
00 31
E6 80
MOV
OUT
AL,31H
MFG_PORT, Al
; <><><><><><><><><><><><><><>
: <><><>CHECKPO 1 I;T 31 <><><><>
,..-.....,
;------- SET TEMPORY STACK
0176
0179
017B
0182
0188
018B
0180
B8 0008
8E CO
26: C7 06 005A 0000
26: C6 06 005c 00
BE 0058
8E 06
BC FFFO
MOY
MOY
MOY
MOV
MOY
MOV
MOY
AX, GDT_PTR
ES,AX
ES:SS_TEMP.BASE_LO_WORD,O
BYTE PTR ES: (SS_TEM P. BASE_H I_BYTE), 0
SI ,SS TEMP
SS,SI­
SP, MAX_SEG_LEN-2
; ------­ DATA SEGMENT TO SYSTEM DATA AREA
0190
0193
B8 0018
8E 08
MOV
MOV
AX, RSDA PTR
DS,AX -
POINT TO DATA AREA
0195 BO 80 MOV
AL, PRTY_CHK SET CHECK PAR I TY
Test 2 5-53