(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 '> 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