Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-01-12 14:30:29 +00:00
Code Issues Projects Releases Wiki Activity

shave another 327679 cycles

Browse Source
This commit is contained in:
4am 2020-09-04 01:01:32 -04:00
parent 87dd4f4e4b
commit e4a54d87c7
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/fx/fx.hgr.1bit.fizzle.a
View File

@ -5,12 +5,16 @@
!to "build/FX/BIT.FIZZLE",plain !to "build/FX/BIT.FIZZLE",plain
*=$6000 *=$6000
src=$fc
dst=$fe
jsr swap jsr swap
inx ldx #1
ldy #1 stx+1 rnd1+1
sty+1 rnd1+1 dex
dey stx+1 rnd2+1
sty+1 rnd2+1 stx src
stx dst
jsr $0 jsr $0
swap ldx #(End-Start-1) swap ldx #(End-Start-1)
- lda $0, x - lda $0, x
@ -27,26 +31,22 @@ Start
!pseudopc 0 { !pseudopc 0 {
loop lda+1 rnd1+1 loop lda+1 rnd1+1
loop2 eor #$ff loop2 eor #$ff
sta+1 dst+1 tay
sta+1 src+1
lsr+1 rnd2+1 lsr+1 rnd2+1
ror+1 rnd1+1 ror+1 rnd1+1
bcc + bcc +
lda+1 rnd1+1
eor #$16
sta+1 rnd1+1
lda+1 rnd2+1 lda+1 rnd2+1
eor #$80 eor #$B4
sta+1 rnd2+1 sta+1 rnd2+1
+ lda addrs, x + lda addrs, x
sta+1 dst+2 sta dst+1
eor #$60 eor #$60
sta+1 src+2 sta src+1
lda+1 (dst+1), y lda (dst), y
src eor $FDFD eor (src), y
and copymasks, x and copymasks, x
eor+1 (dst+1), y eor (dst), y
dst sta $FDFD sta (dst), y
rnd2 ldx #$FD rnd2 ldx #$FD
bne loop bne loop
lda $c000 lda $c000