Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-06-20 17:29:28 +00:00
Code Issues Projects Releases Wiki Activity

plasma: more optimization

Browse Source
This commit is contained in:
Vince Weaver 2021-01-09 12:26:57 -05:00
parent fbc5c1fdb0
commit 0801d09f32
1 changed files with 24 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
graphics/gr/plasma/plasma.s
View File

@ -2,6 +2,10 @@
; 151 -- original ; 151 -- original
; 137 -- optimize generation ; 137 -- optimize generation
; 136 -- align lookup table so we can index it easier
; 130 -- optimize indexing of lookup
; 126 -- run loops backaward
; 124 -- notice X already 0 before plot
.include "zp.inc" .include "zp.inc"
.include "hardware.inc" .include "hardware.inc"
@ -26,39 +30,34 @@ SAVEY = $FF
; + 8.0 + (sintable[yy&0xf]) ; + 8.0 + (sintable[yy&0xf])
; ) / 2; ; ) / 2;
create_lookup:
ldy #15
ldy #0
sty SAVEOFF
create_yloop: create_yloop:
ldx #0 ldx #15
create_xloop: create_xloop:
; lda SAVEOFF
; and #$f
; tax
clc clc
lda #15 lda #15
adc sinetable,X adc sinetable,X
adc sinetable,Y adc sinetable,Y
lsr lsr
lookup_smc: lookup_smc:
stx SAVEX sta lookup ; always starts at $d00
ldx SAVEOFF
sta lookup,X
ldx SAVEX
inc SAVEOFF inc lookup_smc+1
inx
cpx #16
bne create_xloop
iny dex
cpy #16 bpl create_xloop
bne create_yloop
dey
bpl create_yloop
create_lookup_done:
forever_loop: forever_loop:
cycle_colors:
; cycle colors ; cycle colors
ldx #0 ldx #0
@ -68,9 +67,11 @@ cycle_loop:
bne cycle_loop bne cycle_loop
; plot plot_frame:
ldx #0 ; YY=0 ; plot frame
;ldx #0 ; YY=0
plot_yloop: plot_yloop:
ldy #0 ; XX = 0 ldy #0 ; XX = 0
plot_xloop: plot_xloop:
@ -124,4 +125,6 @@ colorlookup:
;.byte $07,$07,$06,$06,$02,$02,$05,$05 ;.byte $07,$07,$06,$06,$02,$02,$05,$05
.byte $00,$05,$07,$0f,$07,$06,$02,$05 .byte $00,$05,$07,$0f,$07,$06,$02,$05
.org $d00
;.align $100
lookup: lookup: