d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(bunnymark.tal) Fixed issue with clear

This commit is contained in:
Devine Lu Linvega 2023-07-23 20:48:22 -07:00
parent 737f4af8ab
commit eb07d9fba6
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
projects/examples/demos/bunnymark.tal
View File

@ -75,7 +75,7 @@ BRK
( top ) ( top )
[ LDA2k ] #05 SFT2 .Screen/x DEO2 [ LDA2k ] #05 SFT2 .Screen/x DEO2
[ INC2k INC2 LDA2 ] #05 SFT2 .Screen/y DEO2 [ INC2k INC2 LDA2 ] #05 SFT2 .Screen/y DEO2
#00 draw-sprite clear-sprite
( move the sprite by its velocity ) ( move the sprite by its velocity )
[ LDA2k ] [ OVR2 #0004 ADD2 LDA2 ] ADD2 OVR2 STA2 [ LDA2k ] [ OVR2 #0004 ADD2 LDA2 ] ADD2 OVR2 STA2
@ -110,15 +110,19 @@ BRK
( top ) ( top )
[ LDA2k ] #05 SFT2 .Screen/x DEO2 [ LDA2k ] #05 SFT2 .Screen/x DEO2
[ INC2 INC2 LDA2 ] #05 SFT2 .Screen/y DEO2 [ INC2 INC2 LDA2 ] #05 SFT2 .Screen/y DEO2
#85 ( draw )
( >> )
@draw-sprite ( color -- )
[ LIT2 15 -Screen/auto ] DEO [ LIT2 15 -Screen/auto ] DEO
;bunny-chr .Screen/addr DEO2 ;bunny-chr .Screen/addr DEO2
.Screen/sprite DEO #85 .Screen/sprite DEO
[ LIT2 00 -Screen/auto ] DEO
JMP2r
@clear-sprite ( -- )
[ LIT2 11 -Screen/auto ] DEO
;fill-icn .Screen/addr DEO2
#00 .Screen/sprite DEO
[ LIT2 00 -Screen/auto ] DEO [ LIT2 00 -Screen/auto ] DEO
JMP2r JMP2r
@ -190,7 +194,7 @@ JMP2r
[ LDA2k ] #05 SFT2 .Screen/x DEO2 [ LDA2k ] #05 SFT2 .Screen/x DEO2
[ INC2k INC2 LDA2 ] #05 SFT2 .Screen/y DEO2 [ INC2k INC2 LDA2 ] #05 SFT2 .Screen/y DEO2
( clear ) ( clear )
#00 draw-sprite clear-sprite
POP2 POP2
#0001 SUB2 DUP2 ;sprite/length STA2 #0001 SUB2 DUP2 ;sprite/length STA2
( update label ) ( update label )
@ -262,6 +266,8 @@ JMP2r
6666 3c18 3c66 6600 6666 663c 1818 1800 6666 3c18 3c66 6600 6666 663c 1818 1800
7e06 0c18 3060 7e00 7860 6060 6060 7800 7e06 0c18 3060 7e00 7860 6060 6060 7800
@fill-icn
ffff ffff ffff ffff
@bunny-chr @bunny-chr
2466 6600 2424 003c 4200 007e 7e7e 7e7e 2466 6600 2424 003c 4200 007e 7e7e 7e7e
1818 3c3c 1800 0000 ff66 4242 667e 4242 1818 3c3c 1800 0000 ff66 4242 667e 4242