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 / ENTERPRS / CPM / UTILS / F / MOUSE.LBR / MOUSE.INC < prev    next >
Text File  |  2000-06-30  |  768b  |  37 lines
  1. {
  2. SG Tools Pro (C) 1992 Steve Goldsmith
  3.  
  4. The Mouse module allows you to read the 1351 and compatible mouses in port 2
  5. }
  6.  
  7. {sid pot addrs}
  8.  
  9. const
  10.  
  11.   sidPotX = $d419;
  12.   sidPotY = $d41a;
  13.  
  14. {global current mouse position}
  15.  
  16. var
  17.  
  18.   mseX, mseY : byte;
  19.  
  20. {read 1351 mouse, port 2, proportional mode
  21.  and return x, y value >= 0 and <= 63 }
  22.  
  23. procedure ReadMouse2;
  24.  
  25. var
  26.  
  27.   NewX, NewY : byte;
  28.  
  29. begin
  30.   NewX := PortIn (sidPotX) and $7f; {read new pos and}
  31.   NewY := PortIn (sidPotY) and $7f; {mask out high bit}
  32.   if NewX <> $7f then   {if new pos <> $7f then}
  33.     mseX := NewX shr 1; {cur pos = new pos div 2}
  34.   if NewY <> $7f then
  35.     mseY := NewY shr 1
  36. end;
  37.