Cleanup

display.asm

@@ -142,7 +142,7 @@ WeaponsDescription
 EmptyLine
  dta d"                                        "
 LastLine
- :40 dta $00	; INVERSE
+ :40 dta $00
 ; -------------------------------------------------
     .ALIGN $1000  ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
 NameScreen

grafproc.asm

@@ -441,7 +441,8 @@ splot8 .proc
 ;--------------------------------------------------
 clearscreen .proc
 ;--------------------------------------------------
-    lda #$ff	; INVERSE
+
+    lda #$ff
     ldx #0
 @
     :31 sta display+($100*#),x
@@ -1024,7 +1025,7 @@ MakeUnPlot
 
 
     lda color
-    bne ClearUnPlot		; INVERSE
+    bne ClearUnPlot
 
     ;plotting here
     lda (xbyte),y
@@ -1118,7 +1119,7 @@ MakePlot
 
     ldx ybit
     lda color
-    bne ClearPlot	; INVERSE
+    bne ClearPlot
 
     lda (xbyte),y
     ora bittable,x
@@ -1166,7 +1167,7 @@ point .proc
 
     lda (xbyte),y
     and bittable,x
-	eor bittable,x	; INVERSE
+	eor bittable,x
     rts
 .endp
 
@@ -1187,8 +1188,7 @@ DrawLine .proc
 loopdraw
 
     lda (xbyte),y
-    ;ora bittable,x
-	and bittable2,x		; INVERSE
+	and bittable2,x
     sta (xbyte),y
 IntoDraw   adw xbyte #screenBytes
 
@@ -1219,9 +1219,9 @@ TypeChar .proc
     ldy #7
 CopyChar
     lda (fontind),y
-	eor #$ff		; INVERSE
+	eor #$ff
     sta char1,y
-    lda #$ff		; INVERSE
+    lda #$ff
     sta char2,y
     dey
     bpl CopyChar
@@ -1230,9 +1230,9 @@ CopyChar
     ldy #7
 CopyMask
     lda (fontind),y
-	eor #$ff		; INVERSE
+	eor #$ff
     sta mask1,y
-    lda #$00		; INVERSE
+    lda #$00
     sta mask2,y
     dey
     bpl CopyMask
@@ -1264,44 +1264,44 @@ CopyMask
     ldx ybit
     beq MaskOK00
 MakeMask00
-    lsr mask1	; INVERSE
+    lsr mask1
     ror mask2
-    lsr mask1+1	; INVERSE
+    lsr mask1+1
     ror mask2+1
-    lsr mask1+2	; INVERSE
+    lsr mask1+2
     ror mask2+2
-    lsr mask1+3	; INVERSE
+    lsr mask1+3
     ror mask2+3
-    lsr mask1+4	; INVERSE
+    lsr mask1+4	
     ror mask2+4
-    lsr mask1+5	; INVERSE
+    lsr mask1+5
     ror mask2+5
-    lsr mask1+6	; INVERSE
+    lsr mask1+6	
     ror mask2+6
-    lsr mask1+7	; INVERSE
+    lsr mask1+7
     ror mask2+7
-    sec		; INVERSE
+    sec
     ror char1
     ror char2
-    sec		; INVERSE
+    sec
     ror char1+1
     ror char2+1
-    sec		; INVERSE
+    sec
     ror char1+2
     ror char2+2
-    sec		; INVERSE
+    sec
     ror char1+3
     ror char2+3
-    sec		; INVERSE
+    sec
     ror char1+4
     ror char2+4
-    sec		; INVERSE
+    sec
     ror char1+5
     ror char2+5
-    sec		; INVERSE
+    sec
     ror char1+6
     ror char2+6
-    sec		; INVERSE
+    sec
     ror char1+7
     ror char2+7
     dex
@@ -1310,7 +1310,7 @@ MaskOK00
     ; here x=0
     lda Erase
     beq CharLoopi  ; it works, because x=0
-    lda #$ff	; INVERSE
+    lda #$ff
     ldx #7
 EmptyChar
     sta char1,x
@@ -1320,17 +1320,13 @@ EmptyChar
     ldx #0
 CharLoopi
     lda (xbyte),y
-    ;and mask1,x
-    ;ora char1,x
-    ora mask1,x		; INVERSE
-    and char1,x		; INVERSE
+    ora mask1,x	
+    and char1,x
     sta (xbyte),y
     iny
     lda (xbyte),y
-    ;and mask2,x
-    ;ora char2,x
-    ora mask2,x		; INVERSE
-    and char2,x		; INVERSE
+    ora mask2,x	
+    and char2,x
     sta (xbyte),y
     dey
     adw xbyte #screenBytes

scorch.asm

@@ -781,7 +781,7 @@ SetunPlots
     sta oldplotH,x
     lda #0
     sta oldply,x
-	lda #$ff	; INVERSE
+	lda #$ff
     sta oldora,x
     dex
     bpl SetunPlots
@@ -861,7 +861,6 @@ DLIinterruptGraph .proc
 	nop
 	nop
 	nop
-;    sta WSYNC
     sta COLPF1
 	sty COLPF2
 	inc dliCounter