add more circle testing and remove none working offsets

wip-hugo/routines/circle/circle.s

@@ -29,8 +29,6 @@ draw_center_px_in_circle:
 
         ;; btp_mem_pos_center_two = 2*btp_mem_pos_center | used later for calculating btp_mem_pos_inv
         Mult_16 btp_mem_pos_center, btp_mem_pos_center + 1
-        ;; fix offset of 8 bytes, idk why this is needed
-        Sub_16 btp_mem_pos_center, btp_mem_pos_center + 1, #$40, #$01 ;-320
 
 draw_lower_px_in_circle:
         CLC
@@ -47,9 +45,6 @@ draw_lower_px_in_circle:
         LDA btp_mem_pos + 1
         STA btp_mem_pos_qdb + 1
         STA btp_mem_pos_qcb + 1
-        ;; fix offset of 8 bytes, idk why this is needed
-        Sub_16 btp_mem_pos_qcb, btp_mem_pos_qcb + 1, #$40, #$01 ;-320
-        Sub_16 btp_mem_pos_qdb, btp_mem_pos_qdb + 1, #$40, #$01 ;-320
 
         LDA temp
         STA Y_pos
@@ -68,10 +63,8 @@ draw_right_px_in_circle:
         LDA btp_mem_pos + 1
         STA btp_mem_pos_qda + 1
 
-        ;; fix offset of 8 bytes, idk why this is needed
-        Sub_16 btp_mem_pos_qda, btp_mem_pos_qda + 1, #$40, #$01 ;-320
-
 while_x_bigger_then_y:
+        SEC
         ;;Draw pixels and does the ypos incrementation logic
         ;; WARNING expects C=1 before and C =0 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
         JSR circle_help

wip-hugo/routines/circle/circle_help.s

@@ -108,15 +108,8 @@ draw_qbb:;; the one not working
         ORA (btp_mem_pos_qbb), Y
         STA (btp_mem_pos_qbb), Y
 
-        ;LDY temp_
-
 draw_qab:; xy swoped + mirroring
 
-        ;STY temp_
-        ;LDA #$07
-        ;SBC temp_
-        ;TAY
-
         TXA
         ORA (btp_mem_pos_qab), Y
         STA (btp_mem_pos_qab), Y

wip-hugo/routines/circle/circle_test_extensive.s

@@ -0,0 +1,45 @@
+.scope circle_test
+        .include "circle.inc"
+
+        LDA #$50
+        STA X_pos
+        STA Y_pos
+        LDA #$00
+        STA $EF
+
+
+
+        LDX #$ff
+        LDY #$ff
+        hihi:
+        NOP
+        NOP
+        DEX
+        BNE hihi
+        DEY
+        BNE hihi
+
+        LDA #$50
+        STA X_pos
+        STA Y_pos
+
+        INC $EF
+        LDA $EF
+
+        STA radius
+
+
+
+        VIC_bank = $4000
+        Mov_16 A_start, A_start + 1, #<VIC_bank, #>VIC_bank
+        Mov_16 length, length + 1, #<$1f40,  #>$1f40
+        LDA #$00
+        jsr memset
+
+        JSR circle
+
+        LDX #$ff
+        LDY #$ff
+
+        jmp hihi
+.endscope

wip-hugo/source.s

@@ -10,7 +10,9 @@
 
 ;.include "routines/arithmatic/mult_test.s"
 ;.include "routines/arithmatic/div_test.s"
-.include "routines/circle/circle_test.s"
+;.include "routines/circle/circle_test.s"
+.include "routines/circle/circle_test_extensive.s"
+
 ;.include "routines/line/line_test.s"
 ;.include "routines/text/char_draw_test.s"
 ;.include "routines/pixel/pixel_test.s"