.scope circle_test_size
        .include "circle.inc"


        ;;Set initial parameters for circle
        LDA #$01
        STA $AD

loop:

;delay: ;lets delay the print
;        LDX #$ff
;        LDY #$ff
;delay_point:
;        NOP
;        NOP
;        DEX
;        BNE delay_point
;        DEY
;        BNE delay_point


        ;; set other parameters for circle
        LDA #$50
        STA X_pos
        STA Y_pos

        ;; make circle radius bigger
        INC $AD
        LDA $AD
        STA radius

        ;; clean the screen
        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

        ;; draw the circle
        JSR circle

        ;; end loop if radius = $aa
        LDA $AD
        CMP #$20
        BNE loop
.endscope