Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-06-17 08:29:32 +00:00
Code Issues Projects Releases Wiki Activity

add fx/fourspiral

Browse Source
This commit is contained in:
4am 2018-11-03 20:04:41 -04:00
parent 1ef1b5608f
commit 05ac8136f3
4 changed files with 93 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -48,6 +48,7 @@ asm: md
$(ACME) src/fx/fx.hgr.iris.a
$(ACME) src/fx/fx.hgr.ripple.a
$(ACME) src/fx/fx.hgr.star.a
$(ACME) src/fx/fx.hgr.fourspiral.a
dsk: md asm
$(CADIUS) CREATEVOLUME build/"$(DISK)" "${VOLUME}" 32766KB >>build/log

2
res/fx.conf
View File

@ -1 +1 @@
# # transition effects for HGR slideshows # STAR RIPPLE IRIS SPLIT.UD.INTRO RADIAL SUNRISE DIAGONAL CHECKERBOARD HALF.FIZZLE CORNER.CIRCLE BAR.DISSOLVE STAGGERWHITE.LR DIAMOND ONESQUARE TWOPASS.LR CRYSTAL HALF.MOSAIC STAGGER.LR FOURSQUARE STAGGER.UD INTERLOCK.LR BLOCK.MOSAIC FIZZLE STAGGERWHITE.UD INTERLOCK.UD BLOCK.FIZZLE SPIRAL [eof]
# # transition effects for HGR slideshows # FOURSPIRAL STAR RIPPLE IRIS SPLIT.UD.INTRO RADIAL SUNRISE DIAGONAL CHECKERBOARD HALF.FIZZLE CORNER.CIRCLE BAR.DISSOLVE STAGGERWHITE.LR DIAMOND ONESQUARE TWOPASS.LR CRYSTAL HALF.MOSAIC STAGGER.LR FOURSQUARE STAGGER.UD INTERLOCK.LR BLOCK.MOSAIC FIZZLE STAGGERWHITE.UD INTERLOCK.UD BLOCK.FIZZLE SPIRAL [eof]

1
res/fx/_FileInformation.txt
View File

@ -25,3 +25,4 @@ SPLIT.UD.INTRO=Type(06),AuxType(6000),Access(C3)
IRIS=Type(06),AuxType(6000),Access(C3)
RIPPLE=Type(06),AuxType(6000),Access(C3)
STAR=Type(06),AuxType(6000),Access(C3)
FOURSPIRAL=Type(06),AuxType(6000),Access(C3)

90
src/fx/fx.hgr.fourspiral.a Normal file
View File

@ -0,0 +1,90 @@
!cpu 6502
!to "build/FX/FOURSPIRAL",plain
*=$6000
lda #$13
sta $FB
lda #$17
sta $FD
lda #$00
sta $FA
sta $FC
@outerloop
lda $FC
sta $FE
lda $FA
sta $FF
lda #$00
sta $F9
@loop lda $FE
ldy $FF
jsr HGRHalfBlockCopy
lda #$27
sec
sbc $FF
tay
lda $FE
jsr HGRHalfBlockCopy
lda #$2F
sec
sbc $FE
pha
jsr HGRHalfBlockCopy
pla
ldy $FF
jsr HGRHalfBlockCopy
lda #$28
jsr WaitForKeyWithTimeout
bmi @exit
ldx $F9
bne @a
inc $FF
lda $FB
cmp $FF
bcs @loop
inc $FC
inc $F9
lda $FC
sta $FE
lda $FB
sta $FF
@a dex
bne @b
inc $FE
lda $FD
cmp $FE
bcs @loop
dec $FB
inc $F9
lda $FD
sta $FE
lda $FB
sta $FF
@b dex
bne @c
dec $FF
lda $FF
cmp $FA
bpl @loop
lda $FD
cmp $FC
beq @exit
dec $FD
inc $F9
lda $FD
sta $FE
lda $FA
sta $FF
@c dex
bne @loop
dec $FE
lda $FE
cmp $FC
bpl @loop
inc $FA
beq @exit
jmp @outerloop
@exit rts
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"