IBM 5170 Technical Reference page 189

097F C6 06 OQ4C 80
MOV BYTE PTR OS:(ES_TEMP.BASE_HI_BYTEj,aOH
0984 E8 098A
R CALL SDO
0987
EB 20 90 JMP SD2
TEST PASSED CONT
1
NUE
098A 2B FF SOO: SU8
01,01
a98C B8 0048
MOV AX, ES_TEMP
POINT ES TO DATA
098F 8E CO
MOV ES,AX
PO I NT TO SEGI'IENT TO TEST
0991 26: 89 15 MOV ES:(DI LOX
WRITE THE PATTERN
0994
C6 06 004C 00
0999 B8 0048
099C fiE CO
099E
26:
81
30 FFFF
09A3 74 03
09A,) E') 07EA R
,,-..,
09AB C3 SOl:
; ------- CAUSE A SHUTDOWN
09A9 BO 20 SD2: AL,20H
; <><><><><><><><><><><><>
09AB E6 80 MFG_PORT,AL
; <><><>CH[CKPOINT 20 <><>
D')AD E9 0000 E PROC_SHUTDOWN
; CAUSE A SHUTDON (RETURN VIA JUMP
i
-~E~UR~ -~
-
;:R~~ -s~~
T
D~~N
------- -- -----------------------­
;
-------
- ---
-
-- -
-----------------
---
------
---
----------- ­
09l~0 BO 21 SHUll: MOV AL,21H
<><><><><><> <><><><><><>
09B2 E6 80 OUT MFG_PORT,AL
<><><>CHECKPO I NT 21 <><>
09B4 BC ---- R MOV
SP,STACK
SeT REAL MODE STACK
09B7 8E 04 MOV SS,SP
09B9
BC 0100 R MOV SP,OFFSET TOS
09BC B8
---- R
MOV
AX,
DATA
SET UP THE REAL DATA AREA
09BF
8E 08
MOV DS,AX
j--------
GET THE CONFICURATION FROM CMOS
09Cl BO 8E MOV AL,DIAG_STATUS
CHECK CMOS GOOD
09C3
E6 10 OUT CMOS_PORT, AL
09C') EB 00 JMP SHORT $+2
D9C7
E4 71
IN
AL, CMOS PORT+l
GET TH[ STATUS
09C9
A8 CO TeST AL,OCOH- OK?
09CB 74 03 JL M OK
GO I F YES
o')eD EB
n
90
JMP
BAD MOS GO I F NOT
0')00 8A EO M_OK: MOV AH,AL
SAVE THE CMOS STATUS
0902
BO BE MOV AL,D1AG_STATUS
ADDRESS THE DIAG STATUS
0904 [6 70 OUT CMOS PORT, AL
0906 86 C4
XCHG AL,AH RESTORE THE STATUS BYTE
0908
24 OF
AND
AL,ODfH
CLEAR THE MIN CONFIG BIT
09DA
EG -,1
OUT
CMOS PORT+l, AL
090C
BO 94 MOV AL, C=EQU
I P
GET THE EQU I PMENT BYTE
09DE
EB 00
JMP
SHORT $+2
09EO E6 70 OUT
CMOS_PORT, AL
09E2
E8 00
JMP
SHORT $+2
10 DELAY
09E4
E4 71
IN
AL,CMOS_PORT+l
;-------- INSURE CONFIGURATION HAS CORRECT VIDEO TYPE
09E6
8A EO MOV
SAVE V IDEO TYPE
09[8 A8 30 TEST
ANY VIDEO?
09EA 75
2E JNZ
CONT I NU[
09EC
E8 09FB R
CALL
INSURE VIDEO ROM PRESENT
~
09Ef 74 4A JZ
CONT I NUE
O')Fl F6
06
0012 R 20 TEST MFG TST, MFG JMP
EXCEPT IF MFG JUMPER IS INSTALLED
09F6 74 7A
,JZ
NORMAL_CON FIG
GO IF INSTALLED
0918 EB 4C 90
JMP BAD_MOS ; GO DEFAULT
;-------- ROUTINE CHFCK FOR VIDEO ROM PRESENT
09fl3
CHK VIDEO:
09fB B9 GOOD
- MOV
CX,OCOOOH
START OF 10 ROM
09fE CHK VIDEO':
09FE
';'0
- PUSH
AX
SAVE THE CONF I G
09FF 1 E PUSH DS
SAVE THE DATA SEGMENT
OADO 8£ D9
MOV
OS,CX
QA02 213 08
SUB eX,l3x GET THE FIRST 2 LOCATIONS
OA04
88
07 MOV AX, [BX]
OA06
1F
POP DS
RESTORE UATA SEG AND BUS SETTLE
OA07 3D AA55 eMP AX,OAA55H
I
S
THE V IDEO ROM PRESENT?
OAOA 5B
POP AX GET
THE CONF I G
GACB
71~ ac
JZ
CHK V1DE02 GO I F V IDEO ROM 1 NST ALLED
OAOD 81 e1 0080 ADD CX,080H
POINT TO NEXT 2K BLOCK
OAll 81 F9 C8DD eMP ex, De800H
TOP OF VIDEO ROM AREA YET?
OA1S 7C E7 JL CHK VIDE01 TRY AGAIN
OA17 23 C9 AND
ex,c;x SET NON ZERO FLAG
OA19 CHK_ V I DE02:
OA19
C3
RET
RETURN TO CALLER
;-------- CMOS VIDEO BITS NON ZERO (CHECK FOR PRIMARY DISPLAY AND NO VIDEO ROM)
OA1A
MOS_OK ,:
OA1A
EEl 09FB R
. CALL
CHK_VIDEO IS THE VIDEO rWM INSTALLED?
OA10
-/4 27
JZ
BAD_MOS WRONG CONFIGURATION IN CONFiG lWTE
OAlF
8A C4 MOV AL,AH RESTORE CONF I GURA T I ON
OA2l F6 06 0012 R 4D TEST MFG_TST,DSP_JMP
CHECK FOR 01 SPLAY JUMPER
0A26 74 OB JZ MOS_OK_2
GO If COLOR CARD IS PRIMARY DISPLAY
; -------- MONO CARD IS PR I MARY 01 SPLAY
(NO JUMPER INSTALLED)
DA28 24
30
AND AL,30H
INSURE MONO IS PRIMARY
OA2A 3C 30 C~lP AL,30H
CONF I G OK?
75 '8
DA2C JNZ
BAD ~lOS GO I F NOT
OA2E
8A C4 MOV AL,AH RESTORE CONF IGURAT ION
OA30 EB 09 90 JMP
MOS_OK USE THE CONF I G BYTE FOR CRT
1"'""""\
; -------- COLOR CARD
CAB
MOS OK 2:
OA33 24 30
- - AND
AL,30H
STR I P UNWANTED IS I TS
GA3S 3C 30 eMP AL,30H
MUST NOT BE MONO WITH JUMPER INSTALLED
OA37 8A C4 MOV AL,AH
RESTORE CON
F I
GURAT I ON
OA39 74 OB
JZ BAO_MOS
GO I f YES
;-------- CONFIGURATION MUST HAVE AT LEAST ONE DISKETTE
OA3S A8 01 MOS_OK: TEST AL, 01 H
MUST HAVE AT LEAST ON DISKETTE
OA3D 75 33
JNI NORMAL CONF I G
GO SET CONFIGURATION IF OK
OA3F
F6 06 0012 R 20 TEST
t~FG
TST,MFG JMP EXCEPT IF MFG JUMPER'S I NSTALLEO
OA44
74 2C JZ NORMAL_CONFTG
GO IF INSTALLED
Test 1 5-47