commit 796fac6

zzo38  ·  2023-10-04 04:48:47 +0000 UTC
parent 3d77ed5
Add prg/morsepict.tal
1 files changed,  +35, -0
+35, -0
 1@@ -0,0 +1,35 @@
 2+\_28'0p \\ This line should be set to the offset of the data table
 3+
 4+|0100
 5+  #0000 DUP2k #28 DEO2 #2a DEO2
 6+  #802e DEO #c02e DEO
 7+  #0126 DEO
 8+  [; #10 DEO2 BRK ]@
 9+  #0a12 DEI EQU ?nextline
10+  #0101 LIT2 \_0gw 12 DEI ADD LDA
11+  [@ LDAk INC [? POP2 BRK ]@ LDAk #2e DEO INC ]!
12+
13+@nextline
14+  DUP2 #28 DEO2
15+  #2a DEI2k INC2 ROT DEO2
16+  BRK
17+
18+\_0120"0g+! fd $3a
19+%x { \_@1-:::!#g0100"+0g+p }
20+  "0 x 01 01 01 01 01 ff
21+  "1 x 00 01 "O x 01 "M x 01 "T x 01 ff
22+  "2 x 00 "J x 00 01 01 01 ff
23+  "3 x 00 00 "W x 00 01 01 ff
24+  "4 x 00 "V x 00 "U x 00 "A x 00 01 ff
25+  "5 x 00 00 "S x 00 00 00 ff
26+  "6 x 01 "H x 00 00 "I x 00 00 ff
27+  "7 x 01 "B x 01 00 00 00 ff
28+  "8 x 01 "Z x 01 "D x 01 00 00 ff
29+  "9 x 01 01 "G x 01 "N x 01 "E x 00 ff
30+  "C x 01 "R x 00 01 00 ff
31+  "F x 00 00 01 00 ff
32+  "L x 00 01 00 00 ff
33+  "P x 00 01 01 00 ff
34+  "Q x 01 "K x 01 00 01 ff
35+  "X x 01 00 00 01 ff
36+  "Y x 01 00 01 01 20 x ff