Browse code
Use NEQk NIP pattern for polycat
neauoire authored on 16/08/2021 01:09:21
Showing 1 changed files
| ... | ... |
@@ -3,6 +3,7 @@ |
| 3 | 3 |
%RTN { JMP2r }
|
| 4 | 4 |
%2// { #01 SFT2 }
|
| 5 | 5 |
%4// { #02 SFT2 }
|
| 6 |
+%!~ { NEQk NIP }
|
|
| 6 | 7 |
|
| 7 | 8 |
( devices ) |
| 8 | 9 |
|
| ... | ... |
@@ -53,11 +54,11 @@ BRK |
| 53 | 54 |
|
| 54 | 55 |
.cat/timer LDZ #01 ADD [ DUP ] .cat/timer STZ |
| 55 | 56 |
DUP ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0 |
| 56 |
- DUP #10 NEQ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1 |
|
| 57 |
- DUP #20 NEQ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2 |
|
| 58 |
- DUP #30 NEQ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3 |
|
| 59 |
- DUP #40 NEQ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4 |
|
| 60 |
- DUP #50 NEQ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5 |
|
| 57 |
+ [ #10 ] !~ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1 |
|
| 58 |
+ [ #20 ] !~ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2 |
|
| 59 |
+ [ #30 ] !~ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3 |
|
| 60 |
+ [ #40 ] !~ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4 |
|
| 61 |
+ [ #50 ] !~ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5 |
|
| 61 | 62 |
POP |
| 62 | 63 |
|
| 63 | 64 |
BRK |