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 / CPM / TURBOPAS / TP-UTIL.ARK / MOUSE.SRC < prev    next >
Text File  |  1986-01-06  |  512b  |  20 lines
  1. PROCEDURE MOUSE(VAR M1,M2,M3,M4 : INTEGER);
  2.  
  3. TYPE REG_PACK = RECORD
  4.                   AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : INTEGER
  5.                 END;
  6.  
  7. VAR REGISTERS : REG_PACK;
  8.  
  9. BEGIN
  10.   WITH REGISTERS DO
  11.     BEGIN
  12.       AX := M1; BX := M2; CX := M3; DX := M4
  13.     END;
  14.   INTR($51,REGISTERS);
  15.   WITH REGISTERS DO
  16.     BEGIN
  17.       M1 := AX; M2 := BX; M3 := CX; M4 := DX
  18.     END
  19. END;
  20.