aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--dla.s35
1 files changed, 18 insertions, 17 deletions
diff --git a/dla.s b/dla.s
index 0c4b452..89c466a 100644
--- a/dla.s
+++ b/dla.s
@@ -173,7 +173,11 @@ wl:
jsr plot
next_particle:
- jsr spawn ; spawn a new particle
+ ldy RANDOM ; spawn a new particle
+ lda (spawn_x),y
+ sta part_x
+ lda (spawn_y),y
+ sta part_y
jsr drunkwalk ; walk it around
beq next_particle ; if it went out of bounds, try again
@@ -478,22 +482,22 @@ unplot:
;;; check the pixel at (cursor_x, cursor_y)
;;; if set, return with Z=0
;;; otherwise, return with Z=1
-locate:
- jsr plotsetup
- and (pixptr),y
- rts
-
-masks: .byte $80,$40,$20,$10,$08,$04,$02,$01
+;;;; Inlined (keep for reference)
+;locate:
+; jsr plotsetup
+; and (pixptr),y
+; rts
;;; Subroutine: spawn
;;; Pick a random point on the edge of a circle
-spawn:
- ldy RANDOM
- lda (spawn_x),y
- sta part_x
- lda (spawn_y),y
- sta part_y
- rts
+;;;; Inlined (keep for reference)
+; spawn:
+; ldy RANDOM
+; lda (spawn_x),y
+; sta part_x
+; lda (spawn_y),y
+; sta part_y
+; rts
;;; Subroutine: drunkwalk
;;; Walk the point around randomly until it either is
@@ -532,7 +536,6 @@ checkbounds:
beq oob
cmp max_y
beq oob
-
sta cursor_y
ldx #0
@@ -578,8 +581,6 @@ stick:
oob:
rts
- rts
-
;;;;; end of executable code
; dlatbl.s is generated by perl script, mkdlatbl.pl