IBM XT 5160 Technical Reference page 298

liNE SOURCE (B I OS FOR THE I BM PERSONAL COMPUTER XT) I I /08/82
; - - - - - ENABLE V IDEO AND CORRECT PORT SETT I NG
; - - - - - lOOP THROUGH TABLE, OUTPUTTT I NG REG ADORE SS, THEN V AlUE FROM TABLE
5-151
SET V IDEO ENABLE PORT
SAVE THAT VALUE
INI T lOOP
GET 6845 REG I STER NUMBER
SET CURRENT CURSOR MODE
GET THE MODE
I NTO AX REG I STER
T ABLE PO INTER, I NDEXED BY MODE
PREPARE TO OUTPUT TO
V IDEO ENABLE PORT
PO I NT TO DATA PORT
NEXT REGISTER VALUE
GET TABLE VALUE
OUT TO CHIP
NEXT I N TABLE
BACK TO PO I NTER REG I STER
DO THE WHOLE TABLE
GET MODE BACK
RECOVER SEGMENT VALUE
SET UP PO I NTER FOR REGEN
START ADDRESS SAVED IN GLOBAL
SET PAGE VALUE
NUMBER OF WORDS I N COLOR CARD
TEST FOR GRAPH I CS
NO GRAPHICS INIT
TEST FOR BW-CARD
BW CARD INIT
FILL FOR GRAPH I CS MODE
CLEAR BUFFER
BW CARD INIT
BUFFER SIZE ON BW CARD
NO GRAPHICS INIT
FILL CHAR FOR ALPHA
CLEAR BUFFER
F i l l THE REGEN BUFFER WITH BLANKS
NUMBER OF COLUMNS IN TH I S SCREEN
WORD OFFSET I NTO CLEAR lENGTH TABLE
lENGTH TO CLEAR
SAVE lENGTH OF CRT -- NOT USED FOR BW
CLEAR All CURSOR POS I T IONS
ESTABLI SH SEGMENT
ADDRESS ING
F i l l WITH ZEROES
ADDRESS OF COLOR CARD
MODE SET FOR COLOR CARD
I S BW CARD INS T AllED
OK WITH COLOR
I NO I CATE BW CARD MODE
ADDRESS OF BW CARD (3B4)
MODE SET FOR BW CARD
GET PO I NTER TO V IDEO PARMS
RECOVER PARMS
lENGTH OF EACH ROW OF TABLE
DETERM I NE WH I CH ONE TO USE
MODE ISO OR I
MOVE TO NEXT ROW OF I NIT TABLE
MODE IS 2 OR 3
MOVE TO GRAPHICS ROW OF INlT_TABlE
MODE I S 4, 5, OR 6
MOVE TO BW CARD ROW OF I NIT_TABLE
SAVE MODE IN AH
SA VE I N GLOBAL VAR I ABLE
SAVE ADDRESS OF BASE
SAVE PO I NTER TO OAT A SEGMENT
SAVe: MODE
SAVE OUTPUT PORT VALUE
PO I NT TO CONTROL REG I STER
GET MODE SET FOR CARD
RESET V IDEO
BACK TO BASE REG I STER
SET UP FOR ABSO SEGMENT
ESTABLISH VECTOR TABLE ADDRESSING
; OUT INIT
; SAVE MODE IN AH
; AH Will SERVE AS REG I STER
; NUMBER OUR I NG lOOP
AX
AH,AH
CURSOR MODE,607H
Al , CRT-MODE
AH,AH -
S I ,AX
OX, ADDR_6845
Al,CS: [S I +OFFSET M6]
AH,AH
CRT_ COlS, AX
DX,4
Al,CS:[SI+OFFSET M7]
DX,Al
CRT_MODE_SET, Al
AH,Al
CRT MODE,Al
ADDR 6845, OX
OS -
AX
OX
DX,4
Al,Bl
DX,Al
OX
AX,AX
DS,AX
OS: ABSO
BX ,PARM PTR
AX -
DS:CODE
CX,M4
AH,2
M9
BX,CX
AH,4
M9
BX,CX
AH,7
M9
BX,CX
SI,OEH
CX, CS: [S I +OFFSET M5]
CRT lEN,CX
CX,8
01 ,OFFSET CURSOR POSN
OS -
ES
AX,AX
STOSW
PROC NEAR
DX,03D4H
Bl,O
DI,30H
M8
Al,7
Dl,OB4H
Bl
PC-XT System BIOS (11/08/82)
MOV
MOV
XOR
MOV
MOV
ADD
MOV
OUT
MOV
PUSH
XOR
AND
MOV
MOV
MOV
MOV
PUSH
POP
XOR
REP
MOV
XOR
MOV
MOV
MOV
MOV
PUSH
PUSH
PUSH
ADD
MOV
OUT
POP
SUB
MOV
ASSUME
lOS
POP
ASSUME
MOV
CMP
JC
ADD
CMP
JC
ADD
CMP
JC
ADD
SET CURSOR POS I T IONS
;----- BX POINTS TO CORRECT ROW OF INITIALIZATION TABLE
; - - - - - DETERM I NE NUMBER OF COLUMNS, BOTH FOR ENTI RE 0 I SPlA Y
; - - - - - AND THE NUMBER TO BE USED FOR TTY I NTERF ACE
SET MODE
- MOV
MOV
CMP
JNE
MOV
MOV
INC
MIO:
MOV
Al,AH
OUT DX,AL
INC OX
INC AH
MOV
Al, [BX]
OUT
DX,Al
INC BX
DEC OX
lOOP MIO
POP AX
POP OS
ASSUME DS:DATA
; ----- F i l l REGEN AREA WITH BLANK
XOR 01,01
MOV CRT START,DI
MOV
ACTIVE PAGE, 0
MOV
CX,8192
CMP AH,4
JC MI2
CMP AH,7
JE MIl
XOR AX,AX
JMP
SHORT M13
MIl:
MOV CH,08H
M12:
MOV
AX, ' '+7*256
M13:
REP STOSW
3511
3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
3433
3434
3435
3436
3437
3438
3439
3440
3441
3442 M8:
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472 M9:
3473
3474
3475
3476
3477
3478
3479
3480
3481
3482
3483
3484
3485
3486
3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
3500
350 I
3502
3503
3504
3505
3506
3507
3508
3509
3510
lOC OBJECT
FI40
F 140 50
F 141 32E4
FI28 B91000
F 12B 80FC02
F 12E 7210
F 130 0309
F 132 80FC04
F135 7209
F137 0309
F 139 80FC07
FI3C 7202
F13E 0309
F123 C51E7400
F127 58
FI5233FF
F 154 893E4EOO
F 158 C606620000
F 150 B90020
F 160 80FC04
FI63 720B
F16580FC07
F168 7404
F 16A 33CO
F 16C EB05
F16E
F 16E B508
FI70
FI70 B82007
F173
F 173 F3
FI74 AB
FOFC
FOFC BAD403
FOFF B300
FlO I 83FF30
Fl047506
FI06 B007
F 108 B2B4
FIOA FEC3
FlOC
FlOC 8AEO
FlOE A24900
FIll 89166300
F115 IE
FI 16 50
FI17 52
F 118 83C204
FllB 8AC3
FIID EE
FIlE 5A
FllF 2BCO
F 121 8ED8
F143
F 143 8AC4
F 145 EE
FI46 42
FI47 FEC4
FI49 8A07
F14B EE
F 14C 43
F 140 4A
FI4E E2F3
F150 58
F151 IF
F 192 2E8A84ECFO
F197 32E4
F 199 A34AOO
FI75 C70660000706
F I 7B A04900
F17E 32E4
F 180 8BFO
FI828B166300
F 186 83C204
F 189 2E8A84F4FO
FI8E EE
F 18F A26500
F19C 81E60EOO
F 1AO 2E8B8CE4FO
F I A5 890E4COO
F 1A9 B90800
F 1AC BF5000
FIAF IE
FIBO 07
F1Bl 33CO
F1B3 F3
F1B4 AB