home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TEGA02.ZIP / GPRDPAL.P < prev    next >
Encoding:
Text File  |  1986-01-19  |  935 b   |  17 lines
  1. {                                                                              }
  2. {       EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01FEB86.         }
  3. {       (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518      }
  4. {                                                                              }
  5. {       Description: Read the setting of the palette register.  This can       }
  6. {       only be done if an EGA save area has been assigned, else -1 will       }
  7. {       be returned.  Use the program 'KCSETPAL' to build save area.           }
  8. {                                                                              }
  9.  
  10. function GPRDPAL(Palette: Integer): Integer;
  11. begin
  12.  inline
  13.    ($33/$C0/$8E/$C0/$26/$C4/$1E/$04A8/$83/$C3/$04/$26/$C4/$1F/$8C/$C0/$0B/$C3/
  14.     $74/$14/$8A/$46/<Palette/$3C/$FF/$75/$02/$B0/$11/$32/$E4/$03/$D8/$26/$8A/
  15.     $07/$32/$E4/$EB/$03/$B8/$FFFF/$89/$46/$06);
  16. end;
  17.