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

Use NEQk NIP pattern for polycat

This commit is contained in:
neauoire 2021-08-15 18:09:21 -07:00
parent f59537d993
commit 19322f1d23
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
projects/examples/demos/polycat.tal
View File

@ -3,6 +3,7 @@
%RTN { JMP2r } %RTN { JMP2r }
%2// { #01 SFT2 } %2// { #01 SFT2 }
%4// { #02 SFT2 } %4// { #02 SFT2 }
%!~ { NEQk NIP }
( devices ) ( devices )
@ -53,11 +54,11 @@ BRK
.cat/timer LDZ #01 ADD [ DUP ] .cat/timer STZ .cat/timer LDZ #01 ADD [ DUP ] .cat/timer STZ
DUP ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0 DUP ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0
DUP #10 NEQ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1 [ #10 ] !~ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1
DUP #20 NEQ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2 [ #20 ] !~ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2
DUP #30 NEQ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3 [ #30 ] !~ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3
DUP #40 NEQ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4 [ #40 ] !~ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4
DUP #50 NEQ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5 [ #50 ] !~ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5
POP POP
BRK BRK