Browse code
(launcher.tal) Clear screen using Screen/pixel
Devine Lu Linvega authored on 30/07/2023 01:46:25
Showing 2 changed files
| ... | ... |
@@ -25,29 +25,9 @@ |
| 25 | 25 |
.System/rst DEI ,&rst-loop JCN |
| 26 | 26 |
|
| 27 | 27 |
( clear screen ) |
| 28 |
- #01 .Screen/auto DEO |
|
| 29 |
- #0000 .Screen/y DEO2 |
|
| 30 |
- .Screen/width DEI2 #0007 ADD2 #03 SFT2 #ffff MUL2 STH2 |
|
| 31 |
- &screen-yloop |
|
| 32 |
- #0000 .Screen/x DEO2 |
|
| 33 |
- STH2kr |
|
| 34 |
- &screen-xloop-bg |
|
| 35 |
- #00 .Screen/sprite DEO |
|
| 36 |
- INC2 |
|
| 37 |
- ORAk ,&screen-xloop-bg JCN |
|
| 38 |
- POP2 |
|
| 39 |
- #0000 .Screen/x DEO2 |
|
| 40 |
- STH2kr |
|
| 41 |
- &screen-xloop-fg |
|
| 42 |
- #40 .Screen/sprite DEO |
|
| 43 |
- INC2 |
|
| 44 |
- ORAk ,&screen-xloop-fg JCN |
|
| 45 |
- POP2 |
|
| 46 |
- .Screen/y DEI2 #0008 ADD2 |
|
| 47 |
- DUP2 .Screen/y DEO2 |
|
| 48 |
- .Screen/height DEI2 LTH2 ,&screen-yloop JCN |
|
| 49 |
- POP2r |
|
| 50 |
- #00 .Screen/auto DEO |
|
| 28 |
+ #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2 |
|
| 29 |
+ #80 .Screen/pixel DEO |
|
| 30 |
+ #c0 .Screen/pixel DEO |
|
| 51 | 31 |
|
| 52 | 32 |
( reset device vectors ) |
| 53 | 33 |
LIT2r 0000 #00 |
| ... | ... |
@@ -175,11 +175,11 @@ JMP2r |
| 175 | 175 |
POP JMP2r |
| 176 | 176 |
&valid |
| 177 | 177 |
|
| 178 |
- #00 ;draw-browser JSR2 |
|
| 178 |
+ clear-browser |
|
| 179 | 179 |
DUP .browser/sel STZ |
| 180 | 180 |
DUP .browser/last STZ |
| 181 | 181 |
#30 ADD .Audio0/pitch DEO |
| 182 |
- #01 ;draw-browser JSR2 |
|
| 182 |
+ draw-browser |
|
| 183 | 183 |
|
| 184 | 184 |
( draw mascot ) |
| 185 | 185 |
#0010 #0010 #0060 #0060 |
| ... | ... |
@@ -222,9 +222,9 @@ JMP2r |
| 222 | 222 |
SUB INC STHkr GTH ,&valid-scroll JCN |
| 223 | 223 |
POPr JMP2r |
| 224 | 224 |
&valid-scroll |
| 225 |
- #00 ;draw-browser JSR2 |
|
| 225 |
+ clear-browser |
|
| 226 | 226 |
STHr .browser/scroll STZ |
| 227 |
- #01 ;draw-browser JSR2 |
|
| 227 |
+ draw-browser |
|
| 228 | 228 |
|
| 229 | 229 |
JMP2r |
| 230 | 230 |
|
| ... | ... |
@@ -266,18 +266,24 @@ JMP2r |
| 266 | 266 |
|
| 267 | 267 |
JMP2r |
| 268 | 268 |
|
| 269 |
+@clear-browser ( -- ) |
|
| 270 |
+ |
|
| 271 |
+ #0000 |
|
| 272 |
+ DUP2 .Screen/x DEO2 |
|
| 273 |
+ .Screen/y DEO2 |
|
| 274 |
+ #80 .Screen/pixel DEO |
|
| 275 |
+ |
|
| 276 |
+JMP2r |
|
| 277 |
+ |
|
| 269 | 278 |
@draw-browser ( mask -- ) |
| 270 | 279 |
|
| 271 | 280 |
( when empty ) |
| 272 | 281 |
.browser/lines LDZ #01 EQU ;draw-browser-empty JCN2 |
| 273 | 282 |
|
| 274 |
- STH |
|
| 275 |
- |
|
| 276 | 283 |
( draw hand ) |
| 277 | 284 |
.browser/x LDZ2 #0018 SUB2 .browser/y LDZ2 |
| 278 | 285 |
.browser/sel LDZ .browser/scroll LDZ SUB #00 SWP #40 SFT2 ADD2 |
| 279 |
- #0010 #0010 |
|
| 280 |
- ;hand-icn STHkr #10 SFT ;draw-icn JSR2 |
|
| 286 |
+ #0010 #0010 ;hand-icn #02 ;draw-icn JSR2 |
|
| 281 | 287 |
( draw files ) |
| 282 | 288 |
.browser/y2 LDZ2 .browser/y LDZ2 SUB2 #04 SFT2 NIP #00 |
| 283 | 289 |
&loop |
| ... | ... |
@@ -288,13 +294,11 @@ JMP2r |
| 288 | 294 |
#00 OVR #40 SFT2 .browser/y LDZ2 ADD2 .Screen/y DEO2 |
| 289 | 295 |
DUP .browser/scroll LDZ ADD ;get-entry JSR2 |
| 290 | 296 |
DUP2 ;get-type JSR2 ;draw-type JSR2 |
| 291 |
- #01 STHkr MUL ;draw-str JSR2 |
|
| 297 |
+ #01 ;draw-str JSR2 |
|
| 292 | 298 |
INC GTHk ,&loop JCN |
| 293 | 299 |
&end |
| 294 | 300 |
POP2 |
| 295 | 301 |
|
| 296 |
- POPr |
|
| 297 |
- |
|
| 298 | 302 |
JMP2r |
| 299 | 303 |
|
| 300 | 304 |
@draw-browser-empty ( mask -- ) |