IBM 5170 Technical Reference page 182

048A BA 03B8 MOV DX,03B8H
CONTROL REG ADDRESS OF BW CARD
0480 BO 01 MOV AL,l
MODE SET FOR CARD
048F EE OUT DX,AL
RESET VIDEO
0490 83 EA 04 SUB DX,4
BACK TO BASE REGISTER
0493 BB 0030 E
MOV llX,OFFSET VIDEO_PARMS+M4*3 ; POINT TO VIDEO PARMS
ASSUME OS: CODE
0496 B9 0010
Z_2: MOV CX,M4 ; COUNT OF MONO VIDEO PARMS
;----- BX POINTS TO CORRECT ROW OF INITIALIZATION TABLE
0499
32 E4
XOR
AH,AH
; AH WI LL SERVE AS REG I STER NUMBER OUR I NG LOOP
LOOP THROUGH TABLE, OUTPUTTTING REG ADDRESS, THEN VALUE FROM TABLE
0498 8A C4 M10: MOV AL,AH
GET 6845 REG I STER NUMBER
0490
EE
OUT DX,AL
049E 42
INC
DX
POINT TO DATA PORT
049F FE C4
INC
Ali
NEXT REG I STER VALUE
04A1 2E: 8A 07 MOV AL,CS: [BX]
GET TABLE VALUE
04A4
EE
our
DX,AL
OUT TO CH I P
04A5
43
INC
BX
NEXT I N TABLE
04A6
4A DEC DX
BACK TO PO I NTER REG I STER
04A7 E2 F2
LOOP
M1D
DO THE WHOLE TABLE
04A9 8A E2 MDV AH,DL
CHECK I F COLOR CARD DONE
04AB 80 E4 FO
AND
AH,OFOH
STRI P UNWANTED BITS
04AE 80 FC DO CMP AH,ODOH
'S I T THE COLOR CARD?
04B1 74 08 JZ Z 3
CaNT I NUE I F COLOR
01~B3 BB 0000 E
MOV
BX,OFFSET VIOEO_PARMS POINT TO VIDEO PARMS
04B6 BA 0304 MOV OX,3D4H
COLOR BASE
04B9
EB DB
JMP Z_2
CaNT I NUE
;------ FILL REGEN AREA WITH BLANK
04BB
33
FF XOR 01,01
SET UP PO I NTER FOR REGEN
04BO B8 BOOO
MOV
AX,OBOOOH
SET UP ES TO VIDEO REGEN
04CO 8E CO
MOV
ES,AX
04C2 B9 0800 MOV CX,2048
NUMBER OF WORDS I N MONO CARD
04C5 B8 0720 MOV
AX ' '+7*256
FILL CHAR FOR ALPHA
04C8
F3/
AB
REP
STOSW
FILL THE REGEN BUFFER WITH BLANKS
04CA 33 FF
XOR
01,01
CLEAR COLOR V IDEO RAM
04CC BB B800
MOV
BX,OB800H
SET UP ES TO COLOR V IDEO RAfol
04CF 8E C3 MOV ES,BX
0401 B9 2000
MOV
CX,8192
0404 F3/ AB REP STOSW
FILL WITH BLANKS
ENABLE V IDEO AND CORRECT PORT SETT I NG
0406 SA 03B8 MOV OX,3B8H
0409 BO 29 MOV AL,29H
040B
EE
OUT OX,AL
SET V IDEO ENABLE PORT
SET UP OVERSCAN REGISTER
040C 42 INC DX
SET OVERSCAN PORT TO A DEFAULT
0400 BO 30 MOV AL,30H
VALUE OF 301l FOR ALL MODES EXCEPT 640X200
04DF
EE
OUT DX,AL
OUTPUT THE COR-RECT VALUE TO 309 PORT
ENABLE COLOR V IDEO AND CORRECT PORT SETT I NG
O'IEO
BA 0308 MOV DX,308H
04E3
BO 28 MOV AL,28H
04E5
EE
OUT DX,AL SET VIDEO ENABLE PORT
;----- SET UP OVERSCAN REGISTER
04E6 ,,2 INC
DX
SET OVERSCAN PORT TO A DEFAULT
0/lE7
04E9
BO 30
EE
MOV
OUT
AL,30H
OX,AL
VALUE OF 30H FOR ALL MODES EXCEPT 640X200
OUTPUT THE CORRECT VALUE TO 309 PORT
DISPLAY fAILING CHECKPOINT AND
04EA 8C C8
MOV
AX,CS
SET STACK SEGMENT TO CODE SEGMENT
04EC 8E DO MOV SS,AX
04EE
04F1
BB BOOO
8E DB
MOV
MOV
aX,OBOOOH
OS,BX
SET OS TO BW CRT BUFFER
04F3 BO 30 Z_O: MOV AL, '0'
o
I SPLAY BANK 000000
04F5
B9 0006
MOV
CX,6
04F8
2B FF
SUB
01,01 START AT 0
04FA
04FC
88 05
47
Z, MOV
INC
OS:[OI ],AL
DI
WR I TE TO CRT BUFFER
POINT TO NEXT POSTITON
04FD
47
INC DI
04FE E2 FA LOOP
Z
0500
80 FF B8
CMP
BH,OB8H CliECK THAT COLOR BUFFER WRITTEN
0503
0505
74 OC
2B FF
JZ
SUB
Z 1
oT,ol
POINT TO START OF BUFFER
0507 B7 BO MOV BH,OBOH
0509
8E c3
MOV
ES, BX ES
'=
'''laNa
050B B7 B8 MOV
BH,OB8H SET SEGMENT TO COLOR
0500 8E DB MDV
OS, BX
OS = COLOR
050F EB E2 JMP Z_D
PR
I
NT FAILING BIT PATTERN
0511
0513
0515
0518
BO 20
88 05
26: 88 05
47
MOV
MOV
MOV
INC
AL, '
OS: [01 ],AL
ES: [01 ],AL
DI
DISPLAY A BLANK
WR I TE TO COLOR BUFFER
WR I TE TO MONO BUFFER
PO I NT TO NEXT POST I
TON
0519
051A
47
E4 81
INC
IN
DI
AL, MFG_PORT+1
GET THE H t GH BYTE OF FAll NG PATTERN
051C
051E
Bl 04
02 E8
MOV
SHR
CL,4
AL,CL
SH I FT COUNT
NIBBLE SWAP
0520
0523
BC 050E R
EB 1 E 90
MOV
JMP
SP,OFFSET Zl_0
PR
~
0526 E4 81
Z1 :
IN
AL, MFG_PORT+1
0528
24 OF AND AL,OFH
I SaLAH TO LOW NIBBLE
052A BC 05EO R MOV
SP,OFFSET Z2_0
0520
0530
0532
EB 14 90
E4 82
B1 04
Z2:
JMP
IN
MOV
PR
AL, MFG_PORT+2
CL,4
GET THE HIGH BYTE OF FAll NG PATTERN
SH I
FT
COUNT
0534 02 E8 SHR
AL,CL
NIBBLE SWAP
0536 BC 05E2 R
MOV
SP,OFFSET Z3_0
0539
EB 08 90 JMP PR
053C
E4 82 Z3:
IN
AL, MFG_PORT+2
053E
24 OF AND AL,OFH
I SOLATE TO LOW NIBBLE
0540
BC 05E4 R
MOV
SP,OFFSET Z4_0
RETURN TO Z4:
; ------- CONVERT AND PR I NT
5-40 Test 1