IBM 5170 Technical Reference page 207

~
~
~
095F
0961
0963
0966
0968
0968
09GO
096F
0972
0977
0979
097C
097f
0981
0984
0986
0989
098C
098£
0990
0993
0996
0998
099B
099£
09All
09A3
09A5
09A7
09M
09AB
09AD
09BO
09B2
09B4
09B8
09B9
09BA
09CD
09c6
09C8
09C9
DgCD
09CE
09CF
0905
09D7
0909
090B
0900
09DF
09El
09E3
09£5
09E7
09EC
09rc
09ED
09FO
09F5
09F7
09FA
09FA
09FC
09FE
OAOO
OA02
OA04
OA06
OA08
DADA
OAOF
OA12
OA14
OA16
OA19
DAlA
OA1B
OA1E
OAlF
OA22
OA24
R 20
R 64
R
R 1 F3F
R 033F
R
R B8BF
R 02
R 64
R 00
MOV AH,OO
INT 16M
WA I T FOR 'F1' KEY
CMP AH,3BH
JNE ERR_WAIT1
F15A_O:
TEST
MFG_ TST , LOOP_POST MFG BURN I N MODE
JNZ
F15A GO I F NOT
JMP
START 1 ; GO LOOP POST
F15A:
CMP BYTE PTR RESET FLAG,64H ; MFG RUN IN?
JZ
F15B - ; BYPASS BEEP I F YES
MOV DX,1
1 SHORT BEEP (NO ERRORS)
CALL
ERR_BEEP
F15B: SUB AH,AH
CLEAR FLAGS
MOV
AL, CRT_MODE
INT 10M
CLEAR SCREEN
; ~--~---- CLEAR DESCRI PTOR TABLES
F20: MOV CX,0500
CLEAR 1 K
MOV 01 , SYS_IDT_LOC
POINT ES TO START OF OESCRI PTORS
SUB AX,AX
MOV ES,AX
F20_A: MOV ES:IDI J,AX
CLEAR
ADD
01,2
POINT TO NEXT LOCATION
LOOP F20_A
CONTINUE TilL DONE
="'="''''='''========
; -------- SET
T I ME OF DAY
CALL SET_TOO
; -------- SET SYSTEM STACK
MOV AX, STACK
; GET THE STACK SEGMENT
MOV SS,AX
MOV
SP,OFFSET TOS
; ------- ENABLE HARDWARE I NTERRUPT I F MATH PROCESSOR (X287)
MOV AL,40H
; <><><><><><><><><><><><><><><>
OUT
MFG PORT,Al ; <><><>CHECKPO I NT 40 <><><><><>
MOV AX, TO_ROM_I NIT
; TEMP STORAGE
PUSH
AX
SUB AX, AX
CLEAR I O_ROI'CI NIT
MDV 10 ROM INIT,AX
ESC
28-:-BX ­
XOR AX,AX
ESC
15,10_ROM_INIT
PUSHA
T I ME FOR 287 TO RESPOND
DB 060H
paPA
DB 061H
AND
IO_ROM_IN IT ,01 F3 FH CLEAR UNUSED 287 BITS
CMP I O_ROM_I NIT, 0033 FH
I S THE 287 INSTALLED?
JNZ NO_287
GO I F MATH PROCESsoR IS NOT INSTALLED
WAI T
ESC
STORE THE STATUS WORD
PUSHA
TIME FOR 287 TO RESPOND
DB 060H
POPA
DB 061H
TEST I O_ROM_I NIT. OB8BFH
ALL BITS SHOULD BE OFF
JNZ NO_287
GO I F NOT INSTALLED
IN Al, I NTBOl
GET THE SLAVE I NT MASK
AND
Al,ODFH
ENABLE 287 INTERRUPTS
JMP SHORT $+2
10 DELAY
OUT I NTB01.AL
; -------- ENSURE THAT MASTER LEVEL 2 ENABLED
IN Al. I NTA01 GET THE CURRENT MASK
AND
Al,OFBH
JMP SHORT $+2
10 DELAY
OUT INTA01.AL
OR
BYTE PTR EQUIP_FLAG,02H SET 287 BIT ON
NO_287:
POP
AX
RESTORE la_ROM
-
INIT
MOV la_ROM_INIT.AX
; --------- TEST FOR MFG RUN-I N TEST
CMP BYTE PTR RESET_FLAG.64H ; IS THE THE MFG RUN-IN TEST?
JNZ END_287 GO I F NOT
JMP SHUT4 BOOT LOAD I F YES
; -------- UNMASK SLAVE HARDWARE INT 9 (LEVEL 71)
END_287:
IN AL, I NTBOl
GET THE CURRENT MASK
AND
AL,OFDH
JMP SHORT $+2
; 10 DELAY
OUT INTB01.AL
; SET NEW MASK
;
---------------
-
------------------------
- -- - - -- -
-----------------­
TEST FOR SYSTEM CODE AT SEGMENT EOOO:O
FIRST WORD
=
AA55H
LAST BYTE
=
CHECKSUM
ENTRY POINT = FIRST BYTE + 3
I F TEST'S SUCCESSFUL A CALL FAR TO THE ENTRY PO I NT IS [XCUTED
;
----------
--------
-
-
-------------- ----
------------
- -
-
- - --
----
-
---­
MOV
AL,41H ; <><><><><><><><><><><><><><><>
OUT MFG_PORT, AL
;<><><>CHECKPOINT 41 <><><><><>
MOV AL. CMOS_END
INSURE NMI OFF
OUT
CMOS_PORT, AL
END IF
MOV BYTE PT~ RESET_FLAG,O
CLEAR FLAG
MOV
AX,OEOOOH
SEGMENT OF SYSTEM CODE
MOV ES,AX
SUB
01,01
MOV AX,ES:[Dlj
CHECK FOR AA55
PUSH BX
BUS SETTLE
POP BX
CMP AX,OAA55H
PUSHF
SAVE FLAGS
MOV ES:{DIj,AX
CLEAR pass I BlE PAR I TY CHECK
IN
AL, PORT_B
OR AL, RAM_PAR_Off
TOGGLE la/PAR CHECK ENABLE
B4
CD
80
75
F6
75
£9
80
74
BA
E8
2A
AO
CD
B9
BF
00
16
FC 3B
F3
06 0012
03
0000 £
3E 0072
06
0001
0000 E
E4
0049 R
10
01 F4
DOAO
28 CO
8E
26:
83
E2
E8
BB
8E
BC
BO
E6
A1
50
2B
A3
DB
33
09
60
61
81
Bl
75
9B
DO
60
61
F7
75
Ell
24
EB
E6
E4
24
E8
E6
80 OE
5B
A3
80
75
EB
E4
24
EB
E6
BO
E6
BO
E6
c6
B8
8E
2B
26:
53
5B
30
9C
26:
E4
OC
co
89 05
C7 02
F8
0000 E
-~--
R
DO
0100 R
40
80
0067 R
CO
0067 R
E3
CO
3E
26
3£
24
3E
06
15
Al
OF
00
Al
21
FB
00
21
0067
0067
0067
0067
0067
0010
0067 R
3£ 0072
03
63 90
A1
FD
00
A1
41
80
AD
70
06 0072
EDOO
CO
FF
8B 05
AA55
89 05
61
OC
Test 2 5-65