--- /dev/null
+ (fig6800to6809dumb):00001 OPT PRT
+ (fig6800to6809dumb):00002
+ (fig6800to6809dumb):00003 * fig-FORTH FOR 6809, converted by unintelligent conversion from 6800 source.
+ (fig6800to6809dumb):00004
+ (fig6800to6809dumb):00005 * To do:
+ (fig6800to6809dumb):00006 * 4 IO routines -- OK?
+ (fig6800to6809dumb):00007 * adjust ram locations -- OK?
+ (fig6800to6809dumb):00008 * then add trace routines -- OK?
+ (fig6800to6809dumb):00009 * then try in emulator
+ (fig6800to6809dumb):00010
+ (fig6800to6809dumb):00011 * ASSEMBLY SOURCE LISTING
+ (fig6800to6809dumb):00012
+ (fig6800to6809dumb):00013 * RELEASE 1
+ (fig6800to6809dumb):00014 * MAY 1979
+ (fig6800to6809dumb):00015 * WITH COMPILER SECURITY
+ (fig6800to6809dumb):00016 * AND VARIABLE LENGTH NAMES
+ (fig6800to6809dumb):00017
+ (fig6800to6809dumb):00018 * This public domain publication is provided
+ (fig6800to6809dumb):00019 * through the courtesy of:
+ (fig6800to6809dumb):00020 * FORTH
+ (fig6800to6809dumb):00021 * INTEREST
+ (fig6800to6809dumb):00022 * GROUP
+ (fig6800to6809dumb):00023 * fig
+ (fig6800to6809dumb):00024
+ (fig6800to6809dumb):00025 * P.O. Box 8231 - San Jose, CA 95155 - (408) 277-0668
+ (fig6800to6809dumb):00026 * Further distribution must include this notice.
+ (fig6800to6809dumb):00027 PAGE
+ (fig6800to6809dumb):00028 NAM Copyright:FORTH Interest Group
+ (fig6800to6809dumb):00029 OPT NOG,PAG
+ (fig6800to6809dumb):00030 * filename FTH7.21
+ (fig6800to6809dumb):00031 * === FORTH-6800 06-06-79 21:OO
+ (fig6800to6809dumb):00032
+ (fig6800to6809dumb):00033
+ (fig6800to6809dumb):00034 * This listing is in the PUBLIC DOMAIN and
+ (fig6800to6809dumb):00035 * may be freely copied or published with the
+ (fig6800to6809dumb):00036 * restriction that a credit line is printed
+ (fig6800to6809dumb):00037 * with the material, crediting the
+ (fig6800to6809dumb):00038 * authors and the FORTH INTEREST GROUP.
+ (fig6800to6809dumb):00039
+ (fig6800to6809dumb):00040 * === by Dave Lion,
+ (fig6800to6809dumb):00041 * === with help from
+ (fig6800to6809dumb):00042 * === Bob Smith,
+ (fig6800to6809dumb):00043 * === LaFarr Stuart,
+ (fig6800to6809dumb):00044 * === The Forth Interest Group
+ (fig6800to6809dumb):00045 * === PO Box 1105
+ (fig6800to6809dumb):00046 * === San Carlos, CA 94070
+ (fig6800to6809dumb):00047 * === and
+ (fig6800to6809dumb):00048 * === Unbounded Computing
+ (fig6800to6809dumb):00049 * === 1134-K Aster Ave.
+ (fig6800to6809dumb):00050 * === Sunnyvale, CA 94086
+ (fig6800to6809dumb):00051 *
+ (fig6800to6809dumb):00052 * This version was developed on an AMI EVK 300 PROTO
+ (fig6800to6809dumb):00053 * system using an ACIA for the I/O. All terminal 1/0
+ (fig6800to6809dumb):00054 * is done in three subroutines:
+ (fig6800to6809dumb):00055 * PEMIT ( word # 182 )
+ (fig6800to6809dumb):00056 * PKEY ( 183 )
+ (fig6800to6809dumb):00057 * PQTERM ( 184 )
+ (fig6800to6809dumb):00058 * Note: PCR, also. (PRTCR)
+ (fig6800to6809dumb):00059 *
+ (fig6800to6809dumb):00060 * The FORTH words for disc related I/O follow the model
+ (fig6800to6809dumb):00061 * of the FORTH Interest Group, but have not been
+ (fig6800to6809dumb):00062 * tested using a real disc.
+ (fig6800to6809dumb):00063 *
+ (fig6800to6809dumb):00064 * Addresses in this implementation reflect the fact that,
+ (fig6800to6809dumb):00065 * on the development system, it was convenient to
+ (fig6800to6809dumb):00066 * write-protect memory at hex 1000, and leave the first
+ (fig6800to6809dumb):00067 * 4K bytes write-enabled. As a consequence, code from
+ (fig6800to6809dumb):00068 * location $1000 to lable ZZZZ could be put in ROM.
+ (fig6800to6809dumb):00069 * Minor deviations from the model were made in the
+ (fig6800to6809dumb):00070 * initialization and words ?STACK and FORGET
+ (fig6800to6809dumb):00071 * in order to do this.
+ (fig6800to6809dumb):00072 *
+ (fig6800to6809dumb):00073
+ (fig6800to6809dumb):00074
+ (fig6800to6809dumb):00075 *
+ 0004 (fig6800to6809dumb):00076 NBLK EQU 4 # of disc buffer blocks for virtual memory
+ (fig6800to6809dumb):00077 * MEMEND EQU 132*NBLK+$3000 end of ram
+ 5294 (fig6800to6809dumb):00078 MEMEND EQU 132*NBLK+$5000+132 end of ram with some breathing room (32K Coco)
+ (fig6800to6809dumb):00079 * each block is 132 bytes in size,
+ (fig6800to6809dumb):00080 * holding 128 characters
+ (fig6800to6809dumb):00081 *
+ (fig6800to6809dumb):00082 * MEMTOP EQU $3FFF absolute end of all ram
+ 7FFF (fig6800to6809dumb):00083 MEMTOP EQU $7FFF putative absolute end of all ram (32K Coco)
+ (fig6800to6809dumb):00084 * No ACIA in Coco (how sad).
+ (fig6800to6809dumb):00085 * ACIAC EQU $FBCE the ACIA control address and
+ (fig6800to6809dumb):00086 * ACIAD EQU ACIAC+1 data address for PROTO
+ (fig6800to6809dumb):00087 PAGE
+ (fig6800to6809dumb):00088 * MEMORY MAP for this 16K system (32K Coco):
+ (fig6800to6809dumb):00089 * ( positioned so that systems with 4k byte write-
+ (fig6800to6809dumb):00090 * protected segments can write protect FORTH )
+ (fig6800to6809dumb):00091 *
+ (fig6800to6809dumb):00092 * Read below and calculate it yourself:
+ (fig6800to6809dumb):00093 * addr. contents pointer init by
+ (fig6800to6809dumb):00094 * **** ******************************* ******* ******
+ (fig6800to6809dumb):00095 * 3FFF HI
+ (fig6800to6809dumb):00096 * substitute for disc mass memory
+ (fig6800to6809dumb):00097 * 3210 LO,MEMEND
+ (fig6800to6809dumb):00098 * 320F
+ (fig6800to6809dumb):00099 * 4 buffer sectors of VIRTUAL MEMORY
+ (fig6800to6809dumb):00100 * 3000 FIRST
+ (fig6800to6809dumb):00101 * >>>>>> memory from here up must be RAM <<<<<<
+ (fig6800to6809dumb):00102 *
+ (fig6800to6809dumb):00103 * 27FF
+ (fig6800to6809dumb):00104 * 6k of romable "FORTH" <== IP ABORT
+ (fig6800to6809dumb):00105 * <== W
+ (fig6800to6809dumb):00106 * the VIRTUAL FORTH MACHINE
+ (fig6800to6809dumb):00107 *
+ (fig6800to6809dumb):00108 * 1004 (3004) <<< WARM START ENTRY >>>
+ (fig6800to6809dumb):00109 * 1000 (3000) <<< COLD START ENTRY >>>
+ (fig6800to6809dumb):00110 *
+ (fig6800to6809dumb):00111 * >>>>>> memory from here down must be RAM <<<<<<
+ (fig6800to6809dumb):00112 * FFE RETURN STACK base <== RP RINIT
+ (fig6800to6809dumb):00113 *
+ (fig6800to6809dumb):00114 * FB4
+ (fig6800to6809dumb):00115 * INPUT LINE BUFFER
+ (fig6800to6809dumb):00116 * holds up to 132 characters
+ (fig6800to6809dumb):00117 * and is scanned upward by IN
+ (fig6800to6809dumb):00118 * starting at TIB
+ (fig6800to6809dumb):00119 * F30 <== IN TIB
+ (fig6800to6809dumb):00120 * F2F DATA STACK <== SP SP0,SINIT
+ (fig6800to6809dumb):00121 * | grows downward from F2F
+ (fig6800to6809dumb):00122 * v
+ (fig6800to6809dumb):00123 * - -
+ (fig6800to6809dumb):00124 * |
+ (fig6800to6809dumb):00125 * I DICTIONARY grows upward
+ (fig6800to6809dumb):00126 *
+ (fig6800to6809dumb):00127 * 183 end of ram-dictionary. <== DP DPINIT
+ (fig6800to6809dumb):00128 * "TASK"
+ (fig6800to6809dumb):00129 *
+ (fig6800to6809dumb):00130 * 150 "FORTH" ( a word ) <=, <== CONTEXT
+ (fig6800to6809dumb):00131 * `==== CURRENT
+ (fig6800to6809dumb):00132 * 148 start of ram-dictionary.
+ (fig6800to6809dumb):00133 *
+ (fig6800to6809dumb):00134 * 100 user #l table of variables <= UP DPINIT
+ (fig6800to6809dumb):00135 * F0 registers & pointers for the virtual machine
+ (fig6800to6809dumb):00136 * scratch area used by various words
+ (fig6800to6809dumb):00137 * E0 lowest address used by FORTH
+ (fig6800to6809dumb):00138 *
+ (fig6800to6809dumb):00139 * 0000
+ (fig6800to6809dumb):00140 PAGE
+ (fig6800to6809dumb):00141 ***
+ (fig6800to6809dumb):00142 *
+ (fig6800to6809dumb):00143 * CONVENTIONS USED IN THIS PROGRAM ARE AS FOLLOWS :
+ (fig6800to6809dumb):00144 *
+ (fig6800to6809dumb):00145 * IP points to the current instruction ( pre-increment mode )
+ (fig6800to6809dumb):00146 * RP points to second free byte (first free word) in return stack
+ (fig6800to6809dumb):00147 * SP (hardware SP) points to first free byte in data stack
+ (fig6800to6809dumb):00148 *
+ (fig6800to6809dumb):00149 * when A AND B hold one 16 bit FORTH data word,
+ (fig6800to6809dumb):00150 * A contains the high byte, B, the low byte.
+ (fig6800to6809dumb):00151 ***
+ (fig6800to6809dumb):00152
+ (fig6800to6809dumb):00153
+ (fig6800to6809dumb):00154
+ (fig6800to6809dumb):00155
+ (fig6800to6809dumb):00156 * ORG $E0 variables
+ (fig6800to6809dumb):00157 ORG $1300 variables
+ 1300 (fig6800to6809dumb):00158 PGBASE EQU *
+ 0013 (fig6800to6809dumb):00159 PGBDP EQU PGBASE/$100
+ 13 (fig6800to6809dumb):00160 SETDP PGBDP
+ (fig6800to6809dumb):00161
+ (fig6800to6809dumb):00162
+1300 (fig6800to6809dumb):00163 N RMB 10 used as scratch by (FIND),ENCLOSE,CMOVE,EMIT,KEY,
+ (fig6800to6809dumb):00164 * SP@,SWAP,DOES>,COLD
+ (fig6800to6809dumb):00165
+ (fig6800to6809dumb):00166
+ (fig6800to6809dumb):00167 * These locations are used by the TRACE routine :
+ (fig6800to6809dumb):00168
+130A (fig6800to6809dumb):00169 TRLIM RMB 1 the count for tracing without user intervention
+130B (fig6800to6809dumb):00170 TRACEM RMB 1 non-zero = trace mode
+130C (fig6800to6809dumb):00171 BRKPT RMB 2 the breakpoint address at which
+ (fig6800to6809dumb):00172 * the program will go into trace mode
+130E (fig6800to6809dumb):00173 VECT RMB 2 vector to machine code
+ (fig6800to6809dumb):00174 * (only needed if the TRACE routine is resident)
+ (fig6800to6809dumb):00175
+ (fig6800to6809dumb):00176
+ (fig6800to6809dumb):00177 * Registers used by the FORTH virtual machine:
+ (fig6800to6809dumb):00178 * Starting at $OOFO:
+ (fig6800to6809dumb):00179
+ (fig6800to6809dumb):00180
+1310 (fig6800to6809dumb):00181 W RMB 2 the instruction register points to 6800 code
+1312 (fig6800to6809dumb):00182 IP RMB 2 the instruction pointer points to pointer to 6800 code
+1314 (fig6800to6809dumb):00183 RP RMB 2 the return stack pointer
+1316 (fig6800to6809dumb):00184 UP RMB 2 the pointer to base of current user's 'USER' table
+ (fig6800to6809dumb):00185 * ( altered during multi-tasking )
+ (fig6800to6809dumb):00186 *
+ (fig6800to6809dumb):00187 * For the tracer:
+1318 (fig6800to6809dumb):00188 RMB 4
+131C (fig6800to6809dumb):00189 TRASP RMB 2
+131E (fig6800to6809dumb):00190 TRAVEC RMB 2
+1320 (fig6800to6809dumb):00191 TRAA RMB 1
+1321 (fig6800to6809dumb):00192 TRAB RMB 1
+1322 (fig6800to6809dumb):00193 FLAGON RMB 1
+ (fig6800to6809dumb):00194 *
+ (fig6800to6809dumb):00195 PAGE
+ (fig6800to6809dumb):00196 * This system is shown with one user, but additional users
+ (fig6800to6809dumb):00197 * may be added by allocating additional user tables:
+ (fig6800to6809dumb):00198 * UORIG2 RMB 64 data table for user #2
+ (fig6800to6809dumb):00199 *
+ (fig6800to6809dumb):00200 *
+ (fig6800to6809dumb):00201 * Some of this stuff gets initialized during
+ (fig6800to6809dumb):00202 * COLD start and WARM start:
+ (fig6800to6809dumb):00203 * [ names correspond to FORTH words of similar (no X) name ]
+ (fig6800to6809dumb):00204 *
+ (fig6800to6809dumb):00205 * ORG $100
+ (fig6800to6809dumb):00206 ORG $1400
+1400 (fig6800to6809dumb):00207 UORIG RMB 6 3 reserved variables
+1406 (fig6800to6809dumb):00208 XSPZER RMB 2 initial top of data stack for this user
+1408 (fig6800to6809dumb):00209 XRZERO RMB 2 initial top of return stack
+140A (fig6800to6809dumb):00210 XTIB RMB 2 start of terminal input buffer
+140C (fig6800to6809dumb):00211 XWIDTH RMB 2 name field width
+140E (fig6800to6809dumb):00212 XWARN RMB 2 warning message mode (0 = no disc)
+1410 (fig6800to6809dumb):00213 XFENCE RMB 2 fence for FORGET
+1412 (fig6800to6809dumb):00214 XDP RMB 2 dictionary pointer
+1414 (fig6800to6809dumb):00215 XVOCL RMB 2 vocabulary linking
+1416 (fig6800to6809dumb):00216 XBLK RMB 2 disc block being accessed
+1418 (fig6800to6809dumb):00217 XIN RMB 2 scan pointer into the block
+141A (fig6800to6809dumb):00218 XOUT RMB 2 cursor position
+141C (fig6800to6809dumb):00219 XSCR RMB 2 disc screen being accessed ( O=terminal )
+141E (fig6800to6809dumb):00220 XOFSET RMB 2 disc sector offset for multi-disc
+1420 (fig6800to6809dumb):00221 XCONT RMB 2 last word in primary search vocabulary
+1422 (fig6800to6809dumb):00222 XCURR RMB 2 last word in extensible vocabulary
+1424 (fig6800to6809dumb):00223 XSTATE RMB 2 flag for 'interpret' or 'compile' modes
+1426 (fig6800to6809dumb):00224 XBASE RMB 2 number base for I/O numeric conversion
+1428 (fig6800to6809dumb):00225 XDPL RMB 2 decimal point place
+142A (fig6800to6809dumb):00226 XFLD RMB 2
+142C (fig6800to6809dumb):00227 XCSP RMB 2 current stack position, for compile checks
+142E (fig6800to6809dumb):00228 XRNUM RMB 2
+1430 (fig6800to6809dumb):00229 XHLD RMB 2
+1432 (fig6800to6809dumb):00230 XDELAY RMB 2 carriage return delay count
+1434 (fig6800to6809dumb):00231 XCOLUM RMB 2 carriage width
+1436 (fig6800to6809dumb):00232 IOSTAT RMB 2 last acia status from write/read
+1438 (fig6800to6809dumb):00233 RMB 2 ( 4 spares! )
+143A (fig6800to6809dumb):00234 RMB 2
+143C (fig6800to6809dumb):00235 RMB 2
+143E (fig6800to6809dumb):00236 RMB 2
+ (fig6800to6809dumb):00237
+ (fig6800to6809dumb):00238
+ (fig6800to6809dumb):00239
+ (fig6800to6809dumb):00240
+ (fig6800to6809dumb):00241 *
+ (fig6800to6809dumb):00242 *
+ (fig6800to6809dumb):00243 * end of user table, start of common system variables
+ (fig6800to6809dumb):00244 *
+ (fig6800to6809dumb):00245 *
+ (fig6800to6809dumb):00246 *
+1440 (fig6800to6809dumb):00247 XUSE RMB 2
+1442 (fig6800to6809dumb):00248 XPREV RMB 2
+1444 (fig6800to6809dumb):00249 RMB 4 ( spares )
+ (fig6800to6809dumb):00250
+ (fig6800to6809dumb):00251 PAGE
+ (fig6800to6809dumb):00252 * These things, up through the lable 'REND', are overwritten
+ (fig6800to6809dumb):00253 * at time of cold load and should have the same contents
+ (fig6800to6809dumb):00254 * as shown here:
+ (fig6800to6809dumb):00255 *
+1448 C5 (fig6800to6809dumb):00256 FCB $C5 immediate
+1449 464F5254 (fig6800to6809dumb):00257 FCC 'FORT' ; 'FORTH'
+144D C8 (fig6800to6809dumb):00258 FCB $C8
+144E 48BE (fig6800to6809dumb):00259 FDB NOOP-7
+1450 3B67408481A01478 (fig6800to6809dumb):00260 FORTH FDB DODOES,DOVOC,$81A0,TASK-7
+1458 0000 (fig6800to6809dumb):00261 FDB 0
+ (fig6800to6809dumb):00262 *
+145A 28432920466F7274 (fig6800to6809dumb):00263 FCC "(C) Forth Interest Group, 1979"
+ 6820496E74657265
+ 73742047726F7570
+ 2C2031393739
+ (fig6800to6809dumb):00264
+1478 84 (fig6800to6809dumb):00265 FCB $84
+1479 544153 (fig6800to6809dumb):00266 FCC 'TAS' ; 'TASK'
+147C CB (fig6800to6809dumb):00267 FCB $CB
+147D 1448 (fig6800to6809dumb):00268 FDB FORTH-8
+147F 36873486 (fig6800to6809dumb):00269 TASK FDB DOCOL,SEMIS
+ (fig6800to6809dumb):00270 *
+ 1483 (fig6800to6809dumb):00271 REND EQU * ( first empty location in dictionary )
+ (fig6800to6809dumb):00272
+ (fig6800to6809dumb):00273 PAGE
+ (fig6800to6809dumb):00274 * Check the addresses yourself:
+ (fig6800to6809dumb):00275 * The FORTH program ( address $1000 to $27FF ) is written
+ (fig6800to6809dumb):00276 * so that it can be in a ROM, or write-protected if desired
+ (fig6800to6809dumb):00277 ORG $3000
+ (fig6800to6809dumb):00278
+ (fig6800to6809dumb):00279 * ######>> screen 3 <<
+ (fig6800to6809dumb):00280 *
+ (fig6800to6809dumb):00281 ***************************
+ (fig6800to6809dumb):00282 ** C O L D E N T R Y **
+ (fig6800to6809dumb):00283 ***************************
+3000 12 (fig6800to6809dumb):00284 ORIG NOP
+3001 7E4115 (fig6800to6809dumb):00285 JMP CENT
+ (fig6800to6809dumb):00286 ***************************
+ (fig6800to6809dumb):00287 ** W A R M E N T R Y **
+ (fig6800to6809dumb):00288 ***************************
+3004 12 (fig6800to6809dumb):00289 NOP
+3005 7E414D (fig6800to6809dumb):00290 JMP WENT warm-start code, keeps current dictionary intact
+ (fig6800to6809dumb):00291
+ (fig6800to6809dumb):00292 *
+ (fig6800to6809dumb):00293 ******* startup parmeters **************************
+ (fig6800to6809dumb):00294 *
+ 0200 (fig6800to6809dumb):00295 RPTIB EQU $200 Give us more room to breath.
+ 0010 (fig6800to6809dumb):00296 SBUMPR EQU $10 Bumper area for stacks.
+ (fig6800to6809dumb):00297 *
+3008 68001A99 (fig6800to6809dumb):00298 FDB $6800,6809 cpu & revision
+300C 0000 (fig6800to6809dumb):00299 FDB 0 topmost word in FORTH vocabulary
+300E 007F (fig6800to6809dumb):00300 BACKSP FDB $7F backspace character for editing
+3010 1400 (fig6800to6809dumb):00301 UPINIT FDB UORIG initial user area
+ (fig6800to6809dumb):00302 * SINIT FDB ORIG-$D0 initial top of data stack
+3012 2DE0 (fig6800to6809dumb):00303 SINIT FDB ORIG-RPTIB-SBUMPR*2
+ (fig6800to6809dumb):00304 * RINIT FDB ORIG-2 initial top of return stack
+3014 2FF0 (fig6800to6809dumb):00305 RINIT FDB ORIG-SBUMPR
+ (fig6800to6809dumb):00306 * FDB ORIG-$D0 terminal input buffer
+3016 2DF0 (fig6800to6809dumb):00307 FDB ORIG-RPTIB-SBUMPR
+3018 001F (fig6800to6809dumb):00308 FDB 31 initial name field width
+301A 0000 (fig6800to6809dumb):00309 FDB 0 initial warning mode (0 = no disc)
+301C 1483 (fig6800to6809dumb):00310 FENCIN FDB REND initial fence
+301E 1483 (fig6800to6809dumb):00311 DPINIT FDB REND cold start value for DP
+3020 1458 (fig6800to6809dumb):00312 VOCINT FDB FORTH+8
+3022 0084 (fig6800to6809dumb):00313 COLINT FDB 132 initial terminal carriage width
+3024 0004 (fig6800to6809dumb):00314 DELINT FDB 4 initial carriage return delay
+ (fig6800to6809dumb):00315 ****************************************************
+ (fig6800to6809dumb):00316 *
+ (fig6800to6809dumb):00317 PAGE
+ (fig6800to6809dumb):00318 *
+ (fig6800to6809dumb):00319 * ######>> screen 13 <<
+ (fig6800to6809dumb):00320 * Calculate the cycles yourself:
+3026 3502 (fig6800to6809dumb):00321 PULABX PULS A 24 cycles until 'NEXT'
+3028 3504 (fig6800to6809dumb):00322 PULS B
+302A A700 (fig6800to6809dumb):00323 STABX STA 0,X 16 cycles until 'NEXT'
+302C E701 (fig6800to6809dumb):00324 STB 1,X
+302E 2008 (fig6800to6809dumb):00325 BRA NEXT
+3030 A600 (fig6800to6809dumb):00326 GETX LDA 0,X 18 cycles until 'NEXT'
+3032 E601 (fig6800to6809dumb):00327 LDB 1,X
+3034 3404 (fig6800to6809dumb):00328 PUSHBA PSHS B 8 cycles until 'NEXT'
+3036 3402 (fig6800to6809dumb):00329 PSHS A
+ (fig6800to6809dumb):00330
+ (fig6800to6809dumb):00331
+ (fig6800to6809dumb):00332
+ (fig6800to6809dumb):00333 *
+ (fig6800to6809dumb):00334 * "NEXT" takes 38 cycles if TRACE is removed,
+ (fig6800to6809dumb):00335 *
+ (fig6800to6809dumb):00336 * and 95 cycles if NOT tracing. (Way bogus numbers by now.)
+ (fig6800to6809dumb):00337 *
+ (fig6800to6809dumb):00338 * = = = = = = = t h e v i r t u a l m a c h i n e = = = = =
+ (fig6800to6809dumb):00339 * =
+3038 9E12 (fig6800to6809dumb):00340 NEXT LDX IP
+303A 3001 (fig6800to6809dumb):00341 LEAX 1,X pre-increment mode
+303C 3001 (fig6800to6809dumb):00342 LEAX 1,X
+303E 9F12 (fig6800to6809dumb):00343 STX IP
+3040 AE00 (fig6800to6809dumb):00344 NEXT2 LDX 0,X get W which points to CFA of word to be done
+3042 9F10 (fig6800to6809dumb):00345 NEXT3 STX W
+3044 AE00 (fig6800to6809dumb):00346 LDX 0,X get VECT which points to executable code
+ (fig6800to6809dumb):00347 * =
+ (fig6800to6809dumb):00348 * The next instruction could be patched to JMP TRACE =
+ (fig6800to6809dumb):00349 * if a TRACE routine is available: =
+ (fig6800to6809dumb):00350 * =
+ (fig6800to6809dumb):00351 * Or add the TRACE routine in-line, since we are assembling it.
+3046 0D0B (fig6800to6809dumb):00352 TST TRACEM
+3048 276A (fig6800to6809dumb):00353 BEQ NEXTGO
+304A 9F1E (fig6800to6809dumb):00354 STX TRAVEC
+304C 1F41 (fig6800to6809dumb):00355 TFR S,X ; Mechanical! Mechanical! (So the funn 6800 stack didn't beach us.)
+304E 9F1C (fig6800to6809dumb):00356 STX TRASP
+3050 863A (fig6800to6809dumb):00357 LDA #':'
+3052 BD4494 (fig6800to6809dumb):00358 JSR PEMIT
+ (fig6800to6809dumb):00359 * LDA #' '
+ (fig6800to6809dumb):00360 * JSR PEMIT
+3055 9E10 (fig6800to6809dumb):00361 LDX W
+3057 301F (fig6800to6809dumb):00362 LEAX -1,X
+3059 301F (fig6800to6809dumb):00363 LEAX -1,X ; allocation link
+305B 301F (fig6800to6809dumb):00364 LEAX -1,X ; last char
+305D 861F (fig6800to6809dumb):00365 LDA #31
+305F 301F (fig6800to6809dumb):00366 NAMTST LEAX -1,X ; length byte?
+3061 E600 (fig6800to6809dumb):00367 LDB 0,X
+3063 2B03 (fig6800to6809dumb):00368 BMI NAMTDN
+3065 4A (fig6800to6809dumb):00369 DECA
+3066 26F7 (fig6800to6809dumb):00370 BNE NAMTST
+3068 C41F (fig6800to6809dumb):00371 NAMTDN ANDB #31 ; It's the length byte whether it wants to be or not.
+306A 3001 (fig6800to6809dumb):00372 NAMSHW LEAX 1,X
+306C A600 (fig6800to6809dumb):00373 LDA 0,X
+306E BD4494 (fig6800to6809dumb):00374 JSR PEMIT
+3071 5A (fig6800to6809dumb):00375 DECB
+3072 26F6 (fig6800to6809dumb):00376 BNE NAMSHW
+ (fig6800to6809dumb):00377 * show the virtual registers
+ (fig6800to6809dumb):00378 * TOO MUCH OUTPUT! Have to trim this.
+3074 8620 (fig6800to6809dumb):00379 LDA #' '
+3076 BD4494 (fig6800to6809dumb):00380 JSR PEMIT
+3079 8640 (fig6800to6809dumb):00381 LDA #'@'
+307B 8E131E (fig6800to6809dumb):00382 LDX #TRAVEC
+307E BD30B7 (fig6800to6809dumb):00383 JSR PHEX4F
+3081 1FB8 (fig6800to6809dumb):00384 TFR DP,A
+3083 C610 (fig6800to6809dumb):00385 LDB #(W-PGBASE)
+3085 1F01 (fig6800to6809dumb):00386 TFR D,X
+3087 8657 (fig6800to6809dumb):00387 LDA #'W'
+3089 BD30B7 (fig6800to6809dumb):00388 JSR PHEX4F
+308C 8649 (fig6800to6809dumb):00389 LDA #'I'
+308E BD30B7 (fig6800to6809dumb):00390 JSR PHEX4F
+3091 8652 (fig6800to6809dumb):00391 LDA #'R'
+3093 BD30B7 (fig6800to6809dumb):00392 JSR PHEX4F
+3096 8655 (fig6800to6809dumb):00393 LDA #'U'
+3098 BD30B7 (fig6800to6809dumb):00394 JSR PHEX4F
+309B 1FB8 (fig6800to6809dumb):00395 TFR DP,A
+309D C6F4 (fig6800to6809dumb):00396 LDB #(W-TRASP)
+309F 1F01 (fig6800to6809dumb):00397 TFR D,X
+30A1 8653 (fig6800to6809dumb):00398 LDA #'S'
+30A3 8D12 (fig6800to6809dumb):00399 BSR PHEX4F
+30A5 863E (fig6800to6809dumb):00400 LDA #'>'
+30A7 1F41 (fig6800to6809dumb):00401 TFR S,X
+30A9 8D0C (fig6800to6809dumb):00402 BSR PHEX4F
+30AB 8620 (fig6800to6809dumb):00403 LDA #' '
+30AD 8D08 (fig6800to6809dumb):00404 BSR PHEX4F
+ (fig6800to6809dumb):00405 *
+30AF BD44CD (fig6800to6809dumb):00406 JSR PRTCR
+30B2 9E1E (fig6800to6809dumb):00407 LDX TRAVEC
+ (fig6800to6809dumb):00408 *
+30B4 6E00 (fig6800to6809dumb):00409 NEXTGO JMP 0,X
+30B6 12 (fig6800to6809dumb):00410 NOP
+ (fig6800to6809dumb):00411 * JMP TRACE ( an alternate for the above )
+ (fig6800to6809dumb):00412 * =
+ (fig6800to6809dumb):00413 * =
+ (fig6800to6809dumb):00414 *DBG
+30B7 BD4494 (fig6800to6809dumb):00415 PHEX4F JSR PEMIT
+30BA 8D07 (fig6800to6809dumb):00416 BSR PHEXX2
+30BC 8D05 (fig6800to6809dumb):00417 BSR PHEXX2
+30BE 8620 (fig6800to6809dumb):00418 LDA #' '
+30C0 7E4494 (fig6800to6809dumb):00419 JMP PEMIT ; rob return
+ (fig6800to6809dumb):00420 *
+30C3 A600 (fig6800to6809dumb):00421 PHEXX2 LDA 0,X
+30C5 44 (fig6800to6809dumb):00422 LSRA
+30C6 44 (fig6800to6809dumb):00423 LSRA
+30C7 44 (fig6800to6809dumb):00424 LSRA
+30C8 44 (fig6800to6809dumb):00425 LSRA
+30C9 8D07 (fig6800to6809dumb):00426 BSR PHEXD
+30CB A600 (fig6800to6809dumb):00427 LDA 0,X
+30CD 8D03 (fig6800to6809dumb):00428 BSR PHEXD
+30CF 3001 (fig6800to6809dumb):00429 LEAX 1,X
+30D1 39 (fig6800to6809dumb):00430 RTS
+ (fig6800to6809dumb):00431 *
+30D2 840F (fig6800to6809dumb):00432 PHEXD ANDA #$0F
+30D4 810A (fig6800to6809dumb):00433 CMPA #10
+30D6 2502 (fig6800to6809dumb):00434 BLO PHEXDH
+30D8 8B07 (fig6800to6809dumb):00435 ADDA #7 ; 'A'-'9'+1
+30DA 8B30 (fig6800to6809dumb):00436 PHEXDH ADDA #'0'
+30DC 7E4494 (fig6800to6809dumb):00437 JMP PEMIT ; rob return
+ (fig6800to6809dumb):00438 *
+30DF 30E1 (fig6800to6809dumb):00439 DEBUGP FDB *+2
+30E1 0C22 (fig6800to6809dumb):00440 INC FLAGON my version of trace
+30E3 9622 (fig6800to6809dumb):00441 LDA FLAGON
+30E5 BD4494 (fig6800to6809dumb):00442 JSR PEMIT
+30E8 7E3038 (fig6800to6809dumb):00443 JMP NEXT
+ (fig6800to6809dumb):00444 *
+30EB 30ED (fig6800to6809dumb):00445 DEBUGM FDB *+2
+30ED 0A22 (fig6800to6809dumb):00446 DEC FLAGON my version of trace
+30EF 9622 (fig6800to6809dumb):00447 LDA FLAGON
+30F1 BD4494 (fig6800to6809dumb):00448 JSR PEMIT
+30F4 7E3038 (fig6800to6809dumb):00449 JMP NEXT
+ (fig6800to6809dumb):00450 *DBG
+ (fig6800to6809dumb):00451 * = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
+ (fig6800to6809dumb):00452
+ (fig6800to6809dumb):00453
+ (fig6800to6809dumb):00454 PAGE
+ (fig6800to6809dumb):00455 *
+ (fig6800to6809dumb):00456 * ======>> 1 <<
+30F7 83 (fig6800to6809dumb):00457 FCB $83
+30F8 4C49 (fig6800to6809dumb):00458 FCC 'LI' ; 'LIT' : NOTE: this is different from LITERAL
+30FA D4 (fig6800to6809dumb):00459 FCB $D4
+30FB 0000 (fig6800to6809dumb):00460 FDB 0 link of zero to terminate dictionary scan
+30FD 30FF (fig6800to6809dumb):00461 LIT FDB *+2
+30FF 9E12 (fig6800to6809dumb):00462 LDX IP
+3101 3001 (fig6800to6809dumb):00463 LEAX 1,X
+3103 3001 (fig6800to6809dumb):00464 LEAX 1,X
+3105 9F12 (fig6800to6809dumb):00465 STX IP
+3107 A600 (fig6800to6809dumb):00466 LDA 0,X
+3109 E601 (fig6800to6809dumb):00467 LDB 1,X
+310B 7E3034 (fig6800to6809dumb):00468 JMP PUSHBA
+ (fig6800to6809dumb):00469 *
+ (fig6800to6809dumb):00470 * ######>> screen 14 <<
+ (fig6800to6809dumb):00471 * ======>> 2 <<
+310E 3110 (fig6800to6809dumb):00472 CLITER FDB *+2 (this is an invisible word, with no header)
+3110 9E12 (fig6800to6809dumb):00473 LDX IP
+3112 3001 (fig6800to6809dumb):00474 LEAX 1,X
+3114 9F12 (fig6800to6809dumb):00475 STX IP
+3116 4F (fig6800to6809dumb):00476 CLRA
+3117 E601 (fig6800to6809dumb):00477 LDB 1,X
+3119 7E3034 (fig6800to6809dumb):00478 JMP PUSHBA
+ (fig6800to6809dumb):00479 *
+ (fig6800to6809dumb):00480 * ======>> 3 <<
+311C 87 (fig6800to6809dumb):00481 FCB $87
+311D 455845435554 (fig6800to6809dumb):00482 FCC 'EXECUT' ; 'EXECUTE'
+3123 C5 (fig6800to6809dumb):00483 FCB $C5
+3124 30F7 (fig6800to6809dumb):00484 FDB LIT-6
+3126 3128 (fig6800to6809dumb):00485 EXEC FDB *+2
+3128 1F41 (fig6800to6809dumb):00486 TFR S,X
+312A AE00 (fig6800to6809dumb):00487 LDX 0,X get code field address (CFA)
+312C 3261 (fig6800to6809dumb):00488 LEAS 1,S pop stack
+312E 3261 (fig6800to6809dumb):00489 LEAS 1,S
+3130 7E3042 (fig6800to6809dumb):00490 JMP NEXT3
+ (fig6800to6809dumb):00491 *
+ (fig6800to6809dumb):00492 * ######>> screen 15 <<
+ (fig6800to6809dumb):00493 * ======>> 4 <<
+3133 86 (fig6800to6809dumb):00494 FCB $86
+3134 4252414E43 (fig6800to6809dumb):00495 FCC 'BRANC' ; 'BRANCH'
+3139 C8 (fig6800to6809dumb):00496 FCB $C8
+313A 311C (fig6800to6809dumb):00497 FDB EXEC-10
+313C 3156 (fig6800to6809dumb):00498 BRAN FDB ZBYES Go steal code in ZBRANCH
+ (fig6800to6809dumb):00499 *
+ (fig6800to6809dumb):00500 * ======>> 5 <<
+313E 87 (fig6800to6809dumb):00501 FCB $87
+313F 304252414E43 (fig6800to6809dumb):00502 FCC '0BRANC' ; '0BRANCH'
+3145 C8 (fig6800to6809dumb):00503 FCB $C8
+3146 3133 (fig6800to6809dumb):00504 FDB BRAN-9
+3148 314A (fig6800to6809dumb):00505 ZBRAN FDB *+2
+314A 3502 (fig6800to6809dumb):00506 PULS A
+314C 3504 (fig6800to6809dumb):00507 PULS B
+ (fig6800to6809dumb):00508 * ABA is only used here.
+ (fig6800to6809dumb):00509 * Could immediately convert PULs to LDD ,S++ ;
+ (fig6800to6809dumb):00510 * with no need for trailing BCS to look for overflow
+ (fig6800to6809dumb):00511 * because we are only testing for non-zero, but,
+ (fig6800to6809dumb):00512 * converting as if by unintelligent macro:
+314E 3404 (fig6800to6809dumb):00513 PSHS B ; LOL
+3150 ABE0 (fig6800to6809dumb):00514 ADDA ,S+
+ (fig6800to6809dumb):00515 * End of unintelligent ABA conversion.
+3152 2613 (fig6800to6809dumb):00516 BNE ZBNO
+3154 2511 (fig6800to6809dumb):00517 BCS ZBNO
+3156 9E12 (fig6800to6809dumb):00518 ZBYES LDX IP Note: code is shared with BRANCH, (+LOOP), (LOOP)
+3158 E603 (fig6800to6809dumb):00519 LDB 3,X
+315A A602 (fig6800to6809dumb):00520 LDA 2,X
+315C DB13 (fig6800to6809dumb):00521 ADDB IP+1
+315E 9912 (fig6800to6809dumb):00522 ADCA IP
+3160 D713 (fig6800to6809dumb):00523 STB IP+1
+3162 9712 (fig6800to6809dumb):00524 STA IP
+3164 7E3038 (fig6800to6809dumb):00525 JMP NEXT
+3167 9E12 (fig6800to6809dumb):00526 ZBNO LDX IP no branch. This code is shared with (+LOOP), (LOOP).
+3169 3001 (fig6800to6809dumb):00527 LEAX 1,X jump over branch delta
+316B 3001 (fig6800to6809dumb):00528 LEAX 1,X
+316D 9F12 (fig6800to6809dumb):00529 STX IP
+316F 7E3038 (fig6800to6809dumb):00530 JMP NEXT
+ (fig6800to6809dumb):00531 *
+ (fig6800to6809dumb):00532 * ######>> screen 16 <<
+ (fig6800to6809dumb):00533 * ======>> 6 <<
+3172 86 (fig6800to6809dumb):00534 FCB $86
+3173 284C4F4F50 (fig6800to6809dumb):00535 FCC '(LOOP' ; '(LOOP)'
+3178 A9 (fig6800to6809dumb):00536 FCB $A9
+3179 313E (fig6800to6809dumb):00537 FDB ZBRAN-10
+317B 317D (fig6800to6809dumb):00538 XLOOP FDB *+2
+317D 4F (fig6800to6809dumb):00539 CLRA
+317E C601 (fig6800to6809dumb):00540 LDB #1 get set to increment counter by 1
+3180 2010 (fig6800to6809dumb):00541 BRA XPLOP2 go steal other guy's code!
+ (fig6800to6809dumb):00542 *
+ (fig6800to6809dumb):00543 * ======>> 7 <<
+3182 87 (fig6800to6809dumb):00544 FCB $87
+3183 282B4C4F4F50 (fig6800to6809dumb):00545 FCC '(+LOOP' ; '(+LOOP)'
+3189 A9 (fig6800to6809dumb):00546 FCB $A9
+318A 3172 (fig6800to6809dumb):00547 FDB XLOOP-9
+318C 318E (fig6800to6809dumb):00548 XPLOOP FDB *+2 Note: +LOOP has an un-signed loop counter
+318E 3502 (fig6800to6809dumb):00549 PULS A get increment
+3190 3504 (fig6800to6809dumb):00550 PULS B
+3192 4D (fig6800to6809dumb):00551 XPLOP2 TSTA
+3193 2A17 (fig6800to6809dumb):00552 BPL XPLOF forward looping
+3195 8D0A (fig6800to6809dumb):00553 BSR XPLOPS
+3197 1A01 (fig6800to6809dumb):00554 ORCC #1
+3199 E205 (fig6800to6809dumb):00555 SBCB 5,X
+319B A204 (fig6800to6809dumb):00556 SBCA 4,X
+319D 2AB7 (fig6800to6809dumb):00557 BPL ZBYES
+319F 2013 (fig6800to6809dumb):00558 BRA XPLONO fall through
+ (fig6800to6809dumb):00559 *
+ (fig6800to6809dumb):00560 * the subroutine :
+31A1 9E14 (fig6800to6809dumb):00561 XPLOPS LDX RP
+31A3 EB03 (fig6800to6809dumb):00562 ADDB 3,X add it to counter
+31A5 A902 (fig6800to6809dumb):00563 ADCA 2,X
+31A7 E703 (fig6800to6809dumb):00564 STB 3,X store new counter value
+31A9 A702 (fig6800to6809dumb):00565 STA 2,X
+31AB 39 (fig6800to6809dumb):00566 RTS
+ (fig6800to6809dumb):00567 *
+31AC 8DF3 (fig6800to6809dumb):00568 XPLOF BSR XPLOPS
+31AE E005 (fig6800to6809dumb):00569 SUBB 5,X
+31B0 A204 (fig6800to6809dumb):00570 SBCA 4,X
+31B2 2BA2 (fig6800to6809dumb):00571 BMI ZBYES
+ (fig6800to6809dumb):00572 *
+31B4 3001 (fig6800to6809dumb):00573 XPLONO LEAX 1,X done, don't branch back
+31B6 3001 (fig6800to6809dumb):00574 LEAX 1,X
+31B8 3001 (fig6800to6809dumb):00575 LEAX 1,X
+31BA 3001 (fig6800to6809dumb):00576 LEAX 1,X
+31BC 9F14 (fig6800to6809dumb):00577 STX RP
+31BE 20A7 (fig6800to6809dumb):00578 BRA ZBNO use ZBRAN to skip over unused delta
+ (fig6800to6809dumb):00579 *
+ (fig6800to6809dumb):00580 * ######>> screen 17 <<
+ (fig6800to6809dumb):00581 * ======>> 8 <<
+31C0 84 (fig6800to6809dumb):00582 FCB $84
+31C1 28444F (fig6800to6809dumb):00583 FCC '(DO' ; '(DO)'
+31C4 A9 (fig6800to6809dumb):00584 FCB $A9
+31C5 3182 (fig6800to6809dumb):00585 FDB XPLOOP-10
+31C7 31C9 (fig6800to6809dumb):00586 XDO FDB *+2 This is the RUNTIME DO, not the COMPILING DO
+31C9 9E14 (fig6800to6809dumb):00587 LDX RP
+31CB 301F (fig6800to6809dumb):00588 LEAX -1,X
+31CD 301F (fig6800to6809dumb):00589 LEAX -1,X
+31CF 301F (fig6800to6809dumb):00590 LEAX -1,X
+31D1 301F (fig6800to6809dumb):00591 LEAX -1,X
+31D3 9F14 (fig6800to6809dumb):00592 STX RP
+31D5 3502 (fig6800to6809dumb):00593 PULS A
+31D7 3504 (fig6800to6809dumb):00594 PULS B
+31D9 A702 (fig6800to6809dumb):00595 STA 2,X
+31DB E703 (fig6800to6809dumb):00596 STB 3,X
+31DD 3502 (fig6800to6809dumb):00597 PULS A
+31DF 3504 (fig6800to6809dumb):00598 PULS B
+31E1 A704 (fig6800to6809dumb):00599 STA 4,X
+31E3 E705 (fig6800to6809dumb):00600 STB 5,X
+31E5 7E3038 (fig6800to6809dumb):00601 JMP NEXT
+ (fig6800to6809dumb):00602 *
+ (fig6800to6809dumb):00603 * ======>> 9 <<
+31E8 81 (fig6800to6809dumb):00604 FCB $81 I
+31E9 C9 (fig6800to6809dumb):00605 FCB $C9
+31EA 31C0 (fig6800to6809dumb):00606 FDB XDO-7
+31EC 31EE (fig6800to6809dumb):00607 I FDB *+2
+31EE 9E14 (fig6800to6809dumb):00608 LDX RP
+31F0 3001 (fig6800to6809dumb):00609 LEAX 1,X
+31F2 3001 (fig6800to6809dumb):00610 LEAX 1,X
+31F4 7E3030 (fig6800to6809dumb):00611 JMP GETX
+ (fig6800to6809dumb):00612 *
+ (fig6800to6809dumb):00613 * ######>> screen 18 <<
+ (fig6800to6809dumb):00614 * ======>> 10 <<
+31F7 85 (fig6800to6809dumb):00615 FCB $85
+31F8 44494749 (fig6800to6809dumb):00616 FCC 'DIGI' ; 'DIGIT'
+31FC D4 (fig6800to6809dumb):00617 FCB $D4
+31FD 31E8 (fig6800to6809dumb):00618 FDB I-4
+31FF 3201 (fig6800to6809dumb):00619 DIGIT FDB *+2 NOTE: legal input range is 0-9, A-Z
+3201 1F41 (fig6800to6809dumb):00620 TFR S,X
+3203 A603 (fig6800to6809dumb):00621 LDA 3,X
+3205 8030 (fig6800to6809dumb):00622 SUBA #$30 ascii zero
+3207 2B1B (fig6800to6809dumb):00623 BMI DIGIT2 IF LESS THAN '0', ILLEGAL
+3209 810A (fig6800to6809dumb):00624 CMPA #$A
+320B 2B0A (fig6800to6809dumb):00625 BMI DIGIT0 IF '9' OR LESS
+320D 8111 (fig6800to6809dumb):00626 CMPA #$11
+320F 2B13 (fig6800to6809dumb):00627 BMI DIGIT2 if less than 'A'
+3211 812B (fig6800to6809dumb):00628 CMPA #$2B
+3213 2A0F (fig6800to6809dumb):00629 BPL DIGIT2 if greater than 'Z'
+3215 8007 (fig6800to6809dumb):00630 SUBA #7 translate 'A' thru 'F'
+3217 A101 (fig6800to6809dumb):00631 DIGIT0 CMPA 1,X
+3219 2A09 (fig6800to6809dumb):00632 BPL DIGIT2 if not less than the base
+321B C601 (fig6800to6809dumb):00633 LDB #1 set flag
+321D A703 (fig6800to6809dumb):00634 STA 3,X store digit
+321F E701 (fig6800to6809dumb):00635 DIGIT1 STB 1,X store the flag
+3221 7E3038 (fig6800to6809dumb):00636 JMP NEXT
+3224 5F (fig6800to6809dumb):00637 DIGIT2 CLRB
+3225 3261 (fig6800to6809dumb):00638 LEAS 1,S
+3227 3261 (fig6800to6809dumb):00639 LEAS 1,S pop bottom number
+3229 1F41 (fig6800to6809dumb):00640 TFR S,X
+322B E700 (fig6800to6809dumb):00641 STB 0,X make sure both bytes are 00
+322D 20F0 (fig6800to6809dumb):00642 BRA DIGIT1
+ (fig6800to6809dumb):00643 *
+ (fig6800to6809dumb):00644 * ######>> screen 19 <<
+ (fig6800to6809dumb):00645 *
+ (fig6800to6809dumb):00646 * The word format in the dictionary is:
+ (fig6800to6809dumb):00647 *
+ (fig6800to6809dumb):00648 * char-count + $80 lowest address
+ (fig6800to6809dumb):00649 * char 1
+ (fig6800to6809dumb):00650 * char 2
+ (fig6800to6809dumb):00651 *
+ (fig6800to6809dumb):00652 * char n + $80
+ (fig6800to6809dumb):00653 * link high byte \___point to previous word
+ (fig6800to6809dumb):00654 * link low byte /
+ (fig6800to6809dumb):00655 * CFA high byte \___pnt to 6800 code
+ (fig6800to6809dumb):00656 * CFA low byte /
+ (fig6800to6809dumb):00657 * parameter fields
+ (fig6800to6809dumb):00658 * "
+ (fig6800to6809dumb):00659 * "
+ (fig6800to6809dumb):00660 * "
+ (fig6800to6809dumb):00661 *
+ (fig6800to6809dumb):00662 * ======>> 11 <<
+322F 86 (fig6800to6809dumb):00663 FCB $86
+3230 2846494E44 (fig6800to6809dumb):00664 FCC '(FIND' ; '(FIND)'
+3235 A9 (fig6800to6809dumb):00665 FCB $A9
+3236 31F7 (fig6800to6809dumb):00666 FDB DIGIT-8
+3238 323A (fig6800to6809dumb):00667 PFIND FDB *+2
+323A 12 (fig6800to6809dumb):00668 NOP
+323B 12 (fig6800to6809dumb):00669 NOP
+ 1300 (fig6800to6809dumb):00670 PD EQU N ptr to dict word being checked
+ 1302 (fig6800to6809dumb):00671 PA0 EQU N+2
+ 1304 (fig6800to6809dumb):00672 PA EQU N+4
+ 1306 (fig6800to6809dumb):00673 PCT EQU N+6 ; PC in 6800 source
+323C 8E1300 (fig6800to6809dumb):00674 LDX #PD
+323F C604 (fig6800to6809dumb):00675 LDB #4
+3241 3502 (fig6800to6809dumb):00676 PFIND0 PULS A loop to get arguments
+3243 A700 (fig6800to6809dumb):00677 STA 0,X
+3245 3001 (fig6800to6809dumb):00678 LEAX 1,X
+3247 5A (fig6800to6809dumb):00679 DECB
+3248 26F7 (fig6800to6809dumb):00680 BNE PFIND0
+ (fig6800to6809dumb):00681 *
+324A 9E00 (fig6800to6809dumb):00682 LDX PD
+324C E600 (fig6800to6809dumb):00683 PFIND1 LDB 0,X get count dict count
+324E D706 (fig6800to6809dumb):00684 STB PCT
+3250 C43F (fig6800to6809dumb):00685 ANDB #$3F
+3252 3001 (fig6800to6809dumb):00686 LEAX 1,X
+3254 9F00 (fig6800to6809dumb):00687 STX PD update PD
+3256 9E02 (fig6800to6809dumb):00688 LDX PA0
+3258 A600 (fig6800to6809dumb):00689 LDA 0,X get count from arg
+325A 3001 (fig6800to6809dumb):00690 LEAX 1,X
+325C 9F04 (fig6800to6809dumb):00691 STX PA intialize PA
+325E 3404 (fig6800to6809dumb):00692 PSHS B ; sim CBA
+3260 A1E0 (fig6800to6809dumb):00693 CMPA ,S+ compare lengths
+3262 262A (fig6800to6809dumb):00694 BNE PFIND4
+3264 9E04 (fig6800to6809dumb):00695 PFIND2 LDX PA
+3266 A600 (fig6800to6809dumb):00696 LDA 0,X
+3268 3001 (fig6800to6809dumb):00697 LEAX 1,X
+326A 9F04 (fig6800to6809dumb):00698 STX PA
+326C 9E00 (fig6800to6809dumb):00699 LDX PD
+326E E600 (fig6800to6809dumb):00700 LDB 0,X
+3270 3001 (fig6800to6809dumb):00701 LEAX 1,X
+3272 9F00 (fig6800to6809dumb):00702 STX PD
+3274 5D (fig6800to6809dumb):00703 TSTB is dict entry neg. ?
+3275 2A11 (fig6800to6809dumb):00704 BPL PFIND8
+3277 C47F (fig6800to6809dumb):00705 ANDB #$7F clear sign
+3279 3404 (fig6800to6809dumb):00706 PSHS B ; sim CBA
+327B A1E0 (fig6800to6809dumb):00707 CMPA ,S+
+327D 2719 (fig6800to6809dumb):00708 BEQ FOUND
+327F AE00 (fig6800to6809dumb):00709 PFIND3 LDX 0,X get new link
+3281 26C9 (fig6800to6809dumb):00710 BNE PFIND1 continue if link not=0
+ (fig6800to6809dumb):00711 *
+ (fig6800to6809dumb):00712 * not found :
+ (fig6800to6809dumb):00713 *
+3283 4F (fig6800to6809dumb):00714 CLRA
+3284 5F (fig6800to6809dumb):00715 CLRB
+3285 7E3034 (fig6800to6809dumb):00716 JMP PUSHBA
+3288 3404 (fig6800to6809dumb):00717 PFIND8 PSHS B ; sim CBA
+328A A1E0 (fig6800to6809dumb):00718 CMPA ,S+
+328C 27D6 (fig6800to6809dumb):00719 BEQ PFIND2
+328E 9E00 (fig6800to6809dumb):00720 PFIND4 LDX PD
+3290 E600 (fig6800to6809dumb):00721 PFIND9 LDB 0,X scan forward to end of this name
+3292 3001 (fig6800to6809dumb):00722 LEAX 1,X
+3294 2AFA (fig6800to6809dumb):00723 BPL PFIND9
+3296 20E7 (fig6800to6809dumb):00724 BRA PFIND3
+ (fig6800to6809dumb):00725 *
+ (fig6800to6809dumb):00726 * found :
+ (fig6800to6809dumb):00727 *
+3298 9600 (fig6800to6809dumb):00728 FOUND LDA PD compute CFA
+329A D601 (fig6800to6809dumb):00729 LDB PD+1
+329C CB04 (fig6800to6809dumb):00730 ADDB #4
+329E 8900 (fig6800to6809dumb):00731 ADCA #0
+32A0 3404 (fig6800to6809dumb):00732 PSHS B
+32A2 3402 (fig6800to6809dumb):00733 PSHS A
+32A4 9606 (fig6800to6809dumb):00734 LDA PCT
+32A6 3402 (fig6800to6809dumb):00735 PSHS A
+32A8 4F (fig6800to6809dumb):00736 CLRA
+32A9 3402 (fig6800to6809dumb):00737 PSHS A
+32AB C601 (fig6800to6809dumb):00738 LDB #1
+32AD 7E3034 (fig6800to6809dumb):00739 JMP PUSHBA
+ (fig6800to6809dumb):00740 *
+32B0 3402 (fig6800to6809dumb):00741 PSHS A
+32B2 4F (fig6800to6809dumb):00742 CLRA
+32B3 3402 (fig6800to6809dumb):00743 PSHS A
+32B5 C601 (fig6800to6809dumb):00744 LDB #1
+32B7 7E3034 (fig6800to6809dumb):00745 JMP PUSHBA
+ (fig6800to6809dumb):00746 *
+ (fig6800to6809dumb):00747 * ######>> screen 20 <<
+ (fig6800to6809dumb):00748 * ======>> 12 <<
+32BA 87 (fig6800to6809dumb):00749 FCB $87
+32BB 454E434C4F53 (fig6800to6809dumb):00750 FCC 'ENCLOS' ; 'ENCLOSE'
+32C1 C5 (fig6800to6809dumb):00751 FCB $C5
+32C2 322F (fig6800to6809dumb):00752 FDB PFIND-9
+ (fig6800to6809dumb):00753 * NOTE :
+ (fig6800to6809dumb):00754 * FC means offset (bytes) to First Character of next word
+ (fig6800to6809dumb):00755 * EW " " to End of Word
+ (fig6800to6809dumb):00756 * NC " " to Next Character to start next enclose at
+32C4 32C6 (fig6800to6809dumb):00757 ENCLOS FDB *+2
+32C6 3261 (fig6800to6809dumb):00758 LEAS 1,S
+32C8 3504 (fig6800to6809dumb):00759 PULS B now, get the low byte, for an 8-bit delimiter
+32CA 1F41 (fig6800to6809dumb):00760 TFR S,X
+32CC AE00 (fig6800to6809dumb):00761 LDX 0,X
+32CE 0F00 (fig6800to6809dumb):00762 CLR N
+ (fig6800to6809dumb):00763 * wait for a non-delimiter or a NUL
+32D0 A600 (fig6800to6809dumb):00764 ENCL2 LDA 0,X
+32D2 272E (fig6800to6809dumb):00765 BEQ ENCL6
+32D4 3404 (fig6800to6809dumb):00766 PSHS B ; sim CBA
+32D6 A1E0 (fig6800to6809dumb):00767 CMPA ,S+ CHECK FOR DELIM
+32D8 2606 (fig6800to6809dumb):00768 BNE ENCL3
+32DA 3001 (fig6800to6809dumb):00769 LEAX 1,X
+32DC 0C00 (fig6800to6809dumb):00770 INC N
+32DE 20F0 (fig6800to6809dumb):00771 BRA ENCL2
+ (fig6800to6809dumb):00772 * found first character. Push FC
+32E0 9600 (fig6800to6809dumb):00773 ENCL3 LDA N found first char.
+32E2 3402 (fig6800to6809dumb):00774 PSHS A
+32E4 4F (fig6800to6809dumb):00775 CLRA
+32E5 3402 (fig6800to6809dumb):00776 PSHS A
+ (fig6800to6809dumb):00777 * wait for a delimiter or a NUL
+32E7 A600 (fig6800to6809dumb):00778 ENCL4 LDA 0,X
+32E9 2720 (fig6800to6809dumb):00779 BEQ ENCL7
+32EB 3404 (fig6800to6809dumb):00780 PSHS B ; sim CBA
+32ED A1E0 (fig6800to6809dumb):00781 CMPA ,S+ ckech for delim.
+32EF 2706 (fig6800to6809dumb):00782 BEQ ENCL5
+32F1 3001 (fig6800to6809dumb):00783 LEAX 1,X
+32F3 0C00 (fig6800to6809dumb):00784 INC N
+32F5 20F0 (fig6800to6809dumb):00785 BRA ENCL4
+ (fig6800to6809dumb):00786 * found EW. Push it
+32F7 D600 (fig6800to6809dumb):00787 ENCL5 LDB N
+32F9 4F (fig6800to6809dumb):00788 CLRA
+32FA 3404 (fig6800to6809dumb):00789 PSHS B
+32FC 3402 (fig6800to6809dumb):00790 PSHS A
+ (fig6800to6809dumb):00791 * advance and push NC
+32FE 5C (fig6800to6809dumb):00792 INCB
+32FF 7E3034 (fig6800to6809dumb):00793 JMP PUSHBA
+ (fig6800to6809dumb):00794 * found NUL before non-delimiter, therefore there is no word
+3302 D600 (fig6800to6809dumb):00795 ENCL6 LDB N found NUL
+3304 3404 (fig6800to6809dumb):00796 PSHS B
+3306 3402 (fig6800to6809dumb):00797 PSHS A
+3308 5C (fig6800to6809dumb):00798 INCB
+3309 2002 (fig6800to6809dumb):00799 BRA ENCL7A ; ENCL7+2 ******* was a *potential* bug ****** (But DP)
+ (fig6800to6809dumb):00800 * found NUL following the word instead of SPACE
+330B D600 (fig6800to6809dumb):00801 ENCL7 LDB N
+330D 3404 (fig6800to6809dumb):00802 ENCL7A PSHS B save EW
+330F 3402 (fig6800to6809dumb):00803 PSHS A
+3311 D600 (fig6800to6809dumb):00804 ENCL8 LDB N save NC
+3313 7E3034 (fig6800to6809dumb):00805 JMP PUSHBA
+ (fig6800to6809dumb):00806
+ (fig6800to6809dumb):00807 PAGE
+ (fig6800to6809dumb):00808 *
+ (fig6800to6809dumb):00809 * ######>> screen 21 <<
+ (fig6800to6809dumb):00810 * The next 4 words call system dependant I/O routines
+ (fig6800to6809dumb):00811 * which are listed after word "-->" ( lable: "arrow" )
+ (fig6800to6809dumb):00812 * in the dictionary.
+ (fig6800to6809dumb):00813 *
+ (fig6800to6809dumb):00814 * ======>> 13 <<
+3316 84 (fig6800to6809dumb):00815 FCB $84
+3317 454D49 (fig6800to6809dumb):00816 FCC 'EMI' ; 'EMIT'
+331A D4 (fig6800to6809dumb):00817 FCB $D4
+331B 32BA (fig6800to6809dumb):00818 FDB ENCLOS-10
+331D 331F (fig6800to6809dumb):00819 EMIT FDB *+2
+331F 3502 (fig6800to6809dumb):00820 PULS A
+3321 3502 (fig6800to6809dumb):00821 PULS A
+3323 BD4494 (fig6800to6809dumb):00822 JSR PEMIT
+3326 9E16 (fig6800to6809dumb):00823 LDX UP
+3328 6C881B (fig6800to6809dumb):00824 INC XOUT+1-UORIG,X
+332B 2603 (fig6800to6809dumb):00825 BNE EMITDN
+332D 6C881A (fig6800to6809dumb):00826 INC XOUT-UORIG,X
+3330 7E3038 (fig6800to6809dumb):00827 EMITDN JMP NEXT
+ (fig6800to6809dumb):00828 *
+ (fig6800to6809dumb):00829 * ======>> 14 <<
+3333 83 (fig6800to6809dumb):00830 FCB $83
+3334 4B45 (fig6800to6809dumb):00831 FCC 'KE' ; 'KEY'
+3336 D9 (fig6800to6809dumb):00832 FCB $D9
+3337 3316 (fig6800to6809dumb):00833 FDB EMIT-7
+3339 333B (fig6800to6809dumb):00834 KEY FDB *+2
+333B BD449F (fig6800to6809dumb):00835 JSR PKEY
+333E 3402 (fig6800to6809dumb):00836 PSHS A
+3340 4F (fig6800to6809dumb):00837 CLRA
+3341 3402 (fig6800to6809dumb):00838 PSHS A
+3343 7E3038 (fig6800to6809dumb):00839 JMP NEXT
+ (fig6800to6809dumb):00840 *
+ (fig6800to6809dumb):00841 * ======>> 15 <<
+3346 89 (fig6800to6809dumb):00842 FCB $89
+3347 3F5445524D494E41 (fig6800to6809dumb):00843 FCC '?TERMINA' ; '?TERMINAL'
+334F CC (fig6800to6809dumb):00844 FCB $CC
+3350 3333 (fig6800to6809dumb):00845 FDB KEY-6
+3352 3354 (fig6800to6809dumb):00846 QTERM FDB *+2
+3354 BD44BA (fig6800to6809dumb):00847 JSR PQTER
+3357 5F (fig6800to6809dumb):00848 CLRB
+3358 7E3034 (fig6800to6809dumb):00849 JMP PUSHBA stack the flag
+ (fig6800to6809dumb):00850 *
+ (fig6800to6809dumb):00851 * ======>> 16 <<
+335B 82 (fig6800to6809dumb):00852 FCB $82
+335C 43 (fig6800to6809dumb):00853 FCC 'C' ; 'CR'
+335D D2 (fig6800to6809dumb):00854 FCB $D2
+335E 3346 (fig6800to6809dumb):00855 FDB QTERM-12
+3360 3362 (fig6800to6809dumb):00856 CR FDB *+2
+3362 BD44CD (fig6800to6809dumb):00857 JSR PRTCR
+3365 7E3038 (fig6800to6809dumb):00858 JMP NEXT
+ (fig6800to6809dumb):00859 *
+ (fig6800to6809dumb):00860 * ######>> screen 22 <<
+ (fig6800to6809dumb):00861 * ======>> 17 <<
+3368 85 (fig6800to6809dumb):00862 FCB $85
+3369 434D4F56 (fig6800to6809dumb):00863 FCC 'CMOV' ; 'CMOVE' : source, destination, count
+336D C5 (fig6800to6809dumb):00864 FCB $C5
+336E 335B (fig6800to6809dumb):00865 FDB CR-5
+3370 3372 (fig6800to6809dumb):00866 CMOVE FDB *+2 takes ( 43+47*count cycles )
+3372 8E1300 (fig6800to6809dumb):00867 LDX #N
+3375 C606 (fig6800to6809dumb):00868 LDB #6
+3377 3502 (fig6800to6809dumb):00869 CMOV1 PULS A
+3379 A700 (fig6800to6809dumb):00870 STA 0,X move parameters to scratch area
+337B 3001 (fig6800to6809dumb):00871 LEAX 1,X
+337D 5A (fig6800to6809dumb):00872 DECB
+337E 26F7 (fig6800to6809dumb):00873 BNE CMOV1
+3380 9600 (fig6800to6809dumb):00874 CMOV2 LDA N
+3382 D601 (fig6800to6809dumb):00875 LDB N+1
+3384 C001 (fig6800to6809dumb):00876 SUBB #1
+3386 8200 (fig6800to6809dumb):00877 SBCA #0
+3388 9700 (fig6800to6809dumb):00878 STA N
+338A D701 (fig6800to6809dumb):00879 STB N+1
+338C 2512 (fig6800to6809dumb):00880 BCS CMOV3
+338E 9E04 (fig6800to6809dumb):00881 LDX N+4
+3390 A600 (fig6800to6809dumb):00882 LDA 0,X
+3392 3001 (fig6800to6809dumb):00883 LEAX 1,X
+3394 9F04 (fig6800to6809dumb):00884 STX N+4
+3396 9E02 (fig6800to6809dumb):00885 LDX N+2
+3398 A700 (fig6800to6809dumb):00886 STA 0,X
+339A 3001 (fig6800to6809dumb):00887 LEAX 1,X
+339C 9F02 (fig6800to6809dumb):00888 STX N+2
+339E 20E0 (fig6800to6809dumb):00889 BRA CMOV2
+33A0 7E3038 (fig6800to6809dumb):00890 CMOV3 JMP NEXT
+ (fig6800to6809dumb):00891 *
+ (fig6800to6809dumb):00892 * ######>> screen 23 <<
+ (fig6800to6809dumb):00893 * ======>> 18 <<
+33A3 82 (fig6800to6809dumb):00894 FCB $82
+33A4 55 (fig6800to6809dumb):00895 FCC 'U' ; 'U*'
+33A5 AA (fig6800to6809dumb):00896 FCB $AA
+33A6 3368 (fig6800to6809dumb):00897 FDB CMOVE-8
+33A8 33AA (fig6800to6809dumb):00898 USTAR FDB *+2
+33AA 8D07 (fig6800to6809dumb):00899 BSR USTARS
+33AC 3261 (fig6800to6809dumb):00900 LEAS 1,S
+33AE 3261 (fig6800to6809dumb):00901 LEAS 1,S
+33B0 7E3034 (fig6800to6809dumb):00902 JMP PUSHBA
+ (fig6800to6809dumb):00903 *
+ (fig6800to6809dumb):00904 * The following is a subroutine which
+ (fig6800to6809dumb):00905 * multiplies top 2 words on stack,
+ (fig6800to6809dumb):00906 * leaving 32-bit result: high order word in A,B
+ (fig6800to6809dumb):00907 * low order word in 2nd word of stack.
+ (fig6800to6809dumb):00908 *
+33B3 8610 (fig6800to6809dumb):00909 USTARS LDA #16 bits/word counter
+33B5 3402 (fig6800to6809dumb):00910 PSHS A
+33B7 4F (fig6800to6809dumb):00911 CLRA
+33B8 5F (fig6800to6809dumb):00912 CLRB
+33B9 1F41 (fig6800to6809dumb):00913 TFR S,X
+33BB 6605 (fig6800to6809dumb):00914 USTAR2 ROR 5,X shift multiplier
+33BD 6606 (fig6800to6809dumb):00915 ROR 6,X
+33BF 6A00 (fig6800to6809dumb):00916 DEC 0,X done?
+33C1 2B0A (fig6800to6809dumb):00917 BMI USTAR4
+33C3 2404 (fig6800to6809dumb):00918 BCC USTAR3
+33C5 EB04 (fig6800to6809dumb):00919 ADDB 4,X
+33C7 A903 (fig6800to6809dumb):00920 ADCA 3,X
+33C9 46 (fig6800to6809dumb):00921 USTAR3 RORA
+33CA 56 (fig6800to6809dumb):00922 RORB ; shift result
+33CB 20EE (fig6800to6809dumb):00923 BRA USTAR2
+33CD 3261 (fig6800to6809dumb):00924 USTAR4 LEAS 1,S dump counter
+33CF 39 (fig6800to6809dumb):00925 RTS
+ (fig6800to6809dumb):00926 *
+ (fig6800to6809dumb):00927 * ######>> screen 24 <<
+ (fig6800to6809dumb):00928 * ======>> 19 <<
+33D0 82 (fig6800to6809dumb):00929 FCB $82
+33D1 55 (fig6800to6809dumb):00930 FCC 'U' ; 'U/'
+33D2 AF (fig6800to6809dumb):00931 FCB $AF
+33D3 33A3 (fig6800to6809dumb):00932 FDB USTAR-5
+33D5 33D7 (fig6800to6809dumb):00933 USLASH FDB *+2
+33D7 8611 (fig6800to6809dumb):00934 LDA #17
+33D9 3402 (fig6800to6809dumb):00935 PSHS A
+33DB 1F41 (fig6800to6809dumb):00936 TFR S,X
+33DD A603 (fig6800to6809dumb):00937 LDA 3,X
+33DF E604 (fig6800to6809dumb):00938 LDB 4,X
+33E1 A101 (fig6800to6809dumb):00939 USL1 CMPA 1,X
+33E3 220A (fig6800to6809dumb):00940 BHI USL3
+33E5 2504 (fig6800to6809dumb):00941 BCS USL2
+33E7 E102 (fig6800to6809dumb):00942 CMPB 2,X
+33E9 2404 (fig6800to6809dumb):00943 BCC USL3
+33EB 1CFE (fig6800to6809dumb):00944 USL2 ANDCC #~1
+33ED 2006 (fig6800to6809dumb):00945 BRA USL4
+33EF E002 (fig6800to6809dumb):00946 USL3 SUBB 2,X
+33F1 A201 (fig6800to6809dumb):00947 SBCA 1,X
+33F3 1A01 (fig6800to6809dumb):00948 ORCC #1
+33F5 6906 (fig6800to6809dumb):00949 USL4 ROL 6,X
+33F7 6905 (fig6800to6809dumb):00950 ROL 5,X
+33F9 6A00 (fig6800to6809dumb):00951 DEC 0,X
+33FB 2706 (fig6800to6809dumb):00952 BEQ USL5
+33FD 59 (fig6800to6809dumb):00953 ROLB
+33FE 49 (fig6800to6809dumb):00954 ROLA
+33FF 24E0 (fig6800to6809dumb):00955 BCC USL1
+3401 20EC (fig6800to6809dumb):00956 BRA USL3
+3403 3261 (fig6800to6809dumb):00957 USL5 LEAS 1,S
+3405 3261 (fig6800to6809dumb):00958 LEAS 1,S
+3407 3261 (fig6800to6809dumb):00959 LEAS 1,S
+3409 3261 (fig6800to6809dumb):00960 LEAS 1,S
+340B 3261 (fig6800to6809dumb):00961 LEAS 1,S
+340D 7E35C2 (fig6800to6809dumb):00962 JMP SWAP+4 reverse quotient & remainder
+ (fig6800to6809dumb):00963 *
+ (fig6800to6809dumb):00964 * ######>> screen 25 <<
+ (fig6800to6809dumb):00965 * ======>> 20 <<
+3410 83 (fig6800to6809dumb):00966 FCB $83
+3411 414E (fig6800to6809dumb):00967 FCC 'AN' ; 'AND'
+3413 C4 (fig6800to6809dumb):00968 FCB $C4
+3414 33D0 (fig6800to6809dumb):00969 FDB USLASH-5
+3416 3418 (fig6800to6809dumb):00970 AND FDB *+2
+3418 3502 (fig6800to6809dumb):00971 PULS A
+341A 3504 (fig6800to6809dumb):00972 PULS B
+341C 1F41 (fig6800to6809dumb):00973 TFR S,X
+341E E401 (fig6800to6809dumb):00974 ANDB 1,X
+3420 A400 (fig6800to6809dumb):00975 ANDA 0,X
+3422 7E302A (fig6800to6809dumb):00976 JMP STABX
+ (fig6800to6809dumb):00977 *
+ (fig6800to6809dumb):00978 * ======>> 21 <<
+3425 82 (fig6800to6809dumb):00979 FCB $82
+3426 4F (fig6800to6809dumb):00980 FCC 'O' ; 'OR'
+3427 D2 (fig6800to6809dumb):00981 FCB $D2
+3428 3410 (fig6800to6809dumb):00982 FDB AND-6
+342A 342C (fig6800to6809dumb):00983 OR FDB *+2
+342C 3502 (fig6800to6809dumb):00984 PULS A
+342E 3504 (fig6800to6809dumb):00985 PULS B
+3430 1F41 (fig6800to6809dumb):00986 TFR S,X
+3432 EA01 (fig6800to6809dumb):00987 ORB 1,X
+3434 AA00 (fig6800to6809dumb):00988 ORA 0,X
+3436 7E302A (fig6800to6809dumb):00989 JMP STABX
+ (fig6800to6809dumb):00990 *
+ (fig6800to6809dumb):00991 * ======>> 22 <<
+3439 83 (fig6800to6809dumb):00992 FCB $83
+343A 584F (fig6800to6809dumb):00993 FCC 'XO' ; 'XOR'
+343C D2 (fig6800to6809dumb):00994 FCB $D2
+343D 3425 (fig6800to6809dumb):00995 FDB OR-5
+343F 3441 (fig6800to6809dumb):00996 XOR FDB *+2
+3441 3502 (fig6800to6809dumb):00997 PULS A
+3443 3504 (fig6800to6809dumb):00998 PULS B
+3445 1F41 (fig6800to6809dumb):00999 TFR S,X
+3447 E801 (fig6800to6809dumb):01000 EORB 1,X
+3449 A800 (fig6800to6809dumb):01001 EORA 0,X
+344B 7E302A (fig6800to6809dumb):01002 JMP STABX
+ (fig6800to6809dumb):01003 *
+ (fig6800to6809dumb):01004 * ######>> screen 26 <<
+ (fig6800to6809dumb):01005 * ======>> 23 <<
+344E 83 (fig6800to6809dumb):01006 FCB $83
+344F 5350 (fig6800to6809dumb):01007 FCC 'SP' ; 'SP@'
+3451 C0 (fig6800to6809dumb):01008 FCB $C0
+3452 3439 (fig6800to6809dumb):01009 FDB XOR-6
+3454 3456 (fig6800to6809dumb):01010 SPAT FDB *+2
+3456 1F41 (fig6800to6809dumb):01011 TFR S,X
+3458 9F00 (fig6800to6809dumb):01012 STX N scratch area
+345A 8E1300 (fig6800to6809dumb):01013 LDX #N
+345D 7E3030 (fig6800to6809dumb):01014 JMP GETX
+ (fig6800to6809dumb):01015 *
+ (fig6800to6809dumb):01016 * ======>> 24 <<
+3460 83 (fig6800to6809dumb):01017 FCB $83
+3461 5350 (fig6800to6809dumb):01018 FCC 'SP' ; 'SP!'
+3463 A1 (fig6800to6809dumb):01019 FCB $A1
+3464 344E (fig6800to6809dumb):01020 FDB SPAT-6
+3466 3468 (fig6800to6809dumb):01021 SPSTOR FDB *+2
+3468 9E16 (fig6800to6809dumb):01022 LDX UP
+346A AE06 (fig6800to6809dumb):01023 LDX XSPZER-UORIG,X
+ (fig6800to6809dumb):01024 * Potential problem area? No. ******
+346C 1F14 (fig6800to6809dumb):01025 TFR X,S watch it ! X and S are not equal -- on 6800.
+ (fig6800to6809dumb):01026 * But they are on 6809, and that's what we want here.
+346E 7E3038 (fig6800to6809dumb):01027 JMP NEXT
+ (fig6800to6809dumb):01028 * ======>> 25 <<
+3471 83 (fig6800to6809dumb):01029 FCB $83
+3472 5250 (fig6800to6809dumb):01030 FCC 'RP' ; 'RP!'
+3474 A1 (fig6800to6809dumb):01031 FCB $A1
+3475 3460 (fig6800to6809dumb):01032 FDB SPSTOR-6
+3477 3479 (fig6800to6809dumb):01033 RPSTOR FDB *+2
+3479 BE3014 (fig6800to6809dumb):01034 LDX RINIT initialize from rom constant
+347C 9F14 (fig6800to6809dumb):01035 STX RP
+347E 7E3038 (fig6800to6809dumb):01036 JMP NEXT
+ (fig6800to6809dumb):01037 *
+ (fig6800to6809dumb):01038 * ======>> 26 <<
+3481 82 (fig6800to6809dumb):01039 FCB $82
+3482 3B (fig6800to6809dumb):01040 FCC ';' ; ';S'
+3483 D3 (fig6800to6809dumb):01041 FCB $D3
+3484 3471 (fig6800to6809dumb):01042 FDB RPSTOR-6
+3486 3488 (fig6800to6809dumb):01043 SEMIS FDB *+2
+ (fig6800to6809dumb):01044 * DBG
+3488 86F0 (fig6800to6809dumb):01045 LDA #-$10
+348A 9B22 (fig6800to6809dumb):01046 ADDA FLAGON
+348C 9722 (fig6800to6809dumb):01047 STA FLAGON my version of trace
+348E BD4494 (fig6800to6809dumb):01048 JSR PEMIT
+ (fig6800to6809dumb):01049 *
+3491 9E14 (fig6800to6809dumb):01050 LDX RP
+3493 3001 (fig6800to6809dumb):01051 LEAX 1,X
+3495 3001 (fig6800to6809dumb):01052 LEAX 1,X
+3497 9F14 (fig6800to6809dumb):01053 STX RP
+3499 AE00 (fig6800to6809dumb):01054 LDX 0,X get address we have just finished.
+349B 7E303A (fig6800to6809dumb):01055 JMP NEXT+2 increment the return address & do next word
+ (fig6800to6809dumb):01056 *
+ (fig6800to6809dumb):01057 * ######>> screen 27 <<
+ (fig6800to6809dumb):01058 * ======>> 27 <<
+349E 85 (fig6800to6809dumb):01059 FCB $85
+349F 4C454156 (fig6800to6809dumb):01060 FCC 'LEAV' ; 'LEAVE'
+34A3 C5 (fig6800to6809dumb):01061 FCB $C5
+34A4 3481 (fig6800to6809dumb):01062 FDB SEMIS-5
+34A6 34A8 (fig6800to6809dumb):01063 LEAVE FDB *+2
+34A8 9E14 (fig6800to6809dumb):01064 LDX RP
+34AA A602 (fig6800to6809dumb):01065 LDA 2,X
+34AC E603 (fig6800to6809dumb):01066 LDB 3,X
+34AE A704 (fig6800to6809dumb):01067 STA 4,X
+34B0 E705 (fig6800to6809dumb):01068 STB 5,X
+34B2 7E3038 (fig6800to6809dumb):01069 JMP NEXT
+ (fig6800to6809dumb):01070 *
+ (fig6800to6809dumb):01071 * ======>> 28 <<
+34B5 82 (fig6800to6809dumb):01072 FCB $82
+34B6 3E (fig6800to6809dumb):01073 FCC '>' ; '>R'
+34B7 D2 (fig6800to6809dumb):01074 FCB $D2
+34B8 349E (fig6800to6809dumb):01075 FDB LEAVE-8
+34BA 34BC (fig6800to6809dumb):01076 TOR FDB *+2
+34BC 9E14 (fig6800to6809dumb):01077 LDX RP
+34BE 301F (fig6800to6809dumb):01078 LEAX -1,X
+34C0 301F (fig6800to6809dumb):01079 LEAX -1,X
+34C2 9F14 (fig6800to6809dumb):01080 STX RP
+34C4 3502 (fig6800to6809dumb):01081 PULS A
+34C6 3504 (fig6800to6809dumb):01082 PULS B
+34C8 A702 (fig6800to6809dumb):01083 STA 2,X
+34CA E703 (fig6800to6809dumb):01084 STB 3,X
+34CC 7E3038 (fig6800to6809dumb):01085 JMP NEXT
+ (fig6800to6809dumb):01086 *
+ (fig6800to6809dumb):01087 * ======>> 29 <<
+34CF 82 (fig6800to6809dumb):01088 FCB $82
+34D0 52 (fig6800to6809dumb):01089 FCC 'R' ; 'R>'
+34D1 BE (fig6800to6809dumb):01090 FCB $BE
+34D2 34B5 (fig6800to6809dumb):01091 FDB TOR-5
+34D4 34D6 (fig6800to6809dumb):01092 FROMR FDB *+2
+34D6 9E14 (fig6800to6809dumb):01093 LDX RP
+34D8 A602 (fig6800to6809dumb):01094 LDA 2,X
+34DA E603 (fig6800to6809dumb):01095 LDB 3,X
+34DC 3001 (fig6800to6809dumb):01096 LEAX 1,X
+34DE 3001 (fig6800to6809dumb):01097 LEAX 1,X
+34E0 9F14 (fig6800to6809dumb):01098 STX RP
+34E2 7E3034 (fig6800to6809dumb):01099 JMP PUSHBA
+ (fig6800to6809dumb):01100 *
+ (fig6800to6809dumb):01101 * ======>> 30 <<
+34E5 81 (fig6800to6809dumb):01102 FCB $81 R
+34E6 D2 (fig6800to6809dumb):01103 FCB $D2
+34E7 34CF (fig6800to6809dumb):01104 FDB FROMR-5
+34E9 34EB (fig6800to6809dumb):01105 R FDB *+2
+34EB 9E14 (fig6800to6809dumb):01106 LDX RP
+34ED 3001 (fig6800to6809dumb):01107 LEAX 1,X
+34EF 3001 (fig6800to6809dumb):01108 LEAX 1,X
+34F1 7E3030 (fig6800to6809dumb):01109 JMP GETX
+ (fig6800to6809dumb):01110 *
+ (fig6800to6809dumb):01111 * ######>> screen 28 <<
+ (fig6800to6809dumb):01112 * ======>> 31 <<
+34F4 82 (fig6800to6809dumb):01113 FCB $82
+34F5 30 (fig6800to6809dumb):01114 FCC '0' ; '0='
+34F6 BD (fig6800to6809dumb):01115 FCB $BD
+34F7 34E5 (fig6800to6809dumb):01116 FDB R-4
+34F9 34FB (fig6800to6809dumb):01117 ZEQU FDB *+2
+34FB 1F41 (fig6800to6809dumb):01118 TFR S,X
+34FD 4F (fig6800to6809dumb):01119 CLRA
+34FE 5F (fig6800to6809dumb):01120 CLRB
+34FF AE00 (fig6800to6809dumb):01121 LDX 0,X
+3501 2601 (fig6800to6809dumb):01122 BNE ZEQU2
+3503 5C (fig6800to6809dumb):01123 INCB
+3504 1F41 (fig6800to6809dumb):01124 ZEQU2 TFR S,X
+3506 7E302A (fig6800to6809dumb):01125 JMP STABX
+ (fig6800to6809dumb):01126 *
+ (fig6800to6809dumb):01127 * ======>> 32 <<
+3509 82 (fig6800to6809dumb):01128 FCB $82
+350A 30 (fig6800to6809dumb):01129 FCC '0' ; '0<'
+350B BC (fig6800to6809dumb):01130 FCB $BC
+350C 34F4 (fig6800to6809dumb):01131 FDB ZEQU-5
+350E 3510 (fig6800to6809dumb):01132 ZLESS FDB *+2
+3510 1F41 (fig6800to6809dumb):01133 TFR S,X
+3512 8680 (fig6800to6809dumb):01134 LDA #$80 check the sign bit
+3514 A400 (fig6800to6809dumb):01135 ANDA 0,X
+3516 2706 (fig6800to6809dumb):01136 BEQ ZLESS2
+3518 4F (fig6800to6809dumb):01137 CLRA if neg.
+3519 C601 (fig6800to6809dumb):01138 LDB #1
+351B 7E302A (fig6800to6809dumb):01139 JMP STABX
+351E 5F (fig6800to6809dumb):01140 ZLESS2 CLRB
+351F 7E302A (fig6800to6809dumb):01141 JMP STABX
+ (fig6800to6809dumb):01142 *
+ (fig6800to6809dumb):01143 * ######>> screen 29 <<
+ (fig6800to6809dumb):01144 * ======>> 33 <<
+3522 81 (fig6800to6809dumb):01145 FCB $81 '+'
+3523 AB (fig6800to6809dumb):01146 FCB $AB
+3524 3509 (fig6800to6809dumb):01147 FDB ZLESS-5
+3526 3528 (fig6800to6809dumb):01148 PLUS FDB *+2
+3528 3502 (fig6800to6809dumb):01149 PULS A
+352A 3504 (fig6800to6809dumb):01150 PULS B
+352C 1F41 (fig6800to6809dumb):01151 TFR S,X
+352E EB01 (fig6800to6809dumb):01152 ADDB 1,X
+3530 A900 (fig6800to6809dumb):01153 ADCA 0,X
+3532 7E302A (fig6800to6809dumb):01154 JMP STABX
+ (fig6800to6809dumb):01155 *
+ (fig6800to6809dumb):01156 * ======>> 34 <<
+3535 82 (fig6800to6809dumb):01157 FCB $82
+3536 44 (fig6800to6809dumb):01158 FCC 'D' ; 'D+'
+3537 AB (fig6800to6809dumb):01159 FCB $AB
+3538 3522 (fig6800to6809dumb):01160 FDB PLUS-4
+353A 353C (fig6800to6809dumb):01161 DPLUS FDB *+2
+353C 1F41 (fig6800to6809dumb):01162 TFR S,X
+353E 1CFE (fig6800to6809dumb):01163 ANDCC #~1
+3540 C604 (fig6800to6809dumb):01164 LDB #4
+3542 A603 (fig6800to6809dumb):01165 DPLUS2 LDA 3,X
+3544 A907 (fig6800to6809dumb):01166 ADCA 7,X
+3546 A707 (fig6800to6809dumb):01167 STA 7,X
+3548 301F (fig6800to6809dumb):01168 LEAX -1,X
+354A 5A (fig6800to6809dumb):01169 DECB
+354B 26F5 (fig6800to6809dumb):01170 BNE DPLUS2
+354D 3261 (fig6800to6809dumb):01171 LEAS 1,S
+354F 3261 (fig6800to6809dumb):01172 LEAS 1,S
+3551 3261 (fig6800to6809dumb):01173 LEAS 1,S
+3553 3261 (fig6800to6809dumb):01174 LEAS 1,S
+3555 7E3038 (fig6800to6809dumb):01175 JMP NEXT
+ (fig6800to6809dumb):01176 *
+ (fig6800to6809dumb):01177 * ======>> 35 <<
+3558 85 (fig6800to6809dumb):01178 FCB $85
+3559 4D494E55 (fig6800to6809dumb):01179 FCC 'MINU' ; 'MINUS'
+355D D3 (fig6800to6809dumb):01180 FCB $D3
+355E 3535 (fig6800to6809dumb):01181 FDB DPLUS-5
+3560 3562 (fig6800to6809dumb):01182 MINUS FDB *+2
+3562 1F41 (fig6800to6809dumb):01183 TFR S,X
+3564 6001 (fig6800to6809dumb):01184 NEG 1,X
+3566 2404 (fig6800to6809dumb):01185 BCC MINUS2
+3568 6000 (fig6800to6809dumb):01186 NEG 0,X
+356A 2002 (fig6800to6809dumb):01187 BRA MINUS3
+356C 6300 (fig6800to6809dumb):01188 MINUS2 COM 0,X
+356E 7E3038 (fig6800to6809dumb):01189 MINUS3 JMP NEXT
+ (fig6800to6809dumb):01190 *
+ (fig6800to6809dumb):01191 * ======>> 36 <<
+3571 86 (fig6800to6809dumb):01192 FCB $86
+3572 444D494E55 (fig6800to6809dumb):01193 FCC 'DMINU' ; 'DMINUS'
+3577 D3 (fig6800to6809dumb):01194 FCB $D3
+3578 3558 (fig6800to6809dumb):01195 FDB MINUS-8
+357A 357C (fig6800to6809dumb):01196 DMINUS FDB *+2
+357C 1F41 (fig6800to6809dumb):01197 TFR S,X
+357E 6300 (fig6800to6809dumb):01198 COM 0,X
+3580 6301 (fig6800to6809dumb):01199 COM 1,X
+3582 6302 (fig6800to6809dumb):01200 COM 2,X
+3584 6003 (fig6800to6809dumb):01201 NEG 3,X
+3586 260A (fig6800to6809dumb):01202 BNE DMINX
+3588 6C02 (fig6800to6809dumb):01203 INC 2,X
+358A 2606 (fig6800to6809dumb):01204 BNE DMINX
+358C 6C01 (fig6800to6809dumb):01205 INC 1,X
+358E 2602 (fig6800to6809dumb):01206 BNE DMINX
+3590 6C00 (fig6800to6809dumb):01207 INC 0,X
+3592 7E3038 (fig6800to6809dumb):01208 DMINX JMP NEXT
+ (fig6800to6809dumb):01209 *
+ (fig6800to6809dumb):01210 * ######>> screen 30 <<
+ (fig6800to6809dumb):01211 * ======>> 37 <<
+3595 84 (fig6800to6809dumb):01212 FCB $84
+3596 4F5645 (fig6800to6809dumb):01213 FCC 'OVE' ; 'OVER'
+3599 D2 (fig6800to6809dumb):01214 FCB $D2
+359A 3571 (fig6800to6809dumb):01215 FDB DMINUS-9
+359C 359E (fig6800to6809dumb):01216 OVER FDB *+2
+359E 1F41 (fig6800to6809dumb):01217 TFR S,X
+35A0 A602 (fig6800to6809dumb):01218 LDA 2,X
+35A2 E603 (fig6800to6809dumb):01219 LDB 3,X
+35A4 7E3034 (fig6800to6809dumb):01220 JMP PUSHBA
+ (fig6800to6809dumb):01221 *
+ (fig6800to6809dumb):01222 * ======>> 38 <<
+35A7 84 (fig6800to6809dumb):01223 FCB $84
+35A8 44524F (fig6800to6809dumb):01224 FCC 'DRO' ; 'DROP'
+35AB D0 (fig6800to6809dumb):01225 FCB $D0
+35AC 3595 (fig6800to6809dumb):01226 FDB OVER-7
+35AE 35B0 (fig6800to6809dumb):01227 DROP FDB *+2
+35B0 3261 (fig6800to6809dumb):01228 LEAS 1,S
+35B2 3261 (fig6800to6809dumb):01229 LEAS 1,S
+35B4 7E3038 (fig6800to6809dumb):01230 JMP NEXT
+ (fig6800to6809dumb):01231 *
+ (fig6800to6809dumb):01232 * ======>> 39 <<
+35B7 84 (fig6800to6809dumb):01233 FCB $84
+35B8 535741 (fig6800to6809dumb):01234 FCC 'SWA' ; 'SWAP'
+35BB D0 (fig6800to6809dumb):01235 FCB $D0
+35BC 35A7 (fig6800to6809dumb):01236 FDB DROP-7
+35BE 35C0 (fig6800to6809dumb):01237 SWAP FDB *+2
+35C0 3502 (fig6800to6809dumb):01238 PULS A
+35C2 3504 (fig6800to6809dumb):01239 PULS B
+35C4 1F41 (fig6800to6809dumb):01240 TFR S,X
+35C6 AE00 (fig6800to6809dumb):01241 LDX 0,X
+35C8 3261 (fig6800to6809dumb):01242 LEAS 1,S
+35CA 3261 (fig6800to6809dumb):01243 LEAS 1,S
+35CC 3404 (fig6800to6809dumb):01244 PSHS B
+35CE 3402 (fig6800to6809dumb):01245 PSHS A
+35D0 9F00 (fig6800to6809dumb):01246 STX N
+35D2 8E1300 (fig6800to6809dumb):01247 LDX #N
+35D5 7E3030 (fig6800to6809dumb):01248 JMP GETX
+ (fig6800to6809dumb):01249 *
+ (fig6800to6809dumb):01250 * ======>> 40 <<
+35D8 83 (fig6800to6809dumb):01251 FCB $83
+35D9 4455 (fig6800to6809dumb):01252 FCC 'DU' ; 'DUP'
+35DB D0 (fig6800to6809dumb):01253 FCB $D0
+35DC 35B7 (fig6800to6809dumb):01254 FDB SWAP-7
+35DE 35E0 (fig6800to6809dumb):01255 DUP FDB *+2
+35E0 3502 (fig6800to6809dumb):01256 PULS A
+35E2 3504 (fig6800to6809dumb):01257 PULS B
+35E4 3404 (fig6800to6809dumb):01258 PSHS B
+35E6 3402 (fig6800to6809dumb):01259 PSHS A
+35E8 7E3034 (fig6800to6809dumb):01260 JMP PUSHBA
+ (fig6800to6809dumb):01261 *
+ (fig6800to6809dumb):01262 * ######>> screen 31 <<
+ (fig6800to6809dumb):01263 * ======>> 41 <<
+35EB 82 (fig6800to6809dumb):01264 FCB $82
+35EC 2B (fig6800to6809dumb):01265 FCC '+' ; '+!'
+35ED A1 (fig6800to6809dumb):01266 FCB $A1
+35EE 35D8 (fig6800to6809dumb):01267 FDB DUP-6
+35F0 35F2 (fig6800to6809dumb):01268 PSTORE FDB *+2
+35F2 1F41 (fig6800to6809dumb):01269 TFR S,X
+35F4 AE00 (fig6800to6809dumb):01270 LDX 0,X
+35F6 3261 (fig6800to6809dumb):01271 LEAS 1,S
+35F8 3261 (fig6800to6809dumb):01272 LEAS 1,S
+35FA 3502 (fig6800to6809dumb):01273 PULS A get stack data
+35FC 3504 (fig6800to6809dumb):01274 PULS B
+35FE EB01 (fig6800to6809dumb):01275 ADDB 1,X add & store low byte
+3600 E701 (fig6800to6809dumb):01276 STB 1,X
+3602 A900 (fig6800to6809dumb):01277 ADCA 0,X add & store hi byte
+3604 A700 (fig6800to6809dumb):01278 STA 0,X
+3606 7E3038 (fig6800to6809dumb):01279 JMP NEXT
+ (fig6800to6809dumb):01280 *
+ (fig6800to6809dumb):01281 * ======>> 42 <<
+3609 86 (fig6800to6809dumb):01282 FCB $86
+360A 544F47474C (fig6800to6809dumb):01283 FCC 'TOGGL' ; 'TOGGLE'
+360F C5 (fig6800to6809dumb):01284 FCB $C5
+3610 35EB (fig6800to6809dumb):01285 FDB PSTORE-5
+3612 3687359C3636343F (fig6800to6809dumb):01286 TOGGLE FDB DOCOL,OVER,CAT,XOR,SWAP,CSTORE
+ 35BE365C
+361E 3486 (fig6800to6809dumb):01287 FDB SEMIS
+ (fig6800to6809dumb):01288 *
+ (fig6800to6809dumb):01289 * ######>> screen 32 <<
+ (fig6800to6809dumb):01290 * ======>> 43 <<
+3620 81 (fig6800to6809dumb):01291 FCB $81 @
+3621 C0 (fig6800to6809dumb):01292 FCB $C0
+3622 3609 (fig6800to6809dumb):01293 FDB TOGGLE-9
+3624 3626 (fig6800to6809dumb):01294 AT FDB *+2
+3626 1F41 (fig6800to6809dumb):01295 TFR S,X
+3628 AE00 (fig6800to6809dumb):01296 LDX 0,X get address
+362A 3261 (fig6800to6809dumb):01297 LEAS 1,S
+362C 3261 (fig6800to6809dumb):01298 LEAS 1,S
+362E 7E3030 (fig6800to6809dumb):01299 JMP GETX
+ (fig6800to6809dumb):01300 *
+ (fig6800to6809dumb):01301 * ======>> 44 <<
+3631 82 (fig6800to6809dumb):01302 FCB $82
+3632 43 (fig6800to6809dumb):01303 FCC 'C' ; 'C@'
+3633 C0 (fig6800to6809dumb):01304 FCB $C0
+3634 3620 (fig6800to6809dumb):01305 FDB AT-4
+3636 3638 (fig6800to6809dumb):01306 CAT FDB *+2
+3638 1F41 (fig6800to6809dumb):01307 TFR S,X
+363A AE00 (fig6800to6809dumb):01308 LDX 0,X
+363C 4F (fig6800to6809dumb):01309 CLRA
+363D E600 (fig6800to6809dumb):01310 LDB 0,X
+363F 3261 (fig6800to6809dumb):01311 LEAS 1,S
+3641 3261 (fig6800to6809dumb):01312 LEAS 1,S
+3643 7E3034 (fig6800to6809dumb):01313 JMP PUSHBA
+ (fig6800to6809dumb):01314 *
+ (fig6800to6809dumb):01315 * ======>> 45 <<
+3646 81 (fig6800to6809dumb):01316 FCB $81
+3647 A1 (fig6800to6809dumb):01317 FCB $A1
+3648 3631 (fig6800to6809dumb):01318 FDB CAT-5
+364A 364C (fig6800to6809dumb):01319 STORE FDB *+2
+364C 1F41 (fig6800to6809dumb):01320 TFR S,X
+364E AE00 (fig6800to6809dumb):01321 LDX 0,X get address
+3650 3261 (fig6800to6809dumb):01322 LEAS 1,S
+3652 3261 (fig6800to6809dumb):01323 LEAS 1,S
+3654 7E3026 (fig6800to6809dumb):01324 JMP PULABX
+ (fig6800to6809dumb):01325 *
+ (fig6800to6809dumb):01326 * ======>> 46 <<
+3657 82 (fig6800to6809dumb):01327 FCB $82
+3658 43 (fig6800to6809dumb):01328 FCC 'C' ; 'C!'
+3659 A1 (fig6800to6809dumb):01329 FCB $A1
+365A 3646 (fig6800to6809dumb):01330 FDB STORE-4
+365C 365E (fig6800to6809dumb):01331 CSTORE FDB *+2
+365E 1F41 (fig6800to6809dumb):01332 TFR S,X
+3660 AE00 (fig6800to6809dumb):01333 LDX 0,X get address
+3662 3261 (fig6800to6809dumb):01334 LEAS 1,S
+3664 3261 (fig6800to6809dumb):01335 LEAS 1,S
+3666 3261 (fig6800to6809dumb):01336 LEAS 1,S
+3668 3504 (fig6800to6809dumb):01337 PULS B
+366A E700 (fig6800to6809dumb):01338 STB 0,X
+366C 7E3038 (fig6800to6809dumb):01339 JMP NEXT
+ (fig6800to6809dumb):01340 PAGE
+ (fig6800to6809dumb):01341 *
+ (fig6800to6809dumb):01342 * ######>> screen 33 <<
+ (fig6800to6809dumb):01343 * ======>> 47 <<
+366F C1 (fig6800to6809dumb):01344 FCB $C1 : immediate
+3670 BA (fig6800to6809dumb):01345 FCB $BA
+3671 3657 (fig6800to6809dumb):01346 FDB CSTORE-5
+3673 36873A473A03381E (fig6800to6809dumb):01347 COLON FDB DOCOL,QEXEC,SCSP,CURENT,AT,CONTXT,STORE
+ 36243810364A
+3681 3F493AC8 (fig6800to6809dumb):01348 FDB CREATE,RBRAK
+3685 3B17 (fig6800to6809dumb):01349 FDB PSCODE
+ (fig6800to6809dumb):01350
+ (fig6800to6809dumb):01351 * Here is the IP pusher for allowing
+ (fig6800to6809dumb):01352 * nested words in the virtual machine:
+ (fig6800to6809dumb):01353 * ( ;S is the equivalent un-nester )
+ (fig6800to6809dumb):01354
+3687 9E14 (fig6800to6809dumb):01355 DOCOL LDX RP make room in the stack
+3689 301F (fig6800to6809dumb):01356 LEAX -1,X
+368B 301F (fig6800to6809dumb):01357 LEAX -1,X
+368D 9F14 (fig6800to6809dumb):01358 STX RP
+ (fig6800to6809dumb):01359 * DBG
+368F 8610 (fig6800to6809dumb):01360 LDA #$10
+3691 9B22 (fig6800to6809dumb):01361 ADDA FLAGON
+3693 9722 (fig6800to6809dumb):01362 STA FLAGON my version of trace
+3695 BD4494 (fig6800to6809dumb):01363 JSR PEMIT
+ (fig6800to6809dumb):01364 *
+3698 9612 (fig6800to6809dumb):01365 LDA IP
+369A D613 (fig6800to6809dumb):01366 LDB IP+1
+369C A702 (fig6800to6809dumb):01367 STA 2,X Store address of the high level word
+369E E703 (fig6800to6809dumb):01368 STB 3,X that we are starting to execute
+36A0 9E10 (fig6800to6809dumb):01369 LDX W Get first sub-word of that definition
+36A2 7E303A (fig6800to6809dumb):01370 JMP NEXT+2 and execute it
+ (fig6800to6809dumb):01371 *
+ (fig6800to6809dumb):01372 * ======>> 48 <<
+36A5 C1 (fig6800to6809dumb):01373 FCB $C1 ; imnediate code
+36A6 BB (fig6800to6809dumb):01374 FCB $BB
+36A7 366F (fig6800to6809dumb):01375 FDB COLON-4
+36A9 36873A6F3AA43486 (fig6800to6809dumb):01376 SEMI FDB DOCOL,QCSP,COMPIL,SEMIS,SMUDGE,LBRAK
+ 3ADC3ABA
+36B5 3486 (fig6800to6809dumb):01377 FDB SEMIS
+ (fig6800to6809dumb):01378 *
+ (fig6800to6809dumb):01379 * ######>> screen 34 <<
+ (fig6800to6809dumb):01380 * ======>> 49 <<
+36B7 88 (fig6800to6809dumb):01381 FCB $88
+36B8 434F4E5354414E (fig6800to6809dumb):01382 FCC 'CONSTAN' ; 'CONSTANT'
+36BF D4 (fig6800to6809dumb):01383 FCB $D4
+36C0 36A5 (fig6800to6809dumb):01384 FDB SEMI-4
+36C2 36873F493ADC38B5 (fig6800to6809dumb):01385 CON FDB DOCOL,CREATE,SMUDGE,COMMA,PSCODE
+ 3B17
+36CC 9E10 (fig6800to6809dumb):01386 DOCON LDX W
+36CE A602 (fig6800to6809dumb):01387 LDA 2,X
+36D0 E603 (fig6800to6809dumb):01388 LDB 3,X A & B now contain the constant
+36D2 7E3034 (fig6800to6809dumb):01389 JMP PUSHBA
+ (fig6800to6809dumb):01390 *
+ (fig6800to6809dumb):01391 * ======>> 50 <<
+36D5 88 (fig6800to6809dumb):01392 FCB $88
+36D6 5641524941424C (fig6800to6809dumb):01393 FCC 'VARIABL' ; 'VARIABLE'
+36DD C5 (fig6800to6809dumb):01394 FCB $C5
+36DE 36B7 (fig6800to6809dumb):01395 FDB CON-11
+36E0 368736C23B17 (fig6800to6809dumb):01396 VAR FDB DOCOL,CON,PSCODE
+36E6 9610 (fig6800to6809dumb):01397 DOVAR LDA W
+36E8 D611 (fig6800to6809dumb):01398 LDB W+1
+36EA CB02 (fig6800to6809dumb):01399 ADDB #2
+36EC 8900 (fig6800to6809dumb):01400 ADCA #0 A,B now contain the address of the variable
+36EE 7E3034 (fig6800to6809dumb):01401 JMP PUSHBA
+ (fig6800to6809dumb):01402 *
+ (fig6800to6809dumb):01403 * ======>> 51 <<
+36F1 84 (fig6800to6809dumb):01404 FCB $84
+36F2 555345 (fig6800to6809dumb):01405 FCC 'USE' ; 'USER'
+36F5 D2 (fig6800to6809dumb):01406 FCB $D2
+36F6 36D5 (fig6800to6809dumb):01407 FDB VAR-11
+36F8 368736C23B17 (fig6800to6809dumb):01408 USER FDB DOCOL,CON,PSCODE
+36FE 9E10 (fig6800to6809dumb):01409 DOUSER LDX W get offset into user's table
+3700 A602 (fig6800to6809dumb):01410 LDA 2,X
+3702 E603 (fig6800to6809dumb):01411 LDB 3,X
+3704 DB17 (fig6800to6809dumb):01412 ADDB UP+1 add to users base address
+3706 9916 (fig6800to6809dumb):01413 ADCA UP
+3708 7E3034 (fig6800to6809dumb):01414 JMP PUSHBA push address of user's variable
+ (fig6800to6809dumb):01415 *
+ (fig6800to6809dumb):01416 * ######>> screen 35 <<
+ (fig6800to6809dumb):01417 * ======>> 52 <<
+370B 81 (fig6800to6809dumb):01418 FCB $81
+370C B0 (fig6800to6809dumb):01419 FCB $B0 0
+370D 36F1 (fig6800to6809dumb):01420 FDB USER-7
+370F 36CC (fig6800to6809dumb):01421 ZERO FDB DOCON
+3711 0000 (fig6800to6809dumb):01422 FDB 0000
+ (fig6800to6809dumb):01423 *
+ (fig6800to6809dumb):01424 * ======>> 53 <<
+3713 81 (fig6800to6809dumb):01425 FCB $81
+3714 B1 (fig6800to6809dumb):01426 FCB $B1 1
+3715 370B (fig6800to6809dumb):01427 FDB ZERO-4
+3717 36CC (fig6800to6809dumb):01428 ONE FDB DOCON
+3719 0001 (fig6800to6809dumb):01429 FDB 1
+ (fig6800to6809dumb):01430 *
+ (fig6800to6809dumb):01431 * ======>> 54 <<
+371B 81 (fig6800to6809dumb):01432 FCB $81
+371C B2 (fig6800to6809dumb):01433 FCB $B2 2
+371D 3713 (fig6800to6809dumb):01434 FDB ONE-4
+371F 36CC (fig6800to6809dumb):01435 TWO FDB DOCON
+3721 0002 (fig6800to6809dumb):01436 FDB 2
+ (fig6800to6809dumb):01437 *
+ (fig6800to6809dumb):01438 * ======>> 55 <<
+3723 81 (fig6800to6809dumb):01439 FCB $81
+3724 B3 (fig6800to6809dumb):01440 FCB $B3 3
+3725 371B (fig6800to6809dumb):01441 FDB TWO-4
+3727 36CC (fig6800to6809dumb):01442 THREE FDB DOCON
+3729 0003 (fig6800to6809dumb):01443 FDB 3
+ (fig6800to6809dumb):01444 *
+ (fig6800to6809dumb):01445 * ======>> 56 <<
+372B 82 (fig6800to6809dumb):01446 FCB $82
+372C 42 (fig6800to6809dumb):01447 FCC 'B' ; 'BL'
+372D CC (fig6800to6809dumb):01448 FCB $CC
+372E 3723 (fig6800to6809dumb):01449 FDB THREE-4
+3730 36CC (fig6800to6809dumb):01450 BL FDB DOCON ascii blank
+3732 0020 (fig6800to6809dumb):01451 FDB $20
+ (fig6800to6809dumb):01452 *
+ (fig6800to6809dumb):01453 * ======>> 57 <<
+3734 85 (fig6800to6809dumb):01454 FCB $85
+3735 46495253 (fig6800to6809dumb):01455 FCC 'FIRS' ; 'FIRST'
+3739 D4 (fig6800to6809dumb):01456 FCB $D4
+373A 372B (fig6800to6809dumb):01457 FDB BL-5
+373C 36CC (fig6800to6809dumb):01458 FIRST FDB DOCON
+373E 5084 (fig6800to6809dumb):01459 FDB MEMEND-528 (132 * NBLK)
+ (fig6800to6809dumb):01460 *
+ (fig6800to6809dumb):01461 * ======>> 58 <<
+3740 85 (fig6800to6809dumb):01462 FCB $85
+3741 4C494D49 (fig6800to6809dumb):01463 FCC 'LIMI' ; 'LIMIT' : ( the end of memory +1 )
+3745 D4 (fig6800to6809dumb):01464 FCB $D4
+3746 3734 (fig6800to6809dumb):01465 FDB FIRST-8
+3748 36CC (fig6800to6809dumb):01466 LIMIT FDB DOCON
+374A 5294 (fig6800to6809dumb):01467 FDB MEMEND
+ (fig6800to6809dumb):01468 *
+ (fig6800to6809dumb):01469 * ======>> 59 <<
+374C 85 (fig6800to6809dumb):01470 FCB $85
+374D 422F4255 (fig6800to6809dumb):01471 FCC 'B/BU' ; 'B/BUF' : (bytes/buffer)
+3751 C6 (fig6800to6809dumb):01472 FCB $C6
+3752 3740 (fig6800to6809dumb):01473 FDB LIMIT-8
+3754 36CC (fig6800to6809dumb):01474 BBUF FDB DOCON
+3756 0080 (fig6800to6809dumb):01475 FDB 128
+ (fig6800to6809dumb):01476 *
+ (fig6800to6809dumb):01477 * ======>> 60 <<
+3758 85 (fig6800to6809dumb):01478 FCB $85
+3759 422F5343 (fig6800to6809dumb):01479 FCC 'B/SC' ; 'B/SCR' : (blocks/screen)
+375D D2 (fig6800to6809dumb):01480 FCB $D2
+375E 374C (fig6800to6809dumb):01481 FDB BBUF-8
+3760 36CC (fig6800to6809dumb):01482 BSCR FDB DOCON
+3762 0008 (fig6800to6809dumb):01483 FDB 8
+ (fig6800to6809dumb):01484 * blocks/screen = 1024 / "B/BUF" = 8
+ (fig6800to6809dumb):01485 *
+ (fig6800to6809dumb):01486 * ======>> 61 <<
+3764 87 (fig6800to6809dumb):01487 FCB $87
+3765 2B4F52494749 (fig6800to6809dumb):01488 FCC '+ORIGI' ; '+ORIGIN'
+376B CE (fig6800to6809dumb):01489 FCB $CE
+376C 3758 (fig6800to6809dumb):01490 FDB BSCR-8
+376E 368730FD30003526 (fig6800to6809dumb):01491 PORIG FDB DOCOL,LIT,ORIG,PLUS
+3776 3486 (fig6800to6809dumb):01492 FDB SEMIS
+ (fig6800to6809dumb):01493 *
+ (fig6800to6809dumb):01494 * ######>> screen 36 <<
+ (fig6800to6809dumb):01495 * ======>> 62 <<
+3778 82 (fig6800to6809dumb):01496 FCB $82
+3779 53 (fig6800to6809dumb):01497 FCC 'S' ; 'S0'
+377A B0 (fig6800to6809dumb):01498 FCB $B0
+377B 3764 (fig6800to6809dumb):01499 FDB PORIG-10
+377D 36FE (fig6800to6809dumb):01500 SZERO FDB DOUSER
+377F 0006 (fig6800to6809dumb):01501 FDB XSPZER-UORIG
+ (fig6800to6809dumb):01502 *
+ (fig6800to6809dumb):01503 * ======>> 63 <<
+3781 82 (fig6800to6809dumb):01504 FCB $82
+3782 52 (fig6800to6809dumb):01505 FCC 'R' ; 'R0'
+3783 B0 (fig6800to6809dumb):01506 FCB $B0
+3784 3778 (fig6800to6809dumb):01507 FDB SZERO-5
+3786 36FE (fig6800to6809dumb):01508 RZERO FDB DOUSER
+3788 0008 (fig6800to6809dumb):01509 FDB XRZERO-UORIG
+ (fig6800to6809dumb):01510 *
+ (fig6800to6809dumb):01511 * ======>> 64 <<
+378A 83 (fig6800to6809dumb):01512 FCB $83
+378B 5449 (fig6800to6809dumb):01513 FCC 'TI' ; 'TIB'
+378D C2 (fig6800to6809dumb):01514 FCB $C2
+378E 3781 (fig6800to6809dumb):01515 FDB RZERO-5
+3790 36FE (fig6800to6809dumb):01516 TIB FDB DOUSER
+3792 000A (fig6800to6809dumb):01517 FDB XTIB-UORIG
+ (fig6800to6809dumb):01518 *
+ (fig6800to6809dumb):01519 * ======>> 65 <<
+3794 85 (fig6800to6809dumb):01520 FCB $85
+3795 57494454 (fig6800to6809dumb):01521 FCC 'WIDT' ; 'WIDTH'
+3799 C8 (fig6800to6809dumb):01522 FCB $C8
+379A 378A (fig6800to6809dumb):01523 FDB TIB-6
+379C 36FE (fig6800to6809dumb):01524 WIDTH FDB DOUSER
+379E 000C (fig6800to6809dumb):01525 FDB XWIDTH-UORIG
+ (fig6800to6809dumb):01526 *
+ (fig6800to6809dumb):01527 * ======>> 66 <<
+37A0 87 (fig6800to6809dumb):01528 FCB $87
+37A1 5741524E494E (fig6800to6809dumb):01529 FCC 'WARNIN' ; 'WARNING'
+37A7 C7 (fig6800to6809dumb):01530 FCB $C7
+37A8 3794 (fig6800to6809dumb):01531 FDB WIDTH-8
+37AA 36FE (fig6800to6809dumb):01532 WARN FDB DOUSER
+37AC 000E (fig6800to6809dumb):01533 FDB XWARN-UORIG
+ (fig6800to6809dumb):01534 *
+ (fig6800to6809dumb):01535 * ======>> 67 <<
+37AE 85 (fig6800to6809dumb):01536 FCB $85
+37AF 46454E43 (fig6800to6809dumb):01537 FCC 'FENC' ; 'FENCE'
+37B3 C5 (fig6800to6809dumb):01538 FCB $C5
+37B4 37A0 (fig6800to6809dumb):01539 FDB WARN-10
+37B6 36FE (fig6800to6809dumb):01540 FENCE FDB DOUSER
+37B8 0010 (fig6800to6809dumb):01541 FDB XFENCE-UORIG
+ (fig6800to6809dumb):01542 *
+ (fig6800to6809dumb):01543 * ======>> 68 <<
+37BA 82 (fig6800to6809dumb):01544 FCB $82
+37BB 44 (fig6800to6809dumb):01545 FCC 'D' ; 'DP' : points to first free byte at end of dictionary
+37BC D0 (fig6800to6809dumb):01546 FCB $D0
+37BD 37AE (fig6800to6809dumb):01547 FDB FENCE-8
+37BF 36FE (fig6800to6809dumb):01548 DICPT FDB DOUSER ; DP in 6800 source
+37C1 0012 (fig6800to6809dumb):01549 FDB XDP-UORIG
+ (fig6800to6809dumb):01550 *
+ (fig6800to6809dumb):01551 * ======>> 68.5 <<
+37C3 88 (fig6800to6809dumb):01552 FCB $88
+37C4 564F432D4C494E (fig6800to6809dumb):01553 FCC 'VOC-LIN' ; 'VOC-LINK'
+37CB CB (fig6800to6809dumb):01554 FCB $CB
+37CC 37BA (fig6800to6809dumb):01555 FDB DICPT-5
+37CE 36FE (fig6800to6809dumb):01556 VOCLIN FDB DOUSER
+37D0 0014 (fig6800to6809dumb):01557 FDB XVOCL-UORIG
+ (fig6800to6809dumb):01558 *
+ (fig6800to6809dumb):01559 * ======>> 69 <<
+37D2 83 (fig6800to6809dumb):01560 FCB $83
+37D3 424C (fig6800to6809dumb):01561 FCC 'BL' ; 'BLK'
+37D5 CB (fig6800to6809dumb):01562 FCB $CB
+37D6 37C3 (fig6800to6809dumb):01563 FDB VOCLIN-11
+37D8 36FE (fig6800to6809dumb):01564 BLK FDB DOUSER
+37DA 0016 (fig6800to6809dumb):01565 FDB XBLK-UORIG
+ (fig6800to6809dumb):01566 *
+ (fig6800to6809dumb):01567 * ======>> 70 <<
+37DC 82 (fig6800to6809dumb):01568 FCB $82
+37DD 49 (fig6800to6809dumb):01569 FCC 'I' ; 'IN' : scan pointer for input line buffer
+37DE CE (fig6800to6809dumb):01570 FCB $CE
+37DF 37D2 (fig6800to6809dumb):01571 FDB BLK-6
+37E1 36FE (fig6800to6809dumb):01572 IN FDB DOUSER
+37E3 0018 (fig6800to6809dumb):01573 FDB XIN-UORIG
+ (fig6800to6809dumb):01574 *
+ (fig6800to6809dumb):01575 * ======>> 71 <<
+37E5 83 (fig6800to6809dumb):01576 FCB $83
+37E6 4F55 (fig6800to6809dumb):01577 FCC 'OU' ; 'OUT'
+37E8 D4 (fig6800to6809dumb):01578 FCB $D4
+37E9 37DC (fig6800to6809dumb):01579 FDB IN-5
+37EB 36FE (fig6800to6809dumb):01580 OUT FDB DOUSER
+37ED 001A (fig6800to6809dumb):01581 FDB XOUT-UORIG
+ (fig6800to6809dumb):01582 *
+ (fig6800to6809dumb):01583 * ======>> 72 <<
+37EF 83 (fig6800to6809dumb):01584 FCB $83
+37F0 5343 (fig6800to6809dumb):01585 FCC 'SC' ; 'SCR'
+37F2 D2 (fig6800to6809dumb):01586 FCB $D2
+37F3 37E5 (fig6800to6809dumb):01587 FDB OUT-6
+37F5 36FE (fig6800to6809dumb):01588 SCR FDB DOUSER
+37F7 001C (fig6800to6809dumb):01589 FDB XSCR-UORIG
+ (fig6800to6809dumb):01590 * ######>> screen 37 <<
+ (fig6800to6809dumb):01591 *
+ (fig6800to6809dumb):01592 * ======>> 73 <<
+37F9 86 (fig6800to6809dumb):01593 FCB $86
+37FA 4F46465345 (fig6800to6809dumb):01594 FCC 'OFFSE' ; 'OFFSET'
+37FF D4 (fig6800to6809dumb):01595 FCB $D4
+3800 37EF (fig6800to6809dumb):01596 FDB SCR-6
+3802 36FE (fig6800to6809dumb):01597 OFSET FDB DOUSER
+3804 001E (fig6800to6809dumb):01598 FDB XOFSET-UORIG
+ (fig6800to6809dumb):01599 *
+ (fig6800to6809dumb):01600 * ======>> 74 <<
+3806 87 (fig6800to6809dumb):01601 FCB $87
+3807 434F4E544558 (fig6800to6809dumb):01602 FCC 'CONTEX' ; 'CONTEXT' : points to pointer to vocab to search first
+380D D4 (fig6800to6809dumb):01603 FCB $D4
+380E 37F9 (fig6800to6809dumb):01604 FDB OFSET-9
+3810 36FE (fig6800to6809dumb):01605 CONTXT FDB DOUSER
+3812 0020 (fig6800to6809dumb):01606 FDB XCONT-UORIG
+ (fig6800to6809dumb):01607 *
+ (fig6800to6809dumb):01608 * ======>> 75 <<
+3814 87 (fig6800to6809dumb):01609 FCB $87
+3815 43555252454E (fig6800to6809dumb):01610 FCC 'CURREN' ; 'CURRENT' : points to ptr. to vocab being extended
+381B D4 (fig6800to6809dumb):01611 FCB $D4
+381C 3806 (fig6800to6809dumb):01612 FDB CONTXT-10
+381E 36FE (fig6800to6809dumb):01613 CURENT FDB DOUSER
+3820 0022 (fig6800to6809dumb):01614 FDB XCURR-UORIG
+ (fig6800to6809dumb):01615 *
+ (fig6800to6809dumb):01616 * ======>> 76 <<
+3822 85 (fig6800to6809dumb):01617 FCB $85
+3823 53544154 (fig6800to6809dumb):01618 FCC 'STAT' ; 'STATE' : 1 if compiling, 0 if not
+3827 C5 (fig6800to6809dumb):01619 FCB $C5
+3828 3814 (fig6800to6809dumb):01620 FDB CURENT-10
+382A 36FE (fig6800to6809dumb):01621 STATE FDB DOUSER
+382C 0024 (fig6800to6809dumb):01622 FDB XSTATE-UORIG
+ (fig6800to6809dumb):01623 *
+ (fig6800to6809dumb):01624 * ======>> 77 <<
+382E 84 (fig6800to6809dumb):01625 FCB $84
+382F 424153 (fig6800to6809dumb):01626 FCC 'BAS' ; 'BASE' : number base for all input & output
+3832 C5 (fig6800to6809dumb):01627 FCB $C5
+3833 3822 (fig6800to6809dumb):01628 FDB STATE-8
+3835 36FE (fig6800to6809dumb):01629 BASE FDB DOUSER
+3837 0026 (fig6800to6809dumb):01630 FDB XBASE-UORIG
+ (fig6800to6809dumb):01631 *
+ (fig6800to6809dumb):01632 * ======>> 78 <<
+3839 83 (fig6800to6809dumb):01633 FCB $83
+383A 4450 (fig6800to6809dumb):01634 FCC 'DP' ; 'DPL'
+383C CC (fig6800to6809dumb):01635 FCB $CC
+383D 382E (fig6800to6809dumb):01636 FDB BASE-7
+383F 36FE (fig6800to6809dumb):01637 DPL FDB DOUSER
+3841 0028 (fig6800to6809dumb):01638 FDB XDPL-UORIG
+ (fig6800to6809dumb):01639 *
+ (fig6800to6809dumb):01640 * ======>> 79 <<
+3843 83 (fig6800to6809dumb):01641 FCB $83
+3844 464C (fig6800to6809dumb):01642 FCC 'FL' ; 'FLD'
+3846 C4 (fig6800to6809dumb):01643 FCB $C4
+3847 3839 (fig6800to6809dumb):01644 FDB DPL-6
+3849 36FE (fig6800to6809dumb):01645 FLD FDB DOUSER
+384B 002A (fig6800to6809dumb):01646 FDB XFLD-UORIG
+ (fig6800to6809dumb):01647 *
+ (fig6800to6809dumb):01648 * ======>> 80 <<
+384D 83 (fig6800to6809dumb):01649 FCB $83
+384E 4353 (fig6800to6809dumb):01650 FCC 'CS' ; 'CSP'
+3850 D0 (fig6800to6809dumb):01651 FCB $D0
+3851 3843 (fig6800to6809dumb):01652 FDB FLD-6
+3853 36FE (fig6800to6809dumb):01653 CSP FDB DOUSER
+3855 002C (fig6800to6809dumb):01654 FDB XCSP-UORIG
+ (fig6800to6809dumb):01655 *
+ (fig6800to6809dumb):01656 * ======>> 81 <<
+3857 82 (fig6800to6809dumb):01657 FCB $82
+3858 52 (fig6800to6809dumb):01658 FCC 'R' ; 'R#'
+3859 A3 (fig6800to6809dumb):01659 FCB $A3
+385A 384D (fig6800to6809dumb):01660 FDB CSP-6
+385C 36FE (fig6800to6809dumb):01661 RNUM FDB DOUSER
+385E 002E (fig6800to6809dumb):01662 FDB XRNUM-UORIG
+ (fig6800to6809dumb):01663 *
+ (fig6800to6809dumb):01664 * ======>> 82 <<
+3860 83 (fig6800to6809dumb):01665 FCB $83
+3861 484C (fig6800to6809dumb):01666 FCC 'HL' ; 'HLD'
+3863 C4 (fig6800to6809dumb):01667 FCB $C4
+3864 3857 (fig6800to6809dumb):01668 FDB RNUM-5
+3866 36CC (fig6800to6809dumb):01669 HLD FDB DOCON
+3868 1430 (fig6800to6809dumb):01670 FDB XHLD
+ (fig6800to6809dumb):01671 *
+ (fig6800to6809dumb):01672 * ======>> 82.5 <<== SPECIAL
+386A 87 (fig6800to6809dumb):01673 FCB $87
+386B 434F4C554D4E (fig6800to6809dumb):01674 FCC 'COLUMN' ; 'COLUMNS' : line width of terminal
+3871 D3 (fig6800to6809dumb):01675 FCB $D3
+3872 3860 (fig6800to6809dumb):01676 FDB HLD-6
+3874 36FE (fig6800to6809dumb):01677 COLUMS FDB DOUSER
+3876 0034 (fig6800to6809dumb):01678 FDB XCOLUM-UORIG
+ (fig6800to6809dumb):01679 *
+ (fig6800to6809dumb):01680 * ######>> screen 38 <<
+ (fig6800to6809dumb):01681 * ======>> 83 <<
+3878 82 (fig6800to6809dumb):01682 FCB $82
+3879 31 (fig6800to6809dumb):01683 FCC '1' ; '1+'
+387A AB (fig6800to6809dumb):01684 FCB $AB
+387B 386A (fig6800to6809dumb):01685 FDB COLUMS-10
+387D 368737173526 (fig6800to6809dumb):01686 ONEP FDB DOCOL,ONE,PLUS
+3883 3486 (fig6800to6809dumb):01687 FDB SEMIS
+ (fig6800to6809dumb):01688 *
+ (fig6800to6809dumb):01689 * ======>> 84 <<
+3885 82 (fig6800to6809dumb):01690 FCB $82
+3886 32 (fig6800to6809dumb):01691 FCC '2' ; '2+'
+3887 AB (fig6800to6809dumb):01692 FCB $AB
+3888 3878 (fig6800to6809dumb):01693 FDB ONEP-5
+388A 3687371F3526 (fig6800to6809dumb):01694 TWOP FDB DOCOL,TWO,PLUS
+3890 3486 (fig6800to6809dumb):01695 FDB SEMIS
+ (fig6800to6809dumb):01696 *
+ (fig6800to6809dumb):01697 * ======>> 85 <<
+3892 84 (fig6800to6809dumb):01698 FCB $84
+3893 484552 (fig6800to6809dumb):01699 FCC 'HER' ; 'HERE'
+3896 C5 (fig6800to6809dumb):01700 FCB $C5
+3897 3885 (fig6800to6809dumb):01701 FDB TWOP-5
+3899 368737BF3624 (fig6800to6809dumb):01702 HERE FDB DOCOL,DICPT,AT
+389F 3486 (fig6800to6809dumb):01703 FDB SEMIS
+ (fig6800to6809dumb):01704 *
+ (fig6800to6809dumb):01705 * ======>> 86 <<
+38A1 85 (fig6800to6809dumb):01706 FCB $85
+38A2 414C4C4F (fig6800to6809dumb):01707 FCC 'ALLO' ; 'ALLOT'
+38A6 D4 (fig6800to6809dumb):01708 FCB $D4
+38A7 3892 (fig6800to6809dumb):01709 FDB HERE-7
+38A9 368737BF35F0 (fig6800to6809dumb):01710 ALLOT FDB DOCOL,DICPT,PSTORE
+38AF 3486 (fig6800to6809dumb):01711 FDB SEMIS
+ (fig6800to6809dumb):01712 *
+ (fig6800to6809dumb):01713 * ======>> 87 <<
+38B1 81 (fig6800to6809dumb):01714 FCB $81 ; , (COMMA)
+38B2 AC (fig6800to6809dumb):01715 FCB $AC
+38B3 38A1 (fig6800to6809dumb):01716 FDB ALLOT-8
+38B5 36873899364A371F (fig6800to6809dumb):01717 COMMA FDB DOCOL,HERE,STORE,TWO,ALLOT
+ 38A9
+38BF 3486 (fig6800to6809dumb):01718 FDB SEMIS
+ (fig6800to6809dumb):01719 *
+ (fig6800to6809dumb):01720 * ======>> 88 <<
+38C1 82 (fig6800to6809dumb):01721 FCB $82
+38C2 43 (fig6800to6809dumb):01722 FCC 'C' ; 'C,'
+38C3 AC (fig6800to6809dumb):01723 FCB $AC
+38C4 38B1 (fig6800to6809dumb):01724 FDB COMMA-4
+38C6 36873899365C3717 (fig6800to6809dumb):01725 CCOMM FDB DOCOL,HERE,CSTORE,ONE,ALLOT
+ 38A9
+38D0 3486 (fig6800to6809dumb):01726 FDB SEMIS
+ (fig6800to6809dumb):01727 *
+ (fig6800to6809dumb):01728 * ======>> 89 <<
+38D2 81 (fig6800to6809dumb):01729 FCB $81 ; -
+38D3 AD (fig6800to6809dumb):01730 FCB $AD
+38D4 38C1 (fig6800to6809dumb):01731 FDB CCOMM-5
+38D6 368735603526 (fig6800to6809dumb):01732 SUB FDB DOCOL,MINUS,PLUS
+38DC 3486 (fig6800to6809dumb):01733 FDB SEMIS
+ (fig6800to6809dumb):01734 *
+ (fig6800to6809dumb):01735 * ======>> 90 <<
+38DE 81 (fig6800to6809dumb):01736 FCB $81 =
+38DF BD (fig6800to6809dumb):01737 FCB $BD
+38E0 38D2 (fig6800to6809dumb):01738 FDB SUB-4
+38E2 368738D634F9 (fig6800to6809dumb):01739 EQUAL FDB DOCOL,SUB,ZEQU
+38E8 3486 (fig6800to6809dumb):01740 FDB SEMIS
+ (fig6800to6809dumb):01741 *
+ (fig6800to6809dumb):01742 * ======>> 91 <<
+38EA 81 (fig6800to6809dumb):01743 FCB $81 <
+38EB BC (fig6800to6809dumb):01744 FCB $BC
+38EC 38DE (fig6800to6809dumb):01745 FDB EQUAL-4
+38EE 38F0 (fig6800to6809dumb):01746 LESS FDB *+2
+38F0 3502 (fig6800to6809dumb):01747 PULS A
+38F2 3504 (fig6800to6809dumb):01748 PULS B
+38F4 1F41 (fig6800to6809dumb):01749 TFR S,X
+38F6 A100 (fig6800to6809dumb):01750 CMPA 0,X
+38F8 3261 (fig6800to6809dumb):01751 LEAS 1,S
+38FA 2E09 (fig6800to6809dumb):01752 BGT LESST
+38FC 2604 (fig6800to6809dumb):01753 BNE LESSF
+38FE E101 (fig6800to6809dumb):01754 CMPB 1,X
+3900 2203 (fig6800to6809dumb):01755 BHI LESST
+3902 5F (fig6800to6809dumb):01756 LESSF CLRB
+3903 2002 (fig6800to6809dumb):01757 BRA LESSX
+3905 C601 (fig6800to6809dumb):01758 LESST LDB #1
+3907 4F (fig6800to6809dumb):01759 LESSX CLRA
+3908 3261 (fig6800to6809dumb):01760 LEAS 1,S
+390A 7E3034 (fig6800to6809dumb):01761 JMP PUSHBA
+ (fig6800to6809dumb):01762 *
+ (fig6800to6809dumb):01763 * ======>> 92 <<
+390D 81 (fig6800to6809dumb):01764 FCB $81 >
+390E BE (fig6800to6809dumb):01765 FCB $BE
+390F 38EA (fig6800to6809dumb):01766 FDB LESS-4
+3911 368735BE38EE (fig6800to6809dumb):01767 GREAT FDB DOCOL,SWAP,LESS
+3917 3486 (fig6800to6809dumb):01768 FDB SEMIS
+ (fig6800to6809dumb):01769 *
+ (fig6800to6809dumb):01770 * ======>> 93 <<
+3919 83 (fig6800to6809dumb):01771 FCB $83
+391A 524F (fig6800to6809dumb):01772 FCC 'RO' ; 'ROT'
+391C D4 (fig6800to6809dumb):01773 FCB $D4
+391D 390D (fig6800to6809dumb):01774 FDB GREAT-4
+391F 368734BA35BE34D4 (fig6800to6809dumb):01775 ROT FDB DOCOL,TOR,SWAP,FROMR,SWAP
+ 35BE
+3929 3486 (fig6800to6809dumb):01776 FDB SEMIS
+ (fig6800to6809dumb):01777 *
+ (fig6800to6809dumb):01778 * ======>> 94 <<
+392B 85 (fig6800to6809dumb):01779 FCB $85
+392C 53504143 (fig6800to6809dumb):01780 FCC 'SPAC' ; 'SPACE'
+3930 C5 (fig6800to6809dumb):01781 FCB $C5
+3931 3919 (fig6800to6809dumb):01782 FDB ROT-6
+3933 36873730331D (fig6800to6809dumb):01783 SPACE FDB DOCOL,BL,EMIT
+3939 3486 (fig6800to6809dumb):01784 FDB SEMIS
+ (fig6800to6809dumb):01785 *
+ (fig6800to6809dumb):01786 * ======>> 95 <<
+393B 83 (fig6800to6809dumb):01787 FCB $83
+393C 4D49 (fig6800to6809dumb):01788 FCC 'MI' ; 'MIN'
+393E CE (fig6800to6809dumb):01789 FCB $CE
+393F 392B (fig6800to6809dumb):01790 FDB SPACE-8
+3941 3687359C359C3911 (fig6800to6809dumb):01791 MIN FDB DOCOL,OVER,OVER,GREAT,ZBRAN
+ 3148
+394B 0004 (fig6800to6809dumb):01792 FDB MIN2-*
+394D 35BE (fig6800to6809dumb):01793 FDB SWAP
+394F 35AE (fig6800to6809dumb):01794 MIN2 FDB DROP
+3951 3486 (fig6800to6809dumb):01795 FDB SEMIS
+ (fig6800to6809dumb):01796 *
+ (fig6800to6809dumb):01797 * ======>> 96 <<
+3953 83 (fig6800to6809dumb):01798 FCB $83
+3954 4D41 (fig6800to6809dumb):01799 FCC 'MA' ; 'MAX'
+3956 D8 (fig6800to6809dumb):01800 FCB $D8
+3957 393B (fig6800to6809dumb):01801 FDB MIN-6
+3959 3687359C359C38EE (fig6800to6809dumb):01802 MAX FDB DOCOL,OVER,OVER,LESS,ZBRAN
+ 3148
+3963 0004 (fig6800to6809dumb):01803 FDB MAX2-*
+3965 35BE (fig6800to6809dumb):01804 FDB SWAP
+3967 35AE (fig6800to6809dumb):01805 MAX2 FDB DROP
+3969 3486 (fig6800to6809dumb):01806 FDB SEMIS
+ (fig6800to6809dumb):01807 *
+ (fig6800to6809dumb):01808 * ======>> 97 <<
+396B 84 (fig6800to6809dumb):01809 FCB $84
+396C 2D4455 (fig6800to6809dumb):01810 FCC '-DU' ; '-DUP'
+396F D0 (fig6800to6809dumb):01811 FCB $D0
+3970 3953 (fig6800to6809dumb):01812 FDB MAX-6
+3972 368735DE3148 (fig6800to6809dumb):01813 DDUP FDB DOCOL,DUP,ZBRAN
+3978 0004 (fig6800to6809dumb):01814 FDB DDUP2-*
+397A 35DE (fig6800to6809dumb):01815 FDB DUP
+397C 3486 (fig6800to6809dumb):01816 DDUP2 FDB SEMIS
+ (fig6800to6809dumb):01817 *
+ (fig6800to6809dumb):01818 * ######>> screen 39 <<
+ (fig6800to6809dumb):01819 * ======>> 98 <<
+397E 88 (fig6800to6809dumb):01820 FCB $88
+397F 54524156455253 (fig6800to6809dumb):01821 FCC 'TRAVERS' ; 'TRAVERSE'
+3986 C5 (fig6800to6809dumb):01822 FCB $C5
+3987 396B (fig6800to6809dumb):01823 FDB DDUP-7
+3989 368735BE (fig6800to6809dumb):01824 TRAV FDB DOCOL,SWAP
+398D 359C3526310E (fig6800to6809dumb):01825 TRAV2 FDB OVER,PLUS,CLITER
+3993 7F (fig6800to6809dumb):01826 FCB $7F
+3994 359C363638EE3148 (fig6800to6809dumb):01827 FDB OVER,CAT,LESS,ZBRAN
+399C FFF1 (fig6800to6809dumb):01828 FDB TRAV2-*
+399E 35BE35AE (fig6800to6809dumb):01829 FDB SWAP,DROP
+39A2 3486 (fig6800to6809dumb):01830 FDB SEMIS
+ (fig6800to6809dumb):01831 *
+ (fig6800to6809dumb):01832 * ======>> 99 <<
+39A4 86 (fig6800to6809dumb):01833 FCB $86
+39A5 4C41544553 (fig6800to6809dumb):01834 FCC 'LATES' ; 'LATEST'
+39AA D4 (fig6800to6809dumb):01835 FCB $D4
+39AB 397E (fig6800to6809dumb):01836 FDB TRAV-11
+39AD 3687381E36243624 (fig6800to6809dumb):01837 LATEST FDB DOCOL,CURENT,AT,AT
+39B5 3486 (fig6800to6809dumb):01838 FDB SEMIS
+ (fig6800to6809dumb):01839 *
+ (fig6800to6809dumb):01840 * ======>> 100 <<
+39B7 83 (fig6800to6809dumb):01841 FCB $83
+39B8 4C46 (fig6800to6809dumb):01842 FCC 'LF' ; 'LFA'
+39BA C1 (fig6800to6809dumb):01843 FCB $C1
+39BB 39A4 (fig6800to6809dumb):01844 FDB LATEST-9
+39BD 3687310E (fig6800to6809dumb):01845 LFA FDB DOCOL,CLITER
+39C1 04 (fig6800to6809dumb):01846 FCB 4
+39C2 38D6 (fig6800to6809dumb):01847 FDB SUB
+39C4 3486 (fig6800to6809dumb):01848 FDB SEMIS
+ (fig6800to6809dumb):01849 *
+ (fig6800to6809dumb):01850 * ======>> 101 <<
+39C6 83 (fig6800to6809dumb):01851 FCB $83
+39C7 4346 (fig6800to6809dumb):01852 FCC 'CF' ; 'CFA'
+39C9 C1 (fig6800to6809dumb):01853 FCB $C1
+39CA 39B7 (fig6800to6809dumb):01854 FDB LFA-6
+39CC 3687371F38D6 (fig6800to6809dumb):01855 CFA FDB DOCOL,TWO,SUB
+39D2 3486 (fig6800to6809dumb):01856 FDB SEMIS
+ (fig6800to6809dumb):01857 *
+ (fig6800to6809dumb):01858 * ======>> 102 <<
+39D4 83 (fig6800to6809dumb):01859 FCB $83
+39D5 4E46 (fig6800to6809dumb):01860 FCC 'NF' ; 'NFA'
+39D7 C1 (fig6800to6809dumb):01861 FCB $C1
+39D8 39C6 (fig6800to6809dumb):01862 FDB CFA-6
+39DA 3687310E (fig6800to6809dumb):01863 NFA FDB DOCOL,CLITER
+39DE 05 (fig6800to6809dumb):01864 FCB 5
+39DF 38D6371735603989 (fig6800to6809dumb):01865 FDB SUB,ONE,MINUS,TRAV
+39E7 3486 (fig6800to6809dumb):01866 FDB SEMIS
+ (fig6800to6809dumb):01867 *
+ (fig6800to6809dumb):01868 * ======>> 103 <<
+39E9 83 (fig6800to6809dumb):01869 FCB $83
+39EA 5046 (fig6800to6809dumb):01870 FCC 'PF' ; 'PFA'
+39EC C1 (fig6800to6809dumb):01871 FCB $C1
+39ED 39D4 (fig6800to6809dumb):01872 FDB NFA-6
+39EF 368737173989310E (fig6800to6809dumb):01873 PFA FDB DOCOL,ONE,TRAV,CLITER
+39F7 05 (fig6800to6809dumb):01874 FCB 5
+39F8 3526 (fig6800to6809dumb):01875 FDB PLUS
+39FA 3486 (fig6800to6809dumb):01876 FDB SEMIS
+ (fig6800to6809dumb):01877 *
+ (fig6800to6809dumb):01878 * ######>> screen 40 <<
+ (fig6800to6809dumb):01879 * ======>> 104 <<
+39FC 84 (fig6800to6809dumb):01880 FCB $84
+39FD 214353 (fig6800to6809dumb):01881 FCC '!CS' ; '!CSP'
+3A00 D0 (fig6800to6809dumb):01882 FCB $D0
+3A01 39E9 (fig6800to6809dumb):01883 FDB PFA-6
+3A03 368734543853364A (fig6800to6809dumb):01884 SCSP FDB DOCOL,SPAT,CSP,STORE
+3A0B 3486 (fig6800to6809dumb):01885 FDB SEMIS
+ (fig6800to6809dumb):01886 *
+ (fig6800to6809dumb):01887 * ======>> 105 <<
+3A0D 86 (fig6800to6809dumb):01888 FCB $86
+3A0E 3F4552524F (fig6800to6809dumb):01889 FCC '?ERRO' ; '?ERROR'
+3A13 D2 (fig6800to6809dumb):01890 FCB $D2
+3A14 39FC (fig6800to6809dumb):01891 FDB SCSP-7
+3A16 368735BE3148 (fig6800to6809dumb):01892 QERR FDB DOCOL,SWAP,ZBRAN
+3A1C 0008 (fig6800to6809dumb):01893 FDB QERR2-*
+3A1E 3EE4313C (fig6800to6809dumb):01894 FDB ERROR,BRAN
+3A22 0004 (fig6800to6809dumb):01895 FDB QERR3-*
+3A24 35AE (fig6800to6809dumb):01896 QERR2 FDB DROP
+3A26 3486 (fig6800to6809dumb):01897 QERR3 FDB SEMIS
+ (fig6800to6809dumb):01898 *
+ (fig6800to6809dumb):01899 * ======>> 106 <<
+3A28 85 (fig6800to6809dumb):01900 FCB $85
+3A29 3F434F4D (fig6800to6809dumb):01901 FCC '?COM' ; '?COMP'
+3A2D D0 (fig6800to6809dumb):01902 FCB $D0
+3A2E 3A0D (fig6800to6809dumb):01903 FDB QERR-9
+3A30 3687382A362434F9 (fig6800to6809dumb):01904 QCOMP FDB DOCOL,STATE,AT,ZEQU,CLITER
+ 310E
+3A3A 11 (fig6800to6809dumb):01905 FCB $11
+3A3B 3A16 (fig6800to6809dumb):01906 FDB QERR
+3A3D 3486 (fig6800to6809dumb):01907 FDB SEMIS
+ (fig6800to6809dumb):01908 *
+ (fig6800to6809dumb):01909 * ======>> 107 <<
+3A3F 85 (fig6800to6809dumb):01910 FCB $85
+3A40 3F455845 (fig6800to6809dumb):01911 FCC '?EXE' ; '?EXEC'
+3A44 C3 (fig6800to6809dumb):01912 FCB $C3
+3A45 3A28 (fig6800to6809dumb):01913 FDB QCOMP-8
+3A47 3687382A3624310E (fig6800to6809dumb):01914 QEXEC FDB DOCOL,STATE,AT,CLITER
+3A4F 12 (fig6800to6809dumb):01915 FCB $12
+3A50 3A16 (fig6800to6809dumb):01916 FDB QERR
+3A52 3486 (fig6800to6809dumb):01917 FDB SEMIS
+ (fig6800to6809dumb):01918 *
+ (fig6800to6809dumb):01919 * ======>> 108 <<
+3A54 86 (fig6800to6809dumb):01920 FCB $86
+3A55 3F50414952 (fig6800to6809dumb):01921 FCC '?PAIR' ; '?PAIRS'
+3A5A D3 (fig6800to6809dumb):01922 FCB $D3
+3A5B 3A3F (fig6800to6809dumb):01923 FDB QEXEC-8
+3A5D 368738D6310E (fig6800to6809dumb):01924 QPAIRS FDB DOCOL,SUB,CLITER
+3A63 13 (fig6800to6809dumb):01925 FCB $13
+3A64 3A16 (fig6800to6809dumb):01926 FDB QERR
+3A66 3486 (fig6800to6809dumb):01927 FDB SEMIS
+ (fig6800to6809dumb):01928 *
+ (fig6800to6809dumb):01929 * ======>> 109 <<
+3A68 84 (fig6800to6809dumb):01930 FCB $84
+3A69 3F4353 (fig6800to6809dumb):01931 FCC '?CS' ; '?CSP'
+3A6C D0 (fig6800to6809dumb):01932 FCB $D0
+3A6D 3A54 (fig6800to6809dumb):01933 FDB QPAIRS-9
+3A6F 3687345438533624 (fig6800to6809dumb):01934 QCSP FDB DOCOL,SPAT,CSP,AT,SUB,CLITER
+ 38D6310E
+3A7B 14 (fig6800to6809dumb):01935 FCB $14
+3A7C 3A16 (fig6800to6809dumb):01936 FDB QERR
+3A7E 3486 (fig6800to6809dumb):01937 FDB SEMIS
+ (fig6800to6809dumb):01938 *
+ (fig6800to6809dumb):01939 * ======>> 110 <<
+3A80 88 (fig6800to6809dumb):01940 FCB $88
+3A81 3F4C4F4144494E (fig6800to6809dumb):01941 FCC '?LOADIN' ; '?LOADING'
+3A88 C7 (fig6800to6809dumb):01942 FCB $C7
+3A89 3A68 (fig6800to6809dumb):01943 FDB QCSP-7
+3A8B 368737D8362434F9 (fig6800to6809dumb):01944 QLOAD FDB DOCOL,BLK,AT,ZEQU,CLITER
+ 310E
+3A95 16 (fig6800to6809dumb):01945 FCB $16
+3A96 3A16 (fig6800to6809dumb):01946 FDB QERR
+3A98 3486 (fig6800to6809dumb):01947 FDB SEMIS
+ (fig6800to6809dumb):01948 *
+ (fig6800to6809dumb):01949 * ######>> screen 41 <<
+ (fig6800to6809dumb):01950 * ======>> 111 <<
+3A9A 87 (fig6800to6809dumb):01951 FCB $87
+3A9B 434F4D50494C (fig6800to6809dumb):01952 FCC 'COMPIL' ; 'COMPILE'
+3AA1 C5 (fig6800to6809dumb):01953 FCB $C5
+3AA2 3A80 (fig6800to6809dumb):01954 FDB QLOAD-11
+3AA4 36873A3034D4388A (fig6800to6809dumb):01955 COMPIL FDB DOCOL,QCOMP,FROMR,TWOP,DUP,TOR,AT,COMMA
+ 35DE34BA362438B5
+3AB4 3486 (fig6800to6809dumb):01956 FDB SEMIS
+ (fig6800to6809dumb):01957 *
+ (fig6800to6809dumb):01958 * ======>> 112 <<
+3AB6 C1 (fig6800to6809dumb):01959 FCB $C1 [ immediate
+3AB7 DB (fig6800to6809dumb):01960 FCB $DB
+3AB8 3A9A (fig6800to6809dumb):01961 FDB COMPIL-10
+3ABA 3687370F382A364A (fig6800to6809dumb):01962 LBRAK FDB DOCOL,ZERO,STATE,STORE
+3AC2 3486 (fig6800to6809dumb):01963 FDB SEMIS
+ (fig6800to6809dumb):01964 *
+ (fig6800to6809dumb):01965 * ======>> 113 <<
+3AC4 81 (fig6800to6809dumb):01966 FCB $81 ]
+3AC5 DD (fig6800to6809dumb):01967 FCB $DD
+3AC6 3AB6 (fig6800to6809dumb):01968 FDB LBRAK-4
+3AC8 3687310E (fig6800to6809dumb):01969 RBRAK FDB DOCOL,CLITER
+3ACC C0 (fig6800to6809dumb):01970 FCB $C0
+3ACD 382A364A (fig6800to6809dumb):01971 FDB STATE,STORE
+3AD1 3486 (fig6800to6809dumb):01972 FDB SEMIS
+ (fig6800to6809dumb):01973 *
+ (fig6800to6809dumb):01974 * ======>> 114 <<
+3AD3 86 (fig6800to6809dumb):01975 FCB $86
+3AD4 534D554447 (fig6800to6809dumb):01976 FCC 'SMUDG' ; 'SMUDGE'
+3AD9 C5 (fig6800to6809dumb):01977 FCB $C5
+3ADA 3AC4 (fig6800to6809dumb):01978 FDB RBRAK-4
+3ADC 368739AD310E (fig6800to6809dumb):01979 SMUDGE FDB DOCOL,LATEST,CLITER
+3AE2 20 (fig6800to6809dumb):01980 FCB $20
+3AE3 3612 (fig6800to6809dumb):01981 FDB TOGGLE
+3AE5 3486 (fig6800to6809dumb):01982 FDB SEMIS
+ (fig6800to6809dumb):01983 *
+ (fig6800to6809dumb):01984 * ======>> 115 <<
+3AE7 83 (fig6800to6809dumb):01985 FCB $83
+3AE8 4845 (fig6800to6809dumb):01986 FCC 'HE' ; 'HEX'
+3AEA D8 (fig6800to6809dumb):01987 FCB $D8
+3AEB 3AD3 (fig6800to6809dumb):01988 FDB SMUDGE-9
+3AED 3687 (fig6800to6809dumb):01989 HEX FDB DOCOL
+3AEF 310E (fig6800to6809dumb):01990 FDB CLITER
+3AF1 10 (fig6800to6809dumb):01991 FCB 16
+3AF2 3835364A (fig6800to6809dumb):01992 FDB BASE,STORE
+3AF6 3486 (fig6800to6809dumb):01993 FDB SEMIS
+ (fig6800to6809dumb):01994 *
+ (fig6800to6809dumb):01995 * ======>> 116 <<
+3AF8 87 (fig6800to6809dumb):01996 FCB $87
+3AF9 444543494D41 (fig6800to6809dumb):01997 FCC 'DECIMA' ; 'DECIMAL'
+3AFF CC (fig6800to6809dumb):01998 FCB $CC
+3B00 3AE7 (fig6800to6809dumb):01999 FDB HEX-6
+3B02 3687 (fig6800to6809dumb):02000 DECIM FDB DOCOL
+3B04 310E (fig6800to6809dumb):02001 FDB CLITER
+3B06 0A (fig6800to6809dumb):02002 FCB 10 note: hex "A"
+3B07 3835364A (fig6800to6809dumb):02003 FDB BASE,STORE
+3B0B 3486 (fig6800to6809dumb):02004 FDB SEMIS
+ (fig6800to6809dumb):02005 *
+ (fig6800to6809dumb):02006 * ######>> screen 42 <<
+ (fig6800to6809dumb):02007 * ======>> 117 <<
+3B0D 87 (fig6800to6809dumb):02008 FCB $87
+3B0E 283B434F4445 (fig6800to6809dumb):02009 FCC '(;CODE' ; '(;CODE)'
+3B14 A9 (fig6800to6809dumb):02010 FCB $A9
+3B15 3AF8 (fig6800to6809dumb):02011 FDB DECIM-10
+3B17 368734D4388A39AD (fig6800to6809dumb):02012 PSCODE FDB DOCOL,FROMR,TWOP,LATEST,PFA,CFA,STORE
+ 39EF39CC364A
+3B25 3486 (fig6800to6809dumb):02013 FDB SEMIS
+ (fig6800to6809dumb):02014 *
+ (fig6800to6809dumb):02015 * ======>> 118 <<
+3B27 C5 (fig6800to6809dumb):02016 FCB $C5 immediate
+3B28 3B434F44 (fig6800to6809dumb):02017 FCC ';COD' ; ';CODE'
+3B2C C5 (fig6800to6809dumb):02018 FCB $C5
+3B2D 3B0D (fig6800to6809dumb):02019 FDB PSCODE-10
+3B2F 36873A6F3AA43B17 (fig6800to6809dumb):02020 SEMIC FDB DOCOL,QCSP,COMPIL,PSCODE,SMUDGE,LBRAK,QSTACK
+ 3ADC3ABA3C5A
+3B3D 3486 (fig6800to6809dumb):02021 FDB SEMIS
+ (fig6800to6809dumb):02022 * note: "QSTACK" will be replaced by "ASSEMBLER" later
+ (fig6800to6809dumb):02023 *
+ (fig6800to6809dumb):02024 * ######>> screen 43 <<
+ (fig6800to6809dumb):02025 * ======>> 119 <<
+3B3F 87 (fig6800to6809dumb):02026 FCB $87
+3B40 3C4255494C44 (fig6800to6809dumb):02027 FCC '<BUILD' ; '<BUILDS'
+3B46 D3 (fig6800to6809dumb):02028 FCB $D3
+3B47 3B27 (fig6800to6809dumb):02029 FDB SEMIC-8
+3B49 3687370F36C2 (fig6800to6809dumb):02030 BUILDS FDB DOCOL,ZERO,CON
+3B4F 3486 (fig6800to6809dumb):02031 FDB SEMIS
+ (fig6800to6809dumb):02032 *
+ (fig6800to6809dumb):02033 * ======>> 120 <<
+3B51 85 (fig6800to6809dumb):02034 FCB $85
+3B52 444F4553 (fig6800to6809dumb):02035 FCC 'DOES' ; 'DOES>'
+3B56 BE (fig6800to6809dumb):02036 FCB $BE
+3B57 3B3F (fig6800to6809dumb):02037 FDB BUILDS-10
+3B59 368734D4388A39AD (fig6800to6809dumb):02038 DOES FDB DOCOL,FROMR,TWOP,LATEST,PFA,STORE
+ 39EF364A
+3B65 3B17 (fig6800to6809dumb):02039 FDB PSCODE
+3B67 9612 (fig6800to6809dumb):02040 DODOES LDA IP
+3B69 D613 (fig6800to6809dumb):02041 LDB IP+1
+3B6B 9E14 (fig6800to6809dumb):02042 LDX RP make room on return stack
+3B6D 301F (fig6800to6809dumb):02043 LEAX -1,X
+3B6F 301F (fig6800to6809dumb):02044 LEAX -1,X
+3B71 9F14 (fig6800to6809dumb):02045 STX RP
+3B73 A702 (fig6800to6809dumb):02046 STA 2,X push return address
+3B75 E703 (fig6800to6809dumb):02047 STB 3,X
+3B77 9E10 (fig6800to6809dumb):02048 LDX W get addr of pointer to run-time code
+3B79 3001 (fig6800to6809dumb):02049 LEAX 1,X
+3B7B 3001 (fig6800to6809dumb):02050 LEAX 1,X
+3B7D 9F00 (fig6800to6809dumb):02051 STX N stash it in scratch area
+3B7F AE00 (fig6800to6809dumb):02052 LDX 0,X get new IP
+3B81 9F12 (fig6800to6809dumb):02053 STX IP
+3B83 4F (fig6800to6809dumb):02054 CLRA get address of parameter
+3B84 C602 (fig6800to6809dumb):02055 LDB #2
+3B86 DB01 (fig6800to6809dumb):02056 ADDB N+1
+3B88 9900 (fig6800to6809dumb):02057 ADCA N
+3B8A 3404 (fig6800to6809dumb):02058 PSHS B and push it on data stack
+3B8C 3402 (fig6800to6809dumb):02059 PSHS A
+3B8E 7E3040 (fig6800to6809dumb):02060 JMP NEXT2
+ (fig6800to6809dumb):02061 *
+ (fig6800to6809dumb):02062 * ######>> screen 44 <<
+ (fig6800to6809dumb):02063 * ======>> 121 <<
+3B91 85 (fig6800to6809dumb):02064 FCB $85
+3B92 434F554E (fig6800to6809dumb):02065 FCC 'COUN' ; 'COUNT'
+3B96 D4 (fig6800to6809dumb):02066 FCB $D4
+3B97 3B51 (fig6800to6809dumb):02067 FDB DOES-8
+3B99 368735DE387D35BE (fig6800to6809dumb):02068 COUNT FDB DOCOL,DUP,ONEP,SWAP,CAT
+ 3636
+3BA3 3486 (fig6800to6809dumb):02069 FDB SEMIS
+ (fig6800to6809dumb):02070 *
+ (fig6800to6809dumb):02071 * ======>> 122 <<
+3BA5 84 (fig6800to6809dumb):02072 FCB $84
+3BA6 545950 (fig6800to6809dumb):02073 FCC 'TYP' ; 'TYPE'
+3BA9 C5 (fig6800to6809dumb):02074 FCB $C5
+3BAA 3B91 (fig6800to6809dumb):02075 FDB COUNT-8
+3BAC 368739723148 (fig6800to6809dumb):02076 TYPE FDB DOCOL,DDUP,ZBRAN
+3BB2 0018 (fig6800to6809dumb):02077 FDB TYPE3-*
+3BB4 359C352635BE31C7 (fig6800to6809dumb):02078 FDB OVER,PLUS,SWAP,XDO
+3BBC 31EC3636331D317B (fig6800to6809dumb):02079 TYPE2 FDB I,CAT,EMIT,XLOOP
+3BC4 FFF8 (fig6800to6809dumb):02080 FDB TYPE2-*
+3BC6 313C (fig6800to6809dumb):02081 FDB BRAN
+3BC8 0004 (fig6800to6809dumb):02082 FDB TYPE4-*
+3BCA 35AE (fig6800to6809dumb):02083 TYPE3 FDB DROP
+3BCC 3486 (fig6800to6809dumb):02084 TYPE4 FDB SEMIS
+ (fig6800to6809dumb):02085 *
+ (fig6800to6809dumb):02086 * ======>> 123 <<
+3BCE 89 (fig6800to6809dumb):02087 FCB $89
+3BCF 2D545241494C494E (fig6800to6809dumb):02088 FCC '-TRAILIN' ; '-TRAILING'
+3BD7 C7 (fig6800to6809dumb):02089 FCB $C7
+3BD8 3BA5 (fig6800to6809dumb):02090 FDB TYPE-7
+3BDA 368735DE370F31C7 (fig6800to6809dumb):02091 DTRAIL FDB DOCOL,DUP,ZERO,XDO
+3BE2 359C359C35263717 (fig6800to6809dumb):02092 DTRAL2 FDB OVER,OVER,PLUS,ONE,SUB,CAT,BL
+ 38D636363730
+3BF0 38D63148 (fig6800to6809dumb):02093 FDB SUB,ZBRAN
+3BF4 0008 (fig6800to6809dumb):02094 FDB DTRAL3-*
+3BF6 34A6313C (fig6800to6809dumb):02095 FDB LEAVE,BRAN
+3BFA 0006 (fig6800to6809dumb):02096 FDB DTRAL4-*
+3BFC 371738D6 (fig6800to6809dumb):02097 DTRAL3 FDB ONE,SUB
+3C00 317B (fig6800to6809dumb):02098 DTRAL4 FDB XLOOP
+3C02 FFE0 (fig6800to6809dumb):02099 FDB DTRAL2-*
+3C04 3486 (fig6800to6809dumb):02100 FDB SEMIS
+ (fig6800to6809dumb):02101 *
+ (fig6800to6809dumb):02102 * ======>> 124 <<
+3C06 84 (fig6800to6809dumb):02103 FCB $84
+3C07 282E22 (fig6800to6809dumb):02104 FCC '(."' ; '(.")'
+3C0A A9 (fig6800to6809dumb):02105 FCB $A9
+3C0B 3BCE (fig6800to6809dumb):02106 FDB DTRAIL-12
+3C0D 368734E9388A3B99 (fig6800to6809dumb):02107 PDOTQ FDB DOCOL,R,TWOP,COUNT,DUP,ONEP
+ 35DE387D
+3C19 34D4352634BA3BAC (fig6800to6809dumb):02108 FDB FROMR,PLUS,TOR,TYPE
+3C21 3486 (fig6800to6809dumb):02109 FDB SEMIS
+ (fig6800to6809dumb):02110 *
+ (fig6800to6809dumb):02111 * ======>> 125 <<
+3C23 C2 (fig6800to6809dumb):02112 FCB $C2 immediate
+3C24 2E (fig6800to6809dumb):02113 FCC '.' ; '."'
+3C25 A2 (fig6800to6809dumb):02114 FCB $A2
+3C26 3C06 (fig6800to6809dumb):02115 FDB PDOTQ-7
+3C28 3687 (fig6800to6809dumb):02116 DOTQ FDB DOCOL
+3C2A 310E (fig6800to6809dumb):02117 FDB CLITER
+3C2C 22 (fig6800to6809dumb):02118 FCB $22 ascii quote
+3C2D 382A36243148 (fig6800to6809dumb):02119 FDB STATE,AT,ZBRAN
+3C33 0014 (fig6800to6809dumb):02120 FDB DOTQ1-*
+3C35 3AA43C0D3DB9 (fig6800to6809dumb):02121 FDB COMPIL,PDOTQ,WORD
+3C3B 38993636387D38A9 (fig6800to6809dumb):02122 FDB HERE,CAT,ONEP,ALLOT,BRAN
+ 313C
+3C45 000A (fig6800to6809dumb):02123 FDB DOTQ2-*
+3C47 3DB938993B993BAC (fig6800to6809dumb):02124 DOTQ1 FDB WORD,HERE,COUNT,TYPE
+3C4F 3486 (fig6800to6809dumb):02125 DOTQ2 FDB SEMIS
+ (fig6800to6809dumb):02126 *
+ (fig6800to6809dumb):02127 * ######>> screen 45 <<
+ (fig6800to6809dumb):02128 * ======>> 126 <<== MACHINE DEPENDENT
+3C51 86 (fig6800to6809dumb):02129 FCB $86
+3C52 3F53544143 (fig6800to6809dumb):02130 FCC '?STAC' ; '?STACK'
+3C57 CB (fig6800to6809dumb):02131 FCB $CB
+3C58 3C23 (fig6800to6809dumb):02132 FDB DOTQ-5
+3C5A 3687310E (fig6800to6809dumb):02133 QSTACK FDB DOCOL,CLITER
+3C5E 12 (fig6800to6809dumb):02134 FCB $12
+3C5F 376E3624371F38D6 (fig6800to6809dumb):02135 FDB PORIG,AT,TWO,SUB,SPAT,LESS,ONE
+ 345438EE3717
+3C6D 3A16 (fig6800to6809dumb):02136 FDB QERR
+ (fig6800to6809dumb):02137 * prints 'empty stack'
+ (fig6800to6809dumb):02138 *
+3C6F 3454 (fig6800to6809dumb):02139 QSTAC2 FDB SPAT
+ (fig6800to6809dumb):02140 * Here, we compare with a value at least 128
+ (fig6800to6809dumb):02141 * higher than dict. ptr. (DP)
+3C71 3899310E (fig6800to6809dumb):02142 FDB HERE,CLITER
+3C75 80 (fig6800to6809dumb):02143 FCB $80
+3C76 352638EE3148 (fig6800to6809dumb):02144 FDB PLUS,LESS,ZBRAN
+3C7C 0006 (fig6800to6809dumb):02145 FDB QSTAC3-*
+3C7E 371F (fig6800to6809dumb):02146 FDB TWO
+3C80 3A16 (fig6800to6809dumb):02147 FDB QERR
+ (fig6800to6809dumb):02148 * prints 'full stack'
+ (fig6800to6809dumb):02149 *
+3C82 3486 (fig6800to6809dumb):02150 QSTAC3 FDB SEMIS
+ (fig6800to6809dumb):02151 *
+ (fig6800to6809dumb):02152 * ======>> 127 << this word's function
+ (fig6800to6809dumb):02153 * is done by ?STACK in this version
+ (fig6800to6809dumb):02154 * FCB $85
+ (fig6800to6809dumb):02155 * FCC 4,?FREE
+ (fig6800to6809dumb):02156 * FCB $C5
+ (fig6800to6809dumb):02157 * FDB QSTACK-9
+ (fig6800to6809dumb):02158 *QFREE FDB DOCOL,SPAT,HERE,CLITER
+ (fig6800to6809dumb):02159 * FCB $80
+ (fig6800to6809dumb):02160 * FDB PLUS,LESS,TWO,QERR,SEMIS
+ (fig6800to6809dumb):02161 *
+ (fig6800to6809dumb):02162 * ######>> screen 46 <<
+ (fig6800to6809dumb):02163 * ======>> 128 <<
+3C84 86 (fig6800to6809dumb):02164 FCB $86
+3C85 4558504543 (fig6800to6809dumb):02165 FCC 'EXPEC' ; 'EXPECT'
+3C8A D4 (fig6800to6809dumb):02166 FCB $D4
+3C8B 3C51 (fig6800to6809dumb):02167 FDB QSTACK-9
+3C8D 3687359C3526359C (fig6800to6809dumb):02168 EXPECT FDB DOCOL,OVER,PLUS,OVER,XDO
+ 31C7
+3C97 333935DE310E (fig6800to6809dumb):02169 EXPEC2 FDB KEY,DUP,CLITER
+3C9D 0E (fig6800to6809dumb):02170 FCB $0E
+3C9E 376E362438E23148 (fig6800to6809dumb):02171 FDB PORIG,AT,EQUAL,ZBRAN
+3CA6 001F (fig6800to6809dumb):02172 FDB EXPEC3-*
+3CA8 35AE310E (fig6800to6809dumb):02173 FDB DROP,CLITER
+3CAC 08 (fig6800to6809dumb):02174 FCB 8 ( backspace character to emit )
+3CAD 359C31EC38E235DE (fig6800to6809dumb):02175 FDB OVER,I,EQUAL,DUP,FROMR,TWO,SUB,PLUS
+ 34D4371F38D63526
+3CBD 34BA38D6313C (fig6800to6809dumb):02176 FDB TOR,SUB,BRAN
+3CC3 0027 (fig6800to6809dumb):02177 FDB EXPEC6-*
+3CC5 35DE310E (fig6800to6809dumb):02178 EXPEC3 FDB DUP,CLITER
+3CC9 0D (fig6800to6809dumb):02179 FCB $D ( carriage return )
+3CCA 38E23148 (fig6800to6809dumb):02180 FDB EQUAL,ZBRAN
+3CCE 000E (fig6800to6809dumb):02181 FDB EXPEC4-*
+3CD0 34A635AE3730370F (fig6800to6809dumb):02182 FDB LEAVE,DROP,BL,ZERO,BRAN
+ 313C
+3CDA 0004 (fig6800to6809dumb):02183 FDB EXPEC5-*
+3CDC 35DE (fig6800to6809dumb):02184 EXPEC4 FDB DUP
+3CDE 31EC365C370F31EC (fig6800to6809dumb):02185 EXPEC5 FDB I,CSTORE,ZERO,I,ONEP,STORE
+ 387D364A
+3CEA 331D317B (fig6800to6809dumb):02186 EXPEC6 FDB EMIT,XLOOP
+3CEE FFA9 (fig6800to6809dumb):02187 FDB EXPEC2-*
+3CF0 35AE (fig6800to6809dumb):02188 FDB DROP
+3CF2 3486 (fig6800to6809dumb):02189 FDB SEMIS
+ (fig6800to6809dumb):02190 *
+ (fig6800to6809dumb):02191 * ======>> 129 <<
+3CF4 85 (fig6800to6809dumb):02192 FCB $85
+3CF5 51554552 (fig6800to6809dumb):02193 FCC 'QUER' ; 'QUERY'
+3CF9 D9 (fig6800to6809dumb):02194 FCB $D9
+3CFA 3C84 (fig6800to6809dumb):02195 FDB EXPECT-9
+3CFC 3687379036243874 (fig6800to6809dumb):02196 QUERY FDB DOCOL,TIB,AT,COLUMS
+3D04 36243C8D370F37E1 (fig6800to6809dumb):02197 FDB AT,EXPECT,ZERO,IN,STORE
+ 364A
+3D0E 3486 (fig6800to6809dumb):02198 FDB SEMIS
+ (fig6800to6809dumb):02199 *
+ (fig6800to6809dumb):02200 * ======>> 130 <<
+3D10 C1 (fig6800to6809dumb):02201 FCB $C1 immediate < carriage return >
+3D11 80 (fig6800to6809dumb):02202 FCB $80
+3D12 3CF4 (fig6800to6809dumb):02203 FDB QUERY-8
+3D14 368737D836243148 (fig6800to6809dumb):02204 NULL FDB DOCOL,BLK,AT,ZBRAN
+3D1C 0026 (fig6800to6809dumb):02205 FDB NULL2-*
+3D1E 371737D835F0 (fig6800to6809dumb):02206 FDB ONE,BLK,PSTORE
+3D24 370F37E1364A37D8 (fig6800to6809dumb):02207 FDB ZERO,IN,STORE,BLK,AT,BSCR,MOD
+ 362437604219
+3D32 34F9 (fig6800to6809dumb):02208 FDB ZEQU
+ (fig6800to6809dumb):02209 * check for end of screen
+3D34 3148 (fig6800to6809dumb):02210 FDB ZBRAN
+3D36 0008 (fig6800to6809dumb):02211 FDB NULL1-*
+3D38 3A4734D435AE (fig6800to6809dumb):02212 FDB QEXEC,FROMR,DROP
+3D3E 313C (fig6800to6809dumb):02213 NULL1 FDB BRAN
+3D40 0006 (fig6800to6809dumb):02214 FDB NULL3-*
+3D42 34D435AE (fig6800to6809dumb):02215 NULL2 FDB FROMR,DROP
+3D46 3486 (fig6800to6809dumb):02216 NULL3 FDB SEMIS
+ (fig6800to6809dumb):02217 *
+ (fig6800to6809dumb):02218 * ######>> screen 47 <<
+ (fig6800to6809dumb):02219 * ======>> 133 <<
+3D48 84 (fig6800to6809dumb):02220 FCB $84
+3D49 46494C (fig6800to6809dumb):02221 FCC 'FIL' ; 'FILL'
+3D4C CC (fig6800to6809dumb):02222 FCB $CC
+3D4D 3D10 (fig6800to6809dumb):02223 FDB NULL-4
+3D4F 368735BE34BA359C (fig6800to6809dumb):02224 FILL FDB DOCOL,SWAP,TOR,OVER,CSTORE,DUP,ONEP
+ 365C35DE387D
+3D5D 34D4371738D63370 (fig6800to6809dumb):02225 FDB FROMR,ONE,SUB,CMOVE
+3D65 3486 (fig6800to6809dumb):02226 FDB SEMIS
+ (fig6800to6809dumb):02227 *
+ (fig6800to6809dumb):02228 * ======>> 134 <<
+3D67 85 (fig6800to6809dumb):02229 FCB $85
+3D68 45524153 (fig6800to6809dumb):02230 FCC 'ERAS' ; 'ERASE'
+3D6C C5 (fig6800to6809dumb):02231 FCB $C5
+3D6D 3D48 (fig6800to6809dumb):02232 FDB FILL-7
+3D6F 3687370F3D4F (fig6800to6809dumb):02233 ERASE FDB DOCOL,ZERO,FILL
+3D75 3486 (fig6800to6809dumb):02234 FDB SEMIS
+ (fig6800to6809dumb):02235 *
+ (fig6800to6809dumb):02236 * ======>> 135 <<
+3D77 86 (fig6800to6809dumb):02237 FCB $86
+3D78 424C414E4B (fig6800to6809dumb):02238 FCC 'BLANK' ; 'BLANKS'
+3D7D D3 (fig6800to6809dumb):02239 FCB $D3
+3D7E 3D67 (fig6800to6809dumb):02240 FDB ERASE-8
+3D80 368737303D4F (fig6800to6809dumb):02241 BLANKS FDB DOCOL,BL,FILL
+3D86 3486 (fig6800to6809dumb):02242 FDB SEMIS
+ (fig6800to6809dumb):02243 *
+ (fig6800to6809dumb):02244 * ======>> 136 <<
+3D88 84 (fig6800to6809dumb):02245 FCB $84
+3D89 484F4C (fig6800to6809dumb):02246 FCC 'HOL' ; 'HOLD'
+3D8C C4 (fig6800to6809dumb):02247 FCB $C4
+3D8D 3D77 (fig6800to6809dumb):02248 FDB BLANKS-9
+3D8F 368730FDFFFF3866 (fig6800to6809dumb):02249 HOLD FDB DOCOL,LIT,$FFFF,HLD,PSTORE,HLD,AT,CSTORE
+ 35F038663624365C
+3D9F 3486 (fig6800to6809dumb):02250 FDB SEMIS
+ (fig6800to6809dumb):02251 *
+ (fig6800to6809dumb):02252 * ======>> 137 <<
+3DA1 83 (fig6800to6809dumb):02253 FCB $83
+3DA2 5041 (fig6800to6809dumb):02254 FCC 'PA' ; 'PAD'
+3DA4 C4 (fig6800to6809dumb):02255 FCB $C4
+3DA5 3D88 (fig6800to6809dumb):02256 FDB HOLD-7
+3DA7 36873899310E (fig6800to6809dumb):02257 PAD FDB DOCOL,HERE,CLITER
+3DAD 44 (fig6800to6809dumb):02258 FCB $44
+3DAE 3526 (fig6800to6809dumb):02259 FDB PLUS
+3DB0 3486 (fig6800to6809dumb):02260 FDB SEMIS
+ (fig6800to6809dumb):02261 *
+ (fig6800to6809dumb):02262 * ######>> screen 48 <<
+ (fig6800to6809dumb):02263 * ======>> 138 <<
+3DB2 84 (fig6800to6809dumb):02264 FCB $84
+3DB3 574F52 (fig6800to6809dumb):02265 FCC 'WOR' ; 'WORD'
+3DB6 C4 (fig6800to6809dumb):02266 FCB $C4
+3DB7 3DA1 (fig6800to6809dumb):02267 FDB PAD-6
+3DB9 368737D836243148 (fig6800to6809dumb):02268 WORD FDB DOCOL,BLK,AT,ZBRAN
+3DC1 000C (fig6800to6809dumb):02269 FDB WORD2-*
+3DC3 37D836244376313C (fig6800to6809dumb):02270 FDB BLK,AT,BLOCK,BRAN
+3DCB 0006 (fig6800to6809dumb):02271 FDB WORD3-*
+3DCD 37903624 (fig6800to6809dumb):02272 WORD2 FDB TIB,AT
+3DD1 37E13624352635BE (fig6800to6809dumb):02273 WORD3 FDB IN,AT,PLUS,SWAP,ENCLOS,HERE,CLITER
+ 32C43899310E
+3DDF 22 (fig6800to6809dumb):02274 FCB 34
+3DE0 3D8037E135F0359C (fig6800to6809dumb):02275 FDB BLANKS,IN,PSTORE,OVER,SUB,TOR,R,HERE
+ 38D634BA34E93899
+3DF0 365C35263899387D (fig6800to6809dumb):02276 FDB CSTORE,PLUS,HERE,ONEP,FROMR,CMOVE
+ 34D43370
+3DFC 3486 (fig6800to6809dumb):02277 FDB SEMIS
+ (fig6800to6809dumb):02278 *
+ (fig6800to6809dumb):02279 * ######>> screen 49 <<
+ (fig6800to6809dumb):02280 * ======>> 139 <<
+3DFE 88 (fig6800to6809dumb):02281 FCB $88
+3DFF 284E554D424552 (fig6800to6809dumb):02282 FCC '(NUMBER' ; '(NUMBER)'
+3E06 A9 (fig6800to6809dumb):02283 FCB $A9
+3E07 3DB2 (fig6800to6809dumb):02284 FDB WORD-7
+3E09 3687 (fig6800to6809dumb):02285 PNUMB FDB DOCOL
+3E0B 387D35DE34BA3636 (fig6800to6809dumb):02286 PNUMB2 FDB ONEP,DUP,TOR,CAT,BASE,AT,DIGIT,ZBRAN
+ 3835362431FF3148
+3E1B 002C (fig6800to6809dumb):02287 FDB PNUMB4-*
+3E1D 35BE3835362433A8 (fig6800to6809dumb):02288 FDB SWAP,BASE,AT,USTAR,DROP,ROT,BASE
+ 35AE391F3835
+3E2B 362433A8353A383F (fig6800to6809dumb):02289 FDB AT,USTAR,DPLUS,DPL,AT,ONEP,ZBRAN
+ 3624387D3148
+3E39 0008 (fig6800to6809dumb):02290 FDB PNUMB3-*
+3E3B 3717383F35F0 (fig6800to6809dumb):02291 FDB ONE,DPL,PSTORE
+3E41 34D4313C (fig6800to6809dumb):02292 PNUMB3 FDB FROMR,BRAN
+3E45 FFC6 (fig6800to6809dumb):02293 FDB PNUMB2-*
+3E47 34D4 (fig6800to6809dumb):02294 PNUMB4 FDB FROMR
+3E49 3486 (fig6800to6809dumb):02295 FDB SEMIS
+ (fig6800to6809dumb):02296 *
+ (fig6800to6809dumb):02297 * ======>> 140 <<
+3E4B 86 (fig6800to6809dumb):02298 FCB $86
+3E4C 4E554D4245 (fig6800to6809dumb):02299 FCC 'NUMBE' ; 'NUMBER'
+3E51 D2 (fig6800to6809dumb):02300 FCB $D2
+3E52 3DFE (fig6800to6809dumb):02301 FDB PNUMB-11
+3E54 3687370F370F391F (fig6800to6809dumb):02302 NUMB FDB DOCOL,ZERO,ZERO,ROT,DUP,ONEP,CAT,CLITER
+ 35DE387D3636310E
+3E64 2D (fig6800to6809dumb):02303 FCC "-" minus sign
+3E65 38E235DE34BA3526 (fig6800to6809dumb):02304 FDB EQUAL,DUP,TOR,PLUS,LIT,$FFFF
+ 30FDFFFF
+3E71 383F364A3E0935DE (fig6800to6809dumb):02305 NUMB1 FDB DPL,STORE,PNUMB,DUP,CAT,BL,SUB
+ 3636373038D6
+3E7F 3148 (fig6800to6809dumb):02306 FDB ZBRAN
+3E81 0015 (fig6800to6809dumb):02307 FDB NUMB2-*
+3E83 35DE3636310E (fig6800to6809dumb):02308 FDB DUP,CAT,CLITER
+3E89 2E (fig6800to6809dumb):02309 FCC "."
+3E8A 38D6370F3A16370F (fig6800to6809dumb):02310 FDB SUB,ZERO,QERR,ZERO,BRAN
+ 313C
+3E94 FFDD (fig6800to6809dumb):02311 FDB NUMB1-*
+3E96 35AE34D43148 (fig6800to6809dumb):02312 NUMB2 FDB DROP,FROMR,ZBRAN
+3E9C 0004 (fig6800to6809dumb):02313 FDB NUMB3-*
+3E9E 357A (fig6800to6809dumb):02314 FDB DMINUS
+3EA0 3486 (fig6800to6809dumb):02315 NUMB3 FDB SEMIS
+ (fig6800to6809dumb):02316 *
+ (fig6800to6809dumb):02317 * ======>> 141 <<
+3EA2 85 (fig6800to6809dumb):02318 FCB $85
+3EA3 2D46494E (fig6800to6809dumb):02319 FCC '-FIN' ; '-FIND'
+3EA7 C4 (fig6800to6809dumb):02320 FCB $C4
+3EA8 3E4B (fig6800to6809dumb):02321 FDB NUMB-9
+3EAA 368737303DB93899 (fig6800to6809dumb):02322 DFIND FDB DOCOL,BL,WORD,HERE,CONTXT,AT,AT
+ 381036243624
+3EB8 323835DE34F93148 (fig6800to6809dumb):02323 FDB PFIND,DUP,ZEQU,ZBRAN
+3EC0 000A (fig6800to6809dumb):02324 FDB DFIND2-*
+3EC2 35AE389939AD3238 (fig6800to6809dumb):02325 FDB DROP,HERE,LATEST,PFIND
+3ECA 3486 (fig6800to6809dumb):02326 DFIND2 FDB SEMIS
+ (fig6800to6809dumb):02327 *
+ (fig6800to6809dumb):02328 * ######>> screen 50 <<
+ (fig6800to6809dumb):02329 * ======>> 142 <<
+3ECC 87 (fig6800to6809dumb):02330 FCB $87
+3ECD 2841424F5254 (fig6800to6809dumb):02331 FCC '(ABORT' ; '(ABORT)'
+3ED3 A9 (fig6800to6809dumb):02332 FCB $A9
+3ED4 3EA2 (fig6800to6809dumb):02333 FDB DFIND-8
+3ED6 368740E8 (fig6800to6809dumb):02334 PABORT FDB DOCOL,ABORT
+3EDA 3486 (fig6800to6809dumb):02335 FDB SEMIS
+ (fig6800to6809dumb):02336 *
+ (fig6800to6809dumb):02337 * ======>> 143 <<
+3EDC 85 (fig6800to6809dumb):02338 FCB $85
+3EDD 4552524F (fig6800to6809dumb):02339 FCC 'ERRO' ; 'ERROR'
+3EE1 D2 (fig6800to6809dumb):02340 FCB $D2
+3EE2 3ECC (fig6800to6809dumb):02341 FDB PABORT-10
+3EE4 368737AA3624350E (fig6800to6809dumb):02342 ERROR FDB DOCOL,WARN,AT,ZLESS
+3EEC 3148 (fig6800to6809dumb):02343 FDB ZBRAN
+ (fig6800to6809dumb):02344 * note: WARNING is -1 to abort, 0 to print error #
+ (fig6800to6809dumb):02345 * and 1 to print error message from disc
+3EEE 0004 (fig6800to6809dumb):02346 FDB ERROR2-*
+3EF0 3ED6 (fig6800to6809dumb):02347 FDB PABORT
+3EF2 38993B993BAC3C0D (fig6800to6809dumb):02348 ERROR2 FDB HERE,COUNT,TYPE,PDOTQ
+3EFA 0407 (fig6800to6809dumb):02349 FCB 4,7 ( bell )
+3EFC 203F20 (fig6800to6809dumb):02350 FCC " ? "
+3EFF 440F346637E13624 (fig6800to6809dumb):02351 FDB MESS,SPSTOR,IN,AT,BLK,AT,QUIT
+ 37D8362440BA
+3F0D 3486 (fig6800to6809dumb):02352 FDB SEMIS
+ (fig6800to6809dumb):02353 *
+ (fig6800to6809dumb):02354 * ======>> 144 <<
+3F0F 83 (fig6800to6809dumb):02355 FCB $83
+3F10 4944 (fig6800to6809dumb):02356 FCC 'ID' ; 'ID.'
+3F12 AE (fig6800to6809dumb):02357 FCB $AE
+3F13 3EDC (fig6800to6809dumb):02358 FDB ERROR-8
+3F15 36873DA7310E (fig6800to6809dumb):02359 IDDOT FDB DOCOL,PAD,CLITER
+3F1B 20 (fig6800to6809dumb):02360 FCB 32
+3F1C 310E (fig6800to6809dumb):02361 FDB CLITER
+3F1E 5F (fig6800to6809dumb):02362 FCB $5F ( underline )
+3F1F 3D4F35DE39EF39BD (fig6800to6809dumb):02363 FDB FILL,DUP,PFA,LFA,OVER,SUB,PAD
+ 359C38D63DA7
+3F2D 35BE33703DA73B99 (fig6800to6809dumb):02364 FDB SWAP,CMOVE,PAD,COUNT,CLITER
+ 310E
+3F37 1F (fig6800to6809dumb):02365 FCB 31
+3F38 34163BAC3933 (fig6800to6809dumb):02366 FDB AND,TYPE,SPACE
+3F3E 3486 (fig6800to6809dumb):02367 FDB SEMIS
+ (fig6800to6809dumb):02368 *
+ (fig6800to6809dumb):02369 * ######>> screen 51 <<
+ (fig6800to6809dumb):02370 * ======>> 145 <<
+3F40 86 (fig6800to6809dumb):02371 FCB $86
+3F41 4352454154 (fig6800to6809dumb):02372 FCC 'CREAT' ; 'CREATE'
+3F46 C5 (fig6800to6809dumb):02373 FCB $C5
+3F47 3F0F (fig6800to6809dumb):02374 FDB IDDOT-6
+3F49 36873EAA3148 (fig6800to6809dumb):02375 CREATE FDB DOCOL,DFIND,ZBRAN
+3F4F 001A (fig6800to6809dumb):02376 FDB CREAT2-*
+3F51 35AE3C0D (fig6800to6809dumb):02377 FDB DROP,PDOTQ
+3F55 08 (fig6800to6809dumb):02378 FCB 8
+3F56 07 (fig6800to6809dumb):02379 FCB 7 ( bel )
+3F57 72656465663A20 (fig6800to6809dumb):02380 FCC "redef: "
+3F5E 39DA3F15310E (fig6800to6809dumb):02381 FDB NFA,IDDOT,CLITER
+3F64 04 (fig6800to6809dumb):02382 FCB 4
+3F65 440F3933 (fig6800to6809dumb):02383 FDB MESS,SPACE
+3F69 389935DE3636379C (fig6800to6809dumb):02384 CREAT2 FDB HERE,DUP,CAT,WIDTH,AT,MIN
+ 36243941
+3F75 387D38A935DE310E (fig6800to6809dumb):02385 FDB ONEP,ALLOT,DUP,CLITER
+3F7D A0 (fig6800to6809dumb):02386 FCB $A0
+3F7E 36123899371738D6 (fig6800to6809dumb):02387 FDB TOGGLE,HERE,ONE,SUB,CLITER
+ 310E
+3F88 80 (fig6800to6809dumb):02388 FCB $80
+3F89 361239AD38B5381E (fig6800to6809dumb):02389 FDB TOGGLE,LATEST,COMMA,CURENT,AT,STORE
+ 3624364A
+3F95 3899388A38B5 (fig6800to6809dumb):02390 FDB HERE,TWOP,COMMA
+3F9B 3486 (fig6800to6809dumb):02391 FDB SEMIS
+ (fig6800to6809dumb):02392 *
+ (fig6800to6809dumb):02393 * ######>> screen 52 <<
+ (fig6800to6809dumb):02394 * ======>> 146 <<
+3F9D C9 (fig6800to6809dumb):02395 FCB $C9 immediate
+3F9E 5B434F4D50494C45 (fig6800to6809dumb):02396 FCC '[COMPILE' ; '[COMPILE]'
+3FA6 DD (fig6800to6809dumb):02397 FCB $DD
+3FA7 3F40 (fig6800to6809dumb):02398 FDB CREATE-9
+3FA9 36873EAA34F9370F (fig6800to6809dumb):02399 BCOMP FDB DOCOL,DFIND,ZEQU,ZERO,QERR,DROP,CFA,COMMA
+ 3A1635AE39CC38B5
+3FB9 3486 (fig6800to6809dumb):02400 FDB SEMIS
+ (fig6800to6809dumb):02401 *
+ (fig6800to6809dumb):02402 * ======>> 147 <<
+3FBB C7 (fig6800to6809dumb):02403 FCB $C7 immediate
+3FBC 4C4954455241 (fig6800to6809dumb):02404 FCC 'LITERA' ; 'LITERAL'
+3FC2 CC (fig6800to6809dumb):02405 FCB $CC
+3FC3 3F9D (fig6800to6809dumb):02406 FDB BCOMP-12
+3FC5 3687382A36243148 (fig6800to6809dumb):02407 LITER FDB DOCOL,STATE,AT,ZBRAN
+3FCD 0008 (fig6800to6809dumb):02408 FDB LITER2-*
+3FCF 3AA430FD38B5 (fig6800to6809dumb):02409 FDB COMPIL,LIT,COMMA
+3FD5 3486 (fig6800to6809dumb):02410 LITER2 FDB SEMIS
+ (fig6800to6809dumb):02411 *
+ (fig6800to6809dumb):02412 * ======>> 148 <<
+3FD7 C8 (fig6800to6809dumb):02413 FCB $C8 immediate
+3FD8 444C4954455241 (fig6800to6809dumb):02414 FCC 'DLITERA' ; 'DLITERAL'
+3FDF CC (fig6800to6809dumb):02415 FCB $CC
+3FE0 3FBB (fig6800to6809dumb):02416 FDB LITER-10
+3FE2 3687382A36243148 (fig6800to6809dumb):02417 DLITER FDB DOCOL,STATE,AT,ZBRAN
+3FEA 0008 (fig6800to6809dumb):02418 FDB DLITE2-*
+3FEC 35BE3FC53FC5 (fig6800to6809dumb):02419 FDB SWAP,LITER,LITER
+3FF2 3486 (fig6800to6809dumb):02420 DLITE2 FDB SEMIS
+ (fig6800to6809dumb):02421 *
+ (fig6800to6809dumb):02422 * ######>> screen 53 <<
+ (fig6800to6809dumb):02423 * ======>> 149 <<
+3FF4 89 (fig6800to6809dumb):02424 FCB $89
+3FF5 494E544552505245 (fig6800to6809dumb):02425 FCC 'INTERPRE' ; 'INTERPRET'
+3FFD D4 (fig6800to6809dumb):02426 FCB $D4
+3FFE 3FD7 (fig6800to6809dumb):02427 FDB DLITER-11
+4000 3687 (fig6800to6809dumb):02428 INTERP FDB DOCOL
+4002 3EAA3148 (fig6800to6809dumb):02429 INTER2 FDB DFIND,ZBRAN
+4006 001C (fig6800to6809dumb):02430 FDB INTER5-*
+4008 382A362438EE (fig6800to6809dumb):02431 FDB STATE,AT,LESS
+400E 3148 (fig6800to6809dumb):02432 FDB ZBRAN
+4010 000A (fig6800to6809dumb):02433 FDB INTER3-*
+4012 39CC38B5313C (fig6800to6809dumb):02434 FDB CFA,COMMA,BRAN
+4018 0006 (fig6800to6809dumb):02435 FDB INTER4-*
+401A 39CC3126 (fig6800to6809dumb):02436 INTER3 FDB CFA,EXEC
+401E 313C (fig6800to6809dumb):02437 INTER4 FDB BRAN
+4020 001A (fig6800to6809dumb):02438 FDB INTER7-*
+4022 38993E54383F3624 (fig6800to6809dumb):02439 INTER5 FDB HERE,NUMB,DPL,AT,ONEP,ZBRAN
+ 387D3148
+402E 0008 (fig6800to6809dumb):02440 FDB INTER6-*
+4030 3FE2313C (fig6800to6809dumb):02441 FDB DLITER,BRAN
+4034 0006 (fig6800to6809dumb):02442 FDB INTER7-*
+4036 35AE3FC5 (fig6800to6809dumb):02443 INTER6 FDB DROP,LITER
+403A 3C5A313C (fig6800to6809dumb):02444 INTER7 FDB QSTACK,BRAN
+403E FFC4 (fig6800to6809dumb):02445 FDB INTER2-*
+ (fig6800to6809dumb):02446 * FDB SEMIS never executed
+ (fig6800to6809dumb):02447
+ (fig6800to6809dumb):02448 *
+ (fig6800to6809dumb):02449 * ######>> screen 54 <<
+ (fig6800to6809dumb):02450 * ======>> 150 <<
+4040 89 (fig6800to6809dumb):02451 FCB $89
+4041 494D4D4544494154 (fig6800to6809dumb):02452 FCC 'IMMEDIAT' ; 'IMMEDIATE'
+4049 C5 (fig6800to6809dumb):02453 FCB $C5
+404A 3FF4 (fig6800to6809dumb):02454 FDB INTERP-12
+404C 368739AD310E (fig6800to6809dumb):02455 IMMED FDB DOCOL,LATEST,CLITER
+4052 40 (fig6800to6809dumb):02456 FCB $40
+4053 3612 (fig6800to6809dumb):02457 FDB TOGGLE
+4055 3486 (fig6800to6809dumb):02458 FDB SEMIS
+ (fig6800to6809dumb):02459 *
+ (fig6800to6809dumb):02460 * ======>> 151 <<
+4057 8A (fig6800to6809dumb):02461 FCB $8A
+4058 564F434142554C41 (fig6800to6809dumb):02462 FCC 'VOCABULAR' ; 'VOCABULARY'
+ 52
+4061 D9 (fig6800to6809dumb):02463 FCB $D9
+4062 4040 (fig6800to6809dumb):02464 FDB IMMED-12
+4064 36873B4930FD81A0 (fig6800to6809dumb):02465 VOCAB FDB DOCOL,BUILDS,LIT,$81A0,COMMA,CURENT,AT,CFA
+ 38B5381E362439CC
+4074 38B5389937CE3624 (fig6800to6809dumb):02466 FDB COMMA,HERE,VOCLIN,AT,COMMA,VOCLIN,STORE,DOES
+ 38B537CE364A3B59
+4084 388A3810364A (fig6800to6809dumb):02467 DOVOC FDB TWOP,CONTXT,STORE
+408A 3486 (fig6800to6809dumb):02468 FDB SEMIS
+ (fig6800to6809dumb):02469 *
+ (fig6800to6809dumb):02470 * ======>> 152 <<
+ (fig6800to6809dumb):02471 *
+ (fig6800to6809dumb):02472 * Note: FORTH does not go here in the rom-able dictionary,
+ (fig6800to6809dumb):02473 * since FORTH is a type of variable.
+ (fig6800to6809dumb):02474 *
+ (fig6800to6809dumb):02475 *
+ (fig6800to6809dumb):02476 * ======>> 153 <<
+408C 8B (fig6800to6809dumb):02477 FCB $8B
+408D 444546494E495449 (fig6800to6809dumb):02478 FCC 'DEFINITION' ; 'DEFINITIONS'
+ 4F4E
+4097 D3 (fig6800to6809dumb):02479 FCB $D3
+4098 4057 (fig6800to6809dumb):02480 FDB VOCAB-13
+409A 368738103624381E (fig6800to6809dumb):02481 DEFIN FDB DOCOL,CONTXT,AT,CURENT,STORE
+ 364A
+40A4 3486 (fig6800to6809dumb):02482 FDB SEMIS
+ (fig6800to6809dumb):02483 *
+ (fig6800to6809dumb):02484 * ======>> 154 <<
+40A6 C1 (fig6800to6809dumb):02485 FCB $C1 immediate (
+40A7 A8 (fig6800to6809dumb):02486 FCB $A8
+40A8 408C (fig6800to6809dumb):02487 FDB DEFIN-14
+40AA 3687310E (fig6800to6809dumb):02488 PAREN FDB DOCOL,CLITER
+40AE 29 (fig6800to6809dumb):02489 FCC ")"
+40AF 3DB9 (fig6800to6809dumb):02490 FDB WORD
+40B1 3486 (fig6800to6809dumb):02491 FDB SEMIS
+ (fig6800to6809dumb):02492 *
+ (fig6800to6809dumb):02493 * ######>> screen 55 <<
+ (fig6800to6809dumb):02494 * ======>> 155 <<
+40B3 84 (fig6800to6809dumb):02495 FCB $84
+40B4 515549 (fig6800to6809dumb):02496 FCC 'QUI' ; 'QUIT'
+40B7 D4 (fig6800to6809dumb):02497 FCB $D4
+40B8 40A6 (fig6800to6809dumb):02498 FDB PAREN-4
+40BA 3687370F37D8364A (fig6800to6809dumb):02499 QUIT FDB DOCOL,ZERO,BLK,STORE
+40C2 3ABA (fig6800to6809dumb):02500 FDB LBRAK
+ (fig6800to6809dumb):02501 *
+ (fig6800to6809dumb):02502 * Here is the outer interpretter
+ (fig6800to6809dumb):02503 * which gets a line of input, does it, prints " OK"
+ (fig6800to6809dumb):02504 * then repeats :
+40C4 347733603CFC4000 (fig6800to6809dumb):02505 QUIT2 FDB RPSTOR,CR,QUERY,INTERP,STATE,AT,ZEQU
+ 382A362434F9
+40D2 3148 (fig6800to6809dumb):02506 FDB ZBRAN
+40D4 0008 (fig6800to6809dumb):02507 FDB QUIT3-*
+40D6 3C0D (fig6800to6809dumb):02508 FDB PDOTQ
+40D8 03 (fig6800to6809dumb):02509 FCB 3
+40D9 204F4B (fig6800to6809dumb):02510 FCC ' OK' ; ' OK'
+40DC 313C (fig6800to6809dumb):02511 QUIT3 FDB BRAN
+40DE FFE6 (fig6800to6809dumb):02512 FDB QUIT2-*
+ (fig6800to6809dumb):02513 * FDB SEMIS ( never executed )
+ (fig6800to6809dumb):02514 *
+ (fig6800to6809dumb):02515 * ======>> 156 <<
+40E0 85 (fig6800to6809dumb):02516 FCB $85
+40E1 41424F52 (fig6800to6809dumb):02517 FCC 'ABOR' ; 'ABORT'
+40E5 D4 (fig6800to6809dumb):02518 FCB $D4
+40E6 40B3 (fig6800to6809dumb):02519 FDB QUIT-7
+40E8 368734663B023C5A (fig6800to6809dumb):02520 ABORT FDB DOCOL,SPSTOR,DECIM,QSTACK,DRZERO,CR,PDOTQ
+ 430933603C0D
+40F6 0F (fig6800to6809dumb):02521 FCB 15
+40F7 466F7274682D3638 (fig6800to6809dumb):02522 FCC "Forth-68oo-68o9"
+ 6F6F2D36386F39
+4106 1450409A (fig6800to6809dumb):02523 FDB FORTH,DEFIN
+410A 40BA (fig6800to6809dumb):02524 FDB QUIT
+ (fig6800to6809dumb):02525 * FDB SEMIS never executed
+ (fig6800to6809dumb):02526 PAGE
+ (fig6800to6809dumb):02527 *
+ (fig6800to6809dumb):02528 * ######>> screen 56 <<
+ (fig6800to6809dumb):02529 * bootstrap code... moves rom contents to ram :
+ (fig6800to6809dumb):02530 * ======>> 157 <<
+410C 84 (fig6800to6809dumb):02531 FCB $84
+410D 434F4C (fig6800to6809dumb):02532 FCC 'COL' ; 'COLD'
+4110 C4 (fig6800to6809dumb):02533 FCB $C4
+4111 40E0 (fig6800to6809dumb):02534 FDB ABORT-8
+4113 4115 (fig6800to6809dumb):02535 COLD FDB *+2
+ (fig6800to6809dumb):02536 * CENT LDS #REND-1 top of destination on 6800
+4115 8613 (fig6800to6809dumb):02537 CENT LDA #PGBDP
+4117 1F8B (fig6800to6809dumb):02538 TFR A,DP
+4119 10CE1483 (fig6800to6809dumb):02539 LDS #REND top of destination on 6809
+411D 8E41C7 (fig6800to6809dumb):02540 LDX #ERAM top of stuff to move
+4120 301F (fig6800to6809dumb):02541 COLD2 LEAX -1,X
+4122 A600 (fig6800to6809dumb):02542 LDA 0,X
+4124 3402 (fig6800to6809dumb):02543 PSHS A move TASK & FORTH to ram
+4126 8C4184 (fig6800to6809dumb):02544 CMPX #RAM
+4129 26F5 (fig6800to6809dumb):02545 BNE COLD2
+ (fig6800to6809dumb):02546 *
+ (fig6800to6809dumb):02547 * LDS #XFENCE-1 put stack at a safe place for now -- 6800
+ (fig6800to6809dumb):02548 * But only matters if we're interrupted.
+412B 10CE1410 (fig6800to6809dumb):02549 LDS #XFENCE put stack at a safe place for now -- 6809
+412F BE3022 (fig6800to6809dumb):02550 LDX COLINT
+4132 BF1434 (fig6800to6809dumb):02551 STX XCOLUM
+4135 BE3024 (fig6800to6809dumb):02552 LDX DELINT
+4138 BF1432 (fig6800to6809dumb):02553 STX XDELAY
+413B BE3020 (fig6800to6809dumb):02554 LDX VOCINT
+413E BF1414 (fig6800to6809dumb):02555 STX XVOCL
+4141 BE301E (fig6800to6809dumb):02556 LDX DPINIT
+4144 BF1412 (fig6800to6809dumb):02557 STX XDP
+4147 BE301C (fig6800to6809dumb):02558 LDX FENCIN
+414A BF1410 (fig6800to6809dumb):02559 STX XFENCE
+ (fig6800to6809dumb):02560
+ (fig6800to6809dumb):02561
+ (fig6800to6809dumb):02562 * WENT LDS #XFENCE-1 top of destination -- 6800
+414D 10CE1410 (fig6800to6809dumb):02563 WENT LDS #XFENCE top of destination -- 6809
+4151 8E301C (fig6800to6809dumb):02564 LDX #FENCIN top of stuff to move
+4154 301F (fig6800to6809dumb):02565 WARM2 LEAX -1,X
+4156 A600 (fig6800to6809dumb):02566 LDA 0,X
+4158 3402 (fig6800to6809dumb):02567 PSHS A
+415A 8C3012 (fig6800to6809dumb):02568 CMPX #SINIT
+415D 26F5 (fig6800to6809dumb):02569 BNE WARM2
+ (fig6800to6809dumb):02570 *
+ (fig6800to6809dumb):02571 * Don't get faked out.
+ (fig6800to6809dumb):02572 * This is just a safe place for the stack if we're interrupted.
+ (fig6800to6809dumb):02573 * ABORT sends us through RP! and then SP!
+ (fig6800to6809dumb):02574 * And SP! loads S through X, which is just fine for the 6809, too.
+415F 10FE3012 (fig6800to6809dumb):02575 LDS SINIT
+4163 BE3010 (fig6800to6809dumb):02576 LDX UPINIT
+4166 9F16 (fig6800to6809dumb):02577 STX UP init user ram pointer
+4168 8E40E8 (fig6800to6809dumb):02578 LDX #ABORT
+416B 9F12 (fig6800to6809dumb):02579 STX IP
+416D 12 (fig6800to6809dumb):02580 NOP Here is a place to jump to special user
+416E 12 (fig6800to6809dumb):02581 NOP initializations such as I/0 interrups
+416F 12 (fig6800to6809dumb):02582 NOP
+ (fig6800to6809dumb):02583 *
+ (fig6800to6809dumb):02584 * For systems with TRACE:
+4170 8E0000 (fig6800to6809dumb):02585 LDX #00
+4173 9F0A (fig6800to6809dumb):02586 STX TRLIM clear trace mode
+4175 8E0000 (fig6800to6809dumb):02587 LDX #0
+4178 9F0C (fig6800to6809dumb):02588 STX BRKPT clear breakpoint address
+ (fig6800to6809dumb):02589 * DBG
+417A 8621 (fig6800to6809dumb):02590 LDA #$21
+417C 9722 (fig6800to6809dumb):02591 STA FLAGON my version of trace
+417E BD4494 (fig6800to6809dumb):02592 JSR PEMIT
+ (fig6800to6809dumb):02593 *
+4181 7E3479 (fig6800to6809dumb):02594 JMP RPSTOR+2 start the virtual machine running !
+ (fig6800to6809dumb):02595 *
+ (fig6800to6809dumb):02596 * Here is the stuff that gets copied to ram :
+ (fig6800to6809dumb):02597 * at address $140:
+ (fig6800to6809dumb):02598 *
+4184 5000500000000000 (fig6800to6809dumb):02599 RAM FDB $5000,$5000,0,0
+ (fig6800to6809dumb):02600
+ (fig6800to6809dumb):02601 * ======>> (152) <<
+418C C5 (fig6800to6809dumb):02602 FCB $C5 immediate
+418D 464F5254 (fig6800to6809dumb):02603 FCC 'FORT' ; 'FORTH'
+4191 C8 (fig6800to6809dumb):02604 FCB $C8
+4192 48BE (fig6800to6809dumb):02605 FDB NOOP-7
+4194 3B67408481A01478 (fig6800to6809dumb):02606 RFORTH FDB DODOES,DOVOC,$81A0,TASK-7
+419C 0000 (fig6800to6809dumb):02607 FDB 0
+419E 28432920466F7274 (fig6800to6809dumb):02608 FCC "(C) Forth Interest Group, 1979"
+ 6820496E74657265
+ 73742047726F7570
+ 2C2031393739
+41BC 84 (fig6800to6809dumb):02609 FCB $84
+41BD 544153 (fig6800to6809dumb):02610 FCC 'TAS' ; 'TASK'
+41C0 CB (fig6800to6809dumb):02611 FCB $CB
+41C1 1448 (fig6800to6809dumb):02612 FDB FORTH-8
+41C3 36873486 (fig6800to6809dumb):02613 RTASK FDB DOCOL,SEMIS
+41C7 4461766964204C69 (fig6800to6809dumb):02614 ERAM FCC "David Lion"
+ 6F6E
+ (fig6800to6809dumb):02615 PAGE
+ (fig6800to6809dumb):02616 *
+ (fig6800to6809dumb):02617 * ######>> screen 57 <<
+ (fig6800to6809dumb):02618 * ======>> 158 <<
+41D1 84 (fig6800to6809dumb):02619 FCB $84
+41D2 532D3E (fig6800to6809dumb):02620 FCC 'S->' ; 'S->D'
+41D5 C4 (fig6800to6809dumb):02621 FCB $C4
+41D6 410C (fig6800to6809dumb):02622 FDB COLD-7
+41D8 368735DE350E3560 (fig6800to6809dumb):02623 STOD FDB DOCOL,DUP,ZLESS,MINUS
+41E0 3486 (fig6800to6809dumb):02624 FDB SEMIS
+ (fig6800to6809dumb):02625
+ (fig6800to6809dumb):02626
+ (fig6800to6809dumb):02627 *
+ (fig6800to6809dumb):02628 * ======>> 159 <<
+41E2 81 (fig6800to6809dumb):02629 FCB $81 ; *
+41E3 AA (fig6800to6809dumb):02630 FCB $AA
+41E4 41D1 (fig6800to6809dumb):02631 FDB STOD-7
+41E6 41E8 (fig6800to6809dumb):02632 STAR FDB *+2
+41E8 BD33B3 (fig6800to6809dumb):02633 JSR USTARS
+41EB 3261 (fig6800to6809dumb):02634 LEAS 1,S
+41ED 3261 (fig6800to6809dumb):02635 LEAS 1,S
+41EF 7E3038 (fig6800to6809dumb):02636 JMP NEXT
+ (fig6800to6809dumb):02637 *
+ (fig6800to6809dumb):02638 * ======>> 160 <<
+41F2 84 (fig6800to6809dumb):02639 FCB $84
+41F3 2F4D4F (fig6800to6809dumb):02640 FCC '/MO' ; '/MOD'
+41F6 C4 (fig6800to6809dumb):02641 FCB $C4
+41F7 41E2 (fig6800to6809dumb):02642 FDB STAR-4
+41F9 368734BA41D834D4 (fig6800to6809dumb):02643 SLMOD FDB DOCOL,TOR,STOD,FROMR,USLASH
+ 33D5
+4203 3486 (fig6800to6809dumb):02644 FDB SEMIS
+ (fig6800to6809dumb):02645 *
+ (fig6800to6809dumb):02646 * ======>> 161 <<
+4205 81 (fig6800to6809dumb):02647 FCB $81 ; /
+4206 AF (fig6800to6809dumb):02648 FCB $AF
+4207 41F2 (fig6800to6809dumb):02649 FDB SLMOD-7
+4209 368741F935BE35AE (fig6800to6809dumb):02650 SLASH FDB DOCOL,SLMOD,SWAP,DROP
+4211 3486 (fig6800to6809dumb):02651 FDB SEMIS
+ (fig6800to6809dumb):02652 *
+ (fig6800to6809dumb):02653 * ======>> 162 <<
+4213 83 (fig6800to6809dumb):02654 FCB $83
+4214 4D4F (fig6800to6809dumb):02655 FCC 'MO' ; 'MOD'
+4216 C4 (fig6800to6809dumb):02656 FCB $C4
+4217 4205 (fig6800to6809dumb):02657 FDB SLASH-4
+4219 368741F935AE (fig6800to6809dumb):02658 MOD FDB DOCOL,SLMOD,DROP
+421F 3486 (fig6800to6809dumb):02659 FDB SEMIS
+ (fig6800to6809dumb):02660 *
+ (fig6800to6809dumb):02661 * ======>> 163 <<
+4221 85 (fig6800to6809dumb):02662 FCB $85
+4222 2A2F4D4F (fig6800to6809dumb):02663 FCC '*/MO' ; '*/MOD'
+4226 C4 (fig6800to6809dumb):02664 FCB $C4
+4227 4213 (fig6800to6809dumb):02665 FDB MOD-6
+4229 368734BA33A834D4 (fig6800to6809dumb):02666 SSMOD FDB DOCOL,TOR,USTAR,FROMR,USLASH
+ 33D5
+4233 3486 (fig6800to6809dumb):02667 FDB SEMIS
+ (fig6800to6809dumb):02668 *
+ (fig6800to6809dumb):02669 * ======>> 164 <<
+4235 82 (fig6800to6809dumb):02670 FCB $82
+4236 2A (fig6800to6809dumb):02671 FCC '*' ; '*/'
+4237 AF (fig6800to6809dumb):02672 FCB $AF
+4238 4221 (fig6800to6809dumb):02673 FDB SSMOD-8
+423A 3687422935BE35AE (fig6800to6809dumb):02674 SSLASH FDB DOCOL,SSMOD,SWAP,DROP
+4242 3486 (fig6800to6809dumb):02675 FDB SEMIS
+ (fig6800to6809dumb):02676 *
+ (fig6800to6809dumb):02677 * ======>> 165 <<
+4244 85 (fig6800to6809dumb):02678 FCB $85
+4245 4D2F4D4F (fig6800to6809dumb):02679 FCC 'M/MO' ; 'M/MOD'
+4249 C4 (fig6800to6809dumb):02680 FCB $C4
+424A 4235 (fig6800to6809dumb):02681 FDB SSLASH-5
+424C 368734BA370F34E9 (fig6800to6809dumb):02682 MSMOD FDB DOCOL,TOR,ZERO,R,USLASH
+ 33D5
+4256 34D435BE34BA33D5 (fig6800to6809dumb):02683 FDB FROMR,SWAP,TOR,USLASH,FROMR
+ 34D4
+4260 3486 (fig6800to6809dumb):02684 FDB SEMIS
+ (fig6800to6809dumb):02685 *
+ (fig6800to6809dumb):02686 * ======>> 166 <<
+4262 83 (fig6800to6809dumb):02687 FCB $83
+4263 4142 (fig6800to6809dumb):02688 FCC 'AB' ; 'ABS'
+4265 D3 (fig6800to6809dumb):02689 FCB $D3
+4266 4244 (fig6800to6809dumb):02690 FDB MSMOD-8
+4268 368735DE350E3148 (fig6800to6809dumb):02691 ABS FDB DOCOL,DUP,ZLESS,ZBRAN
+4270 0004 (fig6800to6809dumb):02692 FDB ABS2-*
+4272 3560 (fig6800to6809dumb):02693 FDB MINUS
+4274 3486 (fig6800to6809dumb):02694 ABS2 FDB SEMIS
+ (fig6800to6809dumb):02695 *
+ (fig6800to6809dumb):02696 * ======>> 167 <<
+4276 84 (fig6800to6809dumb):02697 FCB $84
+4277 444142 (fig6800to6809dumb):02698 FCC 'DAB' ; 'DABS'
+427A D3 (fig6800to6809dumb):02699 FCB $D3
+427B 4262 (fig6800to6809dumb):02700 FDB ABS-6
+427D 368735DE350E3148 (fig6800to6809dumb):02701 DABS FDB DOCOL,DUP,ZLESS,ZBRAN
+4285 0004 (fig6800to6809dumb):02702 FDB DABS2-*
+4287 357A (fig6800to6809dumb):02703 FDB DMINUS
+4289 3486 (fig6800to6809dumb):02704 DABS2 FDB SEMIS
+ (fig6800to6809dumb):02705 *
+ (fig6800to6809dumb):02706 * ######>> screen 58 <<
+ (fig6800to6809dumb):02707 * Disc primatives :
+ (fig6800to6809dumb):02708 * ======>> 168 <<
+428B 83 (fig6800to6809dumb):02709 FCB $83
+428C 5553 (fig6800to6809dumb):02710 FCC 'US' ; 'USE'
+428E C5 (fig6800to6809dumb):02711 FCB $C5
+428F 4276 (fig6800to6809dumb):02712 FDB DABS-7
+4291 36CC (fig6800to6809dumb):02713 USE FDB DOCON
+4293 1440 (fig6800to6809dumb):02714 FDB XUSE
+ (fig6800to6809dumb):02715 * ======>> 169 <<
+4295 84 (fig6800to6809dumb):02716 FCB $84
+4296 505245 (fig6800to6809dumb):02717 FCC 'PRE' ; 'PREV'
+4299 D6 (fig6800to6809dumb):02718 FCB $D6
+429A 428B (fig6800to6809dumb):02719 FDB USE-6
+429C 36CC (fig6800to6809dumb):02720 PREV FDB DOCON
+429E 1442 (fig6800to6809dumb):02721 FDB XPREV
+ (fig6800to6809dumb):02722 * ======>> 170 <<
+42A0 84 (fig6800to6809dumb):02723 FCB $84
+42A1 2B4255 (fig6800to6809dumb):02724 FCC '+BU' ; '+BUF'
+42A4 C6 (fig6800to6809dumb):02725 FCB $C6
+42A5 4295 (fig6800to6809dumb):02726 FDB PREV-7
+42A7 3687310E (fig6800to6809dumb):02727 PBUF FDB DOCOL,CLITER
+42AB 84 (fig6800to6809dumb):02728 FCB $84
+42AC 352635DE374838E2 (fig6800to6809dumb):02729 FDB PLUS,DUP,LIMIT,EQUAL,ZBRAN
+ 3148
+42B6 0006 (fig6800to6809dumb):02730 FDB PBUF2-*
+42B8 35AE373C (fig6800to6809dumb):02731 FDB DROP,FIRST
+42BC 35DE429C362438D6 (fig6800to6809dumb):02732 PBUF2 FDB DUP,PREV,AT,SUB
+42C4 3486 (fig6800to6809dumb):02733 FDB SEMIS
+ (fig6800to6809dumb):02734 *
+ (fig6800to6809dumb):02735 * ======>> 171 <<
+42C6 86 (fig6800to6809dumb):02736 FCB $86
+42C7 5550444154 (fig6800to6809dumb):02737 FCC 'UPDAT' ; 'UPDATE'
+42CC C5 (fig6800to6809dumb):02738 FCB $C5
+42CD 42A0 (fig6800to6809dumb):02739 FDB PBUF-7
+42CF 3687429C36243624 (fig6800to6809dumb):02740 UPDATE FDB DOCOL,PREV,AT,AT,LIT,$8000,OR,PREV,AT,STORE
+ 30FD8000342A429C
+ 3624364A
+42E3 3486 (fig6800to6809dumb):02741 FDB SEMIS
+ (fig6800to6809dumb):02742 *
+ (fig6800to6809dumb):02743 * ======>> 172 <<
+42E5 8D (fig6800to6809dumb):02744 FCB $8D
+42E6 454D5054592D4255 (fig6800to6809dumb):02745 FCC 'EMPTY-BUFFER' ; 'EMPTY-BUFFERS'
+ 46464552
+42F2 D3 (fig6800to6809dumb):02746 FCB $D3
+42F3 42C6 (fig6800to6809dumb):02747 FDB UPDATE-9
+42F5 3687373C3748359C (fig6800to6809dumb):02748 MTBUF FDB DOCOL,FIRST,LIMIT,OVER,SUB,ERASE
+ 38D63D6F
+4301 3486 (fig6800to6809dumb):02749 FDB SEMIS
+ (fig6800to6809dumb):02750 *
+ (fig6800to6809dumb):02751 * ======>> 173 <<
+4303 83 (fig6800to6809dumb):02752 FCB $83
+4304 4452 (fig6800to6809dumb):02753 FCC 'DR' ; 'DR0'
+4306 B0 (fig6800to6809dumb):02754 FCB $B0
+4307 42E5 (fig6800to6809dumb):02755 FDB MTBUF-16
+4309 3687370F3802364A (fig6800to6809dumb):02756 DRZERO FDB DOCOL,ZERO,OFSET,STORE
+4311 3486 (fig6800to6809dumb):02757 FDB SEMIS
+ (fig6800to6809dumb):02758 *
+ (fig6800to6809dumb):02759 * ======>> 174 <<== system dependant word
+4313 83 (fig6800to6809dumb):02760 FCB $83
+4314 4452 (fig6800to6809dumb):02761 FCC 'DR' ; 'DR1'
+4316 B1 (fig6800to6809dumb):02762 FCB $B1
+4317 4303 (fig6800to6809dumb):02763 FDB DRZERO-6
+4319 368730FD07D03802 (fig6800to6809dumb):02764 DRONE FDB DOCOL,LIT,$07D0,OFSET,STORE
+ 364A
+4323 3486 (fig6800to6809dumb):02765 FDB SEMIS
+ (fig6800to6809dumb):02766 *
+ (fig6800to6809dumb):02767 * ######>> screen 59 <<
+ (fig6800to6809dumb):02768 * ======>> 175 <<
+4325 86 (fig6800to6809dumb):02769 FCB $86
+4326 4255464645 (fig6800to6809dumb):02770 FCC 'BUFFE' ; 'BUFFER'
+432B D2 (fig6800to6809dumb):02771 FCB $D2
+432C 4313 (fig6800to6809dumb):02772 FDB DRONE-6
+432E 36874291362435DE (fig6800to6809dumb):02773 BUFFER FDB DOCOL,USE,AT,DUP,TOR
+ 34BA
+4338 42A73148 (fig6800to6809dumb):02774 BUFFR2 FDB PBUF,ZBRAN
+433C FFFC (fig6800to6809dumb):02775 FDB BUFFR2-*
+433E 4291364A34E93624 (fig6800to6809dumb):02776 FDB USE,STORE,R,AT,ZLESS
+ 350E
+4348 3148 (fig6800to6809dumb):02777 FDB ZBRAN
+434A 0014 (fig6800to6809dumb):02778 FDB BUFFR3-*
+434C 34E9388A34E93624 (fig6800to6809dumb):02779 FDB R,TWOP,R,AT,LIT,$7FFF,AND,ZERO,RW
+ 30FD7FFF3416370F
+ 451B
+435E 34E9364A34E9429C (fig6800to6809dumb):02780 BUFFR3 FDB R,STORE,R,PREV,STORE,FROMR,TWOP
+ 364A34D4388A
+436C 3486 (fig6800to6809dumb):02781 FDB SEMIS
+ (fig6800to6809dumb):02782 *
+ (fig6800to6809dumb):02783 * ######>> screen 60 <<
+ (fig6800to6809dumb):02784 * ======>> 176 <<
+436E 85 (fig6800to6809dumb):02785 FCB $85
+436F 424C4F43 (fig6800to6809dumb):02786 FCC 'BLOC' ; 'BLOCK'
+4373 CB (fig6800to6809dumb):02787 FCB $CB
+4374 4325 (fig6800to6809dumb):02788 FDB BUFFER-9
+4376 3687380236243526 (fig6800to6809dumb):02789 BLOCK FDB DOCOL,OFSET,AT,PLUS,TOR
+ 34BA
+4380 429C362435DE3624 (fig6800to6809dumb):02790 FDB PREV,AT,DUP,AT,R,SUB,DUP,PLUS,ZBRAN
+ 34E938D635DE3526
+ 3148
+4392 0034 (fig6800to6809dumb):02791 FDB BLOCK5-*
+4394 42A734F93148 (fig6800to6809dumb):02792 BLOCK3 FDB PBUF,ZEQU,ZBRAN
+439A 0014 (fig6800to6809dumb):02793 FDB BLOCK4-*
+439C 35AE34E9432E35DE (fig6800to6809dumb):02794 FDB DROP,R,BUFFER,DUP,R,ONE,RW,TWO,SUB
+ 34E93717451B371F
+ 38D6
+43AE 35DE362434E938D6 (fig6800to6809dumb):02795 BLOCK4 FDB DUP,AT,R,SUB,DUP,PLUS,ZEQU,ZBRAN
+ 35DE352634F93148
+43BE FFD6 (fig6800to6809dumb):02796 FDB BLOCK3-*
+43C0 35DE429C364A (fig6800to6809dumb):02797 FDB DUP,PREV,STORE
+43C6 34D435AE388A (fig6800to6809dumb):02798 BLOCK5 FDB FROMR,DROP,TWOP
+43CC 3486 (fig6800to6809dumb):02799 FDB SEMIS
+ (fig6800to6809dumb):02800 *
+ (fig6800to6809dumb):02801 * ######>> screen 61 <<
+ (fig6800to6809dumb):02802 * ======>> 177 <<
+43CE 86 (fig6800to6809dumb):02803 FCB $86
+43CF 284C494E45 (fig6800to6809dumb):02804 FCC '(LINE' ; '(LINE)'
+43D4 A9 (fig6800to6809dumb):02805 FCB $A9
+43D5 436E (fig6800to6809dumb):02806 FDB BLOCK-8
+43D7 368734BA310E (fig6800to6809dumb):02807 PLINE FDB DOCOL,TOR,CLITER
+43DD 40 (fig6800to6809dumb):02808 FCB $40
+43DE 3754422934D43760 (fig6800to6809dumb):02809 FDB BBUF,SSMOD,FROMR,BSCR,STAR,PLUS,BLOCK,PLUS,CLITER
+ 41E6352643763526
+ 310E
+43F0 40 (fig6800to6809dumb):02810 FCB $40
+43F1 3486 (fig6800to6809dumb):02811 FDB SEMIS
+ (fig6800to6809dumb):02812 *
+ (fig6800to6809dumb):02813 * ======>> 178 <<
+43F3 85 (fig6800to6809dumb):02814 FCB $85
+43F4 2E4C494E (fig6800to6809dumb):02815 FCC '.LIN' ; '.LINE'
+43F8 C5 (fig6800to6809dumb):02816 FCB $C5
+43F9 43CE (fig6800to6809dumb):02817 FDB PLINE-9
+43FB 368743D73BDA3BAC (fig6800to6809dumb):02818 DLINE FDB DOCOL,PLINE,DTRAIL,TYPE
+4403 3486 (fig6800to6809dumb):02819 FDB SEMIS
+ (fig6800to6809dumb):02820 *
+ (fig6800to6809dumb):02821 * ======>> 179 <<
+4405 87 (fig6800to6809dumb):02822 FCB $87
+4406 4D4553534147 (fig6800to6809dumb):02823 FCC 'MESSAG' ; 'MESSAGE'
+440C C5 (fig6800to6809dumb):02824 FCB $C5
+440D 43F3 (fig6800to6809dumb):02825 FDB DLINE-8
+440F 368737AA36243148 (fig6800to6809dumb):02826 MESS FDB DOCOL,WARN,AT,ZBRAN
+4417 001B (fig6800to6809dumb):02827 FDB MESS3-*
+4419 39723148 (fig6800to6809dumb):02828 FDB DDUP,ZBRAN
+441D 0015 (fig6800to6809dumb):02829 FDB MESS3-*
+441F 310E (fig6800to6809dumb):02830 FDB CLITER
+4421 04 (fig6800to6809dumb):02831 FCB 4
+4422 3802362437604209 (fig6800to6809dumb):02832 FDB OFSET,AT,BSCR,SLASH,SUB,DLINE,BRAN
+ 38D643FB313C
+4430 000D (fig6800to6809dumb):02833 FDB MESS4-*
+4432 3C0D (fig6800to6809dumb):02834 MESS3 FDB PDOTQ
+4434 06 (fig6800to6809dumb):02835 FCB 6
+4435 657272202320 (fig6800to6809dumb):02836 FCC 'err # ' ; 'err # '
+443B 47B2 (fig6800to6809dumb):02837 FDB DOT
+443D 3486 (fig6800to6809dumb):02838 MESS4 FDB SEMIS
+ (fig6800to6809dumb):02839 *
+ (fig6800to6809dumb):02840 * ======>> 180 <<
+443F 84 (fig6800to6809dumb):02841 FCB $84
+4440 4C4F41 (fig6800to6809dumb):02842 FCC 'LOA' ; 'LOAD' : input:scr #
+4443 C4 (fig6800to6809dumb):02843 FCB $C4
+4444 4405 (fig6800to6809dumb):02844 FDB MESS-10
+4446 368737D8362434BA (fig6800to6809dumb):02845 LOAD FDB DOCOL,BLK,AT,TOR,IN,AT,TOR,ZERO,IN,STORE
+ 37E1362434BA370F
+ 37E1364A
+445A 376041E637D8364A (fig6800to6809dumb):02846 FDB BSCR,STAR,BLK,STORE
+4462 400034D437E1364A (fig6800to6809dumb):02847 FDB INTERP,FROMR,IN,STORE,FROMR,BLK,STORE
+ 34D437D8364A
+4470 3486 (fig6800to6809dumb):02848 FDB SEMIS
+ (fig6800to6809dumb):02849 *
+ (fig6800to6809dumb):02850 * ======>> 181 <<
+4472 C3 (fig6800to6809dumb):02851 FCB $C3
+4473 2D2D (fig6800to6809dumb):02852 FCC '--' ; '-->'
+4475 BE (fig6800to6809dumb):02853 FCB $BE
+4476 443F (fig6800to6809dumb):02854 FDB LOAD-7
+4478 36873A8B370F37E1 (fig6800to6809dumb):02855 ARROW FDB DOCOL,QLOAD,ZERO,IN,STORE,BSCR
+ 364A3760
+4484 37D83624359C4219 (fig6800to6809dumb):02856 FDB BLK,AT,OVER,MOD,SUB,BLK,PSTORE
+ 38D637D835F0
+4492 3486 (fig6800to6809dumb):02857 FDB SEMIS
+ (fig6800to6809dumb):02858 PAGE
+ (fig6800to6809dumb):02859 *
+ (fig6800to6809dumb):02860 *
+ (fig6800to6809dumb):02861 * ######>> screen 63 <<
+ (fig6800to6809dumb):02862 * The next 4 subroutines are machine dependent, and are
+ (fig6800to6809dumb):02863 * called by words 13 through 16 in the dictionary.
+ (fig6800to6809dumb):02864 *
+ (fig6800to6809dumb):02865 * ======>> 182 << code for EMIT
+ (fig6800to6809dumb):02866 * character to output in A
+ (fig6800to6809dumb):02867 * Coco:
+4494 3468 (fig6800to6809dumb):02868 PEMIT PSHS Y,U,DP
+4496 5F (fig6800to6809dumb):02869 CLRB
+4497 1F9B (fig6800to6809dumb):02870 TFR B,DP
+4499 AD9FA002 (fig6800to6809dumb):02871 JSR [$A002]
+449D 35E8 (fig6800to6809dumb):02872 PULS Y,U,DP,PC
+ (fig6800to6809dumb):02873 *
+ (fig6800to6809dumb):02874 * PEMIT STB N save B
+ (fig6800to6809dumb):02875 * STX N+1 save X
+ (fig6800to6809dumb):02876 * LDB ACIAC
+ (fig6800to6809dumb):02877 * BITB #2 check ready bit
+ (fig6800to6809dumb):02878 * BEQ PEMIT+4 if not ready for more data
+ (fig6800to6809dumb):02879 * STA ACIAD
+ (fig6800to6809dumb):02880 * LDX UP
+ (fig6800to6809dumb):02881 * STB IOSTAT-UORIG,X
+ (fig6800to6809dumb):02882 * LDB N recover B & X
+ (fig6800to6809dumb):02883 * LDX N+1
+ (fig6800to6809dumb):02884 * RTS only A register may change
+ (fig6800to6809dumb):02885 * PEMIT JMP $E1D1 for MIKBUG
+ (fig6800to6809dumb):02886 * PEMIT FCB $3F,$11,$39 for PROTO
+ (fig6800to6809dumb):02887 * PEMIT JMP $D286 for Smoke Signal DOS
+ (fig6800to6809dumb):02888 *
+ (fig6800to6809dumb):02889 * ======>> 183 << code for KEY
+ (fig6800to6809dumb):02890 * Returns input character in A
+ (fig6800to6809dumb):02891 * Coco:
+449F 3468 (fig6800to6809dumb):02892 PKEY PSHS Y,U,DP
+44A1 5F (fig6800to6809dumb):02893 CLRB
+44A2 1F9B (fig6800to6809dumb):02894 TFR B,DP
+44A4 86CF (fig6800to6809dumb):02895 LDA #$CF a cursor
+44A6 E69F0088 (fig6800to6809dumb):02896 LDB [$0088] (locate) save
+44AA A79F0088 (fig6800to6809dumb):02897 STA [$0088]
+44AE AD9FA000 (fig6800to6809dumb):02898 PKEYBZ JSR [$A000]
+44B2 27FA (fig6800to6809dumb):02899 BEQ PKEYBZ
+44B4 E79F0088 (fig6800to6809dumb):02900 STB [$0088] restore
+44B8 35E8 (fig6800to6809dumb):02901 PULS Y,U,DP,PC
+ (fig6800to6809dumb):02902 *
+ (fig6800to6809dumb):02903 * PKEY STB N
+ (fig6800to6809dumb):02904 * STX N+1
+ (fig6800to6809dumb):02905 * LDB ACIAC
+ (fig6800to6809dumb):02906 * ASRB
+ (fig6800to6809dumb):02907 * BCC PKEY+4 no incoming data yet
+ (fig6800to6809dumb):02908 * LDA ACIAD
+ (fig6800to6809dumb):02909 * ANDA #$7F strip parity bit
+ (fig6800to6809dumb):02910 * LDX UP
+ (fig6800to6809dumb):02911 * STB IOSTAT+1-UORIG,X
+ (fig6800to6809dumb):02912 * LDB N
+ (fig6800to6809dumb):02913 * LDX N+1
+ (fig6800to6809dumb):02914 * RTS
+ (fig6800to6809dumb):02915 * PKEY JMP $E1AC for MIKBUG
+ (fig6800to6809dumb):02916 * PKEY FCB $3F,$14,$39 for PROTO
+ (fig6800to6809dumb):02917 * PKEY JMP $D289 for Smoke Signal DOS
+ (fig6800to6809dumb):02918 *
+ (fig6800to6809dumb):02919 * ######>> screen 64 <<
+ (fig6800to6809dumb):02920 * ======>> 184 << code for ?TERMINAL
+ (fig6800to6809dumb):02921 * Returns flag in A (non-zero if BREAK).
+ (fig6800to6809dumb):02922 * Coco:
+44BA 3468 (fig6800to6809dumb):02923 PQTER PSHS Y,U,DP
+44BC 5F (fig6800to6809dumb):02924 CLRB
+44BD 1F9B (fig6800to6809dumb):02925 TFR B,DP
+44BF AD9FA000 (fig6800to6809dumb):02926 JSR [$A000]
+44C3 5F (fig6800to6809dumb):02927 CLRB
+44C4 8103 (fig6800to6809dumb):02928 CMPA #3 break key
+44C6 2603 (fig6800to6809dumb):02929 BNE PQTERN
+44C8 5C (fig6800to6809dumb):02930 INCB
+44C9 1E89 (fig6800to6809dumb):02931 EXG A,B
+44CB 35E8 (fig6800to6809dumb):02932 PQTERN PULS Y,U,DP,PC
+ (fig6800to6809dumb):02933 *
+ (fig6800to6809dumb):02934 * PQTER LDA ACIAC Test for 'break' condition
+ (fig6800to6809dumb):02935 * ANDA #$11 mask framing error bit and
+ (fig6800to6809dumb):02936 ** input buffer full
+ (fig6800to6809dumb):02937 * BEQ PQTER2
+ (fig6800to6809dumb):02938 * LDA ACIAD clear input buffer
+ (fig6800to6809dumb):02939 * LDA #01
+ (fig6800to6809dumb):02940 *PQTER2 RTS
+ (fig6800to6809dumb):02941
+ (fig6800to6809dumb):02942
+ (fig6800to6809dumb):02943 PAGE
+ (fig6800to6809dumb):02944 *
+ (fig6800to6809dumb):02945 * ======>> 185 << code for CR
+ (fig6800to6809dumb):02946 * Coco:
+44CD 860D (fig6800to6809dumb):02947 PRTCR LDA #$D carriage return ; PCR in 6800 source
+44CF 20C3 (fig6800to6809dumb):02948 BRA PEMIT Let PEMIT return
+ (fig6800to6809dumb):02949 *
+ (fig6800to6809dumb):02950 * BSR PEMIT
+ (fig6800to6809dumb):02951 * LDA #$A line feed
+ (fig6800to6809dumb):02952 * BSR PEMIT
+ (fig6800to6809dumb):02953 * LDA #$7F rubout
+ (fig6800to6809dumb):02954 * LDX UP
+ (fig6800to6809dumb):02955 * LDB XDELAY+1-UORIG,X
+ (fig6800to6809dumb):02956 * PCR2 DECB
+ (fig6800to6809dumb):02957 * BMI PQTER2 return if minus
+ (fig6800to6809dumb):02958 * PSHS B save counter
+ (fig6800to6809dumb):02959 * BSR PEMIT print RUBOUTs to delay.....
+ (fig6800to6809dumb):02960 * PULS B
+ (fig6800to6809dumb):02961 * BRA PCR2 repeat
+ (fig6800to6809dumb):02962
+ (fig6800to6809dumb):02963
+ (fig6800to6809dumb):02964 PAGE
+ (fig6800to6809dumb):02965 *
+ (fig6800to6809dumb):02966 * ######>> screen 66 <<
+ (fig6800to6809dumb):02967 * ======>> 187 <<
+44D1 85 (fig6800to6809dumb):02968 FCB $85
+44D2 3F444953 (fig6800to6809dumb):02969 FCC '?DIS' ; '?DISC'
+44D6 C3 (fig6800to6809dumb):02970 FCB $C3
+44D7 4472 (fig6800to6809dumb):02971 FDB ARROW-6
+44D9 44DB (fig6800to6809dumb):02972 QDISC FDB *+2
+44DB 7E3038 (fig6800to6809dumb):02973 JMP NEXT
+ (fig6800to6809dumb):02974 *
+ (fig6800to6809dumb):02975 * ######>> screen 67 <<
+ (fig6800to6809dumb):02976 * ======>> 189 <<
+44DE 8B (fig6800to6809dumb):02977 FCB $8B
+44DF 424C4F434B2D5752 (fig6800to6809dumb):02978 FCC 'BLOCK-WRIT' ; 'BLOCK-WRITE'
+ 4954
+44E9 C5 (fig6800to6809dumb):02979 FCB $C5
+44EA 44D1 (fig6800to6809dumb):02980 FDB QDISC-8
+44EC 44EE (fig6800to6809dumb):02981 BWRITE FDB *+2
+44EE 7E3038 (fig6800to6809dumb):02982 JMP NEXT
+ (fig6800to6809dumb):02983 *
+ (fig6800to6809dumb):02984 * ######>> screen 68 <<
+ (fig6800to6809dumb):02985 * ======>> 190 <<
+44F1 8A (fig6800to6809dumb):02986 FCB $8A
+44F2 424C4F434B2D5245 (fig6800to6809dumb):02987 FCC 'BLOCK-REA' ; 'BLOCK-READ'
+ 41
+44FB C4 (fig6800to6809dumb):02988 FCB $C4
+44FC 44DE (fig6800to6809dumb):02989 FDB BWRITE-14
+44FE 4500 (fig6800to6809dumb):02990 BREAD FDB *+2
+4500 7E3038 (fig6800to6809dumb):02991 JMP NEXT
+ (fig6800to6809dumb):02992 *
+ (fig6800to6809dumb):02993 *The next 3 words are written to create a substitute for disc
+ (fig6800to6809dumb):02994 * mass memory,located between $3210 & $3FFF in ram.
+ (fig6800to6809dumb):02995 * ======>> 190.1 <<
+4503 82 (fig6800to6809dumb):02996 FCB $82
+4504 4C (fig6800to6809dumb):02997 FCC 'L' ; 'LO'
+4505 CF (fig6800to6809dumb):02998 FCB $CF
+4506 44F1 (fig6800to6809dumb):02999 FDB BREAD-13
+4508 36CC (fig6800to6809dumb):03000 LO FDB DOCON
+450A 5294 (fig6800to6809dumb):03001 FDB MEMEND a system dependent equate at front
+ (fig6800to6809dumb):03002 *
+ (fig6800to6809dumb):03003 * ======>> 190.2 <<
+450C 82 (fig6800to6809dumb):03004 FCB $82
+450D 48 (fig6800to6809dumb):03005 FCC 'H' ; 'HI'
+450E C9 (fig6800to6809dumb):03006 FCB $C9
+450F 4503 (fig6800to6809dumb):03007 FDB LO-5
+4511 36CC (fig6800to6809dumb):03008 HI FDB DOCON
+4513 7FFF (fig6800to6809dumb):03009 FDB MEMTOP ( $3FFF in this version )
+ (fig6800to6809dumb):03010 *
+ (fig6800to6809dumb):03011 * ######>> screen 69 <<
+ (fig6800to6809dumb):03012 * ======>> 191 <<
+4515 83 (fig6800to6809dumb):03013 FCB $83
+4516 522F (fig6800to6809dumb):03014 FCC 'R/' ; 'R/W'
+4518 D7 (fig6800to6809dumb):03015 FCB $D7
+4519 450C (fig6800to6809dumb):03016 FDB HI-5
+451B 368734BA375441E6 (fig6800to6809dumb):03017 RW FDB DOCOL,TOR,BBUF,STAR,LO,PLUS,DUP,HI,GREAT,ZBRAN
+ 4508352635DE4511
+ 39113148
+452F 000F (fig6800to6809dumb):03018 FDB RW2-*
+4531 3C0D (fig6800to6809dumb):03019 FDB PDOTQ
+4533 08 (fig6800to6809dumb):03020 FCB 8
+4534 2052616E6765203F (fig6800to6809dumb):03021 FCC ' Range ?' ; ' Range ?'
+453C 40BA (fig6800to6809dumb):03022 FDB QUIT
+453E 34D43148 (fig6800to6809dumb):03023 RW2 FDB FROMR,ZBRAN
+4542 0004 (fig6800to6809dumb):03024 FDB RW3-*
+4544 35BE (fig6800to6809dumb):03025 FDB SWAP
+4546 37543370 (fig6800to6809dumb):03026 RW3 FDB BBUF,CMOVE
+454A 3486 (fig6800to6809dumb):03027 FDB SEMIS
+ (fig6800to6809dumb):03028 *
+ (fig6800to6809dumb):03029 * ######>> screen 72 <<
+ (fig6800to6809dumb):03030 * ======>> 192 <<
+454C C1 (fig6800to6809dumb):03031 FCB $C1 immediate
+454D A7 (fig6800to6809dumb):03032 FCB $A7 ' ( tick )
+454E 4515 (fig6800to6809dumb):03033 FDB RW-6
+4550 36873EAA34F9370F (fig6800to6809dumb):03034 TICK FDB DOCOL,DFIND,ZEQU,ZERO,QERR,DROP,LITER
+ 3A1635AE3FC5
+455E 3486 (fig6800to6809dumb):03035 FDB SEMIS
+ (fig6800to6809dumb):03036 *
+ (fig6800to6809dumb):03037 * ======>> 193 <<
+4560 86 (fig6800to6809dumb):03038 FCB $86
+4561 464F524745 (fig6800to6809dumb):03039 FCC 'FORGE' ; 'FORGET'
+4566 D4 (fig6800to6809dumb):03040 FCB $D4
+4567 454C (fig6800to6809dumb):03041 FDB TICK-4
+4569 3687381E36243810 (fig6800to6809dumb):03042 FORGET FDB DOCOL,CURENT,AT,CONTXT,AT,SUB,CLITER
+ 362438D6310E
+4577 18 (fig6800to6809dumb):03043 FCB $18
+4578 3A16455035DE37B6 (fig6800to6809dumb):03044 FDB QERR,TICK,DUP,FENCE,AT,LESS,CLITER
+ 362438EE310E
+4586 15 (fig6800to6809dumb):03045 FCB $15
+4587 3A1635DE370F376E (fig6800to6809dumb):03046 FDB QERR,DUP,ZERO,PORIG,GREAT,CLITER
+ 3911310E
+4593 15 (fig6800to6809dumb):03047 FCB $15
+4594 3A1635DE39DA37BF (fig6800to6809dumb):03048 FDB QERR,DUP,NFA,DICPT,STORE,LFA,AT,CONTXT,AT,STORE
+ 364A39BD36243810
+ 3624364A
+45A8 3486 (fig6800to6809dumb):03049 FDB SEMIS
+ (fig6800to6809dumb):03050 *
+ (fig6800to6809dumb):03051 * ######>> screen 73 <<
+ (fig6800to6809dumb):03052 * ======>> 194 <<
+45AA 84 (fig6800to6809dumb):03053 FCB $84
+45AB 424143 (fig6800to6809dumb):03054 FCC 'BAC' ; 'BACK'
+45AE CB (fig6800to6809dumb):03055 FCB $CB
+45AF 4560 (fig6800to6809dumb):03056 FDB FORGET-9
+45B1 3687389938D638B5 (fig6800to6809dumb):03057 BACK FDB DOCOL,HERE,SUB,COMMA
+45B9 3486 (fig6800to6809dumb):03058 FDB SEMIS
+ (fig6800to6809dumb):03059 *
+ (fig6800to6809dumb):03060 * ======>> 195 <<
+45BB C5 (fig6800to6809dumb):03061 FCB $C5
+45BC 42454749 (fig6800to6809dumb):03062 FCC 'BEGI' ; 'BEGIN'
+45C0 CE (fig6800to6809dumb):03063 FCB $CE
+45C1 45AA (fig6800to6809dumb):03064 FDB BACK-7
+45C3 36873A3038993717 (fig6800to6809dumb):03065 BEGIN FDB DOCOL,QCOMP,HERE,ONE
+45CB 3486 (fig6800to6809dumb):03066 FDB SEMIS
+ (fig6800to6809dumb):03067 *
+ (fig6800to6809dumb):03068 * ======>> 196 <<
+45CD C5 (fig6800to6809dumb):03069 FCB $C5
+45CE 454E4449 (fig6800to6809dumb):03070 FCC 'ENDI' ; 'ENDIF'
+45D2 C6 (fig6800to6809dumb):03071 FCB $C6
+45D3 45BB (fig6800to6809dumb):03072 FDB BEGIN-8
+45D5 36873A30371F3A5D (fig6800to6809dumb):03073 ENDIF FDB DOCOL,QCOMP,TWO,QPAIRS,HERE
+ 3899
+45DF 359C38D635BE364A (fig6800to6809dumb):03074 FDB OVER,SUB,SWAP,STORE
+45E7 3486 (fig6800to6809dumb):03075 FDB SEMIS
+ (fig6800to6809dumb):03076 *
+ (fig6800to6809dumb):03077 * ======>> 197 <<
+45E9 C4 (fig6800to6809dumb):03078 FCB $C4
+45EA 544845 (fig6800to6809dumb):03079 FCC 'THE' ; 'THEN'
+45ED CE (fig6800to6809dumb):03080 FCB $CE
+45EE 45CD (fig6800to6809dumb):03081 FDB ENDIF-8
+45F0 368745D5 (fig6800to6809dumb):03082 THEN FDB DOCOL,ENDIF
+45F4 3486 (fig6800to6809dumb):03083 FDB SEMIS
+ (fig6800to6809dumb):03084 *
+ (fig6800to6809dumb):03085 * ======>> 198 <<
+45F6 C2 (fig6800to6809dumb):03086 FCB $C2
+45F7 44 (fig6800to6809dumb):03087 FCC 'D' ; 'DO'
+45F8 CF (fig6800to6809dumb):03088 FCB $CF
+45F9 45E9 (fig6800to6809dumb):03089 FDB THEN-7
+45FB 36873AA431C73899 (fig6800to6809dumb):03090 DO FDB DOCOL,COMPIL,XDO,HERE,THREE
+ 3727
+4605 3486 (fig6800to6809dumb):03091 FDB SEMIS
+ (fig6800to6809dumb):03092 *
+ (fig6800to6809dumb):03093 * ======>> 199 <<
+4607 C4 (fig6800to6809dumb):03094 FCB $C4
+4608 4C4F4F (fig6800to6809dumb):03095 FCC 'LOO' ; 'LOOP'
+460B D0 (fig6800to6809dumb):03096 FCB $D0
+460C 45F6 (fig6800to6809dumb):03097 FDB DO-5
+460E 368737273A5D3AA4 (fig6800to6809dumb):03098 LOOP FDB DOCOL,THREE,QPAIRS,COMPIL,XLOOP,BACK
+ 317B45B1
+461A 3486 (fig6800to6809dumb):03099 FDB SEMIS
+ (fig6800to6809dumb):03100 *
+ (fig6800to6809dumb):03101 * ======>> 200 <<
+461C C5 (fig6800to6809dumb):03102 FCB $C5
+461D 2B4C4F4F (fig6800to6809dumb):03103 FCC '+LOO' ; '+LOOP'
+4621 D0 (fig6800to6809dumb):03104 FCB $D0
+4622 4607 (fig6800to6809dumb):03105 FDB LOOP-7
+4624 368737273A5D3AA4 (fig6800to6809dumb):03106 PLOOP FDB DOCOL,THREE,QPAIRS,COMPIL,XPLOOP,BACK
+ 318C45B1
+4630 3486 (fig6800to6809dumb):03107 FDB SEMIS
+ (fig6800to6809dumb):03108 *
+ (fig6800to6809dumb):03109 * ======>> 201 <<
+4632 C5 (fig6800to6809dumb):03110 FCB $C5
+4633 554E5449 (fig6800to6809dumb):03111 FCC 'UNTI' ; 'UNTIL' : ( same as END )
+4637 CC (fig6800to6809dumb):03112 FCB $CC
+4638 461C (fig6800to6809dumb):03113 FDB PLOOP-8
+463A 368737173A5D3AA4 (fig6800to6809dumb):03114 UNTIL FDB DOCOL,ONE,QPAIRS,COMPIL,ZBRAN,BACK
+ 314845B1
+4646 3486 (fig6800to6809dumb):03115 FDB SEMIS
+ (fig6800to6809dumb):03116 *
+ (fig6800to6809dumb):03117 * ######>> screen 74 <<
+ (fig6800to6809dumb):03118 * ======>> 202 <<
+4648 C3 (fig6800to6809dumb):03119 FCB $C3
+4649 454E (fig6800to6809dumb):03120 FCC 'EN' ; 'END'
+464B C4 (fig6800to6809dumb):03121 FCB $C4
+464C 4632 (fig6800to6809dumb):03122 FDB UNTIL-8
+464E 3687463A (fig6800to6809dumb):03123 END FDB DOCOL,UNTIL
+4652 3486 (fig6800to6809dumb):03124 FDB SEMIS
+ (fig6800to6809dumb):03125 *
+ (fig6800to6809dumb):03126 * ======>> 203 <<
+4654 C5 (fig6800to6809dumb):03127 FCB $C5
+4655 41474149 (fig6800to6809dumb):03128 FCC 'AGAI' ; 'AGAIN'
+4659 CE (fig6800to6809dumb):03129 FCB $CE
+465A 4648 (fig6800to6809dumb):03130 FDB END-6
+465C 368737173A5D3AA4 (fig6800to6809dumb):03131 AGAIN FDB DOCOL,ONE,QPAIRS,COMPIL,BRAN,BACK
+ 313C45B1
+4668 3486 (fig6800to6809dumb):03132 FDB SEMIS
+ (fig6800to6809dumb):03133 *
+ (fig6800to6809dumb):03134 * ======>> 204 <<
+466A C6 (fig6800to6809dumb):03135 FCB $C6
+466B 5245504541 (fig6800to6809dumb):03136 FCC 'REPEA' ; 'REPEAT'
+4670 D4 (fig6800to6809dumb):03137 FCB $D4
+4671 4654 (fig6800to6809dumb):03138 FDB AGAIN-8
+4673 368734BA34BA465C (fig6800to6809dumb):03139 REPEAT FDB DOCOL,TOR,TOR,AGAIN,FROMR,FROMR
+ 34D434D4
+467F 371F38D645D5 (fig6800to6809dumb):03140 FDB TWO,SUB,ENDIF
+4685 3486 (fig6800to6809dumb):03141 FDB SEMIS
+ (fig6800to6809dumb):03142 *
+ (fig6800to6809dumb):03143 * ======>> 205 <<
+4687 C2 (fig6800to6809dumb):03144 FCB $C2
+4688 49 (fig6800to6809dumb):03145 FCC 'I' ; 'IF'
+4689 C6 (fig6800to6809dumb):03146 FCB $C6
+468A 466A (fig6800to6809dumb):03147 FDB REPEAT-9
+468C 36873AA431483899 (fig6800to6809dumb):03148 IF FDB DOCOL,COMPIL,ZBRAN,HERE,ZERO,COMMA,TWO
+ 370F38B5371F
+469A 3486 (fig6800to6809dumb):03149 FDB SEMIS
+ (fig6800to6809dumb):03150 *
+ (fig6800to6809dumb):03151 * ======>> 206 <<
+469C C4 (fig6800to6809dumb):03152 FCB $C4
+469D 454C53 (fig6800to6809dumb):03153 FCC 'ELS' ; 'ELSE'
+46A0 C5 (fig6800to6809dumb):03154 FCB $C5
+46A1 4687 (fig6800to6809dumb):03155 FDB IF-5
+46A3 3687371F3A5D3AA4 (fig6800to6809dumb):03156 ELSE FDB DOCOL,TWO,QPAIRS,COMPIL,BRAN,HERE
+ 313C3899
+46AF 370F38B535BE371F (fig6800to6809dumb):03157 FDB ZERO,COMMA,SWAP,TWO,ENDIF,TWO
+ 45D5371F
+46BB 3486 (fig6800to6809dumb):03158 FDB SEMIS
+ (fig6800to6809dumb):03159 *
+ (fig6800to6809dumb):03160 * ======>> 207 <<
+46BD C5 (fig6800to6809dumb):03161 FCB $C5
+46BE 5748494C (fig6800to6809dumb):03162 FCC 'WHIL' ; 'WHILE'
+46C2 C5 (fig6800to6809dumb):03163 FCB $C5
+46C3 469C (fig6800to6809dumb):03164 FDB ELSE-7
+46C5 3687468C388A (fig6800to6809dumb):03165 WHILE FDB DOCOL,IF,TWOP
+46CB 3486 (fig6800to6809dumb):03166 FDB SEMIS
+ (fig6800to6809dumb):03167 *
+ (fig6800to6809dumb):03168 * ######>> screen 75 <<
+ (fig6800to6809dumb):03169 * ======>> 208 <<
+46CD 86 (fig6800to6809dumb):03170 FCB $86
+46CE 5350414345 (fig6800to6809dumb):03171 FCC 'SPACE' ; 'SPACES'
+46D3 D3 (fig6800to6809dumb):03172 FCB $D3
+46D4 46BD (fig6800to6809dumb):03173 FDB WHILE-8
+46D6 3687370F39593972 (fig6800to6809dumb):03174 SPACES FDB DOCOL,ZERO,MAX,DDUP,ZBRAN
+ 3148
+46E0 000C (fig6800to6809dumb):03175 FDB SPACE3-*
+46E2 370F31C7 (fig6800to6809dumb):03176 FDB ZERO,XDO
+46E6 3933317B (fig6800to6809dumb):03177 SPACE2 FDB SPACE,XLOOP
+46EA FFFC (fig6800to6809dumb):03178 FDB SPACE2-*
+46EC 3486 (fig6800to6809dumb):03179 SPACE3 FDB SEMIS
+ (fig6800to6809dumb):03180 *
+ (fig6800to6809dumb):03181 * ======>> 209 <<
+46EE 82 (fig6800to6809dumb):03182 FCB $82
+46EF 3C (fig6800to6809dumb):03183 FCC '<' ; '<#'
+46F0 A3 (fig6800to6809dumb):03184 FCB $A3
+46F1 46CD (fig6800to6809dumb):03185 FDB SPACES-9
+46F3 36873DA73866364A (fig6800to6809dumb):03186 BDIGS FDB DOCOL,PAD,HLD,STORE
+46FB 3486 (fig6800to6809dumb):03187 FDB SEMIS
+ (fig6800to6809dumb):03188 *
+ (fig6800to6809dumb):03189 * ======>> 210 <<
+46FD 82 (fig6800to6809dumb):03190 FCB $82
+46FE 23 (fig6800to6809dumb):03191 FCC '#' ; '#>'
+46FF BE (fig6800to6809dumb):03192 FCB $BE
+4700 46EE (fig6800to6809dumb):03193 FDB BDIGS-5
+4702 368735AE35AE3866 (fig6800to6809dumb):03194 EDIGS FDB DOCOL,DROP,DROP,HLD,AT,PAD,OVER,SUB
+ 36243DA7359C38D6
+4712 3486 (fig6800to6809dumb):03195 FDB SEMIS
+ (fig6800to6809dumb):03196 *
+ (fig6800to6809dumb):03197 * ======>> 211 <<
+4714 84 (fig6800to6809dumb):03198 FCB $84
+4715 534947 (fig6800to6809dumb):03199 FCC 'SIG' ; 'SIGN'
+4718 CE (fig6800to6809dumb):03200 FCB $CE
+4719 46FD (fig6800to6809dumb):03201 FDB EDIGS-5
+471B 3687391F350E3148 (fig6800to6809dumb):03202 SIGN FDB DOCOL,ROT,ZLESS,ZBRAN
+4723 0007 (fig6800to6809dumb):03203 FDB SIGN2-*
+4725 310E (fig6800to6809dumb):03204 FDB CLITER
+4727 2D (fig6800to6809dumb):03205 FCC "-"
+4728 3D8F (fig6800to6809dumb):03206 FDB HOLD
+472A 3486 (fig6800to6809dumb):03207 SIGN2 FDB SEMIS
+ (fig6800to6809dumb):03208 *
+ (fig6800to6809dumb):03209 * ======>> 212 <<
+472C 81 (fig6800to6809dumb):03210 FCB $81 #
+472D A3 (fig6800to6809dumb):03211 FCB $A3
+472E 4714 (fig6800to6809dumb):03212 FDB SIGN-7
+4730 368738353624424C (fig6800to6809dumb):03213 DIG FDB DOCOL,BASE,AT,MSMOD,ROT,CLITER
+ 391F310E
+473C 09 (fig6800to6809dumb):03214 FCB 9
+473D 359C38EE3148 (fig6800to6809dumb):03215 FDB OVER,LESS,ZBRAN
+4743 0007 (fig6800to6809dumb):03216 FDB DIG2-*
+4745 310E (fig6800to6809dumb):03217 FDB CLITER
+4747 07 (fig6800to6809dumb):03218 FCB 7
+4748 3526 (fig6800to6809dumb):03219 FDB PLUS
+474A 310E (fig6800to6809dumb):03220 DIG2 FDB CLITER
+474C 30 (fig6800to6809dumb):03221 FCC "0" ascii zero
+474D 35263D8F (fig6800to6809dumb):03222 FDB PLUS,HOLD
+4751 3486 (fig6800to6809dumb):03223 FDB SEMIS
+ (fig6800to6809dumb):03224 *
+ (fig6800to6809dumb):03225 * ======>> 213 <<
+4753 82 (fig6800to6809dumb):03226 FCB $82
+4754 23 (fig6800to6809dumb):03227 FCC '#' ; '#S'
+4755 D3 (fig6800to6809dumb):03228 FCB $D3
+4756 472C (fig6800to6809dumb):03229 FDB DIG-4
+4758 3687 (fig6800to6809dumb):03230 DIGS FDB DOCOL
+475A 4730359C359C342A (fig6800to6809dumb):03231 DIGS2 FDB DIG,OVER,OVER,OR,ZEQU,ZBRAN
+ 34F93148
+4766 FFF4 (fig6800to6809dumb):03232 FDB DIGS2-*
+4768 3486 (fig6800to6809dumb):03233 FDB SEMIS
+ (fig6800to6809dumb):03234 *
+ (fig6800to6809dumb):03235 * ######>> screen 76 <<
+ (fig6800to6809dumb):03236 * ======>> 214 <<
+476A 82 (fig6800to6809dumb):03237 FCB $82
+476B 2E (fig6800to6809dumb):03238 FCC '.' ; '.R'
+476C D2 (fig6800to6809dumb):03239 FCB $D2
+476D 4753 (fig6800to6809dumb):03240 FDB DIGS-5
+476F 368734BA41D834D4 (fig6800to6809dumb):03241 DOTR FDB DOCOL,TOR,STOD,FROMR,DDOTR
+ 4781
+4779 3486 (fig6800to6809dumb):03242 FDB SEMIS
+ (fig6800to6809dumb):03243 *
+ (fig6800to6809dumb):03244 * ======>> 215 <<
+477B 83 (fig6800to6809dumb):03245 FCB $83
+477C 442E (fig6800to6809dumb):03246 FCC 'D.' ; 'D.R'
+477E D2 (fig6800to6809dumb):03247 FCB $D2
+477F 476A (fig6800to6809dumb):03248 FDB DOTR-5
+4781 368734BA35BE359C (fig6800to6809dumb):03249 DDOTR FDB DOCOL,TOR,SWAP,OVER,DABS,BDIGS,DIGS,SIGN
+ 427D46F34758471B
+4791 470234D4359C38D6 (fig6800to6809dumb):03250 FDB EDIGS,FROMR,OVER,SUB,SPACES,TYPE
+ 46D63BAC
+479D 3486 (fig6800to6809dumb):03251 FDB SEMIS
+ (fig6800to6809dumb):03252 *
+ (fig6800to6809dumb):03253 * ======>> 216 <<
+479F 82 (fig6800to6809dumb):03254 FCB $82
+47A0 44 (fig6800to6809dumb):03255 FCC 'D' ; 'D.'
+47A1 AE (fig6800to6809dumb):03256 FCB $AE
+47A2 477B (fig6800to6809dumb):03257 FDB DDOTR-6
+47A4 3687370F47813933 (fig6800to6809dumb):03258 DDOT FDB DOCOL,ZERO,DDOTR,SPACE
+47AC 3486 (fig6800to6809dumb):03259 FDB SEMIS
+ (fig6800to6809dumb):03260 *
+ (fig6800to6809dumb):03261 * ======>> 217 <<
+47AE 81 (fig6800to6809dumb):03262 FCB $81 .
+47AF AE (fig6800to6809dumb):03263 FCB $AE
+47B0 479F (fig6800to6809dumb):03264 FDB DDOT-5
+47B2 368741D847A4 (fig6800to6809dumb):03265 DOT FDB DOCOL,STOD,DDOT
+47B8 3486 (fig6800to6809dumb):03266 FDB SEMIS
+ (fig6800to6809dumb):03267 *
+ (fig6800to6809dumb):03268 * ======>> 218 <<
+47BA 81 (fig6800to6809dumb):03269 FCB $81 ?
+47BB BF (fig6800to6809dumb):03270 FCB $BF
+47BC 47AE (fig6800to6809dumb):03271 FDB DOT-4
+47BE 3687362447B2 (fig6800to6809dumb):03272 QUEST FDB DOCOL,AT,DOT
+47C4 3486 (fig6800to6809dumb):03273 FDB SEMIS
+ (fig6800to6809dumb):03274 *
+ (fig6800to6809dumb):03275 * ######>> screen 77 <<
+ (fig6800to6809dumb):03276 * ======>> 219 <<
+47C6 84 (fig6800to6809dumb):03277 FCB $84
+47C7 4C4953 (fig6800to6809dumb):03278 FCC 'LIS' ; 'LIST'
+47CA D4 (fig6800to6809dumb):03279 FCB $D4
+47CB 47BA (fig6800to6809dumb):03280 FDB QUEST-4
+47CD 36873B02336035DE (fig6800to6809dumb):03281 LIST FDB DOCOL,DECIM,CR,DUP,SCR,STORE,PDOTQ
+ 37F5364A3C0D
+47DB 06 (fig6800to6809dumb):03282 FCB 6
+47DC 534352202320 (fig6800to6809dumb):03283 FCC "SCR # "
+47E2 47B2310E (fig6800to6809dumb):03284 FDB DOT,CLITER
+47E6 10 (fig6800to6809dumb):03285 FCB $10
+47E7 370F31C7 (fig6800to6809dumb):03286 FDB ZERO,XDO
+47EB 336031EC3727 (fig6800to6809dumb):03287 LIST2 FDB CR,I,THREE
+47F1 476F393331EC37F5 (fig6800to6809dumb):03288 FDB DOTR,SPACE,I,SCR,AT,DLINE,XLOOP
+ 362443FB317B
+47FF FFEC (fig6800to6809dumb):03289 FDB LIST2-*
+4801 3360 (fig6800to6809dumb):03290 FDB CR
+4803 3486 (fig6800to6809dumb):03291 FDB SEMIS
+ (fig6800to6809dumb):03292 *
+ (fig6800to6809dumb):03293 * ======>> 220 <<
+4805 85 (fig6800to6809dumb):03294 FCB $85
+4806 494E4445 (fig6800to6809dumb):03295 FCC 'INDE' ; 'INDEX'
+480A D8 (fig6800to6809dumb):03296 FCB $D8
+480B 47C6 (fig6800to6809dumb):03297 FDB LIST-7
+480D 36873360387D35BE (fig6800to6809dumb):03298 INDEX FDB DOCOL,CR,ONEP,SWAP,XDO
+ 31C7
+4817 336031EC3727 (fig6800to6809dumb):03299 INDEX2 FDB CR,I,THREE
+481D 476F3933370F31EC (fig6800to6809dumb):03300 FDB DOTR,SPACE,ZERO,I,DLINE
+ 43FB
+4827 33523148 (fig6800to6809dumb):03301 FDB QTERM,ZBRAN
+482B 0004 (fig6800to6809dumb):03302 FDB INDEX3-*
+482D 34A6 (fig6800to6809dumb):03303 FDB LEAVE
+482F 317B (fig6800to6809dumb):03304 INDEX3 FDB XLOOP
+4831 FFE6 (fig6800to6809dumb):03305 FDB INDEX2-*
+4833 3486 (fig6800to6809dumb):03306 FDB SEMIS
+ (fig6800to6809dumb):03307 *
+ (fig6800to6809dumb):03308 * ======>> 221 <<
+4835 85 (fig6800to6809dumb):03309 FCB $85
+4836 54524941 (fig6800to6809dumb):03310 FCC 'TRIA' ; 'TRIAD'
+483A C4 (fig6800to6809dumb):03311 FCB $C4
+483B 4805 (fig6800to6809dumb):03312 FDB INDEX-8
+483D 3687372742093727 (fig6800to6809dumb):03313 TRIAD FDB DOCOL,THREE,SLASH,THREE,STAR
+ 41E6
+4847 3727359C352635BE (fig6800to6809dumb):03314 FDB THREE,OVER,PLUS,SWAP,XDO
+ 31C7
+4851 336031EC (fig6800to6809dumb):03315 TRIAD2 FDB CR,I
+4855 47CD33523148 (fig6800to6809dumb):03316 FDB LIST,QTERM,ZBRAN
+485B 0004 (fig6800to6809dumb):03317 FDB TRIAD3-*
+485D 34A6 (fig6800to6809dumb):03318 FDB LEAVE
+485F 317B (fig6800to6809dumb):03319 TRIAD3 FDB XLOOP
+4861 FFF0 (fig6800to6809dumb):03320 FDB TRIAD2-*
+4863 3360310E (fig6800to6809dumb):03321 FDB CR,CLITER
+4867 0F (fig6800to6809dumb):03322 FCB $0F
+4868 440F3360 (fig6800to6809dumb):03323 FDB MESS,CR
+486C 3486 (fig6800to6809dumb):03324 FDB SEMIS
+ (fig6800to6809dumb):03325 *
+ (fig6800to6809dumb):03326 * ######>> screen 78 <<
+ (fig6800to6809dumb):03327 * ======>> 222 <<
+486E 85 (fig6800to6809dumb):03328 FCB $85
+486F 564C4953 (fig6800to6809dumb):03329 FCC 'VLIS' ; 'VLIST'
+4873 D4 (fig6800to6809dumb):03330 FCB $D4
+4874 4835 (fig6800to6809dumb):03331 FDB TRIAD-8
+4876 3687310E (fig6800to6809dumb):03332 VLIST FDB DOCOL,CLITER
+487A 80 (fig6800to6809dumb):03333 FCB $80
+487B 37EB364A38103624 (fig6800to6809dumb):03334 FDB OUT,STORE,CONTXT,AT,AT
+ 3624
+4885 37EB362438743624 (fig6800to6809dumb):03335 VLIST1 FDB OUT,AT,COLUMS,AT,CLITER
+ 310E
+488F 20 (fig6800to6809dumb):03336 FCB 32
+4890 38D639113148 (fig6800to6809dumb):03337 FDB SUB,GREAT,ZBRAN
+4896 000A (fig6800to6809dumb):03338 FDB VLIST2-*
+4898 3360370F37EB364A (fig6800to6809dumb):03339 FDB CR,ZERO,OUT,STORE
+48A0 35DE3F1539333933 (fig6800to6809dumb):03340 VLIST2 FDB DUP,IDDOT,SPACE,SPACE,PFA,LFA,AT
+ 39EF39BD3624
+48AE 35DE34F93352342A (fig6800to6809dumb):03341 FDB DUP,ZEQU,QTERM,OR,ZBRAN
+ 3148
+48B8 FFCD (fig6800to6809dumb):03342 FDB VLIST1-*
+48BA 35AE (fig6800to6809dumb):03343 FDB DROP
+48BC 3486 (fig6800to6809dumb):03344 FDB SEMIS
+ (fig6800to6809dumb):03345 *
+ (fig6800to6809dumb):03346 * ======>> XX <<
+48BE 84 (fig6800to6809dumb):03347 FCB $84
+48BF 4E4F4F (fig6800to6809dumb):03348 FCC 'NOO' ; 'NOOP'
+48C2 D0 (fig6800to6809dumb):03349 FCB $D0
+48C3 486E (fig6800to6809dumb):03350 FDB VLIST-8
+48C5 3038 (fig6800to6809dumb):03351 NOOP FDB NEXT a useful no-op
+48C7 0000000000000000 (fig6800to6809dumb):03352 ZZZZ FDB 0,0,0,0,0,0,0,0 end of rom program
+ 0000000000000000
+ (fig6800to6809dumb):03353
+ (fig6800to6809dumb):03354
+ (fig6800to6809dumb):03355
+ (fig6800to6809dumb):03356
+ (fig6800to6809dumb):03357
+ (fig6800to6809dumb):03358
+ (fig6800to6809dumb):03359
+ (fig6800to6809dumb):03360 PAGE
+ (fig6800to6809dumb):03361 OPT L
+ (fig6800to6809dumb):03362 END