36 lines
661 B
ArmAsm
36 lines
661 B
ArmAsm
;;; -*- 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 #$00
|
|
STA X_pos_
|
|
LDA #$30
|
|
STA Y_pos_
|
|
LDA #$ff
|
|
STA X_end
|
|
LDA #$30
|
|
STA Y_end
|
|
|
|
;; Short test for timing
|
|
time_start
|
|
@loop:;; mem f1
|
|
LDA Y_pos_
|
|
STA Y_pos
|
|
LDA X_pos_
|
|
STA X_pos
|
|
|
|
jsr line_down
|
|
INC Y_end
|
|
LDA Y_end
|
|
CMP #$50
|
|
BEQ end__
|
|
jmp @loop
|
|
end__:
|
|
time_stop
|
|
jmp exit
|
|
|
|
.include "line_down.s"
|