39 lines
1.0 KiB
Plaintext
39 lines
1.0 KiB
Plaintext
(************************************************)
|
||
(* *)
|
||
(* SuperVGA 16 BGI driver defines *)
|
||
(* Copyright (c) 1991 *)
|
||
(* Jordan Hargraphix Software *)
|
||
(* *)
|
||
(************************************************)
|
||
|
||
type DacPalette16 = array[0..15] of array[0..2] of Byte;
|
||
|
||
(* These are the currently supported modes *)
|
||
const
|
||
TWK704x528x16 = 0 (* 704x528x16 Tweaked VGA *)
|
||
TWK720x540x16 = 1 (* 720x540x16 Tweaked VGA *)
|
||
TWK736x552x16 = 2 (* 736x552x16 Tweaked VGA *)
|
||
TWK752x564x16 = 3 (* 752x564x16 Tweaked VGA *)
|
||
TWK784x588x16 = 4 (* 784x588x16 Tweaked VGA *)
|
||
TWK800x600x16 = 5 (* 800x600x16 Tweaked VGA *)
|
||
|
||
XNOR_PUT = 5;
|
||
NAND_PUT = 6;
|
||
NOR_PUT = 7;
|
||
|
||
(* Setvgapalette sets the entire 16 color palette *)
|
||
(* PalBuf contains RGB values for all 16 colors *)
|
||
(* R,G,B values range from 0 to 63 *)
|
||
procedure SetVGAPalette16(PalBuf : DacPalette16);
|
||
var
|
||
Reg : Registers;
|
||
|
||
begin
|
||
reg.ax := $1012;
|
||
reg.bx := 0;
|
||
reg.cx := 16;
|
||
reg.es := Seg(PalBuf);
|
||
reg.dx := Ofs(PalBuf);
|
||
intr($10,reg);
|
||
end;
|
||
|