commit b79d6d3

Add pdf/deadfish.tal

 1@@ -0,0 +1,37 @@
 2+\\ Deadfish in Uxn
 3+\\ (use in non-GUI mode)
 4+
 5+|0100
 6+  #0000 STH2k
 7+  [; #10 DEO2 BRK ]@
 8+
 9+\\ Replace with 0
10+  DUP2 #0100 NEQ2
11+  [? POP2 STH2rk ]@
12+
13+\\ Check input
14+  #12 DEI
15+  DUP LIT "i EQU ,i JCN
16+  DUP LIT "d EQU ,d JCN
17+  DUP LIT "s EQU ,s JCN
18+  LIT "o EQU ,o JCN BRK
19+
20+@i
21+  POP INC2 BRK
22+
23+@d
24+  POP ORAk STHrk NEQk ROT POP SUB2 BRK
25+
26+@s
27+  POP DUP2 MUL2 BRK
28+
29+@o
30+  DUP2
31+  [@
32+    #000a DIV2k STH2k MUL2 SUB2
33+    STH2 SWP2r STH2r
34+    NIPr LITr 30 ADDr
35+  ORAk ]?
36+  POP2
37+  [@ LITr 18 DEOr STHrk ]?
38+  #0a18 DEO BRK