home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG099.ARC / POINT.I < prev    next >
Text File  |  1979-12-31  |  640b  |  23 lines
  1. Function Point(X, Y : Integer) : Byte;
  2. {Given points X in [0.511] and Y in [0..255] it will return
  3.        255 if either co-ordinate out of range
  4.        0   if it is reset
  5.        1   if it is set}
  6.  
  7. var
  8.   PCG : Byte;
  9.  
  10. Begin
  11.   If not((X>=0) and (X<512) and (Y>=0) and (Y<256)) then Point := 255
  12.   else
  13.     begin
  14.       PCG := Mem[$F3C0 + X Div 8 - (Y Div 16) * 64];
  15.       Port[28] := 135 - (Y Div 32);
  16.       if Odd(Mem[PCG * 16 + $F00F - (Y Mod 16)] Shr (7 - X Mod 8)) then
  17.         Point := 1
  18.       else
  19.         Point := 0;
  20.       Port[28] := 128
  21.     end
  22. End;
  23.