/
Tables.agc
311 lines (282 loc) · 6.02 KB
/
Tables.agc
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
# Because constants are held in fixed memory (ROM), we can organise them consecutively
# and use them as handy lookup tables
# For each possible digit (blank, 0-9), the 5-bit code we need to send to the DSKY.
DSPBLANK OCT 0
DSP0 OCT 25
DSP1 OCT 3
DSP2 OCT 31
DSP3 OCT 33
DSP4 OCT 17
DSP5 OCT 36
DSP6 OCT 34
DSP7 OCT 23
DSP8 OCT 35
DSP9 OCT 37
# For each of the 21 display digits, is it left (1) or right (0) of the pair?
LEFTRIGHT DEC 1
LR1 DEC 0
LR2 DEC 1
LR3 DEC 0
LR4 DEC 1
LR5 DEC 0
LR6 DEC 0
LR7 DEC 1
LR8 DEC 0
LR9 DEC 1
LR10 DEC 0
LR11 DEC 1
LR12 DEC 0
LR13 DEC 1
LR14 DEC 0
LR15 DEC 1
LR16 DEC 0
LR17 DEC 1
LR18 DEC 0
LR19 DEC 1
LR20 DEC 0
# For each of the 21 display digits, which pair of segments does it belong to?
SEG_0 DEC 00
SEG_1 DEC 00
SEG_2 DEC 01
SEG_3 DEC 01
SEG_4 DEC 02
SEG_5 DEC 02
SEG_6 DEC 03
SEG_7 DEC 04
SEG_8 DEC 04
SEG_9 DEC 05
SEG_10 DEC 05
SEG_11 DEC 06
SEG_12 DEC 06
SEG_13 DEC 07
SEG_14 DEC 07
SEG_15 DEC 08
SEG_16 DEC 08
SEG_17 DEC 09
SEG_18 DEC 09
SEG_19 DEC 10
SEG_20 DEC 10
# Lookup bits 10-14 to select the segement pair in Channel 10 WRITE
SEGCODE OCT 54000
VERBLR OCT 50000
NOUNLR OCT 44000
TOP1 OCT 40000
TOP23 OCT 34000
TOP45 OCT 30000
MID12 OCT 24000
MID34 OCT 20000
MID5BOT1 OCT 14000
BOT23 OCT 10000
BOT45 OCT 4000
# Decimal table for easy loading into A
DIGITS DEC 0
DEC1 DEC 1
DEC2 DEC 2
DEC3 DEC 3
DEC4 DEC 4
DEC5 DEC 5
DEC6 DEC 6
DEC7 DEC 7
DEC8 DEC 8
DEC9 DEC 9
DEC10 DEC 10
DEC11 DEC 11
DEC12 DEC 12
DEC13 DEC 13
DEC14 DEC 14
DEC15 DEC 15
DEC16 DEC 16
DEC17 DEC 17
DEC18 DEC 18
DEC19 DEC 19
# Game state constants, re-using some of the above
STA_INPUT EQUALS DIGITS
STA_DOWN EQUALS DEC1
STA_UP EQUALS DEC2
STA_LEFT EQUALS DEC3
STA_RIGHT EQUALS DEC4
STA_ADD EQUALS DEC5
STA_WAIT EQUALS DEC6
# For each grid row, which segment ID does it start at?
ROW_STRT DEC 6
ROW_STRT2 DEC 11
ROW_STRT3 DEC 16
# For each grid column, which segment ID does it start at?
COL_STRT DEC 6
COL_STRT2 DEC 7
COL_STRT3 DEC 8
COL_STRT4 DEC 9
COL_STRT5 DEC 10
# For each grid cell, which column does it belong to (0-5 ignored)
GRID_COL DEC 0
GRID_CM5 DEC 0
GRID_CM4 DEC 0
GRID_CM3 DEC 0
GRID_CM2 DEC 0
GRID_CM1 DEC 0
GRID_C0 DEC 0
GRID_C1 DEC 1
GRID_C2 DEC 2
GRID_C3 DEC 3
GRID_C4 DEC 4
GRID_C5 DEC 0
GRID_C6 DEC 1
GRID_C7 DEC 2
GRID_C8 DEC 3
GRID_C9 DEC 4
GRID_C10 DEC 0
GRID_C11 DEC 1
GRID_C12 DEC 2
GRID_C13 DEC 3
GRID_C14 DEC 4
# For each grid cell, which ro wdoes it belong to (0-5 ignored)
GRID_ROW DEC 0
GRID_RM5 DEC 0
GRID_RM4 DEC 0
GRID_RM3 DEC 0
GRID_RM2 DEC 0
GRID_RM1 DEC 0
GRID_R0 DEC 0
GRID_R1 DEC 0
GRID_R2 DEC 0
GRID_R3 DEC 0
GRID_R4 DEC 0
GRID_R5 DEC 1
GRID_R6 DEC 1
GRID_R7 DEC 1
GRID_R8 DEC 1
GRID_R9 DEC 1
GRID_R10 DEC 2
GRID_R11 DEC 2
GRID_R12 DEC 2
GRID_R13 DEC 2
GRID_R14 DEC 2
# Table of 128 'random' numbers between 0-9 that we can index into
RAND1 DEC 5
RAND2 DEC 2
RAND3 DEC 0
RAND4 DEC 2
RAND5 DEC 9
RAND6 DEC 4
RAND7 DEC 5
RAND8 DEC 1
RAND9 DEC 0
RAND10 DEC 3
RAND11 DEC 9
RAND12 DEC 5
RAND13 DEC 6
RAND14 DEC 7
RAND15 DEC 7
RAND16 DEC 1
RAND17 DEC 6
RAND18 DEC 5
RAND19 DEC 7
RAND20 DEC 4
RAND21 DEC 5
RAND22 DEC 2
RAND23 DEC 0
RAND24 DEC 5
RAND25 DEC 9
RAND26 DEC 6
RAND27 DEC 5
RAND28 DEC 7
RAND29 DEC 5
RAND30 DEC 6
RAND31 DEC 0
RAND32 DEC 6
RAND33 DEC 9
RAND34 DEC 4
RAND35 DEC 2
RAND36 DEC 5
RAND37 DEC 9
RAND38 DEC 9
RAND39 DEC 2
RAND40 DEC 0
RAND41 DEC 7
RAND42 DEC 6
RAND43 DEC 0
RAND44 DEC 5
RAND45 DEC 6
RAND46 DEC 1
RAND47 DEC 7
RAND48 DEC 7
RAND49 DEC 2
RAND50 DEC 4
RAND51 DEC 9
RAND52 DEC 6
RAND53 DEC 9
RAND54 DEC 0
RAND55 DEC 3
RAND56 DEC 5
RAND57 DEC 1
RAND58 DEC 4
RAND59 DEC 7
RAND60 DEC 1
RAND61 DEC 2
RAND62 DEC 7
RAND63 DEC 2
RAND64 DEC 1
RAND65 DEC 5
RAND66 DEC 8
RAND67 DEC 1
RAND68 DEC 7
RAND69 DEC 7
RAND70 DEC 3
RAND71 DEC 3
RAND72 DEC 4
RAND73 DEC 5
RAND74 DEC 5
RAND75 DEC 5
RAND76 DEC 6
RAND77 DEC 6
RAND78 DEC 6
RAND79 DEC 8
RAND80 DEC 6
RAND81 DEC 5
RAND82 DEC 1
RAND83 DEC 7
RAND84 DEC 8
RAND85 DEC 1
RAND86 DEC 9
RAND87 DEC 3
RAND88 DEC 0
RAND89 DEC 3
RAND90 DEC 7
RAND91 DEC 2
RAND92 DEC 5
RAND93 DEC 1
RAND94 DEC 0
RAND95 DEC 9
RAND96 DEC 1
RAND97 DEC 9
RAND98 DEC 5
RAND99 DEC 6
RAND100 DEC 6
RAND101 DEC 9
RAND102 DEC 8
RAND103 DEC 1
RAND104 DEC 7
RAND105 DEC 3
RAND106 DEC 6
RAND107 DEC 7
RAND108 DEC 6
RAND109 DEC 1
RAND110 DEC 4
RAND111 DEC 9
RAND112 DEC 0
RAND113 DEC 2
RAND114 DEC 5
RAND115 DEC 4
RAND116 DEC 5
RAND117 DEC 0
RAND118 DEC 0
RAND119 DEC 5
RAND120 DEC 8
RAND121 DEC 5
RAND122 DEC 1
RAND123 DEC 0
RAND124 DEC 3
RAND125 DEC 6
RAND126 DEC 3
RAND127 DEC 4
RAND128 DEC 1