Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-10-24 23:25:28 +00:00
Code Issues Projects Releases Wiki Activity

pt3: fire, but it's too slow

Browse Source
This commit is contained in:
Vince Weaver 2019-05-16 13:37:21 -04:00
parent 096151d8ba
commit 554c17d69c
2 changed files with 98 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
pt3_player/fire.s
View File

@ -76,34 +76,115 @@ draw_fire_frame:
; Update fire frame
;===============================
lda #<fire_framebuffer
sta FIRE_FB_L
lda #<fire_framebuffer ; 2
sta FIRE_FB_L ; 3
lda #>fire_framebuffer
sta FIRE_FB_H
lda #>fire_framebuffer ; 2
sta FIRE_FB_H ; 3
lda #<(fire_framebuffer+40)
sta FIRE_FB2_L
lda #<(fire_framebuffer+40) ; 2
sta FIRE_FB2_L ; 3
lda #>(fire_framebuffer+40)
sta FIRE_FB2_H
lda #>(fire_framebuffer+40) ; 2
sta FIRE_FB2_H ; 3
ldx #0
ldx #0 ; 2
fire_fb_update:
ldy #39
ldy #39 ; 2
fire_fb_update_loop:
jsr random16
; Get random 16-bit number
lda SEEDL
jsr random16 ; 40
cpy #13 ; 2
bcs fire_b ; bge ; 2/3
fire_a:
lda A_VOLUME ; 3
jmp fire_vol ; 3
fire_b:
cpy #26 ; 2
bcs fire_c ; bge ; 2/3
lda B_VOLUME ; 3
jmp fire_vol ; 3
fire_c:
lda C_VOLUME ; 3
fire_vol:
and #$f ; 2
sta FIRE_VOLUME ; 3
; get random number
lda SEEDL ; 3
and #$3 ; 2
sta FIRE_Q ; 3
; adjust fire height with volume
lda FIRE_VOLUME
cmp #$8
bcs fire_medium ; bge
fire_low:
; Q=1 3/4 of time
lda FIRE_Q
beq fire_height_done
fire_low_br:
lda #1
jmp fire_height_done
fire_medium:
cmp #$d
bcs fire_high ; blt
; Q=1 1/2 of time
lda FIRE_Q
and #$1
jmp fire_height_done
fire_high:
; Q=1 1/4 of time
lda FIRE_Q
cmp #1
beq fire_height_done
fire_high_br:
lda #0
fire_height_done:
sta FIRE_Q
sty FIRE_Y
;
cpy #0
beq fire_r_same
cpy #39
beq fire_r_same
lda #$2
bit SEEDH
bne fire_r_same
lda SEEDH
and #$1
beq r_up
r_down:
dey
jmp fire_r_same
r_up:
iny
fire_r_same:
; get next line color
lda (FIRE_FB2_L),Y
ldy FIRE_Y
;
; adjust it
sec
sbc FIRE_Q
@ -140,8 +221,10 @@ done_fire_fb_update_loop:
inx
cpx #(FIRE_YSIZE-1)
bne fire_fb_update
beq fire_update_done
jmp fire_fb_update
fire_update_done:
;===============================

2
pt3_player/zp.inc
View File

@ -124,6 +124,8 @@ FIRE_FB2_L EQU $A6
FIRE_FB2_H EQU $A7
FIRE_FB_LINE EQU $A8
FIRE_Q EQU $A9
FIRE_VOLUME EQU $AA
FIRE_Y EQU $AB
; More zero-page addresses
; we try not to conflict with anything DOS, MONITOR or BASIC related