.scope circle_test_size
        .include "circle.inc"

        LDA #$50
        STA X_pos
        STA Y_pos
        LDA #$01
        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