diff options
| -rw-r--r-- | dla.s | 35 |
1 files changed, 18 insertions, 17 deletions
@@ -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 |