IBM PC CONVERTIBLE

02AB
02AB
8B 16 0063
02AF 83 C2 05
02B2 AO 0066 R
02B5 OA FF
02B7
75 OE
02B9 24 EO
02BB 80 E3
IF
02BE
OA C3
02CO
02CO
EE
02Cl A2 0066 R
02C4 E9 016F R
02C7
02C7 24 OF
02C9 DO EB
02CB 73 F3
02CD OC 20
02CF
EB EF
0201
0201
SET COLOR
INPUT
OUTPUT
THIS ROUTINE WILL ESTABLISH BACKGND COLOR, THE OVERSCAN
COLOR, AND THE FOREGROUND COLOR SET FOR MEDIUM RESOLUTION
GRAPHICS
(BH) HAS COLOR 10
IF BH=O, THE BACKGROUND COLOR VALUE IS SET
FROM THE LOW BITS OF BL (0-31)
IF BH=I, THE PALETTE SELECTION IS MADE
BASED ON THE LOW BIT OF BL:
O=GREEN, RED; YELLOW FOR COLORS 1,2,3
I=BLUE, CYAN, MAGENTA FOR COLORS 1,2,3
(BL) HAS THE COLOR VALUE TO BE USED
(OS) - DATA SEGMENT
THE COLOR SELECTION IS UPDATED
SELCOLOR PROC
NEAR
MOV
OX, ADDR_6845 I/O PORT FOR PALETTE
ADD DX,5 OVERSCAN PORT
MOV AL, CRLPALETTE GET THE CURRENT PALETTE VAL
OR BH, BH IS THIS COLOR O?
JNZ M20
OUTPUT COLOR 1
HANDLE COLOR 0 BY SETTING THE BACKGROUND COLOR
AND AL,OEOH
TURN OFF LOW 5 BITS OF CRNT
AND
BL,OIFH
TURN OFF H 3 BITS INPUT VAL
OR AL, BL
PUT VALUE INTO REGISTER
M19 : OUTPUT THE PALETTE
OUT DX,AL
SEND COLOR TO 309 PORT
MOV CRLPALETTE,AL
SAVE THE COLOR VALUE
JMP
VIDEO_RETURN
HANDLE COLOR 1 BY SELECTING THE PALETTE TO BE USED
M20:
AND AL ,ODFH TURN OFF PALETTE SELECT BIT
SHR BL,1
TEST THE LOW ORDER BIT OF BL
JNC M19
ALREADY DONE
OR AL ,20H
TURN ON PALETTE SELECT BIT
JMP M19 GO DO IT
SELCOLOR ENDP
VIDEO STATE
INPUT
OUTPUT
RETURNS THE CURRENT VIDEO STATE INFORMATION
OS = DATA SEGMENT
AH = NUMBER OF COLUMNS ON THE SCREEN
AL = CURRENT VIDEO MODE
BH = CURRENT ACTIVE PAGE
VIDEO_STATE PROC NEAR
0201 8A 26 004A R MOV AH, BYTE PTR CRLCOLS ; GET NUMBER OF COLUMNS
0205 AO 0049 R
0208 8A 3E 0062
02DC 55
0200 8B EC
020F 89 5E 08
02E2 50
02E3 E9 016F R
02E6
MOV AL, CRLMODE CURRENT MODE
MOV BH,ACTIVE_PAGE GET CURRENT ACTIVE PAGE
PUSH BP
MOV BP, SP GET PTR TO STACK SAVE AREA
MOV [BP] .BLPOS,BX SETUP RETURN VALUES IN STACK
POP BP
JMP VIDEO_RETURN
VIDEO_STATE ENDP
ROM BIOS 2-91