program lab6zad2;
{zrobilem ale program padl i sie nie zapisalo :)
do 3 zadania jest to samo tylko tryb graficzny trzeba zmienic}
uses DOS;
var
   rej : registers;
   p : POINTER;

procedure TextInit;
BEGIN
     rej.ah := $00;
     rej.al := $00;
     intr($10, rej);
END;

procedure MouseInit;
BEGIN
     rej.ax := $0000;
     intr($33, rej);
END;

procedure MouseStatus;
BEGIN
     rej.ax := $0003;
     intr($33, rej);
     writeln('Pozycja myszki: x = ', rej.cx, ', y = ', rej.dx, ', przycisk: ', rej.bx);

END;


procedure MouseInterrupt; interrupt;
BEGIN
     MouseInit;
     MouseStatus;
END;

BEGIN
     TextInit;
     p := @MouseInterrupt;
     rej.ax := $000c;
     rej.cx := 127;
     rej.es := seg(p^);
     rej.dx := ofs(p^);
     intr($33, rej);
END.