Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-11-27 08:50:01 +00:00
Code Issues Projects Releases Wiki Activity

shave some bytes

Browse Source
This commit is contained in:
4am 2020-11-18 19:01:03 -05:00
parent 87f077d154
commit 3280b0c607
1 changed files with 17 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/fx/fx.dhgr.bar.dissolve.a
View File

@ -21,11 +21,11 @@ hgr1hi = $0300 ; [$C0 bytes, main memory only]
start start
!pseudopc 0 { !pseudopc 0 {
row1=*+1 row1=*+1
loop ldx #$00 loop ldx #$40
lda hgrlo, x lda hgrlo-$40, x
sta <src1+1 sta <src1+1
sta <dst1+1 sta <dst1+1
lda hgr1hi, x lda hgr1hi-$40, x
sta <dst1+2 sta <dst1+2
eor #$60 eor #$60
sta <src1+2 sta <src1+2
@ -33,16 +33,14 @@ loop ldx #$00
+HIDE_NEXT_BYTE +HIDE_NEXT_BYTE
- sec - sec
ldy #$27 ldy #$27
src1 lda $FDFD, y src1 lda $FDFD, y ; SMC
dst1 sta $FDFD, y dst1 sta $FDFD, y ; SMC
dey dey
dey dey
bpl src1 bpl src1
sta $C003 jsr toaux
sta $C005
bcc - bcc -
sta $C002 jsr tomain
sta $C004
row2=*+1 row2=*+1
ldx #$BF ldx #$BF
@ -57,25 +55,26 @@ row2=*+1
+HIDE_NEXT_BYTE +HIDE_NEXT_BYTE
- sec - sec
ldy #$26 ldy #$26
src2 lda $FDFD, y src2 lda $FDFD, y ; SMC
dst2 sta $FDFD, y dst2 sta $FDFD, y ; SMC
dey dey
dey dey
bpl src2 bpl src2
sta $C003 jsr toaux
sta $C005
bcc - bcc -
sta $C002 jsr tomain
sta $C004
lda #$30 lda #$30
jsr WaitForKeyWithTimeout jsr WaitForKeyWithTimeout
bmi exit bmi exit
inc row1
dec row2 dec row2
lda row1 inc row1
cmp #$C0
bne loop bne loop
tomain sta $C002
sta $C004
exit rts exit rts
toaux sta $C003
sta $C005
rts
!source "src/wait.a" !source "src/wait.a"
} }