Apple-2-Tools/4cade
1
0
Fork 0
mirror of https://github.com/a2-4am/4cade.git synced 2024-10-03 19:55:09 +00:00
Code Issues Projects Releases Wiki Activity

construct half block fizzle data at runtime

Browse Source
This commit is contained in:
4am 2020-11-30 21:58:42 -05:00
parent d253388c9d
commit 8a4792a5b0
1 changed files with 115 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,41 +1,115 @@
;license:MIT
;(c) 2018 by 4am
;
!cpu 6502
!to "build/FX/HALF.FIZZLE",plain
*=$6000
coord = $FE
lda #<@coords
sta coord
lda #>@coords
sta coord+1
@loop
ldy #0
lda (coord),y
bmi @exit
tax
iny
lda (coord),y
tay
txa
jsr HGRHalfBlockCopy
lda #$07
jsr WaitForKeyWithTimeout
bmi @exit
inc coord
bne +
inc coord+1
+ inc coord
bne +
inc coord+1
+ bne @loop
@exit rts
@coords
!source "src/fx/fx.hgr.halfblock.fizzle.data.a"
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"
+HGR_HALF_BLOCK_COPY_ROUTINES
;license:MIT
;(c) 2018-2020 by 4am/qkumba
;
!cpu 6502
!to "build/FX/HALF.FIZZLE",plain
*=$6000
coord = $FE
lda #<Coordinates
sta coord
lda #>Coordinates
sta coord+1
;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
@loop2
ldy #0
lda (coord),y
bmi @exit
tax
iny
lda (coord),y
tay
txa
jsr HGRHalfBlockCopy
lda #$07
jsr WaitForKeyWithTimeout
bmi @exit
inc coord
bne +
inc coord+1
+ inc coord
bne +
inc coord+1
+ 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