diff options
Diffstat (limited to 'dla.s')
| -rw-r--r-- | dla.s | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -39,8 +39,6 @@ screenptr = pixptr2 circlesize: .res 1 ; 0 to 3 -part_x: .res 1 ; x/y coords of current particle -part_y: .res 1 particles: .res 2 spawn_x: .res 2 spawn_y: .res 2 @@ -81,6 +79,7 @@ init: sta maxparticles lda #>DEFAULTPART sta maxparticles+1 + ; end of init stuff. ; "New" option jumps here, restore GR.0 screen getargs: @@ -184,17 +183,13 @@ wl: next_particle: ldy RANDOM ; spawn a new particle lda (spawn_x),y - sta part_x + sta cursor_x lda (spawn_y),y - sta part_y + sta cursor_y jsr drunkwalk ; walk it around beq next_particle ; if it went out of bounds, try again ; particle stuck to an existing pixel, draw it - lda part_x - sta cursor_x - lda part_y - sta cursor_y jsr plot inc particles |