IBM 5150 - 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 B HE
; 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