1 (fig6800to6809dumb):00001 OPT PRT
2 (fig6800to6809dumb):00002
3 (fig6800to6809dumb):00003 * fig-FORTH FOR 6809, converted by unintelligent conversion from 6800 source.
4 (fig6800to6809dumb):00004
5 (fig6800to6809dumb):00005 * To do:
6 (fig6800to6809dumb):00006 * 4 IO routines -- OK?
7 (fig6800to6809dumb):00007 * adjust ram locations -- OK?
8 (fig6800to6809dumb):00008 * then add trace routines -- OK?
9 (fig6800to6809dumb):00009 * then try in emulator
10 (fig6800to6809dumb):00010
11 (fig6800to6809dumb):00011 * ASSEMBLY SOURCE LISTING
12 (fig6800to6809dumb):00012
13 (fig6800to6809dumb):00013 * RELEASE 1
14 (fig6800to6809dumb):00014 * MAY 1979
15 (fig6800to6809dumb):00015 * WITH COMPILER SECURITY
16 (fig6800to6809dumb):00016 * AND VARIABLE LENGTH NAMES
17 (fig6800to6809dumb):00017
18 (fig6800to6809dumb):00018 * This public domain publication is provided
19 (fig6800to6809dumb):00019 * through the courtesy of:
20 (fig6800to6809dumb):00020 * FORTH
21 (fig6800to6809dumb):00021 * INTEREST
22 (fig6800to6809dumb):00022 * GROUP
23 (fig6800to6809dumb):00023 * fig
24 (fig6800to6809dumb):00024
25 (fig6800to6809dumb):00025 * P.O. Box 8231 - San Jose, CA 95155 - (408) 277-0668
26 (fig6800to6809dumb):00026 * Further distribution must include this notice.
27 (fig6800to6809dumb):00027 PAGE
28 (fig6800to6809dumb):00028 NAM Copyright:FORTH Interest Group
29 (fig6800to6809dumb):00029 OPT NOG,PAG
30 (fig6800to6809dumb):00030 * filename FTH7.21
31 (fig6800to6809dumb):00031 * === FORTH-6800 06-06-79 21:OO
32 (fig6800to6809dumb):00032
33 (fig6800to6809dumb):00033
34 (fig6800to6809dumb):00034 * This listing is in the PUBLIC DOMAIN and
35 (fig6800to6809dumb):00035 * may be freely copied or published with the
36 (fig6800to6809dumb):00036 * restriction that a credit line is printed
37 (fig6800to6809dumb):00037 * with the material, crediting the
38 (fig6800to6809dumb):00038 * authors and the FORTH INTEREST GROUP.
39 (fig6800to6809dumb):00039
40 (fig6800to6809dumb):00040 * === by Dave Lion,
41 (fig6800to6809dumb):00041 * === with help from
42 (fig6800to6809dumb):00042 * === Bob Smith,
43 (fig6800to6809dumb):00043 * === LaFarr Stuart,
44 (fig6800to6809dumb):00044 * === The Forth Interest Group
45 (fig6800to6809dumb):00045 * === PO Box 1105
46 (fig6800to6809dumb):00046 * === San Carlos, CA 94070
47 (fig6800to6809dumb):00047 * === and
48 (fig6800to6809dumb):00048 * === Unbounded Computing
49 (fig6800to6809dumb):00049 * === 1134-K Aster Ave.
50 (fig6800to6809dumb):00050 * === Sunnyvale, CA 94086
51 (fig6800to6809dumb):00051 *
52 (fig6800to6809dumb):00052 * This version was developed on an AMI EVK 300 PROTO
53 (fig6800to6809dumb):00053 * system using an ACIA for the I/O. All terminal 1/0
54 (fig6800to6809dumb):00054 * is done in three subroutines:
55 (fig6800to6809dumb):00055 * PEMIT ( word # 182 )
56 (fig6800to6809dumb):00056 * PKEY ( 183 )
57 (fig6800to6809dumb):00057 * PQTERM ( 184 )
58 (fig6800to6809dumb):00058 * Note: PCR, also. (PRTCR)
59 (fig6800to6809dumb):00059 *
60 (fig6800to6809dumb):00060 * The FORTH words for disc related I/O follow the model
61 (fig6800to6809dumb):00061 * of the FORTH Interest Group, but have not been
62 (fig6800to6809dumb):00062 * tested using a real disc.
63 (fig6800to6809dumb):00063 *
64 (fig6800to6809dumb):00064 * Addresses in this implementation reflect the fact that,
65 (fig6800to6809dumb):00065 * on the development system, it was convenient to
66 (fig6800to6809dumb):00066 * write-protect memory at hex 1000, and leave the first
67 (fig6800to6809dumb):00067 * 4K bytes write-enabled. As a consequence, code from
68 (fig6800to6809dumb):00068 * location $1000 to lable ZZZZ could be put in ROM.
69 (fig6800to6809dumb):00069 * Minor deviations from the model were made in the
70 (fig6800to6809dumb):00070 * initialization and words ?STACK and FORGET
71 (fig6800to6809dumb):00071 * in order to do this.
72 (fig6800to6809dumb):00072 *
73 (fig6800to6809dumb):00073
74 (fig6800to6809dumb):00074
75 (fig6800to6809dumb):00075 *
76 0004 (fig6800to6809dumb):00076 NBLK EQU 4 # of disc buffer blocks for virtual memory
77 (fig6800to6809dumb):00077 * MEMEND EQU 132*NBLK+$3000 end of ram
78 5294 (fig6800to6809dumb):00078 MEMEND EQU 132*NBLK+$5000+132 end of ram with some breathing room (32K Coco)
79 (fig6800to6809dumb):00079 * each block is 132 bytes in size,
80 (fig6800to6809dumb):00080 * holding 128 characters
81 (fig6800to6809dumb):00081 *
82 (fig6800to6809dumb):00082 * MEMTOP EQU $3FFF absolute end of all ram
83 7FFF (fig6800to6809dumb):00083 MEMTOP EQU $7FFF putative absolute end of all ram (32K Coco)
84 (fig6800to6809dumb):00084 * No ACIA in Coco (how sad).
85 (fig6800to6809dumb):00085 * ACIAC EQU $FBCE the ACIA control address and
86 (fig6800to6809dumb):00086 * ACIAD EQU ACIAC+1 data address for PROTO
87 (fig6800to6809dumb):00087 PAGE
88 (fig6800to6809dumb):00088 * MEMORY MAP for this 16K system (32K Coco):
89 (fig6800to6809dumb):00089 * ( positioned so that systems with 4k byte write-
90 (fig6800to6809dumb):00090 * protected segments can write protect FORTH )
91 (fig6800to6809dumb):00091 *
92 (fig6800to6809dumb):00092 * Read below and calculate it yourself:
93 (fig6800to6809dumb):00093 * addr. contents pointer init by
94 (fig6800to6809dumb):00094 * **** ******************************* ******* ******
95 (fig6800to6809dumb):00095 * 3FFF HI
96 (fig6800to6809dumb):00096 * substitute for disc mass memory
97 (fig6800to6809dumb):00097 * 3210 LO,MEMEND
98 (fig6800to6809dumb):00098 * 320F
99 (fig6800to6809dumb):00099 * 4 buffer sectors of VIRTUAL MEMORY
100 (fig6800to6809dumb):00100 * 3000 FIRST
101 (fig6800to6809dumb):00101 * >>>>>> memory from here up must be RAM <<<<<<
102 (fig6800to6809dumb):00102 *
103 (fig6800to6809dumb):00103 * 27FF
104 (fig6800to6809dumb):00104 * 6k of romable "FORTH" <== IP ABORT
105 (fig6800to6809dumb):00105 * <== W
106 (fig6800to6809dumb):00106 * the VIRTUAL FORTH MACHINE
107 (fig6800to6809dumb):00107 *
108 (fig6800to6809dumb):00108 * 1004 (3004) <<< WARM START ENTRY >>>
109 (fig6800to6809dumb):00109 * 1000 (3000) <<< COLD START ENTRY >>>
110 (fig6800to6809dumb):00110 *
111 (fig6800to6809dumb):00111 * >>>>>> memory from here down must be RAM <<<<<<
112 (fig6800to6809dumb):00112 * FFE RETURN STACK base <== RP RINIT
113 (fig6800to6809dumb):00113 *
114 (fig6800to6809dumb):00114 * FB4
115 (fig6800to6809dumb):00115 * INPUT LINE BUFFER
116 (fig6800to6809dumb):00116 * holds up to 132 characters
117 (fig6800to6809dumb):00117 * and is scanned upward by IN
118 (fig6800to6809dumb):00118 * starting at TIB
119 (fig6800to6809dumb):00119 * F30 <== IN TIB
120 (fig6800to6809dumb):00120 * F2F DATA STACK <== SP SP0,SINIT
121 (fig6800to6809dumb):00121 * | grows downward from F2F
122 (fig6800to6809dumb):00122 * v
123 (fig6800to6809dumb):00123 * - -
124 (fig6800to6809dumb):00124 * |
125 (fig6800to6809dumb):00125 * I DICTIONARY grows upward
126 (fig6800to6809dumb):00126 *
127 (fig6800to6809dumb):00127 * 183 end of ram-dictionary. <== DP DPINIT
128 (fig6800to6809dumb):00128 * "TASK"
129 (fig6800to6809dumb):00129 *
130 (fig6800to6809dumb):00130 * 150 "FORTH" ( a word ) <=, <== CONTEXT
131 (fig6800to6809dumb):00131 * `==== CURRENT
132 (fig6800to6809dumb):00132 * 148 start of ram-dictionary.
133 (fig6800to6809dumb):00133 *
134 (fig6800to6809dumb):00134 * 100 user #l table of variables <= UP DPINIT
135 (fig6800to6809dumb):00135 * F0 registers & pointers for the virtual machine
136 (fig6800to6809dumb):00136 * scratch area used by various words
137 (fig6800to6809dumb):00137 * E0 lowest address used by FORTH
138 (fig6800to6809dumb):00138 *
139 (fig6800to6809dumb):00139 * 0000
140 (fig6800to6809dumb):00140 PAGE
141 (fig6800to6809dumb):00141 ***
142 (fig6800to6809dumb):00142 *
143 (fig6800to6809dumb):00143 * CONVENTIONS USED IN THIS PROGRAM ARE AS FOLLOWS :
144 (fig6800to6809dumb):00144 *
145 (fig6800to6809dumb):00145 * IP points to the current instruction ( pre-increment mode )
146 (fig6800to6809dumb):00146 * RP points to second free byte (first free word) in return stack
147 (fig6800to6809dumb):00147 * SP (hardware SP) points to first free byte in data stack
148 (fig6800to6809dumb):00148 *
149 (fig6800to6809dumb):00149 * when A AND B hold one 16 bit FORTH data word,
150 (fig6800to6809dumb):00150 * A contains the high byte, B, the low byte.
151 (fig6800to6809dumb):00151 ***
152 (fig6800to6809dumb):00152
153 (fig6800to6809dumb):00153
154 (fig6800to6809dumb):00154
155 (fig6800to6809dumb):00155
156 (fig6800to6809dumb):00156 * ORG $E0 variables
157 (fig6800to6809dumb):00157 ORG $1300 variables
158 1300 (fig6800to6809dumb):00158 PGBASE EQU *
159 0013 (fig6800to6809dumb):00159 PGBDP EQU PGBASE/$100
160 13 (fig6800to6809dumb):00160 SETDP PGBDP
161 (fig6800to6809dumb):00161
162 (fig6800to6809dumb):00162
163 1300 (fig6800to6809dumb):00163 N RMB 10 used as scratch by (FIND),ENCLOSE,CMOVE,EMIT,KEY,
164 (fig6800to6809dumb):00164 * SP@,SWAP,DOES>,COLD
165 (fig6800to6809dumb):00165
166 (fig6800to6809dumb):00166
167 (fig6800to6809dumb):00167 * These locations are used by the TRACE routine :
168 (fig6800to6809dumb):00168
169 130A (fig6800to6809dumb):00169 TRLIM RMB 1 the count for tracing without user intervention
170 130B (fig6800to6809dumb):00170 TRACEM RMB 1 non-zero = trace mode
171 130C (fig6800to6809dumb):00171 BRKPT RMB 2 the breakpoint address at which
172 (fig6800to6809dumb):00172 * the program will go into trace mode
173 130E (fig6800to6809dumb):00173 VECT RMB 2 vector to machine code
174 (fig6800to6809dumb):00174 * (only needed if the TRACE routine is resident)
175 (fig6800to6809dumb):00175
176 (fig6800to6809dumb):00176
177 (fig6800to6809dumb):00177 * Registers used by the FORTH virtual machine:
178 (fig6800to6809dumb):00178 * Starting at $OOFO:
179 (fig6800to6809dumb):00179
180 (fig6800to6809dumb):00180
181 1310 (fig6800to6809dumb):00181 W RMB 2 the instruction register points to 6800 code
182 1312 (fig6800to6809dumb):00182 IP RMB 2 the instruction pointer points to pointer to 6800 code
183 1314 (fig6800to6809dumb):00183 RP RMB 2 the return stack pointer
184 1316 (fig6800to6809dumb):00184 UP RMB 2 the pointer to base of current user's 'USER' table
185 (fig6800to6809dumb):00185 * ( altered during multi-tasking )
186 (fig6800to6809dumb):00186 *
187 (fig6800to6809dumb):00187 * For the tracer:
188 1318 (fig6800to6809dumb):00188 RMB 4
189 131C (fig6800to6809dumb):00189 TRASP RMB 2
190 131E (fig6800to6809dumb):00190 TRAVEC RMB 2
191 1320 (fig6800to6809dumb):00191 TRAA RMB 1
192 1321 (fig6800to6809dumb):00192 TRAB RMB 1
193 1322 (fig6800to6809dumb):00193 FLAGON RMB 1
194 (fig6800to6809dumb):00194 *
195 (fig6800to6809dumb):00195 PAGE
196 (fig6800to6809dumb):00196 * This system is shown with one user, but additional users
197 (fig6800to6809dumb):00197 * may be added by allocating additional user tables:
198 (fig6800to6809dumb):00198 * UORIG2 RMB 64 data table for user #2
199 (fig6800to6809dumb):00199 *
200 (fig6800to6809dumb):00200 *
201 (fig6800to6809dumb):00201 * Some of this stuff gets initialized during
202 (fig6800to6809dumb):00202 * COLD start and WARM start:
203 (fig6800to6809dumb):00203 * [ names correspond to FORTH words of similar (no X) name ]
204 (fig6800to6809dumb):00204 *
205 (fig6800to6809dumb):00205 * ORG $100
206 (fig6800to6809dumb):00206 ORG $1400
207 1400 (fig6800to6809dumb):00207 UORIG RMB 6 3 reserved variables
208 1406 (fig6800to6809dumb):00208 XSPZER RMB 2 initial top of data stack for this user
209 1408 (fig6800to6809dumb):00209 XRZERO RMB 2 initial top of return stack
210 140A (fig6800to6809dumb):00210 XTIB RMB 2 start of terminal input buffer
211 140C (fig6800to6809dumb):00211 XWIDTH RMB 2 name field width
212 140E (fig6800to6809dumb):00212 XWARN RMB 2 warning message mode (0 = no disc)
213 1410 (fig6800to6809dumb):00213 XFENCE RMB 2 fence for FORGET
214 1412 (fig6800to6809dumb):00214 XDP RMB 2 dictionary pointer
215 1414 (fig6800to6809dumb):00215 XVOCL RMB 2 vocabulary linking
216 1416 (fig6800to6809dumb):00216 XBLK RMB 2 disc block being accessed
217 1418 (fig6800to6809dumb):00217 XIN RMB 2 scan pointer into the block
218 141A (fig6800to6809dumb):00218 XOUT RMB 2 cursor position
219 141C (fig6800to6809dumb):00219 XSCR RMB 2 disc screen being accessed ( O=terminal )
220 141E (fig6800to6809dumb):00220 XOFSET RMB 2 disc sector offset for multi-disc
221 1420 (fig6800to6809dumb):00221 XCONT RMB 2 last word in primary search vocabulary
222 1422 (fig6800to6809dumb):00222 XCURR RMB 2 last word in extensible vocabulary
223 1424 (fig6800to6809dumb):00223 XSTATE RMB 2 flag for 'interpret' or 'compile' modes
224 1426 (fig6800to6809dumb):00224 XBASE RMB 2 number base for I/O numeric conversion
225 1428 (fig6800to6809dumb):00225 XDPL RMB 2 decimal point place
226 142A (fig6800to6809dumb):00226 XFLD RMB 2
227 142C (fig6800to6809dumb):00227 XCSP RMB 2 current stack position, for compile checks
228 142E (fig6800to6809dumb):00228 XRNUM RMB 2
229 1430 (fig6800to6809dumb):00229 XHLD RMB 2
230 1432 (fig6800to6809dumb):00230 XDELAY RMB 2 carriage return delay count
231 1434 (fig6800to6809dumb):00231 XCOLUM RMB 2 carriage width
232 1436 (fig6800to6809dumb):00232 IOSTAT RMB 2 last acia status from write/read
233 1438 (fig6800to6809dumb):00233 RMB 2 ( 4 spares! )
234 143A (fig6800to6809dumb):00234 RMB 2
235 143C (fig6800to6809dumb):00235 RMB 2
236 143E (fig6800to6809dumb):00236 RMB 2
237 (fig6800to6809dumb):00237
238 (fig6800to6809dumb):00238
239 (fig6800to6809dumb):00239
240 (fig6800to6809dumb):00240
241 (fig6800to6809dumb):00241 *
242 (fig6800to6809dumb):00242 *
243 (fig6800to6809dumb):00243 * end of user table, start of common system variables
244 (fig6800to6809dumb):00244 *
245 (fig6800to6809dumb):00245 *
246 (fig6800to6809dumb):00246 *
247 1440 (fig6800to6809dumb):00247 XUSE RMB 2
248 1442 (fig6800to6809dumb):00248 XPREV RMB 2
249 1444 (fig6800to6809dumb):00249 RMB 4 ( spares )
250 (fig6800to6809dumb):00250
251 (fig6800to6809dumb):00251 PAGE
252 (fig6800to6809dumb):00252 * These things, up through the lable 'REND', are overwritten
253 (fig6800to6809dumb):00253 * at time of cold load and should have the same contents
254 (fig6800to6809dumb):00254 * as shown here:
255 (fig6800to6809dumb):00255 *
256 1448 C5 (fig6800to6809dumb):00256 FCB $C5 immediate
257 1449 464F5254 (fig6800to6809dumb):00257 FCC 'FORT' ; 'FORTH'
258 144D C8 (fig6800to6809dumb):00258 FCB $C8
259 144E 48BE (fig6800to6809dumb):00259 FDB NOOP-7
260 1450 3B67408481A01478 (fig6800to6809dumb):00260 FORTH FDB DODOES,DOVOC,$81A0,TASK-7
261 1458 0000 (fig6800to6809dumb):00261 FDB 0
262 (fig6800to6809dumb):00262 *
263 145A 28432920466F7274 (fig6800to6809dumb):00263 FCC "(C) Forth Interest Group, 1979"
267 (fig6800to6809dumb):00264
268 1478 84 (fig6800to6809dumb):00265 FCB $84
269 1479 544153 (fig6800to6809dumb):00266 FCC 'TAS' ; 'TASK'
270 147C CB (fig6800to6809dumb):00267 FCB $CB
271 147D 1448 (fig6800to6809dumb):00268 FDB FORTH-8
272 147F 36873486 (fig6800to6809dumb):00269 TASK FDB DOCOL,SEMIS
273 (fig6800to6809dumb):00270 *
274 1483 (fig6800to6809dumb):00271 REND EQU * ( first empty location in dictionary )
275 (fig6800to6809dumb):00272
276 (fig6800to6809dumb):00273 PAGE
277 (fig6800to6809dumb):00274 * Check the addresses yourself:
278 (fig6800to6809dumb):00275 * The FORTH program ( address $1000 to $27FF ) is written
279 (fig6800to6809dumb):00276 * so that it can be in a ROM, or write-protected if desired
280 (fig6800to6809dumb):00277 ORG $3000
281 (fig6800to6809dumb):00278
282 (fig6800to6809dumb):00279 * ######>> screen 3 <<
283 (fig6800to6809dumb):00280 *
284 (fig6800to6809dumb):00281 ***************************
285 (fig6800to6809dumb):00282 ** C O L D E N T R Y **
286 (fig6800to6809dumb):00283 ***************************
287 3000 12 (fig6800to6809dumb):00284 ORIG NOP
288 3001 7E4115 (fig6800to6809dumb):00285 JMP CENT
289 (fig6800to6809dumb):00286 ***************************
290 (fig6800to6809dumb):00287 ** W A R M E N T R Y **
291 (fig6800to6809dumb):00288 ***************************
292 3004 12 (fig6800to6809dumb):00289 NOP
293 3005 7E414D (fig6800to6809dumb):00290 JMP WENT warm-start code, keeps current dictionary intact
294 (fig6800to6809dumb):00291
295 (fig6800to6809dumb):00292 *
296 (fig6800to6809dumb):00293 ******* startup parmeters **************************
297 (fig6800to6809dumb):00294 *
298 0200 (fig6800to6809dumb):00295 RPTIB EQU $200 Give us more room to breath.
299 0010 (fig6800to6809dumb):00296 SBUMPR EQU $10 Bumper area for stacks.
300 (fig6800to6809dumb):00297 *
301 3008 68001A99 (fig6800to6809dumb):00298 FDB $6800,6809 cpu & revision
302 300C 0000 (fig6800to6809dumb):00299 FDB 0 topmost word in FORTH vocabulary
303 300E 007F (fig6800to6809dumb):00300 BACKSP FDB $7F backspace character for editing
304 3010 1400 (fig6800to6809dumb):00301 UPINIT FDB UORIG initial user area
305 (fig6800to6809dumb):00302 * SINIT FDB ORIG-$D0 initial top of data stack
306 3012 2DE0 (fig6800to6809dumb):00303 SINIT FDB ORIG-RPTIB-SBUMPR*2
307 (fig6800to6809dumb):00304 * RINIT FDB ORIG-2 initial top of return stack
308 3014 2FF0 (fig6800to6809dumb):00305 RINIT FDB ORIG-SBUMPR
309 (fig6800to6809dumb):00306 * FDB ORIG-$D0 terminal input buffer
310 3016 2DF0 (fig6800to6809dumb):00307 FDB ORIG-RPTIB-SBUMPR
311 3018 001F (fig6800to6809dumb):00308 FDB 31 initial name field width
312 301A 0000 (fig6800to6809dumb):00309 FDB 0 initial warning mode (0 = no disc)
313 301C 1483 (fig6800to6809dumb):00310 FENCIN FDB REND initial fence
314 301E 1483 (fig6800to6809dumb):00311 DPINIT FDB REND cold start value for DP
315 3020 1458 (fig6800to6809dumb):00312 VOCINT FDB FORTH+8
316 3022 0084 (fig6800to6809dumb):00313 COLINT FDB 132 initial terminal carriage width
317 3024 0004 (fig6800to6809dumb):00314 DELINT FDB 4 initial carriage return delay
318 (fig6800to6809dumb):00315 ****************************************************
319 (fig6800to6809dumb):00316 *
320 (fig6800to6809dumb):00317 PAGE
321 (fig6800to6809dumb):00318 *
322 (fig6800to6809dumb):00319 * ######>> screen 13 <<
323 (fig6800to6809dumb):00320 * Calculate the cycles yourself:
324 3026 3502 (fig6800to6809dumb):00321 PULABX PULS A 24 cycles until 'NEXT'
325 3028 3504 (fig6800to6809dumb):00322 PULS B
326 302A A700 (fig6800to6809dumb):00323 STABX STA 0,X 16 cycles until 'NEXT'
327 302C E701 (fig6800to6809dumb):00324 STB 1,X
328 302E 2008 (fig6800to6809dumb):00325 BRA NEXT
329 3030 A600 (fig6800to6809dumb):00326 GETX LDA 0,X 18 cycles until 'NEXT'
330 3032 E601 (fig6800to6809dumb):00327 LDB 1,X
331 3034 3404 (fig6800to6809dumb):00328 PUSHBA PSHS B 8 cycles until 'NEXT'
332 3036 3402 (fig6800to6809dumb):00329 PSHS A
333 (fig6800to6809dumb):00330
334 (fig6800to6809dumb):00331
335 (fig6800to6809dumb):00332
336 (fig6800to6809dumb):00333 *
337 (fig6800to6809dumb):00334 * "NEXT" takes 38 cycles if TRACE is removed,
338 (fig6800to6809dumb):00335 *
339 (fig6800to6809dumb):00336 * and 95 cycles if NOT tracing. (Way bogus numbers by now.)
340 (fig6800to6809dumb):00337 *
341 (fig6800to6809dumb):00338 * = = = = = = = t h e v i r t u a l m a c h i n e = = = = =
342 (fig6800to6809dumb):00339 * =
343 3038 9E12 (fig6800to6809dumb):00340 NEXT LDX IP
344 303A 3001 (fig6800to6809dumb):00341 LEAX 1,X pre-increment mode
345 303C 3001 (fig6800to6809dumb):00342 LEAX 1,X
346 303E 9F12 (fig6800to6809dumb):00343 STX IP
347 3040 AE00 (fig6800to6809dumb):00344 NEXT2 LDX 0,X get W which points to CFA of word to be done
348 3042 9F10 (fig6800to6809dumb):00345 NEXT3 STX W
349 3044 AE00 (fig6800to6809dumb):00346 LDX 0,X get VECT which points to executable code
350 (fig6800to6809dumb):00347 * =
351 (fig6800to6809dumb):00348 * The next instruction could be patched to JMP TRACE =
352 (fig6800to6809dumb):00349 * if a TRACE routine is available: =
353 (fig6800to6809dumb):00350 * =
354 (fig6800to6809dumb):00351 * Or add the TRACE routine in-line, since we are assembling it.
355 3046 0D0B (fig6800to6809dumb):00352 TST TRACEM
356 3048 276A (fig6800to6809dumb):00353 BEQ NEXTGO
357 304A 9F1E (fig6800to6809dumb):00354 STX TRAVEC
358 304C 1F41 (fig6800to6809dumb):00355 TFR S,X ; Mechanical! Mechanical! (So the funn 6800 stack didn't beach us.)
359 304E 9F1C (fig6800to6809dumb):00356 STX TRASP
360 3050 863A (fig6800to6809dumb):00357 LDA #':'
361 3052 BD4494 (fig6800to6809dumb):00358 JSR PEMIT
362 (fig6800to6809dumb):00359 * LDA #' '
363 (fig6800to6809dumb):00360 * JSR PEMIT
364 3055 9E10 (fig6800to6809dumb):00361 LDX W
365 3057 301F (fig6800to6809dumb):00362 LEAX -1,X
366 3059 301F (fig6800to6809dumb):00363 LEAX -1,X ; allocation link
367 305B 301F (fig6800to6809dumb):00364 LEAX -1,X ; last char
368 305D 861F (fig6800to6809dumb):00365 LDA #31
369 305F 301F (fig6800to6809dumb):00366 NAMTST LEAX -1,X ; length byte?
370 3061 E600 (fig6800to6809dumb):00367 LDB 0,X
371 3063 2B03 (fig6800to6809dumb):00368 BMI NAMTDN
372 3065 4A (fig6800to6809dumb):00369 DECA
373 3066 26F7 (fig6800to6809dumb):00370 BNE NAMTST
374 3068 C41F (fig6800to6809dumb):00371 NAMTDN ANDB #31 ; It's the length byte whether it wants to be or not.
375 306A 3001 (fig6800to6809dumb):00372 NAMSHW LEAX 1,X
376 306C A600 (fig6800to6809dumb):00373 LDA 0,X
377 306E BD4494 (fig6800to6809dumb):00374 JSR PEMIT
378 3071 5A (fig6800to6809dumb):00375 DECB
379 3072 26F6 (fig6800to6809dumb):00376 BNE NAMSHW
380 (fig6800to6809dumb):00377 * show the virtual registers
381 (fig6800to6809dumb):00378 * TOO MUCH OUTPUT! Have to trim this.
382 3074 8620 (fig6800to6809dumb):00379 LDA #' '
383 3076 BD4494 (fig6800to6809dumb):00380 JSR PEMIT
384 3079 8640 (fig6800to6809dumb):00381 LDA #'@'
385 307B 8E131E (fig6800to6809dumb):00382 LDX #TRAVEC
386 307E BD30B7 (fig6800to6809dumb):00383 JSR PHEX4F
387 3081 1FB8 (fig6800to6809dumb):00384 TFR DP,A
388 3083 C610 (fig6800to6809dumb):00385 LDB #(W-PGBASE)
389 3085 1F01 (fig6800to6809dumb):00386 TFR D,X
390 3087 8657 (fig6800to6809dumb):00387 LDA #'W'
391 3089 BD30B7 (fig6800to6809dumb):00388 JSR PHEX4F
392 308C 8649 (fig6800to6809dumb):00389 LDA #'I'
393 308E BD30B7 (fig6800to6809dumb):00390 JSR PHEX4F
394 3091 8652 (fig6800to6809dumb):00391 LDA #'R'
395 3093 BD30B7 (fig6800to6809dumb):00392 JSR PHEX4F
396 3096 8655 (fig6800to6809dumb):00393 LDA #'U'
397 3098 BD30B7 (fig6800to6809dumb):00394 JSR PHEX4F
398 309B 1FB8 (fig6800to6809dumb):00395 TFR DP,A
399 309D C6F4 (fig6800to6809dumb):00396 LDB #(W-TRASP)
400 309F 1F01 (fig6800to6809dumb):00397 TFR D,X
401 30A1 8653 (fig6800to6809dumb):00398 LDA #'S'
402 30A3 8D12 (fig6800to6809dumb):00399 BSR PHEX4F
403 30A5 863E (fig6800to6809dumb):00400 LDA #'>'
404 30A7 1F41 (fig6800to6809dumb):00401 TFR S,X
405 30A9 8D0C (fig6800to6809dumb):00402 BSR PHEX4F
406 30AB 8620 (fig6800to6809dumb):00403 LDA #' '
407 30AD 8D08 (fig6800to6809dumb):00404 BSR PHEX4F
408 (fig6800to6809dumb):00405 *
409 30AF BD44CD (fig6800to6809dumb):00406 JSR PRTCR
410 30B2 9E1E (fig6800to6809dumb):00407 LDX TRAVEC
411 (fig6800to6809dumb):00408 *
412 30B4 6E00 (fig6800to6809dumb):00409 NEXTGO JMP 0,X
413 30B6 12 (fig6800to6809dumb):00410 NOP
414 (fig6800to6809dumb):00411 * JMP TRACE ( an alternate for the above )
415 (fig6800to6809dumb):00412 * =
416 (fig6800to6809dumb):00413 * =
417 (fig6800to6809dumb):00414 *DBG
418 30B7 BD4494 (fig6800to6809dumb):00415 PHEX4F JSR PEMIT
419 30BA 8D07 (fig6800to6809dumb):00416 BSR PHEXX2
420 30BC 8D05 (fig6800to6809dumb):00417 BSR PHEXX2
421 30BE 8620 (fig6800to6809dumb):00418 LDA #' '
422 30C0 7E4494 (fig6800to6809dumb):00419 JMP PEMIT ; rob return
423 (fig6800to6809dumb):00420 *
424 30C3 A600 (fig6800to6809dumb):00421 PHEXX2 LDA 0,X
425 30C5 44 (fig6800to6809dumb):00422 LSRA
426 30C6 44 (fig6800to6809dumb):00423 LSRA
427 30C7 44 (fig6800to6809dumb):00424 LSRA
428 30C8 44 (fig6800to6809dumb):00425 LSRA
429 30C9 8D07 (fig6800to6809dumb):00426 BSR PHEXD
430 30CB A600 (fig6800to6809dumb):00427 LDA 0,X
431 30CD 8D03 (fig6800to6809dumb):00428 BSR PHEXD
432 30CF 3001 (fig6800to6809dumb):00429 LEAX 1,X
433 30D1 39 (fig6800to6809dumb):00430 RTS
434 (fig6800to6809dumb):00431 *
435 30D2 840F (fig6800to6809dumb):00432 PHEXD ANDA #$0F
436 30D4 810A (fig6800to6809dumb):00433 CMPA #10
437 30D6 2502 (fig6800to6809dumb):00434 BLO PHEXDH
438 30D8 8B07 (fig6800to6809dumb):00435 ADDA #7 ; 'A'-'9'+1
439 30DA 8B30 (fig6800to6809dumb):00436 PHEXDH ADDA #'0'
440 30DC 7E4494 (fig6800to6809dumb):00437 JMP PEMIT ; rob return
441 (fig6800to6809dumb):00438 *
442 30DF 30E1 (fig6800to6809dumb):00439 DEBUGP FDB *+2
443 30E1 0C22 (fig6800to6809dumb):00440 INC FLAGON my version of trace
444 30E3 9622 (fig6800to6809dumb):00441 LDA FLAGON
445 30E5 BD4494 (fig6800to6809dumb):00442 JSR PEMIT
446 30E8 7E3038 (fig6800to6809dumb):00443 JMP NEXT
447 (fig6800to6809dumb):00444 *
448 30EB 30ED (fig6800to6809dumb):00445 DEBUGM FDB *+2
449 30ED 0A22 (fig6800to6809dumb):00446 DEC FLAGON my version of trace
450 30EF 9622 (fig6800to6809dumb):00447 LDA FLAGON
451 30F1 BD4494 (fig6800to6809dumb):00448 JSR PEMIT
452 30F4 7E3038 (fig6800to6809dumb):00449 JMP NEXT
453 (fig6800to6809dumb):00450 *DBG
454 (fig6800to6809dumb):00451 * = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
455 (fig6800to6809dumb):00452
456 (fig6800to6809dumb):00453
457 (fig6800to6809dumb):00454 PAGE
458 (fig6800to6809dumb):00455 *
459 (fig6800to6809dumb):00456 * ======>> 1 <<
460 30F7 83 (fig6800to6809dumb):00457 FCB $83
461 30F8 4C49 (fig6800to6809dumb):00458 FCC 'LI' ; 'LIT' : NOTE: this is different from LITERAL
462 30FA D4 (fig6800to6809dumb):00459 FCB $D4
463 30FB 0000 (fig6800to6809dumb):00460 FDB 0 link of zero to terminate dictionary scan
464 30FD 30FF (fig6800to6809dumb):00461 LIT FDB *+2
465 30FF 9E12 (fig6800to6809dumb):00462 LDX IP
466 3101 3001 (fig6800to6809dumb):00463 LEAX 1,X
467 3103 3001 (fig6800to6809dumb):00464 LEAX 1,X
468 3105 9F12 (fig6800to6809dumb):00465 STX IP
469 3107 A600 (fig6800to6809dumb):00466 LDA 0,X
470 3109 E601 (fig6800to6809dumb):00467 LDB 1,X
471 310B 7E3034 (fig6800to6809dumb):00468 JMP PUSHBA
472 (fig6800to6809dumb):00469 *
473 (fig6800to6809dumb):00470 * ######>> screen 14 <<
474 (fig6800to6809dumb):00471 * ======>> 2 <<
475 310E 3110 (fig6800to6809dumb):00472 CLITER FDB *+2 (this is an invisible word, with no header)
476 3110 9E12 (fig6800to6809dumb):00473 LDX IP
477 3112 3001 (fig6800to6809dumb):00474 LEAX 1,X
478 3114 9F12 (fig6800to6809dumb):00475 STX IP
479 3116 4F (fig6800to6809dumb):00476 CLRA
480 3117 E601 (fig6800to6809dumb):00477 LDB 1,X
481 3119 7E3034 (fig6800to6809dumb):00478 JMP PUSHBA
482 (fig6800to6809dumb):00479 *
483 (fig6800to6809dumb):00480 * ======>> 3 <<
484 311C 87 (fig6800to6809dumb):00481 FCB $87
485 311D 455845435554 (fig6800to6809dumb):00482 FCC 'EXECUT' ; 'EXECUTE'
486 3123 C5 (fig6800to6809dumb):00483 FCB $C5
487 3124 30F7 (fig6800to6809dumb):00484 FDB LIT-6
488 3126 3128 (fig6800to6809dumb):00485 EXEC FDB *+2
489 3128 1F41 (fig6800to6809dumb):00486 TFR S,X
490 312A AE00 (fig6800to6809dumb):00487 LDX 0,X get code field address (CFA)
491 312C 3261 (fig6800to6809dumb):00488 LEAS 1,S pop stack
492 312E 3261 (fig6800to6809dumb):00489 LEAS 1,S
493 3130 7E3042 (fig6800to6809dumb):00490 JMP NEXT3
494 (fig6800to6809dumb):00491 *
495 (fig6800to6809dumb):00492 * ######>> screen 15 <<
496 (fig6800to6809dumb):00493 * ======>> 4 <<
497 3133 86 (fig6800to6809dumb):00494 FCB $86
498 3134 4252414E43 (fig6800to6809dumb):00495 FCC 'BRANC' ; 'BRANCH'
499 3139 C8 (fig6800to6809dumb):00496 FCB $C8
500 313A 311C (fig6800to6809dumb):00497 FDB EXEC-10
501 313C 3156 (fig6800to6809dumb):00498 BRAN FDB ZBYES Go steal code in ZBRANCH
502 (fig6800to6809dumb):00499 *
503 (fig6800to6809dumb):00500 * ======>> 5 <<
504 313E 87 (fig6800to6809dumb):00501 FCB $87
505 313F 304252414E43 (fig6800to6809dumb):00502 FCC '0BRANC' ; '0BRANCH'
506 3145 C8 (fig6800to6809dumb):00503 FCB $C8
507 3146 3133 (fig6800to6809dumb):00504 FDB BRAN-9
508 3148 314A (fig6800to6809dumb):00505 ZBRAN FDB *+2
509 314A 3502 (fig6800to6809dumb):00506 PULS A
510 314C 3504 (fig6800to6809dumb):00507 PULS B
511 (fig6800to6809dumb):00508 * ABA is only used here.
512 (fig6800to6809dumb):00509 * Could immediately convert PULs to LDD ,S++ ;
513 (fig6800to6809dumb):00510 * with no need for trailing BCS to look for overflow
514 (fig6800to6809dumb):00511 * because we are only testing for non-zero, but,
515 (fig6800to6809dumb):00512 * converting as if by unintelligent macro:
516 314E 3404 (fig6800to6809dumb):00513 PSHS B ; LOL
517 3150 ABE0 (fig6800to6809dumb):00514 ADDA ,S+
518 (fig6800to6809dumb):00515 * End of unintelligent ABA conversion.
519 3152 2613 (fig6800to6809dumb):00516 BNE ZBNO
520 3154 2511 (fig6800to6809dumb):00517 BCS ZBNO
521 3156 9E12 (fig6800to6809dumb):00518 ZBYES LDX IP Note: code is shared with BRANCH, (+LOOP), (LOOP)
522 3158 E603 (fig6800to6809dumb):00519 LDB 3,X
523 315A A602 (fig6800to6809dumb):00520 LDA 2,X
524 315C DB13 (fig6800to6809dumb):00521 ADDB IP+1
525 315E 9912 (fig6800to6809dumb):00522 ADCA IP
526 3160 D713 (fig6800to6809dumb):00523 STB IP+1
527 3162 9712 (fig6800to6809dumb):00524 STA IP
528 3164 7E3038 (fig6800to6809dumb):00525 JMP NEXT
529 3167 9E12 (fig6800to6809dumb):00526 ZBNO LDX IP no branch. This code is shared with (+LOOP), (LOOP).
530 3169 3001 (fig6800to6809dumb):00527 LEAX 1,X jump over branch delta
531 316B 3001 (fig6800to6809dumb):00528 LEAX 1,X
532 316D 9F12 (fig6800to6809dumb):00529 STX IP
533 316F 7E3038 (fig6800to6809dumb):00530 JMP NEXT
534 (fig6800to6809dumb):00531 *
535 (fig6800to6809dumb):00532 * ######>> screen 16 <<
536 (fig6800to6809dumb):00533 * ======>> 6 <<
537 3172 86 (fig6800to6809dumb):00534 FCB $86
538 3173 284C4F4F50 (fig6800to6809dumb):00535 FCC '(LOOP' ; '(LOOP)'
539 3178 A9 (fig6800to6809dumb):00536 FCB $A9
540 3179 313E (fig6800to6809dumb):00537 FDB ZBRAN-10
541 317B 317D (fig6800to6809dumb):00538 XLOOP FDB *+2
542 317D 4F (fig6800to6809dumb):00539 CLRA
543 317E C601 (fig6800to6809dumb):00540 LDB #1 get set to increment counter by 1
544 3180 2010 (fig6800to6809dumb):00541 BRA XPLOP2 go steal other guy's code!
545 (fig6800to6809dumb):00542 *
546 (fig6800to6809dumb):00543 * ======>> 7 <<
547 3182 87 (fig6800to6809dumb):00544 FCB $87
548 3183 282B4C4F4F50 (fig6800to6809dumb):00545 FCC '(+LOOP' ; '(+LOOP)'
549 3189 A9 (fig6800to6809dumb):00546 FCB $A9
550 318A 3172 (fig6800to6809dumb):00547 FDB XLOOP-9
551 318C 318E (fig6800to6809dumb):00548 XPLOOP FDB *+2 Note: +LOOP has an un-signed loop counter
552 318E 3502 (fig6800to6809dumb):00549 PULS A get increment
553 3190 3504 (fig6800to6809dumb):00550 PULS B
554 3192 4D (fig6800to6809dumb):00551 XPLOP2 TSTA
555 3193 2A17 (fig6800to6809dumb):00552 BPL XPLOF forward looping
556 3195 8D0A (fig6800to6809dumb):00553 BSR XPLOPS
557 3197 1A01 (fig6800to6809dumb):00554 ORCC #1
558 3199 E205 (fig6800to6809dumb):00555 SBCB 5,X
559 319B A204 (fig6800to6809dumb):00556 SBCA 4,X
560 319D 2AB7 (fig6800to6809dumb):00557 BPL ZBYES
561 319F 2013 (fig6800to6809dumb):00558 BRA XPLONO fall through
562 (fig6800to6809dumb):00559 *
563 (fig6800to6809dumb):00560 * the subroutine :
564 31A1 9E14 (fig6800to6809dumb):00561 XPLOPS LDX RP
565 31A3 EB03 (fig6800to6809dumb):00562 ADDB 3,X add it to counter
566 31A5 A902 (fig6800to6809dumb):00563 ADCA 2,X
567 31A7 E703 (fig6800to6809dumb):00564 STB 3,X store new counter value
568 31A9 A702 (fig6800to6809dumb):00565 STA 2,X
569 31AB 39 (fig6800to6809dumb):00566 RTS
570 (fig6800to6809dumb):00567 *
571 31AC 8DF3 (fig6800to6809dumb):00568 XPLOF BSR XPLOPS
572 31AE E005 (fig6800to6809dumb):00569 SUBB 5,X
573 31B0 A204 (fig6800to6809dumb):00570 SBCA 4,X
574 31B2 2BA2 (fig6800to6809dumb):00571 BMI ZBYES
575 (fig6800to6809dumb):00572 *
576 31B4 3001 (fig6800to6809dumb):00573 XPLONO LEAX 1,X done, don't branch back
577 31B6 3001 (fig6800to6809dumb):00574 LEAX 1,X
578 31B8 3001 (fig6800to6809dumb):00575 LEAX 1,X
579 31BA 3001 (fig6800to6809dumb):00576 LEAX 1,X
580 31BC 9F14 (fig6800to6809dumb):00577 STX RP
581 31BE 20A7 (fig6800to6809dumb):00578 BRA ZBNO use ZBRAN to skip over unused delta
582 (fig6800to6809dumb):00579 *
583 (fig6800to6809dumb):00580 * ######>> screen 17 <<
584 (fig6800to6809dumb):00581 * ======>> 8 <<
585 31C0 84 (fig6800to6809dumb):00582 FCB $84
586 31C1 28444F (fig6800to6809dumb):00583 FCC '(DO' ; '(DO)'
587 31C4 A9 (fig6800to6809dumb):00584 FCB $A9
588 31C5 3182 (fig6800to6809dumb):00585 FDB XPLOOP-10
589 31C7 31C9 (fig6800to6809dumb):00586 XDO FDB *+2 This is the RUNTIME DO, not the COMPILING DO
590 31C9 9E14 (fig6800to6809dumb):00587 LDX RP
591 31CB 301F (fig6800to6809dumb):00588 LEAX -1,X
592 31CD 301F (fig6800to6809dumb):00589 LEAX -1,X
593 31CF 301F (fig6800to6809dumb):00590 LEAX -1,X
594 31D1 301F (fig6800to6809dumb):00591 LEAX -1,X
595 31D3 9F14 (fig6800to6809dumb):00592 STX RP
596 31D5 3502 (fig6800to6809dumb):00593 PULS A
597 31D7 3504 (fig6800to6809dumb):00594 PULS B
598 31D9 A702 (fig6800to6809dumb):00595 STA 2,X
599 31DB E703 (fig6800to6809dumb):00596 STB 3,X
600 31DD 3502 (fig6800to6809dumb):00597 PULS A
601 31DF 3504 (fig6800to6809dumb):00598 PULS B
602 31E1 A704 (fig6800to6809dumb):00599 STA 4,X
603 31E3 E705 (fig6800to6809dumb):00600 STB 5,X
604 31E5 7E3038 (fig6800to6809dumb):00601 JMP NEXT
605 (fig6800to6809dumb):00602 *
606 (fig6800to6809dumb):00603 * ======>> 9 <<
607 31E8 81 (fig6800to6809dumb):00604 FCB $81 I
608 31E9 C9 (fig6800to6809dumb):00605 FCB $C9
609 31EA 31C0 (fig6800to6809dumb):00606 FDB XDO-7
610 31EC 31EE (fig6800to6809dumb):00607 I FDB *+2
611 31EE 9E14 (fig6800to6809dumb):00608 LDX RP
612 31F0 3001 (fig6800to6809dumb):00609 LEAX 1,X
613 31F2 3001 (fig6800to6809dumb):00610 LEAX 1,X
614 31F4 7E3030 (fig6800to6809dumb):00611 JMP GETX
615 (fig6800to6809dumb):00612 *
616 (fig6800to6809dumb):00613 * ######>> screen 18 <<
617 (fig6800to6809dumb):00614 * ======>> 10 <<
618 31F7 85 (fig6800to6809dumb):00615 FCB $85
619 31F8 44494749 (fig6800to6809dumb):00616 FCC 'DIGI' ; 'DIGIT'
620 31FC D4 (fig6800to6809dumb):00617 FCB $D4
621 31FD 31E8 (fig6800to6809dumb):00618 FDB I-4
622 31FF 3201 (fig6800to6809dumb):00619 DIGIT FDB *+2 NOTE: legal input range is 0-9, A-Z
623 3201 1F41 (fig6800to6809dumb):00620 TFR S,X
624 3203 A603 (fig6800to6809dumb):00621 LDA 3,X
625 3205 8030 (fig6800to6809dumb):00622 SUBA #$30 ascii zero
626 3207 2B1B (fig6800to6809dumb):00623 BMI DIGIT2 IF LESS THAN '0', ILLEGAL
627 3209 810A (fig6800to6809dumb):00624 CMPA #$A
628 320B 2B0A (fig6800to6809dumb):00625 BMI DIGIT0 IF '9' OR LESS
629 320D 8111 (fig6800to6809dumb):00626 CMPA #$11
630 320F 2B13 (fig6800to6809dumb):00627 BMI DIGIT2 if less than 'A'
631 3211 812B (fig6800to6809dumb):00628 CMPA #$2B
632 3213 2A0F (fig6800to6809dumb):00629 BPL DIGIT2 if greater than 'Z'
633 3215 8007 (fig6800to6809dumb):00630 SUBA #7 translate 'A' thru 'F'
634 3217 A101 (fig6800to6809dumb):00631 DIGIT0 CMPA 1,X
635 3219 2A09 (fig6800to6809dumb):00632 BPL DIGIT2 if not less than the base
636 321B C601 (fig6800to6809dumb):00633 LDB #1 set flag
637 321D A703 (fig6800to6809dumb):00634 STA 3,X store digit
638 321F E701 (fig6800to6809dumb):00635 DIGIT1 STB 1,X store the flag
639 3221 7E3038 (fig6800to6809dumb):00636 JMP NEXT
640 3224 5F (fig6800to6809dumb):00637 DIGIT2 CLRB
641 3225 3261 (fig6800to6809dumb):00638 LEAS 1,S
642 3227 3261 (fig6800to6809dumb):00639 LEAS 1,S pop bottom number
643 3229 1F41 (fig6800to6809dumb):00640 TFR S,X
644 322B E700 (fig6800to6809dumb):00641 STB 0,X make sure both bytes are 00
645 322D 20F0 (fig6800to6809dumb):00642 BRA DIGIT1
646 (fig6800to6809dumb):00643 *
647 (fig6800to6809dumb):00644 * ######>> screen 19 <<
648 (fig6800to6809dumb):00645 *
649 (fig6800to6809dumb):00646 * The word format in the dictionary is:
650 (fig6800to6809dumb):00647 *
651 (fig6800to6809dumb):00648 * char-count + $80 lowest address
652 (fig6800to6809dumb):00649 * char 1
653 (fig6800to6809dumb):00650 * char 2
654 (fig6800to6809dumb):00651 *
655 (fig6800to6809dumb):00652 * char n + $80
656 (fig6800to6809dumb):00653 * link high byte \___point to previous word
657 (fig6800to6809dumb):00654 * link low byte /
658 (fig6800to6809dumb):00655 * CFA high byte \___pnt to 6800 code
659 (fig6800to6809dumb):00656 * CFA low byte /
660 (fig6800to6809dumb):00657 * parameter fields
661 (fig6800to6809dumb):00658 * "
662 (fig6800to6809dumb):00659 * "
663 (fig6800to6809dumb):00660 * "
664 (fig6800to6809dumb):00661 *
665 (fig6800to6809dumb):00662 * ======>> 11 <<
666 322F 86 (fig6800to6809dumb):00663 FCB $86
667 3230 2846494E44 (fig6800to6809dumb):00664 FCC '(FIND' ; '(FIND)'
668 3235 A9 (fig6800to6809dumb):00665 FCB $A9
669 3236 31F7 (fig6800to6809dumb):00666 FDB DIGIT-8
670 3238 323A (fig6800to6809dumb):00667 PFIND FDB *+2
671 323A 12 (fig6800to6809dumb):00668 NOP
672 323B 12 (fig6800to6809dumb):00669 NOP
673 1300 (fig6800to6809dumb):00670 PD EQU N ptr to dict word being checked
674 1302 (fig6800to6809dumb):00671 PA0 EQU N+2
675 1304 (fig6800to6809dumb):00672 PA EQU N+4
676 1306 (fig6800to6809dumb):00673 PCT EQU N+6 ; PC in 6800 source
677 323C 8E1300 (fig6800to6809dumb):00674 LDX #PD
678 323F C604 (fig6800to6809dumb):00675 LDB #4
679 3241 3502 (fig6800to6809dumb):00676 PFIND0 PULS A loop to get arguments
680 3243 A700 (fig6800to6809dumb):00677 STA 0,X
681 3245 3001 (fig6800to6809dumb):00678 LEAX 1,X
682 3247 5A (fig6800to6809dumb):00679 DECB
683 3248 26F7 (fig6800to6809dumb):00680 BNE PFIND0
684 (fig6800to6809dumb):00681 *
685 324A 9E00 (fig6800to6809dumb):00682 LDX PD
686 324C E600 (fig6800to6809dumb):00683 PFIND1 LDB 0,X get count dict count
687 324E D706 (fig6800to6809dumb):00684 STB PCT
688 3250 C43F (fig6800to6809dumb):00685 ANDB #$3F
689 3252 3001 (fig6800to6809dumb):00686 LEAX 1,X
690 3254 9F00 (fig6800to6809dumb):00687 STX PD update PD
691 3256 9E02 (fig6800to6809dumb):00688 LDX PA0
692 3258 A600 (fig6800to6809dumb):00689 LDA 0,X get count from arg
693 325A 3001 (fig6800to6809dumb):00690 LEAX 1,X
694 325C 9F04 (fig6800to6809dumb):00691 STX PA intialize PA
695 325E 3404 (fig6800to6809dumb):00692 PSHS B ; sim CBA
696 3260 A1E0 (fig6800to6809dumb):00693 CMPA ,S+ compare lengths
697 3262 262A (fig6800to6809dumb):00694 BNE PFIND4
698 3264 9E04 (fig6800to6809dumb):00695 PFIND2 LDX PA
699 3266 A600 (fig6800to6809dumb):00696 LDA 0,X
700 3268 3001 (fig6800to6809dumb):00697 LEAX 1,X
701 326A 9F04 (fig6800to6809dumb):00698 STX PA
702 326C 9E00 (fig6800to6809dumb):00699 LDX PD
703 326E E600 (fig6800to6809dumb):00700 LDB 0,X
704 3270 3001 (fig6800to6809dumb):00701 LEAX 1,X
705 3272 9F00 (fig6800to6809dumb):00702 STX PD
706 3274 5D (fig6800to6809dumb):00703 TSTB is dict entry neg. ?
707 3275 2A11 (fig6800to6809dumb):00704 BPL PFIND8
708 3277 C47F (fig6800to6809dumb):00705 ANDB #$7F clear sign
709 3279 3404 (fig6800to6809dumb):00706 PSHS B ; sim CBA
710 327B A1E0 (fig6800to6809dumb):00707 CMPA ,S+
711 327D 2719 (fig6800to6809dumb):00708 BEQ FOUND
712 327F AE00 (fig6800to6809dumb):00709 PFIND3 LDX 0,X get new link
713 3281 26C9 (fig6800to6809dumb):00710 BNE PFIND1 continue if link not=0
714 (fig6800to6809dumb):00711 *
715 (fig6800to6809dumb):00712 * not found :
716 (fig6800to6809dumb):00713 *
717 3283 4F (fig6800to6809dumb):00714 CLRA
718 3284 5F (fig6800to6809dumb):00715 CLRB
719 3285 7E3034 (fig6800to6809dumb):00716 JMP PUSHBA
720 3288 3404 (fig6800to6809dumb):00717 PFIND8 PSHS B ; sim CBA
721 328A A1E0 (fig6800to6809dumb):00718 CMPA ,S+
722 328C 27D6 (fig6800to6809dumb):00719 BEQ PFIND2
723 328E 9E00 (fig6800to6809dumb):00720 PFIND4 LDX PD
724 3290 E600 (fig6800to6809dumb):00721 PFIND9 LDB 0,X scan forward to end of this name
725 3292 3001 (fig6800to6809dumb):00722 LEAX 1,X
726 3294 2AFA (fig6800to6809dumb):00723 BPL PFIND9
727 3296 20E7 (fig6800to6809dumb):00724 BRA PFIND3
728 (fig6800to6809dumb):00725 *
729 (fig6800to6809dumb):00726 * found :
730 (fig6800to6809dumb):00727 *
731 3298 9600 (fig6800to6809dumb):00728 FOUND LDA PD compute CFA
732 329A D601 (fig6800to6809dumb):00729 LDB PD+1
733 329C CB04 (fig6800to6809dumb):00730 ADDB #4
734 329E 8900 (fig6800to6809dumb):00731 ADCA #0
735 32A0 3404 (fig6800to6809dumb):00732 PSHS B
736 32A2 3402 (fig6800to6809dumb):00733 PSHS A
737 32A4 9606 (fig6800to6809dumb):00734 LDA PCT
738 32A6 3402 (fig6800to6809dumb):00735 PSHS A
739 32A8 4F (fig6800to6809dumb):00736 CLRA
740 32A9 3402 (fig6800to6809dumb):00737 PSHS A
741 32AB C601 (fig6800to6809dumb):00738 LDB #1
742 32AD 7E3034 (fig6800to6809dumb):00739 JMP PUSHBA
743 (fig6800to6809dumb):00740 *
744 32B0 3402 (fig6800to6809dumb):00741 PSHS A
745 32B2 4F (fig6800to6809dumb):00742 CLRA
746 32B3 3402 (fig6800to6809dumb):00743 PSHS A
747 32B5 C601 (fig6800to6809dumb):00744 LDB #1
748 32B7 7E3034 (fig6800to6809dumb):00745 JMP PUSHBA
749 (fig6800to6809dumb):00746 *
750 (fig6800to6809dumb):00747 * ######>> screen 20 <<
751 (fig6800to6809dumb):00748 * ======>> 12 <<
752 32BA 87 (fig6800to6809dumb):00749 FCB $87
753 32BB 454E434C4F53 (fig6800to6809dumb):00750 FCC 'ENCLOS' ; 'ENCLOSE'
754 32C1 C5 (fig6800to6809dumb):00751 FCB $C5
755 32C2 322F (fig6800to6809dumb):00752 FDB PFIND-9
756 (fig6800to6809dumb):00753 * NOTE :
757 (fig6800to6809dumb):00754 * FC means offset (bytes) to First Character of next word
758 (fig6800to6809dumb):00755 * EW " " to End of Word
759 (fig6800to6809dumb):00756 * NC " " to Next Character to start next enclose at
760 32C4 32C6 (fig6800to6809dumb):00757 ENCLOS FDB *+2
761 32C6 3261 (fig6800to6809dumb):00758 LEAS 1,S
762 32C8 3504 (fig6800to6809dumb):00759 PULS B now, get the low byte, for an 8-bit delimiter
763 32CA 1F41 (fig6800to6809dumb):00760 TFR S,X
764 32CC AE00 (fig6800to6809dumb):00761 LDX 0,X
765 32CE 0F00 (fig6800to6809dumb):00762 CLR N
766 (fig6800to6809dumb):00763 * wait for a non-delimiter or a NUL
767 32D0 A600 (fig6800to6809dumb):00764 ENCL2 LDA 0,X
768 32D2 272E (fig6800to6809dumb):00765 BEQ ENCL6
769 32D4 3404 (fig6800to6809dumb):00766 PSHS B ; sim CBA
770 32D6 A1E0 (fig6800to6809dumb):00767 CMPA ,S+ CHECK FOR DELIM
771 32D8 2606 (fig6800to6809dumb):00768 BNE ENCL3
772 32DA 3001 (fig6800to6809dumb):00769 LEAX 1,X
773 32DC 0C00 (fig6800to6809dumb):00770 INC N
774 32DE 20F0 (fig6800to6809dumb):00771 BRA ENCL2
775 (fig6800to6809dumb):00772 * found first character. Push FC
776 32E0 9600 (fig6800to6809dumb):00773 ENCL3 LDA N found first char.
777 32E2 3402 (fig6800to6809dumb):00774 PSHS A
778 32E4 4F (fig6800to6809dumb):00775 CLRA
779 32E5 3402 (fig6800to6809dumb):00776 PSHS A
780 (fig6800to6809dumb):00777 * wait for a delimiter or a NUL
781 32E7 A600 (fig6800to6809dumb):00778 ENCL4 LDA 0,X
782 32E9 2720 (fig6800to6809dumb):00779 BEQ ENCL7
783 32EB 3404 (fig6800to6809dumb):00780 PSHS B ; sim CBA
784 32ED A1E0 (fig6800to6809dumb):00781 CMPA ,S+ ckech for delim.
785 32EF 2706 (fig6800to6809dumb):00782 BEQ ENCL5
786 32F1 3001 (fig6800to6809dumb):00783 LEAX 1,X
787 32F3 0C00 (fig6800to6809dumb):00784 INC N
788 32F5 20F0 (fig6800to6809dumb):00785 BRA ENCL4
789 (fig6800to6809dumb):00786 * found EW. Push it
790 32F7 D600 (fig6800to6809dumb):00787 ENCL5 LDB N
791 32F9 4F (fig6800to6809dumb):00788 CLRA
792 32FA 3404 (fig6800to6809dumb):00789 PSHS B
793 32FC 3402 (fig6800to6809dumb):00790 PSHS A
794 (fig6800to6809dumb):00791 * advance and push NC
795 32FE 5C (fig6800to6809dumb):00792 INCB
796 32FF 7E3034 (fig6800to6809dumb):00793 JMP PUSHBA
797 (fig6800to6809dumb):00794 * found NUL before non-delimiter, therefore there is no word
798 3302 D600 (fig6800to6809dumb):00795 ENCL6 LDB N found NUL
799 3304 3404 (fig6800to6809dumb):00796 PSHS B
800 3306 3402 (fig6800to6809dumb):00797 PSHS A
801 3308 5C (fig6800to6809dumb):00798 INCB
802 3309 2002 (fig6800to6809dumb):00799 BRA ENCL7A ; ENCL7+2 ******* was a *potential* bug ****** (But DP)
803 (fig6800to6809dumb):00800 * found NUL following the word instead of SPACE
804 330B D600 (fig6800to6809dumb):00801 ENCL7 LDB N
805 330D 3404 (fig6800to6809dumb):00802 ENCL7A PSHS B save EW
806 330F 3402 (fig6800to6809dumb):00803 PSHS A
807 3311 D600 (fig6800to6809dumb):00804 ENCL8 LDB N save NC
808 3313 7E3034 (fig6800to6809dumb):00805 JMP PUSHBA
809 (fig6800to6809dumb):00806
810 (fig6800to6809dumb):00807 PAGE
811 (fig6800to6809dumb):00808 *
812 (fig6800to6809dumb):00809 * ######>> screen 21 <<
813 (fig6800to6809dumb):00810 * The next 4 words call system dependant I/O routines
814 (fig6800to6809dumb):00811 * which are listed after word "-->" ( lable: "arrow" )
815 (fig6800to6809dumb):00812 * in the dictionary.
816 (fig6800to6809dumb):00813 *
817 (fig6800to6809dumb):00814 * ======>> 13 <<
818 3316 84 (fig6800to6809dumb):00815 FCB $84
819 3317 454D49 (fig6800to6809dumb):00816 FCC 'EMI' ; 'EMIT'
820 331A D4 (fig6800to6809dumb):00817 FCB $D4
821 331B 32BA (fig6800to6809dumb):00818 FDB ENCLOS-10
822 331D 331F (fig6800to6809dumb):00819 EMIT FDB *+2
823 331F 3502 (fig6800to6809dumb):00820 PULS A
824 3321 3502 (fig6800to6809dumb):00821 PULS A
825 3323 BD4494 (fig6800to6809dumb):00822 JSR PEMIT
826 3326 9E16 (fig6800to6809dumb):00823 LDX UP
827 3328 6C881B (fig6800to6809dumb):00824 INC XOUT+1-UORIG,X
828 332B 2603 (fig6800to6809dumb):00825 BNE EMITDN
829 332D 6C881A (fig6800to6809dumb):00826 INC XOUT-UORIG,X
830 3330 7E3038 (fig6800to6809dumb):00827 EMITDN JMP NEXT
831 (fig6800to6809dumb):00828 *
832 (fig6800to6809dumb):00829 * ======>> 14 <<
833 3333 83 (fig6800to6809dumb):00830 FCB $83
834 3334 4B45 (fig6800to6809dumb):00831 FCC 'KE' ; 'KEY'
835 3336 D9 (fig6800to6809dumb):00832 FCB $D9
836 3337 3316 (fig6800to6809dumb):00833 FDB EMIT-7
837 3339 333B (fig6800to6809dumb):00834 KEY FDB *+2
838 333B BD449F (fig6800to6809dumb):00835 JSR PKEY
839 333E 3402 (fig6800to6809dumb):00836 PSHS A
840 3340 4F (fig6800to6809dumb):00837 CLRA
841 3341 3402 (fig6800to6809dumb):00838 PSHS A
842 3343 7E3038 (fig6800to6809dumb):00839 JMP NEXT
843 (fig6800to6809dumb):00840 *
844 (fig6800to6809dumb):00841 * ======>> 15 <<
845 3346 89 (fig6800to6809dumb):00842 FCB $89
846 3347 3F5445524D494E41 (fig6800to6809dumb):00843 FCC '?TERMINA' ; '?TERMINAL'
847 334F CC (fig6800to6809dumb):00844 FCB $CC
848 3350 3333 (fig6800to6809dumb):00845 FDB KEY-6
849 3352 3354 (fig6800to6809dumb):00846 QTERM FDB *+2
850 3354 BD44BA (fig6800to6809dumb):00847 JSR PQTER
851 3357 5F (fig6800to6809dumb):00848 CLRB
852 3358 7E3034 (fig6800to6809dumb):00849 JMP PUSHBA stack the flag
853 (fig6800to6809dumb):00850 *
854 (fig6800to6809dumb):00851 * ======>> 16 <<
855 335B 82 (fig6800to6809dumb):00852 FCB $82
856 335C 43 (fig6800to6809dumb):00853 FCC 'C' ; 'CR'
857 335D D2 (fig6800to6809dumb):00854 FCB $D2
858 335E 3346 (fig6800to6809dumb):00855 FDB QTERM-12
859 3360 3362 (fig6800to6809dumb):00856 CR FDB *+2
860 3362 BD44CD (fig6800to6809dumb):00857 JSR PRTCR
861 3365 7E3038 (fig6800to6809dumb):00858 JMP NEXT
862 (fig6800to6809dumb):00859 *
863 (fig6800to6809dumb):00860 * ######>> screen 22 <<
864 (fig6800to6809dumb):00861 * ======>> 17 <<
865 3368 85 (fig6800to6809dumb):00862 FCB $85
866 3369 434D4F56 (fig6800to6809dumb):00863 FCC 'CMOV' ; 'CMOVE' : source, destination, count
867 336D C5 (fig6800to6809dumb):00864 FCB $C5
868 336E 335B (fig6800to6809dumb):00865 FDB CR-5
869 3370 3372 (fig6800to6809dumb):00866 CMOVE FDB *+2 takes ( 43+47*count cycles )
870 3372 8E1300 (fig6800to6809dumb):00867 LDX #N
871 3375 C606 (fig6800to6809dumb):00868 LDB #6
872 3377 3502 (fig6800to6809dumb):00869 CMOV1 PULS A
873 3379 A700 (fig6800to6809dumb):00870 STA 0,X move parameters to scratch area
874 337B 3001 (fig6800to6809dumb):00871 LEAX 1,X
875 337D 5A (fig6800to6809dumb):00872 DECB
876 337E 26F7 (fig6800to6809dumb):00873 BNE CMOV1
877 3380 9600 (fig6800to6809dumb):00874 CMOV2 LDA N
878 3382 D601 (fig6800to6809dumb):00875 LDB N+1
879 3384 C001 (fig6800to6809dumb):00876 SUBB #1
880 3386 8200 (fig6800to6809dumb):00877 SBCA #0
881 3388 9700 (fig6800to6809dumb):00878 STA N
882 338A D701 (fig6800to6809dumb):00879 STB N+1
883 338C 2512 (fig6800to6809dumb):00880 BCS CMOV3
884 338E 9E04 (fig6800to6809dumb):00881 LDX N+4
885 3390 A600 (fig6800to6809dumb):00882 LDA 0,X
886 3392 3001 (fig6800to6809dumb):00883 LEAX 1,X
887 3394 9F04 (fig6800to6809dumb):00884 STX N+4
888 3396 9E02 (fig6800to6809dumb):00885 LDX N+2
889 3398 A700 (fig6800to6809dumb):00886 STA 0,X
890 339A 3001 (fig6800to6809dumb):00887 LEAX 1,X
891 339C 9F02 (fig6800to6809dumb):00888 STX N+2
892 339E 20E0 (fig6800to6809dumb):00889 BRA CMOV2
893 33A0 7E3038 (fig6800to6809dumb):00890 CMOV3 JMP NEXT
894 (fig6800to6809dumb):00891 *
895 (fig6800to6809dumb):00892 * ######>> screen 23 <<
896 (fig6800to6809dumb):00893 * ======>> 18 <<
897 33A3 82 (fig6800to6809dumb):00894 FCB $82
898 33A4 55 (fig6800to6809dumb):00895 FCC 'U' ; 'U*'
899 33A5 AA (fig6800to6809dumb):00896 FCB $AA
900 33A6 3368 (fig6800to6809dumb):00897 FDB CMOVE-8
901 33A8 33AA (fig6800to6809dumb):00898 USTAR FDB *+2
902 33AA 8D07 (fig6800to6809dumb):00899 BSR USTARS
903 33AC 3261 (fig6800to6809dumb):00900 LEAS 1,S
904 33AE 3261 (fig6800to6809dumb):00901 LEAS 1,S
905 33B0 7E3034 (fig6800to6809dumb):00902 JMP PUSHBA
906 (fig6800to6809dumb):00903 *
907 (fig6800to6809dumb):00904 * The following is a subroutine which
908 (fig6800to6809dumb):00905 * multiplies top 2 words on stack,
909 (fig6800to6809dumb):00906 * leaving 32-bit result: high order word in A,B
910 (fig6800to6809dumb):00907 * low order word in 2nd word of stack.
911 (fig6800to6809dumb):00908 *
912 33B3 8610 (fig6800to6809dumb):00909 USTARS LDA #16 bits/word counter
913 33B5 3402 (fig6800to6809dumb):00910 PSHS A
914 33B7 4F (fig6800to6809dumb):00911 CLRA
915 33B8 5F (fig6800to6809dumb):00912 CLRB
916 33B9 1F41 (fig6800to6809dumb):00913 TFR S,X
917 33BB 6605 (fig6800to6809dumb):00914 USTAR2 ROR 5,X shift multiplier
918 33BD 6606 (fig6800to6809dumb):00915 ROR 6,X
919 33BF 6A00 (fig6800to6809dumb):00916 DEC 0,X done?
920 33C1 2B0A (fig6800to6809dumb):00917 BMI USTAR4
921 33C3 2404 (fig6800to6809dumb):00918 BCC USTAR3
922 33C5 EB04 (fig6800to6809dumb):00919 ADDB 4,X
923 33C7 A903 (fig6800to6809dumb):00920 ADCA 3,X
924 33C9 46 (fig6800to6809dumb):00921 USTAR3 RORA
925 33CA 56 (fig6800to6809dumb):00922 RORB ; shift result
926 33CB 20EE (fig6800to6809dumb):00923 BRA USTAR2
927 33CD 3261 (fig6800to6809dumb):00924 USTAR4 LEAS 1,S dump counter
928 33CF 39 (fig6800to6809dumb):00925 RTS
929 (fig6800to6809dumb):00926 *
930 (fig6800to6809dumb):00927 * ######>> screen 24 <<
931 (fig6800to6809dumb):00928 * ======>> 19 <<
932 33D0 82 (fig6800to6809dumb):00929 FCB $82
933 33D1 55 (fig6800to6809dumb):00930 FCC 'U' ; 'U/'
934 33D2 AF (fig6800to6809dumb):00931 FCB $AF
935 33D3 33A3 (fig6800to6809dumb):00932 FDB USTAR-5
936 33D5 33D7 (fig6800to6809dumb):00933 USLASH FDB *+2
937 33D7 8611 (fig6800to6809dumb):00934 LDA #17
938 33D9 3402 (fig6800to6809dumb):00935 PSHS A
939 33DB 1F41 (fig6800to6809dumb):00936 TFR S,X
940 33DD A603 (fig6800to6809dumb):00937 LDA 3,X
941 33DF E604 (fig6800to6809dumb):00938 LDB 4,X
942 33E1 A101 (fig6800to6809dumb):00939 USL1 CMPA 1,X
943 33E3 220A (fig6800to6809dumb):00940 BHI USL3
944 33E5 2504 (fig6800to6809dumb):00941 BCS USL2
945 33E7 E102 (fig6800to6809dumb):00942 CMPB 2,X
946 33E9 2404 (fig6800to6809dumb):00943 BCC USL3
947 33EB 1CFE (fig6800to6809dumb):00944 USL2 ANDCC #~1
948 33ED 2006 (fig6800to6809dumb):00945 BRA USL4
949 33EF E002 (fig6800to6809dumb):00946 USL3 SUBB 2,X
950 33F1 A201 (fig6800to6809dumb):00947 SBCA 1,X
951 33F3 1A01 (fig6800to6809dumb):00948 ORCC #1
952 33F5 6906 (fig6800to6809dumb):00949 USL4 ROL 6,X
953 33F7 6905 (fig6800to6809dumb):00950 ROL 5,X
954 33F9 6A00 (fig6800to6809dumb):00951 DEC 0,X
955 33FB 2706 (fig6800to6809dumb):00952 BEQ USL5
956 33FD 59 (fig6800to6809dumb):00953 ROLB
957 33FE 49 (fig6800to6809dumb):00954 ROLA
958 33FF 24E0 (fig6800to6809dumb):00955 BCC USL1
959 3401 20EC (fig6800to6809dumb):00956 BRA USL3
960 3403 3261 (fig6800to6809dumb):00957 USL5 LEAS 1,S
961 3405 3261 (fig6800to6809dumb):00958 LEAS 1,S
962 3407 3261 (fig6800to6809dumb):00959 LEAS 1,S
963 3409 3261 (fig6800to6809dumb):00960 LEAS 1,S
964 340B 3261 (fig6800to6809dumb):00961 LEAS 1,S
965 340D 7E35C2 (fig6800to6809dumb):00962 JMP SWAP+4 reverse quotient & remainder
966 (fig6800to6809dumb):00963 *
967 (fig6800to6809dumb):00964 * ######>> screen 25 <<
968 (fig6800to6809dumb):00965 * ======>> 20 <<
969 3410 83 (fig6800to6809dumb):00966 FCB $83
970 3411 414E (fig6800to6809dumb):00967 FCC 'AN' ; 'AND'
971 3413 C4 (fig6800to6809dumb):00968 FCB $C4
972 3414 33D0 (fig6800to6809dumb):00969 FDB USLASH-5
973 3416 3418 (fig6800to6809dumb):00970 AND FDB *+2
974 3418 3502 (fig6800to6809dumb):00971 PULS A
975 341A 3504 (fig6800to6809dumb):00972 PULS B
976 341C 1F41 (fig6800to6809dumb):00973 TFR S,X
977 341E E401 (fig6800to6809dumb):00974 ANDB 1,X
978 3420 A400 (fig6800to6809dumb):00975 ANDA 0,X
979 3422 7E302A (fig6800to6809dumb):00976 JMP STABX
980 (fig6800to6809dumb):00977 *
981 (fig6800to6809dumb):00978 * ======>> 21 <<
982 3425 82 (fig6800to6809dumb):00979 FCB $82
983 3426 4F (fig6800to6809dumb):00980 FCC 'O' ; 'OR'
984 3427 D2 (fig6800to6809dumb):00981 FCB $D2
985 3428 3410 (fig6800to6809dumb):00982 FDB AND-6
986 342A 342C (fig6800to6809dumb):00983 OR FDB *+2
987 342C 3502 (fig6800to6809dumb):00984 PULS A
988 342E 3504 (fig6800to6809dumb):00985 PULS B
989 3430 1F41 (fig6800to6809dumb):00986 TFR S,X
990 3432 EA01 (fig6800to6809dumb):00987 ORB 1,X
991 3434 AA00 (fig6800to6809dumb):00988 ORA 0,X
992 3436 7E302A (fig6800to6809dumb):00989 JMP STABX
993 (fig6800to6809dumb):00990 *
994 (fig6800to6809dumb):00991 * ======>> 22 <<
995 3439 83 (fig6800to6809dumb):00992 FCB $83
996 343A 584F (fig6800to6809dumb):00993 FCC 'XO' ; 'XOR'
997 343C D2 (fig6800to6809dumb):00994 FCB $D2
998 343D 3425 (fig6800to6809dumb):00995 FDB OR-5
999 343F 3441 (fig6800to6809dumb):00996 XOR FDB *+2
1000 3441 3502 (fig6800to6809dumb):00997 PULS A
1001 3443 3504 (fig6800to6809dumb):00998 PULS B
1002 3445 1F41 (fig6800to6809dumb):00999 TFR S,X
1003 3447 E801 (fig6800to6809dumb):01000 EORB 1,X
1004 3449 A800 (fig6800to6809dumb):01001 EORA 0,X
1005 344B 7E302A (fig6800to6809dumb):01002 JMP STABX
1006 (fig6800to6809dumb):01003 *
1007 (fig6800to6809dumb):01004 * ######>> screen 26 <<
1008 (fig6800to6809dumb):01005 * ======>> 23 <<
1009 344E 83 (fig6800to6809dumb):01006 FCB $83
1010 344F 5350 (fig6800to6809dumb):01007 FCC 'SP' ; 'SP@'
1011 3451 C0 (fig6800to6809dumb):01008 FCB $C0
1012 3452 3439 (fig6800to6809dumb):01009 FDB XOR-6
1013 3454 3456 (fig6800to6809dumb):01010 SPAT FDB *+2
1014 3456 1F41 (fig6800to6809dumb):01011 TFR S,X
1015 3458 9F00 (fig6800to6809dumb):01012 STX N scratch area
1016 345A 8E1300 (fig6800to6809dumb):01013 LDX #N
1017 345D 7E3030 (fig6800to6809dumb):01014 JMP GETX
1018 (fig6800to6809dumb):01015 *
1019 (fig6800to6809dumb):01016 * ======>> 24 <<
1020 3460 83 (fig6800to6809dumb):01017 FCB $83
1021 3461 5350 (fig6800to6809dumb):01018 FCC 'SP' ; 'SP!'
1022 3463 A1 (fig6800to6809dumb):01019 FCB $A1
1023 3464 344E (fig6800to6809dumb):01020 FDB SPAT-6
1024 3466 3468 (fig6800to6809dumb):01021 SPSTOR FDB *+2
1025 3468 9E16 (fig6800to6809dumb):01022 LDX UP
1026 346A AE06 (fig6800to6809dumb):01023 LDX XSPZER-UORIG,X
1027 (fig6800to6809dumb):01024 * Potential problem area? No. ******
1028 346C 1F14 (fig6800to6809dumb):01025 TFR X,S watch it ! X and S are not equal -- on 6800.
1029 (fig6800to6809dumb):01026 * But they are on 6809, and that's what we want here.
1030 346E 7E3038 (fig6800to6809dumb):01027 JMP NEXT
1031 (fig6800to6809dumb):01028 * ======>> 25 <<
1032 3471 83 (fig6800to6809dumb):01029 FCB $83
1033 3472 5250 (fig6800to6809dumb):01030 FCC 'RP' ; 'RP!'
1034 3474 A1 (fig6800to6809dumb):01031 FCB $A1
1035 3475 3460 (fig6800to6809dumb):01032 FDB SPSTOR-6
1036 3477 3479 (fig6800to6809dumb):01033 RPSTOR FDB *+2
1037 3479 BE3014 (fig6800to6809dumb):01034 LDX RINIT initialize from rom constant
1038 347C 9F14 (fig6800to6809dumb):01035 STX RP
1039 347E 7E3038 (fig6800to6809dumb):01036 JMP NEXT
1040 (fig6800to6809dumb):01037 *
1041 (fig6800to6809dumb):01038 * ======>> 26 <<
1042 3481 82 (fig6800to6809dumb):01039 FCB $82
1043 3482 3B (fig6800to6809dumb):01040 FCC ';' ; ';S'
1044 3483 D3 (fig6800to6809dumb):01041 FCB $D3
1045 3484 3471 (fig6800to6809dumb):01042 FDB RPSTOR-6
1046 3486 3488 (fig6800to6809dumb):01043 SEMIS FDB *+2
1047 (fig6800to6809dumb):01044 * DBG
1048 3488 86F0 (fig6800to6809dumb):01045 LDA #-$10
1049 348A 9B22 (fig6800to6809dumb):01046 ADDA FLAGON
1050 348C 9722 (fig6800to6809dumb):01047 STA FLAGON my version of trace
1051 348E BD4494 (fig6800to6809dumb):01048 JSR PEMIT
1052 (fig6800to6809dumb):01049 *
1053 3491 9E14 (fig6800to6809dumb):01050 LDX RP
1054 3493 3001 (fig6800to6809dumb):01051 LEAX 1,X
1055 3495 3001 (fig6800to6809dumb):01052 LEAX 1,X
1056 3497 9F14 (fig6800to6809dumb):01053 STX RP
1057 3499 AE00 (fig6800to6809dumb):01054 LDX 0,X get address we have just finished.
1058 349B 7E303A (fig6800to6809dumb):01055 JMP NEXT+2 increment the return address & do next word
1059 (fig6800to6809dumb):01056 *
1060 (fig6800to6809dumb):01057 * ######>> screen 27 <<
1061 (fig6800to6809dumb):01058 * ======>> 27 <<
1062 349E 85 (fig6800to6809dumb):01059 FCB $85
1063 349F 4C454156 (fig6800to6809dumb):01060 FCC 'LEAV' ; 'LEAVE'
1064 34A3 C5 (fig6800to6809dumb):01061 FCB $C5
1065 34A4 3481 (fig6800to6809dumb):01062 FDB SEMIS-5
1066 34A6 34A8 (fig6800to6809dumb):01063 LEAVE FDB *+2
1067 34A8 9E14 (fig6800to6809dumb):01064 LDX RP
1068 34AA A602 (fig6800to6809dumb):01065 LDA 2,X
1069 34AC E603 (fig6800to6809dumb):01066 LDB 3,X
1070 34AE A704 (fig6800to6809dumb):01067 STA 4,X
1071 34B0 E705 (fig6800to6809dumb):01068 STB 5,X
1072 34B2 7E3038 (fig6800to6809dumb):01069 JMP NEXT
1073 (fig6800to6809dumb):01070 *
1074 (fig6800to6809dumb):01071 * ======>> 28 <<
1075 34B5 82 (fig6800to6809dumb):01072 FCB $82
1076 34B6 3E (fig6800to6809dumb):01073 FCC '>' ; '>R'
1077 34B7 D2 (fig6800to6809dumb):01074 FCB $D2
1078 34B8 349E (fig6800to6809dumb):01075 FDB LEAVE-8
1079 34BA 34BC (fig6800to6809dumb):01076 TOR FDB *+2
1080 34BC 9E14 (fig6800to6809dumb):01077 LDX RP
1081 34BE 301F (fig6800to6809dumb):01078 LEAX -1,X
1082 34C0 301F (fig6800to6809dumb):01079 LEAX -1,X
1083 34C2 9F14 (fig6800to6809dumb):01080 STX RP
1084 34C4 3502 (fig6800to6809dumb):01081 PULS A
1085 34C6 3504 (fig6800to6809dumb):01082 PULS B
1086 34C8 A702 (fig6800to6809dumb):01083 STA 2,X
1087 34CA E703 (fig6800to6809dumb):01084 STB 3,X
1088 34CC 7E3038 (fig6800to6809dumb):01085 JMP NEXT
1089 (fig6800to6809dumb):01086 *
1090 (fig6800to6809dumb):01087 * ======>> 29 <<
1091 34CF 82 (fig6800to6809dumb):01088 FCB $82
1092 34D0 52 (fig6800to6809dumb):01089 FCC 'R' ; 'R>'
1093 34D1 BE (fig6800to6809dumb):01090 FCB $BE
1094 34D2 34B5 (fig6800to6809dumb):01091 FDB TOR-5
1095 34D4 34D6 (fig6800to6809dumb):01092 FROMR FDB *+2
1096 34D6 9E14 (fig6800to6809dumb):01093 LDX RP
1097 34D8 A602 (fig6800to6809dumb):01094 LDA 2,X
1098 34DA E603 (fig6800to6809dumb):01095 LDB 3,X
1099 34DC 3001 (fig6800to6809dumb):01096 LEAX 1,X
1100 34DE 3001 (fig6800to6809dumb):01097 LEAX 1,X
1101 34E0 9F14 (fig6800to6809dumb):01098 STX RP
1102 34E2 7E3034 (fig6800to6809dumb):01099 JMP PUSHBA
1103 (fig6800to6809dumb):01100 *
1104 (fig6800to6809dumb):01101 * ======>> 30 <<
1105 34E5 81 (fig6800to6809dumb):01102 FCB $81 R
1106 34E6 D2 (fig6800to6809dumb):01103 FCB $D2
1107 34E7 34CF (fig6800to6809dumb):01104 FDB FROMR-5
1108 34E9 34EB (fig6800to6809dumb):01105 R FDB *+2
1109 34EB 9E14 (fig6800to6809dumb):01106 LDX RP
1110 34ED 3001 (fig6800to6809dumb):01107 LEAX 1,X
1111 34EF 3001 (fig6800to6809dumb):01108 LEAX 1,X
1112 34F1 7E3030 (fig6800to6809dumb):01109 JMP GETX
1113 (fig6800to6809dumb):01110 *
1114 (fig6800to6809dumb):01111 * ######>> screen 28 <<
1115 (fig6800to6809dumb):01112 * ======>> 31 <<
1116 34F4 82 (fig6800to6809dumb):01113 FCB $82
1117 34F5 30 (fig6800to6809dumb):01114 FCC '0' ; '0='
1118 34F6 BD (fig6800to6809dumb):01115 FCB $BD
1119 34F7 34E5 (fig6800to6809dumb):01116 FDB R-4
1120 34F9 34FB (fig6800to6809dumb):01117 ZEQU FDB *+2
1121 34FB 1F41 (fig6800to6809dumb):01118 TFR S,X
1122 34FD 4F (fig6800to6809dumb):01119 CLRA
1123 34FE 5F (fig6800to6809dumb):01120 CLRB
1124 34FF AE00 (fig6800to6809dumb):01121 LDX 0,X
1125 3501 2601 (fig6800to6809dumb):01122 BNE ZEQU2
1126 3503 5C (fig6800to6809dumb):01123 INCB
1127 3504 1F41 (fig6800to6809dumb):01124 ZEQU2 TFR S,X
1128 3506 7E302A (fig6800to6809dumb):01125 JMP STABX
1129 (fig6800to6809dumb):01126 *
1130 (fig6800to6809dumb):01127 * ======>> 32 <<
1131 3509 82 (fig6800to6809dumb):01128 FCB $82
1132 350A 30 (fig6800to6809dumb):01129 FCC '0' ; '0<'
1133 350B BC (fig6800to6809dumb):01130 FCB $BC
1134 350C 34F4 (fig6800to6809dumb):01131 FDB ZEQU-5
1135 350E 3510 (fig6800to6809dumb):01132 ZLESS FDB *+2
1136 3510 1F41 (fig6800to6809dumb):01133 TFR S,X
1137 3512 8680 (fig6800to6809dumb):01134 LDA #$80 check the sign bit
1138 3514 A400 (fig6800to6809dumb):01135 ANDA 0,X
1139 3516 2706 (fig6800to6809dumb):01136 BEQ ZLESS2
1140 3518 4F (fig6800to6809dumb):01137 CLRA if neg.
1141 3519 C601 (fig6800to6809dumb):01138 LDB #1
1142 351B 7E302A (fig6800to6809dumb):01139 JMP STABX
1143 351E 5F (fig6800to6809dumb):01140 ZLESS2 CLRB
1144 351F 7E302A (fig6800to6809dumb):01141 JMP STABX
1145 (fig6800to6809dumb):01142 *
1146 (fig6800to6809dumb):01143 * ######>> screen 29 <<
1147 (fig6800to6809dumb):01144 * ======>> 33 <<
1148 3522 81 (fig6800to6809dumb):01145 FCB $81 '+'
1149 3523 AB (fig6800to6809dumb):01146 FCB $AB
1150 3524 3509 (fig6800to6809dumb):01147 FDB ZLESS-5
1151 3526 3528 (fig6800to6809dumb):01148 PLUS FDB *+2
1152 3528 3502 (fig6800to6809dumb):01149 PULS A
1153 352A 3504 (fig6800to6809dumb):01150 PULS B
1154 352C 1F41 (fig6800to6809dumb):01151 TFR S,X
1155 352E EB01 (fig6800to6809dumb):01152 ADDB 1,X
1156 3530 A900 (fig6800to6809dumb):01153 ADCA 0,X
1157 3532 7E302A (fig6800to6809dumb):01154 JMP STABX
1158 (fig6800to6809dumb):01155 *
1159 (fig6800to6809dumb):01156 * ======>> 34 <<
1160 3535 82 (fig6800to6809dumb):01157 FCB $82
1161 3536 44 (fig6800to6809dumb):01158 FCC 'D' ; 'D+'
1162 3537 AB (fig6800to6809dumb):01159 FCB $AB
1163 3538 3522 (fig6800to6809dumb):01160 FDB PLUS-4
1164 353A 353C (fig6800to6809dumb):01161 DPLUS FDB *+2
1165 353C 1F41 (fig6800to6809dumb):01162 TFR S,X
1166 353E 1CFE (fig6800to6809dumb):01163 ANDCC #~1
1167 3540 C604 (fig6800to6809dumb):01164 LDB #4
1168 3542 A603 (fig6800to6809dumb):01165 DPLUS2 LDA 3,X
1169 3544 A907 (fig6800to6809dumb):01166 ADCA 7,X
1170 3546 A707 (fig6800to6809dumb):01167 STA 7,X
1171 3548 301F (fig6800to6809dumb):01168 LEAX -1,X
1172 354A 5A (fig6800to6809dumb):01169 DECB
1173 354B 26F5 (fig6800to6809dumb):01170 BNE DPLUS2
1174 354D 3261 (fig6800to6809dumb):01171 LEAS 1,S
1175 354F 3261 (fig6800to6809dumb):01172 LEAS 1,S
1176 3551 3261 (fig6800to6809dumb):01173 LEAS 1,S
1177 3553 3261 (fig6800to6809dumb):01174 LEAS 1,S
1178 3555 7E3038 (fig6800to6809dumb):01175 JMP NEXT
1179 (fig6800to6809dumb):01176 *
1180 (fig6800to6809dumb):01177 * ======>> 35 <<
1181 3558 85 (fig6800to6809dumb):01178 FCB $85
1182 3559 4D494E55 (fig6800to6809dumb):01179 FCC 'MINU' ; 'MINUS'
1183 355D D3 (fig6800to6809dumb):01180 FCB $D3
1184 355E 3535 (fig6800to6809dumb):01181 FDB DPLUS-5
1185 3560 3562 (fig6800to6809dumb):01182 MINUS FDB *+2
1186 3562 1F41 (fig6800to6809dumb):01183 TFR S,X
1187 3564 6001 (fig6800to6809dumb):01184 NEG 1,X
1188 3566 2404 (fig6800to6809dumb):01185 BCC MINUS2
1189 3568 6000 (fig6800to6809dumb):01186 NEG 0,X
1190 356A 2002 (fig6800to6809dumb):01187 BRA MINUS3
1191 356C 6300 (fig6800to6809dumb):01188 MINUS2 COM 0,X
1192 356E 7E3038 (fig6800to6809dumb):01189 MINUS3 JMP NEXT
1193 (fig6800to6809dumb):01190 *
1194 (fig6800to6809dumb):01191 * ======>> 36 <<
1195 3571 86 (fig6800to6809dumb):01192 FCB $86
1196 3572 444D494E55 (fig6800to6809dumb):01193 FCC 'DMINU' ; 'DMINUS'
1197 3577 D3 (fig6800to6809dumb):01194 FCB $D3
1198 3578 3558 (fig6800to6809dumb):01195 FDB MINUS-8
1199 357A 357C (fig6800to6809dumb):01196 DMINUS FDB *+2
1200 357C 1F41 (fig6800to6809dumb):01197 TFR S,X
1201 357E 6300 (fig6800to6809dumb):01198 COM 0,X
1202 3580 6301 (fig6800to6809dumb):01199 COM 1,X
1203 3582 6302 (fig6800to6809dumb):01200 COM 2,X
1204 3584 6003 (fig6800to6809dumb):01201 NEG 3,X
1205 3586 260A (fig6800to6809dumb):01202 BNE DMINX
1206 3588 6C02 (fig6800to6809dumb):01203 INC 2,X
1207 358A 2606 (fig6800to6809dumb):01204 BNE DMINX
1208 358C 6C01 (fig6800to6809dumb):01205 INC 1,X
1209 358E 2602 (fig6800to6809dumb):01206 BNE DMINX
1210 3590 6C00 (fig6800to6809dumb):01207 INC 0,X
1211 3592 7E3038 (fig6800to6809dumb):01208 DMINX JMP NEXT
1212 (fig6800to6809dumb):01209 *
1213 (fig6800to6809dumb):01210 * ######>> screen 30 <<
1214 (fig6800to6809dumb):01211 * ======>> 37 <<
1215 3595 84 (fig6800to6809dumb):01212 FCB $84
1216 3596 4F5645 (fig6800to6809dumb):01213 FCC 'OVE' ; 'OVER'
1217 3599 D2 (fig6800to6809dumb):01214 FCB $D2
1218 359A 3571 (fig6800to6809dumb):01215 FDB DMINUS-9
1219 359C 359E (fig6800to6809dumb):01216 OVER FDB *+2
1220 359E 1F41 (fig6800to6809dumb):01217 TFR S,X
1221 35A0 A602 (fig6800to6809dumb):01218 LDA 2,X
1222 35A2 E603 (fig6800to6809dumb):01219 LDB 3,X
1223 35A4 7E3034 (fig6800to6809dumb):01220 JMP PUSHBA
1224 (fig6800to6809dumb):01221 *
1225 (fig6800to6809dumb):01222 * ======>> 38 <<
1226 35A7 84 (fig6800to6809dumb):01223 FCB $84
1227 35A8 44524F (fig6800to6809dumb):01224 FCC 'DRO' ; 'DROP'
1228 35AB D0 (fig6800to6809dumb):01225 FCB $D0
1229 35AC 3595 (fig6800to6809dumb):01226 FDB OVER-7
1230 35AE 35B0 (fig6800to6809dumb):01227 DROP FDB *+2
1231 35B0 3261 (fig6800to6809dumb):01228 LEAS 1,S
1232 35B2 3261 (fig6800to6809dumb):01229 LEAS 1,S
1233 35B4 7E3038 (fig6800to6809dumb):01230 JMP NEXT
1234 (fig6800to6809dumb):01231 *
1235 (fig6800to6809dumb):01232 * ======>> 39 <<
1236 35B7 84 (fig6800to6809dumb):01233 FCB $84
1237 35B8 535741 (fig6800to6809dumb):01234 FCC 'SWA' ; 'SWAP'
1238 35BB D0 (fig6800to6809dumb):01235 FCB $D0
1239 35BC 35A7 (fig6800to6809dumb):01236 FDB DROP-7
1240 35BE 35C0 (fig6800to6809dumb):01237 SWAP FDB *+2
1241 35C0 3502 (fig6800to6809dumb):01238 PULS A
1242 35C2 3504 (fig6800to6809dumb):01239 PULS B
1243 35C4 1F41 (fig6800to6809dumb):01240 TFR S,X
1244 35C6 AE00 (fig6800to6809dumb):01241 LDX 0,X
1245 35C8 3261 (fig6800to6809dumb):01242 LEAS 1,S
1246 35CA 3261 (fig6800to6809dumb):01243 LEAS 1,S
1247 35CC 3404 (fig6800to6809dumb):01244 PSHS B
1248 35CE 3402 (fig6800to6809dumb):01245 PSHS A
1249 35D0 9F00 (fig6800to6809dumb):01246 STX N
1250 35D2 8E1300 (fig6800to6809dumb):01247 LDX #N
1251 35D5 7E3030 (fig6800to6809dumb):01248 JMP GETX
1252 (fig6800to6809dumb):01249 *
1253 (fig6800to6809dumb):01250 * ======>> 40 <<
1254 35D8 83 (fig6800to6809dumb):01251 FCB $83
1255 35D9 4455 (fig6800to6809dumb):01252 FCC 'DU' ; 'DUP'
1256 35DB D0 (fig6800to6809dumb):01253 FCB $D0
1257 35DC 35B7 (fig6800to6809dumb):01254 FDB SWAP-7
1258 35DE 35E0 (fig6800to6809dumb):01255 DUP FDB *+2
1259 35E0 3502 (fig6800to6809dumb):01256 PULS A
1260 35E2 3504 (fig6800to6809dumb):01257 PULS B
1261 35E4 3404 (fig6800to6809dumb):01258 PSHS B
1262 35E6 3402 (fig6800to6809dumb):01259 PSHS A
1263 35E8 7E3034 (fig6800to6809dumb):01260 JMP PUSHBA
1264 (fig6800to6809dumb):01261 *
1265 (fig6800to6809dumb):01262 * ######>> screen 31 <<
1266 (fig6800to6809dumb):01263 * ======>> 41 <<
1267 35EB 82 (fig6800to6809dumb):01264 FCB $82
1268 35EC 2B (fig6800to6809dumb):01265 FCC '+' ; '+!'
1269 35ED A1 (fig6800to6809dumb):01266 FCB $A1
1270 35EE 35D8 (fig6800to6809dumb):01267 FDB DUP-6
1271 35F0 35F2 (fig6800to6809dumb):01268 PSTORE FDB *+2
1272 35F2 1F41 (fig6800to6809dumb):01269 TFR S,X
1273 35F4 AE00 (fig6800to6809dumb):01270 LDX 0,X
1274 35F6 3261 (fig6800to6809dumb):01271 LEAS 1,S
1275 35F8 3261 (fig6800to6809dumb):01272 LEAS 1,S
1276 35FA 3502 (fig6800to6809dumb):01273 PULS A get stack data
1277 35FC 3504 (fig6800to6809dumb):01274 PULS B
1278 35FE EB01 (fig6800to6809dumb):01275 ADDB 1,X add & store low byte
1279 3600 E701 (fig6800to6809dumb):01276 STB 1,X
1280 3602 A900 (fig6800to6809dumb):01277 ADCA 0,X add & store hi byte
1281 3604 A700 (fig6800to6809dumb):01278 STA 0,X
1282 3606 7E3038 (fig6800to6809dumb):01279 JMP NEXT
1283 (fig6800to6809dumb):01280 *
1284 (fig6800to6809dumb):01281 * ======>> 42 <<
1285 3609 86 (fig6800to6809dumb):01282 FCB $86
1286 360A 544F47474C (fig6800to6809dumb):01283 FCC 'TOGGL' ; 'TOGGLE'
1287 360F C5 (fig6800to6809dumb):01284 FCB $C5
1288 3610 35EB (fig6800to6809dumb):01285 FDB PSTORE-5
1289 3612 3687359C3636343F (fig6800to6809dumb):01286 TOGGLE FDB DOCOL,OVER,CAT,XOR,SWAP,CSTORE
1291 361E 3486 (fig6800to6809dumb):01287 FDB SEMIS
1292 (fig6800to6809dumb):01288 *
1293 (fig6800to6809dumb):01289 * ######>> screen 32 <<
1294 (fig6800to6809dumb):01290 * ======>> 43 <<
1295 3620 81 (fig6800to6809dumb):01291 FCB $81 @
1296 3621 C0 (fig6800to6809dumb):01292 FCB $C0
1297 3622 3609 (fig6800to6809dumb):01293 FDB TOGGLE-9
1298 3624 3626 (fig6800to6809dumb):01294 AT FDB *+2
1299 3626 1F41 (fig6800to6809dumb):01295 TFR S,X
1300 3628 AE00 (fig6800to6809dumb):01296 LDX 0,X get address
1301 362A 3261 (fig6800to6809dumb):01297 LEAS 1,S
1302 362C 3261 (fig6800to6809dumb):01298 LEAS 1,S
1303 362E 7E3030 (fig6800to6809dumb):01299 JMP GETX
1304 (fig6800to6809dumb):01300 *
1305 (fig6800to6809dumb):01301 * ======>> 44 <<
1306 3631 82 (fig6800to6809dumb):01302 FCB $82
1307 3632 43 (fig6800to6809dumb):01303 FCC 'C' ; 'C@'
1308 3633 C0 (fig6800to6809dumb):01304 FCB $C0
1309 3634 3620 (fig6800to6809dumb):01305 FDB AT-4
1310 3636 3638 (fig6800to6809dumb):01306 CAT FDB *+2
1311 3638 1F41 (fig6800to6809dumb):01307 TFR S,X
1312 363A AE00 (fig6800to6809dumb):01308 LDX 0,X
1313 363C 4F (fig6800to6809dumb):01309 CLRA
1314 363D E600 (fig6800to6809dumb):01310 LDB 0,X
1315 363F 3261 (fig6800to6809dumb):01311 LEAS 1,S
1316 3641 3261 (fig6800to6809dumb):01312 LEAS 1,S
1317 3643 7E3034 (fig6800to6809dumb):01313 JMP PUSHBA
1318 (fig6800to6809dumb):01314 *
1319 (fig6800to6809dumb):01315 * ======>> 45 <<
1320 3646 81 (fig6800to6809dumb):01316 FCB $81
1321 3647 A1 (fig6800to6809dumb):01317 FCB $A1
1322 3648 3631 (fig6800to6809dumb):01318 FDB CAT-5
1323 364A 364C (fig6800to6809dumb):01319 STORE FDB *+2
1324 364C 1F41 (fig6800to6809dumb):01320 TFR S,X
1325 364E AE00 (fig6800to6809dumb):01321 LDX 0,X get address
1326 3650 3261 (fig6800to6809dumb):01322 LEAS 1,S
1327 3652 3261 (fig6800to6809dumb):01323 LEAS 1,S
1328 3654 7E3026 (fig6800to6809dumb):01324 JMP PULABX
1329 (fig6800to6809dumb):01325 *
1330 (fig6800to6809dumb):01326 * ======>> 46 <<
1331 3657 82 (fig6800to6809dumb):01327 FCB $82
1332 3658 43 (fig6800to6809dumb):01328 FCC 'C' ; 'C!'
1333 3659 A1 (fig6800to6809dumb):01329 FCB $A1
1334 365A 3646 (fig6800to6809dumb):01330 FDB STORE-4
1335 365C 365E (fig6800to6809dumb):01331 CSTORE FDB *+2
1336 365E 1F41 (fig6800to6809dumb):01332 TFR S,X
1337 3660 AE00 (fig6800to6809dumb):01333 LDX 0,X get address
1338 3662 3261 (fig6800to6809dumb):01334 LEAS 1,S
1339 3664 3261 (fig6800to6809dumb):01335 LEAS 1,S
1340 3666 3261 (fig6800to6809dumb):01336 LEAS 1,S
1341 3668 3504 (fig6800to6809dumb):01337 PULS B
1342 366A E700 (fig6800to6809dumb):01338 STB 0,X
1343 366C 7E3038 (fig6800to6809dumb):01339 JMP NEXT
1344 (fig6800to6809dumb):01340 PAGE
1345 (fig6800to6809dumb):01341 *
1346 (fig6800to6809dumb):01342 * ######>> screen 33 <<
1347 (fig6800to6809dumb):01343 * ======>> 47 <<
1348 366F C1 (fig6800to6809dumb):01344 FCB $C1 : immediate
1349 3670 BA (fig6800to6809dumb):01345 FCB $BA
1350 3671 3657 (fig6800to6809dumb):01346 FDB CSTORE-5
1351 3673 36873A473A03381E (fig6800to6809dumb):01347 COLON FDB DOCOL,QEXEC,SCSP,CURENT,AT,CONTXT,STORE
1353 3681 3F493AC8 (fig6800to6809dumb):01348 FDB CREATE,RBRAK
1354 3685 3B17 (fig6800to6809dumb):01349 FDB PSCODE
1355 (fig6800to6809dumb):01350
1356 (fig6800to6809dumb):01351 * Here is the IP pusher for allowing
1357 (fig6800to6809dumb):01352 * nested words in the virtual machine:
1358 (fig6800to6809dumb):01353 * ( ;S is the equivalent un-nester )
1359 (fig6800to6809dumb):01354
1360 3687 9E14 (fig6800to6809dumb):01355 DOCOL LDX RP make room in the stack
1361 3689 301F (fig6800to6809dumb):01356 LEAX -1,X
1362 368B 301F (fig6800to6809dumb):01357 LEAX -1,X
1363 368D 9F14 (fig6800to6809dumb):01358 STX RP
1364 (fig6800to6809dumb):01359 * DBG
1365 368F 8610 (fig6800to6809dumb):01360 LDA #$10
1366 3691 9B22 (fig6800to6809dumb):01361 ADDA FLAGON
1367 3693 9722 (fig6800to6809dumb):01362 STA FLAGON my version of trace
1368 3695 BD4494 (fig6800to6809dumb):01363 JSR PEMIT
1369 (fig6800to6809dumb):01364 *
1370 3698 9612 (fig6800to6809dumb):01365 LDA IP
1371 369A D613 (fig6800to6809dumb):01366 LDB IP+1
1372 369C A702 (fig6800to6809dumb):01367 STA 2,X Store address of the high level word
1373 369E E703 (fig6800to6809dumb):01368 STB 3,X that we are starting to execute
1374 36A0 9E10 (fig6800to6809dumb):01369 LDX W Get first sub-word of that definition
1375 36A2 7E303A (fig6800to6809dumb):01370 JMP NEXT+2 and execute it
1376 (fig6800to6809dumb):01371 *
1377 (fig6800to6809dumb):01372 * ======>> 48 <<
1378 36A5 C1 (fig6800to6809dumb):01373 FCB $C1 ; imnediate code
1379 36A6 BB (fig6800to6809dumb):01374 FCB $BB
1380 36A7 366F (fig6800to6809dumb):01375 FDB COLON-4
1381 36A9 36873A6F3AA43486 (fig6800to6809dumb):01376 SEMI FDB DOCOL,QCSP,COMPIL,SEMIS,SMUDGE,LBRAK
1383 36B5 3486 (fig6800to6809dumb):01377 FDB SEMIS
1384 (fig6800to6809dumb):01378 *
1385 (fig6800to6809dumb):01379 * ######>> screen 34 <<
1386 (fig6800to6809dumb):01380 * ======>> 49 <<
1387 36B7 88 (fig6800to6809dumb):01381 FCB $88
1388 36B8 434F4E5354414E (fig6800to6809dumb):01382 FCC 'CONSTAN' ; 'CONSTANT'
1389 36BF D4 (fig6800to6809dumb):01383 FCB $D4
1390 36C0 36A5 (fig6800to6809dumb):01384 FDB SEMI-4
1391 36C2 36873F493ADC38B5 (fig6800to6809dumb):01385 CON FDB DOCOL,CREATE,SMUDGE,COMMA,PSCODE
1393 36CC 9E10 (fig6800to6809dumb):01386 DOCON LDX W
1394 36CE A602 (fig6800to6809dumb):01387 LDA 2,X
1395 36D0 E603 (fig6800to6809dumb):01388 LDB 3,X A & B now contain the constant
1396 36D2 7E3034 (fig6800to6809dumb):01389 JMP PUSHBA
1397 (fig6800to6809dumb):01390 *
1398 (fig6800to6809dumb):01391 * ======>> 50 <<
1399 36D5 88 (fig6800to6809dumb):01392 FCB $88
1400 36D6 5641524941424C (fig6800to6809dumb):01393 FCC 'VARIABL' ; 'VARIABLE'
1401 36DD C5 (fig6800to6809dumb):01394 FCB $C5
1402 36DE 36B7 (fig6800to6809dumb):01395 FDB CON-11
1403 36E0 368736C23B17 (fig6800to6809dumb):01396 VAR FDB DOCOL,CON,PSCODE
1404 36E6 9610 (fig6800to6809dumb):01397 DOVAR LDA W
1405 36E8 D611 (fig6800to6809dumb):01398 LDB W+1
1406 36EA CB02 (fig6800to6809dumb):01399 ADDB #2
1407 36EC 8900 (fig6800to6809dumb):01400 ADCA #0 A,B now contain the address of the variable
1408 36EE 7E3034 (fig6800to6809dumb):01401 JMP PUSHBA
1409 (fig6800to6809dumb):01402 *
1410 (fig6800to6809dumb):01403 * ======>> 51 <<
1411 36F1 84 (fig6800to6809dumb):01404 FCB $84
1412 36F2 555345 (fig6800to6809dumb):01405 FCC 'USE' ; 'USER'
1413 36F5 D2 (fig6800to6809dumb):01406 FCB $D2
1414 36F6 36D5 (fig6800to6809dumb):01407 FDB VAR-11
1415 36F8 368736C23B17 (fig6800to6809dumb):01408 USER FDB DOCOL,CON,PSCODE
1416 36FE 9E10 (fig6800to6809dumb):01409 DOUSER LDX W get offset into user's table
1417 3700 A602 (fig6800to6809dumb):01410 LDA 2,X
1418 3702 E603 (fig6800to6809dumb):01411 LDB 3,X
1419 3704 DB17 (fig6800to6809dumb):01412 ADDB UP+1 add to users base address
1420 3706 9916 (fig6800to6809dumb):01413 ADCA UP
1421 3708 7E3034 (fig6800to6809dumb):01414 JMP PUSHBA push address of user's variable
1422 (fig6800to6809dumb):01415 *
1423 (fig6800to6809dumb):01416 * ######>> screen 35 <<
1424 (fig6800to6809dumb):01417 * ======>> 52 <<
1425 370B 81 (fig6800to6809dumb):01418 FCB $81
1426 370C B0 (fig6800to6809dumb):01419 FCB $B0 0
1427 370D 36F1 (fig6800to6809dumb):01420 FDB USER-7
1428 370F 36CC (fig6800to6809dumb):01421 ZERO FDB DOCON
1429 3711 0000 (fig6800to6809dumb):01422 FDB 0000
1430 (fig6800to6809dumb):01423 *
1431 (fig6800to6809dumb):01424 * ======>> 53 <<
1432 3713 81 (fig6800to6809dumb):01425 FCB $81
1433 3714 B1 (fig6800to6809dumb):01426 FCB $B1 1
1434 3715 370B (fig6800to6809dumb):01427 FDB ZERO-4
1435 3717 36CC (fig6800to6809dumb):01428 ONE FDB DOCON
1436 3719 0001 (fig6800to6809dumb):01429 FDB 1
1437 (fig6800to6809dumb):01430 *
1438 (fig6800to6809dumb):01431 * ======>> 54 <<
1439 371B 81 (fig6800to6809dumb):01432 FCB $81
1440 371C B2 (fig6800to6809dumb):01433 FCB $B2 2
1441 371D 3713 (fig6800to6809dumb):01434 FDB ONE-4
1442 371F 36CC (fig6800to6809dumb):01435 TWO FDB DOCON
1443 3721 0002 (fig6800to6809dumb):01436 FDB 2
1444 (fig6800to6809dumb):01437 *
1445 (fig6800to6809dumb):01438 * ======>> 55 <<
1446 3723 81 (fig6800to6809dumb):01439 FCB $81
1447 3724 B3 (fig6800to6809dumb):01440 FCB $B3 3
1448 3725 371B (fig6800to6809dumb):01441 FDB TWO-4
1449 3727 36CC (fig6800to6809dumb):01442 THREE FDB DOCON
1450 3729 0003 (fig6800to6809dumb):01443 FDB 3
1451 (fig6800to6809dumb):01444 *
1452 (fig6800to6809dumb):01445 * ======>> 56 <<
1453 372B 82 (fig6800to6809dumb):01446 FCB $82
1454 372C 42 (fig6800to6809dumb):01447 FCC 'B' ; 'BL'
1455 372D CC (fig6800to6809dumb):01448 FCB $CC
1456 372E 3723 (fig6800to6809dumb):01449 FDB THREE-4
1457 3730 36CC (fig6800to6809dumb):01450 BL FDB DOCON ascii blank
1458 3732 0020 (fig6800to6809dumb):01451 FDB $20
1459 (fig6800to6809dumb):01452 *
1460 (fig6800to6809dumb):01453 * ======>> 57 <<
1461 3734 85 (fig6800to6809dumb):01454 FCB $85
1462 3735 46495253 (fig6800to6809dumb):01455 FCC 'FIRS' ; 'FIRST'
1463 3739 D4 (fig6800to6809dumb):01456 FCB $D4
1464 373A 372B (fig6800to6809dumb):01457 FDB BL-5
1465 373C 36CC (fig6800to6809dumb):01458 FIRST FDB DOCON
1466 373E 5084 (fig6800to6809dumb):01459 FDB MEMEND-528 (132 * NBLK)
1467 (fig6800to6809dumb):01460 *
1468 (fig6800to6809dumb):01461 * ======>> 58 <<
1469 3740 85 (fig6800to6809dumb):01462 FCB $85
1470 3741 4C494D49 (fig6800to6809dumb):01463 FCC 'LIMI' ; 'LIMIT' : ( the end of memory +1 )
1471 3745 D4 (fig6800to6809dumb):01464 FCB $D4
1472 3746 3734 (fig6800to6809dumb):01465 FDB FIRST-8
1473 3748 36CC (fig6800to6809dumb):01466 LIMIT FDB DOCON
1474 374A 5294 (fig6800to6809dumb):01467 FDB MEMEND
1475 (fig6800to6809dumb):01468 *
1476 (fig6800to6809dumb):01469 * ======>> 59 <<
1477 374C 85 (fig6800to6809dumb):01470 FCB $85
1478 374D 422F4255 (fig6800to6809dumb):01471 FCC 'B/BU' ; 'B/BUF' : (bytes/buffer)
1479 3751 C6 (fig6800to6809dumb):01472 FCB $C6
1480 3752 3740 (fig6800to6809dumb):01473 FDB LIMIT-8
1481 3754 36CC (fig6800to6809dumb):01474 BBUF FDB DOCON
1482 3756 0080 (fig6800to6809dumb):01475 FDB 128
1483 (fig6800to6809dumb):01476 *
1484 (fig6800to6809dumb):01477 * ======>> 60 <<
1485 3758 85 (fig6800to6809dumb):01478 FCB $85
1486 3759 422F5343 (fig6800to6809dumb):01479 FCC 'B/SC' ; 'B/SCR' : (blocks/screen)
1487 375D D2 (fig6800to6809dumb):01480 FCB $D2
1488 375E 374C (fig6800to6809dumb):01481 FDB BBUF-8
1489 3760 36CC (fig6800to6809dumb):01482 BSCR FDB DOCON
1490 3762 0008 (fig6800to6809dumb):01483 FDB 8
1491 (fig6800to6809dumb):01484 * blocks/screen = 1024 / "B/BUF" = 8
1492 (fig6800to6809dumb):01485 *
1493 (fig6800to6809dumb):01486 * ======>> 61 <<
1494 3764 87 (fig6800to6809dumb):01487 FCB $87
1495 3765 2B4F52494749 (fig6800to6809dumb):01488 FCC '+ORIGI' ; '+ORIGIN'
1496 376B CE (fig6800to6809dumb):01489 FCB $CE
1497 376C 3758 (fig6800to6809dumb):01490 FDB BSCR-8
1498 376E 368730FD30003526 (fig6800to6809dumb):01491 PORIG FDB DOCOL,LIT,ORIG,PLUS
1499 3776 3486 (fig6800to6809dumb):01492 FDB SEMIS
1500 (fig6800to6809dumb):01493 *
1501 (fig6800to6809dumb):01494 * ######>> screen 36 <<
1502 (fig6800to6809dumb):01495 * ======>> 62 <<
1503 3778 82 (fig6800to6809dumb):01496 FCB $82
1504 3779 53 (fig6800to6809dumb):01497 FCC 'S' ; 'S0'
1505 377A B0 (fig6800to6809dumb):01498 FCB $B0
1506 377B 3764 (fig6800to6809dumb):01499 FDB PORIG-10
1507 377D 36FE (fig6800to6809dumb):01500 SZERO FDB DOUSER
1508 377F 0006 (fig6800to6809dumb):01501 FDB XSPZER-UORIG
1509 (fig6800to6809dumb):01502 *
1510 (fig6800to6809dumb):01503 * ======>> 63 <<
1511 3781 82 (fig6800to6809dumb):01504 FCB $82
1512 3782 52 (fig6800to6809dumb):01505 FCC 'R' ; 'R0'
1513 3783 B0 (fig6800to6809dumb):01506 FCB $B0
1514 3784 3778 (fig6800to6809dumb):01507 FDB SZERO-5
1515 3786 36FE (fig6800to6809dumb):01508 RZERO FDB DOUSER
1516 3788 0008 (fig6800to6809dumb):01509 FDB XRZERO-UORIG
1517 (fig6800to6809dumb):01510 *
1518 (fig6800to6809dumb):01511 * ======>> 64 <<
1519 378A 83 (fig6800to6809dumb):01512 FCB $83
1520 378B 5449 (fig6800to6809dumb):01513 FCC 'TI' ; 'TIB'
1521 378D C2 (fig6800to6809dumb):01514 FCB $C2
1522 378E 3781 (fig6800to6809dumb):01515 FDB RZERO-5
1523 3790 36FE (fig6800to6809dumb):01516 TIB FDB DOUSER
1524 3792 000A (fig6800to6809dumb):01517 FDB XTIB-UORIG
1525 (fig6800to6809dumb):01518 *
1526 (fig6800to6809dumb):01519 * ======>> 65 <<
1527 3794 85 (fig6800to6809dumb):01520 FCB $85
1528 3795 57494454 (fig6800to6809dumb):01521 FCC 'WIDT' ; 'WIDTH'
1529 3799 C8 (fig6800to6809dumb):01522 FCB $C8
1530 379A 378A (fig6800to6809dumb):01523 FDB TIB-6
1531 379C 36FE (fig6800to6809dumb):01524 WIDTH FDB DOUSER
1532 379E 000C (fig6800to6809dumb):01525 FDB XWIDTH-UORIG
1533 (fig6800to6809dumb):01526 *
1534 (fig6800to6809dumb):01527 * ======>> 66 <<
1535 37A0 87 (fig6800to6809dumb):01528 FCB $87
1536 37A1 5741524E494E (fig6800to6809dumb):01529 FCC 'WARNIN' ; 'WARNING'
1537 37A7 C7 (fig6800to6809dumb):01530 FCB $C7
1538 37A8 3794 (fig6800to6809dumb):01531 FDB WIDTH-8
1539 37AA 36FE (fig6800to6809dumb):01532 WARN FDB DOUSER
1540 37AC 000E (fig6800to6809dumb):01533 FDB XWARN-UORIG
1541 (fig6800to6809dumb):01534 *
1542 (fig6800to6809dumb):01535 * ======>> 67 <<
1543 37AE 85 (fig6800to6809dumb):01536 FCB $85
1544 37AF 46454E43 (fig6800to6809dumb):01537 FCC 'FENC' ; 'FENCE'
1545 37B3 C5 (fig6800to6809dumb):01538 FCB $C5
1546 37B4 37A0 (fig6800to6809dumb):01539 FDB WARN-10
1547 37B6 36FE (fig6800to6809dumb):01540 FENCE FDB DOUSER
1548 37B8 0010 (fig6800to6809dumb):01541 FDB XFENCE-UORIG
1549 (fig6800to6809dumb):01542 *
1550 (fig6800to6809dumb):01543 * ======>> 68 <<
1551 37BA 82 (fig6800to6809dumb):01544 FCB $82
1552 37BB 44 (fig6800to6809dumb):01545 FCC 'D' ; 'DP' : points to first free byte at end of dictionary
1553 37BC D0 (fig6800to6809dumb):01546 FCB $D0
1554 37BD 37AE (fig6800to6809dumb):01547 FDB FENCE-8
1555 37BF 36FE (fig6800to6809dumb):01548 DICPT FDB DOUSER ; DP in 6800 source
1556 37C1 0012 (fig6800to6809dumb):01549 FDB XDP-UORIG
1557 (fig6800to6809dumb):01550 *
1558 (fig6800to6809dumb):01551 * ======>> 68.5 <<
1559 37C3 88 (fig6800to6809dumb):01552 FCB $88
1560 37C4 564F432D4C494E (fig6800to6809dumb):01553 FCC 'VOC-LIN' ; 'VOC-LINK'
1561 37CB CB (fig6800to6809dumb):01554 FCB $CB
1562 37CC 37BA (fig6800to6809dumb):01555 FDB DICPT-5
1563 37CE 36FE (fig6800to6809dumb):01556 VOCLIN FDB DOUSER
1564 37D0 0014 (fig6800to6809dumb):01557 FDB XVOCL-UORIG
1565 (fig6800to6809dumb):01558 *
1566 (fig6800to6809dumb):01559 * ======>> 69 <<
1567 37D2 83 (fig6800to6809dumb):01560 FCB $83
1568 37D3 424C (fig6800to6809dumb):01561 FCC 'BL' ; 'BLK'
1569 37D5 CB (fig6800to6809dumb):01562 FCB $CB
1570 37D6 37C3 (fig6800to6809dumb):01563 FDB VOCLIN-11
1571 37D8 36FE (fig6800to6809dumb):01564 BLK FDB DOUSER
1572 37DA 0016 (fig6800to6809dumb):01565 FDB XBLK-UORIG
1573 (fig6800to6809dumb):01566 *
1574 (fig6800to6809dumb):01567 * ======>> 70 <<
1575 37DC 82 (fig6800to6809dumb):01568 FCB $82
1576 37DD 49 (fig6800to6809dumb):01569 FCC 'I' ; 'IN' : scan pointer for input line buffer
1577 37DE CE (fig6800to6809dumb):01570 FCB $CE
1578 37DF 37D2 (fig6800to6809dumb):01571 FDB BLK-6
1579 37E1 36FE (fig6800to6809dumb):01572 IN FDB DOUSER
1580 37E3 0018 (fig6800to6809dumb):01573 FDB XIN-UORIG
1581 (fig6800to6809dumb):01574 *
1582 (fig6800to6809dumb):01575 * ======>> 71 <<
1583 37E5 83 (fig6800to6809dumb):01576 FCB $83
1584 37E6 4F55 (fig6800to6809dumb):01577 FCC 'OU' ; 'OUT'
1585 37E8 D4 (fig6800to6809dumb):01578 FCB $D4
1586 37E9 37DC (fig6800to6809dumb):01579 FDB IN-5
1587 37EB 36FE (fig6800to6809dumb):01580 OUT FDB DOUSER
1588 37ED 001A (fig6800to6809dumb):01581 FDB XOUT-UORIG
1589 (fig6800to6809dumb):01582 *
1590 (fig6800to6809dumb):01583 * ======>> 72 <<
1591 37EF 83 (fig6800to6809dumb):01584 FCB $83
1592 37F0 5343 (fig6800to6809dumb):01585 FCC 'SC' ; 'SCR'
1593 37F2 D2 (fig6800to6809dumb):01586 FCB $D2
1594 37F3 37E5 (fig6800to6809dumb):01587 FDB OUT-6
1595 37F5 36FE (fig6800to6809dumb):01588 SCR FDB DOUSER
1596 37F7 001C (fig6800to6809dumb):01589 FDB XSCR-UORIG
1597 (fig6800to6809dumb):01590 * ######>> screen 37 <<
1598 (fig6800to6809dumb):01591 *
1599 (fig6800to6809dumb):01592 * ======>> 73 <<
1600 37F9 86 (fig6800to6809dumb):01593 FCB $86
1601 37FA 4F46465345 (fig6800to6809dumb):01594 FCC 'OFFSE' ; 'OFFSET'
1602 37FF D4 (fig6800to6809dumb):01595 FCB $D4
1603 3800 37EF (fig6800to6809dumb):01596 FDB SCR-6
1604 3802 36FE (fig6800to6809dumb):01597 OFSET FDB DOUSER
1605 3804 001E (fig6800to6809dumb):01598 FDB XOFSET-UORIG
1606 (fig6800to6809dumb):01599 *
1607 (fig6800to6809dumb):01600 * ======>> 74 <<
1608 3806 87 (fig6800to6809dumb):01601 FCB $87
1609 3807 434F4E544558 (fig6800to6809dumb):01602 FCC 'CONTEX' ; 'CONTEXT' : points to pointer to vocab to search first
1610 380D D4 (fig6800to6809dumb):01603 FCB $D4
1611 380E 37F9 (fig6800to6809dumb):01604 FDB OFSET-9
1612 3810 36FE (fig6800to6809dumb):01605 CONTXT FDB DOUSER
1613 3812 0020 (fig6800to6809dumb):01606 FDB XCONT-UORIG
1614 (fig6800to6809dumb):01607 *
1615 (fig6800to6809dumb):01608 * ======>> 75 <<
1616 3814 87 (fig6800to6809dumb):01609 FCB $87
1617 3815 43555252454E (fig6800to6809dumb):01610 FCC 'CURREN' ; 'CURRENT' : points to ptr. to vocab being extended
1618 381B D4 (fig6800to6809dumb):01611 FCB $D4
1619 381C 3806 (fig6800to6809dumb):01612 FDB CONTXT-10
1620 381E 36FE (fig6800to6809dumb):01613 CURENT FDB DOUSER
1621 3820 0022 (fig6800to6809dumb):01614 FDB XCURR-UORIG
1622 (fig6800to6809dumb):01615 *
1623 (fig6800to6809dumb):01616 * ======>> 76 <<
1624 3822 85 (fig6800to6809dumb):01617 FCB $85
1625 3823 53544154 (fig6800to6809dumb):01618 FCC 'STAT' ; 'STATE' : 1 if compiling, 0 if not
1626 3827 C5 (fig6800to6809dumb):01619 FCB $C5
1627 3828 3814 (fig6800to6809dumb):01620 FDB CURENT-10
1628 382A 36FE (fig6800to6809dumb):01621 STATE FDB DOUSER
1629 382C 0024 (fig6800to6809dumb):01622 FDB XSTATE-UORIG
1630 (fig6800to6809dumb):01623 *
1631 (fig6800to6809dumb):01624 * ======>> 77 <<
1632 382E 84 (fig6800to6809dumb):01625 FCB $84
1633 382F 424153 (fig6800to6809dumb):01626 FCC 'BAS' ; 'BASE' : number base for all input & output
1634 3832 C5 (fig6800to6809dumb):01627 FCB $C5
1635 3833 3822 (fig6800to6809dumb):01628 FDB STATE-8
1636 3835 36FE (fig6800to6809dumb):01629 BASE FDB DOUSER
1637 3837 0026 (fig6800to6809dumb):01630 FDB XBASE-UORIG
1638 (fig6800to6809dumb):01631 *
1639 (fig6800to6809dumb):01632 * ======>> 78 <<
1640 3839 83 (fig6800to6809dumb):01633 FCB $83
1641 383A 4450 (fig6800to6809dumb):01634 FCC 'DP' ; 'DPL'
1642 383C CC (fig6800to6809dumb):01635 FCB $CC
1643 383D 382E (fig6800to6809dumb):01636 FDB BASE-7
1644 383F 36FE (fig6800to6809dumb):01637 DPL FDB DOUSER
1645 3841 0028 (fig6800to6809dumb):01638 FDB XDPL-UORIG
1646 (fig6800to6809dumb):01639 *
1647 (fig6800to6809dumb):01640 * ======>> 79 <<
1648 3843 83 (fig6800to6809dumb):01641 FCB $83
1649 3844 464C (fig6800to6809dumb):01642 FCC 'FL' ; 'FLD'
1650 3846 C4 (fig6800to6809dumb):01643 FCB $C4
1651 3847 3839 (fig6800to6809dumb):01644 FDB DPL-6
1652 3849 36FE (fig6800to6809dumb):01645 FLD FDB DOUSER
1653 384B 002A (fig6800to6809dumb):01646 FDB XFLD-UORIG
1654 (fig6800to6809dumb):01647 *
1655 (fig6800to6809dumb):01648 * ======>> 80 <<
1656 384D 83 (fig6800to6809dumb):01649 FCB $83
1657 384E 4353 (fig6800to6809dumb):01650 FCC 'CS' ; 'CSP'
1658 3850 D0 (fig6800to6809dumb):01651 FCB $D0
1659 3851 3843 (fig6800to6809dumb):01652 FDB FLD-6
1660 3853 36FE (fig6800to6809dumb):01653 CSP FDB DOUSER
1661 3855 002C (fig6800to6809dumb):01654 FDB XCSP-UORIG
1662 (fig6800to6809dumb):01655 *
1663 (fig6800to6809dumb):01656 * ======>> 81 <<
1664 3857 82 (fig6800to6809dumb):01657 FCB $82
1665 3858 52 (fig6800to6809dumb):01658 FCC 'R' ; 'R#'
1666 3859 A3 (fig6800to6809dumb):01659 FCB $A3
1667 385A 384D (fig6800to6809dumb):01660 FDB CSP-6
1668 385C 36FE (fig6800to6809dumb):01661 RNUM FDB DOUSER
1669 385E 002E (fig6800to6809dumb):01662 FDB XRNUM-UORIG
1670 (fig6800to6809dumb):01663 *
1671 (fig6800to6809dumb):01664 * ======>> 82 <<
1672 3860 83 (fig6800to6809dumb):01665 FCB $83
1673 3861 484C (fig6800to6809dumb):01666 FCC 'HL' ; 'HLD'
1674 3863 C4 (fig6800to6809dumb):01667 FCB $C4
1675 3864 3857 (fig6800to6809dumb):01668 FDB RNUM-5
1676 3866 36CC (fig6800to6809dumb):01669 HLD FDB DOCON
1677 3868 1430 (fig6800to6809dumb):01670 FDB XHLD
1678 (fig6800to6809dumb):01671 *
1679 (fig6800to6809dumb):01672 * ======>> 82.5 <<== SPECIAL
1680 386A 87 (fig6800to6809dumb):01673 FCB $87
1681 386B 434F4C554D4E (fig6800to6809dumb):01674 FCC 'COLUMN' ; 'COLUMNS' : line width of terminal
1682 3871 D3 (fig6800to6809dumb):01675 FCB $D3
1683 3872 3860 (fig6800to6809dumb):01676 FDB HLD-6
1684 3874 36FE (fig6800to6809dumb):01677 COLUMS FDB DOUSER
1685 3876 0034 (fig6800to6809dumb):01678 FDB XCOLUM-UORIG
1686 (fig6800to6809dumb):01679 *
1687 (fig6800to6809dumb):01680 * ######>> screen 38 <<
1688 (fig6800to6809dumb):01681 * ======>> 83 <<
1689 3878 82 (fig6800to6809dumb):01682 FCB $82
1690 3879 31 (fig6800to6809dumb):01683 FCC '1' ; '1+'
1691 387A AB (fig6800to6809dumb):01684 FCB $AB
1692 387B 386A (fig6800to6809dumb):01685 FDB COLUMS-10
1693 387D 368737173526 (fig6800to6809dumb):01686 ONEP FDB DOCOL,ONE,PLUS
1694 3883 3486 (fig6800to6809dumb):01687 FDB SEMIS
1695 (fig6800to6809dumb):01688 *
1696 (fig6800to6809dumb):01689 * ======>> 84 <<
1697 3885 82 (fig6800to6809dumb):01690 FCB $82
1698 3886 32 (fig6800to6809dumb):01691 FCC '2' ; '2+'
1699 3887 AB (fig6800to6809dumb):01692 FCB $AB
1700 3888 3878 (fig6800to6809dumb):01693 FDB ONEP-5
1701 388A 3687371F3526 (fig6800to6809dumb):01694 TWOP FDB DOCOL,TWO,PLUS
1702 3890 3486 (fig6800to6809dumb):01695 FDB SEMIS
1703 (fig6800to6809dumb):01696 *
1704 (fig6800to6809dumb):01697 * ======>> 85 <<
1705 3892 84 (fig6800to6809dumb):01698 FCB $84
1706 3893 484552 (fig6800to6809dumb):01699 FCC 'HER' ; 'HERE'
1707 3896 C5 (fig6800to6809dumb):01700 FCB $C5
1708 3897 3885 (fig6800to6809dumb):01701 FDB TWOP-5
1709 3899 368737BF3624 (fig6800to6809dumb):01702 HERE FDB DOCOL,DICPT,AT
1710 389F 3486 (fig6800to6809dumb):01703 FDB SEMIS
1711 (fig6800to6809dumb):01704 *
1712 (fig6800to6809dumb):01705 * ======>> 86 <<
1713 38A1 85 (fig6800to6809dumb):01706 FCB $85
1714 38A2 414C4C4F (fig6800to6809dumb):01707 FCC 'ALLO' ; 'ALLOT'
1715 38A6 D4 (fig6800to6809dumb):01708 FCB $D4
1716 38A7 3892 (fig6800to6809dumb):01709 FDB HERE-7
1717 38A9 368737BF35F0 (fig6800to6809dumb):01710 ALLOT FDB DOCOL,DICPT,PSTORE
1718 38AF 3486 (fig6800to6809dumb):01711 FDB SEMIS
1719 (fig6800to6809dumb):01712 *
1720 (fig6800to6809dumb):01713 * ======>> 87 <<
1721 38B1 81 (fig6800to6809dumb):01714 FCB $81 ; , (COMMA)
1722 38B2 AC (fig6800to6809dumb):01715 FCB $AC
1723 38B3 38A1 (fig6800to6809dumb):01716 FDB ALLOT-8
1724 38B5 36873899364A371F (fig6800to6809dumb):01717 COMMA FDB DOCOL,HERE,STORE,TWO,ALLOT
1726 38BF 3486 (fig6800to6809dumb):01718 FDB SEMIS
1727 (fig6800to6809dumb):01719 *
1728 (fig6800to6809dumb):01720 * ======>> 88 <<
1729 38C1 82 (fig6800to6809dumb):01721 FCB $82
1730 38C2 43 (fig6800to6809dumb):01722 FCC 'C' ; 'C,'
1731 38C3 AC (fig6800to6809dumb):01723 FCB $AC
1732 38C4 38B1 (fig6800to6809dumb):01724 FDB COMMA-4
1733 38C6 36873899365C3717 (fig6800to6809dumb):01725 CCOMM FDB DOCOL,HERE,CSTORE,ONE,ALLOT
1735 38D0 3486 (fig6800to6809dumb):01726 FDB SEMIS
1736 (fig6800to6809dumb):01727 *
1737 (fig6800to6809dumb):01728 * ======>> 89 <<
1738 38D2 81 (fig6800to6809dumb):01729 FCB $81 ; -
1739 38D3 AD (fig6800to6809dumb):01730 FCB $AD
1740 38D4 38C1 (fig6800to6809dumb):01731 FDB CCOMM-5
1741 38D6 368735603526 (fig6800to6809dumb):01732 SUB FDB DOCOL,MINUS,PLUS
1742 38DC 3486 (fig6800to6809dumb):01733 FDB SEMIS
1743 (fig6800to6809dumb):01734 *
1744 (fig6800to6809dumb):01735 * ======>> 90 <<
1745 38DE 81 (fig6800to6809dumb):01736 FCB $81 =
1746 38DF BD (fig6800to6809dumb):01737 FCB $BD
1747 38E0 38D2 (fig6800to6809dumb):01738 FDB SUB-4
1748 38E2 368738D634F9 (fig6800to6809dumb):01739 EQUAL FDB DOCOL,SUB,ZEQU
1749 38E8 3486 (fig6800to6809dumb):01740 FDB SEMIS
1750 (fig6800to6809dumb):01741 *
1751 (fig6800to6809dumb):01742 * ======>> 91 <<
1752 38EA 81 (fig6800to6809dumb):01743 FCB $81 <
1753 38EB BC (fig6800to6809dumb):01744 FCB $BC
1754 38EC 38DE (fig6800to6809dumb):01745 FDB EQUAL-4
1755 38EE 38F0 (fig6800to6809dumb):01746 LESS FDB *+2
1756 38F0 3502 (fig6800to6809dumb):01747 PULS A
1757 38F2 3504 (fig6800to6809dumb):01748 PULS B
1758 38F4 1F41 (fig6800to6809dumb):01749 TFR S,X
1759 38F6 A100 (fig6800to6809dumb):01750 CMPA 0,X
1760 38F8 3261 (fig6800to6809dumb):01751 LEAS 1,S
1761 38FA 2E09 (fig6800to6809dumb):01752 BGT LESST
1762 38FC 2604 (fig6800to6809dumb):01753 BNE LESSF
1763 38FE E101 (fig6800to6809dumb):01754 CMPB 1,X
1764 3900 2203 (fig6800to6809dumb):01755 BHI LESST
1765 3902 5F (fig6800to6809dumb):01756 LESSF CLRB
1766 3903 2002 (fig6800to6809dumb):01757 BRA LESSX
1767 3905 C601 (fig6800to6809dumb):01758 LESST LDB #1
1768 3907 4F (fig6800to6809dumb):01759 LESSX CLRA
1769 3908 3261 (fig6800to6809dumb):01760 LEAS 1,S
1770 390A 7E3034 (fig6800to6809dumb):01761 JMP PUSHBA
1771 (fig6800to6809dumb):01762 *
1772 (fig6800to6809dumb):01763 * ======>> 92 <<
1773 390D 81 (fig6800to6809dumb):01764 FCB $81 >
1774 390E BE (fig6800to6809dumb):01765 FCB $BE
1775 390F 38EA (fig6800to6809dumb):01766 FDB LESS-4
1776 3911 368735BE38EE (fig6800to6809dumb):01767 GREAT FDB DOCOL,SWAP,LESS
1777 3917 3486 (fig6800to6809dumb):01768 FDB SEMIS
1778 (fig6800to6809dumb):01769 *
1779 (fig6800to6809dumb):01770 * ======>> 93 <<
1780 3919 83 (fig6800to6809dumb):01771 FCB $83
1781 391A 524F (fig6800to6809dumb):01772 FCC 'RO' ; 'ROT'
1782 391C D4 (fig6800to6809dumb):01773 FCB $D4
1783 391D 390D (fig6800to6809dumb):01774 FDB GREAT-4
1784 391F 368734BA35BE34D4 (fig6800to6809dumb):01775 ROT FDB DOCOL,TOR,SWAP,FROMR,SWAP
1786 3929 3486 (fig6800to6809dumb):01776 FDB SEMIS
1787 (fig6800to6809dumb):01777 *
1788 (fig6800to6809dumb):01778 * ======>> 94 <<
1789 392B 85 (fig6800to6809dumb):01779 FCB $85
1790 392C 53504143 (fig6800to6809dumb):01780 FCC 'SPAC' ; 'SPACE'
1791 3930 C5 (fig6800to6809dumb):01781 FCB $C5
1792 3931 3919 (fig6800to6809dumb):01782 FDB ROT-6
1793 3933 36873730331D (fig6800to6809dumb):01783 SPACE FDB DOCOL,BL,EMIT
1794 3939 3486 (fig6800to6809dumb):01784 FDB SEMIS
1795 (fig6800to6809dumb):01785 *
1796 (fig6800to6809dumb):01786 * ======>> 95 <<
1797 393B 83 (fig6800to6809dumb):01787 FCB $83
1798 393C 4D49 (fig6800to6809dumb):01788 FCC 'MI' ; 'MIN'
1799 393E CE (fig6800to6809dumb):01789 FCB $CE
1800 393F 392B (fig6800to6809dumb):01790 FDB SPACE-8
1801 3941 3687359C359C3911 (fig6800to6809dumb):01791 MIN FDB DOCOL,OVER,OVER,GREAT,ZBRAN
1803 394B 0004 (fig6800to6809dumb):01792 FDB MIN2-*
1804 394D 35BE (fig6800to6809dumb):01793 FDB SWAP
1805 394F 35AE (fig6800to6809dumb):01794 MIN2 FDB DROP
1806 3951 3486 (fig6800to6809dumb):01795 FDB SEMIS
1807 (fig6800to6809dumb):01796 *
1808 (fig6800to6809dumb):01797 * ======>> 96 <<
1809 3953 83 (fig6800to6809dumb):01798 FCB $83
1810 3954 4D41 (fig6800to6809dumb):01799 FCC 'MA' ; 'MAX'
1811 3956 D8 (fig6800to6809dumb):01800 FCB $D8
1812 3957 393B (fig6800to6809dumb):01801 FDB MIN-6
1813 3959 3687359C359C38EE (fig6800to6809dumb):01802 MAX FDB DOCOL,OVER,OVER,LESS,ZBRAN
1815 3963 0004 (fig6800to6809dumb):01803 FDB MAX2-*
1816 3965 35BE (fig6800to6809dumb):01804 FDB SWAP
1817 3967 35AE (fig6800to6809dumb):01805 MAX2 FDB DROP
1818 3969 3486 (fig6800to6809dumb):01806 FDB SEMIS
1819 (fig6800to6809dumb):01807 *
1820 (fig6800to6809dumb):01808 * ======>> 97 <<
1821 396B 84 (fig6800to6809dumb):01809 FCB $84
1822 396C 2D4455 (fig6800to6809dumb):01810 FCC '-DU' ; '-DUP'
1823 396F D0 (fig6800to6809dumb):01811 FCB $D0
1824 3970 3953 (fig6800to6809dumb):01812 FDB MAX-6
1825 3972 368735DE3148 (fig6800to6809dumb):01813 DDUP FDB DOCOL,DUP,ZBRAN
1826 3978 0004 (fig6800to6809dumb):01814 FDB DDUP2-*
1827 397A 35DE (fig6800to6809dumb):01815 FDB DUP
1828 397C 3486 (fig6800to6809dumb):01816 DDUP2 FDB SEMIS
1829 (fig6800to6809dumb):01817 *
1830 (fig6800to6809dumb):01818 * ######>> screen 39 <<
1831 (fig6800to6809dumb):01819 * ======>> 98 <<
1832 397E 88 (fig6800to6809dumb):01820 FCB $88
1833 397F 54524156455253 (fig6800to6809dumb):01821 FCC 'TRAVERS' ; 'TRAVERSE'
1834 3986 C5 (fig6800to6809dumb):01822 FCB $C5
1835 3987 396B (fig6800to6809dumb):01823 FDB DDUP-7
1836 3989 368735BE (fig6800to6809dumb):01824 TRAV FDB DOCOL,SWAP
1837 398D 359C3526310E (fig6800to6809dumb):01825 TRAV2 FDB OVER,PLUS,CLITER
1838 3993 7F (fig6800to6809dumb):01826 FCB $7F
1839 3994 359C363638EE3148 (fig6800to6809dumb):01827 FDB OVER,CAT,LESS,ZBRAN
1840 399C FFF1 (fig6800to6809dumb):01828 FDB TRAV2-*
1841 399E 35BE35AE (fig6800to6809dumb):01829 FDB SWAP,DROP
1842 39A2 3486 (fig6800to6809dumb):01830 FDB SEMIS
1843 (fig6800to6809dumb):01831 *
1844 (fig6800to6809dumb):01832 * ======>> 99 <<
1845 39A4 86 (fig6800to6809dumb):01833 FCB $86
1846 39A5 4C41544553 (fig6800to6809dumb):01834 FCC 'LATES' ; 'LATEST'
1847 39AA D4 (fig6800to6809dumb):01835 FCB $D4
1848 39AB 397E (fig6800to6809dumb):01836 FDB TRAV-11
1849 39AD 3687381E36243624 (fig6800to6809dumb):01837 LATEST FDB DOCOL,CURENT,AT,AT
1850 39B5 3486 (fig6800to6809dumb):01838 FDB SEMIS
1851 (fig6800to6809dumb):01839 *
1852 (fig6800to6809dumb):01840 * ======>> 100 <<
1853 39B7 83 (fig6800to6809dumb):01841 FCB $83
1854 39B8 4C46 (fig6800to6809dumb):01842 FCC 'LF' ; 'LFA'
1855 39BA C1 (fig6800to6809dumb):01843 FCB $C1
1856 39BB 39A4 (fig6800to6809dumb):01844 FDB LATEST-9
1857 39BD 3687310E (fig6800to6809dumb):01845 LFA FDB DOCOL,CLITER
1858 39C1 04 (fig6800to6809dumb):01846 FCB 4
1859 39C2 38D6 (fig6800to6809dumb):01847 FDB SUB
1860 39C4 3486 (fig6800to6809dumb):01848 FDB SEMIS
1861 (fig6800to6809dumb):01849 *
1862 (fig6800to6809dumb):01850 * ======>> 101 <<
1863 39C6 83 (fig6800to6809dumb):01851 FCB $83
1864 39C7 4346 (fig6800to6809dumb):01852 FCC 'CF' ; 'CFA'
1865 39C9 C1 (fig6800to6809dumb):01853 FCB $C1
1866 39CA 39B7 (fig6800to6809dumb):01854 FDB LFA-6
1867 39CC 3687371F38D6 (fig6800to6809dumb):01855 CFA FDB DOCOL,TWO,SUB
1868 39D2 3486 (fig6800to6809dumb):01856 FDB SEMIS
1869 (fig6800to6809dumb):01857 *
1870 (fig6800to6809dumb):01858 * ======>> 102 <<
1871 39D4 83 (fig6800to6809dumb):01859 FCB $83
1872 39D5 4E46 (fig6800to6809dumb):01860 FCC 'NF' ; 'NFA'
1873 39D7 C1 (fig6800to6809dumb):01861 FCB $C1
1874 39D8 39C6 (fig6800to6809dumb):01862 FDB CFA-6
1875 39DA 3687310E (fig6800to6809dumb):01863 NFA FDB DOCOL,CLITER
1876 39DE 05 (fig6800to6809dumb):01864 FCB 5
1877 39DF 38D6371735603989 (fig6800to6809dumb):01865 FDB SUB,ONE,MINUS,TRAV
1878 39E7 3486 (fig6800to6809dumb):01866 FDB SEMIS
1879 (fig6800to6809dumb):01867 *
1880 (fig6800to6809dumb):01868 * ======>> 103 <<
1881 39E9 83 (fig6800to6809dumb):01869 FCB $83
1882 39EA 5046 (fig6800to6809dumb):01870 FCC 'PF' ; 'PFA'
1883 39EC C1 (fig6800to6809dumb):01871 FCB $C1
1884 39ED 39D4 (fig6800to6809dumb):01872 FDB NFA-6
1885 39EF 368737173989310E (fig6800to6809dumb):01873 PFA FDB DOCOL,ONE,TRAV,CLITER
1886 39F7 05 (fig6800to6809dumb):01874 FCB 5
1887 39F8 3526 (fig6800to6809dumb):01875 FDB PLUS
1888 39FA 3486 (fig6800to6809dumb):01876 FDB SEMIS
1889 (fig6800to6809dumb):01877 *
1890 (fig6800to6809dumb):01878 * ######>> screen 40 <<
1891 (fig6800to6809dumb):01879 * ======>> 104 <<
1892 39FC 84 (fig6800to6809dumb):01880 FCB $84
1893 39FD 214353 (fig6800to6809dumb):01881 FCC '!CS' ; '!CSP'
1894 3A00 D0 (fig6800to6809dumb):01882 FCB $D0
1895 3A01 39E9 (fig6800to6809dumb):01883 FDB PFA-6
1896 3A03 368734543853364A (fig6800to6809dumb):01884 SCSP FDB DOCOL,SPAT,CSP,STORE
1897 3A0B 3486 (fig6800to6809dumb):01885 FDB SEMIS
1898 (fig6800to6809dumb):01886 *
1899 (fig6800to6809dumb):01887 * ======>> 105 <<
1900 3A0D 86 (fig6800to6809dumb):01888 FCB $86
1901 3A0E 3F4552524F (fig6800to6809dumb):01889 FCC '?ERRO' ; '?ERROR'
1902 3A13 D2 (fig6800to6809dumb):01890 FCB $D2
1903 3A14 39FC (fig6800to6809dumb):01891 FDB SCSP-7
1904 3A16 368735BE3148 (fig6800to6809dumb):01892 QERR FDB DOCOL,SWAP,ZBRAN
1905 3A1C 0008 (fig6800to6809dumb):01893 FDB QERR2-*
1906 3A1E 3EE4313C (fig6800to6809dumb):01894 FDB ERROR,BRAN
1907 3A22 0004 (fig6800to6809dumb):01895 FDB QERR3-*
1908 3A24 35AE (fig6800to6809dumb):01896 QERR2 FDB DROP
1909 3A26 3486 (fig6800to6809dumb):01897 QERR3 FDB SEMIS
1910 (fig6800to6809dumb):01898 *
1911 (fig6800to6809dumb):01899 * ======>> 106 <<
1912 3A28 85 (fig6800to6809dumb):01900 FCB $85
1913 3A29 3F434F4D (fig6800to6809dumb):01901 FCC '?COM' ; '?COMP'
1914 3A2D D0 (fig6800to6809dumb):01902 FCB $D0
1915 3A2E 3A0D (fig6800to6809dumb):01903 FDB QERR-9
1916 3A30 3687382A362434F9 (fig6800to6809dumb):01904 QCOMP FDB DOCOL,STATE,AT,ZEQU,CLITER
1918 3A3A 11 (fig6800to6809dumb):01905 FCB $11
1919 3A3B 3A16 (fig6800to6809dumb):01906 FDB QERR
1920 3A3D 3486 (fig6800to6809dumb):01907 FDB SEMIS
1921 (fig6800to6809dumb):01908 *
1922 (fig6800to6809dumb):01909 * ======>> 107 <<
1923 3A3F 85 (fig6800to6809dumb):01910 FCB $85
1924 3A40 3F455845 (fig6800to6809dumb):01911 FCC '?EXE' ; '?EXEC'
1925 3A44 C3 (fig6800to6809dumb):01912 FCB $C3
1926 3A45 3A28 (fig6800to6809dumb):01913 FDB QCOMP-8
1927 3A47 3687382A3624310E (fig6800to6809dumb):01914 QEXEC FDB DOCOL,STATE,AT,CLITER
1928 3A4F 12 (fig6800to6809dumb):01915 FCB $12
1929 3A50 3A16 (fig6800to6809dumb):01916 FDB QERR
1930 3A52 3486 (fig6800to6809dumb):01917 FDB SEMIS
1931 (fig6800to6809dumb):01918 *
1932 (fig6800to6809dumb):01919 * ======>> 108 <<
1933 3A54 86 (fig6800to6809dumb):01920 FCB $86
1934 3A55 3F50414952 (fig6800to6809dumb):01921 FCC '?PAIR' ; '?PAIRS'
1935 3A5A D3 (fig6800to6809dumb):01922 FCB $D3
1936 3A5B 3A3F (fig6800to6809dumb):01923 FDB QEXEC-8
1937 3A5D 368738D6310E (fig6800to6809dumb):01924 QPAIRS FDB DOCOL,SUB,CLITER
1938 3A63 13 (fig6800to6809dumb):01925 FCB $13
1939 3A64 3A16 (fig6800to6809dumb):01926 FDB QERR
1940 3A66 3486 (fig6800to6809dumb):01927 FDB SEMIS
1941 (fig6800to6809dumb):01928 *
1942 (fig6800to6809dumb):01929 * ======>> 109 <<
1943 3A68 84 (fig6800to6809dumb):01930 FCB $84
1944 3A69 3F4353 (fig6800to6809dumb):01931 FCC '?CS' ; '?CSP'
1945 3A6C D0 (fig6800to6809dumb):01932 FCB $D0
1946 3A6D 3A54 (fig6800to6809dumb):01933 FDB QPAIRS-9
1947 3A6F 3687345438533624 (fig6800to6809dumb):01934 QCSP FDB DOCOL,SPAT,CSP,AT,SUB,CLITER
1949 3A7B 14 (fig6800to6809dumb):01935 FCB $14
1950 3A7C 3A16 (fig6800to6809dumb):01936 FDB QERR
1951 3A7E 3486 (fig6800to6809dumb):01937 FDB SEMIS
1952 (fig6800to6809dumb):01938 *
1953 (fig6800to6809dumb):01939 * ======>> 110 <<
1954 3A80 88 (fig6800to6809dumb):01940 FCB $88
1955 3A81 3F4C4F4144494E (fig6800to6809dumb):01941 FCC '?LOADIN' ; '?LOADING'
1956 3A88 C7 (fig6800to6809dumb):01942 FCB $C7
1957 3A89 3A68 (fig6800to6809dumb):01943 FDB QCSP-7
1958 3A8B 368737D8362434F9 (fig6800to6809dumb):01944 QLOAD FDB DOCOL,BLK,AT,ZEQU,CLITER
1960 3A95 16 (fig6800to6809dumb):01945 FCB $16
1961 3A96 3A16 (fig6800to6809dumb):01946 FDB QERR
1962 3A98 3486 (fig6800to6809dumb):01947 FDB SEMIS
1963 (fig6800to6809dumb):01948 *
1964 (fig6800to6809dumb):01949 * ######>> screen 41 <<
1965 (fig6800to6809dumb):01950 * ======>> 111 <<
1966 3A9A 87 (fig6800to6809dumb):01951 FCB $87
1967 3A9B 434F4D50494C (fig6800to6809dumb):01952 FCC 'COMPIL' ; 'COMPILE'
1968 3AA1 C5 (fig6800to6809dumb):01953 FCB $C5
1969 3AA2 3A80 (fig6800to6809dumb):01954 FDB QLOAD-11
1970 3AA4 36873A3034D4388A (fig6800to6809dumb):01955 COMPIL FDB DOCOL,QCOMP,FROMR,TWOP,DUP,TOR,AT,COMMA
1972 3AB4 3486 (fig6800to6809dumb):01956 FDB SEMIS
1973 (fig6800to6809dumb):01957 *
1974 (fig6800to6809dumb):01958 * ======>> 112 <<
1975 3AB6 C1 (fig6800to6809dumb):01959 FCB $C1 [ immediate
1976 3AB7 DB (fig6800to6809dumb):01960 FCB $DB
1977 3AB8 3A9A (fig6800to6809dumb):01961 FDB COMPIL-10
1978 3ABA 3687370F382A364A (fig6800to6809dumb):01962 LBRAK FDB DOCOL,ZERO,STATE,STORE
1979 3AC2 3486 (fig6800to6809dumb):01963 FDB SEMIS
1980 (fig6800to6809dumb):01964 *
1981 (fig6800to6809dumb):01965 * ======>> 113 <<
1982 3AC4 81 (fig6800to6809dumb):01966 FCB $81 ]
1983 3AC5 DD (fig6800to6809dumb):01967 FCB $DD
1984 3AC6 3AB6 (fig6800to6809dumb):01968 FDB LBRAK-4
1985 3AC8 3687310E (fig6800to6809dumb):01969 RBRAK FDB DOCOL,CLITER
1986 3ACC C0 (fig6800to6809dumb):01970 FCB $C0
1987 3ACD 382A364A (fig6800to6809dumb):01971 FDB STATE,STORE
1988 3AD1 3486 (fig6800to6809dumb):01972 FDB SEMIS
1989 (fig6800to6809dumb):01973 *
1990 (fig6800to6809dumb):01974 * ======>> 114 <<
1991 3AD3 86 (fig6800to6809dumb):01975 FCB $86
1992 3AD4 534D554447 (fig6800to6809dumb):01976 FCC 'SMUDG' ; 'SMUDGE'
1993 3AD9 C5 (fig6800to6809dumb):01977 FCB $C5
1994 3ADA 3AC4 (fig6800to6809dumb):01978 FDB RBRAK-4
1995 3ADC 368739AD310E (fig6800to6809dumb):01979 SMUDGE FDB DOCOL,LATEST,CLITER
1996 3AE2 20 (fig6800to6809dumb):01980 FCB $20
1997 3AE3 3612 (fig6800to6809dumb):01981 FDB TOGGLE
1998 3AE5 3486 (fig6800to6809dumb):01982 FDB SEMIS
1999 (fig6800to6809dumb):01983 *
2000 (fig6800to6809dumb):01984 * ======>> 115 <<
2001 3AE7 83 (fig6800to6809dumb):01985 FCB $83
2002 3AE8 4845 (fig6800to6809dumb):01986 FCC 'HE' ; 'HEX'
2003 3AEA D8 (fig6800to6809dumb):01987 FCB $D8
2004 3AEB 3AD3 (fig6800to6809dumb):01988 FDB SMUDGE-9
2005 3AED 3687 (fig6800to6809dumb):01989 HEX FDB DOCOL
2006 3AEF 310E (fig6800to6809dumb):01990 FDB CLITER
2007 3AF1 10 (fig6800to6809dumb):01991 FCB 16
2008 3AF2 3835364A (fig6800to6809dumb):01992 FDB BASE,STORE
2009 3AF6 3486 (fig6800to6809dumb):01993 FDB SEMIS
2010 (fig6800to6809dumb):01994 *
2011 (fig6800to6809dumb):01995 * ======>> 116 <<
2012 3AF8 87 (fig6800to6809dumb):01996 FCB $87
2013 3AF9 444543494D41 (fig6800to6809dumb):01997 FCC 'DECIMA' ; 'DECIMAL'
2014 3AFF CC (fig6800to6809dumb):01998 FCB $CC
2015 3B00 3AE7 (fig6800to6809dumb):01999 FDB HEX-6
2016 3B02 3687 (fig6800to6809dumb):02000 DECIM FDB DOCOL
2017 3B04 310E (fig6800to6809dumb):02001 FDB CLITER
2018 3B06 0A (fig6800to6809dumb):02002 FCB 10 note: hex "A"
2019 3B07 3835364A (fig6800to6809dumb):02003 FDB BASE,STORE
2020 3B0B 3486 (fig6800to6809dumb):02004 FDB SEMIS
2021 (fig6800to6809dumb):02005 *
2022 (fig6800to6809dumb):02006 * ######>> screen 42 <<
2023 (fig6800to6809dumb):02007 * ======>> 117 <<
2024 3B0D 87 (fig6800to6809dumb):02008 FCB $87
2025 3B0E 283B434F4445 (fig6800to6809dumb):02009 FCC '(;CODE' ; '(;CODE)'
2026 3B14 A9 (fig6800to6809dumb):02010 FCB $A9
2027 3B15 3AF8 (fig6800to6809dumb):02011 FDB DECIM-10
2028 3B17 368734D4388A39AD (fig6800to6809dumb):02012 PSCODE FDB DOCOL,FROMR,TWOP,LATEST,PFA,CFA,STORE
2030 3B25 3486 (fig6800to6809dumb):02013 FDB SEMIS
2031 (fig6800to6809dumb):02014 *
2032 (fig6800to6809dumb):02015 * ======>> 118 <<
2033 3B27 C5 (fig6800to6809dumb):02016 FCB $C5 immediate
2034 3B28 3B434F44 (fig6800to6809dumb):02017 FCC ';COD' ; ';CODE'
2035 3B2C C5 (fig6800to6809dumb):02018 FCB $C5
2036 3B2D 3B0D (fig6800to6809dumb):02019 FDB PSCODE-10
2037 3B2F 36873A6F3AA43B17 (fig6800to6809dumb):02020 SEMIC FDB DOCOL,QCSP,COMPIL,PSCODE,SMUDGE,LBRAK,QSTACK
2039 3B3D 3486 (fig6800to6809dumb):02021 FDB SEMIS
2040 (fig6800to6809dumb):02022 * note: "QSTACK" will be replaced by "ASSEMBLER" later
2041 (fig6800to6809dumb):02023 *
2042 (fig6800to6809dumb):02024 * ######>> screen 43 <<
2043 (fig6800to6809dumb):02025 * ======>> 119 <<
2044 3B3F 87 (fig6800to6809dumb):02026 FCB $87
2045 3B40 3C4255494C44 (fig6800to6809dumb):02027 FCC '<BUILD' ; '<BUILDS'
2046 3B46 D3 (fig6800to6809dumb):02028 FCB $D3
2047 3B47 3B27 (fig6800to6809dumb):02029 FDB SEMIC-8
2048 3B49 3687370F36C2 (fig6800to6809dumb):02030 BUILDS FDB DOCOL,ZERO,CON
2049 3B4F 3486 (fig6800to6809dumb):02031 FDB SEMIS
2050 (fig6800to6809dumb):02032 *
2051 (fig6800to6809dumb):02033 * ======>> 120 <<
2052 3B51 85 (fig6800to6809dumb):02034 FCB $85
2053 3B52 444F4553 (fig6800to6809dumb):02035 FCC 'DOES' ; 'DOES>'
2054 3B56 BE (fig6800to6809dumb):02036 FCB $BE
2055 3B57 3B3F (fig6800to6809dumb):02037 FDB BUILDS-10
2056 3B59 368734D4388A39AD (fig6800to6809dumb):02038 DOES FDB DOCOL,FROMR,TWOP,LATEST,PFA,STORE
2058 3B65 3B17 (fig6800to6809dumb):02039 FDB PSCODE
2059 3B67 9612 (fig6800to6809dumb):02040 DODOES LDA IP
2060 3B69 D613 (fig6800to6809dumb):02041 LDB IP+1
2061 3B6B 9E14 (fig6800to6809dumb):02042 LDX RP make room on return stack
2062 3B6D 301F (fig6800to6809dumb):02043 LEAX -1,X
2063 3B6F 301F (fig6800to6809dumb):02044 LEAX -1,X
2064 3B71 9F14 (fig6800to6809dumb):02045 STX RP
2065 3B73 A702 (fig6800to6809dumb):02046 STA 2,X push return address
2066 3B75 E703 (fig6800to6809dumb):02047 STB 3,X
2067 3B77 9E10 (fig6800to6809dumb):02048 LDX W get addr of pointer to run-time code
2068 3B79 3001 (fig6800to6809dumb):02049 LEAX 1,X
2069 3B7B 3001 (fig6800to6809dumb):02050 LEAX 1,X
2070 3B7D 9F00 (fig6800to6809dumb):02051 STX N stash it in scratch area
2071 3B7F AE00 (fig6800to6809dumb):02052 LDX 0,X get new IP
2072 3B81 9F12 (fig6800to6809dumb):02053 STX IP
2073 3B83 4F (fig6800to6809dumb):02054 CLRA get address of parameter
2074 3B84 C602 (fig6800to6809dumb):02055 LDB #2
2075 3B86 DB01 (fig6800to6809dumb):02056 ADDB N+1
2076 3B88 9900 (fig6800to6809dumb):02057 ADCA N
2077 3B8A 3404 (fig6800to6809dumb):02058 PSHS B and push it on data stack
2078 3B8C 3402 (fig6800to6809dumb):02059 PSHS A
2079 3B8E 7E3040 (fig6800to6809dumb):02060 JMP NEXT2
2080 (fig6800to6809dumb):02061 *
2081 (fig6800to6809dumb):02062 * ######>> screen 44 <<
2082 (fig6800to6809dumb):02063 * ======>> 121 <<
2083 3B91 85 (fig6800to6809dumb):02064 FCB $85
2084 3B92 434F554E (fig6800to6809dumb):02065 FCC 'COUN' ; 'COUNT'
2085 3B96 D4 (fig6800to6809dumb):02066 FCB $D4
2086 3B97 3B51 (fig6800to6809dumb):02067 FDB DOES-8
2087 3B99 368735DE387D35BE (fig6800to6809dumb):02068 COUNT FDB DOCOL,DUP,ONEP,SWAP,CAT
2089 3BA3 3486 (fig6800to6809dumb):02069 FDB SEMIS
2090 (fig6800to6809dumb):02070 *
2091 (fig6800to6809dumb):02071 * ======>> 122 <<
2092 3BA5 84 (fig6800to6809dumb):02072 FCB $84
2093 3BA6 545950 (fig6800to6809dumb):02073 FCC 'TYP' ; 'TYPE'
2094 3BA9 C5 (fig6800to6809dumb):02074 FCB $C5
2095 3BAA 3B91 (fig6800to6809dumb):02075 FDB COUNT-8
2096 3BAC 368739723148 (fig6800to6809dumb):02076 TYPE FDB DOCOL,DDUP,ZBRAN
2097 3BB2 0018 (fig6800to6809dumb):02077 FDB TYPE3-*
2098 3BB4 359C352635BE31C7 (fig6800to6809dumb):02078 FDB OVER,PLUS,SWAP,XDO
2099 3BBC 31EC3636331D317B (fig6800to6809dumb):02079 TYPE2 FDB I,CAT,EMIT,XLOOP
2100 3BC4 FFF8 (fig6800to6809dumb):02080 FDB TYPE2-*
2101 3BC6 313C (fig6800to6809dumb):02081 FDB BRAN
2102 3BC8 0004 (fig6800to6809dumb):02082 FDB TYPE4-*
2103 3BCA 35AE (fig6800to6809dumb):02083 TYPE3 FDB DROP
2104 3BCC 3486 (fig6800to6809dumb):02084 TYPE4 FDB SEMIS
2105 (fig6800to6809dumb):02085 *
2106 (fig6800to6809dumb):02086 * ======>> 123 <<
2107 3BCE 89 (fig6800to6809dumb):02087 FCB $89
2108 3BCF 2D545241494C494E (fig6800to6809dumb):02088 FCC '-TRAILIN' ; '-TRAILING'
2109 3BD7 C7 (fig6800to6809dumb):02089 FCB $C7
2110 3BD8 3BA5 (fig6800to6809dumb):02090 FDB TYPE-7
2111 3BDA 368735DE370F31C7 (fig6800to6809dumb):02091 DTRAIL FDB DOCOL,DUP,ZERO,XDO
2112 3BE2 359C359C35263717 (fig6800to6809dumb):02092 DTRAL2 FDB OVER,OVER,PLUS,ONE,SUB,CAT,BL
2114 3BF0 38D63148 (fig6800to6809dumb):02093 FDB SUB,ZBRAN
2115 3BF4 0008 (fig6800to6809dumb):02094 FDB DTRAL3-*
2116 3BF6 34A6313C (fig6800to6809dumb):02095 FDB LEAVE,BRAN
2117 3BFA 0006 (fig6800to6809dumb):02096 FDB DTRAL4-*
2118 3BFC 371738D6 (fig6800to6809dumb):02097 DTRAL3 FDB ONE,SUB
2119 3C00 317B (fig6800to6809dumb):02098 DTRAL4 FDB XLOOP
2120 3C02 FFE0 (fig6800to6809dumb):02099 FDB DTRAL2-*
2121 3C04 3486 (fig6800to6809dumb):02100 FDB SEMIS
2122 (fig6800to6809dumb):02101 *
2123 (fig6800to6809dumb):02102 * ======>> 124 <<
2124 3C06 84 (fig6800to6809dumb):02103 FCB $84
2125 3C07 282E22 (fig6800to6809dumb):02104 FCC '(."' ; '(.")'
2126 3C0A A9 (fig6800to6809dumb):02105 FCB $A9
2127 3C0B 3BCE (fig6800to6809dumb):02106 FDB DTRAIL-12
2128 3C0D 368734E9388A3B99 (fig6800to6809dumb):02107 PDOTQ FDB DOCOL,R,TWOP,COUNT,DUP,ONEP
2130 3C19 34D4352634BA3BAC (fig6800to6809dumb):02108 FDB FROMR,PLUS,TOR,TYPE
2131 3C21 3486 (fig6800to6809dumb):02109 FDB SEMIS
2132 (fig6800to6809dumb):02110 *
2133 (fig6800to6809dumb):02111 * ======>> 125 <<
2134 3C23 C2 (fig6800to6809dumb):02112 FCB $C2 immediate
2135 3C24 2E (fig6800to6809dumb):02113 FCC '.' ; '."'
2136 3C25 A2 (fig6800to6809dumb):02114 FCB $A2
2137 3C26 3C06 (fig6800to6809dumb):02115 FDB PDOTQ-7
2138 3C28 3687 (fig6800to6809dumb):02116 DOTQ FDB DOCOL
2139 3C2A 310E (fig6800to6809dumb):02117 FDB CLITER
2140 3C2C 22 (fig6800to6809dumb):02118 FCB $22 ascii quote
2141 3C2D 382A36243148 (fig6800to6809dumb):02119 FDB STATE,AT,ZBRAN
2142 3C33 0014 (fig6800to6809dumb):02120 FDB DOTQ1-*
2143 3C35 3AA43C0D3DB9 (fig6800to6809dumb):02121 FDB COMPIL,PDOTQ,WORD
2144 3C3B 38993636387D38A9 (fig6800to6809dumb):02122 FDB HERE,CAT,ONEP,ALLOT,BRAN
2146 3C45 000A (fig6800to6809dumb):02123 FDB DOTQ2-*
2147 3C47 3DB938993B993BAC (fig6800to6809dumb):02124 DOTQ1 FDB WORD,HERE,COUNT,TYPE
2148 3C4F 3486 (fig6800to6809dumb):02125 DOTQ2 FDB SEMIS
2149 (fig6800to6809dumb):02126 *
2150 (fig6800to6809dumb):02127 * ######>> screen 45 <<
2151 (fig6800to6809dumb):02128 * ======>> 126 <<== MACHINE DEPENDENT
2152 3C51 86 (fig6800to6809dumb):02129 FCB $86
2153 3C52 3F53544143 (fig6800to6809dumb):02130 FCC '?STAC' ; '?STACK'
2154 3C57 CB (fig6800to6809dumb):02131 FCB $CB
2155 3C58 3C23 (fig6800to6809dumb):02132 FDB DOTQ-5
2156 3C5A 3687310E (fig6800to6809dumb):02133 QSTACK FDB DOCOL,CLITER
2157 3C5E 12 (fig6800to6809dumb):02134 FCB $12
2158 3C5F 376E3624371F38D6 (fig6800to6809dumb):02135 FDB PORIG,AT,TWO,SUB,SPAT,LESS,ONE
2160 3C6D 3A16 (fig6800to6809dumb):02136 FDB QERR
2161 (fig6800to6809dumb):02137 * prints 'empty stack'
2162 (fig6800to6809dumb):02138 *
2163 3C6F 3454 (fig6800to6809dumb):02139 QSTAC2 FDB SPAT
2164 (fig6800to6809dumb):02140 * Here, we compare with a value at least 128
2165 (fig6800to6809dumb):02141 * higher than dict. ptr. (DP)
2166 3C71 3899310E (fig6800to6809dumb):02142 FDB HERE,CLITER
2167 3C75 80 (fig6800to6809dumb):02143 FCB $80
2168 3C76 352638EE3148 (fig6800to6809dumb):02144 FDB PLUS,LESS,ZBRAN
2169 3C7C 0006 (fig6800to6809dumb):02145 FDB QSTAC3-*
2170 3C7E 371F (fig6800to6809dumb):02146 FDB TWO
2171 3C80 3A16 (fig6800to6809dumb):02147 FDB QERR
2172 (fig6800to6809dumb):02148 * prints 'full stack'
2173 (fig6800to6809dumb):02149 *
2174 3C82 3486 (fig6800to6809dumb):02150 QSTAC3 FDB SEMIS
2175 (fig6800to6809dumb):02151 *
2176 (fig6800to6809dumb):02152 * ======>> 127 << this word's function
2177 (fig6800to6809dumb):02153 * is done by ?STACK in this version
2178 (fig6800to6809dumb):02154 * FCB $85
2179 (fig6800to6809dumb):02155 * FCC 4,?FREE
2180 (fig6800to6809dumb):02156 * FCB $C5
2181 (fig6800to6809dumb):02157 * FDB QSTACK-9
2182 (fig6800to6809dumb):02158 *QFREE FDB DOCOL,SPAT,HERE,CLITER
2183 (fig6800to6809dumb):02159 * FCB $80
2184 (fig6800to6809dumb):02160 * FDB PLUS,LESS,TWO,QERR,SEMIS
2185 (fig6800to6809dumb):02161 *
2186 (fig6800to6809dumb):02162 * ######>> screen 46 <<
2187 (fig6800to6809dumb):02163 * ======>> 128 <<
2188 3C84 86 (fig6800to6809dumb):02164 FCB $86
2189 3C85 4558504543 (fig6800to6809dumb):02165 FCC 'EXPEC' ; 'EXPECT'
2190 3C8A D4 (fig6800to6809dumb):02166 FCB $D4
2191 3C8B 3C51 (fig6800to6809dumb):02167 FDB QSTACK-9
2192 3C8D 3687359C3526359C (fig6800to6809dumb):02168 EXPECT FDB DOCOL,OVER,PLUS,OVER,XDO
2194 3C97 333935DE310E (fig6800to6809dumb):02169 EXPEC2 FDB KEY,DUP,CLITER
2195 3C9D 0E (fig6800to6809dumb):02170 FCB $0E
2196 3C9E 376E362438E23148 (fig6800to6809dumb):02171 FDB PORIG,AT,EQUAL,ZBRAN
2197 3CA6 001F (fig6800to6809dumb):02172 FDB EXPEC3-*
2198 3CA8 35AE310E (fig6800to6809dumb):02173 FDB DROP,CLITER
2199 3CAC 08 (fig6800to6809dumb):02174 FCB 8 ( backspace character to emit )
2200 3CAD 359C31EC38E235DE (fig6800to6809dumb):02175 FDB OVER,I,EQUAL,DUP,FROMR,TWO,SUB,PLUS
2202 3CBD 34BA38D6313C (fig6800to6809dumb):02176 FDB TOR,SUB,BRAN
2203 3CC3 0027 (fig6800to6809dumb):02177 FDB EXPEC6-*
2204 3CC5 35DE310E (fig6800to6809dumb):02178 EXPEC3 FDB DUP,CLITER
2205 3CC9 0D (fig6800to6809dumb):02179 FCB $D ( carriage return )
2206 3CCA 38E23148 (fig6800to6809dumb):02180 FDB EQUAL,ZBRAN
2207 3CCE 000E (fig6800to6809dumb):02181 FDB EXPEC4-*
2208 3CD0 34A635AE3730370F (fig6800to6809dumb):02182 FDB LEAVE,DROP,BL,ZERO,BRAN
2210 3CDA 0004 (fig6800to6809dumb):02183 FDB EXPEC5-*
2211 3CDC 35DE (fig6800to6809dumb):02184 EXPEC4 FDB DUP
2212 3CDE 31EC365C370F31EC (fig6800to6809dumb):02185 EXPEC5 FDB I,CSTORE,ZERO,I,ONEP,STORE
2214 3CEA 331D317B (fig6800to6809dumb):02186 EXPEC6 FDB EMIT,XLOOP
2215 3CEE FFA9 (fig6800to6809dumb):02187 FDB EXPEC2-*
2216 3CF0 35AE (fig6800to6809dumb):02188 FDB DROP
2217 3CF2 3486 (fig6800to6809dumb):02189 FDB SEMIS
2218 (fig6800to6809dumb):02190 *
2219 (fig6800to6809dumb):02191 * ======>> 129 <<
2220 3CF4 85 (fig6800to6809dumb):02192 FCB $85
2221 3CF5 51554552 (fig6800to6809dumb):02193 FCC 'QUER' ; 'QUERY'
2222 3CF9 D9 (fig6800to6809dumb):02194 FCB $D9
2223 3CFA 3C84 (fig6800to6809dumb):02195 FDB EXPECT-9
2224 3CFC 3687379036243874 (fig6800to6809dumb):02196 QUERY FDB DOCOL,TIB,AT,COLUMS
2225 3D04 36243C8D370F37E1 (fig6800to6809dumb):02197 FDB AT,EXPECT,ZERO,IN,STORE
2227 3D0E 3486 (fig6800to6809dumb):02198 FDB SEMIS
2228 (fig6800to6809dumb):02199 *
2229 (fig6800to6809dumb):02200 * ======>> 130 <<
2230 3D10 C1 (fig6800to6809dumb):02201 FCB $C1 immediate < carriage return >
2231 3D11 80 (fig6800to6809dumb):02202 FCB $80
2232 3D12 3CF4 (fig6800to6809dumb):02203 FDB QUERY-8
2233 3D14 368737D836243148 (fig6800to6809dumb):02204 NULL FDB DOCOL,BLK,AT,ZBRAN
2234 3D1C 0026 (fig6800to6809dumb):02205 FDB NULL2-*
2235 3D1E 371737D835F0 (fig6800to6809dumb):02206 FDB ONE,BLK,PSTORE
2236 3D24 370F37E1364A37D8 (fig6800to6809dumb):02207 FDB ZERO,IN,STORE,BLK,AT,BSCR,MOD
2238 3D32 34F9 (fig6800to6809dumb):02208 FDB ZEQU
2239 (fig6800to6809dumb):02209 * check for end of screen
2240 3D34 3148 (fig6800to6809dumb):02210 FDB ZBRAN
2241 3D36 0008 (fig6800to6809dumb):02211 FDB NULL1-*
2242 3D38 3A4734D435AE (fig6800to6809dumb):02212 FDB QEXEC,FROMR,DROP
2243 3D3E 313C (fig6800to6809dumb):02213 NULL1 FDB BRAN
2244 3D40 0006 (fig6800to6809dumb):02214 FDB NULL3-*
2245 3D42 34D435AE (fig6800to6809dumb):02215 NULL2 FDB FROMR,DROP
2246 3D46 3486 (fig6800to6809dumb):02216 NULL3 FDB SEMIS
2247 (fig6800to6809dumb):02217 *
2248 (fig6800to6809dumb):02218 * ######>> screen 47 <<
2249 (fig6800to6809dumb):02219 * ======>> 133 <<
2250 3D48 84 (fig6800to6809dumb):02220 FCB $84
2251 3D49 46494C (fig6800to6809dumb):02221 FCC 'FIL' ; 'FILL'
2252 3D4C CC (fig6800to6809dumb):02222 FCB $CC
2253 3D4D 3D10 (fig6800to6809dumb):02223 FDB NULL-4
2254 3D4F 368735BE34BA359C (fig6800to6809dumb):02224 FILL FDB DOCOL,SWAP,TOR,OVER,CSTORE,DUP,ONEP
2256 3D5D 34D4371738D63370 (fig6800to6809dumb):02225 FDB FROMR,ONE,SUB,CMOVE
2257 3D65 3486 (fig6800to6809dumb):02226 FDB SEMIS
2258 (fig6800to6809dumb):02227 *
2259 (fig6800to6809dumb):02228 * ======>> 134 <<
2260 3D67 85 (fig6800to6809dumb):02229 FCB $85
2261 3D68 45524153 (fig6800to6809dumb):02230 FCC 'ERAS' ; 'ERASE'
2262 3D6C C5 (fig6800to6809dumb):02231 FCB $C5
2263 3D6D 3D48 (fig6800to6809dumb):02232 FDB FILL-7
2264 3D6F 3687370F3D4F (fig6800to6809dumb):02233 ERASE FDB DOCOL,ZERO,FILL
2265 3D75 3486 (fig6800to6809dumb):02234 FDB SEMIS
2266 (fig6800to6809dumb):02235 *
2267 (fig6800to6809dumb):02236 * ======>> 135 <<
2268 3D77 86 (fig6800to6809dumb):02237 FCB $86
2269 3D78 424C414E4B (fig6800to6809dumb):02238 FCC 'BLANK' ; 'BLANKS'
2270 3D7D D3 (fig6800to6809dumb):02239 FCB $D3
2271 3D7E 3D67 (fig6800to6809dumb):02240 FDB ERASE-8
2272 3D80 368737303D4F (fig6800to6809dumb):02241 BLANKS FDB DOCOL,BL,FILL
2273 3D86 3486 (fig6800to6809dumb):02242 FDB SEMIS
2274 (fig6800to6809dumb):02243 *
2275 (fig6800to6809dumb):02244 * ======>> 136 <<
2276 3D88 84 (fig6800to6809dumb):02245 FCB $84
2277 3D89 484F4C (fig6800to6809dumb):02246 FCC 'HOL' ; 'HOLD'
2278 3D8C C4 (fig6800to6809dumb):02247 FCB $C4
2279 3D8D 3D77 (fig6800to6809dumb):02248 FDB BLANKS-9
2280 3D8F 368730FDFFFF3866 (fig6800to6809dumb):02249 HOLD FDB DOCOL,LIT,$FFFF,HLD,PSTORE,HLD,AT,CSTORE
2282 3D9F 3486 (fig6800to6809dumb):02250 FDB SEMIS
2283 (fig6800to6809dumb):02251 *
2284 (fig6800to6809dumb):02252 * ======>> 137 <<
2285 3DA1 83 (fig6800to6809dumb):02253 FCB $83
2286 3DA2 5041 (fig6800to6809dumb):02254 FCC 'PA' ; 'PAD'
2287 3DA4 C4 (fig6800to6809dumb):02255 FCB $C4
2288 3DA5 3D88 (fig6800to6809dumb):02256 FDB HOLD-7
2289 3DA7 36873899310E (fig6800to6809dumb):02257 PAD FDB DOCOL,HERE,CLITER
2290 3DAD 44 (fig6800to6809dumb):02258 FCB $44
2291 3DAE 3526 (fig6800to6809dumb):02259 FDB PLUS
2292 3DB0 3486 (fig6800to6809dumb):02260 FDB SEMIS
2293 (fig6800to6809dumb):02261 *
2294 (fig6800to6809dumb):02262 * ######>> screen 48 <<
2295 (fig6800to6809dumb):02263 * ======>> 138 <<
2296 3DB2 84 (fig6800to6809dumb):02264 FCB $84
2297 3DB3 574F52 (fig6800to6809dumb):02265 FCC 'WOR' ; 'WORD'
2298 3DB6 C4 (fig6800to6809dumb):02266 FCB $C4
2299 3DB7 3DA1 (fig6800to6809dumb):02267 FDB PAD-6
2300 3DB9 368737D836243148 (fig6800to6809dumb):02268 WORD FDB DOCOL,BLK,AT,ZBRAN
2301 3DC1 000C (fig6800to6809dumb):02269 FDB WORD2-*
2302 3DC3 37D836244376313C (fig6800to6809dumb):02270 FDB BLK,AT,BLOCK,BRAN
2303 3DCB 0006 (fig6800to6809dumb):02271 FDB WORD3-*
2304 3DCD 37903624 (fig6800to6809dumb):02272 WORD2 FDB TIB,AT
2305 3DD1 37E13624352635BE (fig6800to6809dumb):02273 WORD3 FDB IN,AT,PLUS,SWAP,ENCLOS,HERE,CLITER
2307 3DDF 22 (fig6800to6809dumb):02274 FCB 34
2308 3DE0 3D8037E135F0359C (fig6800to6809dumb):02275 FDB BLANKS,IN,PSTORE,OVER,SUB,TOR,R,HERE
2310 3DF0 365C35263899387D (fig6800to6809dumb):02276 FDB CSTORE,PLUS,HERE,ONEP,FROMR,CMOVE
2312 3DFC 3486 (fig6800to6809dumb):02277 FDB SEMIS
2313 (fig6800to6809dumb):02278 *
2314 (fig6800to6809dumb):02279 * ######>> screen 49 <<
2315 (fig6800to6809dumb):02280 * ======>> 139 <<
2316 3DFE 88 (fig6800to6809dumb):02281 FCB $88
2317 3DFF 284E554D424552 (fig6800to6809dumb):02282 FCC '(NUMBER' ; '(NUMBER)'
2318 3E06 A9 (fig6800to6809dumb):02283 FCB $A9
2319 3E07 3DB2 (fig6800to6809dumb):02284 FDB WORD-7
2320 3E09 3687 (fig6800to6809dumb):02285 PNUMB FDB DOCOL
2321 3E0B 387D35DE34BA3636 (fig6800to6809dumb):02286 PNUMB2 FDB ONEP,DUP,TOR,CAT,BASE,AT,DIGIT,ZBRAN
2323 3E1B 002C (fig6800to6809dumb):02287 FDB PNUMB4-*
2324 3E1D 35BE3835362433A8 (fig6800to6809dumb):02288 FDB SWAP,BASE,AT,USTAR,DROP,ROT,BASE
2326 3E2B 362433A8353A383F (fig6800to6809dumb):02289 FDB AT,USTAR,DPLUS,DPL,AT,ONEP,ZBRAN
2328 3E39 0008 (fig6800to6809dumb):02290 FDB PNUMB3-*
2329 3E3B 3717383F35F0 (fig6800to6809dumb):02291 FDB ONE,DPL,PSTORE
2330 3E41 34D4313C (fig6800to6809dumb):02292 PNUMB3 FDB FROMR,BRAN
2331 3E45 FFC6 (fig6800to6809dumb):02293 FDB PNUMB2-*
2332 3E47 34D4 (fig6800to6809dumb):02294 PNUMB4 FDB FROMR
2333 3E49 3486 (fig6800to6809dumb):02295 FDB SEMIS
2334 (fig6800to6809dumb):02296 *
2335 (fig6800to6809dumb):02297 * ======>> 140 <<
2336 3E4B 86 (fig6800to6809dumb):02298 FCB $86
2337 3E4C 4E554D4245 (fig6800to6809dumb):02299 FCC 'NUMBE' ; 'NUMBER'
2338 3E51 D2 (fig6800to6809dumb):02300 FCB $D2
2339 3E52 3DFE (fig6800to6809dumb):02301 FDB PNUMB-11
2340 3E54 3687370F370F391F (fig6800to6809dumb):02302 NUMB FDB DOCOL,ZERO,ZERO,ROT,DUP,ONEP,CAT,CLITER
2342 3E64 2D (fig6800to6809dumb):02303 FCC "-" minus sign
2343 3E65 38E235DE34BA3526 (fig6800to6809dumb):02304 FDB EQUAL,DUP,TOR,PLUS,LIT,$FFFF
2345 3E71 383F364A3E0935DE (fig6800to6809dumb):02305 NUMB1 FDB DPL,STORE,PNUMB,DUP,CAT,BL,SUB
2347 3E7F 3148 (fig6800to6809dumb):02306 FDB ZBRAN
2348 3E81 0015 (fig6800to6809dumb):02307 FDB NUMB2-*
2349 3E83 35DE3636310E (fig6800to6809dumb):02308 FDB DUP,CAT,CLITER
2350 3E89 2E (fig6800to6809dumb):02309 FCC "."
2351 3E8A 38D6370F3A16370F (fig6800to6809dumb):02310 FDB SUB,ZERO,QERR,ZERO,BRAN
2353 3E94 FFDD (fig6800to6809dumb):02311 FDB NUMB1-*
2354 3E96 35AE34D43148 (fig6800to6809dumb):02312 NUMB2 FDB DROP,FROMR,ZBRAN
2355 3E9C 0004 (fig6800to6809dumb):02313 FDB NUMB3-*
2356 3E9E 357A (fig6800to6809dumb):02314 FDB DMINUS
2357 3EA0 3486 (fig6800to6809dumb):02315 NUMB3 FDB SEMIS
2358 (fig6800to6809dumb):02316 *
2359 (fig6800to6809dumb):02317 * ======>> 141 <<
2360 3EA2 85 (fig6800to6809dumb):02318 FCB $85
2361 3EA3 2D46494E (fig6800to6809dumb):02319 FCC '-FIN' ; '-FIND'
2362 3EA7 C4 (fig6800to6809dumb):02320 FCB $C4
2363 3EA8 3E4B (fig6800to6809dumb):02321 FDB NUMB-9
2364 3EAA 368737303DB93899 (fig6800to6809dumb):02322 DFIND FDB DOCOL,BL,WORD,HERE,CONTXT,AT,AT
2366 3EB8 323835DE34F93148 (fig6800to6809dumb):02323 FDB PFIND,DUP,ZEQU,ZBRAN
2367 3EC0 000A (fig6800to6809dumb):02324 FDB DFIND2-*
2368 3EC2 35AE389939AD3238 (fig6800to6809dumb):02325 FDB DROP,HERE,LATEST,PFIND
2369 3ECA 3486 (fig6800to6809dumb):02326 DFIND2 FDB SEMIS
2370 (fig6800to6809dumb):02327 *
2371 (fig6800to6809dumb):02328 * ######>> screen 50 <<
2372 (fig6800to6809dumb):02329 * ======>> 142 <<
2373 3ECC 87 (fig6800to6809dumb):02330 FCB $87
2374 3ECD 2841424F5254 (fig6800to6809dumb):02331 FCC '(ABORT' ; '(ABORT)'
2375 3ED3 A9 (fig6800to6809dumb):02332 FCB $A9
2376 3ED4 3EA2 (fig6800to6809dumb):02333 FDB DFIND-8
2377 3ED6 368740E8 (fig6800to6809dumb):02334 PABORT FDB DOCOL,ABORT
2378 3EDA 3486 (fig6800to6809dumb):02335 FDB SEMIS
2379 (fig6800to6809dumb):02336 *
2380 (fig6800to6809dumb):02337 * ======>> 143 <<
2381 3EDC 85 (fig6800to6809dumb):02338 FCB $85
2382 3EDD 4552524F (fig6800to6809dumb):02339 FCC 'ERRO' ; 'ERROR'
2383 3EE1 D2 (fig6800to6809dumb):02340 FCB $D2
2384 3EE2 3ECC (fig6800to6809dumb):02341 FDB PABORT-10
2385 3EE4 368737AA3624350E (fig6800to6809dumb):02342 ERROR FDB DOCOL,WARN,AT,ZLESS
2386 3EEC 3148 (fig6800to6809dumb):02343 FDB ZBRAN
2387 (fig6800to6809dumb):02344 * note: WARNING is -1 to abort, 0 to print error #
2388 (fig6800to6809dumb):02345 * and 1 to print error message from disc
2389 3EEE 0004 (fig6800to6809dumb):02346 FDB ERROR2-*
2390 3EF0 3ED6 (fig6800to6809dumb):02347 FDB PABORT
2391 3EF2 38993B993BAC3C0D (fig6800to6809dumb):02348 ERROR2 FDB HERE,COUNT,TYPE,PDOTQ
2392 3EFA 0407 (fig6800to6809dumb):02349 FCB 4,7 ( bell )
2393 3EFC 203F20 (fig6800to6809dumb):02350 FCC " ? "
2394 3EFF 440F346637E13624 (fig6800to6809dumb):02351 FDB MESS,SPSTOR,IN,AT,BLK,AT,QUIT
2396 3F0D 3486 (fig6800to6809dumb):02352 FDB SEMIS
2397 (fig6800to6809dumb):02353 *
2398 (fig6800to6809dumb):02354 * ======>> 144 <<
2399 3F0F 83 (fig6800to6809dumb):02355 FCB $83
2400 3F10 4944 (fig6800to6809dumb):02356 FCC 'ID' ; 'ID.'
2401 3F12 AE (fig6800to6809dumb):02357 FCB $AE
2402 3F13 3EDC (fig6800to6809dumb):02358 FDB ERROR-8
2403 3F15 36873DA7310E (fig6800to6809dumb):02359 IDDOT FDB DOCOL,PAD,CLITER
2404 3F1B 20 (fig6800to6809dumb):02360 FCB 32
2405 3F1C 310E (fig6800to6809dumb):02361 FDB CLITER
2406 3F1E 5F (fig6800to6809dumb):02362 FCB $5F ( underline )
2407 3F1F 3D4F35DE39EF39BD (fig6800to6809dumb):02363 FDB FILL,DUP,PFA,LFA,OVER,SUB,PAD
2409 3F2D 35BE33703DA73B99 (fig6800to6809dumb):02364 FDB SWAP,CMOVE,PAD,COUNT,CLITER
2411 3F37 1F (fig6800to6809dumb):02365 FCB 31
2412 3F38 34163BAC3933 (fig6800to6809dumb):02366 FDB AND,TYPE,SPACE
2413 3F3E 3486 (fig6800to6809dumb):02367 FDB SEMIS
2414 (fig6800to6809dumb):02368 *
2415 (fig6800to6809dumb):02369 * ######>> screen 51 <<
2416 (fig6800to6809dumb):02370 * ======>> 145 <<
2417 3F40 86 (fig6800to6809dumb):02371 FCB $86
2418 3F41 4352454154 (fig6800to6809dumb):02372 FCC 'CREAT' ; 'CREATE'
2419 3F46 C5 (fig6800to6809dumb):02373 FCB $C5
2420 3F47 3F0F (fig6800to6809dumb):02374 FDB IDDOT-6
2421 3F49 36873EAA3148 (fig6800to6809dumb):02375 CREATE FDB DOCOL,DFIND,ZBRAN
2422 3F4F 001A (fig6800to6809dumb):02376 FDB CREAT2-*
2423 3F51 35AE3C0D (fig6800to6809dumb):02377 FDB DROP,PDOTQ
2424 3F55 08 (fig6800to6809dumb):02378 FCB 8
2425 3F56 07 (fig6800to6809dumb):02379 FCB 7 ( bel )
2426 3F57 72656465663A20 (fig6800to6809dumb):02380 FCC "redef: "
2427 3F5E 39DA3F15310E (fig6800to6809dumb):02381 FDB NFA,IDDOT,CLITER
2428 3F64 04 (fig6800to6809dumb):02382 FCB 4
2429 3F65 440F3933 (fig6800to6809dumb):02383 FDB MESS,SPACE
2430 3F69 389935DE3636379C (fig6800to6809dumb):02384 CREAT2 FDB HERE,DUP,CAT,WIDTH,AT,MIN
2432 3F75 387D38A935DE310E (fig6800to6809dumb):02385 FDB ONEP,ALLOT,DUP,CLITER
2433 3F7D A0 (fig6800to6809dumb):02386 FCB $A0
2434 3F7E 36123899371738D6 (fig6800to6809dumb):02387 FDB TOGGLE,HERE,ONE,SUB,CLITER
2436 3F88 80 (fig6800to6809dumb):02388 FCB $80
2437 3F89 361239AD38B5381E (fig6800to6809dumb):02389 FDB TOGGLE,LATEST,COMMA,CURENT,AT,STORE
2439 3F95 3899388A38B5 (fig6800to6809dumb):02390 FDB HERE,TWOP,COMMA
2440 3F9B 3486 (fig6800to6809dumb):02391 FDB SEMIS
2441 (fig6800to6809dumb):02392 *
2442 (fig6800to6809dumb):02393 * ######>> screen 52 <<
2443 (fig6800to6809dumb):02394 * ======>> 146 <<
2444 3F9D C9 (fig6800to6809dumb):02395 FCB $C9 immediate
2445 3F9E 5B434F4D50494C45 (fig6800to6809dumb):02396 FCC '[COMPILE' ; '[COMPILE]'
2446 3FA6 DD (fig6800to6809dumb):02397 FCB $DD
2447 3FA7 3F40 (fig6800to6809dumb):02398 FDB CREATE-9
2448 3FA9 36873EAA34F9370F (fig6800to6809dumb):02399 BCOMP FDB DOCOL,DFIND,ZEQU,ZERO,QERR,DROP,CFA,COMMA
2450 3FB9 3486 (fig6800to6809dumb):02400 FDB SEMIS
2451 (fig6800to6809dumb):02401 *
2452 (fig6800to6809dumb):02402 * ======>> 147 <<
2453 3FBB C7 (fig6800to6809dumb):02403 FCB $C7 immediate
2454 3FBC 4C4954455241 (fig6800to6809dumb):02404 FCC 'LITERA' ; 'LITERAL'
2455 3FC2 CC (fig6800to6809dumb):02405 FCB $CC
2456 3FC3 3F9D (fig6800to6809dumb):02406 FDB BCOMP-12
2457 3FC5 3687382A36243148 (fig6800to6809dumb):02407 LITER FDB DOCOL,STATE,AT,ZBRAN
2458 3FCD 0008 (fig6800to6809dumb):02408 FDB LITER2-*
2459 3FCF 3AA430FD38B5 (fig6800to6809dumb):02409 FDB COMPIL,LIT,COMMA
2460 3FD5 3486 (fig6800to6809dumb):02410 LITER2 FDB SEMIS
2461 (fig6800to6809dumb):02411 *
2462 (fig6800to6809dumb):02412 * ======>> 148 <<
2463 3FD7 C8 (fig6800to6809dumb):02413 FCB $C8 immediate
2464 3FD8 444C4954455241 (fig6800to6809dumb):02414 FCC 'DLITERA' ; 'DLITERAL'
2465 3FDF CC (fig6800to6809dumb):02415 FCB $CC
2466 3FE0 3FBB (fig6800to6809dumb):02416 FDB LITER-10
2467 3FE2 3687382A36243148 (fig6800to6809dumb):02417 DLITER FDB DOCOL,STATE,AT,ZBRAN
2468 3FEA 0008 (fig6800to6809dumb):02418 FDB DLITE2-*
2469 3FEC 35BE3FC53FC5 (fig6800to6809dumb):02419 FDB SWAP,LITER,LITER
2470 3FF2 3486 (fig6800to6809dumb):02420 DLITE2 FDB SEMIS
2471 (fig6800to6809dumb):02421 *
2472 (fig6800to6809dumb):02422 * ######>> screen 53 <<
2473 (fig6800to6809dumb):02423 * ======>> 149 <<
2474 3FF4 89 (fig6800to6809dumb):02424 FCB $89
2475 3FF5 494E544552505245 (fig6800to6809dumb):02425 FCC 'INTERPRE' ; 'INTERPRET'
2476 3FFD D4 (fig6800to6809dumb):02426 FCB $D4
2477 3FFE 3FD7 (fig6800to6809dumb):02427 FDB DLITER-11
2478 4000 3687 (fig6800to6809dumb):02428 INTERP FDB DOCOL
2479 4002 3EAA3148 (fig6800to6809dumb):02429 INTER2 FDB DFIND,ZBRAN
2480 4006 001C (fig6800to6809dumb):02430 FDB INTER5-*
2481 4008 382A362438EE (fig6800to6809dumb):02431 FDB STATE,AT,LESS
2482 400E 3148 (fig6800to6809dumb):02432 FDB ZBRAN
2483 4010 000A (fig6800to6809dumb):02433 FDB INTER3-*
2484 4012 39CC38B5313C (fig6800to6809dumb):02434 FDB CFA,COMMA,BRAN
2485 4018 0006 (fig6800to6809dumb):02435 FDB INTER4-*
2486 401A 39CC3126 (fig6800to6809dumb):02436 INTER3 FDB CFA,EXEC
2487 401E 313C (fig6800to6809dumb):02437 INTER4 FDB BRAN
2488 4020 001A (fig6800to6809dumb):02438 FDB INTER7-*
2489 4022 38993E54383F3624 (fig6800to6809dumb):02439 INTER5 FDB HERE,NUMB,DPL,AT,ONEP,ZBRAN
2491 402E 0008 (fig6800to6809dumb):02440 FDB INTER6-*
2492 4030 3FE2313C (fig6800to6809dumb):02441 FDB DLITER,BRAN
2493 4034 0006 (fig6800to6809dumb):02442 FDB INTER7-*
2494 4036 35AE3FC5 (fig6800to6809dumb):02443 INTER6 FDB DROP,LITER
2495 403A 3C5A313C (fig6800to6809dumb):02444 INTER7 FDB QSTACK,BRAN
2496 403E FFC4 (fig6800to6809dumb):02445 FDB INTER2-*
2497 (fig6800to6809dumb):02446 * FDB SEMIS never executed
2498 (fig6800to6809dumb):02447
2499 (fig6800to6809dumb):02448 *
2500 (fig6800to6809dumb):02449 * ######>> screen 54 <<
2501 (fig6800to6809dumb):02450 * ======>> 150 <<
2502 4040 89 (fig6800to6809dumb):02451 FCB $89
2503 4041 494D4D4544494154 (fig6800to6809dumb):02452 FCC 'IMMEDIAT' ; 'IMMEDIATE'
2504 4049 C5 (fig6800to6809dumb):02453 FCB $C5
2505 404A 3FF4 (fig6800to6809dumb):02454 FDB INTERP-12
2506 404C 368739AD310E (fig6800to6809dumb):02455 IMMED FDB DOCOL,LATEST,CLITER
2507 4052 40 (fig6800to6809dumb):02456 FCB $40
2508 4053 3612 (fig6800to6809dumb):02457 FDB TOGGLE
2509 4055 3486 (fig6800to6809dumb):02458 FDB SEMIS
2510 (fig6800to6809dumb):02459 *
2511 (fig6800to6809dumb):02460 * ======>> 151 <<
2512 4057 8A (fig6800to6809dumb):02461 FCB $8A
2513 4058 564F434142554C41 (fig6800to6809dumb):02462 FCC 'VOCABULAR' ; 'VOCABULARY'
2515 4061 D9 (fig6800to6809dumb):02463 FCB $D9
2516 4062 4040 (fig6800to6809dumb):02464 FDB IMMED-12
2517 4064 36873B4930FD81A0 (fig6800to6809dumb):02465 VOCAB FDB DOCOL,BUILDS,LIT,$81A0,COMMA,CURENT,AT,CFA
2519 4074 38B5389937CE3624 (fig6800to6809dumb):02466 FDB COMMA,HERE,VOCLIN,AT,COMMA,VOCLIN,STORE,DOES
2521 4084 388A3810364A (fig6800to6809dumb):02467 DOVOC FDB TWOP,CONTXT,STORE
2522 408A 3486 (fig6800to6809dumb):02468 FDB SEMIS
2523 (fig6800to6809dumb):02469 *
2524 (fig6800to6809dumb):02470 * ======>> 152 <<
2525 (fig6800to6809dumb):02471 *
2526 (fig6800to6809dumb):02472 * Note: FORTH does not go here in the rom-able dictionary,
2527 (fig6800to6809dumb):02473 * since FORTH is a type of variable.
2528 (fig6800to6809dumb):02474 *
2529 (fig6800to6809dumb):02475 *
2530 (fig6800to6809dumb):02476 * ======>> 153 <<
2531 408C 8B (fig6800to6809dumb):02477 FCB $8B
2532 408D 444546494E495449 (fig6800to6809dumb):02478 FCC 'DEFINITION' ; 'DEFINITIONS'
2534 4097 D3 (fig6800to6809dumb):02479 FCB $D3
2535 4098 4057 (fig6800to6809dumb):02480 FDB VOCAB-13
2536 409A 368738103624381E (fig6800to6809dumb):02481 DEFIN FDB DOCOL,CONTXT,AT,CURENT,STORE
2538 40A4 3486 (fig6800to6809dumb):02482 FDB SEMIS
2539 (fig6800to6809dumb):02483 *
2540 (fig6800to6809dumb):02484 * ======>> 154 <<
2541 40A6 C1 (fig6800to6809dumb):02485 FCB $C1 immediate (
2542 40A7 A8 (fig6800to6809dumb):02486 FCB $A8
2543 40A8 408C (fig6800to6809dumb):02487 FDB DEFIN-14
2544 40AA 3687310E (fig6800to6809dumb):02488 PAREN FDB DOCOL,CLITER
2545 40AE 29 (fig6800to6809dumb):02489 FCC ")"
2546 40AF 3DB9 (fig6800to6809dumb):02490 FDB WORD
2547 40B1 3486 (fig6800to6809dumb):02491 FDB SEMIS
2548 (fig6800to6809dumb):02492 *
2549 (fig6800to6809dumb):02493 * ######>> screen 55 <<
2550 (fig6800to6809dumb):02494 * ======>> 155 <<
2551 40B3 84 (fig6800to6809dumb):02495 FCB $84
2552 40B4 515549 (fig6800to6809dumb):02496 FCC 'QUI' ; 'QUIT'
2553 40B7 D4 (fig6800to6809dumb):02497 FCB $D4
2554 40B8 40A6 (fig6800to6809dumb):02498 FDB PAREN-4
2555 40BA 3687370F37D8364A (fig6800to6809dumb):02499 QUIT FDB DOCOL,ZERO,BLK,STORE
2556 40C2 3ABA (fig6800to6809dumb):02500 FDB LBRAK
2557 (fig6800to6809dumb):02501 *
2558 (fig6800to6809dumb):02502 * Here is the outer interpretter
2559 (fig6800to6809dumb):02503 * which gets a line of input, does it, prints " OK"
2560 (fig6800to6809dumb):02504 * then repeats :
2561 40C4 347733603CFC4000 (fig6800to6809dumb):02505 QUIT2 FDB RPSTOR,CR,QUERY,INTERP,STATE,AT,ZEQU
2563 40D2 3148 (fig6800to6809dumb):02506 FDB ZBRAN
2564 40D4 0008 (fig6800to6809dumb):02507 FDB QUIT3-*
2565 40D6 3C0D (fig6800to6809dumb):02508 FDB PDOTQ
2566 40D8 03 (fig6800to6809dumb):02509 FCB 3
2567 40D9 204F4B (fig6800to6809dumb):02510 FCC ' OK' ; ' OK'
2568 40DC 313C (fig6800to6809dumb):02511 QUIT3 FDB BRAN
2569 40DE FFE6 (fig6800to6809dumb):02512 FDB QUIT2-*
2570 (fig6800to6809dumb):02513 * FDB SEMIS ( never executed )
2571 (fig6800to6809dumb):02514 *
2572 (fig6800to6809dumb):02515 * ======>> 156 <<
2573 40E0 85 (fig6800to6809dumb):02516 FCB $85
2574 40E1 41424F52 (fig6800to6809dumb):02517 FCC 'ABOR' ; 'ABORT'
2575 40E5 D4 (fig6800to6809dumb):02518 FCB $D4
2576 40E6 40B3 (fig6800to6809dumb):02519 FDB QUIT-7
2577 40E8 368734663B023C5A (fig6800to6809dumb):02520 ABORT FDB DOCOL,SPSTOR,DECIM,QSTACK,DRZERO,CR,PDOTQ
2579 40F6 0F (fig6800to6809dumb):02521 FCB 15
2580 40F7 466F7274682D3638 (fig6800to6809dumb):02522 FCC "Forth-68oo-68o9"
2582 4106 1450409A (fig6800to6809dumb):02523 FDB FORTH,DEFIN
2583 410A 40BA (fig6800to6809dumb):02524 FDB QUIT
2584 (fig6800to6809dumb):02525 * FDB SEMIS never executed
2585 (fig6800to6809dumb):02526 PAGE
2586 (fig6800to6809dumb):02527 *
2587 (fig6800to6809dumb):02528 * ######>> screen 56 <<
2588 (fig6800to6809dumb):02529 * bootstrap code... moves rom contents to ram :
2589 (fig6800to6809dumb):02530 * ======>> 157 <<
2590 410C 84 (fig6800to6809dumb):02531 FCB $84
2591 410D 434F4C (fig6800to6809dumb):02532 FCC 'COL' ; 'COLD'
2592 4110 C4 (fig6800to6809dumb):02533 FCB $C4
2593 4111 40E0 (fig6800to6809dumb):02534 FDB ABORT-8
2594 4113 4115 (fig6800to6809dumb):02535 COLD FDB *+2
2595 (fig6800to6809dumb):02536 * CENT LDS #REND-1 top of destination on 6800
2596 4115 8613 (fig6800to6809dumb):02537 CENT LDA #PGBDP
2597 4117 1F8B (fig6800to6809dumb):02538 TFR A,DP
2598 4119 10CE1483 (fig6800to6809dumb):02539 LDS #REND top of destination on 6809
2599 411D 8E41C7 (fig6800to6809dumb):02540 LDX #ERAM top of stuff to move
2600 4120 301F (fig6800to6809dumb):02541 COLD2 LEAX -1,X
2601 4122 A600 (fig6800to6809dumb):02542 LDA 0,X
2602 4124 3402 (fig6800to6809dumb):02543 PSHS A move TASK & FORTH to ram
2603 4126 8C4184 (fig6800to6809dumb):02544 CMPX #RAM
2604 4129 26F5 (fig6800to6809dumb):02545 BNE COLD2
2605 (fig6800to6809dumb):02546 *
2606 (fig6800to6809dumb):02547 * LDS #XFENCE-1 put stack at a safe place for now -- 6800
2607 (fig6800to6809dumb):02548 * But only matters if we're interrupted.
2608 412B 10CE1410 (fig6800to6809dumb):02549 LDS #XFENCE put stack at a safe place for now -- 6809
2609 412F BE3022 (fig6800to6809dumb):02550 LDX COLINT
2610 4132 BF1434 (fig6800to6809dumb):02551 STX XCOLUM
2611 4135 BE3024 (fig6800to6809dumb):02552 LDX DELINT
2612 4138 BF1432 (fig6800to6809dumb):02553 STX XDELAY
2613 413B BE3020 (fig6800to6809dumb):02554 LDX VOCINT
2614 413E BF1414 (fig6800to6809dumb):02555 STX XVOCL
2615 4141 BE301E (fig6800to6809dumb):02556 LDX DPINIT
2616 4144 BF1412 (fig6800to6809dumb):02557 STX XDP
2617 4147 BE301C (fig6800to6809dumb):02558 LDX FENCIN
2618 414A BF1410 (fig6800to6809dumb):02559 STX XFENCE
2619 (fig6800to6809dumb):02560
2620 (fig6800to6809dumb):02561
2621 (fig6800to6809dumb):02562 * WENT LDS #XFENCE-1 top of destination -- 6800
2622 414D 10CE1410 (fig6800to6809dumb):02563 WENT LDS #XFENCE top of destination -- 6809
2623 4151 8E301C (fig6800to6809dumb):02564 LDX #FENCIN top of stuff to move
2624 4154 301F (fig6800to6809dumb):02565 WARM2 LEAX -1,X
2625 4156 A600 (fig6800to6809dumb):02566 LDA 0,X
2626 4158 3402 (fig6800to6809dumb):02567 PSHS A
2627 415A 8C3012 (fig6800to6809dumb):02568 CMPX #SINIT
2628 415D 26F5 (fig6800to6809dumb):02569 BNE WARM2
2629 (fig6800to6809dumb):02570 *
2630 (fig6800to6809dumb):02571 * Don't get faked out.
2631 (fig6800to6809dumb):02572 * This is just a safe place for the stack if we're interrupted.
2632 (fig6800to6809dumb):02573 * ABORT sends us through RP! and then SP!
2633 (fig6800to6809dumb):02574 * And SP! loads S through X, which is just fine for the 6809, too.
2634 415F 10FE3012 (fig6800to6809dumb):02575 LDS SINIT
2635 4163 BE3010 (fig6800to6809dumb):02576 LDX UPINIT
2636 4166 9F16 (fig6800to6809dumb):02577 STX UP init user ram pointer
2637 4168 8E40E8 (fig6800to6809dumb):02578 LDX #ABORT
2638 416B 9F12 (fig6800to6809dumb):02579 STX IP
2639 416D 12 (fig6800to6809dumb):02580 NOP Here is a place to jump to special user
2640 416E 12 (fig6800to6809dumb):02581 NOP initializations such as I/0 interrups
2641 416F 12 (fig6800to6809dumb):02582 NOP
2642 (fig6800to6809dumb):02583 *
2643 (fig6800to6809dumb):02584 * For systems with TRACE:
2644 4170 8E0000 (fig6800to6809dumb):02585 LDX #00
2645 4173 9F0A (fig6800to6809dumb):02586 STX TRLIM clear trace mode
2646 4175 8E0000 (fig6800to6809dumb):02587 LDX #0
2647 4178 9F0C (fig6800to6809dumb):02588 STX BRKPT clear breakpoint address
2648 (fig6800to6809dumb):02589 * DBG
2649 417A 8621 (fig6800to6809dumb):02590 LDA #$21
2650 417C 9722 (fig6800to6809dumb):02591 STA FLAGON my version of trace
2651 417E BD4494 (fig6800to6809dumb):02592 JSR PEMIT
2652 (fig6800to6809dumb):02593 *
2653 4181 7E3479 (fig6800to6809dumb):02594 JMP RPSTOR+2 start the virtual machine running !
2654 (fig6800to6809dumb):02595 *
2655 (fig6800to6809dumb):02596 * Here is the stuff that gets copied to ram :
2656 (fig6800to6809dumb):02597 * at address $140:
2657 (fig6800to6809dumb):02598 *
2658 4184 5000500000000000 (fig6800to6809dumb):02599 RAM FDB $5000,$5000,0,0
2659 (fig6800to6809dumb):02600
2660 (fig6800to6809dumb):02601 * ======>> (152) <<
2661 418C C5 (fig6800to6809dumb):02602 FCB $C5 immediate
2662 418D 464F5254 (fig6800to6809dumb):02603 FCC 'FORT' ; 'FORTH'
2663 4191 C8 (fig6800to6809dumb):02604 FCB $C8
2664 4192 48BE (fig6800to6809dumb):02605 FDB NOOP-7
2665 4194 3B67408481A01478 (fig6800to6809dumb):02606 RFORTH FDB DODOES,DOVOC,$81A0,TASK-7
2666 419C 0000 (fig6800to6809dumb):02607 FDB 0
2667 419E 28432920466F7274 (fig6800to6809dumb):02608 FCC "(C) Forth Interest Group, 1979"
2671 41BC 84 (fig6800to6809dumb):02609 FCB $84
2672 41BD 544153 (fig6800to6809dumb):02610 FCC 'TAS' ; 'TASK'
2673 41C0 CB (fig6800to6809dumb):02611 FCB $CB
2674 41C1 1448 (fig6800to6809dumb):02612 FDB FORTH-8
2675 41C3 36873486 (fig6800to6809dumb):02613 RTASK FDB DOCOL,SEMIS
2676 41C7 4461766964204C69 (fig6800to6809dumb):02614 ERAM FCC "David Lion"
2678 (fig6800to6809dumb):02615 PAGE
2679 (fig6800to6809dumb):02616 *
2680 (fig6800to6809dumb):02617 * ######>> screen 57 <<
2681 (fig6800to6809dumb):02618 * ======>> 158 <<
2682 41D1 84 (fig6800to6809dumb):02619 FCB $84
2683 41D2 532D3E (fig6800to6809dumb):02620 FCC 'S->' ; 'S->D'
2684 41D5 C4 (fig6800to6809dumb):02621 FCB $C4
2685 41D6 410C (fig6800to6809dumb):02622 FDB COLD-7
2686 41D8 368735DE350E3560 (fig6800to6809dumb):02623 STOD FDB DOCOL,DUP,ZLESS,MINUS
2687 41E0 3486 (fig6800to6809dumb):02624 FDB SEMIS
2688 (fig6800to6809dumb):02625
2689 (fig6800to6809dumb):02626
2690 (fig6800to6809dumb):02627 *
2691 (fig6800to6809dumb):02628 * ======>> 159 <<
2692 41E2 81 (fig6800to6809dumb):02629 FCB $81 ; *
2693 41E3 AA (fig6800to6809dumb):02630 FCB $AA
2694 41E4 41D1 (fig6800to6809dumb):02631 FDB STOD-7
2695 41E6 41E8 (fig6800to6809dumb):02632 STAR FDB *+2
2696 41E8 BD33B3 (fig6800to6809dumb):02633 JSR USTARS
2697 41EB 3261 (fig6800to6809dumb):02634 LEAS 1,S
2698 41ED 3261 (fig6800to6809dumb):02635 LEAS 1,S
2699 41EF 7E3038 (fig6800to6809dumb):02636 JMP NEXT
2700 (fig6800to6809dumb):02637 *
2701 (fig6800to6809dumb):02638 * ======>> 160 <<
2702 41F2 84 (fig6800to6809dumb):02639 FCB $84
2703 41F3 2F4D4F (fig6800to6809dumb):02640 FCC '/MO' ; '/MOD'
2704 41F6 C4 (fig6800to6809dumb):02641 FCB $C4
2705 41F7 41E2 (fig6800to6809dumb):02642 FDB STAR-4
2706 41F9 368734BA41D834D4 (fig6800to6809dumb):02643 SLMOD FDB DOCOL,TOR,STOD,FROMR,USLASH
2708 4203 3486 (fig6800to6809dumb):02644 FDB SEMIS
2709 (fig6800to6809dumb):02645 *
2710 (fig6800to6809dumb):02646 * ======>> 161 <<
2711 4205 81 (fig6800to6809dumb):02647 FCB $81 ; /
2712 4206 AF (fig6800to6809dumb):02648 FCB $AF
2713 4207 41F2 (fig6800to6809dumb):02649 FDB SLMOD-7
2714 4209 368741F935BE35AE (fig6800to6809dumb):02650 SLASH FDB DOCOL,SLMOD,SWAP,DROP
2715 4211 3486 (fig6800to6809dumb):02651 FDB SEMIS
2716 (fig6800to6809dumb):02652 *
2717 (fig6800to6809dumb):02653 * ======>> 162 <<
2718 4213 83 (fig6800to6809dumb):02654 FCB $83
2719 4214 4D4F (fig6800to6809dumb):02655 FCC 'MO' ; 'MOD'
2720 4216 C4 (fig6800to6809dumb):02656 FCB $C4
2721 4217 4205 (fig6800to6809dumb):02657 FDB SLASH-4
2722 4219 368741F935AE (fig6800to6809dumb):02658 MOD FDB DOCOL,SLMOD,DROP
2723 421F 3486 (fig6800to6809dumb):02659 FDB SEMIS
2724 (fig6800to6809dumb):02660 *
2725 (fig6800to6809dumb):02661 * ======>> 163 <<
2726 4221 85 (fig6800to6809dumb):02662 FCB $85
2727 4222 2A2F4D4F (fig6800to6809dumb):02663 FCC '*/MO' ; '*/MOD'
2728 4226 C4 (fig6800to6809dumb):02664 FCB $C4
2729 4227 4213 (fig6800to6809dumb):02665 FDB MOD-6
2730 4229 368734BA33A834D4 (fig6800to6809dumb):02666 SSMOD FDB DOCOL,TOR,USTAR,FROMR,USLASH
2732 4233 3486 (fig6800to6809dumb):02667 FDB SEMIS
2733 (fig6800to6809dumb):02668 *
2734 (fig6800to6809dumb):02669 * ======>> 164 <<
2735 4235 82 (fig6800to6809dumb):02670 FCB $82
2736 4236 2A (fig6800to6809dumb):02671 FCC '*' ; '*/'
2737 4237 AF (fig6800to6809dumb):02672 FCB $AF
2738 4238 4221 (fig6800to6809dumb):02673 FDB SSMOD-8
2739 423A 3687422935BE35AE (fig6800to6809dumb):02674 SSLASH FDB DOCOL,SSMOD,SWAP,DROP
2740 4242 3486 (fig6800to6809dumb):02675 FDB SEMIS
2741 (fig6800to6809dumb):02676 *
2742 (fig6800to6809dumb):02677 * ======>> 165 <<
2743 4244 85 (fig6800to6809dumb):02678 FCB $85
2744 4245 4D2F4D4F (fig6800to6809dumb):02679 FCC 'M/MO' ; 'M/MOD'
2745 4249 C4 (fig6800to6809dumb):02680 FCB $C4
2746 424A 4235 (fig6800to6809dumb):02681 FDB SSLASH-5
2747 424C 368734BA370F34E9 (fig6800to6809dumb):02682 MSMOD FDB DOCOL,TOR,ZERO,R,USLASH
2749 4256 34D435BE34BA33D5 (fig6800to6809dumb):02683 FDB FROMR,SWAP,TOR,USLASH,FROMR
2751 4260 3486 (fig6800to6809dumb):02684 FDB SEMIS
2752 (fig6800to6809dumb):02685 *
2753 (fig6800to6809dumb):02686 * ======>> 166 <<
2754 4262 83 (fig6800to6809dumb):02687 FCB $83
2755 4263 4142 (fig6800to6809dumb):02688 FCC 'AB' ; 'ABS'
2756 4265 D3 (fig6800to6809dumb):02689 FCB $D3
2757 4266 4244 (fig6800to6809dumb):02690 FDB MSMOD-8
2758 4268 368735DE350E3148 (fig6800to6809dumb):02691 ABS FDB DOCOL,DUP,ZLESS,ZBRAN
2759 4270 0004 (fig6800to6809dumb):02692 FDB ABS2-*
2760 4272 3560 (fig6800to6809dumb):02693 FDB MINUS
2761 4274 3486 (fig6800to6809dumb):02694 ABS2 FDB SEMIS
2762 (fig6800to6809dumb):02695 *
2763 (fig6800to6809dumb):02696 * ======>> 167 <<
2764 4276 84 (fig6800to6809dumb):02697 FCB $84
2765 4277 444142 (fig6800to6809dumb):02698 FCC 'DAB' ; 'DABS'
2766 427A D3 (fig6800to6809dumb):02699 FCB $D3
2767 427B 4262 (fig6800to6809dumb):02700 FDB ABS-6
2768 427D 368735DE350E3148 (fig6800to6809dumb):02701 DABS FDB DOCOL,DUP,ZLESS,ZBRAN
2769 4285 0004 (fig6800to6809dumb):02702 FDB DABS2-*
2770 4287 357A (fig6800to6809dumb):02703 FDB DMINUS
2771 4289 3486 (fig6800to6809dumb):02704 DABS2 FDB SEMIS
2772 (fig6800to6809dumb):02705 *
2773 (fig6800to6809dumb):02706 * ######>> screen 58 <<
2774 (fig6800to6809dumb):02707 * Disc primatives :
2775 (fig6800to6809dumb):02708 * ======>> 168 <<
2776 428B 83 (fig6800to6809dumb):02709 FCB $83
2777 428C 5553 (fig6800to6809dumb):02710 FCC 'US' ; 'USE'
2778 428E C5 (fig6800to6809dumb):02711 FCB $C5
2779 428F 4276 (fig6800to6809dumb):02712 FDB DABS-7
2780 4291 36CC (fig6800to6809dumb):02713 USE FDB DOCON
2781 4293 1440 (fig6800to6809dumb):02714 FDB XUSE
2782 (fig6800to6809dumb):02715 * ======>> 169 <<
2783 4295 84 (fig6800to6809dumb):02716 FCB $84
2784 4296 505245 (fig6800to6809dumb):02717 FCC 'PRE' ; 'PREV'
2785 4299 D6 (fig6800to6809dumb):02718 FCB $D6
2786 429A 428B (fig6800to6809dumb):02719 FDB USE-6
2787 429C 36CC (fig6800to6809dumb):02720 PREV FDB DOCON
2788 429E 1442 (fig6800to6809dumb):02721 FDB XPREV
2789 (fig6800to6809dumb):02722 * ======>> 170 <<
2790 42A0 84 (fig6800to6809dumb):02723 FCB $84
2791 42A1 2B4255 (fig6800to6809dumb):02724 FCC '+BU' ; '+BUF'
2792 42A4 C6 (fig6800to6809dumb):02725 FCB $C6
2793 42A5 4295 (fig6800to6809dumb):02726 FDB PREV-7
2794 42A7 3687310E (fig6800to6809dumb):02727 PBUF FDB DOCOL,CLITER
2795 42AB 84 (fig6800to6809dumb):02728 FCB $84
2796 42AC 352635DE374838E2 (fig6800to6809dumb):02729 FDB PLUS,DUP,LIMIT,EQUAL,ZBRAN
2798 42B6 0006 (fig6800to6809dumb):02730 FDB PBUF2-*
2799 42B8 35AE373C (fig6800to6809dumb):02731 FDB DROP,FIRST
2800 42BC 35DE429C362438D6 (fig6800to6809dumb):02732 PBUF2 FDB DUP,PREV,AT,SUB
2801 42C4 3486 (fig6800to6809dumb):02733 FDB SEMIS
2802 (fig6800to6809dumb):02734 *
2803 (fig6800to6809dumb):02735 * ======>> 171 <<
2804 42C6 86 (fig6800to6809dumb):02736 FCB $86
2805 42C7 5550444154 (fig6800to6809dumb):02737 FCC 'UPDAT' ; 'UPDATE'
2806 42CC C5 (fig6800to6809dumb):02738 FCB $C5
2807 42CD 42A0 (fig6800to6809dumb):02739 FDB PBUF-7
2808 42CF 3687429C36243624 (fig6800to6809dumb):02740 UPDATE FDB DOCOL,PREV,AT,AT,LIT,$8000,OR,PREV,AT,STORE
2811 42E3 3486 (fig6800to6809dumb):02741 FDB SEMIS
2812 (fig6800to6809dumb):02742 *
2813 (fig6800to6809dumb):02743 * ======>> 172 <<
2814 42E5 8D (fig6800to6809dumb):02744 FCB $8D
2815 42E6 454D5054592D4255 (fig6800to6809dumb):02745 FCC 'EMPTY-BUFFER' ; 'EMPTY-BUFFERS'
2817 42F2 D3 (fig6800to6809dumb):02746 FCB $D3
2818 42F3 42C6 (fig6800to6809dumb):02747 FDB UPDATE-9
2819 42F5 3687373C3748359C (fig6800to6809dumb):02748 MTBUF FDB DOCOL,FIRST,LIMIT,OVER,SUB,ERASE
2821 4301 3486 (fig6800to6809dumb):02749 FDB SEMIS
2822 (fig6800to6809dumb):02750 *
2823 (fig6800to6809dumb):02751 * ======>> 173 <<
2824 4303 83 (fig6800to6809dumb):02752 FCB $83
2825 4304 4452 (fig6800to6809dumb):02753 FCC 'DR' ; 'DR0'
2826 4306 B0 (fig6800to6809dumb):02754 FCB $B0
2827 4307 42E5 (fig6800to6809dumb):02755 FDB MTBUF-16
2828 4309 3687370F3802364A (fig6800to6809dumb):02756 DRZERO FDB DOCOL,ZERO,OFSET,STORE
2829 4311 3486 (fig6800to6809dumb):02757 FDB SEMIS
2830 (fig6800to6809dumb):02758 *
2831 (fig6800to6809dumb):02759 * ======>> 174 <<== system dependant word
2832 4313 83 (fig6800to6809dumb):02760 FCB $83
2833 4314 4452 (fig6800to6809dumb):02761 FCC 'DR' ; 'DR1'
2834 4316 B1 (fig6800to6809dumb):02762 FCB $B1
2835 4317 4303 (fig6800to6809dumb):02763 FDB DRZERO-6
2836 4319 368730FD07D03802 (fig6800to6809dumb):02764 DRONE FDB DOCOL,LIT,$07D0,OFSET,STORE
2838 4323 3486 (fig6800to6809dumb):02765 FDB SEMIS
2839 (fig6800to6809dumb):02766 *
2840 (fig6800to6809dumb):02767 * ######>> screen 59 <<
2841 (fig6800to6809dumb):02768 * ======>> 175 <<
2842 4325 86 (fig6800to6809dumb):02769 FCB $86
2843 4326 4255464645 (fig6800to6809dumb):02770 FCC 'BUFFE' ; 'BUFFER'
2844 432B D2 (fig6800to6809dumb):02771 FCB $D2
2845 432C 4313 (fig6800to6809dumb):02772 FDB DRONE-6
2846 432E 36874291362435DE (fig6800to6809dumb):02773 BUFFER FDB DOCOL,USE,AT,DUP,TOR
2848 4338 42A73148 (fig6800to6809dumb):02774 BUFFR2 FDB PBUF,ZBRAN
2849 433C FFFC (fig6800to6809dumb):02775 FDB BUFFR2-*
2850 433E 4291364A34E93624 (fig6800to6809dumb):02776 FDB USE,STORE,R,AT,ZLESS
2852 4348 3148 (fig6800to6809dumb):02777 FDB ZBRAN
2853 434A 0014 (fig6800to6809dumb):02778 FDB BUFFR3-*
2854 434C 34E9388A34E93624 (fig6800to6809dumb):02779 FDB R,TWOP,R,AT,LIT,$7FFF,AND,ZERO,RW
2857 435E 34E9364A34E9429C (fig6800to6809dumb):02780 BUFFR3 FDB R,STORE,R,PREV,STORE,FROMR,TWOP
2859 436C 3486 (fig6800to6809dumb):02781 FDB SEMIS
2860 (fig6800to6809dumb):02782 *
2861 (fig6800to6809dumb):02783 * ######>> screen 60 <<
2862 (fig6800to6809dumb):02784 * ======>> 176 <<
2863 436E 85 (fig6800to6809dumb):02785 FCB $85
2864 436F 424C4F43 (fig6800to6809dumb):02786 FCC 'BLOC' ; 'BLOCK'
2865 4373 CB (fig6800to6809dumb):02787 FCB $CB
2866 4374 4325 (fig6800to6809dumb):02788 FDB BUFFER-9
2867 4376 3687380236243526 (fig6800to6809dumb):02789 BLOCK FDB DOCOL,OFSET,AT,PLUS,TOR
2869 4380 429C362435DE3624 (fig6800to6809dumb):02790 FDB PREV,AT,DUP,AT,R,SUB,DUP,PLUS,ZBRAN
2872 4392 0034 (fig6800to6809dumb):02791 FDB BLOCK5-*
2873 4394 42A734F93148 (fig6800to6809dumb):02792 BLOCK3 FDB PBUF,ZEQU,ZBRAN
2874 439A 0014 (fig6800to6809dumb):02793 FDB BLOCK4-*
2875 439C 35AE34E9432E35DE (fig6800to6809dumb):02794 FDB DROP,R,BUFFER,DUP,R,ONE,RW,TWO,SUB
2878 43AE 35DE362434E938D6 (fig6800to6809dumb):02795 BLOCK4 FDB DUP,AT,R,SUB,DUP,PLUS,ZEQU,ZBRAN
2880 43BE FFD6 (fig6800to6809dumb):02796 FDB BLOCK3-*
2881 43C0 35DE429C364A (fig6800to6809dumb):02797 FDB DUP,PREV,STORE
2882 43C6 34D435AE388A (fig6800to6809dumb):02798 BLOCK5 FDB FROMR,DROP,TWOP
2883 43CC 3486 (fig6800to6809dumb):02799 FDB SEMIS
2884 (fig6800to6809dumb):02800 *
2885 (fig6800to6809dumb):02801 * ######>> screen 61 <<
2886 (fig6800to6809dumb):02802 * ======>> 177 <<
2887 43CE 86 (fig6800to6809dumb):02803 FCB $86
2888 43CF 284C494E45 (fig6800to6809dumb):02804 FCC '(LINE' ; '(LINE)'
2889 43D4 A9 (fig6800to6809dumb):02805 FCB $A9
2890 43D5 436E (fig6800to6809dumb):02806 FDB BLOCK-8
2891 43D7 368734BA310E (fig6800to6809dumb):02807 PLINE FDB DOCOL,TOR,CLITER
2892 43DD 40 (fig6800to6809dumb):02808 FCB $40
2893 43DE 3754422934D43760 (fig6800to6809dumb):02809 FDB BBUF,SSMOD,FROMR,BSCR,STAR,PLUS,BLOCK,PLUS,CLITER
2896 43F0 40 (fig6800to6809dumb):02810 FCB $40
2897 43F1 3486 (fig6800to6809dumb):02811 FDB SEMIS
2898 (fig6800to6809dumb):02812 *
2899 (fig6800to6809dumb):02813 * ======>> 178 <<
2900 43F3 85 (fig6800to6809dumb):02814 FCB $85
2901 43F4 2E4C494E (fig6800to6809dumb):02815 FCC '.LIN' ; '.LINE'
2902 43F8 C5 (fig6800to6809dumb):02816 FCB $C5
2903 43F9 43CE (fig6800to6809dumb):02817 FDB PLINE-9
2904 43FB 368743D73BDA3BAC (fig6800to6809dumb):02818 DLINE FDB DOCOL,PLINE,DTRAIL,TYPE
2905 4403 3486 (fig6800to6809dumb):02819 FDB SEMIS
2906 (fig6800to6809dumb):02820 *
2907 (fig6800to6809dumb):02821 * ======>> 179 <<
2908 4405 87 (fig6800to6809dumb):02822 FCB $87
2909 4406 4D4553534147 (fig6800to6809dumb):02823 FCC 'MESSAG' ; 'MESSAGE'
2910 440C C5 (fig6800to6809dumb):02824 FCB $C5
2911 440D 43F3 (fig6800to6809dumb):02825 FDB DLINE-8
2912 440F 368737AA36243148 (fig6800to6809dumb):02826 MESS FDB DOCOL,WARN,AT,ZBRAN
2913 4417 001B (fig6800to6809dumb):02827 FDB MESS3-*
2914 4419 39723148 (fig6800to6809dumb):02828 FDB DDUP,ZBRAN
2915 441D 0015 (fig6800to6809dumb):02829 FDB MESS3-*
2916 441F 310E (fig6800to6809dumb):02830 FDB CLITER
2917 4421 04 (fig6800to6809dumb):02831 FCB 4
2918 4422 3802362437604209 (fig6800to6809dumb):02832 FDB OFSET,AT,BSCR,SLASH,SUB,DLINE,BRAN
2920 4430 000D (fig6800to6809dumb):02833 FDB MESS4-*
2921 4432 3C0D (fig6800to6809dumb):02834 MESS3 FDB PDOTQ
2922 4434 06 (fig6800to6809dumb):02835 FCB 6
2923 4435 657272202320 (fig6800to6809dumb):02836 FCC 'err # ' ; 'err # '
2924 443B 47B2 (fig6800to6809dumb):02837 FDB DOT
2925 443D 3486 (fig6800to6809dumb):02838 MESS4 FDB SEMIS
2926 (fig6800to6809dumb):02839 *
2927 (fig6800to6809dumb):02840 * ======>> 180 <<
2928 443F 84 (fig6800to6809dumb):02841 FCB $84
2929 4440 4C4F41 (fig6800to6809dumb):02842 FCC 'LOA' ; 'LOAD' : input:scr #
2930 4443 C4 (fig6800to6809dumb):02843 FCB $C4
2931 4444 4405 (fig6800to6809dumb):02844 FDB MESS-10
2932 4446 368737D8362434BA (fig6800to6809dumb):02845 LOAD FDB DOCOL,BLK,AT,TOR,IN,AT,TOR,ZERO,IN,STORE
2935 445A 376041E637D8364A (fig6800to6809dumb):02846 FDB BSCR,STAR,BLK,STORE
2936 4462 400034D437E1364A (fig6800to6809dumb):02847 FDB INTERP,FROMR,IN,STORE,FROMR,BLK,STORE
2938 4470 3486 (fig6800to6809dumb):02848 FDB SEMIS
2939 (fig6800to6809dumb):02849 *
2940 (fig6800to6809dumb):02850 * ======>> 181 <<
2941 4472 C3 (fig6800to6809dumb):02851 FCB $C3
2942 4473 2D2D (fig6800to6809dumb):02852 FCC '--' ; '-->'
2943 4475 BE (fig6800to6809dumb):02853 FCB $BE
2944 4476 443F (fig6800to6809dumb):02854 FDB LOAD-7
2945 4478 36873A8B370F37E1 (fig6800to6809dumb):02855 ARROW FDB DOCOL,QLOAD,ZERO,IN,STORE,BSCR
2947 4484 37D83624359C4219 (fig6800to6809dumb):02856 FDB BLK,AT,OVER,MOD,SUB,BLK,PSTORE
2949 4492 3486 (fig6800to6809dumb):02857 FDB SEMIS
2950 (fig6800to6809dumb):02858 PAGE
2951 (fig6800to6809dumb):02859 *
2952 (fig6800to6809dumb):02860 *
2953 (fig6800to6809dumb):02861 * ######>> screen 63 <<
2954 (fig6800to6809dumb):02862 * The next 4 subroutines are machine dependent, and are
2955 (fig6800to6809dumb):02863 * called by words 13 through 16 in the dictionary.
2956 (fig6800to6809dumb):02864 *
2957 (fig6800to6809dumb):02865 * ======>> 182 << code for EMIT
2958 (fig6800to6809dumb):02866 * character to output in A
2959 (fig6800to6809dumb):02867 * Coco:
2960 4494 3468 (fig6800to6809dumb):02868 PEMIT PSHS Y,U,DP
2961 4496 5F (fig6800to6809dumb):02869 CLRB
2962 4497 1F9B (fig6800to6809dumb):02870 TFR B,DP
2963 4499 AD9FA002 (fig6800to6809dumb):02871 JSR [$A002]
2964 449D 35E8 (fig6800to6809dumb):02872 PULS Y,U,DP,PC
2965 (fig6800to6809dumb):02873 *
2966 (fig6800to6809dumb):02874 * PEMIT STB N save B
2967 (fig6800to6809dumb):02875 * STX N+1 save X
2968 (fig6800to6809dumb):02876 * LDB ACIAC
2969 (fig6800to6809dumb):02877 * BITB #2 check ready bit
2970 (fig6800to6809dumb):02878 * BEQ PEMIT+4 if not ready for more data
2971 (fig6800to6809dumb):02879 * STA ACIAD
2972 (fig6800to6809dumb):02880 * LDX UP
2973 (fig6800to6809dumb):02881 * STB IOSTAT-UORIG,X
2974 (fig6800to6809dumb):02882 * LDB N recover B & X
2975 (fig6800to6809dumb):02883 * LDX N+1
2976 (fig6800to6809dumb):02884 * RTS only A register may change
2977 (fig6800to6809dumb):02885 * PEMIT JMP $E1D1 for MIKBUG
2978 (fig6800to6809dumb):02886 * PEMIT FCB $3F,$11,$39 for PROTO
2979 (fig6800to6809dumb):02887 * PEMIT JMP $D286 for Smoke Signal DOS
2980 (fig6800to6809dumb):02888 *
2981 (fig6800to6809dumb):02889 * ======>> 183 << code for KEY
2982 (fig6800to6809dumb):02890 * Returns input character in A
2983 (fig6800to6809dumb):02891 * Coco:
2984 449F 3468 (fig6800to6809dumb):02892 PKEY PSHS Y,U,DP
2985 44A1 5F (fig6800to6809dumb):02893 CLRB
2986 44A2 1F9B (fig6800to6809dumb):02894 TFR B,DP
2987 44A4 86CF (fig6800to6809dumb):02895 LDA #$CF a cursor
2988 44A6 E69F0088 (fig6800to6809dumb):02896 LDB [$0088] (locate) save
2989 44AA A79F0088 (fig6800to6809dumb):02897 STA [$0088]
2990 44AE AD9FA000 (fig6800to6809dumb):02898 PKEYBZ JSR [$A000]
2991 44B2 27FA (fig6800to6809dumb):02899 BEQ PKEYBZ
2992 44B4 E79F0088 (fig6800to6809dumb):02900 STB [$0088] restore
2993 44B8 35E8 (fig6800to6809dumb):02901 PULS Y,U,DP,PC
2994 (fig6800to6809dumb):02902 *
2995 (fig6800to6809dumb):02903 * PKEY STB N
2996 (fig6800to6809dumb):02904 * STX N+1
2997 (fig6800to6809dumb):02905 * LDB ACIAC
2998 (fig6800to6809dumb):02906 * ASRB
2999 (fig6800to6809dumb):02907 * BCC PKEY+4 no incoming data yet
3000 (fig6800to6809dumb):02908 * LDA ACIAD
3001 (fig6800to6809dumb):02909 * ANDA #$7F strip parity bit
3002 (fig6800to6809dumb):02910 * LDX UP
3003 (fig6800to6809dumb):02911 * STB IOSTAT+1-UORIG,X
3004 (fig6800to6809dumb):02912 * LDB N
3005 (fig6800to6809dumb):02913 * LDX N+1
3006 (fig6800to6809dumb):02914 * RTS
3007 (fig6800to6809dumb):02915 * PKEY JMP $E1AC for MIKBUG
3008 (fig6800to6809dumb):02916 * PKEY FCB $3F,$14,$39 for PROTO
3009 (fig6800to6809dumb):02917 * PKEY JMP $D289 for Smoke Signal DOS
3010 (fig6800to6809dumb):02918 *
3011 (fig6800to6809dumb):02919 * ######>> screen 64 <<
3012 (fig6800to6809dumb):02920 * ======>> 184 << code for ?TERMINAL
3013 (fig6800to6809dumb):02921 * Returns flag in A (non-zero if BREAK).
3014 (fig6800to6809dumb):02922 * Coco:
3015 44BA 3468 (fig6800to6809dumb):02923 PQTER PSHS Y,U,DP
3016 44BC 5F (fig6800to6809dumb):02924 CLRB
3017 44BD 1F9B (fig6800to6809dumb):02925 TFR B,DP
3018 44BF AD9FA000 (fig6800to6809dumb):02926 JSR [$A000]
3019 44C3 5F (fig6800to6809dumb):02927 CLRB
3020 44C4 8103 (fig6800to6809dumb):02928 CMPA #3 break key
3021 44C6 2603 (fig6800to6809dumb):02929 BNE PQTERN
3022 44C8 5C (fig6800to6809dumb):02930 INCB
3023 44C9 1E89 (fig6800to6809dumb):02931 EXG A,B
3024 44CB 35E8 (fig6800to6809dumb):02932 PQTERN PULS Y,U,DP,PC
3025 (fig6800to6809dumb):02933 *
3026 (fig6800to6809dumb):02934 * PQTER LDA ACIAC Test for 'break' condition
3027 (fig6800to6809dumb):02935 * ANDA #$11 mask framing error bit and
3028 (fig6800to6809dumb):02936 ** input buffer full
3029 (fig6800to6809dumb):02937 * BEQ PQTER2
3030 (fig6800to6809dumb):02938 * LDA ACIAD clear input buffer
3031 (fig6800to6809dumb):02939 * LDA #01
3032 (fig6800to6809dumb):02940 *PQTER2 RTS
3033 (fig6800to6809dumb):02941
3034 (fig6800to6809dumb):02942
3035 (fig6800to6809dumb):02943 PAGE
3036 (fig6800to6809dumb):02944 *
3037 (fig6800to6809dumb):02945 * ======>> 185 << code for CR
3038 (fig6800to6809dumb):02946 * Coco:
3039 44CD 860D (fig6800to6809dumb):02947 PRTCR LDA #$D carriage return ; PCR in 6800 source
3040 44CF 20C3 (fig6800to6809dumb):02948 BRA PEMIT Let PEMIT return
3041 (fig6800to6809dumb):02949 *
3042 (fig6800to6809dumb):02950 * BSR PEMIT
3043 (fig6800to6809dumb):02951 * LDA #$A line feed
3044 (fig6800to6809dumb):02952 * BSR PEMIT
3045 (fig6800to6809dumb):02953 * LDA #$7F rubout
3046 (fig6800to6809dumb):02954 * LDX UP
3047 (fig6800to6809dumb):02955 * LDB XDELAY+1-UORIG,X
3048 (fig6800to6809dumb):02956 * PCR2 DECB
3049 (fig6800to6809dumb):02957 * BMI PQTER2 return if minus
3050 (fig6800to6809dumb):02958 * PSHS B save counter
3051 (fig6800to6809dumb):02959 * BSR PEMIT print RUBOUTs to delay.....
3052 (fig6800to6809dumb):02960 * PULS B
3053 (fig6800to6809dumb):02961 * BRA PCR2 repeat
3054 (fig6800to6809dumb):02962
3055 (fig6800to6809dumb):02963
3056 (fig6800to6809dumb):02964 PAGE
3057 (fig6800to6809dumb):02965 *
3058 (fig6800to6809dumb):02966 * ######>> screen 66 <<
3059 (fig6800to6809dumb):02967 * ======>> 187 <<
3060 44D1 85 (fig6800to6809dumb):02968 FCB $85
3061 44D2 3F444953 (fig6800to6809dumb):02969 FCC '?DIS' ; '?DISC'
3062 44D6 C3 (fig6800to6809dumb):02970 FCB $C3
3063 44D7 4472 (fig6800to6809dumb):02971 FDB ARROW-6
3064 44D9 44DB (fig6800to6809dumb):02972 QDISC FDB *+2
3065 44DB 7E3038 (fig6800to6809dumb):02973 JMP NEXT
3066 (fig6800to6809dumb):02974 *
3067 (fig6800to6809dumb):02975 * ######>> screen 67 <<
3068 (fig6800to6809dumb):02976 * ======>> 189 <<
3069 44DE 8B (fig6800to6809dumb):02977 FCB $8B
3070 44DF 424C4F434B2D5752 (fig6800to6809dumb):02978 FCC 'BLOCK-WRIT' ; 'BLOCK-WRITE'
3072 44E9 C5 (fig6800to6809dumb):02979 FCB $C5
3073 44EA 44D1 (fig6800to6809dumb):02980 FDB QDISC-8
3074 44EC 44EE (fig6800to6809dumb):02981 BWRITE FDB *+2
3075 44EE 7E3038 (fig6800to6809dumb):02982 JMP NEXT
3076 (fig6800to6809dumb):02983 *
3077 (fig6800to6809dumb):02984 * ######>> screen 68 <<
3078 (fig6800to6809dumb):02985 * ======>> 190 <<
3079 44F1 8A (fig6800to6809dumb):02986 FCB $8A
3080 44F2 424C4F434B2D5245 (fig6800to6809dumb):02987 FCC 'BLOCK-REA' ; 'BLOCK-READ'
3082 44FB C4 (fig6800to6809dumb):02988 FCB $C4
3083 44FC 44DE (fig6800to6809dumb):02989 FDB BWRITE-14
3084 44FE 4500 (fig6800to6809dumb):02990 BREAD FDB *+2
3085 4500 7E3038 (fig6800to6809dumb):02991 JMP NEXT
3086 (fig6800to6809dumb):02992 *
3087 (fig6800to6809dumb):02993 *The next 3 words are written to create a substitute for disc
3088 (fig6800to6809dumb):02994 * mass memory,located between $3210 & $3FFF in ram.
3089 (fig6800to6809dumb):02995 * ======>> 190.1 <<
3090 4503 82 (fig6800to6809dumb):02996 FCB $82
3091 4504 4C (fig6800to6809dumb):02997 FCC 'L' ; 'LO'
3092 4505 CF (fig6800to6809dumb):02998 FCB $CF
3093 4506 44F1 (fig6800to6809dumb):02999 FDB BREAD-13
3094 4508 36CC (fig6800to6809dumb):03000 LO FDB DOCON
3095 450A 5294 (fig6800to6809dumb):03001 FDB MEMEND a system dependent equate at front
3096 (fig6800to6809dumb):03002 *
3097 (fig6800to6809dumb):03003 * ======>> 190.2 <<
3098 450C 82 (fig6800to6809dumb):03004 FCB $82
3099 450D 48 (fig6800to6809dumb):03005 FCC 'H' ; 'HI'
3100 450E C9 (fig6800to6809dumb):03006 FCB $C9
3101 450F 4503 (fig6800to6809dumb):03007 FDB LO-5
3102 4511 36CC (fig6800to6809dumb):03008 HI FDB DOCON
3103 4513 7FFF (fig6800to6809dumb):03009 FDB MEMTOP ( $3FFF in this version )
3104 (fig6800to6809dumb):03010 *
3105 (fig6800to6809dumb):03011 * ######>> screen 69 <<
3106 (fig6800to6809dumb):03012 * ======>> 191 <<
3107 4515 83 (fig6800to6809dumb):03013 FCB $83
3108 4516 522F (fig6800to6809dumb):03014 FCC 'R/' ; 'R/W'
3109 4518 D7 (fig6800to6809dumb):03015 FCB $D7
3110 4519 450C (fig6800to6809dumb):03016 FDB HI-5
3111 451B 368734BA375441E6 (fig6800to6809dumb):03017 RW FDB DOCOL,TOR,BBUF,STAR,LO,PLUS,DUP,HI,GREAT,ZBRAN
3114 452F 000F (fig6800to6809dumb):03018 FDB RW2-*
3115 4531 3C0D (fig6800to6809dumb):03019 FDB PDOTQ
3116 4533 08 (fig6800to6809dumb):03020 FCB 8
3117 4534 2052616E6765203F (fig6800to6809dumb):03021 FCC ' Range ?' ; ' Range ?'
3118 453C 40BA (fig6800to6809dumb):03022 FDB QUIT
3119 453E 34D43148 (fig6800to6809dumb):03023 RW2 FDB FROMR,ZBRAN
3120 4542 0004 (fig6800to6809dumb):03024 FDB RW3-*
3121 4544 35BE (fig6800to6809dumb):03025 FDB SWAP
3122 4546 37543370 (fig6800to6809dumb):03026 RW3 FDB BBUF,CMOVE
3123 454A 3486 (fig6800to6809dumb):03027 FDB SEMIS
3124 (fig6800to6809dumb):03028 *
3125 (fig6800to6809dumb):03029 * ######>> screen 72 <<
3126 (fig6800to6809dumb):03030 * ======>> 192 <<
3127 454C C1 (fig6800to6809dumb):03031 FCB $C1 immediate
3128 454D A7 (fig6800to6809dumb):03032 FCB $A7 ' ( tick )
3129 454E 4515 (fig6800to6809dumb):03033 FDB RW-6
3130 4550 36873EAA34F9370F (fig6800to6809dumb):03034 TICK FDB DOCOL,DFIND,ZEQU,ZERO,QERR,DROP,LITER
3132 455E 3486 (fig6800to6809dumb):03035 FDB SEMIS
3133 (fig6800to6809dumb):03036 *
3134 (fig6800to6809dumb):03037 * ======>> 193 <<
3135 4560 86 (fig6800to6809dumb):03038 FCB $86
3136 4561 464F524745 (fig6800to6809dumb):03039 FCC 'FORGE' ; 'FORGET'
3137 4566 D4 (fig6800to6809dumb):03040 FCB $D4
3138 4567 454C (fig6800to6809dumb):03041 FDB TICK-4
3139 4569 3687381E36243810 (fig6800to6809dumb):03042 FORGET FDB DOCOL,CURENT,AT,CONTXT,AT,SUB,CLITER
3141 4577 18 (fig6800to6809dumb):03043 FCB $18
3142 4578 3A16455035DE37B6 (fig6800to6809dumb):03044 FDB QERR,TICK,DUP,FENCE,AT,LESS,CLITER
3144 4586 15 (fig6800to6809dumb):03045 FCB $15
3145 4587 3A1635DE370F376E (fig6800to6809dumb):03046 FDB QERR,DUP,ZERO,PORIG,GREAT,CLITER
3147 4593 15 (fig6800to6809dumb):03047 FCB $15
3148 4594 3A1635DE39DA37BF (fig6800to6809dumb):03048 FDB QERR,DUP,NFA,DICPT,STORE,LFA,AT,CONTXT,AT,STORE
3151 45A8 3486 (fig6800to6809dumb):03049 FDB SEMIS
3152 (fig6800to6809dumb):03050 *
3153 (fig6800to6809dumb):03051 * ######>> screen 73 <<
3154 (fig6800to6809dumb):03052 * ======>> 194 <<
3155 45AA 84 (fig6800to6809dumb):03053 FCB $84
3156 45AB 424143 (fig6800to6809dumb):03054 FCC 'BAC' ; 'BACK'
3157 45AE CB (fig6800to6809dumb):03055 FCB $CB
3158 45AF 4560 (fig6800to6809dumb):03056 FDB FORGET-9
3159 45B1 3687389938D638B5 (fig6800to6809dumb):03057 BACK FDB DOCOL,HERE,SUB,COMMA
3160 45B9 3486 (fig6800to6809dumb):03058 FDB SEMIS
3161 (fig6800to6809dumb):03059 *
3162 (fig6800to6809dumb):03060 * ======>> 195 <<
3163 45BB C5 (fig6800to6809dumb):03061 FCB $C5
3164 45BC 42454749 (fig6800to6809dumb):03062 FCC 'BEGI' ; 'BEGIN'
3165 45C0 CE (fig6800to6809dumb):03063 FCB $CE
3166 45C1 45AA (fig6800to6809dumb):03064 FDB BACK-7
3167 45C3 36873A3038993717 (fig6800to6809dumb):03065 BEGIN FDB DOCOL,QCOMP,HERE,ONE
3168 45CB 3486 (fig6800to6809dumb):03066 FDB SEMIS
3169 (fig6800to6809dumb):03067 *
3170 (fig6800to6809dumb):03068 * ======>> 196 <<
3171 45CD C5 (fig6800to6809dumb):03069 FCB $C5
3172 45CE 454E4449 (fig6800to6809dumb):03070 FCC 'ENDI' ; 'ENDIF'
3173 45D2 C6 (fig6800to6809dumb):03071 FCB $C6
3174 45D3 45BB (fig6800to6809dumb):03072 FDB BEGIN-8
3175 45D5 36873A30371F3A5D (fig6800to6809dumb):03073 ENDIF FDB DOCOL,QCOMP,TWO,QPAIRS,HERE
3177 45DF 359C38D635BE364A (fig6800to6809dumb):03074 FDB OVER,SUB,SWAP,STORE
3178 45E7 3486 (fig6800to6809dumb):03075 FDB SEMIS
3179 (fig6800to6809dumb):03076 *
3180 (fig6800to6809dumb):03077 * ======>> 197 <<
3181 45E9 C4 (fig6800to6809dumb):03078 FCB $C4
3182 45EA 544845 (fig6800to6809dumb):03079 FCC 'THE' ; 'THEN'
3183 45ED CE (fig6800to6809dumb):03080 FCB $CE
3184 45EE 45CD (fig6800to6809dumb):03081 FDB ENDIF-8
3185 45F0 368745D5 (fig6800to6809dumb):03082 THEN FDB DOCOL,ENDIF
3186 45F4 3486 (fig6800to6809dumb):03083 FDB SEMIS
3187 (fig6800to6809dumb):03084 *
3188 (fig6800to6809dumb):03085 * ======>> 198 <<
3189 45F6 C2 (fig6800to6809dumb):03086 FCB $C2
3190 45F7 44 (fig6800to6809dumb):03087 FCC 'D' ; 'DO'
3191 45F8 CF (fig6800to6809dumb):03088 FCB $CF
3192 45F9 45E9 (fig6800to6809dumb):03089 FDB THEN-7
3193 45FB 36873AA431C73899 (fig6800to6809dumb):03090 DO FDB DOCOL,COMPIL,XDO,HERE,THREE
3195 4605 3486 (fig6800to6809dumb):03091 FDB SEMIS
3196 (fig6800to6809dumb):03092 *
3197 (fig6800to6809dumb):03093 * ======>> 199 <<
3198 4607 C4 (fig6800to6809dumb):03094 FCB $C4
3199 4608 4C4F4F (fig6800to6809dumb):03095 FCC 'LOO' ; 'LOOP'
3200 460B D0 (fig6800to6809dumb):03096 FCB $D0
3201 460C 45F6 (fig6800to6809dumb):03097 FDB DO-5
3202 460E 368737273A5D3AA4 (fig6800to6809dumb):03098 LOOP FDB DOCOL,THREE,QPAIRS,COMPIL,XLOOP,BACK
3204 461A 3486 (fig6800to6809dumb):03099 FDB SEMIS
3205 (fig6800to6809dumb):03100 *
3206 (fig6800to6809dumb):03101 * ======>> 200 <<
3207 461C C5 (fig6800to6809dumb):03102 FCB $C5
3208 461D 2B4C4F4F (fig6800to6809dumb):03103 FCC '+LOO' ; '+LOOP'
3209 4621 D0 (fig6800to6809dumb):03104 FCB $D0
3210 4622 4607 (fig6800to6809dumb):03105 FDB LOOP-7
3211 4624 368737273A5D3AA4 (fig6800to6809dumb):03106 PLOOP FDB DOCOL,THREE,QPAIRS,COMPIL,XPLOOP,BACK
3213 4630 3486 (fig6800to6809dumb):03107 FDB SEMIS
3214 (fig6800to6809dumb):03108 *
3215 (fig6800to6809dumb):03109 * ======>> 201 <<
3216 4632 C5 (fig6800to6809dumb):03110 FCB $C5
3217 4633 554E5449 (fig6800to6809dumb):03111 FCC 'UNTI' ; 'UNTIL' : ( same as END )
3218 4637 CC (fig6800to6809dumb):03112 FCB $CC
3219 4638 461C (fig6800to6809dumb):03113 FDB PLOOP-8
3220 463A 368737173A5D3AA4 (fig6800to6809dumb):03114 UNTIL FDB DOCOL,ONE,QPAIRS,COMPIL,ZBRAN,BACK
3222 4646 3486 (fig6800to6809dumb):03115 FDB SEMIS
3223 (fig6800to6809dumb):03116 *
3224 (fig6800to6809dumb):03117 * ######>> screen 74 <<
3225 (fig6800to6809dumb):03118 * ======>> 202 <<
3226 4648 C3 (fig6800to6809dumb):03119 FCB $C3
3227 4649 454E (fig6800to6809dumb):03120 FCC 'EN' ; 'END'
3228 464B C4 (fig6800to6809dumb):03121 FCB $C4
3229 464C 4632 (fig6800to6809dumb):03122 FDB UNTIL-8
3230 464E 3687463A (fig6800to6809dumb):03123 END FDB DOCOL,UNTIL
3231 4652 3486 (fig6800to6809dumb):03124 FDB SEMIS
3232 (fig6800to6809dumb):03125 *
3233 (fig6800to6809dumb):03126 * ======>> 203 <<
3234 4654 C5 (fig6800to6809dumb):03127 FCB $C5
3235 4655 41474149 (fig6800to6809dumb):03128 FCC 'AGAI' ; 'AGAIN'
3236 4659 CE (fig6800to6809dumb):03129 FCB $CE
3237 465A 4648 (fig6800to6809dumb):03130 FDB END-6
3238 465C 368737173A5D3AA4 (fig6800to6809dumb):03131 AGAIN FDB DOCOL,ONE,QPAIRS,COMPIL,BRAN,BACK
3240 4668 3486 (fig6800to6809dumb):03132 FDB SEMIS
3241 (fig6800to6809dumb):03133 *
3242 (fig6800to6809dumb):03134 * ======>> 204 <<
3243 466A C6 (fig6800to6809dumb):03135 FCB $C6
3244 466B 5245504541 (fig6800to6809dumb):03136 FCC 'REPEA' ; 'REPEAT'
3245 4670 D4 (fig6800to6809dumb):03137 FCB $D4
3246 4671 4654 (fig6800to6809dumb):03138 FDB AGAIN-8
3247 4673 368734BA34BA465C (fig6800to6809dumb):03139 REPEAT FDB DOCOL,TOR,TOR,AGAIN,FROMR,FROMR
3249 467F 371F38D645D5 (fig6800to6809dumb):03140 FDB TWO,SUB,ENDIF
3250 4685 3486 (fig6800to6809dumb):03141 FDB SEMIS
3251 (fig6800to6809dumb):03142 *
3252 (fig6800to6809dumb):03143 * ======>> 205 <<
3253 4687 C2 (fig6800to6809dumb):03144 FCB $C2
3254 4688 49 (fig6800to6809dumb):03145 FCC 'I' ; 'IF'
3255 4689 C6 (fig6800to6809dumb):03146 FCB $C6
3256 468A 466A (fig6800to6809dumb):03147 FDB REPEAT-9
3257 468C 36873AA431483899 (fig6800to6809dumb):03148 IF FDB DOCOL,COMPIL,ZBRAN,HERE,ZERO,COMMA,TWO
3259 469A 3486 (fig6800to6809dumb):03149 FDB SEMIS
3260 (fig6800to6809dumb):03150 *
3261 (fig6800to6809dumb):03151 * ======>> 206 <<
3262 469C C4 (fig6800to6809dumb):03152 FCB $C4
3263 469D 454C53 (fig6800to6809dumb):03153 FCC 'ELS' ; 'ELSE'
3264 46A0 C5 (fig6800to6809dumb):03154 FCB $C5
3265 46A1 4687 (fig6800to6809dumb):03155 FDB IF-5
3266 46A3 3687371F3A5D3AA4 (fig6800to6809dumb):03156 ELSE FDB DOCOL,TWO,QPAIRS,COMPIL,BRAN,HERE
3268 46AF 370F38B535BE371F (fig6800to6809dumb):03157 FDB ZERO,COMMA,SWAP,TWO,ENDIF,TWO
3270 46BB 3486 (fig6800to6809dumb):03158 FDB SEMIS
3271 (fig6800to6809dumb):03159 *
3272 (fig6800to6809dumb):03160 * ======>> 207 <<
3273 46BD C5 (fig6800to6809dumb):03161 FCB $C5
3274 46BE 5748494C (fig6800to6809dumb):03162 FCC 'WHIL' ; 'WHILE'
3275 46C2 C5 (fig6800to6809dumb):03163 FCB $C5
3276 46C3 469C (fig6800to6809dumb):03164 FDB ELSE-7
3277 46C5 3687468C388A (fig6800to6809dumb):03165 WHILE FDB DOCOL,IF,TWOP
3278 46CB 3486 (fig6800to6809dumb):03166 FDB SEMIS
3279 (fig6800to6809dumb):03167 *
3280 (fig6800to6809dumb):03168 * ######>> screen 75 <<
3281 (fig6800to6809dumb):03169 * ======>> 208 <<
3282 46CD 86 (fig6800to6809dumb):03170 FCB $86
3283 46CE 5350414345 (fig6800to6809dumb):03171 FCC 'SPACE' ; 'SPACES'
3284 46D3 D3 (fig6800to6809dumb):03172 FCB $D3
3285 46D4 46BD (fig6800to6809dumb):03173 FDB WHILE-8
3286 46D6 3687370F39593972 (fig6800to6809dumb):03174 SPACES FDB DOCOL,ZERO,MAX,DDUP,ZBRAN
3288 46E0 000C (fig6800to6809dumb):03175 FDB SPACE3-*
3289 46E2 370F31C7 (fig6800to6809dumb):03176 FDB ZERO,XDO
3290 46E6 3933317B (fig6800to6809dumb):03177 SPACE2 FDB SPACE,XLOOP
3291 46EA FFFC (fig6800to6809dumb):03178 FDB SPACE2-*
3292 46EC 3486 (fig6800to6809dumb):03179 SPACE3 FDB SEMIS
3293 (fig6800to6809dumb):03180 *
3294 (fig6800to6809dumb):03181 * ======>> 209 <<
3295 46EE 82 (fig6800to6809dumb):03182 FCB $82
3296 46EF 3C (fig6800to6809dumb):03183 FCC '<' ; '<#'
3297 46F0 A3 (fig6800to6809dumb):03184 FCB $A3
3298 46F1 46CD (fig6800to6809dumb):03185 FDB SPACES-9
3299 46F3 36873DA73866364A (fig6800to6809dumb):03186 BDIGS FDB DOCOL,PAD,HLD,STORE
3300 46FB 3486 (fig6800to6809dumb):03187 FDB SEMIS
3301 (fig6800to6809dumb):03188 *
3302 (fig6800to6809dumb):03189 * ======>> 210 <<
3303 46FD 82 (fig6800to6809dumb):03190 FCB $82
3304 46FE 23 (fig6800to6809dumb):03191 FCC '#' ; '#>'
3305 46FF BE (fig6800to6809dumb):03192 FCB $BE
3306 4700 46EE (fig6800to6809dumb):03193 FDB BDIGS-5
3307 4702 368735AE35AE3866 (fig6800to6809dumb):03194 EDIGS FDB DOCOL,DROP,DROP,HLD,AT,PAD,OVER,SUB
3309 4712 3486 (fig6800to6809dumb):03195 FDB SEMIS
3310 (fig6800to6809dumb):03196 *
3311 (fig6800to6809dumb):03197 * ======>> 211 <<
3312 4714 84 (fig6800to6809dumb):03198 FCB $84
3313 4715 534947 (fig6800to6809dumb):03199 FCC 'SIG' ; 'SIGN'
3314 4718 CE (fig6800to6809dumb):03200 FCB $CE
3315 4719 46FD (fig6800to6809dumb):03201 FDB EDIGS-5
3316 471B 3687391F350E3148 (fig6800to6809dumb):03202 SIGN FDB DOCOL,ROT,ZLESS,ZBRAN
3317 4723 0007 (fig6800to6809dumb):03203 FDB SIGN2-*
3318 4725 310E (fig6800to6809dumb):03204 FDB CLITER
3319 4727 2D (fig6800to6809dumb):03205 FCC "-"
3320 4728 3D8F (fig6800to6809dumb):03206 FDB HOLD
3321 472A 3486 (fig6800to6809dumb):03207 SIGN2 FDB SEMIS
3322 (fig6800to6809dumb):03208 *
3323 (fig6800to6809dumb):03209 * ======>> 212 <<
3324 472C 81 (fig6800to6809dumb):03210 FCB $81 #
3325 472D A3 (fig6800to6809dumb):03211 FCB $A3
3326 472E 4714 (fig6800to6809dumb):03212 FDB SIGN-7
3327 4730 368738353624424C (fig6800to6809dumb):03213 DIG FDB DOCOL,BASE,AT,MSMOD,ROT,CLITER
3329 473C 09 (fig6800to6809dumb):03214 FCB 9
3330 473D 359C38EE3148 (fig6800to6809dumb):03215 FDB OVER,LESS,ZBRAN
3331 4743 0007 (fig6800to6809dumb):03216 FDB DIG2-*
3332 4745 310E (fig6800to6809dumb):03217 FDB CLITER
3333 4747 07 (fig6800to6809dumb):03218 FCB 7
3334 4748 3526 (fig6800to6809dumb):03219 FDB PLUS
3335 474A 310E (fig6800to6809dumb):03220 DIG2 FDB CLITER
3336 474C 30 (fig6800to6809dumb):03221 FCC "0" ascii zero
3337 474D 35263D8F (fig6800to6809dumb):03222 FDB PLUS,HOLD
3338 4751 3486 (fig6800to6809dumb):03223 FDB SEMIS
3339 (fig6800to6809dumb):03224 *
3340 (fig6800to6809dumb):03225 * ======>> 213 <<
3341 4753 82 (fig6800to6809dumb):03226 FCB $82
3342 4754 23 (fig6800to6809dumb):03227 FCC '#' ; '#S'
3343 4755 D3 (fig6800to6809dumb):03228 FCB $D3
3344 4756 472C (fig6800to6809dumb):03229 FDB DIG-4
3345 4758 3687 (fig6800to6809dumb):03230 DIGS FDB DOCOL
3346 475A 4730359C359C342A (fig6800to6809dumb):03231 DIGS2 FDB DIG,OVER,OVER,OR,ZEQU,ZBRAN
3348 4766 FFF4 (fig6800to6809dumb):03232 FDB DIGS2-*
3349 4768 3486 (fig6800to6809dumb):03233 FDB SEMIS
3350 (fig6800to6809dumb):03234 *
3351 (fig6800to6809dumb):03235 * ######>> screen 76 <<
3352 (fig6800to6809dumb):03236 * ======>> 214 <<
3353 476A 82 (fig6800to6809dumb):03237 FCB $82
3354 476B 2E (fig6800to6809dumb):03238 FCC '.' ; '.R'
3355 476C D2 (fig6800to6809dumb):03239 FCB $D2
3356 476D 4753 (fig6800to6809dumb):03240 FDB DIGS-5
3357 476F 368734BA41D834D4 (fig6800to6809dumb):03241 DOTR FDB DOCOL,TOR,STOD,FROMR,DDOTR
3359 4779 3486 (fig6800to6809dumb):03242 FDB SEMIS
3360 (fig6800to6809dumb):03243 *
3361 (fig6800to6809dumb):03244 * ======>> 215 <<
3362 477B 83 (fig6800to6809dumb):03245 FCB $83
3363 477C 442E (fig6800to6809dumb):03246 FCC 'D.' ; 'D.R'
3364 477E D2 (fig6800to6809dumb):03247 FCB $D2
3365 477F 476A (fig6800to6809dumb):03248 FDB DOTR-5
3366 4781 368734BA35BE359C (fig6800to6809dumb):03249 DDOTR FDB DOCOL,TOR,SWAP,OVER,DABS,BDIGS,DIGS,SIGN
3368 4791 470234D4359C38D6 (fig6800to6809dumb):03250 FDB EDIGS,FROMR,OVER,SUB,SPACES,TYPE
3370 479D 3486 (fig6800to6809dumb):03251 FDB SEMIS
3371 (fig6800to6809dumb):03252 *
3372 (fig6800to6809dumb):03253 * ======>> 216 <<
3373 479F 82 (fig6800to6809dumb):03254 FCB $82
3374 47A0 44 (fig6800to6809dumb):03255 FCC 'D' ; 'D.'
3375 47A1 AE (fig6800to6809dumb):03256 FCB $AE
3376 47A2 477B (fig6800to6809dumb):03257 FDB DDOTR-6
3377 47A4 3687370F47813933 (fig6800to6809dumb):03258 DDOT FDB DOCOL,ZERO,DDOTR,SPACE
3378 47AC 3486 (fig6800to6809dumb):03259 FDB SEMIS
3379 (fig6800to6809dumb):03260 *
3380 (fig6800to6809dumb):03261 * ======>> 217 <<
3381 47AE 81 (fig6800to6809dumb):03262 FCB $81 .
3382 47AF AE (fig6800to6809dumb):03263 FCB $AE
3383 47B0 479F (fig6800to6809dumb):03264 FDB DDOT-5
3384 47B2 368741D847A4 (fig6800to6809dumb):03265 DOT FDB DOCOL,STOD,DDOT
3385 47B8 3486 (fig6800to6809dumb):03266 FDB SEMIS
3386 (fig6800to6809dumb):03267 *
3387 (fig6800to6809dumb):03268 * ======>> 218 <<
3388 47BA 81 (fig6800to6809dumb):03269 FCB $81 ?
3389 47BB BF (fig6800to6809dumb):03270 FCB $BF
3390 47BC 47AE (fig6800to6809dumb):03271 FDB DOT-4
3391 47BE 3687362447B2 (fig6800to6809dumb):03272 QUEST FDB DOCOL,AT,DOT
3392 47C4 3486 (fig6800to6809dumb):03273 FDB SEMIS
3393 (fig6800to6809dumb):03274 *
3394 (fig6800to6809dumb):03275 * ######>> screen 77 <<
3395 (fig6800to6809dumb):03276 * ======>> 219 <<
3396 47C6 84 (fig6800to6809dumb):03277 FCB $84
3397 47C7 4C4953 (fig6800to6809dumb):03278 FCC 'LIS' ; 'LIST'
3398 47CA D4 (fig6800to6809dumb):03279 FCB $D4
3399 47CB 47BA (fig6800to6809dumb):03280 FDB QUEST-4
3400 47CD 36873B02336035DE (fig6800to6809dumb):03281 LIST FDB DOCOL,DECIM,CR,DUP,SCR,STORE,PDOTQ
3402 47DB 06 (fig6800to6809dumb):03282 FCB 6
3403 47DC 534352202320 (fig6800to6809dumb):03283 FCC "SCR # "
3404 47E2 47B2310E (fig6800to6809dumb):03284 FDB DOT,CLITER
3405 47E6 10 (fig6800to6809dumb):03285 FCB $10
3406 47E7 370F31C7 (fig6800to6809dumb):03286 FDB ZERO,XDO
3407 47EB 336031EC3727 (fig6800to6809dumb):03287 LIST2 FDB CR,I,THREE
3408 47F1 476F393331EC37F5 (fig6800to6809dumb):03288 FDB DOTR,SPACE,I,SCR,AT,DLINE,XLOOP
3410 47FF FFEC (fig6800to6809dumb):03289 FDB LIST2-*
3411 4801 3360 (fig6800to6809dumb):03290 FDB CR
3412 4803 3486 (fig6800to6809dumb):03291 FDB SEMIS
3413 (fig6800to6809dumb):03292 *
3414 (fig6800to6809dumb):03293 * ======>> 220 <<
3415 4805 85 (fig6800to6809dumb):03294 FCB $85
3416 4806 494E4445 (fig6800to6809dumb):03295 FCC 'INDE' ; 'INDEX'
3417 480A D8 (fig6800to6809dumb):03296 FCB $D8
3418 480B 47C6 (fig6800to6809dumb):03297 FDB LIST-7
3419 480D 36873360387D35BE (fig6800to6809dumb):03298 INDEX FDB DOCOL,CR,ONEP,SWAP,XDO
3421 4817 336031EC3727 (fig6800to6809dumb):03299 INDEX2 FDB CR,I,THREE
3422 481D 476F3933370F31EC (fig6800to6809dumb):03300 FDB DOTR,SPACE,ZERO,I,DLINE
3424 4827 33523148 (fig6800to6809dumb):03301 FDB QTERM,ZBRAN
3425 482B 0004 (fig6800to6809dumb):03302 FDB INDEX3-*
3426 482D 34A6 (fig6800to6809dumb):03303 FDB LEAVE
3427 482F 317B (fig6800to6809dumb):03304 INDEX3 FDB XLOOP
3428 4831 FFE6 (fig6800to6809dumb):03305 FDB INDEX2-*
3429 4833 3486 (fig6800to6809dumb):03306 FDB SEMIS
3430 (fig6800to6809dumb):03307 *
3431 (fig6800to6809dumb):03308 * ======>> 221 <<
3432 4835 85 (fig6800to6809dumb):03309 FCB $85
3433 4836 54524941 (fig6800to6809dumb):03310 FCC 'TRIA' ; 'TRIAD'
3434 483A C4 (fig6800to6809dumb):03311 FCB $C4
3435 483B 4805 (fig6800to6809dumb):03312 FDB INDEX-8
3436 483D 3687372742093727 (fig6800to6809dumb):03313 TRIAD FDB DOCOL,THREE,SLASH,THREE,STAR
3438 4847 3727359C352635BE (fig6800to6809dumb):03314 FDB THREE,OVER,PLUS,SWAP,XDO
3440 4851 336031EC (fig6800to6809dumb):03315 TRIAD2 FDB CR,I
3441 4855 47CD33523148 (fig6800to6809dumb):03316 FDB LIST,QTERM,ZBRAN
3442 485B 0004 (fig6800to6809dumb):03317 FDB TRIAD3-*
3443 485D 34A6 (fig6800to6809dumb):03318 FDB LEAVE
3444 485F 317B (fig6800to6809dumb):03319 TRIAD3 FDB XLOOP
3445 4861 FFF0 (fig6800to6809dumb):03320 FDB TRIAD2-*
3446 4863 3360310E (fig6800to6809dumb):03321 FDB CR,CLITER
3447 4867 0F (fig6800to6809dumb):03322 FCB $0F
3448 4868 440F3360 (fig6800to6809dumb):03323 FDB MESS,CR
3449 486C 3486 (fig6800to6809dumb):03324 FDB SEMIS
3450 (fig6800to6809dumb):03325 *
3451 (fig6800to6809dumb):03326 * ######>> screen 78 <<
3452 (fig6800to6809dumb):03327 * ======>> 222 <<
3453 486E 85 (fig6800to6809dumb):03328 FCB $85
3454 486F 564C4953 (fig6800to6809dumb):03329 FCC 'VLIS' ; 'VLIST'
3455 4873 D4 (fig6800to6809dumb):03330 FCB $D4
3456 4874 4835 (fig6800to6809dumb):03331 FDB TRIAD-8
3457 4876 3687310E (fig6800to6809dumb):03332 VLIST FDB DOCOL,CLITER
3458 487A 80 (fig6800to6809dumb):03333 FCB $80
3459 487B 37EB364A38103624 (fig6800to6809dumb):03334 FDB OUT,STORE,CONTXT,AT,AT
3461 4885 37EB362438743624 (fig6800to6809dumb):03335 VLIST1 FDB OUT,AT,COLUMS,AT,CLITER
3463 488F 20 (fig6800to6809dumb):03336 FCB 32
3464 4890 38D639113148 (fig6800to6809dumb):03337 FDB SUB,GREAT,ZBRAN
3465 4896 000A (fig6800to6809dumb):03338 FDB VLIST2-*
3466 4898 3360370F37EB364A (fig6800to6809dumb):03339 FDB CR,ZERO,OUT,STORE
3467 48A0 35DE3F1539333933 (fig6800to6809dumb):03340 VLIST2 FDB DUP,IDDOT,SPACE,SPACE,PFA,LFA,AT
3469 48AE 35DE34F93352342A (fig6800to6809dumb):03341 FDB DUP,ZEQU,QTERM,OR,ZBRAN
3471 48B8 FFCD (fig6800to6809dumb):03342 FDB VLIST1-*
3472 48BA 35AE (fig6800to6809dumb):03343 FDB DROP
3473 48BC 3486 (fig6800to6809dumb):03344 FDB SEMIS
3474 (fig6800to6809dumb):03345 *
3475 (fig6800to6809dumb):03346 * ======>> XX <<
3476 48BE 84 (fig6800to6809dumb):03347 FCB $84
3477 48BF 4E4F4F (fig6800to6809dumb):03348 FCC 'NOO' ; 'NOOP'
3478 48C2 D0 (fig6800to6809dumb):03349 FCB $D0
3479 48C3 486E (fig6800to6809dumb):03350 FDB VLIST-8
3480 48C5 3038 (fig6800to6809dumb):03351 NOOP FDB NEXT a useful no-op
3481 48C7 0000000000000000 (fig6800to6809dumb):03352 ZZZZ FDB 0,0,0,0,0,0,0,0 end of rom program
3483 (fig6800to6809dumb):03353
3484 (fig6800to6809dumb):03354
3485 (fig6800to6809dumb):03355
3486 (fig6800to6809dumb):03356
3487 (fig6800to6809dumb):03357
3488 (fig6800to6809dumb):03358
3489 (fig6800to6809dumb):03359
3490 (fig6800to6809dumb):03360 PAGE
3491 (fig6800to6809dumb):03361 OPT L
3492 (fig6800to6809dumb):03362 END