diff --git a/grafproc.asm b/grafproc.asm
index dbbc209..c961fd6 100644
--- a/grafproc.asm
+++ b/grafproc.asm
@@ -333,8 +333,110 @@ EndOfDraw
 circleloop
     lda FX
     cmp FY
-    bcs endcircleloop
-    jsr splot8
+    bcc not_endcircleloop
+endcircleloop
+    mwa xcircle xdraw
+    mwa ycircle ydraw
+    rts
+not_endcircleloop
+;    jsr splot8
+;----
+; splot8
+; plot xcircle+XC,ycircle+YC
+; plot xcircle+XC,ycircle-YC
+; plot xcircle-XC,ycircle-YC
+; plot xcircle-XC,ycircle+YC
+
+; plot xcircle+YC,ycircle+XC
+; plot xcircle+YC,ycircle-XC
+; plot xcircle-YC,ycircle-XC
+; plot xcircle-YC,ycircle+XC
+
+    clc
+    lda xcircle
+    adc XC
+    sta xdraw
+    lda xcircle+1
+    adc #0
+    sta xdraw+1
+    ;clc
+    lda ycircle
+    adc YC
+    sta ydraw
+    sta tempcir
+    lda ycircle+1
+    adc #$00
+    sta ydraw+1
+    sta tempcir+1
+    jsr plot
+
+    sec
+    lda ycircle
+    sbc YC
+    sta ydraw
+    lda ycircle+1
+    sbc #$00
+    sta ydraw+1
+    jsr plot
+
+    sec
+    lda xcircle
+    sbc XC
+    sta xdraw
+    lda xcircle+1
+    sbc #0
+    sta xdraw+1
+    jsr plot
+
+    lda tempcir
+    sta ydraw
+    lda tempcir+1
+    sta ydraw+1
+    jsr plot
+;---
+    clc
+    lda xcircle
+    adc yC
+    sta xdraw
+    lda xcircle+1
+    adc #0
+    sta xdraw+1
+    ;clc
+    lda ycircle
+    adc xC
+    sta ydraw
+    sta tempcir
+    lda ycircle+1
+    adc #$00
+    sta ydraw+1
+    sta tempcir+1
+    jsr plot
+
+    sec
+    lda ycircle
+    sbc xC
+    sta ydraw
+    lda ycircle+1
+    sbc #$00
+    sta ydraw+1
+    jsr plot
+
+    sec
+    lda xcircle
+    sbc yC
+    sta xdraw
+    lda xcircle+1
+    sbc #0
+    sta xdraw+1
+    jsr plot
+
+    lda tempcir
+    sta ydraw
+    lda tempcir+1
+    sta ydraw+1
+    jsr plot
+;-----
+
     inc XC
 
     clc
@@ -366,16 +468,9 @@ else01
     sta FS
 endif01
     jmp circleloop
-endcircleloop
-
-    jsr splot8
-
-    mwa xcircle xdraw
-    mwa ycircle ydraw
-    rts
 .endp
 ;----
-.proc splot8
+/* .proc splot8
 ; plot xcircle+XC,ycircle+YC
 ; plot xcircle+XC,ycircle-YC
 ; plot xcircle-XC,ycircle-YC
@@ -472,7 +567,7 @@ endcircleloop
 
     ; RTS
 .endp
-
+ */
 ;-------------------------------*------------------
 .proc placetanks
 ;--------------------------------------------------
diff --git a/scorch.xex b/scorch.xex
index 2cd5e8e..83a36e5 100644
Binary files a/scorch.xex and b/scorch.xex differ