47 lines
875 B
ArmAsm
47 lines
875 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
|
|
|
|
;;clear 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
|
|
|
|
;;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
|