the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Polishing the mouse stuff

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@871 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2001-09-08 15:35:13 +00:00
parent e401636c28
commit 2760787727
3 changed files with 34 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
libsrc/c128/mouse.s
View File

@@ -57,7 +57,7 @@ _mouse_init:
sta YMax
stx YMax+1 ; YMax = 250
inx ; X = 1
stx Visible ; Mouse *not* visible
stx Invisible ; Mouse *not* visible
lda #<344
sta XMax
stx XMax+1 ; XMax = 344
@@ -105,7 +105,7 @@ Done: rts
;
_mouse_hide:
lda Visible ; Get the flag
lda Invisible ; Get the flag
bne @L1 ; Jump if already invisible
ldx MouseSprite ; Sprite defined?
beq @L1 ; Jump if no
@@ -117,7 +117,7 @@ _mouse_hide:
sta VIC_SPR_ENA ; Disable sprite
cli ; Enable interrupts
@L1: inc Visible ; Set the flag to invisible
@L1: inc Invisible ; Set the flag to invisible
rts
; --------------------------------------------------------------------------
@@ -126,10 +126,10 @@ _mouse_hide:
;
_mouse_show:
lda Visible ; Mouse already visible?
beq @L1 ; Jump if yes
dec Visible ; Get the flag
bne @L1 ; Jump if still invisible
lda Invisible ; Mouse invisible?
beq @L1 ; Jump if no
dec Invisible ; Set the flag
bne @L1 ; Jump if still invisible
ldx MouseSprite ; Sprite defined?
beq @L1 ; Jump if no
@@ -392,7 +392,7 @@ MoveCheck:
MoveSprite:
lda Visible ; Mouse visible?
lda Invisible ; Mouse visible?
bne MoveSpriteDone ; Jump if no
ldx MouseSprite ; Sprite defined?
beq MoveSpriteDone ; Jump if no
@@ -438,7 +438,7 @@ MouseSprite: .res 1 ; Number of sprite to control
OldValue: .res 1 ; Temp for MoveCheck routine
NewValue: .res 1 ; Temp for MoveCheck routine
Visible: .res 1 ; Is the mouse visible?
Invisible: .res 1 ; Is the mouse invisible?
OldPotX: .res 1 ; Old hw counter values
OldPotY: .res 1