IBM 5150 - Page 171

LOC OBJ
LINE
SOURCE
F06C 56
3485
PUSH
Sl
F060 57
3486
PUSH
01
F06E 50
3487
flUSH AX
J SAVE AX VAWE
F06F 8"C4
3488
MOV AL,AH
I GET INTO lOW BYTE
F071 32E4
3489
XOR
AH,AH
; ZERO TO HIGH BYTE
FOn DIED
3490 SAL
AX.!
; *2 FOR TABLE LOOKUP
F07S SBFO
3491 MOV SI,AX
; PUT INTO 51 FOR BRANCH
F077 302:000
3492
tMP
AX.HIL
I TEST FOR WITHIN RANGE
F07A 7204
3493
J8
M'
; BRANCH AROUND BRANCH
F07e 56
3494
POP AX ; THROIol AWAY THE PARAMETER
F07D E94501 3495
JMP VIDEO_RETURN ; DO NOTHING IF NOT IN RANGE
FoeD
3496
HZ:
FoeD EB6BOE
3497
CALL
DDS
FOBl B80088 3496
MOV
AX.OBBOOH
; SEGMENT FOR COlOP CARD
F086 8B3EIOOO
3499 MOV
DI.EQUIP JLAG
; GET EQUIPMENT SETTING
FOBA BIE73DOD
3500
ANO DI,30H ISOLATE CRT SIHTCHES
FOSE 6lFF30
3501 tMP
DI.30H
; IS SETTING FOR BW CARD?
F091 7502
3502
JHE
M'
FO'll 8480
3503 MOV AH,OBOH ; SEGMENT FOR BW CARD
F095
3504
HJ:
F095 BEtO
3505 HOV ES,AX I SET UP TO POINT AT VIDEO RAM AREAS
F097 58
3506
POP AX I RECOVER VALUE
F098 8A264900
3507
MOV AH,CRT_MOOE ; GET CURRENT I100E INTO AH
F09C 2EFFA445FO
3508 JMP WORD PTR CS: [SI+OFFSET HI J
3509
VIDEO_IO ENDP
3510
;--------------------------------------------------------
3511 , SET_MODE
3512 THIS ROUTINE INITIALIZES THE ATTACHI1EHT TO
3513 THE SELECTED 110DE. THE SCREEN IS BLAt«ED.
3514
I INPUT
3515
(All = MODE SELECTED (RANGE 0-9'
3516
I OUTPUT
3517
3518
I
NOHE
1---- --- ----------------------------------- -- - ___________
3519
3520
;----- TABLES FOR USE IN SETTING OF HOOE
3521
FOA4
3522
ORG OFOA4H
FOA4
3523 VIDEO_PARMS
LABEL BYTE
3524 ;----- INIT_TABLE
FOA4 38
3525
08
38H .28H .2DH .OAH.IFH,6,19H ; SET UP FOR 40X25
FOA5 28
FOA6 20
FOA7 OA
FOA8 IF
FOA9 06
FOAA 19
FOAB lC
3526
08
lCH.2,7,6.7
FOAC 02
FOAD 07
FOAE 06
FOAF 07
FOBO 00
3527
DB 0.0.0.0
FOBI 00
FOB2 00
FOB3 00
0010
3528 M4
EQIJ
$-VIDEO_PARMS
3529
FOB4 71
3530
DB 71H .50H .SAH .OAH, IFH.6 ,1911 I SET UP FOR 80X25
FOBS 50
FOB6 5A
FOB7 OA
FOB8 IF
FOB9 06
FOBA 19
FOBB IC
3531
08 ICH.2.7,6,7
FOBC 02
FOBD 07
FOBE 06
FOBF 07
FOCO 00 3S32
08
0.0.0.0
FOCI 00
FOC2 00
FOC3 00
3533
FOC4 38
3534 OB 38H. 28H.2DH. OAH, 7FH.6 .64H I SET UP FOR GRAPHICS
FOCS 28
5-78 System BIOS