IBM 5150 Hardware Reference Manual page 239

lOC OBJ LINE SOURt.:E
FOA43828ZDOAIF0619
3306 DB
38H. 28H,2DH ,OAH .IFH,6 .19H SET UP FOR 40X25
FOAB lC02070607
3309 DB
FOBO 00000000
3310 DB
0,0.0.0
0010
3311 M4 EoU
3312
FOB4 7l505AOAIF0619 3313
DB
7lH,50H .5AH, OAH ,1FH,6 ,19H
; SET UP FOR 80X2S
FOBe lC02:070607
3314
DB
FOCO 00000000 3315
DB
0.0.0.0
3316
FOC4 38Z82DOA7F0664
3317 08 38H, 28H, 2DH, OAH, 7FH ,6 ,64H
J SET UP FOR GRAPHICS
Foce 7002010607
3318 08
70H,2.1.6,7
FOO~ 00000000
3319 DB 0,0,0,0
3320
FOD4 61S0520F 190619 3321
DB 61H ,SOH .52H, OFH, 19H.6 .19H
SET UP FOR 80X25 B&W CARD
FODe 19020DOBOC
3322 DB 19H. 2, OOH,
oaH.
OCH
FOED 00000000 3323 DB 0,0 ,0,0
3324
FOE4
3325
M5 LABEl WORD J TABLE OF REGEN LENGTHS
FOE4 0006
3326
OW 2048
; 40X25
FOE6 0010
3327
OW 4096 ; 80X:!5
FOEB 0040 3328
OW
16384 ; GRAPHICS
fOEA 0040
3329 OW 16384
3330
3331 ; -----­ COLUMNS
FOEe
3332 M6 LABEL BYTE
FOEC 282850502:8285050
3333 DB 40,40.80.80,40,40.80.80
3334
3335
;------ C_REG_TAB
FOF4
3336 M7 LABEl BHE
; TABLE OF MODE SETS
FOF4 2C282D29ZA2E!E29
3337
DB 2CH ,28H, 2DH, 29H, 2AH, 2EH .1EH. 29H ;
3338
FOFC
3339
PROC NEAR
FOFe 8A0403
3340 MOV DX.03D4H ; ADDRESS OF COLOR CARD
FOFF B300 3341 MOV
BL.O ; MODE SET FOR COLOR CARD
FIOl 83FF10 3342 CMP
or,
JOH ; IS
B~
CARD INSTALLED
Fl04 7507
3343
JNE M8 ; OK WITH COLOR
FI06 B007
3344 MOV AL.7 ; INDICATE B~ CARD MODE
Floe 8A8403
FIOB FEel
3345
3".
MOV
INC
Ox ,
03B4H
BL
; ADDRESS OF BW CARD
; MODE SET FOR
Bioi
CARD
FICO 8AEO
3347 Me: MOY AH,AL ; SAVE MODE IN AH
FIOF A24900
3348
MOV CRT_MODE ,Al ; SAVE IN GLOBAL VARIABLE
F1l2 89166300 3349
MOV ADDR_6845.0X SAVE ADDRESS OF BASE
F1l6 IE
3350
PUSH OS SAVE POINTER TO DATA SEGMENT
Fll750 3351
PUSH AX SAVE MODE
Fl18 52
3352 PUSH
ox
SAVE OUTPUT PORT VALUE
f1l9 63C204
3353 ADD DX,4 POINT TO CONTROL REGISTER
FIle 6AC3
3354 HOV Al.Bl ; GEl HODE SET FOR CARD
FilE EE
3355 OUT DX.AL ; RESET VIDEO
FllF SA
3356 POP OX ; BACK TO BASE REGISTER
FI2e 28CO
3357 SUB AX,AX
I
SET UP FOR ABsa SEGMENT
FIZZ 8E08
3358 MOV DS,AX ESTABLISH YECTOR TABLE ADDRESSING
3359 ASSUME DS:ABSO
F124 C51E7400
3360 lOS BX.PARN_PTR GET POINTER
TO
VIDEO PARMS
F128 56 3361 POP AX ; RECOVER PARMS
3362 ASSUME DS:COOE
FI29 891000 3363
MOV CX.M4 LENGTH Of EACH ROW Of TABLE
Flle 80FCOZ 3364 CMP
AH.2
DETERMWE WHICH DNE TO USE
Fl2F 7210
3365
JC M9 MODE IS
0
OR
1
FBI 0309 3366 ADD Bx,ex MOVE TO NEXT ROW OF INIT TABLE
FI33 BOFC04 3367 CMP AH,4
Fl36 7209
3368
JC
N9
; MODE IS 2 OR 3
Fl3S 0309 3369 ADD BX,CX ; NOVE TO GRAPHICS ROW OF INIT_TABLE
F13A BOFC07
3370
eMP AH,7
F13D 7202
3371 JC N9 MODE IS 4,5. OR 6
F13F 0309 3372 ADO
BX.CX
HOVE TO BW CARD ROW OF INIT_TABLE
3373
3374 ;------ BX POINTS TO CORRECT ROW OF INITIALIZATION TABLE
3375
F141 3376 M9:
F141 50 3377 PUSH AX • SAVE I':OOE IN AH
Fl42 32E4 3378
XOR AH,AH
; AH WILL SERVE AS REGISTER NUMBER DURItlG LOOP
3379
3380 ;------ LOOP TllRCUGH TABLE. OUTPUTTTING REG ADDRESS, THEN VALUE FROM TABLE
3381
F144 3382
HID: ; nUT LOOP
Fl44 8AC4
3383
NOV AL,AH ; GET 6845 REGISTER ~ruMBER
A-46