commit 8bcd1c5

Add prg/tron8to32.tal (convert TRON-8 or TRON-16BE to TRON-32)

 1@@ -0,0 +1,20 @@
 2+\\ Converts TRON-8 or TRON-16BE to TRON-32. (Ignores nulls)
 3+\\ (This file is public domain.)
 4+
 5+|0100
 6+  ;read/0 #10 DEO2
 7+  #0000 ( current plane selection )
 8+@main
 9+  read
10+  DUP #fe EQU ?shift
11+  DUP #7f EQU OVR #21 LTH ORA ?control
12+  STH DUP2 STHr read write !main
13+@shift
14+  POP POP2 #ffff
15+  [@ POP INC read DUP #fe EQU ]? !main
16+@control
17+  #0000 ROT OVR SWP write !main
18+
19+[@ POP @read BRK &0 #12 DEI DUP #00 EQU ]? JMP2r
20+@write SWP2 SWP #18 DEO #18 DEO SWP #18 DEO #18 DEO JMP2r
21+