43 lines
704 B
ArmAsm
43 lines
704 B
ArmAsm
.scope circle_test_position_x
|
|
.include "circle.inc"
|
|
|
|
;; Set initial parameters for circle
|
|
LDA #$50
|
|
STA $AD
|
|
LDA #$50
|
|
STA $AE
|
|
LDA #$40
|
|
STA $AF
|
|
|
|
loop:
|
|
;delay: ;lets delay the print
|
|
; LDX #$ff
|
|
; LDY #$ff
|
|
;delay_point:
|
|
; NOP
|
|
; NOP
|
|
; DEX
|
|
; BNE delay_point
|
|
; DEY
|
|
; BNE delay_point
|
|
|
|
|
|
JSR clear_screen
|
|
|
|
;;move circle
|
|
INC $AD
|
|
|
|
;; draw circle
|
|
LDA $AD
|
|
STA X_pos
|
|
LDA $AE
|
|
STA Y_pos
|
|
LDA $AF
|
|
STA radius
|
|
JSR circle
|
|
|
|
;; end loop when x_pos = $70
|
|
LDA $AD
|
|
CMP #$70
|
|
BNE loop
|
|
.endscope
|