Apple-2-Tools
/
4cade
mirror of https://github.com/a2-4am/4cade.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

construct half block fizzle data at runtime

This commit is contained in:
4am 2020-11-30 22:07:48 -05:00
parent 8a4792a5b0
commit 173841dedd
5 changed files with 97 additions and 2018 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/fx/fx.hgr.block.fizzle.common.a
View File

@ -8,10 +8,8 @@ Coordinates = $7000 ; about $700 bytes, can be anywhere
!source "src/fx/macros.a"
!macro BUILD_BLOCK_FIZZLE_DATA {
lda #<Coordinates
sta coord
lda #>Coordinates
sta coord+1
+LDADDR Coordinates
+ST16 coord
;init RNG

85
src/fx/fx.hgr.halfblock.fizzle.a
View File

@ -5,79 +5,12 @@
!to "build/FX/HALF.FIZZLE",plain
*=$6000
coord = $FE
!source "src/fx/fx.hgr.halfblock.fizzle.common.a"
lda #<Coordinates
sta coord
lda #>Coordinates
sta coord+1
+BUILD_HALFBLOCK_FIZZLE_DATA
;init RNG
ldx #1
stx @rnd1+1
dex
stx @rnd2+1
;iterate
@loop
ldy @rnd1+1
ldx @rnd2+1
lsr @rnd2+1
ror @rnd1+1
bcc +
;feedback polynomial forms #$500 for period of 2047
lda @rnd2+1
eor #5
sta @rnd2+1
+ tya
eor #$ff
ldy #0
- cpx #0
bne +
cmp #40
bcc ++
+ sbc #40
pha
txa
sbc #0
tax
pla
iny
bne -
++ cpy #48
bcs @rnd2
tax
tya
jsr @stainc
txa
jsr @stainc
@rnd2 lda #0
bne @loop
@rnd1 lda #0
cmp #1
bne @loop
;include the missing point
lda #6
jsr @stainc
lda #15
jsr @stainc
lda #$ff
jsr @stainc
lda #<Coordinates
sta coord
lda #>Coordinates
sta coord+1
+LDADDR Coordinates
+ST16 coord
@loop2
ldy #0
lda (coord),y
@ -100,16 +33,6 @@ coord = $FE
+ bne @loop2
@exit rts
@stainc
ldy #0
sta (coord), y
inc coord
bne +
inc coord+1
+ rts
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"
+HGR_HALF_BLOCK_COPY_ROUTINES
Coordinates

84
src/fx/fx.hgr.halfblock.fizzle.common.a Normal file
View File

@ -0,0 +1,84 @@
;license:MIT
;(c) 2020 by qkumba
;
coord = $FE
Coordinates = $7000 ; about $700 bytes, can be anywhere
!source "src/fx/macros.a"
!macro BUILD_HALFBLOCK_FIZZLE_DATA {
+LDADDR Coordinates
+ST16 coord
;init RNG
ldx #1
stx @rnd1+1
dex
stx @rnd2+1
;iterate
@loop
ldy @rnd1+1
ldx @rnd2+1
lsr @rnd2+1
ror @rnd1+1
bcc +
;feedback polynomial forms #$500 for period of 2047
lda @rnd2+1
eor #5
sta @rnd2+1
+ tya
eor #$ff
ldy #0
- cpx #0
bne +
cmp #40
bcc ++
+ sbc #40
pha
txa
sbc #0
tax
pla
iny
bne -
++ cpy #48
bcs @rnd2
tax
tya
jsr @stainc
txa
jsr @stainc
@rnd2 lda #0
bne @loop
@rnd1 lda #0
cmp #1
bne @loop
;include the missing point
lda #6
jsr @stainc
lda #15
jsr @stainc
lda #$ff
jsr @stainc
bne ++ ; always branches
@stainc
ldy #0
sta (coord), y
inc coord
bne +
inc coord+1
+ rts
++
}

1921
src/fx/fx.hgr.halfblock.fizzle.data.a
View File

File diff suppressed because it is too large Load Diff

19
src/fx/fx.hgr.halfblock.fizzle.white.a
View File

@ -5,12 +5,12 @@
!to "build/FX/HALF.MOSAIC",plain
*=$6000
coord = $FE
!source "src/fx/fx.hgr.halfblock.fizzle.common.a"
lda #<@coords
sta coord
lda #>@coords
sta coord+1
+BUILD_HALFBLOCK_FIZZLE_DATA
+LDADDR Coordinates
+ST16 coord
@whiteloop
ldy #0
lda (coord),y
@ -32,10 +32,8 @@ coord = $FE
inc coord+1
+ bne @whiteloop
@endwhite
lda #<@coords
sta coord
lda #>@coords
sta coord+1
+LDADDR Coordinates
+ST16 coord
@copyloop
ldy #0
lda (coord),y
@ -58,9 +56,6 @@ coord = $FE
+ bne @copyloop
@exit rts
@coords
!source "src/fx/fx.hgr.halfblock.fizzle.data.a"
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"
+HGR_WHITE_ROUTINES