.scope circle_test_position_x
        .include "circle.inc"

        LDA #$50
        STA $ED
        LDA #$50
        STA $EE
        LDA #$08
        STA $EF



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

        INC $ED

        LDA $ED
        STA X_pos
        LDA $EE
        STA Y_pos
        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