6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-25 17:29:50 +00:00
Code Issues Projects Releases Wiki Activity

Make the code somewhat smaller

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@950 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2001-09-19 09:57:56 +00:00
parent c1ea31d24c
commit 2ffb744316
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
libsrc/c128/mouse.s
View File

@ -99,24 +99,26 @@ AlreadyInitialized:
; void mouse_done (void);
;
.proc _mouse_done
_mouse_done:
lda Initialized ; Initialized?
beq @L1 ; Jump if no
beq mddone ; Jump if no
lda #0
sta Initialized ; Reset the initialized flag
lda OldInitStatus ; Load the old BASIC int bit
and #$01 ; Mask it
sei ; Disable interrupts
ora INIT_STATUS ; Restore the old state
sta INIT_STATUS
; Disable the mouse sprite
DisableSprite:
lda #$FE ; Clear bit for sprite #0
sei ; Disable interrupts
and VIC_SPR_ENA
sta VIC_SPR_ENA ; Disable sprite
cli ; Enable interrupts
@L1: rts
mddone: rts
.endproc
; --------------------------------------------------------------------------
;
@ -127,13 +129,7 @@ AlreadyInitialized:
lda Invisible ; Get the flag
bne @L1 ; Jump if already invisible
lda #$FE ; Clear bit for sprite #0
sei ; Disable interrupts
and VIC_SPR_ENA
sta VIC_SPR_ENA ; Disable sprite
cli ; Enable interrupts
jsr DisableSprite ; Disable the mouse sprite
@L1: inc Invisible ; Set the flag to invisible
rts