From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Thu, 4 Feb 2010 20:08:50 +0000 (+0000)
Subject: Some more improvements (untested).
X-Git-Tag: V2.13.2~22
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=aa6a507991221d8872ca1729bac1a0a3262cc9d8;p=cc65

Some more improvements (untested).


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

diff --git a/libsrc/c64/c64-c256k.s b/libsrc/c64/c64-c256k.s
index 0578f337b..317d8ce88 100755
--- a/libsrc/c64/c64-c256k.s
+++ b/libsrc/c64/c64-c256k.s
@@ -151,7 +151,7 @@ INSTALL:
         jsr	backup_and_setup_check_routine
         jsr	CHECKC256K
         cli
-        ldx	#$29
+        ldx	#.sizeof (c256kcheckcode) - 1
         jsr	restore_data
         cpy	#$01
         beq	@present
@@ -212,8 +212,7 @@ MAP:
 
 ; Return the memory window
 
-        ldx	#$0A
-        jsr	restore_data
+        jsr	restore_copy_routine
         lda	#<window
         ldx	#>window		; Return the window address
         cli
@@ -258,8 +257,7 @@ COMMIT:
 
 ; Return the memory window
 
-        ldx	#$0A
-        jsr	restore_data
+        jsr	restore_copy_routine
 done:
         cli
         rts
@@ -309,8 +307,7 @@ COPYFROM:
         bne	@L1
         inc	ptr3+1
         bne	@L1
-        ldx	#$0A
-        jsr	restore_data
+        jsr	restore_copy_routine
         cli
         rts
 
@@ -375,8 +372,7 @@ COPYTO:
         bne  	@L1
         inc  	ptr3+1
         bne  	@L1
-        ldx  	#$0A
-        jsr  	restore_data
+        jsr  	restore_copy_routine
         cli
         rts
 
@@ -474,6 +470,8 @@ backup_and_setup_check_routine:
         bpl	@L1
         rts
 
+restore_copy_routine:
+        ldx	#.sizeof (c256kcopycode) - 1
 restore_data:
         lda	backup,x
         sta	CHECKC256K,x