42 lines
680 B
ArmAsm
42 lines
680 B
ArmAsm
.scope circle_test_size
|
|
.include "circle.inc"
|
|
|
|
|
|
;;Set initial parameters for circle
|
|
LDA #$01
|
|
STA $AD
|
|
|
|
loop:
|
|
|
|
;delay: ;lets delay the print
|
|
; LDX #$ff
|
|
; LDY #$ff
|
|
;delay_point:
|
|
; NOP
|
|
; NOP
|
|
; DEX
|
|
; BNE delay_point
|
|
; DEY
|
|
; BNE delay_point
|
|
|
|
|
|
;; set other parameters for circle
|
|
LDA #$50
|
|
STA X_pos
|
|
STA Y_pos
|
|
|
|
;; make circle radius bigger
|
|
INC $AD
|
|
LDA $AD
|
|
STA radius
|
|
|
|
JSR clear_screen
|
|
|
|
;; draw the circle
|
|
JSR circle
|
|
|
|
;; end loop if radius = $aa
|
|
LDA $AD
|
|
CMP #$20
|
|
BNE loop
|
|
.endscope
|