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

(wireworld.tal) Clear on select+start

This commit is contained in:
neauoire 2022-01-22 14:54:02 -08:00
parent 4ad5c8f9fa
commit 0932e4165b
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
projects/examples/demos/wireworld.tal
View File

@ -51,9 +51,9 @@
|0100 ( -> ) |0100 ( -> )
( theme ) ( theme )
#0ff0 .System/r DEO2 #0f7f .System/r DEO2
#0d0a .System/g DEO2 #0fe0 .System/g DEO2
#040f .System/b DEO2 #0fc0 .System/b DEO2
( size ) ( size )
#00 WIDTH 4** .Screen/width DEO2 #00 WIDTH 4** .Screen/width DEO2
#00 HEIGHT 4** .Screen/height DEO2 #00 HEIGHT 4** .Screen/height DEO2
@ -89,6 +89,10 @@ BRK
DUP #02 ! ,&no-b JCN #02 .color STZ &no-b DUP #02 ! ,&no-b JCN #02 .color STZ &no-b
DUP #04 ! ,&no-select JCN #03 .color STZ &no-select DUP #04 ! ,&no-select JCN #03 .color STZ &no-select
DUP #08 ! ,&no-start JCN #00 .color STZ &no-start DUP #08 ! ,&no-start JCN #00 .color STZ &no-start
DUP #0c ! ,&no-both JCN
;past-world LENGTH 2** ;mclr JSR2
;redraw JSR2
&no-both
POP POP
( space ) ( space )
.Controller/key DEI #20 ! ,&no-space JCN .Controller/key DEI #20 ! ,&no-space JCN
@ -198,6 +202,16 @@ RTN
JMP2r JMP2r
@mclr ( addr* len* -- )
OVR2 ++ SWP2
&loop
STH2k #00 STH2r STA
INC2 GTH2k ,&loop JCN
POP2 POP2
JMP2r
@pointer-icn @pointer-icn
80c0 e0f0 f8e0 1000 80c0 e0f0 f8e0 1000
@cell-icn @cell-icn