some renaming, preparing plot table names

diff --git a/libsrc/c64/soft80_cputc.s b/libsrc/c64/soft80_cputc.s
index c7ba6e0967d760fc52e1adf21de7202ebcb0b9e9..0e8cb0bd8613dd4baeb57b66bc9b0461732662ac 100644 (file)
--- a/libsrc/c64/soft80_cputc.s
+++ b/libsrc/c64/soft80_cputc.s
@@ -72,7 +72,7 @@ soft80_cputdirect:
         ; Advance cursor position
         iny                     ; contains CURS_X
         cpy     #charsperline
-        beq     L3
+        beq     @L3
 
         sty     CURS_X
         tya
@@ -92,7 +92,7 @@ soft80_cputdirect:
         inc     CRAM_PTR+1
 @L5:
         rts
-L3:
+@L3:
         inc     CURS_Y          ; new line
         ldy     #0              ; + cr
         sty     CURS_X
@@ -114,9 +114,9 @@ soft80_newline:
         clc
         adc     #40
         sta     CRAM_PTR
-        bcc     L5
+        bcc     @L5
         inc     CRAM_PTR+1
-L5:
+@L5:
         inc     CURS_Y
         rts
 
@@ -336,7 +336,8 @@ draw_charinvers:
 ;
 ; in:  x must be $34
 ;      y must be $00
-; out: y = $00
+; out: x = $34
+;      y = $00
 remcolor:
 
         ;ldy     #$00            ; is still $00
@@ -357,23 +358,17 @@ remcolor:
         and     #$0f
         cmp     soft80_internal_bgcolor
         beq     @sk2            ; yes, colram==bgcolor
+        sta     tmp3            ; A contains colram
 
         ; two characters in the current cell, of which one will get removed
 
-        ; vram = colram
-        ;inc     $01
-        ;lda     (CRAM_PTR),y    ; colram
-        ;stx     $01             ;$34
-        ;and     #$0f
-        sta     tmp3            ; A contains colram
-
         lda     soft80_internal_cursorxlsb
         bne     @sk3
 
         ; vram = colram
         lda     (CRAM_PTR),y    ; vram
         and     #$f0
-        ora     tmp3
+        ora     tmp3            ; colram value
         sta     (CRAM_PTR),y    ; vram
 @sk3:
         ; colram = bgcolor

diff --git a/libsrc/c64/soft80_kplot.s b/libsrc/c64/soft80_kplot.s
index 8d8c77c5cf95dfe9c2f635dc1502cf4e92395209..79a14cbcb28ce46ff497a1538e1aa49708715727 100644 (file)
--- a/libsrc/c64/soft80_kplot.s
+++ b/libsrc/c64/soft80_kplot.s
@@ -18,12 +18,12 @@ soft80_kplot:
         sty     CURS_X
 
         ; calc pointer to bitmap
-        lda     _bitmaplo,x
+        lda     soft80_bitmapylo,x
         clc
-        adc     _bitmapxlo,y
+        adc     soft80_bitmapxlo,y
         sta     SCREEN_PTR
-        lda     _bitmaphi,x
-        adc     _bitmapxhi,y
+        lda     soft80_bitmapyhi,x
+        adc     soft80_bitmapxhi,y
         sta     SCREEN_PTR+1
 
         tya
@@ -32,13 +32,13 @@ soft80_kplot:
 
         ; calc pointer to vram
         tya
-        lsr     a               ; NOTE: we can save 2 cycles here at the expense of
-                                ;       making the tables twice as big (+50 bytes)
+        lsr     a
+
         clc
-        adc     _vramlo,x
+        adc     soft80_vramlo,x
         sta     CRAM_PTR
         lda     #0
-        adc     _vramhi,x
+        adc     soft80_vramhi,x
         sta     CRAM_PTR+1
 
 @getpos:
@@ -50,28 +50,27 @@ soft80_kplot:
         ;        to 0xdc00... area in ram under i/o
 
         .rodata
-_bitmapxlo:
+soft80_bitmapxlo:
         .repeat 80,col
         .byte <((col/2)*8)
         .endrepeat
-
-_bitmapxhi:
+soft80_bitmapxhi:
         .repeat 80,col
         .byte >((col/2)*8)
         .endrepeat
-_vramlo:
+soft80_vramlo:
         .repeat 25,row
         .byte <(soft80_vram+(row*40))
         .endrepeat
-_vramhi:
+soft80_vramhi:
         .repeat 25,row
         .byte >(soft80_vram+(row*40))
         .endrepeat
-_bitmaplo:
+soft80_bitmapylo:
         .repeat 25,row
         .byte <(soft80_bitmap+(row*40*8))
         .endrepeat
-_bitmaphi:
+soft80_bitmapyhi:
         .repeat 25,row
         .byte >(soft80_bitmap+(row*40*8))
         .endrepeat