161 lines
2.8 KiB
ArmAsm
161 lines
2.8 KiB
ArmAsm
|
;
|
||
|
|
; Maciej 'YTM/Elysium' Witkowiak
|
||
|
|
;
|
||
|
|
; 2.7.2001
|
||
|
|
;
|
||
|
|
; Wrapper for GEOS standard input device interface
|
||
|
|
;
|
||
|
|
|
||
|
|
.export _mouse_init, _mouse_done
|
||
|
|
.export _mouse_hide, _mouse_show
|
||
|
|
.export _mouse_box, _mouse_info
|
||
|
|
.export _mouse_x, _mouse_y
|
||
|
|
.export _mouse_move, _mouse_buttons
|
||
|
|
|
||
|
|
.import popax, popsreg, addysp1
|
||
|
|
.importzp sp, sreg
|
||
|
|
|
||
|
|
.include "../inc/const.inc"
|
||
|
|
.include "../inc/jumptab.inc"
|
||
|
|
.include "../inc/geossym.inc"
|
||
|
|
|
||
|
|
; .macpack generic
|
||
|
|
|
||
|
|
.code
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; unsigned char __fastcall__ mouse_init (unsigned char port,
|
||
|
|
; unsigned char sprite,
|
||
|
|
; unsigned char type);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_init:
|
||
|
|
jsr popax ; ignore all parameters
|
||
|
|
|
||
|
|
jsr StartMouseMode
|
||
|
|
jsr MouseOff
|
||
|
|
|
||
|
|
lda #0
|
||
|
|
sta mouseTop
|
||
|
|
sta mouseLeft
|
||
|
|
sta mouseLeft+1
|
||
|
|
lda #199
|
||
|
|
sta mouseBottom
|
||
|
|
lda #<319
|
||
|
|
sta mouseRight
|
||
|
|
lda #>319
|
||
|
|
sta mouseRight+1
|
||
|
|
|
||
|
|
lda #0
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; void mouse_done (void);
|
||
|
|
;
|
||
|
|
_mouse_done:
|
||
|
|
rts
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; void mouse_hide (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_hide = MouseOff
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; void mouse_show (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_show = MouseUp
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; void __fastcall__ mouse_box (int minx, int miny, int maxx, int maxy);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_box:
|
||
|
|
ldy #0 ; Stack offset
|
||
|
|
|
||
|
|
sta mouseBottom
|
||
|
|
; stx YMax+1 ; maxy
|
||
|
|
|
||
|
|
lda (sp),y
|
||
|
|
sta mouseRight
|
||
|
|
iny
|
||
|
|
lda (sp),y
|
||
|
|
sta mouseRight+1 ; maxx
|
||
|
|
|
||
|
|
iny
|
||
|
|
lda (sp),y
|
||
|
|
sta mouseTop
|
||
|
|
iny
|
||
|
|
; lda (sp),y
|
||
|
|
; sta YMin+1 ; miny
|
||
|
|
|
||
|
|
iny
|
||
|
|
lda (sp),y
|
||
|
|
sta mouseLeft
|
||
|
|
iny
|
||
|
|
lda (sp),y
|
||
|
|
sta mouseLeft+1 ; minx
|
||
|
|
|
||
|
|
jmp addysp1 ; Drop params, return
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; int __fastcall__ mouse_x (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_x:
|
||
|
|
lda mouseXPos
|
||
|
|
ldx mouseXPos+1
|
||
|
|
rts
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; int __fastcall__ mouse_y (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_y:
|
||
|
|
lda mouseYPos
|
||
|
|
ldx #0
|
||
|
|
rts
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; void mouse_info (...);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_info:
|
||
|
|
rts
|
||
|
|
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; void __fastcall__ mouse_move (int x, int y);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_move:
|
||
|
|
jsr popsreg ; Get X
|
||
|
|
sei ; Disable interrupts
|
||
|
|
|
||
|
|
sta mouseYPos
|
||
|
|
; stx YPos+1
|
||
|
|
lda sreg
|
||
|
|
ldx sreg+1
|
||
|
|
sta mouseXPos
|
||
|
|
stx mouseXPos+1
|
||
|
|
rts
|
||
|
|
|
||
|
|
; --------------------------------------------------------------------------
|
||
|
|
;
|
||
|
|
; unsigned char mouse_buttons (void);
|
||
|
|
;
|
||
|
|
|
||
|
|
_mouse_buttons:
|
||
|
|
lda pressFlag
|
||
|
|
and #SET_MOUSE
|
||
|
|
lsr
|
||
|
|
rts
|