1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|20 @Screen &vector $2 &width $2 &height $2 &auto $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|c000 @source/length
|100
@on-reset ( -> )
( | system colors )
[ LIT2 0f -System/r ] DEO
[ LIT2 0f -System/g ] DEO
[ LIT2 0f -System/b ] DEO
[ LIT2 15 -Screen/auto ] DEO
.Screen/width DEI2 #01 SFT2 #0010 SUB2 ;on-frame/anchor-x STA2
.Screen/height DEI2 #01 SFT2 #0008 SUB2 ;on-frame/anchor-y STA2
( | load source )
;source/name .File/name DEO2
;source/length .File/length DEO2
;source/buf .File/read DEO2
( | unlock )
;on-frame .Screen/vector DEO2
BRK
@on-frame ( -> )
( | 36/60 - 0.6039604 )
[ LIT2 24 &f $1 ] INCk ,&f STR
EQU ?{ BRK }
( | find word )
[ LIT2 &id =source/buf ] DUP2 #0005 ADD2 ,&id STR2
( | reach end )
LDAk ?{ POP2 #0000 .Screen/vector DEO2 }
( | draw word )
[ LIT2 &anchor-x $2 ] .Screen/x DEO2
[ LIT2 &anchor-y $2 ] .Screen/y DEO2
emit emit emit emit POP2 [ LIT2 00 _&f ] STR
BRK
@emit ( addr* -- addr* )
LDAk #20 SUB #00 SWP #40 SFT2 ;font ADD2 .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEO
INC2 JMP2r
@source/name "2222.txt $1
@font [
0000 0000 0000 0000 0000 0000 0000 0000
0038 3838 3838 3810 1010 1000 0010 3810
6c6c 2424 4800 0000 0000 0000 0000 0000
0012 1212 7f24 2424 2424 fe48 4848 4800
1038 5492 9690 5038 1412 d292 9478 1010
0262 9494 9498 6810 102c 3252 5252 8c80
0030 4848 4850 202e 5454 9488 8c72 0000
e0e0 2020 c000 0000 0000 0000 0000 0000
0204 0808 1010 1010 1010 1010 0808 0402
8040 2020 1010 1010 1010 1010 2020 4080
0000 0010 3892 d638 d692 3810 0000 0000
0000 0010 1010 10fe 1010 1010 0000 0000
0000 0000 0000 0000 0000 00e0 e020 20c0
0000 0000 0000 00fe 0000 0000 0000 0000
0000 0000 0000 0000 0000 0040 e0e0 4000
0202 0404 0808 0810 1010 2020 4040 8080
0018 2424 4242 4242 4242 4242 2424 1800
0010 7010 1010 1010 1010 1010 107c 0000
0018 2442 6202 0408 0810 2022 427e 0000
0038 4482 8202 0438 0402 8282 4438 0000
0008 1828 2848 4888 88fe 0808 083c 0000
00fc 8080 80b8 c482 0202 c282 4438 0000
003c 4246 8080 b8c4 8282 8282 4438 0000
00fe 8282 0404 0408 0808 0810 1010 1000
0038 4482 8282 4438 4482 8282 4438 0000
0038 4482 8282 8246 3a02 0282 4438 0000
0000 0000 0038 3800 0000 0000 3838 0000
0000 0000 0038 3800 0000 0038 3818 1030
0204 0408 0810 1020 2010 1008 0804 0402
0000 0000 00fe 0000 00fe 0000 0000 0000
8040 4020 2010 1008 0810 1020 2040 4080
0038 4482 c202 0404 0810 1000 0010 3810
003c 4282 9aa6 a2a2 a2a6 9a80 423c 0000
0010 2828 2844 4444 447c 8282 82c6 0000
00f8 4442 4242 4478 4442 4242 42fc 0000
003a 4642 8080 8080 8080 8242 423c 0000
00f8 4444 4242 4242 4242 4244 44f8 0000
00fe 4242 4048 4878 4848 4242 42fe 0000
00fe 4242 4048 4878 4848 4040 40f0 0000
001a 2642 4080 808f 8282 8242 661a 0000
00e7 4242 4242 7e42 4242 4242 42e7 0000
00fe 1010 1010 1010 1010 1010 10fe 0000
001f 0202 0202 0202 0282 8282 4438 0000
00e6 4444 4848 7050 4848 4444 42e3 0000
00f0 4040 4040 4040 4040 4242 42fe 0000
0082 c6aa aaaa 9292 9282 8282 82c6 0000
0087 c2a2 a2a2 9292 928a 8a8a 86c2 0000
0038 4482 8282 8282 8282 8282 4438 0000
00f8 4442 4242 4244 7840 4040 40f0 0000
0038 4444 8282 8282 8282 ba44 4438 0806
00f8 4442 4242 4478 4844 4444 42e3 0000
0034 4c84 8080 6018 0482 8282 c4b8 0000
00fe 9292 1010 1010 1010 1010 107c 0000
00e7 4242 4242 4242 4242 4242 423c 0000
00c6 8282 8282 4444 4444 2828 1010 0000
00c6 8282 8292 9292 aaaa aa44 4444 0000
00ee 4444 2828 1028 2828 4444 82c6 0000
00c6 8244 4444 2828 1010 1010 107c 0000
00fe 8488 0810 1010 2020 4242 82fe 0000
1e10 1010 1010 1010 1010 1010 1010 101e
0080 8040 4020 2010 1008 0804 0402 0200
f010 1010 1010 1010 1010 1010 1010 10f0
1028 4482 0000 0000 0000 0000 0000 0000
0000 0000 0000 0000 0000 0000 0000 00ff
3030 2020 1000 0000 0000 0000 0000 0000
0000 0000 003c 4202 3e42 8282 867b 0000
00c0 4040 4078 4442 4242 4242 4478 0000
0000 0000 003a 4682 8080 8082 423c 0000
0006 0404 043c 4484 8484 8484 443e 0000
0000 0000 0038 4482 fe80 8082 423c 0000
000e 1110 10fe 1010 1010 1010 107c 0000
0000 0000 003b 4444 4438 4078 8482 827c
00c0 4040 405c 6242 4242 4242 42e7 0000
1818 0000 0078 0808 0808 0808 08ff 0000
0606 0000 003e 0202 0202 0202 8282 4438
00c0 4040 4042 4448 5864 4442 42e3 0000
0078 0808 0808 0808 0808 0808 08ff 0000
0000 0000 006c 9292 9292 9292 92db 0000
0000 0000 00dc 6242 4242 4242 42e7 0000
0000 0000 0038 4482 8282 8282 4438 0000
0000 0000 00f8 4442 4242 4244 7840 40f0
0000 0000 003e 4484 8484 8444 3c04 041e
0000 0000 00ec 3222 2020 2020 20fc 0000
0000 0000 003a 4642 403c 0282 c2bc 0000
0000 2020 20fc 2020 2020 2022 221c 0000
0000 0000 00c6 4242 4242 4242 4639 0000
0000 0000 00c6 8282 4444 4428 2810 0000
0000 0000 0092 9292 92aa aa44 4444 0000
0000 0000 00ee 4428 2810 2828 44ee 0000
0000 0000 00e7 4222 2414 0808 1090 a040
0000 0000 007e 4408 0810 1022 42fe 0000
0608 0808 0808 1020 1008 0808 0808 0806
1010 1010 1010 1010 1010 1010 1010 1010
c020 2020 2020 1008 1020 2020 2020 20c0
6092 0c00 0000 0000 0000 0000 0000 0000 ]
@source/buf $source/length