KURSOV~1 / MOUSE

unit mouse;

interface

uses dos;
const on=1;off=2;
var mouse_on:boolean;r:registers;
x,y,z:word;
Procedure cursor(v:byte);
function MousePosX:word;
function MousePosY:word;
function Click:boolean;
procedure SetMousePos(x, y:word);
procedure MouseShow(sh:word);
procedure CursorOff;
procedure CursorOn;

implementation

Procedure cursor(v:byte);
begin
r.ah:=1;
case v of
on: begin r.ch:=6;r.cl:=7;end;
off:r.ch:=$20;end;intr($10,r);end;

function MousePosX:word;
begin
asm
mov ax,3
int 33h
mov x,cx
end;
MousePosX:=X;
end;

function MousePosY:word;
begin
asm
mov ax,3
int 33h
mov y,dx
end;
MousePosY:=Y;
end;

function Click:boolean;
begin
asm
mov ax,3
int 33h
mov z,bx
end;
if Z=0 then Click:=False
else Click:=True;
end;

procedure SetMousePos(x, y:word);
begin
x:=x*8-1;
y:=y*8-1;
asm
mov ax,4
mov cx,x
mov dx,y
int 33h
end;
end;

procedure MouseShow(sh:word);assembler;
asm
mov ax,sh
int 33h
end;

procedure CursorOff;assembler;
asm
mov ah,1
mov ch,20h
mov cl,0
int 10h
end;

procedure CursorOn;assembler;
asm
mov ah,1
mov ch,6
mov cl,7
int 10h
end;
end.