90 lines
1 KiB
ArmAsm
90 lines
1 KiB
ArmAsm
X_end = $04
|
|
Y_end = $05
|
|
X_pos = $FC
|
|
Y_pos = $FB
|
|
;;for testing stuff
|
|
Y_pos_ = $0D
|
|
X_pos_ = $0E
|
|
Y_end_ = $10
|
|
X_end_ = $11
|
|
LDA #$d0
|
|
STA X_pos_
|
|
LDA #$60
|
|
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/"
|