From 1af46f9998884a140df2b87b1183b3ec7680ba21 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 27 Dec 2003 15:46:23 +0000
Subject: [PATCH] The RAM driver operates of course in bank #1 (not #2)

git-svn-id: svn://svn.cc65.org/cc65/trunk@2843 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/cbm510/cbm510-ram.s | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

diff --git a/libsrc/cbm510/cbm510-ram.s b/libsrc/cbm510/cbm510-ram.s
index 7b2c1c9db..42474b051 100644
--- a/libsrc/cbm510/cbm510-ram.s
+++ b/libsrc/cbm510/cbm510-ram.s
@@ -2,12 +2,12 @@
 ; Extended memory driver for the CBM510 additional RAM banks. Driver works
 ; without problems when linked statically.
 ;
-; Ullrich von Bassewitz, 2002-12-09        !!! UNTESTED !!!
+; Ullrich von Bassewitz, 2002-12-09, 2003-12-27
 ;
 
 	.include 	"zeropage.inc"
 
-      	.include     	"em-kernel.inc"
+      	.include 	"em-kernel.inc"
         .include        "em-error.inc"
         .include        "cbm510.inc"
 
@@ -38,7 +38,7 @@
 ; ------------------------------------------------------------------------
 ; Constants
 
-RAMBANK = 2
+RAMBANK = 1
 OFFS    = 2
 
 ; ------------------------------------------------------------------------
@@ -63,15 +63,20 @@ pagecount:	.res	1               ; Number of available pages
 INSTALL:
        	lda	#$FF
         sta     curpage                 ; Invalidate the current page
+        sta     pagecount               ; Assume all memory available
 
-	ldx	UsrMemTop+2
-	cpx    	#RAMBANK                ; Top of memory in bank 2?
+        sec
+        jsr     $FF99                   ; MEMTOP
+
+       	cmp     #RAMBANK                ; Top of memory in bank 2?
         bne     @L1                     ; No: We can use all the memory
-        clc
-        adc     UsrMemTop+1
-@L1:    sta     pagecount
+        txa
+        sub     #OFFS
+        tya
+        sbc     #$00
+        sta     pagecount
 
-        lda     #<EM_ERR_OK
+@L1:    lda     #<EM_ERR_OK
         ldx     #>EM_ERR_OK
 ;       rts				; Run into UNINSTALL instead
 
@@ -112,12 +117,11 @@ MAP:    sta     curpage	   		; Remember the new page
         sta     IndReg
 
         ldy     #$00
-@L1:    lda     (ptr1),y
-        sta     window,y
-        iny
+@L1:    .repeat 2
         lda     (ptr1),y
         sta     window,y
         iny
+        .endrepeat
         bne     @L1
 
         stx     IndReg
@@ -154,12 +158,11 @@ COMMIT: lda     curpage			; Get the current page
         sta     IndReg
 
         ldy     #$00
-@L1:    lda     window,y
-        sta     (ptr1),y
-        iny
+@L1:    .repeat 2
         lda     window,y
         sta     (ptr1),y
         iny
+        .endrepeat
         bne     @L1
 
         stx     IndReg
-- 
2.39.5