Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-02-17 07:31:19 +00:00
Code Issues Projects Releases Wiki Activity

shave some bytes

Browse Source
This commit is contained in:
4am 2020-11-14 01:29:11 -05:00
parent 2a9201b5aa
commit 951fb31fc3
2 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/fx/fx.dhgr.fizzle.a
View File

@ -5,7 +5,7 @@
!to "build/FX/DHGR.FIZZLE",plain
*=$6000
addrs=$6100
addrs=$C0 ; [$40 bytes]
ldx #$1F ; build address lookup table
- txa

14
src/fx/fx.shr.fizzle.a
View File

@ -5,25 +5,21 @@
!to "build/FX/SHR.FIZZLE",plain
*=$A000
addrs=$A100 ; [128 bytes, can be anywhere in main memory but don't cross page boundary]
addrs=$80 ; [128 bytes, can be anywhere in main memory but don't cross page boundary]
ldx #(end-start) ; copy LFSR code to zero page
- lda start-1, x
sta $0, x
dex
bne -
ldx #$80 ; create address lookup table
ldy #$80 ; create address lookup table
lda #$9F
sec
- sta addrs-1, x
- sta addrs-1, y
sbc #1
dex
dey
bne -
sta $C005
txa
pha
pha
tay
- lda $9D00, y ; pre-copy SHR SCB and palette
sta $9D00, y
lda $9E00, y
@ -32,7 +28,7 @@ addrs=$A100 ; [128 bytes, can be anywhere in main memor
sta $9F00, y
iny
bne -
rts ; exit via LFSR code on zero page
jmp loop ; exit via LFSR code on zero page
start
!pseudopc 1 {