|
- mse_off:
- pea mseoff_str
- move.w #0,-(sp)
- move.w #25,-(sp)
- trap #14
- addq.l #8,sp
- rts
-
- mse_rel:
- pea relmse_str
- move.w #0,-(sp)
- move.w #25,-(sp)
- trap #14
- addq.l #8,sp
- rts
-
- init_mse:
- move.w #34,-(sp)
- trap #14
- addq.l #2,sp
- movea.l d0,a0
- move.l 16(a0),gem_mse
- lea mse_handle,a1
- move.l a1,16(a0)
- rts
-
- mse_handle:
- clr.w d0
- move.b (a0)+,d0
- andi.w #3,d0
- move.w d0,mse_click
- move.b (a0)+,d0
- move.w d0,mouse_dx
- move.b (a0)+,d0
- move.w d0,mouse_dy
- rts
-
- mse_term:
- move.w #34,-(sp)
- trap #14
- addq.l #2,sp
- movea.l d0,a0
- movea.l gem_mse,a1
- move.l a1,16(a0)
- rts
-
- .DATA
- mseoff_str: .DC.b $12
- relmse_str: .DC.b $08
-
- .BSS
- gem_mse: .DS.l 1
- mse_click: .DS.w 1
- mouse_dx: .DS.w 1
- mouse_dy: .DS.w 1
-
|
