{<<<< Mouse >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 20.6 -- Last mod 5/3/86   }
{ Specific to the Microsoft Mouse driver }

PROCEDURE Mouse(VAR M1,M2,M3,M4 : Integer);

VAR
  Registers : RegPack;

BEGIN
  WITH Registers DO
    BEGIN
      AX := M1; BX := M2; CX := M3; DX := M4
    END;
  Intr(51,Registers);
  WITH Registers DO
    BEGIN
      M1 := AX; M2 := BX; M3 := CX; M4 := DX
    END
END;
