47 lines
857 B
ArmAsm
47 lines
857 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
|
|
|
|
;; clean the screen
|
|
VIC_bank = $4000
|
|
Mov_16 A_start, A_start + 1, #<VIC_bank, #>VIC_bank
|
|
Mov_16 length, length + 1, #<$1f40, #>$1f40
|
|
LDA #$00
|
|
jsr memset
|
|
|
|
;; draw the circle
|
|
JSR circle
|
|
|
|
;; end loop if radius = $aa
|
|
LDA $AD
|
|
CMP #$20
|
|
BNE loop
|
|
.endscope
|