remove some commented out code

diff --git a/libsrc/c64/soft80_cgetc.s b/libsrc/c64/soft80_cgetc.s
index e578111ead70f239f4a858059d9f8dd022e08712..849af753a5e9bb82e2d72764495dc9ec65724f36 100644 (file)
--- a/libsrc/c64/soft80_cgetc.s
+++ b/libsrc/c64/soft80_cgetc.s
@@ -46,9 +46,6 @@ invertcursor:
         ldy     #$00
         jsr     setcolor
 
-        ;lda     CURS_X
-        ;and     #$01
-        ;tax
         ldx     soft80_internal_cursorxlsb
 @lp1:
         lda     (SCREEN_PTR),y
@@ -74,6 +71,7 @@ setcolor:
         sta     (CRAM_PTR),y    ; vram
         rts
 @set:
+        ; save old value
         lda     (CRAM_PTR),y    ; vram
         sta     tmp1
         lda     CHARCOLOR

diff --git a/libsrc/c64/soft80_color.s b/libsrc/c64/soft80_color.s
index fe2be71d50d647581c140b7c53536c6bb5312a79..ab4b4a01f2ee7f73e959f52cb0ea40ef87263e08 100644 (file)
--- a/libsrc/c64/soft80_color.s
+++ b/libsrc/c64/soft80_color.s
@@ -24,11 +24,12 @@ soft80_textcolor:
 
 soft80_bgcolor:
         ldx     soft80_internal_bgcolor         ; get old value
-        stx     tmp2                            ; save old value
         sta     soft80_internal_bgcolor         ; set new value
 
         jsr     mkcharcolor
 
+        stx     tmp2                            ; save old value
+
 .if SOFT80COLORVOODOO = 1
         ; if the old bg color is equal to color ram of that cell, then also
         ; update the color ram to the new value.

diff --git a/libsrc/c64/soft80_cputc.s b/libsrc/c64/soft80_cputc.s
index fa6a2574ff0e007cc0b6c7ac2b56ff30874dc2f9..0d450d27bbc6f63ca3bf7824218384b57e481d7f 100644 (file)
--- a/libsrc/c64/soft80_cputc.s
+++ b/libsrc/c64/soft80_cputc.s
@@ -161,8 +161,6 @@ draw_spaceinvers:
         sta     (CRAM_PTR),y    ; vram
 .endif
 
-        ;lda     CURS_X
-        ;and     #$01
         lda     soft80_internal_cursorxlsb
         bne     draw_spaceinvers_odd
 
@@ -201,8 +199,6 @@ draw_space:
 .endif
         ;ldy     #$00            ; is still $00
 
-        ;lda     CURS_X
-        ;and     #$01
         lda     soft80_internal_cursorxlsb
         bne     draw_space_odd
 
@@ -381,8 +377,6 @@ remcolor:
         ;and     #$0f
         sta     tmp3            ; A contains colram
 
-        ;lda     CURS_X
-        ;and     #$01
         lda     soft80_internal_cursorxlsb
         bne     @sk3
 
@@ -452,8 +446,6 @@ soft80_putcolor:
 
         ; botch characters in the cell are used
 
-        ;lda     CURS_X
-        ;and     #$01
         lda     soft80_internal_cursorxlsb
         bne     @sk2            ; jump if odd xpos
 
@@ -467,8 +459,6 @@ soft80_putcolor:
         jsr     soft80_checkchar
         bcs     @sk1            ; char at current position => overwrite 1st
 
-        ;lda     CURS_X
-        ;and     #$01
         lda     soft80_internal_cursorxlsb
         beq     @sk3            ; jump if even xpos
 @sk2:
@@ -503,8 +493,6 @@ soft80_checkchar:
 
         ;ldy     #$00                            ; is still $00
 
-        ;lda     CURS_X
-        ;and     #$01
         lda     soft80_internal_cursorxlsb
         bne     @l1a
 
@@ -517,7 +505,7 @@ soft80_checkchar:
         lda     (SCREEN_PTR),y
         and     #$f0
         cmp     #$f0
-        bne     @l2b
+        bne     @ischar
         .if (line < 7)
         dey
         .endif
@@ -525,7 +513,7 @@ soft80_checkchar:
         ;ldy     #$00                            ; is 0
         clc
         rts
-@l2b:
+@ischar:
         ldy     #$00
         sec
         rts
@@ -535,7 +523,7 @@ soft80_checkchar:
         lda     (SCREEN_PTR),y
         and     #$0f
         cmp     #$0f
-        bne     @l2b
+        bne     @ischar
         .if line < 7
         dey
         .endif
@@ -543,9 +531,4 @@ soft80_checkchar:
         ;ldy     #$00                            ; is 0
         clc
         rts
-;@l2bb:
-;        ldy     #$00
-;        sec
-;        rts
-
 .endif