home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPEGA.ZIP / GPPLOT.P < prev    next >
Encoding:
Text File  |  1986-04-29  |  1.0 KB  |  22 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: Plot a pixel on the ECD in 640x350 mode, use GPCOLOR      }
  6. {    to control the color and GPMERGE to control the combining of bits.     }
  7. {    This procedure will set the current (X,Y) coordinates.               }
  8. {                                           }
  9.  
  10. procedure GPPLOT(X,Y: Integer);
  11. begin
  12.   inline
  13.     ($C7/$06/GDC_FLG/>$00 /$8B/$46/$04 /$3B/$06/GDVW_Y1 /$7C/$15
  14.       /$3B/$06/GDVW_Y2 /$7F/$0F /$8B/$7E/$06 /$3B/$3E/GDVW_X1 /$7C/$06
  15.       /$3B/$3E/GDVW_X2 /$7E/$08 /$C7/$06/GDC_FLG/>$02 /$EB/$49 /$A3/GDCUR_Y
  16.       /$D1/$E0 /$D1/$E0 /$03/$46/$04 /$05/$A000 /$8E/$C0 /$89/$3E/GDCUR_X
  17.       /$8B/$CF /$D1/$EF /$D1/$EF /$D1/$EF /$BA/$03CE /$8A/$26/GDMERGE /$B0/$03
  18.       /$EF /$B8/$0205 /$EF /$B0/$08 /$EE /$42 /$B0/$80 /$80/$E1/$07 /$D2/$C8
  19.       /$EE /$26/$8A/$05 /$A0/GDCOLOR /$26/$88/$05 /$B0/$FF /$EE /$4A /$B8/>$05
  20.       /$EF /$B0/$03 /$EF);
  21. end;
  22.