Add test keys for new functions

This commit is contained in:
Lucas Scharenbroich 2022-06-27 17:22:22 -05:00
parent 88fa17f081
commit 65be8135da

View File

@ -290,9 +290,10 @@ HERO_SPRITE equ SPRITE_16X16+1
:10 cmp #$0A :10 cmp #$0A
bne :11 bne :11
dec ScreenY dec ScreenY
brl :next
:11 cmp #'y' :11 cmp #'y'
bne :next bne :12
lda DTile lda DTile
inc inc
and #$007F and #$007F
@ -300,6 +301,17 @@ HERO_SPRITE equ SPRITE_16X16+1
pha pha
pea $0000 pea $0000
_GTECopyTileToDynamic _GTECopyTileToDynamic
brl :next
:12 cmp #'f'
bne :13
pea $0000
_GTEFillTileStore
brl :next
:13 cmp #'m'
bne :next
_GTERefresh
:next :next
; inc ScreenX ; inc ScreenX