Browse code
(bunnymark.tal) Fixed issue with clear
Devine Lu Linvega authored on 24/07/2023 03:48:22
Showing 1 changed files
| ... | ... |
@@ -75,7 +75,7 @@ BRK |
| 75 | 75 |
( top ) |
| 76 | 76 |
[ LDA2k ] #05 SFT2 .Screen/x DEO2 |
| 77 | 77 |
[ INC2k INC2 LDA2 ] #05 SFT2 .Screen/y DEO2 |
| 78 |
- #00 draw-sprite |
|
| 78 |
+ clear-sprite |
|
| 79 | 79 |
|
| 80 | 80 |
( move the sprite by its velocity ) |
| 81 | 81 |
[ LDA2k ] [ OVR2 #0004 ADD2 LDA2 ] ADD2 OVR2 STA2 |
| ... | ... |
@@ -110,15 +110,19 @@ BRK |
| 110 | 110 |
( top ) |
| 111 | 111 |
[ LDA2k ] #05 SFT2 .Screen/x DEO2 |
| 112 | 112 |
[ INC2 INC2 LDA2 ] #05 SFT2 .Screen/y DEO2 |
| 113 |
- #85 |
|
| 113 |
+ ( draw ) |
|
| 114 |
+ [ LIT2 15 -Screen/auto ] DEO |
|
| 115 |
+ ;bunny-chr .Screen/addr DEO2 |
|
| 116 |
+ #85 .Screen/sprite DEO |
|
| 117 |
+ [ LIT2 00 -Screen/auto ] DEO |
|
| 114 | 118 |
|
| 115 |
-( >> ) |
|
| 119 |
+JMP2r |
|
| 116 | 120 |
|
| 117 |
-@draw-sprite ( color -- ) |
|
| 121 |
+@clear-sprite ( -- ) |
|
| 118 | 122 |
|
| 119 |
- [ LIT2 15 -Screen/auto ] DEO |
|
| 120 |
- ;bunny-chr .Screen/addr DEO2 |
|
| 121 |
- .Screen/sprite DEO |
|
| 123 |
+ [ LIT2 11 -Screen/auto ] DEO |
|
| 124 |
+ ;fill-icn .Screen/addr DEO2 |
|
| 125 |
+ #00 .Screen/sprite DEO |
|
| 122 | 126 |
[ LIT2 00 -Screen/auto ] DEO |
| 123 | 127 |
|
| 124 | 128 |
JMP2r |
| ... | ... |
@@ -190,7 +194,7 @@ JMP2r |
| 190 | 194 |
[ LDA2k ] #05 SFT2 .Screen/x DEO2 |
| 191 | 195 |
[ INC2k INC2 LDA2 ] #05 SFT2 .Screen/y DEO2 |
| 192 | 196 |
( clear ) |
| 193 |
- #00 draw-sprite |
|
| 197 |
+ clear-sprite |
|
| 194 | 198 |
POP2 |
| 195 | 199 |
#0001 SUB2 DUP2 ;sprite/length STA2 |
| 196 | 200 |
( update label ) |
| ... | ... |
@@ -262,6 +266,8 @@ JMP2r |
| 262 | 266 |
6666 3c18 3c66 6600 6666 663c 1818 1800 |
| 263 | 267 |
7e06 0c18 3060 7e00 7860 6060 6060 7800 |
| 264 | 268 |
|
| 269 |
+@fill-icn |
|
| 270 |
+ ffff ffff ffff ffff |
|
| 265 | 271 |
@bunny-chr |
| 266 | 272 |
2466 6600 2424 003c 4200 007e 7e7e 7e7e |
| 267 | 273 |
1818 3c3c 1800 0000 ff66 4242 667e 4242 |