9 17

procedure set_mouse_page(page:Word); begin regs.AX:=$1D; regs.BX:=page; Intr($33,regs); end; procedure get_mouse_page(var page:Word); begin regs.AX:=$1E; Intr($33,regs); page:=regs,BX; end; procedure reset_mouse_sogtware(vat insyalled:Boolean:var... More

procedure set_mouse_page(page:Word); begin regs.AX:=$1D; regs.BX:=page; Intr($33,regs); end; procedure get_mouse_page(var page:Word); begin regs.AX:=$1E; Intr($33,regs); page:=regs,BX; end; procedure reset_mouse_sogtware(vat insyalled:Boolean:var no_buttons:Word); begin regs.AX:=$21; Intr($33,regs); installed:=regs.AX+$FFFF; no buttons:=regs.BX; end; Less