Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2025-02-19 20:30:42 +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 !to "build/FX/DHGR.FIZZLE",plain
*=$6000 *=$6000
addrs=$6100 addrs=$C0 ; [$40 bytes]
ldx #$1F ; build address lookup table ldx #$1F ; build address lookup table
- txa - txa

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

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