Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-03 12:31:32 +00:00
Code Issues Projects Releases Wiki Activity

pt3: visualization: boring stripes

Browse Source
This commit is contained in:
Vince Weaver 2019-05-16 12:47:04 -04:00
parent 0048ec6c49
commit 435fc84f7b
1 changed files with 65 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
pt3_player/fire.s
View File

@ -77,9 +77,71 @@ draw_fire_frame:
; Update fire frame
;===============================
lda #<fire_framebuffer
sta FIRE_FB_L
lda #>fire_framebuffer
sta FIRE_FB_H
lda #<(fire_framebuffer+40)
sta FIRE_FB2_L
lda #>(fire_framebuffer+40)
sta FIRE_FB2_H
ldx #0
fire_fb_update:
ldy #39
fire_fb_update_loop:
; get next line color
lda (FIRE_FB2_L),Y
; adjust it
clc
adc #$ff
; saturate to 0
bpl fb_positive
lda #0
fb_positive:
; store out
sta (FIRE_FB_L),Y ; store out
dey
bpl fire_fb_update_loop
done_fire_fb_update_loop:
; complicated adjustment
clc
lda FIRE_FB_L
adc #40
sta FIRE_FB_L
lda FIRE_FB_H
adc #0
sta FIRE_FB_H
clc
lda FIRE_FB2_L
adc #40
sta FIRE_FB2_L
lda FIRE_FB2_H
adc #0
sta FIRE_FB2_H
inx
cpx #(FIRE_YSIZE-1)
bne fire_fb_update
;===============================
; copy framebuffer to low-res screen
;===============================
lda #<fire_framebuffer
sta FIRE_FB_L
@ -122,14 +184,14 @@ fire_fb_copy_loop:
; get top byte
lda (FIRE_FB_L),Y
tax
lda fire_colors_high,X
lda fire_colors_low,X
pha
; get bottom byte
lda (FIRE_FB2_L),Y
tax
pla
ora fire_colors_low,X
ora fire_colors_high,X
sta (OUTL),Y ; store out
pla
tax