CURSE / MOUSE

{$O+ $F+}
unit mouse;

interface
uses Graph,Crt,Dos;
var
CurX,CurY:word;
Click:byte;
procedure InitMouse(Xm,Ym:word);
procedure ShowMouse;
procedure HideMouse;
procedure GetMouse;
procedure SetMouseYRange(MouseYMax,MouseYMin:word);

implementation



procedure InitMouse(Xm,Ym:word);
begin
asm
mov ax,0000h
int 33h
MOV AX,07
MOV CX,01
MOV DX,Xm
INT 33H
MOV AX,08
MOV CX,01
MOV DX,Ym
INT 33H
end;
end;
procedure ShowMouse;
begin
asm
mov ax,1
int 33h
end;
end;
procedure HideMouse;
begin
asm
mov ax,2
int 33h
end;
end;

procedure GetMouse;
var buttn,x1,y1:word;
begin
asm
mov ax,3
int 33h
mov buttn,bx
mov x1,cx
mov y1,dx
end;
CurX:=x1;
CurY:=y1;
Click:=buttn;
end;

procedure SetMouseYRange(MouseYMax,MouseYMin:word);
var r:registers;
begin
r.AX:=8;
r.cx:=MouseYMin;
r.dx:=MouseYMax;
intr($33,r);
end;
end.