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

add fx/fx.hgr.2pass.lr

Browse Source
This commit is contained in:
4am 2018-10-30 21:28:14 -04:00
parent 797a519532
commit eafd31134e
4 changed files with 63 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Makefile
View File

@ -30,6 +30,7 @@ asm: md
$(ACME) src/fx/fx.hgr.bar.dissolve.a $(ACME) src/fx/fx.hgr.bar.dissolve.a
$(ACME) src/fx/fx.hgr.block.fizzle.a $(ACME) src/fx/fx.hgr.block.fizzle.a
$(ACME) src/fx/fx.hgr.block.mosaic.a $(ACME) src/fx/fx.hgr.block.mosaic.a
$(ACME) src/fx/fx.hgr.2pass.lr.a
dsk: md asm dsk: md asm
$(CADIUS) CREATEVOLUME build/"$(DISK)" "${VOLUME}" 32766KB >>build/log $(CADIUS) CREATEVOLUME build/"$(DISK)" "${VOLUME}" 32766KB >>build/log

2
res/fx.conf
View File

@ -1 +1 @@
# # transition effects for HGR slideshows # INTERLOCK.LR BLOCK.MOSAIC IRIS FIZZLE INTERLOCK.UD BLOCK.FIZZLE DIAGONAL SPIRAL BAR.DISSOLVE [eof] # # transition effects for HGR slideshows # TWOPASS.LR INTERLOCK.LR BLOCK.MOSAIC IRIS FIZZLE INTERLOCK.UD BLOCK.FIZZLE DIAGONAL SPIRAL BAR.DISSOLVE [eof]

1
res/fx/_FileInformation.txt
View File

@ -7,3 +7,4 @@ SPIRAL=Type(06),AuxType(6000),Access(C3)
BAR.DISSOLVE=Type(06),AuxType(6000),Access(C3) BAR.DISSOLVE=Type(06),AuxType(6000),Access(C3)
BLOCK.FIZZLE=Type(06),AuxType(6000),Access(C3) BLOCK.FIZZLE=Type(06),AuxType(6000),Access(C3)
BLOCK.MOSAIC=Type(06),AuxType(6000),Access(C3) BLOCK.MOSAIC=Type(06),AuxType(6000),Access(C3)
TWOPASS.LR=Type(06),AuxType(6000),Access(C3)

60
src/fx/fx.hgr.2pass.lr.a Normal file
View File

@ -0,0 +1,60 @@
!cpu 6502
!to "build/FX/TWOPASS.LR",plain
*=$6000
row = $FF
lda #$00
sta @h1
sta @h2
@outerloop1
lda #$BF
sta row
@loop1 jsr HGRCalc
@h1=*+1
ldy #$00
lda ($3c),y
sta ($26),y
dec row
dec row
lda row
cmp #$FF
bne @loop1
lda #$10
jsr WaitForKeyWithTimeout
lda $C000
bmi @exit
inc @h1
lda @h1
cmp #$28
bne @outerloop1
@outerloop2
lda #$BE
sta row
@loop2 jsr HGRCalc
@h2=*+1
ldy #$00
lda ($3c),y
sta ($26),y
dec row
dec row
lda row
cmp #$FE
bne @loop2
lda #$10
jsr WaitForKeyWithTimeout
lda $C000
bmi @exit
inc @h2
lda @h2
cmp #$28
bne @outerloop2
@exit rts
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"