Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

hgr: circles: test

This commit is contained in:
Vince Weaver 2021-06-18 08:43:28 -04:00
parent a7de63b39f
commit 3eee574bc1
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
graphics/hgr/circles/circles.s
View File

@ -34,7 +34,11 @@ circles:
jsr HGR2
lda #0
sta R
draw_next:
.if 0
inc FRAME
ldy FRAME
@ -64,9 +68,17 @@ draw_next:
lda $F300,Y
and #$3f
sta R
.endif
; A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
lda #128
sta CX
lda #96
sta CY
; XX=0 YY=R
; D=3-2*R
; GOTO6
@ -233,5 +245,13 @@ do_plots:
jmp circle_loop
done:
lda R
clc
adc #3
sta R
stop:
cmp #90
beq stop
; GOTO1
jmp draw_next