home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SVGAPAS.ZIP / SVGA256.INC < prev    next >
Encoding:
Text File  |  1992-05-30  |  943 b   |  37 lines
  1. (************************************************)
  2. (*                         *)
  3. (*        SuperVGA BGI driver defines        *)
  4. (*        Copyright (c) 1990        *)
  5. (*        Jordan Hargraphix Software        *)
  6. (*                        *)
  7. (************************************************)
  8.  
  9. type DacPalette = array[0..255] of array[0..2] of Byte;
  10.  
  11. (* These are the currently supported modes *)
  12. const
  13.   VGA320x200    = 0;    (* Standard VGA *)
  14.   SVGA640x400    = 1;    (* 640x400x256 Svga *)
  15.   SVGA640x480    = 2;    (* 640x480x256 Svga *)
  16.   SVGA800x600    = 3;    (* 800x600x256 Svga *)
  17.   SVGA1024x768    = 4;    (* 1024x768x256 Svga *)
  18.  
  19.  
  20. (* Setvgapalette sets the entire 256 color palette *)
  21. (* PalBuf contains RGB values for all 256 colors   *)
  22. (* R,G,B values range from 0 to 63               *)
  23. procedure SetVGAPalette(PalBuf : DacPalette);
  24. var
  25.   Reg : Registers;
  26.  
  27. begin
  28.   reg.ax := $1012;
  29.   reg.bx := 0;
  30.   reg.cx := 256;
  31.   reg.es := Seg(PalBuf);
  32.   reg.dx := Ofs(PalBuf);
  33.   intr($10,reg);
  34. end;
  35.  
  36.  
  37.