From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 19 Sep 2001 09:57:56 +0000 (+0000)
Subject: Make the code somewhat smaller
X-Git-Tag: V2.12.0~2634
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=2ffb7443167531e6d1c33542d38cf3c455be533e;p=cc65

Make the code somewhat smaller


git-svn-id: svn://svn.cc65.org/cc65/trunk@950 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/c128/mouse.s b/libsrc/c128/mouse.s
index 7f2dea918..05628a54d 100644
--- a/libsrc/c128/mouse.s
+++ b/libsrc/c128/mouse.s
@@ -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