From 7da1918796485e8cdfaa6c59c02c074be7fd64ba Mon Sep 17 00:00:00 2001 From: Joel Matthew Rees Date: Tue, 22 Jan 2019 17:30:13 +0900 Subject: [PATCH] eol for auto-only --- fig6800to6809dumb.asm | 4 +- junkpile/fig6800to6809dumb_socialized_04.list | 3492 +++++++++++++++++++++++++ 2 files changed, 3494 insertions(+), 2 deletions(-) create mode 100644 junkpile/fig6800to6809dumb_socialized_04.list diff --git a/fig6800to6809dumb.asm b/fig6800to6809dumb.asm index b69b069..bbc3399 100644 --- a/fig6800to6809dumb.asm +++ b/fig6800to6809dumb.asm @@ -796,10 +796,10 @@ ENCL6 LDB N found NUL PSHS B PSHS A INCB - BRA ENCL7+2 + BRA ENCL7A ; ENCL7+2 ******* was a *potential* bug ****** (But DP) * found NUL following the word instead of SPACE ENCL7 LDB N - PSHS B save EW +ENCL7A PSHS B save EW PSHS A ENCL8 LDB N save NC JMP PUSHBA diff --git a/junkpile/fig6800to6809dumb_socialized_04.list b/junkpile/fig6800to6809dumb_socialized_04.list new file mode 100644 index 0000000..b6689a9 --- /dev/null +++ b/junkpile/fig6800to6809dumb_socialized_04.list @@ -0,0 +1,3492 @@ + (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 -- 2.11.0