;;; -*- Mode: asm; indent-tabs-mode: t; tab-width: 8 -*-

        .include "line.inc"
        ;;for testing stuff
        Y_pos_ = $0D
        X_pos_ = $0E
        Y_end_ = $10
        X_end_ = $11
        LDA #$d2
        STA X_pos_
        LDA #$62
        STA Y_pos_
        LDA #$ff
        STA X_end
        LDA #$0
        STA Y_end

;; Short test for timing
@loop:
        LDA Y_pos_
        STA Y_pos
        LDA X_pos_
        STA X_pos

        jsr line
        INC Y_end
        LDA Y_end
        CMP #$bb
        BEQ end__
        jmp @loop
end__:

;; Full anfle test
@loop:
        LDA Y_pos_
        STA Y_pos
        LDA X_pos_
        STA X_pos

        jsr line
        INC Y_end
        LDA Y_end
        CMP #$bb
        BEQ end
        jmp @loop
end:
        ;;Long lines
        ;;Lets cleer bitmap
        LDA #>VIC_bank
        STA $FC
        LDA #<VIC_bank
        STA $FB

        LDA #>$5f3f
        STA $FE
        LDA #<$5f3f
        STA $FD

        LDA #$0
        jsr memory_rec

        LDA #$00
        STA X_pos_
        LDA #$60
        STA Y_pos_
        LDA #$ff
        STA X_end
        LDA #$0
        STA Y_end
@loop:
        LDA Y_pos_
        STA Y_pos
        LDA X_pos_
        STA X_pos
        jsr line
        INC Y_end
        LDA Y_end
        CMP #$bb
        BEQ end_
        jmp @loop
end_:
        jmp exit
.include "line.s"
.include "macros/"