.scope circle_test_position_x
        .include "circle.inc"

        LDA #$50
        STA $AD
        LDA #$50
        STA $AE
        LDA #$40
        STA $AF



        LDX #$ff
        LDY #$ff
        hihi:
        NOP
        NOP
        DEX
        BNE hihi
        DEY
        BNE hihi

        INC $AD

        LDA $AD
        STA X_pos
        LDA $AE
        STA Y_pos
        LDA $AF
        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