4d12f20a6e
A new proc, line.s that can chose whitch line_* to use A small test program in source.s Wrote a smal test program in source.s (all looks good exept line_up_inv)
50 lines
740 B
ArmAsm
Executable file
50 lines
740 B
ArmAsm
Executable file
.include "STARTUP.s"
|
|
.include "macros/16aritmatic.s"
|
|
|
|
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_
|
|
|
|
@loop:
|
|
LDA Y_pos_
|
|
STA Y_pos
|
|
LDA X_pos_
|
|
STA X_pos
|
|
LDA Y_end_
|
|
STA Y_end
|
|
LDA X_end_
|
|
STA X_end
|
|
|
|
jsr line
|
|
INC Y_end_
|
|
LDA Y_end_
|
|
CMP #$bb
|
|
BEQ loop
|
|
jmp @loop
|
|
loop:
|
|
jmp loop
|
|
|
|
|
|
|
|
|
|
loop_:
|
|
jmp loop_
|
|
.include "routines/memory/memory_rec.s"
|
|
.include "routines/memory/pixel_draw.s"
|
|
.include "routines/memory/line/line.s"
|