.scope circle_test_position_x
        .include "circle.inc"

        ;; Set initial parameters for circle
        LDA #$50
        STA $AD
        LDA #$50
        STA $AE
        LDA #$40
        STA $AF

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

        ;;clear 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

        ;;move circle
        INC $AD

        ;; draw circle
        LDA $AD
        STA X_pos
        LDA $AE
        STA Y_pos
        LDA $AF
        STA radius
        JSR circle

        ;; end loop when x_pos = $70
        LDA $AD
        CMP #$70
        BNE loop
.endscope