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