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

.

Browse Source
This commit is contained in:
4am 2018-10-31 22:37:17 -04:00
parent 3d056af2ca
commit 66b33dfd2f
4 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/fx/fx.hgr.block.fizzle.a
View File

@ -31,7 +31,7 @@ coord = $FE
@exit rts
@coords
!source "src/fx/fx.hgr.common.blockcoords.a"
!source "src/fx/fx.hgr.block.fizzle.data.a"
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"

0
src/fx/fx.hgr.common.blockcoords.a → src/fx/fx.hgr.block.fizzle.data.a
View File

2
src/fx/fx.hgr.block.mosaic.a
View File

@ -56,7 +56,7 @@ coord = $FE
@exit rts
@coords
!source "src/fx/fx.hgr.common.blockcoords.a"
!source "src/fx/fx.hgr.block.fizzle.data.a"
!source "src/wait.a"
!source "src/fx/fx.hgr.common.a"

22
src/fx/fx.hgr.common.a
View File

@ -32,14 +32,19 @@ HGRCalc
HGRBlockCopy
; in: A = HGR row / 8 (0x00..0x17)
; Y = HGR column (0x00..0x27)
; out: all flags and registers clobbered
sty @loop+1
; out: Y preserved
; X = #$FF
; Z set
; all other flags and registers clobbered
sty @y
asl
asl
asl
jsr HGRCalc
ldx #$08
@loop ldy #$FD ; modified at runtime
@y=*+1
ldy #$FD ; modified at runtime
@loop
lda ($3c),y
sta ($26),y
lda $27
@ -55,14 +60,19 @@ HGRBlockCopy
HGRBlockToWhite
; in: A = HGR row / 8 (0x00..0x17)
; Y = HGR column (0x00..0x27)
; out: all flags and registers clobbered
sty @loop+1
; out: Y preserved
; X = #$FF
; Z set
; all other flags and registers clobbered
sty @y
asl
asl
asl
jsr HGRCalc
ldx #$08
@loop ldy #$FD ; modified at runtime
@y=*+1
ldy #$FD ; modified at runtime
@loop
lda #$7F
sta ($26),y
lda $27