IBM 5170 Technical Reference page 191

OB04 B9 0800 MOV CX,2048
RAM WORD CNT FOR B/W CD
OB07 BO 01 MOV AL,1
SET MODE FOR BW CARD
OB09 80 FC 30
CMP AH,30H B/W VIDEO CARD ATTACHED?
OBOC 74 09
JE E9
YES - GO TEST V IDEO STG
OBOE B7 B8
MOV
BH,OB8H
BEG
V
I DEO RAM ADDR COLOR CD
01310 BA 0308 MOV DX,308H
MODE REG FOR COLOR CD
OB13 85 20
MOV CH,20H
RAM WORD CNT FOR COLOR CO
0[315 FE C6 OEC AL
SET MODE TO 0 FOR COLOR CD
OB17
TEST_VIDEO_STG:
OB17 EE OUT
OX,Al
DISA6LE V IDEO FOR COLOR CO
OB18 8E C3 MOV E5, BX
POINT ES TO VIDEO RAM
OB1A 8E OB MOV
OS,BX
POI NT OS TO VIDEO RAM
OB1C 01 C9 ROR CX,l
DIVIDE BY 2 FOR WORD COUNT
OBl E E8 0000 E CALL STGT5T CNT
GO TEST VIDEO R/W STC
OB2l 75 6F JNE
E17 - R/W STC FAI LURE - BEEP SPK
TEST.15
SETUP VIDEO DATA ON SCREEN FOR VIDEO
LINE TEST.
OESCR I PT I ON
ENABLE VIDEO SIGNAL AND SET MODE.
DISPLAY A HORIZONTAL BAR ON SCREEN.
OB23
E1
0:
OB23 BO 22 MOV AL,22H
<><><><><><><><><><><><>
OB25 E6 80 OUT
MFG_PORT, AL
<><><>CHECKPO I NT 22 <><>
0827 58 POP AX
GET VIDEO SENSE SWS (AH)
0628 50 PUSH AX
SAVE IT
0629 B4 00
MOV AH,O
ENABLE V IDEO AND SET MODE
0626 CD 10 INT INT_VIDEO
VIDEO
OB20 B8 7020 MOV AX,7020H
WRT BLANKS I N REVERSE VIDEO
01330 2B
FF
SUB 01,01
SETUP STARTING lOC
OB32 89 0028 MOV CX,40
NO. OF 6LANKS TO DISPLAY
OB35 F3/ AB
REP STOSW
WR I TE V IDEO STORAGE
;
--
-----
-----------------
--
----
-
----
-
---­
TEST. 16
CRT INTERFACE LINES TEST
OESCR
I
PT I ON
SENSE ON/OFF TRANSITION OF THE
VIDEO ENABLE AND HORIZONTAL
SYNC LI NES.
;
-------
- -
--------
-
---
--
- --
---------
----­
01337 58
POP AX GET V IDEO SENSE SW INFO
01338 50 PUSH AX
SAVE IT
OB39 80 FC 30 CMP AH,30H
B/W CARD ATTACHED?
OB3C BA 03BA MOV OX,036AH
SETUP ADOR OF BW STATUS PORT
OB3F 74 03
JE E11
YES - GO TEST LINES
0641 BA 030A
MOV OX,03DAH COLOR CARD IS ATTACHED
0644
Ell:
L1NE_TST:
0644 134 08
MOV AH,8
0646 E12:
OFLOOP_CNT:
0646 2B C9 SUB CX,CX
OB48 EC E13: IN AL,DX
READ CRT STATUS PORT
OB49 22 c4
AND AL,AH CHECK V I DEO/HORZ LINE
01346 75
04 JNZ E14
ITS ON - CHECK IF IT GOES OFF
0640 E2 F9 LOOP £13
LOOP TILL ON OR TIMEOUT
OB4F E6 41 JMP SHORT E17
GO PR I NT ERROR MSG
0651 26 C9
E14: SUB CX,CX
0653 EC E15:
IN AL,DX
READ CRT STATUS PORT
OB54 22 C4
AND AL, AH
CHECK VIDEO/HORZ LINE
OB56 74 05 JZ E16
I TS ON - CHECK NEXT LINE
OB58 E2 F9 LOOP E15
LOOP I F ON TILL I T GOES OFF
OB5A E6 36 90
JMP E17
GO ERROR BEE P
;------- CHECK HORIZONTAL LINE
OB5D 61 03
E16: MOV
CL,3
GET NEXT 61 T TO CHECK
OB5F 02 EC
SHR
AH,CL
0661 75 E3 JNZ
CONT I NUE
0663
El 8; DISPLAY CURSOR;
"2
0863 58 POP AX
GET V IDEO SENSE SWS (AH)
OB64 B4 00 MOV AH,O
SET MODE AND
0 I
SPLAY CURSOR
OB66 CD 10 INT I NT_VI DEO
CALL VIDEO I/O PROCEDURE
;--------- CHECK FOR THE ADVANCED VIDEO CARD
OB68 BA COOO
E18_': MOV
oX,acaaOH SET THE LOW SEGMENT VALUE
OB6B 130 23 E18A: MOV AL,23H
<><><><><><><><><><><><>
OB60 E6 80
OUT
MFG_PORT,AL
<><><>CHECKPO
I
NT 23 <><>
OB6F 8E DA MOV OS,OX
OB71 2B DB
SUB
BX,6X
OB73 86 07
MOV
AX,
I
6X]
GET FIRST 2 LOCATIONS
0875 53 PUSH BX
OB76 56
POP BX LET BUS SETTLE
0877 30 AA55
eMP AX,OAA55H
PRESENT?
067A 75 05 JHZ E18B
NO? GO LOOK FOR OTHER MODULES
067C E8 0000 E CALL ROM CHECK GO SCAN MODULE
067F EI3 04 JMP SHORT E18C
OB81 81 C2 0080 E18B: ADO OX,0080H PO I NT TO NEXT 2K BLOCK
OB85 81 FA C800 E18C: CMP oX,OC800H
TOP OF V IDEO ROM AREA YET?
0689 7C EO JL El8A
GO SCAN FOR ANOTHER MODULE
0686 60 24 MOV AL,24H
<><><><><><><><><><><><><><>
0680 E6 80
OUT
MFG_PORT ,AL <><><>CHECKPO I NT
24
<><><><>
OB8F E9 0000 E JMP POST2
GO TO NEXT TEST
;-------- CRT ERROR SET MFG CKPT AND ERR BEEP
0692 E8 0000 E E17: CALL DDS
; POINT TO DATA
;-------- CHECKPOINT DC
=
MONO FAILED
0895 C6 06 0015 R OC MOV MFG_ERR_FLAG,OCH ;<><><><>CRT ERR CHKPT. OC<><>
OB9A 80 3E 0072 R 64
CMP BYTE PTR RESET_FLAG,064H ; IS THIS A MFG REQUEST?
OB9F 74 00
JZ E19 BY PASS ERROI{ BEEP I
F
YES
OBAl F6 06 0012 R 20 TEST MFG_TST,MFG_JMP IS THE MFG LOOP JUMPER INSTALLED?
013A6 74 06
JZ E19 BY PASS ERROR BEEP I F YES
OBA8 BA 0102 MOV OX,102H
OBA8 E8 0000 E
CALL ERR_BEEP
GO BEEP SPEAKER
OBAE 1 E
El 9: PUSH OS
OBAF Al DOlO R MOV AX, EQU I
P
_FLAG
GET THE CURRENT V, OED
OBB2 24 30
AND AL,30H STRI P OTHER BITS
OB64 3C 30 CMP AL,30H IS IT MONO?
OBB6 74 31 JZ TRY_COLOR
GO I F YES
;------- COLOR FAILED TRY MONO
;-------- CHECKPOINT 00 = COLOR FAILED
OBB8 C6 06 0015 R 00
MOV
MFG_ERR_FLAG, ODH ; <><><><>CRT ERR CHKPT. 00<><>
OBBO BA 03B8
MOV DX,3B8H 01 SABLE B/W
OBCO BO 01 MOV
AL,l
OBC2 EE OUT OX,AL
OUTPUT THE DISABLE
OBC3 BB BOOO MOV BX,OBaOOH CHECK FOR MONO VIDEO RAM
OBC6 8E DB
MOV
DS,BX
OBC8 B8 AA55 MOV AX,OAA55H
WRITE AN AA55
Test 1 5-49