; Mouse Calls for Gabasic
; Gabriel Fernandez 2000

Mouseshow:
  mov eax, 1
  int 33h
ret

Mousehide:
  mov eax, 2
  int 33h
ret

Mousebutton:
  mov eax, 3
  int 33h
ret

Getmousex:
  mov eax, 3
  int 33h
  CMP word [screenmode], 0
JNE getgmousex
   MOV BX, CX
   SHR BX, 3
   INC BX
RET
getgmousex:
   MOV BX, CX
   SHR BX, 1
RET

Getmousey:
  mov eax, 3
  int 33h
  CMP word [screenmode], 0
JNE getgmousey
   MOV BX, DX
   SHR BX, 3
   INC BX
RET
getgmousey:
   MOV BX, DX
RET
