mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-16 07:29:29 +00:00
hgr: circles: test
This commit is contained in:
parent
a7de63b39f
commit
3eee574bc1
|
@ -34,7 +34,11 @@ circles:
|
||||||
|
|
||||||
jsr HGR2
|
jsr HGR2
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sta R
|
||||||
|
|
||||||
draw_next:
|
draw_next:
|
||||||
|
.if 0
|
||||||
inc FRAME
|
inc FRAME
|
||||||
ldy FRAME
|
ldy FRAME
|
||||||
|
|
||||||
|
@ -64,9 +68,17 @@ draw_next:
|
||||||
lda $F300,Y
|
lda $F300,Y
|
||||||
and #$3f
|
and #$3f
|
||||||
sta R
|
sta R
|
||||||
|
.endif
|
||||||
|
|
||||||
; A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
|
; 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
|
; XX=0 YY=R
|
||||||
; D=3-2*R
|
; D=3-2*R
|
||||||
; GOTO6
|
; GOTO6
|
||||||
|
@ -233,5 +245,13 @@ do_plots:
|
||||||
|
|
||||||
jmp circle_loop
|
jmp circle_loop
|
||||||
done:
|
done:
|
||||||
|
lda R
|
||||||
|
clc
|
||||||
|
adc #3
|
||||||
|
sta R
|
||||||
|
stop:
|
||||||
|
cmp #90
|
||||||
|
beq stop
|
||||||
|
|
||||||
; GOTO1
|
; GOTO1
|
||||||
jmp draw_next
|
jmp draw_next
|
||||||
|
|
Loading…
Reference in New Issue
Block a user