etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-22 22:05:11 +00:00
Code Issues Projects Releases Wiki Activity

(wireworld.tal) Clear on select+start

Browse source
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 ( -> )
( theme )
#0ff0 .System/r DEO2
#0d0a .System/g DEO2
#040f .System/b DEO2
#0f7f .System/r DEO2
#0fe0 .System/g DEO2
#0fc0 .System/b DEO2
( size )
#00 WIDTH 4** .Screen/width DEO2
#00 HEIGHT 4** .Screen/height DEO2
@ -89,6 +89,10 @@ BRK
DUP #02 ! ,&no-b JCN #02 .color STZ &no-b
DUP #04 ! ,&no-select JCN #03 .color STZ &no-select
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
( space )
.Controller/key DEI #20 ! ,&no-space JCN
@ -198,6 +202,16 @@ RTN
JMP2r
@mclr ( addr* len* -- )
OVR2 ++ SWP2
&loop
STH2k #00 STH2r STA
INC2 GTH2k ,&loop JCN
POP2 POP2
JMP2r
@pointer-icn
80c0 e0f0 f8e0 1000
@cell-icn