From e2e6a62e5c89cc79fb508b29c9260e48e4c2d347 Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sat, 20 Dec 2003 19:09:30 +0000
Subject: [PATCH] Debugged the driver

git-svn-id: svn://svn.cc65.org/cc65/trunk@2790 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 libsrc/cbm610/cbm610-ram.s | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/libsrc/cbm610/cbm610-ram.s b/libsrc/cbm610/cbm610-ram.s
index af441f21d..74748afcc 100644
--- a/libsrc/cbm610/cbm610-ram.s
+++ b/libsrc/cbm610/cbm610-ram.s
@@ -2,7 +2,7 @@
 ; Extended memory driver for the CBM610 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-20
 ;
 
 	.include 	"zeropage.inc"
@@ -112,12 +112,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 +153,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
@@ -280,10 +278,10 @@ setup:  sta     ptr3
         sta     ptr2+1                  ; Get count into ptr2
 
         ldy     #EM_COPY::BUF+1
-        lda     (ptr1),y
+        lda     (ptr3),y
         tax
         dey
-        lda     (ptr1),y                ; Get the buffer pointer into a/x
+        lda     (ptr3),y                ; Get the buffer pointer into a/x
 
         ldy     #RAMBANK
         sty     IndReg