Merge pull request #109 from pfusik/opt-plot

Optimize plot and point

grafproc.asm

@@ -1268,28 +1268,24 @@ CheckX02
     bcs EndOfPlot ;nearest RTS
 MakePlot
     ; let's calculate coordinates from xdraw and ydraw
-    mwa xdraw xbyte
-
-
-    lda xbyte
-    and #$7
-    sta ybit
 
     ;xbyte = xbyte/8
-    lda xbyte
+    lda xdraw+1
-    lsr xbyte+1
+    lsr
+    lda xdraw
     ror ;just one bit over 256. Max screenwidth = 512!!!
     lsr
     lsr
-    tay ;save
+    sta xbyte
     ;---
     ldx ydraw
-    lda linetableL,x
+    ldy linetableL,x
-    sta xbyte
     lda linetableH,x
     sta xbyte+1
 
-    ldx ybit
+    lda xdraw
+    and #$7
+    tax
     lda color
     bne ClearPlot
 
@@ -1312,31 +1308,28 @@ ClearPlot
     ; result is in A (zero or appropriate bit is set)
 
     ; let's calculate coordinates from xdraw and ydraw
-    mwa xdraw xbyte
-
-    lda xbyte
-    and #$7
-    sta ybit
 
     ;xbyte = xbyte/8
-    lda xbyte
+    lda xdraw+1
-    lsr xbyte+1
+    lsr
+    lda xdraw
     ror ;just one bit over 256. Max screenwidht = 512!!!
     lsr
     lsr
-    tay ;save
+    sta xbyte
     ;---
     ldx ydraw
-    lda linetableL,x
+    ldy linetableL,x
-    sta xbyte
     lda linetableH,x
     sta xbyte+1
 
-    ldx ybit
+    lda xdraw
+    and #$7
+    tax
 
     lda (xbyte),y
+    eor #$ff
     and bittable,x
-	eor bittable,x
     rts
 .endp