fix comments

[cc65] / libsrc / c64 / c64-ram.s

diff --git a/libsrc/c64/c64-ram.s b/libsrc/c64/c64-ram.s
index 35194034d4a8cc834939c38c74a8f6d0587b20db..f176eda494f031f4f5e58cc740d236593e7ab228 100644 (file)
--- a/libsrc/c64/c64-ram.s
+++ b/libsrc/c64/c64-ram.s
@@ -22,7 +22,7 @@
 ; Driver signature
 
         .byte   $65, $6d, $64           ; "emd"
-        .byte   $00                     ; EM API version number
+        .byte   EMD_API_VERSION                ; EM API version number
 
 ; Jump table.
 
@@ -62,7 +62,7 @@ INSTALL:
         stx     curpage                 ; Invalidate the current page
         inx                             ; X = 0
         txa                             ; A = X = EM_ERR_OK
-        rts
+;       rts                             ; Run into UNINSTALL instead
 
 ; ------------------------------------------------------------------------
 ; UNINSTALL routine. Is called before the driver is removed from memory.
@@ -147,37 +147,11 @@ transfer:
 
 ; Unroll the following loop
 
-loop:   lda    (ptr1),y
-        sta    (ptr2),y
-        iny
-
-        lda    (ptr1),y
-        sta    (ptr2),y
-        iny
-
-        lda    (ptr1),y
-        sta    (ptr2),y
-        iny
-
-        lda    (ptr1),y
-        sta    (ptr2),y
-        iny
-
-        lda    (ptr1),y
-        sta    (ptr2),y
-        iny
-
-        lda    (ptr1),y
-        sta    (ptr2),y
-        iny
-
-        lda    (ptr1),y
-        sta    (ptr2),y
-        iny
-
-        lda    (ptr1),y
+loop:  .repeat 8
+       lda     (ptr1),y
         sta    (ptr2),y
         iny
+       .endrepeat
 
         bne     loop
 
@@ -188,7 +162,7 @@ loop:   lda (ptr1),y
 
 ; Done
 
-done:   rts
+done:   rts              
 
 ; ------------------------------------------------------------------------
 ; COPYFROM: Copy from extended into linear memory. A pointer to a structure
@@ -199,24 +173,24 @@ done:   rts
 COPYFROM:
         sta     ptr3
         stx     ptr3+1                  ; Save the passed em_copy pointer
-
-        ldy     #EM_COPY_OFFS
+                      
+        ldy     #EM_COPY::OFFS
         lda     (ptr3),y
         sta     ptr1
-        ldy     #EM_COPY_PAGE
+        ldy     #EM_COPY::PAGE
         lda     (ptr3),y
         clc
         adc     #>BASE
         sta     ptr1+1                  ; From
 
-        ldy     #EM_COPY_BUF
+        ldy     #EM_COPY::BUF
         lda     (ptr3),y
         sta     ptr2
         iny
         lda     (ptr3),y
         sta     ptr2+1                  ; To
 
-common: ldy     #EM_COPY_COUNT+1
+common: ldy     #EM_COPY::COUNT+1
         lda     (ptr3),y                ; Get number of pages
         beq     @L2                     ; Skip if no full pages
         sta     tmp1
@@ -232,7 +206,7 @@ common: ldy     #EM_COPY_COUNT+1
 
 ; Copy the remainder of the page
 
-@L2:    ldy     #EM_COPY_COUNT
+@L2:    ldy     #EM_COPY::COUNT
         lda     (ptr3),y                ; Get bytes in last page
         beq     @L4
         tax
@@ -271,16 +245,16 @@ common: ldy     #EM_COPY_COUNT+1
 COPYTO: sta     ptr3
         stx     ptr3+1                  ; Save the passed em_copy pointer
 
-        ldy     #EM_COPY_OFFS
+        ldy     #EM_COPY::OFFS
         lda     (ptr3),y
         sta     ptr2
-        ldy     #EM_COPY_PAGE
+        ldy     #EM_COPY::PAGE
         lda     (ptr3),y
         clc
         adc     #>BASE
         sta     ptr2+1                  ; To
 
-        ldy     #EM_COPY_BUF
+        ldy     #EM_COPY::BUF
         lda     (ptr3),y
         sta     ptr1
         iny