commit df0e4c8

zzo38  ·  2023-04-28 22:02:35 +0000 UTC
parent c780e0c 
Add prg/tron32to16.tal
2 files changed,  +14, -1
A prg/tron32to16.tal
M prg/tron8to32.tal
A prg/tron32to16.tal
+13, -0 
 1@@ -0,0 +1,13 @@
 2+\\ Converts TRON-32BE to TRON-16BE.
 3+\\ (This file is public domain.)
 4+
 5+|0100 ;input/0 #10 DEO2k
 6+[@
 7+  input EQU2k EQUk ORA [?
 8+    NIP2 OVRk #ff MUL [@ #fe18 DEO INCk SWP ]? POP
 9+    OVR INC #01 AND [? #0018 DEO ]@
10+    DUP #18 DEO
11+  ]@ POP2
12+  input SWP #18 DEO #18 DEO
13+]!
14+@input [& ]@ BRK &0 #12 DEI JMP2r
M prg/tron8to32.tal
+1, -1 
1@@ -1,4 +1,4 @@
2-\\ Converts TRON-8 or TRON-16BE to TRON-32. (Ignores nulls)
3+\\ Converts TRON-8 or TRON-16BE to TRON-32BE. (Ignores nulls)
4 \\ (This file is public domain.)
5 
6 |0100