ref: 8f8d569ccada3dd7c29cc8562ce7c5e2923d89d1
parent: 2919575e56322f30a83982e746071de149b9c863
author: 9ferno <[email protected]>
date: Thu Dec 16 04:32:41 EST 2021
working writes to stdout
--- a/os/pc64/bindings.s
+++ b/os/pc64/bindings.s
@@ -110,11 +110,7 @@
PUSH(TOP)
MOVQ CX, TOP /* ( n a fd -- n a fd n a ) */
- CALL bufinup(SB)
- MOVQ TOP, CX
- POP(TOP)
- CMPQ CX, $0
- JNE invalidaddress
+ CALL validatebuffer(SB)
MOVQ UP, 24(SP)
F_TO_C_3
@@ -122,10 +118,6 @@
MOVQ 24(SP), UP
C_TO_F_1
NEXT
-invalidaddress:
- ADDQ $16, PSP
- MOVQ $-1, TOP
- NEXT
/* no link register in amd64
* 3 arguments for kwrite = 24 bytes
@@ -133,17 +125,13 @@
* Hence, need 32 bytes on the stack
*/
TEXT fthwrite(SB), 1, $32 /* ( n a fd -- n2|-1 ) */
- PUSH(TOP)
- MOVQ 16(PSP), TOP
- MOVQ 8(PSP), CX
- PUSH(TOP)
- MOVQ CX, TOP /* ( n a fd -- n a fd n a ) */
+ PUSH(TOP) /* ( -- n a fd fd ) */
+ MOVQ 16(PSP), TOP /* TOP = n */
+ MOVQ 8(PSP), CX /* CX = a */
+ PUSH(TOP) /* ( -- n a fd n n ) */
+ MOVQ CX, TOP /* ( n a fd -- n a fd n a ) */
- CALL bufinup(SB)
- MOVQ TOP, CX
- POP(TOP)
- CMPQ CX, $0
- JNE invalidaddress
+ CALL validatebuffer(SB)
MOVQ UP, 24(SP)
F_TO_C_3
--- a/os/pc64/forth.h
+++ b/os/pc64/forth.h
@@ -87,165 +87,165 @@
MV_Base = 1504,
MV_toNum = 1536,
MV_State = 1568,
- MV_Abortvec = 1600,
- MV_Infd = 1632,
- MV_Outfd = 1664,
- MV_Errfd = 1696,
- MV_Eof = 1728,
- MC_STDIN = 1760,
- MC_STDOUT = 1792,
- MC_STDERR = 1824,
- MC_WORDB = 1856,
- MC_TIB = 1888,
- M_S0 = 1920,
- M_stackptr = 1944,
- M_H0 = 1968,
- M_Args = 1992,
- M_variable = 2024,
- M_constant = 2056,
- M_colon = 2080,
- M_dodoes = 2104,
- M_cas = 2128,
- M_deferred = 2160,
- C_false = 2184,
- C_true = 2232,
- C_bl = 2280,
- C_on = 2328,
- C_off = 2392,
- C_tobody = 2456,
- C_aligned = 2512,
- C_cells = 2592,
- C_cellplus = 2648,
- C_depth = 2712,
- C_nip = 2816,
- C_rot = 2864,
- C_2drop = 2928,
- C_2dup = 2976,
- C_2nip = 3024,
- C_2swap = 3072,
- C_qdup = 3136,
- L20 = 3208,
- C_pick = 3232,
- L22 = 3336,
- L23 = 3344,
- C_tuck = 3368,
- C_divides = 3432,
- C_plusstore = 3480,
- C_invert = 3560,
- C_mod = 3616,
- C_1plus = 3664,
- C_1minus = 3720,
- C_negate = 3776,
- C_2multiplies = 3840,
- C_2divides = 3896,
- C_0eq = 3952,
- C_0lt = 4008,
- C_0gt = 4064,
- C_neq = 4120,
- C_0neq = 4168,
- C_max = 4224,
- L40 = 4288,
- L41 = 4296,
- C_min = 4320,
- L43 = 4384,
- L44 = 4392,
- C_signum = 4416,
- L46 = 4496,
- L48 = 4552,
- L49 = 4568,
- L47 = 4568,
- C_within = 4592,
- C_abs = 4696,
- L52 = 4744,
- C_key = 4768,
- L78 = 4896,
- L79 = 4912,
- C_emit = 4936,
- C_type = 5040,
- C_cr = 5104,
- C_space = 5160,
- C_emits = 5208,
- L85 = 5216,
- L86 = 5280,
- C_spaces = 5312,
- C_count = 5368,
- C_compare = 5432,
- L55 = 5504,
- L56 = 5640,
- C_erase = 5720,
- L58 = 5752,
- C_fill = 5840,
- L60 = 5880,
- C_blank = 5968,
- C_search = 6016,
- L64 = 6120,
- L65 = 6304,
- C_here = 6368,
- C_comma = 6416,
- C_c = 6496,
- C_allot = 6576,
- C_pad = 6624,
- C_align = 6688,
- C_unused = 6752,
- C_fromhash = 6816,
- C_hash = 6896,
- L92 = 7048,
- L93 = 7072,
- C_hashs = 7152,
- L95 = 7160,
- L96 = 7208,
- C_hashfrom = 7232,
- C_hold = 7344,
- C_sign = 7448,
- L100 = 7504,
- C_dot = 7528,
- C_dotr = 7632,
- C_hex = 7792,
- C_decimal = 7856,
- C_digit = 7920,
- L106 = 8032,
- L108 = 8136,
- L110 = 8240,
- L111 = 8264,
- L109 = 8264,
- L107 = 8264,
- L112 = 8336,
- L113 = 8352,
- C_number = 8376,
- L115 = 8512,
- L116 = 8544,
- L117 = 8608,
- L118 = 8712,
- L119 = 8768,
- C_abort = 8856,
- C_source = 8912,
- C_current_input = 8968,
- C_save_input = 9048,
- C_default_input = 9176,
- C_restore_input = 9296,
- L133 = 9392,
- L134 = 9480,
- C_qrestore_input = 9512,
- L136 = 9616,
- C_next_input = 9648,
- L139 = 9744,
- L140 = 9768,
- C_parse = 9792,
- L142 = 9832,
- L143 = 9960,
- C_word = 10104,
- L145 = 10120,
- L146 = 10216,
- C_accept = 10256,
- L148 = 10296,
- L150 = 10456,
- L149 = 10520,
- C_query = 10568,
- L152 = 10712,
- L153 = 10744,
- C_refill = 10768,
- L155 = 10832,
- L156 = 10848,
+ MV_Abortvec = 1608,
+ MV_Infd = 1640,
+ MV_Outfd = 1672,
+ MV_Errfd = 1704,
+ MV_Eof = 1736,
+ MC_STDIN = 1768,
+ MC_STDOUT = 1800,
+ MC_STDERR = 1832,
+ M_S0 = 1864,
+ M_stackptr = 1888,
+ M_H0 = 1912,
+ M_Wordb = 1936,
+ M_Tib = 1960,
+ M_Args = 1984,
+ M_variable = 2016,
+ M_constant = 2048,
+ M_colon = 2072,
+ M_dodoes = 2096,
+ M_cas = 2120,
+ M_deferred = 2152,
+ C_false = 2176,
+ C_true = 2224,
+ C_bl = 2272,
+ C_on = 2320,
+ C_off = 2384,
+ C_tobody = 2448,
+ C_aligned = 2504,
+ C_cells = 2584,
+ C_cellplus = 2640,
+ C_depth = 2704,
+ C_nip = 2808,
+ C_rot = 2856,
+ C_2drop = 2920,
+ C_2dup = 2968,
+ C_2nip = 3016,
+ C_2swap = 3064,
+ C_qdup = 3128,
+ L20 = 3200,
+ C_pick = 3224,
+ L22 = 3328,
+ L23 = 3336,
+ C_tuck = 3360,
+ C_divides = 3424,
+ C_plusstore = 3472,
+ C_invert = 3552,
+ C_mod = 3608,
+ C_1plus = 3656,
+ C_1minus = 3712,
+ C_negate = 3768,
+ C_2multiplies = 3832,
+ C_2divides = 3888,
+ C_0eq = 3944,
+ C_0lt = 4000,
+ C_0gt = 4056,
+ C_neq = 4112,
+ C_0neq = 4160,
+ C_max = 4216,
+ L40 = 4280,
+ L41 = 4288,
+ C_min = 4312,
+ L43 = 4376,
+ L44 = 4384,
+ C_signum = 4408,
+ L46 = 4488,
+ L48 = 4544,
+ L49 = 4560,
+ L47 = 4560,
+ C_within = 4584,
+ C_abs = 4688,
+ L52 = 4736,
+ C_key = 4760,
+ L78 = 4888,
+ L79 = 4904,
+ C_emit = 4928,
+ C_type = 5032,
+ C_cr = 5096,
+ C_space = 5152,
+ C_emits = 5200,
+ L85 = 5208,
+ L86 = 5272,
+ C_spaces = 5304,
+ C_count = 5360,
+ C_compare = 5424,
+ L55 = 5496,
+ L56 = 5632,
+ C_erase = 5712,
+ L58 = 5744,
+ C_fill = 5832,
+ L60 = 5872,
+ C_blank = 5960,
+ C_search = 6008,
+ L64 = 6112,
+ L65 = 6296,
+ C_here = 6360,
+ C_comma = 6408,
+ C_c = 6488,
+ C_allot = 6568,
+ C_pad = 6616,
+ C_align = 6680,
+ C_unused = 6744,
+ C_fromhash = 6808,
+ C_hash = 6888,
+ L92 = 7040,
+ L93 = 7064,
+ C_hashs = 7144,
+ L95 = 7152,
+ L96 = 7200,
+ C_hashfrom = 7224,
+ C_hold = 7336,
+ C_sign = 7440,
+ L100 = 7496,
+ C_dot = 7520,
+ C_dotr = 7624,
+ C_hex = 7784,
+ C_decimal = 7848,
+ C_digit = 7912,
+ L106 = 8024,
+ L108 = 8128,
+ L110 = 8232,
+ L111 = 8256,
+ L109 = 8256,
+ L107 = 8256,
+ L112 = 8328,
+ L113 = 8344,
+ C_number = 8368,
+ L115 = 8504,
+ L116 = 8536,
+ L117 = 8600,
+ L118 = 8704,
+ L119 = 8760,
+ C_abort = 8848,
+ C_source = 8904,
+ C_current_input = 8960,
+ C_save_input = 9040,
+ C_default_input = 9168,
+ C_restore_input = 9288,
+ L133 = 9384,
+ L134 = 9472,
+ C_qrestore_input = 9504,
+ L136 = 9608,
+ C_next_input = 9640,
+ L139 = 9736,
+ L140 = 9760,
+ C_parse = 9784,
+ L142 = 9824,
+ L143 = 9952,
+ C_word = 10096,
+ L145 = 10112,
+ L146 = 10208,
+ C_accept = 10248,
+ L148 = 10288,
+ L150 = 10448,
+ L149 = 10512,
+ C_query = 10560,
+ L152 = 10704,
+ L153 = 10736,
+ C_refill = 10760,
+ L155 = 10824,
+ L156 = 10840,
C_findname = 10872,
L158 = 10912,
L160 = 11024,
@@ -268,64 +268,64 @@
L178 = 12016,
L176 = 12032,
C_create = 12064,
- C_variable = 12304,
- C_constant = 12368,
- C_immediate = 12496,
- C_tocfa = 12608,
- C_compile = 12688,
- L189 = 12816,
- L190 = 12832,
- L188 = 12848,
- L192 = 12976,
- L194 = 13008,
- L191 = 13008,
- C_close_bracket = 13032,
- L196 = 13056,
- L197 = 13144,
- L198 = 13168,
- L199 = 13200,
- C_smudge = 13248,
- C_reveal = 13360,
- C_colon = 13480,
- C_L206 = 13712,
- C_literal = 13776,
- C_sliteral = 13840,
- C_string = 14008,
- L214 = 14352,
- L215 = 14384,
- C_qabort_parens = 14408,
- L217 = 14488,
- L218 = 14496,
- C_double_quote = 14560,
- C_cdouble_quote = 14688,
- L234 = 15432,
- L236 = 15520,
- C_wo = 15544,
- C_ro = 15640,
- C_rw = 15688,
- C_open_file = 15744,
- C_close_file = 16024,
- C_read_file = 16080,
- C_write_file = 16160,
- C_reposition_file = 16232,
- C_qfcheck = 16296,
- L246 = 16392,
- C_bye = 16416,
- C_include = 16472,
- C_crash = 16624,
- C_quit = 16712,
- L253 = 16736,
- C_parenabort = 16792,
- C_oldboot = 16960,
- C_boot = 17280,
- L137 = 17608,
- L170 = 17632,
- L173 = 17636,
- L180 = 17653,
- L193 = 17657,
- L247 = 17661,
- L251 = 17671,
- L255 = 17702,
+ C_variable = 12312,
+ C_constant = 12384,
+ C_immediate = 12512,
+ C_tocfa = 12624,
+ C_compile = 12704,
+ L189 = 12832,
+ L190 = 12848,
+ L188 = 12864,
+ L192 = 12992,
+ L194 = 13024,
+ L191 = 13024,
+ C_close_bracket = 13048,
+ L196 = 13072,
+ L197 = 13160,
+ L198 = 13184,
+ L199 = 13216,
+ C_smudge = 13264,
+ C_reveal = 13376,
+ C_colon = 13496,
+ C_L206 = 13728,
+ C_literal = 13792,
+ C_sliteral = 13864,
+ C_string = 14032,
+ L214 = 14376,
+ L215 = 14408,
+ C_qabort_parens = 14440,
+ L217 = 14520,
+ L218 = 14528,
+ C_double_quote = 14592,
+ C_cdouble_quote = 14720,
+ L234 = 15464,
+ L236 = 15552,
+ C_wo = 15576,
+ C_ro = 15672,
+ C_rw = 15720,
+ C_open_file = 15776,
+ C_close_file = 16056,
+ C_read_file = 16112,
+ C_write_file = 16192,
+ C_reposition_file = 16264,
+ C_qfcheck = 16328,
+ L246 = 16424,
+ C_bye = 16448,
+ C_include = 16504,
+ C_crash = 16656,
+ C_quit = 16744,
+ L253 = 16768,
+ C_parenabort = 16824,
+ C_oldboot = 16992,
+ C_boot = 17312,
+ L137 = 17640,
+ L170 = 17664,
+ L173 = 17668,
+ L180 = 17685,
+ L193 = 17689,
+ L247 = 17693,
+ L251 = 17703,
+ L255 = 17734,
};
extern void *sliteral(void);
extern void *cjump(void);
@@ -358,11 +358,13 @@
extern void *rshift(void);
extern void *cstore(void);
extern void *Args(void);
+extern void *Tib(void);
extern void *store(void);
extern void *cmove(void);
extern void *binor(void);
extern void *fthclose(void);
extern void *unloop(void);
+extern void *Wordb(void);
extern void *H0(void);
extern void *cfetch(void);
extern void *constant(void);
@@ -460,951 +462,949 @@
{.type Absolute, {.p 0}}, /* 1552 */ {.type Header, {.hdr { 5, "State", /* MV_State = 1568 */ variable }}}, /* MVENTRY "State" State 0 5 h 1576 */ {.type Absolute, {.p 0}}, /* 1584 */- {.type Header, {.hdr { 8, "Abortvec", /* MV_Abortvec = 1600 */ variable }}}, /* MVENTRY "Abortvec" Abortvec 0 8 ; not sure if these 3 can be constants instead? h 1608 */- {.type Absolute, {.p 0}}, /* 1616 */- {.type Header, {.hdr { 5, "Infd", /* MV_Infd = 1632 */ variable }}}, /* MVENTRY "Infd" Infd 0 5 h 1640 */- {.type Absolute, {.p 0}}, /* 1648 */- {.type Header, {.hdr { 6, "Outfd", /* MV_Outfd = 1664 */ variable }}}, /* MVENTRY "Outfd" Outfd 0 6 h 1672 */- {.type Absolute, {.p 0}}, /* 1680 */- {.type Header, {.hdr { 4, "Errfd", /* MV_Errfd = 1696 */ variable }}}, /* MVENTRY "Errfd" Errfd 0 4 h 1704 */- {.type Absolute, {.p 0}}, /* 1712 */- {.type Header, {.hdr { 3, "Eof", /* MV_Eof = 1728 */ variable }}}, /* MVENTRY "Eof" Eof 0 3 h 1736 */- {.type Absolute, {.p 0}}, /* 1744 */- {.type Header, {.hdr { 5, "STDIN", /* MC_STDIN = 1760 */ constant }}}, /* MCENTRY "STDIN" STDIN 0 5 ; 3 constants from here CAPITALS h 1768 */- {.type Absolute, {.p 0}}, /* 1776 */- {.type Header, {.hdr { 6, "STDOUT", /* MC_STDOUT = 1792 */ constant }}}, /* MCENTRY "STDOUT" STDOUT 1 6 h 1800 */- {.type Absolute, {.p 1}}, /* 1808 */- {.type Header, {.hdr { 6, "STDERR", /* MC_STDERR = 1824 */ constant }}}, /* MCENTRY "STDERR" STDERR 2 6 h 1832 */- {.type Absolute, {.p 2}}, /* 1840 */- {.type Header, {.hdr { 5, "WORDB", /* MC_WORDB = 1856 */ constant }}}, /* MCENTRY "WORDB" WORDB WORDB 5 h 1864 */- {.type Absolute, {.p WORDB}}, /* 1872 */- {.type Header, {.hdr { 3, "TIB", /* MC_TIB = 1888 */ constant }}}, /* MCENTRY "TIB" TIB TIB 3 h 1896 */- {.type Absolute, {.p TIB}}, /* 1904 */- {.type Header, {.hdr { 2, "S0", /* M_S0 = 1920 */ S0 }}}, /* MENTRY "S0" S0 2 h 1928 */- {.type Header, {.hdr { 2, "s@", /* M_stackptr = 1944 */ stackptr }}}, /* MENTRY "s@" stackptr 2 ; puts PSP on stack h 1952 */- {.type Header, {.hdr { 2, "H0", /* M_H0 = 1968 */ H0 }}}, /* MENTRY "H0" H0 2 h 1976 */- {.type Header, {.hdr { 3, "Args", /* M_Args = 1992 */ Args }}}, /* MENTRY "Args" Args 3 h 2000 */- {.type Header, {.hdr { 10, "(variable)", /* M_variable = 2024 */ variable }}}, /* MENTRY "(variable)" variable 10 h 2032 */- {.type Header, {.hdr { 10, "(constant)", /* M_constant = 2056 */ constant }}}, /* MENTRY "(constant)" constant 10 h 2064 */- {.type Header, {.hdr { 3, "(:)", /* M_colon = 2080 */ colon }}}, /* MENTRY "(:)" colon 3 h 2088 */- {.type Header, {.hdr { 6, "(does)", /* M_dodoes = 2104 */ dodoes }}}, /* MENTRY "(does)" dodoes 6 h 2112 */- {.type Header, {.hdr { 3, "cas", /* M_cas = 2128 */ cas }}}, /* MENTRY "cas" cas 3 h 2136 */- {.type Header, {.hdr { 10, "(deferred)", /* M_deferred = 2160 */ deferred }}}, /* MENTRY "(deferred)" deferred 10 h 2168 */- {.type Header, {.hdr { 5, "false", /* C_false = 2184 */ colon }}}, /* CENTRY "false" false 5 h 2192 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2200 */- {.type Absolute, {.p 0}}, /* dd 0 2208 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2216 */- {.type Header, {.hdr { 4, "true", /* C_true = 2232 */ colon }}}, /* CENTRY "true" true 4 h 2240 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2248 */- {.type Absolute, {.p -1}}, /* dd -1 2256 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2264 */- {.type Header, {.hdr { 2, "bl", /* C_bl = 2280 */ colon }}}, /* CENTRY "bl" bl 2 h 2288 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2296 */- {.type Absolute, {.p 32}}, /* dd 32 2304 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2312 */- {.type Header, {.hdr { 2, "on", /* C_on = 2328 */ colon }}}, /* CENTRY "on" on 2 ; ( a -- ) (G stores -1 at a ) h 2336 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2344 */- {.type Absolute, {.p -1}}, /* dd -1 2352 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2360 */- {.type FromH0, {.p M_store}}, /* dd M_store 2368 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2376 */- {.type Header, {.hdr { 3, "off", /* C_off = 2392 */ colon }}}, /* CENTRY "off" off 3 ; ( a -- ) (G stores 0 at a ) h 2400 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2408 */- {.type Absolute, {.p 0}}, /* dd 0 2416 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2424 */- {.type FromH0, {.p M_store}}, /* dd M_store 2432 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2440 */- {.type Header, {.hdr { 5, ">body", /* C_tobody = 2456 */ colon }}}, /* CENTRY ">body" tobody 5 h 2464 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2472 */- {.type Absolute, {.p 8}}, /* dd 8 2480 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 2488 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2496 */- {.type Header, {.hdr { 7, "aligned", /* C_aligned = 2512 */ colon }}}, /* CENTRY "aligned" aligned 7 h 2520 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2528 */- {.type Absolute, {.p 7}}, /* dd 7 2536 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 2544 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2552 */- {.type Absolute, {.p -8}}, /* dd -8 2560 */- {.type FromH0, {.p M_binand}}, /* dd M_binand 2568 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2576 */- {.type Header, {.hdr { 5, "cells", /* C_cells = 2592 */ colon }}}, /* CENTRY "cells" cells 5 h 2600 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2608 */- {.type Absolute, {.p 3}}, /* dd 3 ; (index << 2) -> (index << 3)for amd64 2616 */- {.type FromH0, {.p M_lshift}}, /* dd M_lshift 2624 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2632 */- {.type Header, {.hdr { 5, "cell+", /* C_cellplus = 2648 */ colon }}}, /* CENTRY "cell+" cellplus 5 h 2656 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2664 */- {.type Absolute, {.p 1}}, /* dd 1 2672 */- {.type FromH0, {.p C_cells}}, /* dd C_cells 2680 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 2688 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2696 */- {.type Header, {.hdr { 5, "depth", /* C_depth = 2712 */ colon }}}, /* CENTRY "depth" depth 5 h 2720 */- {.type FromH0, {.p M_S0}}, /* dd M_S0 2728 */- {.type FromH0, {.p M_stackptr}}, /* dd M_stackptr 2736 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 2744 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2752 */- {.type Absolute, {.p 3}}, /* dd 3 2760 */- {.type FromH0, {.p M_rshift}}, /* dd M_rshift 2768 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 2776 */- {.type Absolute, {.p 1}}, /* dd 1 2784 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 2792 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2800 */- {.type Header, {.hdr { 3, "nip", /* C_nip = 2816 */ colon }}}, /* CENTRY "nip" nip 3 h 2824 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2832 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 2840 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2848 */- {.type Header, {.hdr { 3, "rot", /* C_rot = 2864 */ colon }}}, /* CENTRY "rot" rot 3 h 2872 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 2880 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2888 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 2896 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2904 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2912 */- {.type Header, {.hdr { 5, "2drop", /* C_2drop = 2928 */ colon }}}, /* CENTRY "2drop" 2drop 5 h 2936 */+ {.type Header, {.hdr { 8, "Abortvec", /* MV_Abortvec = 1608 */ variable }}}, /* MVENTRY "Abortvec" Abortvec 0 8 ; not sure if these 3 can be constants instead? h 1616 */+ {.type Absolute, {.p 0}}, /* 1624 */+ {.type Header, {.hdr { 4, "Infd", /* MV_Infd = 1640 */ variable }}}, /* MVENTRY "Infd" Infd 0 4 h 1648 */+ {.type Absolute, {.p 0}}, /* 1656 */+ {.type Header, {.hdr { 5, "Outfd", /* MV_Outfd = 1672 */ variable }}}, /* MVENTRY "Outfd" Outfd 0 5 h 1680 */+ {.type Absolute, {.p 0}}, /* 1688 */+ {.type Header, {.hdr { 5, "Errfd", /* MV_Errfd = 1704 */ variable }}}, /* MVENTRY "Errfd" Errfd 0 5 h 1712 */+ {.type Absolute, {.p 0}}, /* 1720 */+ {.type Header, {.hdr { 3, "Eof", /* MV_Eof = 1736 */ variable }}}, /* MVENTRY "Eof" Eof 0 3 h 1744 */+ {.type Absolute, {.p 0}}, /* 1752 */+ {.type Header, {.hdr { 5, "STDIN", /* MC_STDIN = 1768 */ constant }}}, /* MCENTRY "STDIN" STDIN 0 5 ; 3 constants from here CAPITALS h 1776 */+ {.type Absolute, {.p 0}}, /* 1784 */+ {.type Header, {.hdr { 6, "STDOUT", /* MC_STDOUT = 1800 */ constant }}}, /* MCENTRY "STDOUT" STDOUT 1 6 h 1808 */+ {.type Absolute, {.p 1}}, /* 1816 */+ {.type Header, {.hdr { 6, "STDERR", /* MC_STDERR = 1832 */ constant }}}, /* MCENTRY "STDERR" STDERR 2 6 h 1840 */+ {.type Absolute, {.p 2}}, /* 1848 */+ {.type Header, {.hdr { 2, "S0", /* M_S0 = 1864 */ S0 }}}, /* MENTRY "S0" S0 2 h 1872 */+ {.type Header, {.hdr { 2, "s@", /* M_stackptr = 1888 */ stackptr }}}, /* MENTRY "s@" stackptr 2 ; puts PSP on stack h 1896 */+ {.type Header, {.hdr { 2, "H0", /* M_H0 = 1912 */ H0 }}}, /* MENTRY "H0" H0 2 h 1920 */+ {.type Header, {.hdr { 5, "Wordb", /* M_Wordb = 1936 */ Wordb }}}, /* MENTRY "Wordb" Wordb 5 h 1944 */+ {.type Header, {.hdr { 3, "Tib", /* M_Tib = 1960 */ Tib }}}, /* MENTRY "Tib" Tib 3 h 1968 */+ {.type Header, {.hdr { 3, "Args", /* M_Args = 1984 */ Args }}}, /* MENTRY "Args" Args 3 h 1992 */+ {.type Header, {.hdr { 10, "(variable)", /* M_variable = 2016 */ variable }}}, /* MENTRY "(variable)" variable 10 h 2024 */+ {.type Header, {.hdr { 10, "(constant)", /* M_constant = 2048 */ constant }}}, /* MENTRY "(constant)" constant 10 h 2056 */+ {.type Header, {.hdr { 3, "(:)", /* M_colon = 2072 */ colon }}}, /* MENTRY "(:)" colon 3 h 2080 */+ {.type Header, {.hdr { 6, "(does)", /* M_dodoes = 2096 */ dodoes }}}, /* MENTRY "(does)" dodoes 6 h 2104 */+ {.type Header, {.hdr { 3, "cas", /* M_cas = 2120 */ cas }}}, /* MENTRY "cas" cas 3 h 2128 */+ {.type Header, {.hdr { 10, "(deferred)", /* M_deferred = 2152 */ deferred }}}, /* MENTRY "(deferred)" deferred 10 h 2160 */+ {.type Header, {.hdr { 5, "false", /* C_false = 2176 */ colon }}}, /* CENTRY "false" false 5 h 2184 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2192 */+ {.type Absolute, {.p 0}}, /* dd 0 2200 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2208 */+ {.type Header, {.hdr { 4, "true", /* C_true = 2224 */ colon }}}, /* CENTRY "true" true 4 h 2232 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2240 */+ {.type Absolute, {.p -1}}, /* dd -1 2248 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2256 */+ {.type Header, {.hdr { 2, "bl", /* C_bl = 2272 */ colon }}}, /* CENTRY "bl" bl 2 h 2280 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2288 */+ {.type Absolute, {.p 32}}, /* dd 32 2296 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2304 */+ {.type Header, {.hdr { 2, "on", /* C_on = 2320 */ colon }}}, /* CENTRY "on" on 2 ; ( a -- ) (G stores -1 at a ) h 2328 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2336 */+ {.type Absolute, {.p -1}}, /* dd -1 2344 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2352 */+ {.type FromH0, {.p M_store}}, /* dd M_store 2360 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2368 */+ {.type Header, {.hdr { 3, "off", /* C_off = 2384 */ colon }}}, /* CENTRY "off" off 3 ; ( a -- ) (G stores 0 at a ) h 2392 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2400 */+ {.type Absolute, {.p 0}}, /* dd 0 2408 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2416 */+ {.type FromH0, {.p M_store}}, /* dd M_store 2424 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2432 */+ {.type Header, {.hdr { 5, ">body", /* C_tobody = 2448 */ colon }}}, /* CENTRY ">body" tobody 5 h 2456 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2464 */+ {.type Absolute, {.p 8}}, /* dd 8 2472 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 2480 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2488 */+ {.type Header, {.hdr { 7, "aligned", /* C_aligned = 2504 */ colon }}}, /* CENTRY "aligned" aligned 7 h 2512 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2520 */+ {.type Absolute, {.p 7}}, /* dd 7 2528 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 2536 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2544 */+ {.type Absolute, {.p -8}}, /* dd -8 2552 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand 2560 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2568 */+ {.type Header, {.hdr { 5, "cells", /* C_cells = 2584 */ colon }}}, /* CENTRY "cells" cells 5 h 2592 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2600 */+ {.type Absolute, {.p 3}}, /* dd 3 ; (index << 2) -> (index << 3)for amd64 2608 */+ {.type FromH0, {.p M_lshift}}, /* dd M_lshift 2616 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2624 */+ {.type Header, {.hdr { 5, "cell+", /* C_cellplus = 2640 */ colon }}}, /* CENTRY "cell+" cellplus 5 h 2648 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2656 */+ {.type Absolute, {.p 1}}, /* dd 1 2664 */+ {.type FromH0, {.p C_cells}}, /* dd C_cells 2672 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 2680 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2688 */+ {.type Header, {.hdr { 5, "depth", /* C_depth = 2704 */ colon }}}, /* CENTRY "depth" depth 5 h 2712 */+ {.type FromH0, {.p M_S0}}, /* dd M_S0 2720 */+ {.type FromH0, {.p M_stackptr}}, /* dd M_stackptr 2728 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 2736 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2744 */+ {.type Absolute, {.p 3}}, /* dd 3 2752 */+ {.type FromH0, {.p M_rshift}}, /* dd M_rshift 2760 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 2768 */+ {.type Absolute, {.p 1}}, /* dd 1 2776 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 2784 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2792 */+ {.type Header, {.hdr { 3, "nip", /* C_nip = 2808 */ colon }}}, /* CENTRY "nip" nip 3 h 2816 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2824 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 2832 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2840 */+ {.type Header, {.hdr { 3, "rot", /* C_rot = 2856 */ colon }}}, /* CENTRY "rot" rot 3 h 2864 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 2872 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2880 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 2888 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 2896 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2904 */+ {.type Header, {.hdr { 5, "2drop", /* C_2drop = 2920 */ colon }}}, /* CENTRY "2drop" 2drop 5 h 2928 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 2936 */ {.type FromH0, {.p M_drop}}, /* dd M_drop 2944 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 2952 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2960 */- {.type Header, {.hdr { 4, "2dup", /* C_2dup = 2976 */ colon }}}, /* CENTRY "2dup" 2dup 4 h 2984 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 2952 */+ {.type Header, {.hdr { 4, "2dup", /* C_2dup = 2968 */ colon }}}, /* CENTRY "2dup" 2dup 4 h 2976 */+ {.type FromH0, {.p M_over}}, /* dd M_over 2984 */ {.type FromH0, {.p M_over}}, /* dd M_over 2992 */- {.type FromH0, {.p M_over}}, /* dd M_over 3000 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3008 */- {.type Header, {.hdr { 4, "2nip", /* C_2nip = 3024 */ colon }}}, /* CENTRY "2nip" 2nip 4 h 3032 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3000 */+ {.type Header, {.hdr { 4, "2nip", /* C_2nip = 3016 */ colon }}}, /* CENTRY "2nip" 2nip 4 h 3024 */+ {.type FromH0, {.p C_nip}}, /* dd C_nip 3032 */ {.type FromH0, {.p C_nip}}, /* dd C_nip 3040 */- {.type FromH0, {.p C_nip}}, /* dd C_nip 3048 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3056 */- {.type Header, {.hdr { 5, "2swap", /* C_2swap = 3072 */ colon }}}, /* CENTRY "2swap" 2swap 5 h 3080 */- {.type FromH0, {.p C_rot}}, /* dd C_rot 3088 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 3096 */- {.type FromH0, {.p C_rot}}, /* dd C_rot 3104 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 3112 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3120 */- {.type Header, {.hdr { 4, "?dup", /* C_qdup = 3136 */ colon }}}, /* CENTRY "?dup" qdup 4 ; if (tos != 0) dup ( n -- ) TODO correct stack notations h 3144 */- {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n n -- ) 3152 */- {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n n n -- ) 3160 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3168 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( n n n 0 -- ) 3176 */- {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( n n f -- ) 3184 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump ; ( n n -- ) 3192 */- {.type FromH0, {.p L20}}, /* dd L20 3200 */- {.type FromH0, {.p M_drop}}, /* dd M_drop ; tos == 0 ( n -- ) 3208 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3216 */- {.type Header, {.hdr { 4, "pick", /* C_pick = 3232 */ colon }}}, /* CENTRY "pick" pick 4 h 3240 */- {.type FromH0, {.p C_qdup}}, /* dd C_qdup 3248 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 3256 */- {.type FromH0, {.p L22}}, /* dd L22 3264 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3272 */- {.type Absolute, {.p 1}}, /* dd 1 3280 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 3288 */- {.type FromH0, {.p C_cells}}, /* dd C_cells 3296 */- {.type FromH0, {.p M_stackptr}}, /* dd M_stackptr 3304 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 3312 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 3320 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 3328 */- {.type FromH0, {.p L23}}, /* dd L23 3336 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 3344 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3352 */- {.type Header, {.hdr { 4, "tuck", /* C_tuck = 3368 */ colon }}}, /* CENTRY "tuck" tuck 4 h 3376 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 3384 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 3392 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 3400 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 3408 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3416 */- {.type Header, {.hdr { 1, "/", /* C_divides = 3432 */ colon }}}, /* CENTRY "/" divides 1 h 3440 */- {.type FromH0, {.p M_slashmod}}, /* dd M_slashmod 3448 */- {.type FromH0, {.p C_nip}}, /* dd C_nip 3456 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3464 */- {.type Header, {.hdr { 2, "+!", /* C_plusstore = 3480 */ colon }}}, /* CENTRY "+!" plusstore 2 h 3488 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 3496 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 3504 */- {.type FromH0, {.p C_rot}}, /* dd C_rot 3512 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 3520 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 3528 */- {.type FromH0, {.p M_store}}, /* dd M_store 3536 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3544 */- {.type Header, {.hdr { 6, "invert", /* C_invert = 3560 */ colon }}}, /* CENTRY "invert" invert 6 h 3568 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3576 */- {.type Absolute, {.p -1}}, /* dd -1 3584 */- {.type FromH0, {.p M_binxor}}, /* dd M_binxor 3592 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3600 */- {.type Header, {.hdr { 3, "mod", /* C_mod = 3616 */ colon }}}, /* CENTRY "mod" mod 3 h 3624 */- {.type FromH0, {.p M_slashmod}}, /* dd M_slashmod 3632 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 3640 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3648 */- {.type Header, {.hdr { 2, "1+", /* C_1plus = 3664 */ colon }}}, /* CENTRY "1+" 1plus 2 h 3672 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3680 */- {.type Absolute, {.p 1}}, /* dd 1 3688 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 3696 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3704 */- {.type Header, {.hdr { 2, "1-", /* C_1minus = 3720 */ colon }}}, /* CENTRY "1-" 1minus 2 h 3728 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3736 */- {.type Absolute, {.p 1}}, /* dd 1 3744 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 3752 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3760 */- {.type Header, {.hdr { 6, "negate", /* C_negate = 3776 */ colon }}}, /* CENTRY "negate" negate 6 h 3784 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3792 */- {.type Absolute, {.p 0}}, /* dd 0 3800 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 3808 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 3816 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3824 */- {.type Header, {.hdr { 2, "2*", /* C_2multiplies = 3840 */ colon }}}, /* CENTRY "2*" 2multiplies 2 h 3848 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3856 */- {.type Absolute, {.p 1}}, /* dd 1 3864 */- {.type FromH0, {.p M_lshift}}, /* dd M_lshift 3872 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3880 */- {.type Header, {.hdr { 2, "2/", /* C_2divides = 3896 */ colon }}}, /* CENTRY "2/" 2divides 2 h 3904 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3912 */- {.type Absolute, {.p 1}}, /* dd 1 3920 */- {.type FromH0, {.p M_rshifta}}, /* dd M_rshifta 3928 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3936 */- {.type Header, {.hdr { 2, "0=", /* C_0eq = 3952 */ colon }}}, /* CENTRY "0=" 0eq 2 h 3960 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 3968 */- {.type Absolute, {.p 0}}, /* dd 0 3976 */- {.type FromH0, {.p M_equal}}, /* dd M_equal 3984 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3992 */- {.type Header, {.hdr { 2, "0<", /* C_0lt = 4008 */ colon }}}, /* CENTRY "0<" 0lt 2 h 4016 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4024 */- {.type Absolute, {.p 0}}, /* dd 0 4032 */- {.type FromH0, {.p M_less}}, /* dd M_less 4040 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4048 */- {.type Header, {.hdr { 2, "0>", /* C_0gt = 4064 */ colon }}}, /* CENTRY "0>" 0gt 2 h 4072 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4080 */- {.type Absolute, {.p 0}}, /* dd 0 4088 */- {.type FromH0, {.p M_greater}}, /* dd M_greater 4096 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4104 */- {.type Header, {.hdr { 2, "<>", /* C_neq = 4120 */ colon }}}, /* CENTRY "<>" neq 2 h 4128 */- {.type FromH0, {.p M_equal}}, /* dd M_equal 4136 */- {.type FromH0, {.p C_invert}}, /* dd C_invert 4144 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4152 */- {.type Header, {.hdr { 3, "0<>", /* C_0neq = 4168 */ colon }}}, /* CENTRY "0<>" 0neq 3 h 4176 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4184 */- {.type Absolute, {.p 0}}, /* dd 0 4192 */- {.type FromH0, {.p C_neq}}, /* dd C_neq 4200 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4208 */- {.type Header, {.hdr { 3, "max", /* C_max = 4224 */ colon }}}, /* CENTRY "max" max 3 h 4232 */- {.type FromH0, {.p C_2dup}}, /* dd C_2dup 4240 */- {.type FromH0, {.p M_greater}}, /* dd M_greater 4248 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4256 */- {.type FromH0, {.p L40}}, /* dd L40 4264 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 4272 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 4280 */- {.type FromH0, {.p L41}}, /* dd L41 4288 */- {.type FromH0, {.p C_nip}}, /* dd C_nip 4296 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4304 */- {.type Header, {.hdr { 3, "min", /* C_min = 4320 */ colon }}}, /* CENTRY "min" min 3 h 4328 */- {.type FromH0, {.p C_2dup}}, /* dd C_2dup 4336 */- {.type FromH0, {.p M_less}}, /* dd M_less 4344 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4352 */- {.type FromH0, {.p L43}}, /* dd L43 4360 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 4368 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 4376 */- {.type FromH0, {.p L44}}, /* dd L44 4384 */- {.type FromH0, {.p C_nip}}, /* dd C_nip 4392 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4400 */- {.type Header, {.hdr { 6, "signum", /* C_signum = 4416 */ colon }}}, /* CENTRY "signum" signum 6 h 4424 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 4432 */- {.type FromH0, {.p C_0gt}}, /* dd C_0gt 4440 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4448 */- {.type FromH0, {.p L46}}, /* dd L46 4456 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 4464 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4472 */- {.type Absolute, {.p 1}}, /* dd 1 4480 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 4488 */- {.type FromH0, {.p L47}}, /* dd L47 4496 */- {.type FromH0, {.p C_0lt}}, /* dd C_0lt 4504 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4512 */- {.type FromH0, {.p L48}}, /* dd L48 4520 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4528 */- {.type Absolute, {.p -1}}, /* dd -1 4536 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 4544 */- {.type FromH0, {.p L49}}, /* dd L49 4552 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4560 */- {.type Absolute, {.p 0}}, /* dd 0 4568 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4576 */- {.type Header, {.hdr { 6, "within", /* C_within = 4592 */ colon }}}, /* CENTRY "within" within 6 h 4600 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 4608 */- {.type FromH0, {.p M_over}}, /* dd M_over 4616 */- {.type FromH0, {.p M_greater}}, /* dd M_greater 4624 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 4632 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 4640 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 4648 */- {.type FromH0, {.p M_greater}}, /* dd M_greater 4656 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 4664 */- {.type FromH0, {.p M_binand}}, /* dd M_binand 4672 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4680 */- {.type Header, {.hdr { 3, "abs", /* C_abs = 4696 */ colon }}}, /* CENTRY "abs" abs 3 h 4704 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 4712 */- {.type FromH0, {.p C_0lt}}, /* dd C_0lt 4720 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4728 */- {.type FromH0, {.p L52}}, /* dd L52 4736 */- {.type FromH0, {.p C_negate}}, /* dd C_negate 4744 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4752 */- {.type Header, {.hdr { 3, "key", /* C_key = 4768 */ colon }}}, /* CENTRY "key" key 3 ; ( -- c ) (G read a single character from the input onto the stack ) h 4776 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4784 */- {.type Absolute, {.p 1}}, /* dd 1 ; ( 1 -- ) 4792 */- {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; variable iobuf to store the character read 4800 */- {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 4808 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( 1 Iobuf -- 1 Iobuf infd ) 4816 */- {.type FromH0, {.p M_fthread}}, /* dd M_fthread ; ( 1 Iobuf infd -- n ) 4824 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 4832 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump ; if 0 characters read 4840 */- {.type FromH0, {.p L78}}, /* dd L78 ; if qread n != 0 jump to L78. If n == 0 jump over 4848 */- {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 4856 */- {.type FromH0, {.p C_on}}, /* dd C_on ; EOF 4864 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4872 */- {.type Absolute, {.p -1}}, /* dd -1 ; return -1 when EOF 4880 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 4888 */- {.type FromH0, {.p L79}}, /* dd L79 4896 */- {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; get the character from Iobuf to stack 4904 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch ; ( -- c ) return the character read if not EOF 4912 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4920 */- {.type Header, {.hdr { 4, "emit", /* C_emit = 4936 */ colon }}}, /* CENTRY "emit" emit 4 ; ( character -- ) h 4944 */- {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; variable iobuf address 4952 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; variable iobuf has character 4960 */- {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; variable iobuf address 4968 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 4976 */- {.type Absolute, {.p 1}}, /* dd 1 4984 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap ; ( iobuf 1 -- 1 iobuf ) 4992 */- {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 5000 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; outfd 5008 */- {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite ; ( 1 iobuf outfd -- ) 5016 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5024 */- {.type Header, {.hdr { 4, "type", /* C_type = 5040 */ colon }}}, /* CENTRY "type" type 4 ; ( addr n -- ) h 5048 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap ; ( addr n -- n addr ) 5056 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 5064 */- {.type Absolute, {.p 1}}, /* dd 1 ; stdout 5072 */- {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite ; ( n addr 1 -- ) 5080 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5088 */- {.type Header, {.hdr { 2, "cr", /* C_cr = 5104 */ colon }}}, /* CENTRY "cr" cr 2 h 5112 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 5120 */- {.type Absolute, {.p 10}}, /* dd 10 ; ascii value of carriage return 5128 */- {.type FromH0, {.p C_emit}}, /* dd C_emit ; emit 5136 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5144 */- {.type Header, {.hdr { 5, "space", /* C_space = 5160 */ colon }}}, /* CENTRY "space" space 5 h 5168 */- {.type FromH0, {.p C_bl}}, /* dd C_bl 5176 */- {.type FromH0, {.p C_emit}}, /* dd C_emit 5184 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5192 */- {.type Header, {.hdr { 5, "emits", /* C_emits = 5208 */ colon }}}, /* CENTRY "emits" emits 5 h 5216 */- {.type FromH0, {.p C_qdup}}, /* dd C_qdup 5224 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 5232 */- {.type FromH0, {.p L86}}, /* dd L86 5240 */- {.type FromH0, {.p M_over}}, /* dd M_over 5248 */- {.type FromH0, {.p C_emit}}, /* dd C_emit 5256 */- {.type FromH0, {.p C_1minus}}, /* dd C_1minus 5264 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 5272 */- {.type FromH0, {.p L85}}, /* dd L85 5280 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 5288 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5296 */- {.type Header, {.hdr { 6, "spaces", /* C_spaces = 5312 */ colon }}}, /* CENTRY "spaces" spaces 6 h 5320 */- {.type FromH0, {.p C_bl}}, /* dd C_bl 5328 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 5336 */- {.type FromH0, {.p C_emits}}, /* dd C_emits 5344 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5352 */- {.type Header, {.hdr { 5, "count", /* C_count = 5368 */ colon }}}, /* CENTRY "count" count 5 ; ( a -- a+1 n ) a = counted string h 5376 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 5384 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 5392 */- {.type FromH0, {.p C_1minus}}, /* dd C_1minus 5400 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 5408 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5416 */- {.type Header, {.hdr { 7, "compare", /* C_compare = 5432 */ colon }}}, /* CENTRY "compare" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search h 5440 */- {.type FromH0, {.p C_rot}}, /* dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 ) 5448 */- {.type FromH0, {.p C_2dup}}, /* dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 ) 5456 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- ) 5464 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- ) 5472 */- {.type FromH0, {.p C_min}}, /* dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- ) 5480 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 5488 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( -- a1 a2 nmin 0 ) (R n1 n2 -- ) 5496 */- {.type FromH0, {.p M_doinit}}, /* dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- ) 5504 */- {.type FromH0, {.p M_over}}, /* dd M_over 5512 */- {.type FromH0, {.p M_i}}, /* dd M_i 5520 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 5528 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 5536 */- {.type FromH0, {.p M_over}}, /* dd M_over 5544 */- {.type FromH0, {.p M_i}}, /* dd M_i 5552 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 5560 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 5568 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 5576 */- {.type FromH0, {.p C_signum}}, /* dd C_signum 5584 */- {.type FromH0, {.p C_qdup}}, /* dd C_qdup 5592 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 5600 */- {.type FromH0, {.p L56}}, /* dd L56 5608 */- {.type FromH0, {.p C_2nip}}, /* dd C_2nip 5616 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3048 */+ {.type Header, {.hdr { 5, "2swap", /* C_2swap = 3064 */ colon }}}, /* CENTRY "2swap" 2swap 5 h 3072 */+ {.type FromH0, {.p C_rot}}, /* dd C_rot 3080 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 3088 */+ {.type FromH0, {.p C_rot}}, /* dd C_rot 3096 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 3104 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3112 */+ {.type Header, {.hdr { 4, "?dup", /* C_qdup = 3128 */ colon }}}, /* CENTRY "?dup" qdup 4 ; if (tos != 0) dup ( n -- ) TODO correct stack notations h 3136 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n n -- ) 3144 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n n n -- ) 3152 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3160 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( n n n 0 -- ) 3168 */+ {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( n n f -- ) 3176 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump ; ( n n -- ) 3184 */+ {.type FromH0, {.p L20}}, /* dd L20 3192 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop ; tos == 0 ( n -- ) 3200 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3208 */+ {.type Header, {.hdr { 4, "pick", /* C_pick = 3224 */ colon }}}, /* CENTRY "pick" pick 4 h 3232 */+ {.type FromH0, {.p C_qdup}}, /* dd C_qdup 3240 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 3248 */+ {.type FromH0, {.p L22}}, /* dd L22 3256 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3264 */+ {.type Absolute, {.p 1}}, /* dd 1 3272 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 3280 */+ {.type FromH0, {.p C_cells}}, /* dd C_cells 3288 */+ {.type FromH0, {.p M_stackptr}}, /* dd M_stackptr 3296 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 3304 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 3312 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 3320 */+ {.type FromH0, {.p L23}}, /* dd L23 3328 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 3336 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3344 */+ {.type Header, {.hdr { 4, "tuck", /* C_tuck = 3360 */ colon }}}, /* CENTRY "tuck" tuck 4 h 3368 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 3376 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 3384 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 3392 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 3400 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3408 */+ {.type Header, {.hdr { 1, "/", /* C_divides = 3424 */ colon }}}, /* CENTRY "/" divides 1 h 3432 */+ {.type FromH0, {.p M_slashmod}}, /* dd M_slashmod 3440 */+ {.type FromH0, {.p C_nip}}, /* dd C_nip 3448 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3456 */+ {.type Header, {.hdr { 2, "+!", /* C_plusstore = 3472 */ colon }}}, /* CENTRY "+!" plusstore 2 h 3480 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 3488 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 3496 */+ {.type FromH0, {.p C_rot}}, /* dd C_rot 3504 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 3512 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 3520 */+ {.type FromH0, {.p M_store}}, /* dd M_store 3528 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3536 */+ {.type Header, {.hdr { 6, "invert", /* C_invert = 3552 */ colon }}}, /* CENTRY "invert" invert 6 h 3560 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3568 */+ {.type Absolute, {.p -1}}, /* dd -1 3576 */+ {.type FromH0, {.p M_binxor}}, /* dd M_binxor 3584 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3592 */+ {.type Header, {.hdr { 3, "mod", /* C_mod = 3608 */ colon }}}, /* CENTRY "mod" mod 3 h 3616 */+ {.type FromH0, {.p M_slashmod}}, /* dd M_slashmod 3624 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 3632 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3640 */+ {.type Header, {.hdr { 2, "1+", /* C_1plus = 3656 */ colon }}}, /* CENTRY "1+" 1plus 2 h 3664 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3672 */+ {.type Absolute, {.p 1}}, /* dd 1 3680 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 3688 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3696 */+ {.type Header, {.hdr { 2, "1-", /* C_1minus = 3712 */ colon }}}, /* CENTRY "1-" 1minus 2 h 3720 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3728 */+ {.type Absolute, {.p 1}}, /* dd 1 3736 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 3744 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3752 */+ {.type Header, {.hdr { 6, "negate", /* C_negate = 3768 */ colon }}}, /* CENTRY "negate" negate 6 h 3776 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3784 */+ {.type Absolute, {.p 0}}, /* dd 0 3792 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 3800 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 3808 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3816 */+ {.type Header, {.hdr { 2, "2*", /* C_2multiplies = 3832 */ colon }}}, /* CENTRY "2*" 2multiplies 2 h 3840 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3848 */+ {.type Absolute, {.p 1}}, /* dd 1 3856 */+ {.type FromH0, {.p M_lshift}}, /* dd M_lshift 3864 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3872 */+ {.type Header, {.hdr { 2, "2/", /* C_2divides = 3888 */ colon }}}, /* CENTRY "2/" 2divides 2 h 3896 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3904 */+ {.type Absolute, {.p 1}}, /* dd 1 3912 */+ {.type FromH0, {.p M_rshifta}}, /* dd M_rshifta 3920 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3928 */+ {.type Header, {.hdr { 2, "0=", /* C_0eq = 3944 */ colon }}}, /* CENTRY "0=" 0eq 2 h 3952 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 3960 */+ {.type Absolute, {.p 0}}, /* dd 0 3968 */+ {.type FromH0, {.p M_equal}}, /* dd M_equal 3976 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 3984 */+ {.type Header, {.hdr { 2, "0<", /* C_0lt = 4000 */ colon }}}, /* CENTRY "0<" 0lt 2 h 4008 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4016 */+ {.type Absolute, {.p 0}}, /* dd 0 4024 */+ {.type FromH0, {.p M_less}}, /* dd M_less 4032 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4040 */+ {.type Header, {.hdr { 2, "0>", /* C_0gt = 4056 */ colon }}}, /* CENTRY "0>" 0gt 2 h 4064 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4072 */+ {.type Absolute, {.p 0}}, /* dd 0 4080 */+ {.type FromH0, {.p M_greater}}, /* dd M_greater 4088 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4096 */+ {.type Header, {.hdr { 2, "<>", /* C_neq = 4112 */ colon }}}, /* CENTRY "<>" neq 2 h 4120 */+ {.type FromH0, {.p M_equal}}, /* dd M_equal 4128 */+ {.type FromH0, {.p C_invert}}, /* dd C_invert 4136 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4144 */+ {.type Header, {.hdr { 3, "0<>", /* C_0neq = 4160 */ colon }}}, /* CENTRY "0<>" 0neq 3 h 4168 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4176 */+ {.type Absolute, {.p 0}}, /* dd 0 4184 */+ {.type FromH0, {.p C_neq}}, /* dd C_neq 4192 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4200 */+ {.type Header, {.hdr { 3, "max", /* C_max = 4216 */ colon }}}, /* CENTRY "max" max 3 h 4224 */+ {.type FromH0, {.p C_2dup}}, /* dd C_2dup 4232 */+ {.type FromH0, {.p M_greater}}, /* dd M_greater 4240 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4248 */+ {.type FromH0, {.p L40}}, /* dd L40 4256 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 4264 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 4272 */+ {.type FromH0, {.p L41}}, /* dd L41 4280 */+ {.type FromH0, {.p C_nip}}, /* dd C_nip 4288 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4296 */+ {.type Header, {.hdr { 3, "min", /* C_min = 4312 */ colon }}}, /* CENTRY "min" min 3 h 4320 */+ {.type FromH0, {.p C_2dup}}, /* dd C_2dup 4328 */+ {.type FromH0, {.p M_less}}, /* dd M_less 4336 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4344 */+ {.type FromH0, {.p L43}}, /* dd L43 4352 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 4360 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 4368 */+ {.type FromH0, {.p L44}}, /* dd L44 4376 */+ {.type FromH0, {.p C_nip}}, /* dd C_nip 4384 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4392 */+ {.type Header, {.hdr { 6, "signum", /* C_signum = 4408 */ colon }}}, /* CENTRY "signum" signum 6 h 4416 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 4424 */+ {.type FromH0, {.p C_0gt}}, /* dd C_0gt 4432 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4440 */+ {.type FromH0, {.p L46}}, /* dd L46 4448 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 4456 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4464 */+ {.type Absolute, {.p 1}}, /* dd 1 4472 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 4480 */+ {.type FromH0, {.p L47}}, /* dd L47 4488 */+ {.type FromH0, {.p C_0lt}}, /* dd C_0lt 4496 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4504 */+ {.type FromH0, {.p L48}}, /* dd L48 4512 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4520 */+ {.type Absolute, {.p -1}}, /* dd -1 4528 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 4536 */+ {.type FromH0, {.p L49}}, /* dd L49 4544 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4552 */+ {.type Absolute, {.p 0}}, /* dd 0 4560 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4568 */+ {.type Header, {.hdr { 6, "within", /* C_within = 4584 */ colon }}}, /* CENTRY "within" within 6 h 4592 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 4600 */+ {.type FromH0, {.p M_over}}, /* dd M_over 4608 */+ {.type FromH0, {.p M_greater}}, /* dd M_greater 4616 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 4624 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 4632 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 4640 */+ {.type FromH0, {.p M_greater}}, /* dd M_greater 4648 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 4656 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand 4664 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4672 */+ {.type Header, {.hdr { 3, "abs", /* C_abs = 4688 */ colon }}}, /* CENTRY "abs" abs 3 h 4696 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 4704 */+ {.type FromH0, {.p C_0lt}}, /* dd C_0lt 4712 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 4720 */+ {.type FromH0, {.p L52}}, /* dd L52 4728 */+ {.type FromH0, {.p C_negate}}, /* dd C_negate 4736 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4744 */+ {.type Header, {.hdr { 3, "key", /* C_key = 4760 */ colon }}}, /* CENTRY "key" key 3 ; ( -- c ) (G read a single character from the input onto the stack ) h 4768 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4776 */+ {.type Absolute, {.p 1}}, /* dd 1 ; ( 1 -- ) 4784 */+ {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; variable iobuf to store the character read 4792 */+ {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 4800 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( 1 Iobuf -- 1 Iobuf infd ) 4808 */+ {.type FromH0, {.p M_fthread}}, /* dd M_fthread ; ( 1 Iobuf infd -- n ) 4816 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 4824 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump ; if 0 characters read 4832 */+ {.type FromH0, {.p L78}}, /* dd L78 ; if qread n != 0 jump to L78. If n == 0 jump over 4840 */+ {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 4848 */+ {.type FromH0, {.p C_on}}, /* dd C_on ; EOF 4856 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4864 */+ {.type Absolute, {.p -1}}, /* dd -1 ; return -1 when EOF 4872 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 4880 */+ {.type FromH0, {.p L79}}, /* dd L79 4888 */+ {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; get the character from Iobuf to stack 4896 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch ; ( -- c ) return the character read if not EOF 4904 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 4912 */+ {.type Header, {.hdr { 4, "emit", /* C_emit = 4928 */ colon }}}, /* CENTRY "emit" emit 4 ; ( character -- ) h 4936 */+ {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; variable iobuf address 4944 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; variable iobuf has character 4952 */+ {.type FromH0, {.p MV_Iobuf}}, /* dd MV_Iobuf ; variable iobuf address 4960 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 4968 */+ {.type Absolute, {.p 1}}, /* dd 1 4976 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap ; ( iobuf 1 -- 1 iobuf ) 4984 */+ {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 4992 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; outfd 5000 */+ {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite ; ( 1 iobuf outfd -- ) 5008 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5016 */+ {.type Header, {.hdr { 4, "type", /* C_type = 5032 */ colon }}}, /* CENTRY "type" type 4 ; ( addr n -- ) h 5040 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap ; ( addr n -- n addr ) 5048 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 5056 */+ {.type Absolute, {.p 1}}, /* dd 1 ; stdout 5064 */+ {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite ; ( n addr 1 -- ) 5072 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5080 */+ {.type Header, {.hdr { 2, "cr", /* C_cr = 5096 */ colon }}}, /* CENTRY "cr" cr 2 h 5104 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 5112 */+ {.type Absolute, {.p 10}}, /* dd 10 ; ascii value of carriage return 5120 */+ {.type FromH0, {.p C_emit}}, /* dd C_emit ; emit 5128 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5136 */+ {.type Header, {.hdr { 5, "space", /* C_space = 5152 */ colon }}}, /* CENTRY "space" space 5 h 5160 */+ {.type FromH0, {.p C_bl}}, /* dd C_bl 5168 */+ {.type FromH0, {.p C_emit}}, /* dd C_emit 5176 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5184 */+ {.type Header, {.hdr { 5, "emits", /* C_emits = 5200 */ colon }}}, /* CENTRY "emits" emits 5 h 5208 */+ {.type FromH0, {.p C_qdup}}, /* dd C_qdup 5216 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 5224 */+ {.type FromH0, {.p L86}}, /* dd L86 5232 */+ {.type FromH0, {.p M_over}}, /* dd M_over 5240 */+ {.type FromH0, {.p C_emit}}, /* dd C_emit 5248 */+ {.type FromH0, {.p C_1minus}}, /* dd C_1minus 5256 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 5264 */+ {.type FromH0, {.p L85}}, /* dd L85 5272 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 5280 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5288 */+ {.type Header, {.hdr { 6, "spaces", /* C_spaces = 5304 */ colon }}}, /* CENTRY "spaces" spaces 6 h 5312 */+ {.type FromH0, {.p C_bl}}, /* dd C_bl 5320 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 5328 */+ {.type FromH0, {.p C_emits}}, /* dd C_emits 5336 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5344 */+ {.type Header, {.hdr { 5, "count", /* C_count = 5360 */ colon }}}, /* CENTRY "count" count 5 ; ( a -- a+1 n ) a = counted string h 5368 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 5376 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 5384 */+ {.type FromH0, {.p C_1minus}}, /* dd C_1minus 5392 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 5400 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5408 */+ {.type Header, {.hdr { 7, "compare", /* C_compare = 5424 */ colon }}}, /* CENTRY "compare" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search h 5432 */+ {.type FromH0, {.p C_rot}}, /* dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 ) 5440 */+ {.type FromH0, {.p C_2dup}}, /* dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 ) 5448 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- ) 5456 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- ) 5464 */+ {.type FromH0, {.p C_min}}, /* dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- ) 5472 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 5480 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( -- a1 a2 nmin 0 ) (R n1 n2 -- ) 5488 */+ {.type FromH0, {.p M_doinit}}, /* dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- ) 5496 */+ {.type FromH0, {.p M_over}}, /* dd M_over 5504 */+ {.type FromH0, {.p M_i}}, /* dd M_i 5512 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 5520 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 5528 */+ {.type FromH0, {.p M_over}}, /* dd M_over 5536 */+ {.type FromH0, {.p M_i}}, /* dd M_i 5544 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 5552 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 5560 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 5568 */+ {.type FromH0, {.p C_signum}}, /* dd C_signum 5576 */+ {.type FromH0, {.p C_qdup}}, /* dd C_qdup 5584 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 5592 */+ {.type FromH0, {.p L56}}, /* dd L56 5600 */+ {.type FromH0, {.p C_2nip}}, /* dd C_2nip 5608 */+ {.type FromH0, {.p M_unloop}}, /* dd M_unloop 5616 */ {.type FromH0, {.p M_unloop}}, /* dd M_unloop 5624 */- {.type FromH0, {.p M_unloop}}, /* dd M_unloop 5632 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5640 */- {.type FromH0, {.p M_doloop}}, /* dd M_doloop 5648 */- {.type FromH0, {.p L55}}, /* dd L55 5656 */- {.type FromH0, {.p C_2drop}}, /* dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- ) 5664 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 5672 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( n2 n1 -- ) (R -- ) 5680 */- {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( -- n1-n2 ) 5688 */- {.type FromH0, {.p C_signum}}, /* dd C_signum 5696 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5704 */- {.type Header, {.hdr { 5, "erase", /* C_erase = 5720 */ colon }}}, /* CENTRY "erase" erase 5 h 5728 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 5736 */- {.type Absolute, {.p 0}}, /* dd 0 5744 */- {.type FromH0, {.p M_doinit}}, /* dd M_doinit 5752 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 5760 */- {.type Absolute, {.p 0}}, /* dd 0 5768 */- {.type FromH0, {.p M_over}}, /* dd M_over 5776 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 5784 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 5792 */- {.type FromH0, {.p M_doloop}}, /* dd M_doloop 5800 */- {.type FromH0, {.p L58}}, /* dd L58 5808 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 5816 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5824 */- {.type Header, {.hdr { 4, "fill", /* C_fill = 5840 */ colon }}}, /* CENTRY "fill" fill 4 h 5848 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 5856 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 5864 */- {.type Absolute, {.p 0}}, /* dd 0 5872 */- {.type FromH0, {.p M_doinit}}, /* dd M_doinit 5880 */- {.type FromH0, {.p C_2dup}}, /* dd C_2dup 5888 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 5896 */- {.type FromH0, {.p M_i}}, /* dd M_i 5904 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 5912 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 5920 */- {.type FromH0, {.p M_doloop}}, /* dd M_doloop 5928 */- {.type FromH0, {.p L60}}, /* dd L60 5936 */- {.type FromH0, {.p C_2drop}}, /* dd C_2drop 5944 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5952 */- {.type Header, {.hdr { 5, "blank", /* C_blank = 5968 */ colon }}}, /* CENTRY "blank" blank 5 h 5976 */- {.type FromH0, {.p C_bl}}, /* dd C_bl 5984 */- {.type FromH0, {.p C_fill}}, /* dd C_fill 5992 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6000 */- {.type Header, {.hdr { 6, "search", /* C_search = 6016 */ colon }}}, /* CENTRY "search" search 6 h 6024 */- {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6032 */- {.type FromH0, {.p M_store}}, /* dd M_store 6040 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6048 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 6056 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 6064 */- {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6072 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6080 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 6088 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 6096 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 6104 */- {.type Absolute, {.p 0}}, /* dd 0 6112 */- {.type FromH0, {.p M_doinit}}, /* dd M_doinit 6120 */- {.type FromH0, {.p M_over}}, /* dd M_over 6128 */- {.type FromH0, {.p M_i}}, /* dd M_i 6136 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 6144 */- {.type FromH0, {.p M_over}}, /* dd M_over 6152 */- {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6160 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6168 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6176 */- {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6184 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6192 */- {.type FromH0, {.p C_compare}}, /* dd C_compare 6200 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 6208 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 6216 */- {.type FromH0, {.p L65}}, /* dd L65 6224 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 6232 */- {.type FromH0, {.p M_i}}, /* dd M_i 6240 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 6248 */- {.type FromH0, {.p M_i}}, /* dd M_i 6256 */- {.type FromH0, {.p M_unloop}}, /* dd M_unloop 6264 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 6272 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6280 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 6288 */- {.type FromH0, {.p C_true}}, /* dd C_true 6296 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6304 */- {.type FromH0, {.p M_doloop}}, /* dd M_doloop 6312 */- {.type FromH0, {.p L64}}, /* dd L64 6320 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 6328 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 6336 */- {.type FromH0, {.p C_false}}, /* dd C_false 6344 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6352 */- {.type Header, {.hdr { 4, "here", /* C_here = 6368 */ colon }}}, /* CENTRY "here" here 4 h 6376 */- {.type FromH0, {.p M_H0}}, /* dd M_H0 6384 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6392 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6400 */- {.type Header, {.hdr { 1, ",", /* C_comma = 6416 */ colon }}}, /* CENTRY "," comma 1 h 6424 */- {.type FromH0, {.p C_here}}, /* dd C_here 6432 */- {.type FromH0, {.p M_store}}, /* dd M_store 6440 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 6448 */- {.type Absolute, {.p 8}}, /* dd 8 6456 */- {.type FromH0, {.p M_H0}}, /* dd M_H0 6464 */- {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore 6472 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6480 */- {.type Header, {.hdr { 2, "c", /* C_c = 6496 */ colon }}}, /* CENTRY "c" c 2 h 6504 */- {.type FromH0, {.p C_here}}, /* dd C_here 6512 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 6520 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 6528 */- {.type Absolute, {.p 1}}, /* dd 1 6536 */- {.type FromH0, {.p M_H0}}, /* dd M_H0 6544 */- {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore 6552 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6560 */- {.type Header, {.hdr { 5, "allot", /* C_allot = 6576 */ colon }}}, /* CENTRY "allot" allot 5 h 6584 */- {.type FromH0, {.p M_H0}}, /* dd M_H0 6592 */- {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore 6600 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6608 */- {.type Header, {.hdr { 3, "pad", /* C_pad = 6624 */ colon }}}, /* CENTRY "pad" pad 3 h 6632 */- {.type FromH0, {.p C_here}}, /* dd C_here 6640 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 6648 */- {.type Absolute, {.p 256}}, /* dd 256 6656 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 6664 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6672 */- {.type Header, {.hdr { 5, "align", /* C_align = 6688 */ colon }}}, /* CENTRY "align" align 5 h 6696 */- {.type FromH0, {.p C_here}}, /* dd C_here 6704 */- {.type FromH0, {.p C_aligned}}, /* dd C_aligned 6712 */- {.type FromH0, {.p M_H0}}, /* dd M_H0 6720 */- {.type FromH0, {.p M_store}}, /* dd M_store 6728 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6736 */- {.type Header, {.hdr { 6, "unused", /* C_unused = 6752 */ colon }}}, /* CENTRY "unused" unused 6 h 6760 */- {.type FromH0, {.p M_H0}}, /* dd M_H0 6768 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6776 */- {.type FromH0, {.p C_here}}, /* dd C_here 6784 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 6792 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6800 */- {.type Header, {.hdr { 2, "<#", /* C_fromhash = 6816 */ colon }}}, /* CENTRY "<#" fromhash 2 h 6824 */- {.type FromH0, {.p C_pad}}, /* dd C_pad 6832 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 6840 */- {.type Absolute, {.p 1024}}, /* dd 1024 6848 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 6856 */- {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 6864 */- {.type FromH0, {.p M_store}}, /* dd M_store 6872 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6880 */- {.type Header, {.hdr { 1, "#", /* C_hash = 6896 */ colon }}}, /* CENTRY "#" hash 1 h 6904 */- {.type FromH0, {.p MV_Base}}, /* dd MV_Base 6912 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6920 */- {.type FromH0, {.p M_uslashmod}}, /* dd M_uslashmod 6928 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6936 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 6944 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 6952 */- {.type Absolute, {.p 9}}, /* dd 9 6960 */- {.type FromH0, {.p M_greater}}, /* dd M_greater 6968 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 6976 */- {.type FromH0, {.p L92}}, /* dd L92 6984 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 6992 */- {.type Absolute, {.p 97}}, /* dd 97 7000 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 7008 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7016 */- {.type Absolute, {.p 10}}, /* dd 10 7024 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 7032 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 7040 */- {.type FromH0, {.p L93}}, /* dd L93 7048 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7056 */- {.type Absolute, {.p 48}}, /* dd 48 7064 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 7072 */- {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7080 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 7088 */- {.type FromH0, {.p C_1minus}}, /* dd C_1minus 7096 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 7104 */- {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7112 */- {.type FromH0, {.p M_store}}, /* dd M_store 7120 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 7128 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7136 */- {.type Header, {.hdr { 2, "#s", /* C_hashs = 7152 */ colon }}}, /* CENTRY "#s" hashs 2 h 7160 */- {.type FromH0, {.p C_hash}}, /* dd C_hash 7168 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 7176 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 7184 */- {.type FromH0, {.p L96}}, /* dd L96 7192 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 7200 */- {.type FromH0, {.p L95}}, /* dd L95 7208 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7216 */- {.type Header, {.hdr { 2, "#>", /* C_hashfrom = 7232 */ colon }}}, /* CENTRY "#>" hashfrom 2 h 7240 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 7248 */- {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7256 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 7264 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 7272 */- {.type FromH0, {.p C_pad}}, /* dd C_pad 7280 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7288 */- {.type Absolute, {.p 1024}}, /* dd 1024 7296 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 7304 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 7312 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 7320 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7328 */- {.type Header, {.hdr { 4, "hold", /* C_hold = 7344 */ colon }}}, /* CENTRY "hold" hold 4 h 7352 */- {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7360 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 7368 */- {.type FromH0, {.p C_1minus}}, /* dd C_1minus 7376 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 7384 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 7392 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 7400 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 7408 */- {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7416 */- {.type FromH0, {.p M_store}}, /* dd M_store 7424 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7432 */- {.type Header, {.hdr { 4, "sign", /* C_sign = 7448 */ colon }}}, /* CENTRY "sign" sign 4 h 7456 */- {.type FromH0, {.p C_0lt}}, /* dd C_0lt 7464 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 7472 */- {.type FromH0, {.p L100}}, /* dd L100 7480 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7488 */- {.type Absolute, {.p 45}}, /* dd 45 7496 */- {.type FromH0, {.p C_hold}}, /* dd C_hold 7504 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7512 */- {.type Header, {.hdr { 1, ".", /* C_dot = 7528 */ colon }}}, /* CENTRY "." dot 1 h 7536 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 7544 */- {.type FromH0, {.p C_abs}}, /* dd C_abs 7552 */- {.type FromH0, {.p C_fromhash}}, /* dd C_fromhash 7560 */- {.type FromH0, {.p C_hashs}}, /* dd C_hashs 7568 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 7576 */- {.type FromH0, {.p C_sign}}, /* dd C_sign 7584 */- {.type FromH0, {.p C_hashfrom}}, /* dd C_hashfrom 7592 */- {.type FromH0, {.p C_type}}, /* dd C_type 7600 */- {.type FromH0, {.p C_space}}, /* dd C_space 7608 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7616 */- {.type Header, {.hdr { 2, ".r", /* C_dotr = 7632 */ colon }}}, /* CENTRY ".r" dotr 2 h 7640 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 7648 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 7656 */- {.type FromH0, {.p C_abs}}, /* dd C_abs 7664 */- {.type FromH0, {.p C_fromhash}}, /* dd C_fromhash 7672 */- {.type FromH0, {.p C_hashs}}, /* dd C_hashs 7680 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 7688 */- {.type FromH0, {.p C_sign}}, /* dd C_sign 7696 */- {.type FromH0, {.p C_hashfrom}}, /* dd C_hashfrom 7704 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 7712 */- {.type FromH0, {.p M_over}}, /* dd M_over 7720 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 7728 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7736 */- {.type Absolute, {.p 0}}, /* dd 0 7744 */- {.type FromH0, {.p C_max}}, /* dd C_max 7752 */- {.type FromH0, {.p C_spaces}}, /* dd C_spaces 7760 */- {.type FromH0, {.p C_type}}, /* dd C_type 7768 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7776 */- {.type Header, {.hdr { 3, "hex", /* C_hex = 7792 */ colon }}}, /* CENTRY "hex" hex 3 h 7800 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7808 */- {.type Absolute, {.p 16}}, /* dd 16 7816 */- {.type FromH0, {.p MV_Base}}, /* dd MV_Base 7824 */- {.type FromH0, {.p M_store}}, /* dd M_store 7832 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7840 */- {.type Header, {.hdr { 7, "decimal", /* C_decimal = 7856 */ colon }}}, /* CENTRY "decimal" decimal 7 h 7864 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7872 */- {.type Absolute, {.p 10}}, /* dd 10 7880 */- {.type FromH0, {.p MV_Base}}, /* dd MV_Base 7888 */- {.type FromH0, {.p M_store}}, /* dd M_store 7896 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7904 */- {.type Header, {.hdr { 5, "digit", /* C_digit = 7920 */ colon }}}, /* CENTRY "digit" digit 5 h 7928 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 7936 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7944 */- {.type Absolute, {.p 65}}, /* dd 65 7952 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 7960 */- {.type Absolute, {.p 91}}, /* dd 91 7968 */- {.type FromH0, {.p C_within}}, /* dd C_within 7976 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 7984 */- {.type FromH0, {.p L106}}, /* dd L106 7992 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8000 */- {.type Absolute, {.p 55}}, /* dd 55 8008 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 8016 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 8024 */- {.type FromH0, {.p L107}}, /* dd L107 8032 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 8040 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8048 */- {.type Absolute, {.p 97}}, /* dd 97 8056 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8064 */- {.type Absolute, {.p 123}}, /* dd 123 8072 */- {.type FromH0, {.p C_within}}, /* dd C_within 8080 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8088 */- {.type FromH0, {.p L108}}, /* dd L108 8096 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8104 */- {.type Absolute, {.p 87}}, /* dd 87 8112 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 8120 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 8128 */- {.type FromH0, {.p L109}}, /* dd L109 8136 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 8144 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8152 */- {.type Absolute, {.p 48}}, /* dd 48 8160 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8168 */- {.type Absolute, {.p 58}}, /* dd 58 8176 */- {.type FromH0, {.p C_within}}, /* dd C_within 8184 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8192 */- {.type FromH0, {.p L110}}, /* dd L110 8200 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8208 */- {.type Absolute, {.p 48}}, /* dd 48 8216 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 8224 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 8232 */- {.type FromH0, {.p L111}}, /* dd L111 8240 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 8248 */- {.type FromH0, {.p C_false}}, /* dd C_false 8256 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8264 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 8272 */- {.type FromH0, {.p MV_Base}}, /* dd MV_Base 8280 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8288 */- {.type FromH0, {.p M_less}}, /* dd M_less 8296 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8304 */- {.type FromH0, {.p L112}}, /* dd L112 8312 */- {.type FromH0, {.p C_true}}, /* dd C_true 8320 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 8328 */- {.type FromH0, {.p L113}}, /* dd L113 8336 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 8344 */- {.type FromH0, {.p C_false}}, /* dd C_false 8352 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8360 */- {.type Header, {.hdr { 6, "number", /* C_number = 8376 */ colon }}}, /* CENTRY "number" number 6 h 8384 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8392 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 8400 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 8408 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8416 */- {.type Absolute, {.p 45}}, /* dd 45 8424 */- {.type FromH0, {.p M_equal}}, /* dd M_equal 8432 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8440 */- {.type FromH0, {.p L115}}, /* dd L115 8448 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 8456 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8464 */- {.type FromH0, {.p C_1minus}}, /* dd C_1minus 8472 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8480 */- {.type Absolute, {.p -1}}, /* dd -1 8488 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 8496 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 8504 */- {.type FromH0, {.p L116}}, /* dd L116 8512 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8520 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8528 */- {.type Absolute, {.p 1}}, /* dd 1 8536 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 8544 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 8552 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 8560 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8568 */- {.type Absolute, {.p 0}}, /* dd 0 8576 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8584 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 8592 */- {.type Absolute, {.p 0}}, /* dd 0 8600 */- {.type FromH0, {.p M_doinit}}, /* dd M_doinit 8608 */- {.type FromH0, {.p MV_Base}}, /* dd MV_Base 8616 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8624 */- {.type FromH0, {.p M_multiply}}, /* dd M_multiply 8632 */- {.type FromH0, {.p M_over}}, /* dd M_over 8640 */- {.type FromH0, {.p M_i}}, /* dd M_i 8648 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 8656 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 8664 */- {.type FromH0, {.p C_digit}}, /* dd C_digit 8672 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8680 */- {.type FromH0, {.p L118}}, /* dd L118 8688 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 8696 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 8704 */- {.type FromH0, {.p L119}}, /* dd L119 8712 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 8720 */- {.type FromH0, {.p M_unloop}}, /* dd M_unloop 8728 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8736 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8744 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 8752 */- {.type FromH0, {.p C_false}}, /* dd C_false 8760 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8768 */- {.type FromH0, {.p M_doloop}}, /* dd M_doloop 8776 */- {.type FromH0, {.p L117}}, /* dd L117 8784 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8792 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 8800 */- {.type FromH0, {.p C_nip}}, /* dd C_nip 8808 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8816 */- {.type FromH0, {.p M_multiply}}, /* dd M_multiply 8824 */- {.type FromH0, {.p C_true}}, /* dd C_true 8832 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8840 */- {.type Header, {.hdr { 5, "abort", /* C_abort = 8856 */ colon }}}, /* CENTRY "abort" abort 5 h 8864 */- {.type FromH0, {.p MV_Abortvec}}, /* dd MV_Abortvec 8872 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8880 */- {.type FromH0, {.p M_execute}}, /* dd M_execute 8888 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8896 */- {.type Header, {.hdr { 6, "source", /* C_source = 8912 */ colon }}}, /* CENTRY "source" source 6 h 8920 */- {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 8928 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8936 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8944 */- {.type Header, {.hdr { 13, "current-input", /* C_current_input = 8968 */ colon }}}, /* CENTRY "current-input" current_input 13 ; ( -- c ) read the next character from the location in Sourcebuf h 8976 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 8984 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8992 */- {.type FromH0, {.p C_source}}, /* dd C_source 9000 */- {.type FromH0, {.p M_plus}}, /* dd M_plus ; Sourcebuf + >In 9008 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 9016 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9024 */- {.type Header, {.hdr { 10, "save-input", /* C_save_input = 9048 */ colon }}}, /* CENTRY "save-input" save_input 10 h 9056 */- {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 9064 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9072 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9080 */- {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9088 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9096 */- {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 9104 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9112 */- {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 9120 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9128 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 9136 */- {.type Absolute, {.p 5}}, /* dd 5 9144 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9152 */- {.type Header, {.hdr { 13, "default-input", /* C_default_input = 9176 */ colon }}}, /* CENTRY "default-input" default_input 13 h 9184 */- {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 9192 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9200 */- {.type FromH0, {.p C_off}}, /* dd C_off 9208 */- {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9216 */- {.type FromH0, {.p C_off}}, /* dd C_off 9224 */- {.type FromH0, {.p MC_TIB}}, /* dd MC_TIB 9232 */- {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 9240 */- {.type FromH0, {.p M_store}}, /* dd M_store 9248 */- {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 9256 */- {.type FromH0, {.p C_off}}, /* dd C_off 9264 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9272 */- {.type Header, {.hdr { 13, "restore-input", /* C_restore_input = 9296 */ colon }}}, /* CENTRY "restore-input" restore_input 13 h 9304 */- {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 9312 */- {.type FromH0, {.p C_off}}, /* dd C_off 9320 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 9328 */- {.type Absolute, {.p 5}}, /* dd 5 9336 */- {.type FromH0, {.p C_neq}}, /* dd C_neq 9344 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9352 */- {.type FromH0, {.p L133}}, /* dd L133 9360 */- {.type FromH0, {.p C_default_input}}, /* dd C_default_input 9368 */- {.type FromH0, {.p C_false}}, /* dd C_false 9376 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 9384 */- {.type FromH0, {.p L134}}, /* dd L134 9392 */- {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 9400 */- {.type FromH0, {.p M_store}}, /* dd M_store 9408 */- {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 9416 */- {.type FromH0, {.p M_store}}, /* dd M_store 9424 */- {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9432 */- {.type FromH0, {.p M_store}}, /* dd M_store 9440 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9448 */- {.type FromH0, {.p M_store}}, /* dd M_store 9456 */- {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 9464 */- {.type FromH0, {.p M_store}}, /* dd M_store 9472 */- {.type FromH0, {.p C_true}}, /* dd C_true 9480 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9488 */- {.type Header, {.hdr { 14, "?restore-input", /* C_qrestore_input = 9512 */ colon }}}, /* CENTRY "?restore-input" qrestore_input 14 h 9520 */- {.type FromH0, {.p C_restore_input}}, /* dd C_restore_input 9528 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 9536 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9544 */- {.type FromH0, {.p L136}}, /* dd L136 9552 */- {.type FromH0, {.p C_space}}, /* dd C_space 9560 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 9568 */- {.type FromH0, {.p L137}}, /* dd L137 9576 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 9584 */- {.type Absolute, {.p 23}}, /* dd 23 9592 */- {.type FromH0, {.p C_type}}, /* dd C_type 9600 */- {.type FromH0, {.p C_cr}}, /* dd C_cr 9608 */- {.type FromH0, {.p C_abort}}, /* dd C_abort 9616 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9624 */- {.type Header, {.hdr { 10, "next-input", /* C_next_input = 9648 */ colon }}}, /* CENTRY "next-input" next_input 10 ; when >In < >Limit ( -- true c ). ( -- 0 false ) otherwise h 9656 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9664 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9672 */- {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9680 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9688 */- {.type FromH0, {.p M_less}}, /* dd M_less 9696 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9704 */- {.type FromH0, {.p L139}}, /* dd L139 ; >In >= >Limit 9712 */- {.type FromH0, {.p C_true}}, /* dd C_true ; >In < >Limit 9720 */- {.type FromH0, {.p C_current_input}}, /* dd C_current_input ; ( -- c ) 9728 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 9736 */- {.type FromH0, {.p L140}}, /* dd L140 9744 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 9752 */- {.type Absolute, {.p 0}}, /* dd 0 9760 */- {.type FromH0, {.p C_false}}, /* dd C_false 9768 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9776 */- {.type Header, {.hdr { 5, "parse", /* C_parse = 9792 */ colon }}}, /* CENTRY "parse" parse 5 ; ( c -- a ) Place the counted string in the address in Wordbuf and return that address. c = word delimiter. h 9800 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( c -- ) (R -- c ) 9808 */- {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf 9816 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( -- Wordb ) 9824 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus ; ( Wordb -- Wordb+1 ) 9832 */- {.type FromH0, {.p C_next_input}}, /* dd C_next_input ; ( Wordb+1 -- Wordb+1 f c ) 9840 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; ( Wordb+1 f c -- Wordb+1 f cinitial ) (R c -- c ) 9848 */- {.type FromH0, {.p C_neq}}, /* dd C_neq ; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) ) 9856 */- {.type FromH0, {.p M_binand}}, /* dd M_binand 9864 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9872 */- {.type FromH0, {.p L143}}, /* dd L143 ; ( Wordb+1 ) >In >= >Limit || cinitial == cnew 9880 */- {.type FromH0, {.p C_current_input}}, /* dd C_current_input ; ( Wordb+1 -- Wordb+1 c ) 9888 */- {.type FromH0, {.p M_over}}, /* dd M_over 9896 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1 9904 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus ; ( Wordb+1 -- Wordb+2 ) 9912 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 9920 */- {.type Absolute, {.p 1}}, /* dd 1 9928 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9936 */- {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore ; >In++ 9944 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 9952 */- {.type FromH0, {.p L142}}, /* dd L142 ; ( Wordb+2 ) repeat 9960 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 9968 */- {.type Absolute, {.p 1}}, /* dd 1 9976 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9984 */- {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore ; >In++ 9992 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; (Wordb+1 -- Wordb+1 c) (R c -- ) 10000 */- {.type FromH0, {.p M_drop}}, /* dd M_drop ; (Wordb+1 c -- Wordb+1) 10008 */- {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf 10016 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; (Wordb+1 -- Wordb+1 Wordb) 10024 */- {.type FromH0, {.p M_dup}}, /* dd M_dup ; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb) 10032 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb) 10040 */- {.type FromH0, {.p M_minus}}, /* dd M_minus ; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb) 10048 */- {.type FromH0, {.p C_1minus}}, /* dd C_1minus ; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb) 10056 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb) 10064 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; store the length of the string found at Wordb[0]. Counted string at Wordb now. 10072 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( -- Wordb) (R Wordb -- ) 10080 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10088 */- {.type Header, {.hdr { 4, "word", /* C_word = 10104 */ colon }}}, /* CENTRY "word" word 4 ; ( c -- a ) skip the c"s. Placed the counted string in a (as in Wordbuf) h 10112 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( -- ) (R -- c ) 10120 */- {.type FromH0, {.p C_next_input}}, /* dd C_next_input ; ( -- f c2 ) (R c1 -- ) 10128 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial ) 10136 */- {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial ) 10144 */- {.type FromH0, {.p M_binand}}, /* dd M_binand ; ( f f2 -- f&&f2 ) (R cinitial -- cinitial ) 10152 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10160 */- {.type FromH0, {.p L146}}, /* dd L146 ; >In >= >Limit || cinitial != cnew 10168 */- {.type FromH0, {.p M_literal}}, /* dd M_literal ; >In < >Limit && cinitial == cnew 10176 */- {.type Absolute, {.p 1}}, /* dd 1 10184 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 10192 */- {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore ; >In++ 10200 */- {.type FromH0, {.p M_jump}}, /* dd M_jump ; repeat 10208 */- {.type FromH0, {.p L145}}, /* dd L145 10216 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( -- cinitial ) Sourcebuf+>In = location of first non-matching character 10224 */- {.type FromH0, {.p C_parse}}, /* dd C_parse 10232 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10240 */- {.type Header, {.hdr { 6, "accept", /* C_accept = 10256 */ colon }}}, /* CENTRY "accept" accept 6 ; ( a n -- n ) get line or n chars or EOF from input and store at a h 10264 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap ; ( n a -- ) 10272 */- {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n a a -- ) 10280 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 10288 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( n -- ) (R a a -- ) 10296 */- {.type FromH0, {.p C_qdup}}, /* dd C_qdup ; ( n n -- ) (R a a -- ) 10304 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump ; (if) 10312 */- {.type FromH0, {.p L149}}, /* dd L149 ; n == 0 10320 */- {.type FromH0, {.p C_key}}, /* dd C_key ; n > 0 ( n -- n c ) 10328 */- {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( -- n c c ) 10336 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 10344 */- {.type Absolute, {.p 10}}, /* dd 10 ; ( -- n c c 10 ) 10352 */- {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( n c c 10 -- n c f ) checking for newline 10360 */- {.type FromH0, {.p M_over}}, /* dd M_over ; ( -- n c f c ) 10368 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 10376 */- {.type Absolute, {.p -1}}, /* dd -1 ; ( -- n c f c -1 ) 10384 */- {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( -- n c f1 f2 ) 10392 */- {.type FromH0, {.p M_binor}}, /* dd M_binor ; ( -- n c f ) 10400 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10408 */- {.type FromH0, {.p L150}}, /* dd L150 10416 */- {.type FromH0, {.p C_2drop}}, /* dd C_2drop ; n == -1 || n == 10 ( -- ) 10424 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5632 */+ {.type FromH0, {.p M_doloop}}, /* dd M_doloop 5640 */+ {.type FromH0, {.p L55}}, /* dd L55 5648 */+ {.type FromH0, {.p C_2drop}}, /* dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- ) 5656 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 5664 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( n2 n1 -- ) (R -- ) 5672 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( -- n1-n2 ) 5680 */+ {.type FromH0, {.p C_signum}}, /* dd C_signum 5688 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5696 */+ {.type Header, {.hdr { 5, "erase", /* C_erase = 5712 */ colon }}}, /* CENTRY "erase" erase 5 h 5720 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 5728 */+ {.type Absolute, {.p 0}}, /* dd 0 5736 */+ {.type FromH0, {.p M_doinit}}, /* dd M_doinit 5744 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 5752 */+ {.type Absolute, {.p 0}}, /* dd 0 5760 */+ {.type FromH0, {.p M_over}}, /* dd M_over 5768 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 5776 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 5784 */+ {.type FromH0, {.p M_doloop}}, /* dd M_doloop 5792 */+ {.type FromH0, {.p L58}}, /* dd L58 5800 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 5808 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5816 */+ {.type Header, {.hdr { 4, "fill", /* C_fill = 5832 */ colon }}}, /* CENTRY "fill" fill 4 h 5840 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 5848 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 5856 */+ {.type Absolute, {.p 0}}, /* dd 0 5864 */+ {.type FromH0, {.p M_doinit}}, /* dd M_doinit 5872 */+ {.type FromH0, {.p C_2dup}}, /* dd C_2dup 5880 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 5888 */+ {.type FromH0, {.p M_i}}, /* dd M_i 5896 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 5904 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 5912 */+ {.type FromH0, {.p M_doloop}}, /* dd M_doloop 5920 */+ {.type FromH0, {.p L60}}, /* dd L60 5928 */+ {.type FromH0, {.p C_2drop}}, /* dd C_2drop 5936 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5944 */+ {.type Header, {.hdr { 5, "blank", /* C_blank = 5960 */ colon }}}, /* CENTRY "blank" blank 5 h 5968 */+ {.type FromH0, {.p C_bl}}, /* dd C_bl 5976 */+ {.type FromH0, {.p C_fill}}, /* dd C_fill 5984 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 5992 */+ {.type Header, {.hdr { 6, "search", /* C_search = 6008 */ colon }}}, /* CENTRY "search" search 6 h 6016 */+ {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6024 */+ {.type FromH0, {.p M_store}}, /* dd M_store 6032 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6040 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 6048 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 6056 */+ {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6064 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6072 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 6080 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 6088 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 6096 */+ {.type Absolute, {.p 0}}, /* dd 0 6104 */+ {.type FromH0, {.p M_doinit}}, /* dd M_doinit 6112 */+ {.type FromH0, {.p M_over}}, /* dd M_over 6120 */+ {.type FromH0, {.p M_i}}, /* dd M_i 6128 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 6136 */+ {.type FromH0, {.p M_over}}, /* dd M_over 6144 */+ {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6152 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6160 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6168 */+ {.type FromH0, {.p MV_Searchlen}}, /* dd MV_Searchlen 6176 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6184 */+ {.type FromH0, {.p C_compare}}, /* dd C_compare 6192 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 6200 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 6208 */+ {.type FromH0, {.p L65}}, /* dd L65 6216 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 6224 */+ {.type FromH0, {.p M_i}}, /* dd M_i 6232 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 6240 */+ {.type FromH0, {.p M_i}}, /* dd M_i 6248 */+ {.type FromH0, {.p M_unloop}}, /* dd M_unloop 6256 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 6264 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6272 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 6280 */+ {.type FromH0, {.p C_true}}, /* dd C_true 6288 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6296 */+ {.type FromH0, {.p M_doloop}}, /* dd M_doloop 6304 */+ {.type FromH0, {.p L64}}, /* dd L64 6312 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 6320 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 6328 */+ {.type FromH0, {.p C_false}}, /* dd C_false 6336 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6344 */+ {.type Header, {.hdr { 4, "here", /* C_here = 6360 */ colon }}}, /* CENTRY "here" here 4 h 6368 */+ {.type FromH0, {.p M_H0}}, /* dd M_H0 6376 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6384 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6392 */+ {.type Header, {.hdr { 1, ",", /* C_comma = 6408 */ colon }}}, /* CENTRY "," comma 1 h 6416 */+ {.type FromH0, {.p C_here}}, /* dd C_here 6424 */+ {.type FromH0, {.p M_store}}, /* dd M_store 6432 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 6440 */+ {.type Absolute, {.p 8}}, /* dd 8 6448 */+ {.type FromH0, {.p M_H0}}, /* dd M_H0 6456 */+ {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore 6464 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6472 */+ {.type Header, {.hdr { 2, "c,", /* C_c = 6488 */ colon }}}, /* CENTRY "c," c 2 h 6496 */+ {.type FromH0, {.p C_here}}, /* dd C_here 6504 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 6512 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 6520 */+ {.type Absolute, {.p 1}}, /* dd 1 6528 */+ {.type FromH0, {.p M_H0}}, /* dd M_H0 6536 */+ {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore 6544 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6552 */+ {.type Header, {.hdr { 5, "allot", /* C_allot = 6568 */ colon }}}, /* CENTRY "allot" allot 5 h 6576 */+ {.type FromH0, {.p M_H0}}, /* dd M_H0 6584 */+ {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore 6592 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6600 */+ {.type Header, {.hdr { 3, "pad", /* C_pad = 6616 */ colon }}}, /* CENTRY "pad" pad 3 h 6624 */+ {.type FromH0, {.p C_here}}, /* dd C_here 6632 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 6640 */+ {.type Absolute, {.p 256}}, /* dd 256 6648 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 6656 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6664 */+ {.type Header, {.hdr { 5, "align", /* C_align = 6680 */ colon }}}, /* CENTRY "align" align 5 h 6688 */+ {.type FromH0, {.p C_here}}, /* dd C_here 6696 */+ {.type FromH0, {.p C_aligned}}, /* dd C_aligned 6704 */+ {.type FromH0, {.p M_H0}}, /* dd M_H0 6712 */+ {.type FromH0, {.p M_store}}, /* dd M_store 6720 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6728 */+ {.type Header, {.hdr { 6, "unused", /* C_unused = 6744 */ colon }}}, /* CENTRY "unused" unused 6 h 6752 */+ {.type FromH0, {.p M_H0}}, /* dd M_H0 6760 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6768 */+ {.type FromH0, {.p C_here}}, /* dd C_here 6776 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 6784 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6792 */+ {.type Header, {.hdr { 2, "<#", /* C_fromhash = 6808 */ colon }}}, /* CENTRY "<#" fromhash 2 h 6816 */+ {.type FromH0, {.p C_pad}}, /* dd C_pad 6824 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 6832 */+ {.type Absolute, {.p 1024}}, /* dd 1024 6840 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 6848 */+ {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 6856 */+ {.type FromH0, {.p M_store}}, /* dd M_store 6864 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 6872 */+ {.type Header, {.hdr { 1, "#", /* C_hash = 6888 */ colon }}}, /* CENTRY "#" hash 1 h 6896 */+ {.type FromH0, {.p MV_Base}}, /* dd MV_Base 6904 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 6912 */+ {.type FromH0, {.p M_uslashmod}}, /* dd M_uslashmod 6920 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 6928 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 6936 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 6944 */+ {.type Absolute, {.p 9}}, /* dd 9 6952 */+ {.type FromH0, {.p M_greater}}, /* dd M_greater 6960 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 6968 */+ {.type FromH0, {.p L92}}, /* dd L92 6976 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 6984 */+ {.type Absolute, {.p 97}}, /* dd 97 6992 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 7000 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7008 */+ {.type Absolute, {.p 10}}, /* dd 10 7016 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 7024 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 7032 */+ {.type FromH0, {.p L93}}, /* dd L93 7040 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7048 */+ {.type Absolute, {.p 48}}, /* dd 48 7056 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 7064 */+ {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7072 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 7080 */+ {.type FromH0, {.p C_1minus}}, /* dd C_1minus 7088 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 7096 */+ {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7104 */+ {.type FromH0, {.p M_store}}, /* dd M_store 7112 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 7120 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7128 */+ {.type Header, {.hdr { 2, "#s", /* C_hashs = 7144 */ colon }}}, /* CENTRY "#s" hashs 2 h 7152 */+ {.type FromH0, {.p C_hash}}, /* dd C_hash 7160 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 7168 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 7176 */+ {.type FromH0, {.p L96}}, /* dd L96 7184 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 7192 */+ {.type FromH0, {.p L95}}, /* dd L95 7200 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7208 */+ {.type Header, {.hdr { 2, "#>", /* C_hashfrom = 7224 */ colon }}}, /* CENTRY "#>" hashfrom 2 h 7232 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 7240 */+ {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7248 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 7256 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 7264 */+ {.type FromH0, {.p C_pad}}, /* dd C_pad 7272 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7280 */+ {.type Absolute, {.p 1024}}, /* dd 1024 7288 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 7296 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 7304 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 7312 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7320 */+ {.type Header, {.hdr { 4, "hold", /* C_hold = 7336 */ colon }}}, /* CENTRY "hold" hold 4 h 7344 */+ {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7352 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 7360 */+ {.type FromH0, {.p C_1minus}}, /* dd C_1minus 7368 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 7376 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 7384 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 7392 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 7400 */+ {.type FromH0, {.p MV_toNum}}, /* dd MV_toNum 7408 */+ {.type FromH0, {.p M_store}}, /* dd M_store 7416 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7424 */+ {.type Header, {.hdr { 4, "sign", /* C_sign = 7440 */ colon }}}, /* CENTRY "sign" sign 4 h 7448 */+ {.type FromH0, {.p C_0lt}}, /* dd C_0lt 7456 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 7464 */+ {.type FromH0, {.p L100}}, /* dd L100 7472 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7480 */+ {.type Absolute, {.p 45}}, /* dd 45 7488 */+ {.type FromH0, {.p C_hold}}, /* dd C_hold 7496 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7504 */+ {.type Header, {.hdr { 1, ".", /* C_dot = 7520 */ colon }}}, /* CENTRY "." dot 1 h 7528 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 7536 */+ {.type FromH0, {.p C_abs}}, /* dd C_abs 7544 */+ {.type FromH0, {.p C_fromhash}}, /* dd C_fromhash 7552 */+ {.type FromH0, {.p C_hashs}}, /* dd C_hashs 7560 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 7568 */+ {.type FromH0, {.p C_sign}}, /* dd C_sign 7576 */+ {.type FromH0, {.p C_hashfrom}}, /* dd C_hashfrom 7584 */+ {.type FromH0, {.p C_type}}, /* dd C_type 7592 */+ {.type FromH0, {.p C_space}}, /* dd C_space 7600 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7608 */+ {.type Header, {.hdr { 2, ".r", /* C_dotr = 7624 */ colon }}}, /* CENTRY ".r" dotr 2 h 7632 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 7640 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 7648 */+ {.type FromH0, {.p C_abs}}, /* dd C_abs 7656 */+ {.type FromH0, {.p C_fromhash}}, /* dd C_fromhash 7664 */+ {.type FromH0, {.p C_hashs}}, /* dd C_hashs 7672 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 7680 */+ {.type FromH0, {.p C_sign}}, /* dd C_sign 7688 */+ {.type FromH0, {.p C_hashfrom}}, /* dd C_hashfrom 7696 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 7704 */+ {.type FromH0, {.p M_over}}, /* dd M_over 7712 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 7720 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7728 */+ {.type Absolute, {.p 0}}, /* dd 0 7736 */+ {.type FromH0, {.p C_max}}, /* dd C_max 7744 */+ {.type FromH0, {.p C_spaces}}, /* dd C_spaces 7752 */+ {.type FromH0, {.p C_type}}, /* dd C_type 7760 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7768 */+ {.type Header, {.hdr { 3, "hex", /* C_hex = 7784 */ colon }}}, /* CENTRY "hex" hex 3 h 7792 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7800 */+ {.type Absolute, {.p 16}}, /* dd 16 7808 */+ {.type FromH0, {.p MV_Base}}, /* dd MV_Base 7816 */+ {.type FromH0, {.p M_store}}, /* dd M_store 7824 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7832 */+ {.type Header, {.hdr { 7, "decimal", /* C_decimal = 7848 */ colon }}}, /* CENTRY "decimal" decimal 7 h 7856 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7864 */+ {.type Absolute, {.p 10}}, /* dd 10 7872 */+ {.type FromH0, {.p MV_Base}}, /* dd MV_Base 7880 */+ {.type FromH0, {.p M_store}}, /* dd M_store 7888 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 7896 */+ {.type Header, {.hdr { 5, "digit", /* C_digit = 7912 */ colon }}}, /* CENTRY "digit" digit 5 h 7920 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 7928 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7936 */+ {.type Absolute, {.p 65}}, /* dd 65 7944 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7952 */+ {.type Absolute, {.p 91}}, /* dd 91 7960 */+ {.type FromH0, {.p C_within}}, /* dd C_within 7968 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 7976 */+ {.type FromH0, {.p L106}}, /* dd L106 7984 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 7992 */+ {.type Absolute, {.p 55}}, /* dd 55 8000 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 8008 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 8016 */+ {.type FromH0, {.p L107}}, /* dd L107 8024 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 8032 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8040 */+ {.type Absolute, {.p 97}}, /* dd 97 8048 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8056 */+ {.type Absolute, {.p 123}}, /* dd 123 8064 */+ {.type FromH0, {.p C_within}}, /* dd C_within 8072 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8080 */+ {.type FromH0, {.p L108}}, /* dd L108 8088 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8096 */+ {.type Absolute, {.p 87}}, /* dd 87 8104 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 8112 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 8120 */+ {.type FromH0, {.p L109}}, /* dd L109 8128 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 8136 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8144 */+ {.type Absolute, {.p 48}}, /* dd 48 8152 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8160 */+ {.type Absolute, {.p 58}}, /* dd 58 8168 */+ {.type FromH0, {.p C_within}}, /* dd C_within 8176 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8184 */+ {.type FromH0, {.p L110}}, /* dd L110 8192 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8200 */+ {.type Absolute, {.p 48}}, /* dd 48 8208 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 8216 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 8224 */+ {.type FromH0, {.p L111}}, /* dd L111 8232 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 8240 */+ {.type FromH0, {.p C_false}}, /* dd C_false 8248 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8256 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 8264 */+ {.type FromH0, {.p MV_Base}}, /* dd MV_Base 8272 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8280 */+ {.type FromH0, {.p M_less}}, /* dd M_less 8288 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8296 */+ {.type FromH0, {.p L112}}, /* dd L112 8304 */+ {.type FromH0, {.p C_true}}, /* dd C_true 8312 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 8320 */+ {.type FromH0, {.p L113}}, /* dd L113 8328 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 8336 */+ {.type FromH0, {.p C_false}}, /* dd C_false 8344 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8352 */+ {.type Header, {.hdr { 6, "number", /* C_number = 8368 */ colon }}}, /* CENTRY "number" number 6 h 8376 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8384 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 8392 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 8400 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8408 */+ {.type Absolute, {.p 45}}, /* dd 45 8416 */+ {.type FromH0, {.p M_equal}}, /* dd M_equal 8424 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8432 */+ {.type FromH0, {.p L115}}, /* dd L115 8440 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 8448 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8456 */+ {.type FromH0, {.p C_1minus}}, /* dd C_1minus 8464 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8472 */+ {.type Absolute, {.p -1}}, /* dd -1 8480 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 8488 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 8496 */+ {.type FromH0, {.p L116}}, /* dd L116 8504 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8512 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8520 */+ {.type Absolute, {.p 1}}, /* dd 1 8528 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 8536 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 8544 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 8552 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8560 */+ {.type Absolute, {.p 0}}, /* dd 0 8568 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 8576 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 8584 */+ {.type Absolute, {.p 0}}, /* dd 0 8592 */+ {.type FromH0, {.p M_doinit}}, /* dd M_doinit 8600 */+ {.type FromH0, {.p MV_Base}}, /* dd MV_Base 8608 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8616 */+ {.type FromH0, {.p M_multiply}}, /* dd M_multiply 8624 */+ {.type FromH0, {.p M_over}}, /* dd M_over 8632 */+ {.type FromH0, {.p M_i}}, /* dd M_i 8640 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 8648 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 8656 */+ {.type FromH0, {.p C_digit}}, /* dd C_digit 8664 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 8672 */+ {.type FromH0, {.p L118}}, /* dd L118 8680 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 8688 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 8696 */+ {.type FromH0, {.p L119}}, /* dd L119 8704 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 8712 */+ {.type FromH0, {.p M_unloop}}, /* dd M_unloop 8720 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8728 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8736 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 8744 */+ {.type FromH0, {.p C_false}}, /* dd C_false 8752 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8760 */+ {.type FromH0, {.p M_doloop}}, /* dd M_doloop 8768 */+ {.type FromH0, {.p L117}}, /* dd L117 8776 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8784 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 8792 */+ {.type FromH0, {.p C_nip}}, /* dd C_nip 8800 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 8808 */+ {.type FromH0, {.p M_multiply}}, /* dd M_multiply 8816 */+ {.type FromH0, {.p C_true}}, /* dd C_true 8824 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8832 */+ {.type Header, {.hdr { 5, "abort", /* C_abort = 8848 */ colon }}}, /* CENTRY "abort" abort 5 h 8856 */+ {.type FromH0, {.p MV_Abortvec}}, /* dd MV_Abortvec 8864 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8872 */+ {.type FromH0, {.p M_execute}}, /* dd M_execute 8880 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8888 */+ {.type Header, {.hdr { 6, "source", /* C_source = 8904 */ colon }}}, /* CENTRY "source" source 6 h 8912 */+ {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 8920 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8928 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 8936 */+ {.type Header, {.hdr { 13, "current-input", /* C_current_input = 8960 */ colon }}}, /* CENTRY "current-input" current_input 13 ; ( -- c ) read the next character from the location in Sourcebuf h 8968 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 8976 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 8984 */+ {.type FromH0, {.p C_source}}, /* dd C_source 8992 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus ; Sourcebuf + >In 9000 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 9008 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9016 */+ {.type Header, {.hdr { 10, "save-input", /* C_save_input = 9040 */ colon }}}, /* CENTRY "save-input" save_input 10 h 9048 */+ {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 9056 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9064 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9072 */+ {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9080 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9088 */+ {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 9096 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9104 */+ {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 9112 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9120 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 9128 */+ {.type Absolute, {.p 5}}, /* dd 5 9136 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9144 */+ {.type Header, {.hdr { 13, "default-input", /* C_default_input = 9168 */ colon }}}, /* CENTRY "default-input" default_input 13 h 9176 */+ {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 9184 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9192 */+ {.type FromH0, {.p C_off}}, /* dd C_off 9200 */+ {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9208 */+ {.type FromH0, {.p C_off}}, /* dd C_off 9216 */+ {.type FromH0, {.p M_Tib}}, /* dd M_Tib 9224 */+ {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 9232 */+ {.type FromH0, {.p M_store}}, /* dd M_store 9240 */+ {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 9248 */+ {.type FromH0, {.p C_off}}, /* dd C_off 9256 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9264 */+ {.type Header, {.hdr { 13, "restore-input", /* C_restore_input = 9288 */ colon }}}, /* CENTRY "restore-input" restore_input 13 h 9296 */+ {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 9304 */+ {.type FromH0, {.p C_off}}, /* dd C_off 9312 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 9320 */+ {.type Absolute, {.p 5}}, /* dd 5 9328 */+ {.type FromH0, {.p C_neq}}, /* dd C_neq 9336 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9344 */+ {.type FromH0, {.p L133}}, /* dd L133 9352 */+ {.type FromH0, {.p C_default_input}}, /* dd C_default_input 9360 */+ {.type FromH0, {.p C_false}}, /* dd C_false 9368 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 9376 */+ {.type FromH0, {.p L134}}, /* dd L134 9384 */+ {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 9392 */+ {.type FromH0, {.p M_store}}, /* dd M_store 9400 */+ {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf 9408 */+ {.type FromH0, {.p M_store}}, /* dd M_store 9416 */+ {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9424 */+ {.type FromH0, {.p M_store}}, /* dd M_store 9432 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9440 */+ {.type FromH0, {.p M_store}}, /* dd M_store 9448 */+ {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 9456 */+ {.type FromH0, {.p M_store}}, /* dd M_store 9464 */+ {.type FromH0, {.p C_true}}, /* dd C_true 9472 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9480 */+ {.type Header, {.hdr { 14, "?restore-input", /* C_qrestore_input = 9504 */ colon }}}, /* CENTRY "?restore-input" qrestore_input 14 h 9512 */+ {.type FromH0, {.p C_restore_input}}, /* dd C_restore_input 9520 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 9528 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9536 */+ {.type FromH0, {.p L136}}, /* dd L136 9544 */+ {.type FromH0, {.p C_space}}, /* dd C_space 9552 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 9560 */+ {.type FromH0, {.p L137}}, /* dd L137 9568 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 9576 */+ {.type Absolute, {.p 23}}, /* dd 23 9584 */+ {.type FromH0, {.p C_type}}, /* dd C_type 9592 */+ {.type FromH0, {.p C_cr}}, /* dd C_cr 9600 */+ {.type FromH0, {.p C_abort}}, /* dd C_abort 9608 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9616 */+ {.type Header, {.hdr { 10, "next-input", /* C_next_input = 9640 */ colon }}}, /* CENTRY "next-input" next_input 10 ; when >In < >Limit ( -- true c ). ( -- 0 false ) otherwise h 9648 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9656 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9664 */+ {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 9672 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 9680 */+ {.type FromH0, {.p M_less}}, /* dd M_less 9688 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9696 */+ {.type FromH0, {.p L139}}, /* dd L139 ; >In >= >Limit 9704 */+ {.type FromH0, {.p C_true}}, /* dd C_true ; >In < >Limit 9712 */+ {.type FromH0, {.p C_current_input}}, /* dd C_current_input ; ( -- c ) 9720 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 9728 */+ {.type FromH0, {.p L140}}, /* dd L140 9736 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 9744 */+ {.type Absolute, {.p 0}}, /* dd 0 9752 */+ {.type FromH0, {.p C_false}}, /* dd C_false 9760 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 9768 */+ {.type Header, {.hdr { 5, "parse", /* C_parse = 9784 */ colon }}}, /* CENTRY "parse" parse 5 ; ( c -- a ) Place the counted string in the address in Wordbuf and return that address. c = word delimiter. h 9792 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( c -- ) (R -- c ) 9800 */+ {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf 9808 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( -- Wordb ) 9816 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus ; ( Wordb -- Wordb+1 ) 9824 */+ {.type FromH0, {.p C_next_input}}, /* dd C_next_input ; ( Wordb+1 -- Wordb+1 f c ) 9832 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; ( Wordb+1 f c -- Wordb+1 f cinitial ) (R c -- c ) 9840 */+ {.type FromH0, {.p C_neq}}, /* dd C_neq ; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) ) 9848 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand 9856 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 9864 */+ {.type FromH0, {.p L143}}, /* dd L143 ; ( Wordb+1 ) >In >= >Limit || cinitial == cnew 9872 */+ {.type FromH0, {.p C_current_input}}, /* dd C_current_input ; ( Wordb+1 -- Wordb+1 c ) 9880 */+ {.type FromH0, {.p M_over}}, /* dd M_over 9888 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1 9896 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus ; ( Wordb+1 -- Wordb+2 ) 9904 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 9912 */+ {.type Absolute, {.p 1}}, /* dd 1 9920 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9928 */+ {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore ; >In++ 9936 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 9944 */+ {.type FromH0, {.p L142}}, /* dd L142 ; ( Wordb+2 ) repeat 9952 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 9960 */+ {.type Absolute, {.p 1}}, /* dd 1 9968 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 9976 */+ {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore ; >In++ 9984 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; (Wordb+1 -- Wordb+1 c) (R c -- ) 9992 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop ; (Wordb+1 c -- Wordb+1) 10000 */+ {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf 10008 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; (Wordb+1 -- Wordb+1 Wordb) 10016 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup ; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb) 10024 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb) 10032 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus ; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb) 10040 */+ {.type FromH0, {.p C_1minus}}, /* dd C_1minus ; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb) 10048 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb) 10056 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; store the length of the string found at Wordb[0]. Counted string at Wordb now. 10064 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( -- Wordb) (R Wordb -- ) 10072 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10080 */+ {.type Header, {.hdr { 4, "word", /* C_word = 10096 */ colon }}}, /* CENTRY "word" word 4 ; ( c -- a ) skip the c"s. Placed the counted string in a (as in Wordbuf) h 10104 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( -- ) (R -- c ) 10112 */+ {.type FromH0, {.p C_next_input}}, /* dd C_next_input ; ( -- f c2 ) (R c1 -- ) 10120 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial ) 10128 */+ {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial ) 10136 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand ; ( f f2 -- f&&f2 ) (R cinitial -- cinitial ) 10144 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10152 */+ {.type FromH0, {.p L146}}, /* dd L146 ; >In >= >Limit || cinitial != cnew 10160 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal ; >In < >Limit && cinitial == cnew 10168 */+ {.type Absolute, {.p 1}}, /* dd 1 10176 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 10184 */+ {.type FromH0, {.p C_plusstore}}, /* dd C_plusstore ; >In++ 10192 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump ; repeat 10200 */+ {.type FromH0, {.p L145}}, /* dd L145 10208 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( -- cinitial ) Sourcebuf+>In = location of first non-matching character 10216 */+ {.type FromH0, {.p C_parse}}, /* dd C_parse 10224 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10232 */+ {.type Header, {.hdr { 6, "accept", /* C_accept = 10248 */ colon }}}, /* CENTRY "accept" accept 6 ; ( a n -- n ) get line or n chars or EOF from input and store at a h 10256 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap ; ( n a -- ) 10264 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n a a -- ) 10272 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 10280 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( n -- ) (R a a -- ) 10288 */+ {.type FromH0, {.p C_qdup}}, /* dd C_qdup ; ( n n -- ) (R a a -- ) 10296 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump ; (if) 10304 */+ {.type FromH0, {.p L149}}, /* dd L149 ; n == 0 10312 */+ {.type FromH0, {.p C_key}}, /* dd C_key ; n > 0 ( n -- n c ) 10320 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( -- n c c ) 10328 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 10336 */+ {.type Absolute, {.p 10}}, /* dd 10 ; ( -- n c c 10 ) 10344 */+ {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( n c c 10 -- n c f ) checking for newline 10352 */+ {.type FromH0, {.p M_over}}, /* dd M_over ; ( -- n c f c ) 10360 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 10368 */+ {.type Absolute, {.p -1}}, /* dd -1 ; ( -- n c f c -1 ) 10376 */+ {.type FromH0, {.p M_equal}}, /* dd M_equal ; ( -- n c f1 f2 ) 10384 */+ {.type FromH0, {.p M_binor}}, /* dd M_binor ; ( -- n c f ) 10392 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10400 */+ {.type FromH0, {.p L150}}, /* dd L150 10408 */+ {.type FromH0, {.p C_2drop}}, /* dd C_2drop ; n == -1 || n == 10 ( -- ) 10416 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 10424 */ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 10432 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 10440 */- {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( -- a2-a1 ) 10448 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon ; ( -- n ) (R -- ) 10456 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; ( n c a -- ) (R a a -- ) 10464 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; store the character at a 10472 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( n a -- ) (R a -- ) 10480 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 10488 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address 10496 */- {.type FromH0, {.p C_1minus}}, /* dd C_1minus ; ( n -- n-1 ) 10504 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 10512 */- {.type FromH0, {.p L148}}, /* dd L148 ; loop again for the next character 10520 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( -- a2 ) (R a1 a2 -- a1 ) 10528 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( a2 a1 -- ) (R a1 -- ) 10536 */- {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( a2 a1 -- a2-a1 ) 10544 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10552 */- {.type Header, {.hdr { 5, "query", /* C_query = 10568 */ colon }}}, /* CENTRY "query" query 5 ; read from input stream into the Text Input Buffer h 10576 */- {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 10584 */- {.type FromH0, {.p C_off}}, /* dd C_off ; clear EOF flag 10592 */- {.type FromH0, {.p MC_TIB}}, /* dd MC_TIB ; constant puts address of tibuffer on the top 10600 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 10608 */- {.type Absolute, {.p 4096}}, /* dd 4096 ; ( tibuffer -- tibuffer 4096 ) 10616 */- {.type FromH0, {.p C_accept}}, /* dd C_accept ; ( tibuffer 4096 -- n ) 10624 */- {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n -- n n ) 10632 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq ; ( n n -- n f ) 10640 */- {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 10648 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 10656 */- {.type FromH0, {.p M_binand}}, /* dd M_binand ; n == 0 && EOF 10664 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10672 */- {.type FromH0, {.p L152}}, /* dd L152 ; false condition 10680 */- {.type FromH0, {.p M_drop}}, /* dd M_drop ; n == 0 && EOF ( n -- ) 10688 */- {.type FromH0, {.p C_qrestore_input}}, /* dd C_qrestore_input 10696 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 10704 */- {.type FromH0, {.p L153}}, /* dd L153 10712 */- {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 10720 */- {.type FromH0, {.p M_store}}, /* dd M_store ; number of characters to read >Limit = n 10728 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 10736 */- {.type FromH0, {.p C_off}}, /* dd C_off ; start from 0 >In = 0 10744 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10752 */- {.type Header, {.hdr { 6, "refill", /* C_refill = 10768 */ colon }}}, /* CENTRY "refill" refill 6 h 10776 */- {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 10784 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 10792 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10800 */- {.type FromH0, {.p L155}}, /* dd L155 10808 */- {.type FromH0, {.p C_false}}, /* dd C_false 10816 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 10824 */- {.type FromH0, {.p L156}}, /* dd L156 10832 */- {.type FromH0, {.p C_query}}, /* dd C_query 10840 */- {.type FromH0, {.p C_true}}, /* dd C_true 10848 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10856 */- {.type Header, {.hdr { 8, "findname", /* C_findname = 10872 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 10880 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( -- a2-a1 ) 10440 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon ; ( -- n ) (R -- ) 10448 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch ; ( n c a -- ) (R a a -- ) 10456 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore ; store the character at a 10464 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( n a -- ) (R a -- ) 10472 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 10480 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush ; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address 10488 */+ {.type FromH0, {.p C_1minus}}, /* dd C_1minus ; ( n -- n-1 ) 10496 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 10504 */+ {.type FromH0, {.p L148}}, /* dd L148 ; loop again for the next character 10512 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( -- a2 ) (R a1 a2 -- a1 ) 10520 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop ; ( a2 a1 -- ) (R a1 -- ) 10528 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( a2 a1 -- a2-a1 ) 10536 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10544 */+ {.type Header, {.hdr { 5, "query", /* C_query = 10560 */ colon }}}, /* CENTRY "query" query 5 ; read from input stream into the Text Input Buffer h 10568 */+ {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 10576 */+ {.type FromH0, {.p C_off}}, /* dd C_off ; clear EOF flag 10584 */+ {.type FromH0, {.p M_Tib}}, /* dd M_Tib ; constant puts address of tibuffer on the top 10592 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 10600 */+ {.type Absolute, {.p 4096}}, /* dd 4096 ; ( tibuffer -- tibuffer 4096 ) 10608 */+ {.type FromH0, {.p C_accept}}, /* dd C_accept ; ( tibuffer 4096 -- n ) 10616 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup ; ( n -- n n ) 10624 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq ; ( n n -- n f ) 10632 */+ {.type FromH0, {.p MV_Eof}}, /* dd MV_Eof 10640 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 10648 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand ; n == 0 && EOF 10656 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10664 */+ {.type FromH0, {.p L152}}, /* dd L152 ; false condition 10672 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop ; n == 0 && EOF ( n -- ) 10680 */+ {.type FromH0, {.p C_qrestore_input}}, /* dd C_qrestore_input 10688 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 10696 */+ {.type FromH0, {.p L153}}, /* dd L153 10704 */+ {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 10712 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; number of characters to read >Limit = n 10720 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 10728 */+ {.type FromH0, {.p C_off}}, /* dd C_off ; start from 0 >In = 0 10736 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10744 */+ {.type Header, {.hdr { 6, "refill", /* C_refill = 10760 */ colon }}}, /* CENTRY "refill" refill 6 h 10768 */+ {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 10776 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 10784 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 10792 */+ {.type FromH0, {.p L155}}, /* dd L155 10800 */+ {.type FromH0, {.p C_false}}, /* dd C_false 10808 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 10816 */+ {.type FromH0, {.p L156}}, /* dd L156 10824 */+ {.type FromH0, {.p C_query}}, /* dd C_query 10832 */+ {.type FromH0, {.p C_true}}, /* dd C_true 10840 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 10848 */+ {.type Header, {.hdr { 8, "findname", /* C_findname = 10872 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 10880 */ {.type FromH0, {.p MV_Findadr}}, /* dd MV_Findadr 10888 */ {.type FromH0, {.p M_store}}, /* dd M_store 10896 */ {.type FromH0, {.p M_Dp}}, /* dd M_Dp 10904 */@@ -1570,608 +1570,608 @@
{.type FromH0, {.p M_Dp}}, /* dd M_Dp 12272 */ {.type FromH0, {.p M_store}}, /* dd M_store 12280 */ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12288 */- {.type Header, {.hdr { 8, "variable", /* C_variable = 12304 */ colon }}}, /* CENTRY "variable" variable 8 h 12312 */- {.type FromH0, {.p C_create}}, /* dd C_create 12320 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12328 */- {.type Absolute, {.p 0}}, /* dd 0 12336 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 12344 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12352 */- {.type Header, {.hdr { 8, "constant", /* C_constant = 12368 */ colon }}}, /* CENTRY "constant" constant 8 h 12376 */- {.type FromH0, {.p C_create}}, /* dd C_create 12384 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12392 */- {.type FromH0, {.p M_constant}}, /* dd M_constant 12400 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 12408 */- {.type FromH0, {.p C_here}}, /* dd C_here 12416 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12424 */- {.type Absolute, {.p 1}}, /* dd 1 12432 */- {.type FromH0, {.p C_cells}}, /* dd C_cells 12440 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 12448 */- {.type FromH0, {.p M_store}}, /* dd M_store 12456 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 12464 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12472 */- {.type Header, {.hdr { 9, "immediate", /* C_immediate = 12496 */ colon }}}, /* CENTRY "immediate" immediate 9 h 12504 */- {.type FromH0, {.p M_Dp}}, /* dd M_Dp 12512 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 12520 */- {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 12528 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 12536 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 12544 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12552 */- {.type Absolute, {.p 128}}, /* dd 128 12560 */- {.type FromH0, {.p M_binor}}, /* dd M_binor 12568 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 12576 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 12584 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12592 */- {.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 12608 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 12616 */- {.type FromH0, {.p C_count}}, /* dd C_count 12624 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12632 */- {.type Absolute, {.p 63}}, /* dd 63 12640 */- {.type FromH0, {.p M_binand}}, /* dd M_binand 12648 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 12656 */- {.type FromH0, {.p C_aligned}}, /* dd C_aligned 12664 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12672 */- {.type Header, {.hdr { 7, "compile", /* C_compile = 12688 */ colon }}}, /* CENTRY "compile" compile 7 h 12696 */- {.type FromH0, {.p C_findname}}, /* dd C_findname 12704 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 12712 */- {.type FromH0, {.p L188}}, /* dd L188 12720 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 12728 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 12736 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12744 */- {.type Absolute, {.p 128}}, /* dd 128 12752 */- {.type FromH0, {.p M_binand}}, /* dd M_binand 12760 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 12768 */- {.type FromH0, {.p L189}}, /* dd L189 12776 */- {.type FromH0, {.p C_tocfa}}, /* dd C_tocfa ; immediate 12784 */- {.type FromH0, {.p M_execute}}, /* dd M_execute 12792 */- {.type FromH0, {.p C_qstack}}, /* dd C_qstack 12800 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 12808 */- {.type FromH0, {.p L190}}, /* dd L190 12816 */- {.type FromH0, {.p C_tocfa}}, /* dd C_tocfa 12824 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 12832 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 12840 */- {.type FromH0, {.p L191}}, /* dd L191 12848 */- {.type FromH0, {.p C_count}}, /* dd C_count 12856 */- {.type FromH0, {.p C_number}}, /* dd C_number 12864 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 12872 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 12880 */- {.type FromH0, {.p L192}}, /* dd L192 12888 */- {.type FromH0, {.p C_space}}, /* dd C_space 12896 */- {.type FromH0, {.p C_type}}, /* dd C_type 12904 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12912 */- {.type FromH0, {.p L193}}, /* dd L193 12920 */+ {.type Header, {.hdr { 8, "variable", /* C_variable = 12312 */ colon }}}, /* CENTRY "variable" variable 8 h 12320 */+ {.type FromH0, {.p C_create}}, /* dd C_create 12328 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 12336 */+ {.type Absolute, {.p 0}}, /* dd 0 12344 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 12352 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12360 */+ {.type Header, {.hdr { 8, "constant", /* C_constant = 12384 */ colon }}}, /* CENTRY "constant" constant 8 h 12392 */+ {.type FromH0, {.p C_create}}, /* dd C_create 12400 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 12408 */+ {.type FromH0, {.p M_constant}}, /* dd M_constant 12416 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 12424 */+ {.type FromH0, {.p C_here}}, /* dd C_here 12432 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 12440 */+ {.type Absolute, {.p 1}}, /* dd 1 12448 */+ {.type FromH0, {.p C_cells}}, /* dd C_cells 12456 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 12464 */+ {.type FromH0, {.p M_store}}, /* dd M_store 12472 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 12480 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12488 */+ {.type Header, {.hdr { 9, "immediate", /* C_immediate = 12512 */ colon }}}, /* CENTRY "immediate" immediate 9 h 12520 */+ {.type FromH0, {.p M_Dp}}, /* dd M_Dp 12528 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 12536 */+ {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 12544 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 12552 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 12560 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 12568 */+ {.type Absolute, {.p 128}}, /* dd 128 12576 */+ {.type FromH0, {.p M_binor}}, /* dd M_binor 12584 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 12592 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 12600 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12608 */+ {.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 12624 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 12632 */+ {.type FromH0, {.p C_count}}, /* dd C_count 12640 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 12648 */+ {.type Absolute, {.p 63}}, /* dd 63 12656 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand 12664 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 12672 */+ {.type FromH0, {.p C_aligned}}, /* dd C_aligned 12680 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 12688 */+ {.type Header, {.hdr { 7, "compile", /* C_compile = 12704 */ colon }}}, /* CENTRY "compile" compile 7 h 12712 */+ {.type FromH0, {.p C_findname}}, /* dd C_findname 12720 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 12728 */+ {.type FromH0, {.p L188}}, /* dd L188 12736 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 12744 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 12752 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 12760 */+ {.type Absolute, {.p 128}}, /* dd 128 12768 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand 12776 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 12784 */+ {.type FromH0, {.p L189}}, /* dd L189 12792 */+ {.type FromH0, {.p C_tocfa}}, /* dd C_tocfa ; immediate 12800 */+ {.type FromH0, {.p M_execute}}, /* dd M_execute 12808 */+ {.type FromH0, {.p C_qstack}}, /* dd C_qstack 12816 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 12824 */+ {.type FromH0, {.p L190}}, /* dd L190 12832 */+ {.type FromH0, {.p C_tocfa}}, /* dd C_tocfa 12840 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 12848 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 12856 */+ {.type FromH0, {.p L191}}, /* dd L191 12864 */+ {.type FromH0, {.p C_count}}, /* dd C_count 12872 */+ {.type FromH0, {.p C_number}}, /* dd C_number 12880 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 12888 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 12896 */+ {.type FromH0, {.p L192}}, /* dd L192 12904 */+ {.type FromH0, {.p C_space}}, /* dd C_space 12912 */+ {.type FromH0, {.p C_type}}, /* dd C_type 12920 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 12928 */- {.type Absolute, {.p 3}}, /* dd 3 12936 */- {.type FromH0, {.p C_type}}, /* dd C_type 12944 */- {.type FromH0, {.p C_cr}}, /* dd C_cr 12952 */- {.type FromH0, {.p C_abort}}, /* dd C_abort 12960 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 12968 */- {.type FromH0, {.p L194}}, /* dd L194 12976 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12984 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 12992 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 13000 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 13008 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13016 */- {.type Header, {.hdr { 1, "]", /* C_close_bracket = 13032 */ colon }}}, /* CENTRY "]" close_bracket 1 h 13040 */- {.type FromH0, {.p MV_State}}, /* dd MV_State 13048 */- {.type FromH0, {.p C_on}}, /* dd C_on 13056 */- {.type FromH0, {.p C_bl}}, /* dd C_bl 13064 */- {.type FromH0, {.p C_word}}, /* dd C_word 13072 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 13080 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13088 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 13096 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 13104 */- {.type FromH0, {.p L197}}, /* dd L197 13112 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 13120 */- {.type FromH0, {.p C_refill}}, /* dd C_refill 13128 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 13136 */- {.type FromH0, {.p L198}}, /* dd L198 13144 */- {.type FromH0, {.p C_compile}}, /* dd C_compile 13152 */- {.type FromH0, {.p MV_State}}, /* dd MV_State 13160 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13168 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 13176 */- {.type FromH0, {.p L199}}, /* dd L199 13184 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 13192 */- {.type FromH0, {.p L196}}, /* dd L196 13200 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13208 */- {.type FromH0, {.p MV_State}}, /* dd MV_State 13216 */- {.type FromH0, {.p C_off}}, /* dd C_off 13224 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13232 */- {.type Header, {.hdr { 6, "smudge", /* C_smudge = 13248 */ colon }}}, /* CENTRY "smudge" smudge 6 h 13256 */- {.type FromH0, {.p M_Dp}}, /* dd M_Dp 13264 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13272 */- {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 13280 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 13288 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13296 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13304 */- {.type Absolute, {.p 64}}, /* dd 64 13312 */- {.type FromH0, {.p M_binor}}, /* dd M_binor 13320 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 13328 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 13336 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13344 */- {.type Header, {.hdr { 6, "reveal", /* C_reveal = 13360 */ colon }}}, /* CENTRY "reveal" reveal 6 h 13368 */- {.type FromH0, {.p M_Dp}}, /* dd M_Dp 13376 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13384 */- {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 13392 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 13400 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13408 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13416 */- {.type Absolute, {.p 64}}, /* dd 64 13424 */- {.type FromH0, {.p C_invert}}, /* dd C_invert 13432 */- {.type FromH0, {.p M_binand}}, /* dd M_binand 13440 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 13448 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 13456 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13464 */- {.type Header, {.hdr { 1, ":", /* C_colon = 13480 */ colon }}}, /* CENTRY ":" colon 1 h 13488 */- {.type FromH0, {.p C_create}}, /* dd C_create 13496 */- {.type FromH0, {.p C_smudge}}, /* dd C_smudge 13504 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13512 */- {.type FromH0, {.p M_colon}}, /* dd M_colon 13520 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13528 */- {.type FromH0, {.p C_here}}, /* dd C_here 13536 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13544 */- {.type Absolute, {.p 1}}, /* dd 1 13552 */- {.type FromH0, {.p C_cells}}, /* dd C_cells 13560 */- {.type FromH0, {.p M_minus}}, /* dd M_minus 13568 */- {.type FromH0, {.p M_store}}, /* dd M_store 13576 */- {.type FromH0, {.p C_close_bracket}}, /* dd C_close_bracket 13584 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13592 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13600 */+ {.type FromH0, {.p L193}}, /* dd L193 12936 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 12944 */+ {.type Absolute, {.p 3}}, /* dd 3 12952 */+ {.type FromH0, {.p C_type}}, /* dd C_type 12960 */+ {.type FromH0, {.p C_cr}}, /* dd C_cr 12968 */+ {.type FromH0, {.p C_abort}}, /* dd C_abort 12976 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 12984 */+ {.type FromH0, {.p L194}}, /* dd L194 12992 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13000 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13008 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 13016 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 13024 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13032 */+ {.type Header, {.hdr { 1, "]", /* C_close_bracket = 13048 */ colon }}}, /* CENTRY "]" close_bracket 1 h 13056 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State 13064 */+ {.type FromH0, {.p C_on}}, /* dd C_on 13072 */+ {.type FromH0, {.p C_bl}}, /* dd C_bl 13080 */+ {.type FromH0, {.p C_word}}, /* dd C_word 13088 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 13096 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13104 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 13112 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 13120 */+ {.type FromH0, {.p L197}}, /* dd L197 13128 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 13136 */+ {.type FromH0, {.p C_refill}}, /* dd C_refill 13144 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 13152 */+ {.type FromH0, {.p L198}}, /* dd L198 13160 */+ {.type FromH0, {.p C_compile}}, /* dd C_compile 13168 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State 13176 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13184 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 13192 */+ {.type FromH0, {.p L199}}, /* dd L199 13200 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 13208 */+ {.type FromH0, {.p L196}}, /* dd L196 13216 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13224 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State 13232 */+ {.type FromH0, {.p C_off}}, /* dd C_off 13240 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13248 */+ {.type Header, {.hdr { 6, "smudge", /* C_smudge = 13264 */ colon }}}, /* CENTRY "smudge" smudge 6 h 13272 */+ {.type FromH0, {.p M_Dp}}, /* dd M_Dp 13280 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13288 */+ {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 13296 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 13304 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13312 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13320 */+ {.type Absolute, {.p 64}}, /* dd 64 13328 */+ {.type FromH0, {.p M_binor}}, /* dd M_binor 13336 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 13344 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 13352 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13360 */+ {.type Header, {.hdr { 6, "reveal", /* C_reveal = 13376 */ colon }}}, /* CENTRY "reveal" reveal 6 h 13384 */+ {.type FromH0, {.p M_Dp}}, /* dd M_Dp 13392 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13400 */+ {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 13408 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 13416 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13424 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13432 */+ {.type Absolute, {.p 64}}, /* dd 64 13440 */+ {.type FromH0, {.p C_invert}}, /* dd C_invert 13448 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand 13456 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 13464 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 13472 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13480 */+ {.type Header, {.hdr { 1, ":", /* C_colon = 13496 */ colon }}}, /* CENTRY ":" colon 1 h 13504 */+ {.type FromH0, {.p C_create}}, /* dd C_create 13512 */+ {.type FromH0, {.p C_smudge}}, /* dd C_smudge 13520 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13528 */+ {.type FromH0, {.p M_colon}}, /* dd M_colon 13536 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13544 */+ {.type FromH0, {.p C_here}}, /* dd C_here 13552 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13560 */+ {.type Absolute, {.p 1}}, /* dd 1 13568 */+ {.type FromH0, {.p C_cells}}, /* dd C_cells 13576 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus 13584 */+ {.type FromH0, {.p M_store}}, /* dd M_store 13592 */+ {.type FromH0, {.p C_close_bracket}}, /* dd C_close_bracket 13600 */ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13608 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 13616 */- {.type FromH0, {.p MV_State}}, /* dd MV_State 13624 */- {.type FromH0, {.p C_off}}, /* dd C_off 13632 */- {.type FromH0, {.p C_reveal}}, /* dd C_reveal 13640 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13648 */- {.type FromH0, {.p M_Dp}}, /* dd M_Dp 13656 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13664 */- {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 13672 */- {.type FromH0, {.p C_tocfa}}, /* dd C_tocfa 13680 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 13688 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13696 */- {.type Header, {.hdr { 4, "char", /* C_L206 = 13712 */ colon }}}, /* CENTRY "char" L206 4 h 13720 */- {.type FromH0, {.p C_bl}}, /* dd C_bl 13728 */- {.type FromH0, {.p C_word}}, /* dd C_word 13736 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 13744 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13752 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13760 */- {.type Header, {.hdr { 7, "literal", /* C_literal = 13776 */ colon }}}, /* CENTRY "literal" literal 7 h 13784 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13792 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13800 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 13808 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 13816 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13824 */- {.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 13840 */ colon }}}, /* CENTRY "sliteral" sliteral 8 h 13848 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13856 */- {.type FromH0, {.p M_sliteral}}, /* dd M_sliteral 13864 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 13872 */- {.type FromH0, {.p C_here}}, /* dd C_here 13880 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 13888 */- {.type Absolute, {.p 34}}, /* dd 34 13896 */- {.type FromH0, {.p C_parse}}, /* dd C_parse 13904 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 13912 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13920 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 13928 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 13936 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 13944 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 13952 */- {.type FromH0, {.p M_cmove}}, /* dd M_cmove 13960 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 13968 */- {.type FromH0, {.p C_allot}}, /* dd C_allot 13976 */- {.type FromH0, {.p C_align}}, /* dd C_align 13984 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13992 */- {.type Header, {.hdr { 6, "string", /* C_string = 14008 */ colon }}}, /* CENTRY "string" string 6 h 14016 */- {.type FromH0, {.p C_word}}, /* dd C_word 14024 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 14032 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 14040 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 14048 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 14056 */- {.type FromH0, {.p C_here}}, /* dd C_here 14064 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 14072 */- {.type FromH0, {.p M_cmove}}, /* dd M_cmove 14080 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 14088 */- {.type FromH0, {.p C_allot}}, /* dd C_allot 14096 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14104 */- {.type FromH0, {.p C_bl}}, /* dd C_bl 14112 */- {.type FromH0, {.p C_word}}, /* dd C_word 14120 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 14128 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 14136 */- {.type FromH0, {.p C_literal}}, /* dd C_literal 14144 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14152 */- {.type FromH0, {.p C_single_quote}}, /* dd C_single_quote 14160 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13616 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13624 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 13632 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State 13640 */+ {.type FromH0, {.p C_off}}, /* dd C_off 13648 */+ {.type FromH0, {.p C_reveal}}, /* dd C_reveal 13656 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13664 */+ {.type FromH0, {.p M_Dp}}, /* dd M_Dp 13672 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 13680 */+ {.type FromH0, {.p C_cellplus}}, /* dd C_cellplus 13688 */+ {.type FromH0, {.p C_tocfa}}, /* dd C_tocfa 13696 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 13704 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13712 */+ {.type Header, {.hdr { 4, "char", /* C_L206 = 13728 */ colon }}}, /* CENTRY "char" L206 4 h 13736 */+ {.type FromH0, {.p C_bl}}, /* dd C_bl 13744 */+ {.type FromH0, {.p C_word}}, /* dd C_word 13752 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 13760 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13768 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13776 */+ {.type Header, {.hdr { 7, "literal", /* C_literal = 13792 */ colon }}}, /* CENTRY "literal" literal 7 h 13800 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13808 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13816 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 13824 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 13832 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 13840 */+ {.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 13864 */ colon }}}, /* CENTRY "sliteral" sliteral 8 h 13872 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13880 */+ {.type FromH0, {.p M_sliteral}}, /* dd M_sliteral 13888 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 13896 */+ {.type FromH0, {.p C_here}}, /* dd C_here 13904 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 13912 */+ {.type Absolute, {.p 34}}, /* dd 34 13920 */+ {.type FromH0, {.p C_parse}}, /* dd C_parse 13928 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 13936 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 13944 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 13952 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 13960 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 13968 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 13976 */+ {.type FromH0, {.p M_cmove}}, /* dd M_cmove 13984 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 13992 */+ {.type FromH0, {.p C_allot}}, /* dd C_allot 14000 */+ {.type FromH0, {.p C_align}}, /* dd C_align 14008 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14016 */+ {.type Header, {.hdr { 6, "string", /* C_string = 14032 */ colon }}}, /* CENTRY "string" string 6 h 14040 */+ {.type FromH0, {.p C_word}}, /* dd C_word 14048 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 14056 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 14064 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 14072 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 14080 */+ {.type FromH0, {.p C_here}}, /* dd C_here 14088 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 14096 */+ {.type FromH0, {.p M_cmove}}, /* dd M_cmove 14104 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 14112 */+ {.type FromH0, {.p C_allot}}, /* dd C_allot 14120 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14128 */+ {.type FromH0, {.p C_bl}}, /* dd C_bl 14136 */+ {.type FromH0, {.p C_word}}, /* dd C_word 14144 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 14152 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 14160 */ {.type FromH0, {.p C_literal}}, /* dd C_literal 14168 */ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14176 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 14184 */- {.type Absolute, {.p 41}}, /* dd 41 14192 */- {.type FromH0, {.p C_parse}}, /* dd C_parse 14200 */- {.type FromH0, {.p M_drop}}, /* dd M_drop 14208 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14216 */- {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 14224 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 14232 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 14240 */- {.type FromH0, {.p L214}}, /* dd L214 14248 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 14256 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 14264 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 14272 */- {.type Absolute, {.p 63}}, /* dd 63 14280 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 14288 */+ {.type FromH0, {.p C_single_quote}}, /* dd C_single_quote 14184 */+ {.type FromH0, {.p C_literal}}, /* dd C_literal 14192 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14200 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 14208 */+ {.type Absolute, {.p 41}}, /* dd 41 14216 */+ {.type FromH0, {.p C_parse}}, /* dd C_parse 14224 */+ {.type FromH0, {.p M_drop}}, /* dd M_drop 14232 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14240 */+ {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk 14248 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 14256 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 14264 */+ {.type FromH0, {.p L214}}, /* dd L214 14272 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 14280 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 14288 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 14296 */ {.type Absolute, {.p 63}}, /* dd 63 14304 */- {.type FromH0, {.p C_invert}}, /* dd C_invert 14312 */- {.type FromH0, {.p M_binand}}, /* dd M_binand 14320 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 14328 */- {.type FromH0, {.p M_store}}, /* dd M_store 14336 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 14344 */- {.type FromH0, {.p L215}}, /* dd L215 14352 */- {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 14360 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 14368 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 14376 */- {.type FromH0, {.p M_store}}, /* dd M_store 14384 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14392 */- {.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 14408 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 14416 */- {.type FromH0, {.p MV_State}}, /* dd MV_State 14424 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 14432 */- {.type FromH0, {.p L217}}, /* dd L217 14440 */- {.type FromH0, {.p C_space}}, /* dd C_space 14448 */- {.type FromH0, {.p C_type}}, /* dd C_type 14456 */- {.type FromH0, {.p C_cr}}, /* dd C_cr 14464 */- {.type FromH0, {.p C_abort}}, /* dd C_abort 14472 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 14480 */- {.type FromH0, {.p L218}}, /* dd L218 14488 */- {.type FromH0, {.p C_2drop}}, /* dd C_2drop 14496 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14504 */- {.type FromH0, {.p C_sliteral}}, /* dd C_sliteral 14512 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 14520 */- {.type FromH0, {.p C_qabort_parens}}, /* dd C_qabort_parens 14528 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 14536 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14544 */- {.type Header, {.hdr { 1, "\"", /* C_double_quote = 14560 */ colon }}}, /* CENTRY "\"" double_quote 1 h 14568 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 14576 */- {.type Absolute, {.p 34}}, /* dd 34 14584 */- {.type FromH0, {.p C_word}}, /* dd C_word 14592 */- {.type FromH0, {.p C_count}}, /* dd C_count 14600 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 14608 */- {.type FromH0, {.p C_here}}, /* dd C_here 14616 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 14624 */- {.type FromH0, {.p M_cmove}}, /* dd M_cmove 14632 */- {.type FromH0, {.p C_here}}, /* dd C_here 14640 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 14648 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 14656 */- {.type FromH0, {.p C_allot}}, /* dd C_allot 14664 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14672 */- {.type Header, {.hdr { 2, "c\"", /* C_cdouble_quote = 14688 */ colon }}}, /* CENTRY "c\"" cdouble_quote 2 h 14696 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 14704 */- {.type Absolute, {.p 34}}, /* dd 34 14712 */- {.type FromH0, {.p C_word}}, /* dd C_word 14720 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 14728 */- {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 14736 */- {.type FromH0, {.p C_1plus}}, /* dd C_1plus 14744 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 14752 */- {.type FromH0, {.p C_here}}, /* dd C_here 14760 */- {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 14768 */- {.type FromH0, {.p M_cmove}}, /* dd M_cmove 14776 */- {.type FromH0, {.p C_here}}, /* dd C_here 14784 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 14792 */- {.type FromH0, {.p C_allot}}, /* dd C_allot 14800 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14808 */- {.type FromH0, {.p C_sliteral}}, /* dd C_sliteral 14816 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14824 */- {.type FromH0, {.p C_sliteral}}, /* dd C_sliteral 14832 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 14840 */- {.type FromH0, {.p C_type}}, /* dd C_type 14848 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 14856 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14864 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 14312 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 14320 */+ {.type Absolute, {.p 63}}, /* dd 63 14328 */+ {.type FromH0, {.p C_invert}}, /* dd C_invert 14336 */+ {.type FromH0, {.p M_binand}}, /* dd M_binand 14344 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 14352 */+ {.type FromH0, {.p M_store}}, /* dd M_store 14360 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 14368 */+ {.type FromH0, {.p L215}}, /* dd L215 14376 */+ {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 14384 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 14392 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 14400 */+ {.type FromH0, {.p M_store}}, /* dd M_store 14408 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14416 */+ {.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 14440 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 14448 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State 14456 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 14464 */+ {.type FromH0, {.p L217}}, /* dd L217 14472 */+ {.type FromH0, {.p C_space}}, /* dd C_space 14480 */+ {.type FromH0, {.p C_type}}, /* dd C_type 14488 */+ {.type FromH0, {.p C_cr}}, /* dd C_cr 14496 */+ {.type FromH0, {.p C_abort}}, /* dd C_abort 14504 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 14512 */+ {.type FromH0, {.p L218}}, /* dd L218 14520 */+ {.type FromH0, {.p C_2drop}}, /* dd C_2drop 14528 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14536 */+ {.type FromH0, {.p C_sliteral}}, /* dd C_sliteral 14544 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 14552 */+ {.type FromH0, {.p C_qabort_parens}}, /* dd C_qabort_parens 14560 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 14568 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14576 */+ {.type Header, {.hdr { 1, "\"", /* C_double_quote = 14592 */ colon }}}, /* CENTRY "\"" double_quote 1 h 14600 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 14608 */+ {.type Absolute, {.p 34}}, /* dd 34 14616 */+ {.type FromH0, {.p C_word}}, /* dd C_word 14624 */+ {.type FromH0, {.p C_count}}, /* dd C_count 14632 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 14640 */+ {.type FromH0, {.p C_here}}, /* dd C_here 14648 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 14656 */+ {.type FromH0, {.p M_cmove}}, /* dd M_cmove 14664 */+ {.type FromH0, {.p C_here}}, /* dd C_here 14672 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 14680 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 14688 */+ {.type FromH0, {.p C_allot}}, /* dd C_allot 14696 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14704 */+ {.type Header, {.hdr { 2, "c\"", /* C_cdouble_quote = 14720 */ colon }}}, /* CENTRY "c\"" cdouble_quote 2 h 14728 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 14736 */+ {.type Absolute, {.p 34}}, /* dd 34 14744 */+ {.type FromH0, {.p C_word}}, /* dd C_word 14752 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 14760 */+ {.type FromH0, {.p M_cfetch}}, /* dd M_cfetch 14768 */+ {.type FromH0, {.p C_1plus}}, /* dd C_1plus 14776 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 14784 */+ {.type FromH0, {.p C_here}}, /* dd C_here 14792 */+ {.type FromH0, {.p M_rfetch}}, /* dd M_rfetch 14800 */+ {.type FromH0, {.p M_cmove}}, /* dd M_cmove 14808 */+ {.type FromH0, {.p C_here}}, /* dd C_here 14816 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 14824 */+ {.type FromH0, {.p C_allot}}, /* dd C_allot 14832 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14840 */+ {.type FromH0, {.p C_sliteral}}, /* dd C_sliteral 14848 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14856 */+ {.type FromH0, {.p C_sliteral}}, /* dd C_sliteral 14864 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 14872 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 14880 */+ {.type FromH0, {.p C_type}}, /* dd C_type 14880 */ {.type FromH0, {.p C_comma}}, /* dd C_comma 14888 */- {.type FromH0, {.p C_here}}, /* dd C_here 14896 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14896 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 14904 */- {.type Absolute, {.p 0}}, /* dd 0 14912 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 14912 */ {.type FromH0, {.p C_comma}}, /* dd C_comma 14920 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14928 */+ {.type FromH0, {.p C_here}}, /* dd C_here 14928 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 14936 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 14944 */+ {.type Absolute, {.p 0}}, /* dd 0 14944 */ {.type FromH0, {.p C_comma}}, /* dd C_comma 14952 */- {.type FromH0, {.p C_here}}, /* dd C_here 14960 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 14968 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 14976 */- {.type Absolute, {.p 0}}, /* dd 0 14984 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 14992 */- {.type FromH0, {.p C_here}}, /* dd C_here 15000 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15008 */- {.type FromH0, {.p M_store}}, /* dd M_store 15016 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 15024 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15032 */- {.type FromH0, {.p C_here}}, /* dd C_here 15040 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15048 */- {.type FromH0, {.p M_store}}, /* dd M_store 15056 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 14960 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 14968 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 14976 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 14984 */+ {.type FromH0, {.p C_here}}, /* dd C_here 14992 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 15000 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15008 */+ {.type Absolute, {.p 0}}, /* dd 0 15016 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15024 */+ {.type FromH0, {.p C_here}}, /* dd C_here 15032 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15040 */+ {.type FromH0, {.p M_store}}, /* dd M_store 15048 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 15056 */ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15064 */ {.type FromH0, {.p C_here}}, /* dd C_here 15072 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15080 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15088 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 15096 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15104 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15112 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15120 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15128 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15136 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15080 */+ {.type FromH0, {.p M_store}}, /* dd M_store 15088 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15096 */+ {.type FromH0, {.p C_here}}, /* dd C_here 15104 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15112 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15120 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 15128 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15136 */ {.type FromH0, {.p C_comma}}, /* dd C_comma 15144 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15152 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15160 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15168 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15176 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15152 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15160 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15168 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15176 */ {.type FromH0, {.p C_comma}}, /* dd C_comma 15184 */- {.type FromH0, {.p C_here}}, /* dd C_here 15192 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15192 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 15200 */- {.type Absolute, {.p 0}}, /* dd 0 15208 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15208 */ {.type FromH0, {.p C_comma}}, /* dd C_comma 15216 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15224 */+ {.type FromH0, {.p C_here}}, /* dd C_here 15224 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 15232 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 15240 */+ {.type Absolute, {.p 0}}, /* dd 0 15240 */ {.type FromH0, {.p C_comma}}, /* dd C_comma 15248 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15256 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15264 */- {.type FromH0, {.p C_here}}, /* dd C_here 15272 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15280 */- {.type FromH0, {.p M_store}}, /* dd M_store 15288 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15296 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15304 */- {.type FromH0, {.p M_doinit}}, /* dd M_doinit 15312 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15320 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15328 */- {.type Absolute, {.p 0}}, /* dd 0 15336 */- {.type FromH0, {.p C_here}}, /* dd C_here 15344 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15352 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15360 */- {.type FromH0, {.p M_doloop}}, /* dd M_doloop 15368 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15376 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15384 */- {.type FromH0, {.p C_qdup}}, /* dd C_qdup 15392 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15400 */- {.type FromH0, {.p L234}}, /* dd L234 15408 */- {.type FromH0, {.p C_here}}, /* dd C_here 15416 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15424 */- {.type FromH0, {.p M_store}}, /* dd M_store 15432 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15440 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15448 */- {.type FromH0, {.p M_doploop}}, /* dd M_doploop 15456 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15464 */- {.type FromH0, {.p C_comma}}, /* dd C_comma 15472 */- {.type FromH0, {.p C_qdup}}, /* dd C_qdup 15480 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15488 */- {.type FromH0, {.p L236}}, /* dd L236 15496 */- {.type FromH0, {.p C_here}}, /* dd C_here 15504 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15512 */- {.type FromH0, {.p M_store}}, /* dd M_store 15520 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15528 */- {.type Header, {.hdr { 3, "w/o", /* C_wo = 15544 */ colon }}}, /* CENTRY "w/o" wo 3 h 15552 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15560 */- {.type Absolute, {.p 1}}, /* dd 1 15568 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15576 */- {.type Absolute, {.p 512}}, /* dd 512 15584 */- {.type FromH0, {.p M_binor}}, /* dd M_binor 15592 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15600 */- {.type Absolute, {.p 64}}, /* dd 64 15608 */- {.type FromH0, {.p M_binor}}, /* dd M_binor 15616 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15624 */- {.type Header, {.hdr { 3, "r/o", /* C_ro = 15640 */ colon }}}, /* CENTRY "r/o" ro 3 h 15648 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15656 */- {.type Absolute, {.p 0}}, /* dd 0 15664 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15672 */- {.type Header, {.hdr { 3, "r/w", /* C_rw = 15688 */ colon }}}, /* CENTRY "r/w" rw 3 h 15696 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15704 */- {.type Absolute, {.p 2}}, /* dd 2 15712 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15720 */- {.type Header, {.hdr { 9, "open-file", /* C_open_file = 15744 */ colon }}}, /* CENTRY "open-file" open_file 9 h 15752 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 15760 */- {.type FromH0, {.p C_pad}}, /* dd C_pad 15768 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15776 */- {.type Absolute, {.p 1024}}, /* dd 1024 15784 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 15792 */- {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15800 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 15808 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 15816 */- {.type FromH0, {.p M_cmove}}, /* dd M_cmove 15824 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15832 */- {.type Absolute, {.p 0}}, /* dd 0 15840 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 15848 */- {.type FromH0, {.p C_pad}}, /* dd C_pad 15856 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 15864 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15872 */- {.type Absolute, {.p 1024}}, /* dd 1024 15880 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 15888 */- {.type FromH0, {.p M_cstore}}, /* dd M_cstore 15896 */- {.type FromH0, {.p C_pad}}, /* dd C_pad 15904 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 15912 */- {.type Absolute, {.p 1024}}, /* dd 1024 15920 */- {.type FromH0, {.p M_plus}}, /* dd M_plus 15928 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 15936 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15256 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15264 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 15272 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15280 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15288 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15296 */+ {.type FromH0, {.p C_here}}, /* dd C_here 15304 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15312 */+ {.type FromH0, {.p M_store}}, /* dd M_store 15320 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15328 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15336 */+ {.type FromH0, {.p M_doinit}}, /* dd M_doinit 15344 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15352 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15360 */+ {.type Absolute, {.p 0}}, /* dd 0 15368 */+ {.type FromH0, {.p C_here}}, /* dd C_here 15376 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15384 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15392 */+ {.type FromH0, {.p M_doloop}}, /* dd M_doloop 15400 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15408 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15416 */+ {.type FromH0, {.p C_qdup}}, /* dd C_qdup 15424 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15432 */+ {.type FromH0, {.p L234}}, /* dd L234 15440 */+ {.type FromH0, {.p C_here}}, /* dd C_here 15448 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15456 */+ {.type FromH0, {.p M_store}}, /* dd M_store 15464 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15472 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15480 */+ {.type FromH0, {.p M_doploop}}, /* dd M_doploop 15488 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15496 */+ {.type FromH0, {.p C_comma}}, /* dd C_comma 15504 */+ {.type FromH0, {.p C_qdup}}, /* dd C_qdup 15512 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 15520 */+ {.type FromH0, {.p L236}}, /* dd L236 15528 */+ {.type FromH0, {.p C_here}}, /* dd C_here 15536 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15544 */+ {.type FromH0, {.p M_store}}, /* dd M_store 15552 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15560 */+ {.type Header, {.hdr { 3, "w/o", /* C_wo = 15576 */ colon }}}, /* CENTRY "w/o" wo 3 h 15584 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15592 */+ {.type Absolute, {.p 1}}, /* dd 1 15600 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15608 */+ {.type Absolute, {.p 512}}, /* dd 512 15616 */+ {.type FromH0, {.p M_binor}}, /* dd M_binor 15624 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15632 */+ {.type Absolute, {.p 64}}, /* dd 64 15640 */+ {.type FromH0, {.p M_binor}}, /* dd M_binor 15648 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15656 */+ {.type Header, {.hdr { 3, "r/o", /* C_ro = 15672 */ colon }}}, /* CENTRY "r/o" ro 3 h 15680 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15688 */+ {.type Absolute, {.p 0}}, /* dd 0 15696 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15704 */+ {.type Header, {.hdr { 3, "r/w", /* C_rw = 15720 */ colon }}}, /* CENTRY "r/w" rw 3 h 15728 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15736 */+ {.type Absolute, {.p 2}}, /* dd 2 15744 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 15752 */+ {.type Header, {.hdr { 9, "open-file", /* C_open_file = 15776 */ colon }}}, /* CENTRY "open-file" open_file 9 h 15784 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 15792 */+ {.type FromH0, {.p C_pad}}, /* dd C_pad 15800 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15808 */+ {.type Absolute, {.p 1024}}, /* dd 1024 15816 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 15824 */+ {.type FromH0, {.p M_xswap}}, /* dd M_xswap 15832 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 15840 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 15848 */+ {.type FromH0, {.p M_cmove}}, /* dd M_cmove 15856 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15864 */+ {.type Absolute, {.p 0}}, /* dd 0 15872 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 15880 */+ {.type FromH0, {.p C_pad}}, /* dd C_pad 15888 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 15896 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 15904 */+ {.type Absolute, {.p 1024}}, /* dd 1024 15912 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 15920 */+ {.type FromH0, {.p M_cstore}}, /* dd M_cstore 15928 */+ {.type FromH0, {.p C_pad}}, /* dd C_pad 15936 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 15944 */- {.type Absolute, {.p 420}}, /* dd 420 15952 */- {.type FromH0, {.p M_fthopen}}, /* dd M_fthopen 15960 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 15968 */+ {.type Absolute, {.p 1024}}, /* dd 1024 15952 */+ {.type FromH0, {.p M_plus}}, /* dd M_plus 15960 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 15968 */ {.type FromH0, {.p M_literal}}, /* dd M_literal 15976 */- {.type Absolute, {.p -1}}, /* dd -1 15984 */- {.type FromH0, {.p M_greater}}, /* dd M_greater 15992 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16000 */- {.type Header, {.hdr { 10, "close-file", /* C_close_file = 16024 */ colon }}}, /* CENTRY "close-file" close_file 10 h 16032 */- {.type FromH0, {.p M_fthclose}}, /* dd M_fthclose 16040 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 16048 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16056 */- {.type Header, {.hdr { 9, "read-file", /* C_read_file = 16080 */ colon }}}, /* CENTRY "read-file" read_file 9 h 16088 */- {.type FromH0, {.p M_fthread}}, /* dd M_fthread 16096 */- {.type FromH0, {.p M_dup}}, /* dd M_dup 16104 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16112 */- {.type Absolute, {.p -1}}, /* dd -1 16120 */- {.type FromH0, {.p C_neq}}, /* dd C_neq 16128 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16136 */- {.type Header, {.hdr { 10, "write-file", /* C_write_file = 16160 */ colon }}}, /* CENTRY "write-file" write_file 10 h 16168 */- {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite 16176 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16184 */- {.type Absolute, {.p -1}}, /* dd -1 16192 */- {.type FromH0, {.p C_neq}}, /* dd C_neq 16200 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16208 */- {.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 16232 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 h 16240 */- {.type FromH0, {.p M_fthseek}}, /* dd M_fthseek 16248 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16256 */- {.type Absolute, {.p -1}}, /* dd -1 16264 */- {.type FromH0, {.p C_neq}}, /* dd C_neq 16272 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16280 */- {.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 16296 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 16304 */- {.type FromH0, {.p C_0eq}}, /* dd C_0eq 16312 */- {.type FromH0, {.p M_cjump}}, /* dd M_cjump 16320 */- {.type FromH0, {.p L246}}, /* dd L246 16328 */- {.type FromH0, {.p C_space}}, /* dd C_space 16336 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16344 */- {.type FromH0, {.p L247}}, /* dd L247 16352 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16360 */- {.type Absolute, {.p 9}}, /* dd 9 16368 */- {.type FromH0, {.p C_type}}, /* dd C_type 16376 */- {.type FromH0, {.p C_cr}}, /* dd C_cr 16384 */- {.type FromH0, {.p C_abort}}, /* dd C_abort 16392 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16400 */- {.type Header, {.hdr { 3, "bye", /* C_bye = 16416 */ colon }}}, /* CENTRY "bye" bye 3 h 16424 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16432 */- {.type Absolute, {.p 0}}, /* dd 0 16440 */- {.type FromH0, {.p M_terminate}}, /* dd M_terminate 16448 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16456 */- {.type Header, {.hdr { 7, "include", /* C_include = 16472 */ colon }}}, /* CENTRY "include" include 7 h 16480 */- {.type FromH0, {.p C_bl}}, /* dd C_bl 16488 */- {.type FromH0, {.p C_word}}, /* dd C_word 16496 */- {.type FromH0, {.p M_rpush}}, /* dd M_rpush 16504 */- {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 16512 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch 16520 */- {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 16528 */- {.type FromH0, {.p M_store}}, /* dd M_store 16536 */- {.type FromH0, {.p C_save_input}}, /* dd C_save_input 16544 */- {.type FromH0, {.p M_rpop}}, /* dd M_rpop 16552 */- {.type FromH0, {.p C_count}}, /* dd C_count 16560 */- {.type FromH0, {.p C_ro}}, /* dd C_ro 16568 */- {.type FromH0, {.p C_open_file}}, /* dd C_open_file 16576 */- {.type FromH0, {.p C_qfcheck}}, /* dd C_qfcheck 16584 */- {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 16592 */- {.type FromH0, {.p M_store}}, /* dd M_store 16600 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16608 */- {.type Header, {.hdr { 5, "crash", /* C_crash = 16624 */ colon }}}, /* CENTRY "crash" crash 5 h 16632 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16640 */- {.type FromH0, {.p L251}}, /* dd L251 16648 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 16656 */- {.type Absolute, {.p 30}}, /* dd 30 16664 */- {.type FromH0, {.p C_type}}, /* dd C_type 16672 */- {.type FromH0, {.p C_cr}}, /* dd C_cr 16680 */- {.type FromH0, {.p C_abort}}, /* dd C_abort 16688 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16696 */- {.type Header, {.hdr { 4, "quit", /* C_quit = 16712 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 16720 */- {.type FromH0, {.p M_reset}}, /* dd M_reset ; initialize return stack 16728 */- {.type FromH0, {.p M_clear}}, /* dd M_clear ; SP = sstack_end initialize data stack 16736 */- {.type FromH0, {.p C_query}}, /* dd C_query 16744 */- {.type FromH0, {.p C_interpret}}, /* dd C_interpret 16752 */- {.type FromH0, {.p M_jump}}, /* dd M_jump 16760 */- {.type FromH0, {.p L253}}, /* dd L253 16768 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon ; why is this needed? 16776 */- {.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 16792 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 16800 */- {.type FromH0, {.p MV_State}}, /* dd MV_State ; ( mv_State -- ) 16808 */- {.type FromH0, {.p C_off}}, /* dd C_off ; off sets variable state = 0 16816 */- {.type FromH0, {.p MC_TIB}}, /* dd MC_TIB ; constant puts address of tibuffer on the top of stack 16824 */- {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf ; variable sourcebuf 16832 */- {.type FromH0, {.p M_store}}, /* dd M_store ; variable sourcebuf = address of tibuffer 16840 */- {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk ; variable blk 16848 */- {.type FromH0, {.p C_off}}, /* dd C_off ; off variable blk = 0 16856 */- {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 16864 */- {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 16872 */- {.type FromH0, {.p M_store}}, /* dd M_store 16880 */- {.type FromH0, {.p MC_STDOUT}}, /* dd MC_STDOUT 16888 */- {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 16896 */- {.type FromH0, {.p M_store}}, /* dd M_store 16904 */- {.type FromH0, {.p MC_STDERR}}, /* dd MC_STDERR 16912 */- {.type FromH0, {.p MV_Errfd}}, /* dd MV_Errfd 16920 */- {.type FromH0, {.p M_store}}, /* dd M_store 16928 */- {.type FromH0, {.p C_quit}}, /* dd C_quit ; quit resets stacks and is the interpreter loop 16936 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon ; why is this needed? quit does not return unless it breaks 16944 */- {.type Header, {.hdr { 7, "oldboot", /* C_oldboot = 16960 */ colon }}}, /* CENTRY "oldboot" oldboot 7 ; TODO correct below stack notations and this is obsolete. leaving it here for reference until it all works well h 16968 */- {.type FromH0, {.p M_reset}}, /* dd M_reset 16976 */- {.type FromH0, {.p M_clear}}, /* dd M_clear ; SP = sstack_end 16984 */- {.type FromH0, {.p M_stackptr}}, /* dd M_stackptr ; (D -- FFEND) 16992 */- {.type FromH0, {.p M_S0}}, /* dd M_S0 17000 */- {.type FromH0, {.p M_store}}, /* dd M_store ; s0 = FFEND 17008 */- {.type FromH0, {.p M_H0}}, /* dd M_H0 ; heaptop = heapend 17016 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( heapend -- ) 17024 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 17032 */- {.type Absolute, {.p 1}}, /* dd 1 ; ( heapend 1 -- ) 17040 */- {.type FromH0, {.p C_cells}}, /* dd C_cells ; cells ( heapend 8 -- ) 17048 */- {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( heapend-8 -- ) 17056 */- {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( contents_from_heapend-8 -- ) 17064 */- {.type FromH0, {.p M_Args}}, /* dd M_Args ; variable args 17072 */- {.type FromH0, {.p M_store}}, /* dd M_store ; args = contents_from_heapend-8 17080 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 17088 */- {.type FromH0, {.p C_parenabort}}, /* dd C_parenabort ; ( (abort) -- ) 17096 */- {.type FromH0, {.p MV_Abortvec}}, /* dd MV_Abortvec ; variable abortvec 17104 */- {.type FromH0, {.p M_store}}, /* dd M_store ; variable abortvec = (abort) code address 17112 */- {.type FromH0, {.p MC_WORDB}}, /* dd MC_WORDB ; constant puts address of wordbuffer on the top of stack 17120 */- {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf ; variable wordbuf 17128 */- {.type FromH0, {.p M_store}}, /* dd M_store ; variable wordbuf = address of wordbuffer 17136 */- {.type FromH0, {.p MC_TIB}}, /* dd MC_TIB ; constant puts address of tibuffer on the top of stack 17144 */- {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf ; variable sourcebuf 17152 */- {.type FromH0, {.p M_store}}, /* dd M_store ; variable sourcebuf = address of tibuffer 17160 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 17168 */- {.type Absolute, {.p 0}}, /* dd 0 17176 */- {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 17184 */- {.type FromH0, {.p M_store}}, /* dd M_store ; stdin = 0 17192 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 17200 */- {.type Absolute, {.p 1}}, /* dd 1 17208 */- {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 17216 */- {.type FromH0, {.p M_store}}, /* dd M_store ; stdout = 1 17224 */- {.type FromH0, {.p MV_State}}, /* dd MV_State 17232 */- {.type FromH0, {.p C_off}}, /* dd C_off ; off stores 0 at state 17240 */- {.type FromH0, {.p C_decimal}}, /* dd C_decimal ; decimal setting base = 0 17248 */- {.type FromH0, {.p C_quit}}, /* dd C_quit ; quit 17256 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 17264 */- {.type Header, {.hdr { 4, "boot", /* C_boot = 17280 */ colon }}}, /* CENTRY "boot" boot 4 h 17288 */- {.type FromH0, {.p M_literal}}, /* dd M_literal ; this is not working TEST 17296 */- {.type Absolute, {.p 66}}, /* dd 66 17304 */- {.type FromH0, {.p MC_WORDB}}, /* dd MC_WORDB 17312 */- {.type FromH0, {.p M_store}}, /* dd M_store 17320 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 17328 */- {.type Absolute, {.p 1}}, /* dd 1 17336 */- {.type FromH0, {.p MC_WORDB}}, /* dd MC_WORDB 17344 */- {.type FromH0, {.p MC_STDOUT}}, /* dd MC_STDOUT 17352 */- {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite 17360 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 17368 */- {.type Absolute, {.p 1}}, /* dd 1 17376 */- {.type FromH0, {.p MC_WORDB}}, /* dd MC_WORDB 17384 */- {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 17392 */- {.type FromH0, {.p M_fthread}}, /* dd M_fthread ; this is not working TODO 17400 */- {.type FromH0, {.p M_reset}}, /* dd M_reset ; initialize return stack 17408 */- {.type FromH0, {.p M_clear}}, /* dd M_clear ; SP = sstack_end initialize data stack 17416 */- {.type FromH0, {.p M_literal}}, /* dd M_literal 17424 */- {.type FromH0, {.p C_parenabort}}, /* dd C_parenabort ; ( (abort) -- ) 17432 */- {.type FromH0, {.p MV_Abortvec}}, /* dd MV_Abortvec ; variable that puts (abort) code address on the stack 17440 */- {.type FromH0, {.p M_store}}, /* dd M_store ; variable abortvec = (abort) code address 17448 */- {.type FromH0, {.p MC_WORDB}}, /* dd MC_WORDB ; variable puts address of wordbuffer on the top of stack 17456 */- {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf ; variable wordbuf 17464 */- {.type FromH0, {.p M_store}}, /* dd M_store ; variable wordbuf = address of wordbuffer 17472 */- {.type FromH0, {.p MC_TIB}}, /* dd MC_TIB ; constant puts address of tibuffer on the top of stack 17480 */- {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf ; variable sourcebuf 17488 */- {.type FromH0, {.p M_store}}, /* dd M_store ; variable sourcebuf = address of tibuffer 17496 */- {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 17504 */- {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 17512 */- {.type FromH0, {.p M_store}}, /* dd M_store ; stdin = 0 17520 */- {.type FromH0, {.p MC_STDOUT}}, /* dd MC_STDOUT 17528 */- {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 17536 */- {.type FromH0, {.p M_store}}, /* dd M_store 17544 */- {.type FromH0, {.p MC_STDERR}}, /* dd MC_STDERR 17552 */- {.type FromH0, {.p MV_Errfd}}, /* dd MV_Errfd 17560 */- {.type FromH0, {.p M_store}}, /* dd M_store 17568 */- {.type FromH0, {.p MV_State}}, /* dd MV_State 17576 */- {.type FromH0, {.p C_off}}, /* dd C_off ; off stores 0 at state 17584 */- {.type FromH0, {.p C_decimal}}, /* dd C_decimal ; decimal setting base = 0 17592 */- {.type FromH0, {.p C_quit}}, /* dd C_quit ; quit 17600 */- {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 17608 */- {.type Chars, {.str "unable to restore input"}}, /* 17632 */- {.type Chars, {.str " Q?"}}, /* 17636 */- {.type Chars, {.str " stack underflow"}}, /* 17653 */- {.type Chars, {.str " I?"}}, /* 17657 */- {.type Chars, {.str " C?"}}, /* 17661 */- {.type Chars, {.str "I/O error"}}, /* 17671 */- {.type Chars, {.str "uninitialized execution vector"}}, /* 17702 */- {.type Chars, {.str " ok"}}, /* 17706 */+ {.type Absolute, {.p 420}}, /* dd 420 15984 */+ {.type FromH0, {.p M_fthopen}}, /* dd M_fthopen 15992 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 16000 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16008 */+ {.type Absolute, {.p -1}}, /* dd -1 16016 */+ {.type FromH0, {.p M_greater}}, /* dd M_greater 16024 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16032 */+ {.type Header, {.hdr { 10, "close-file", /* C_close_file = 16056 */ colon }}}, /* CENTRY "close-file" close_file 10 h 16064 */+ {.type FromH0, {.p M_fthclose}}, /* dd M_fthclose 16072 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 16080 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16088 */+ {.type Header, {.hdr { 9, "read-file", /* C_read_file = 16112 */ colon }}}, /* CENTRY "read-file" read_file 9 h 16120 */+ {.type FromH0, {.p M_fthread}}, /* dd M_fthread 16128 */+ {.type FromH0, {.p M_dup}}, /* dd M_dup 16136 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16144 */+ {.type Absolute, {.p -1}}, /* dd -1 16152 */+ {.type FromH0, {.p C_neq}}, /* dd C_neq 16160 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16168 */+ {.type Header, {.hdr { 10, "write-file", /* C_write_file = 16192 */ colon }}}, /* CENTRY "write-file" write_file 10 h 16200 */+ {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite 16208 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16216 */+ {.type Absolute, {.p -1}}, /* dd -1 16224 */+ {.type FromH0, {.p C_neq}}, /* dd C_neq 16232 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16240 */+ {.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 16264 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 h 16272 */+ {.type FromH0, {.p M_fthseek}}, /* dd M_fthseek 16280 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16288 */+ {.type Absolute, {.p -1}}, /* dd -1 16296 */+ {.type FromH0, {.p C_neq}}, /* dd C_neq 16304 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16312 */+ {.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 16328 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 16336 */+ {.type FromH0, {.p C_0eq}}, /* dd C_0eq 16344 */+ {.type FromH0, {.p M_cjump}}, /* dd M_cjump 16352 */+ {.type FromH0, {.p L246}}, /* dd L246 16360 */+ {.type FromH0, {.p C_space}}, /* dd C_space 16368 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16376 */+ {.type FromH0, {.p L247}}, /* dd L247 16384 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16392 */+ {.type Absolute, {.p 9}}, /* dd 9 16400 */+ {.type FromH0, {.p C_type}}, /* dd C_type 16408 */+ {.type FromH0, {.p C_cr}}, /* dd C_cr 16416 */+ {.type FromH0, {.p C_abort}}, /* dd C_abort 16424 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16432 */+ {.type Header, {.hdr { 3, "bye", /* C_bye = 16448 */ colon }}}, /* CENTRY "bye" bye 3 h 16456 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16464 */+ {.type Absolute, {.p 0}}, /* dd 0 16472 */+ {.type FromH0, {.p M_terminate}}, /* dd M_terminate 16480 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16488 */+ {.type Header, {.hdr { 7, "include", /* C_include = 16504 */ colon }}}, /* CENTRY "include" include 7 h 16512 */+ {.type FromH0, {.p C_bl}}, /* dd C_bl 16520 */+ {.type FromH0, {.p C_word}}, /* dd C_word 16528 */+ {.type FromH0, {.p M_rpush}}, /* dd M_rpush 16536 */+ {.type FromH0, {.p MV_toLimit}}, /* dd MV_toLimit 16544 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch 16552 */+ {.type FromH0, {.p MV_toIn}}, /* dd MV_toIn 16560 */+ {.type FromH0, {.p M_store}}, /* dd M_store 16568 */+ {.type FromH0, {.p C_save_input}}, /* dd C_save_input 16576 */+ {.type FromH0, {.p M_rpop}}, /* dd M_rpop 16584 */+ {.type FromH0, {.p C_count}}, /* dd C_count 16592 */+ {.type FromH0, {.p C_ro}}, /* dd C_ro 16600 */+ {.type FromH0, {.p C_open_file}}, /* dd C_open_file 16608 */+ {.type FromH0, {.p C_qfcheck}}, /* dd C_qfcheck 16616 */+ {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 16624 */+ {.type FromH0, {.p M_store}}, /* dd M_store 16632 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16640 */+ {.type Header, {.hdr { 5, "crash", /* C_crash = 16656 */ colon }}}, /* CENTRY "crash" crash 5 h 16664 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16672 */+ {.type FromH0, {.p L251}}, /* dd L251 16680 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 16688 */+ {.type Absolute, {.p 30}}, /* dd 30 16696 */+ {.type FromH0, {.p C_type}}, /* dd C_type 16704 */+ {.type FromH0, {.p C_cr}}, /* dd C_cr 16712 */+ {.type FromH0, {.p C_abort}}, /* dd C_abort 16720 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 16728 */+ {.type Header, {.hdr { 4, "quit", /* C_quit = 16744 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 16752 */+ {.type FromH0, {.p M_reset}}, /* dd M_reset ; initialize return stack 16760 */+ {.type FromH0, {.p M_clear}}, /* dd M_clear ; SP = sstack_end initialize data stack 16768 */+ {.type FromH0, {.p C_query}}, /* dd C_query 16776 */+ {.type FromH0, {.p C_interpret}}, /* dd C_interpret 16784 */+ {.type FromH0, {.p M_jump}}, /* dd M_jump 16792 */+ {.type FromH0, {.p L253}}, /* dd L253 16800 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon ; why is this needed? 16808 */+ {.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 16824 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 16832 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State ; ( mv_State -- ) 16840 */+ {.type FromH0, {.p C_off}}, /* dd C_off ; off sets variable state = 0 16848 */+ {.type FromH0, {.p M_Tib}}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 16856 */+ {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf ; variable sourcebuf 16864 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; variable sourcebuf = address of tibuffer 16872 */+ {.type FromH0, {.p MV_Blk}}, /* dd MV_Blk ; variable blk 16880 */+ {.type FromH0, {.p C_off}}, /* dd C_off ; off variable blk = 0 16888 */+ {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 16896 */+ {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 16904 */+ {.type FromH0, {.p M_store}}, /* dd M_store 16912 */+ {.type FromH0, {.p MC_STDOUT}}, /* dd MC_STDOUT 16920 */+ {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 16928 */+ {.type FromH0, {.p M_store}}, /* dd M_store 16936 */+ {.type FromH0, {.p MC_STDERR}}, /* dd MC_STDERR 16944 */+ {.type FromH0, {.p MV_Errfd}}, /* dd MV_Errfd 16952 */+ {.type FromH0, {.p M_store}}, /* dd M_store 16960 */+ {.type FromH0, {.p C_quit}}, /* dd C_quit ; quit resets stacks and is the interpreter loop 16968 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon ; why is this needed? quit does not return unless it breaks 16976 */+ {.type Header, {.hdr { 7, "oldboot", /* C_oldboot = 16992 */ colon }}}, /* CENTRY "oldboot" oldboot 7 ; TODO correct below stack notations and this is obsolete. leaving it here for reference until it all works well h 17000 */+ {.type FromH0, {.p M_reset}}, /* dd M_reset 17008 */+ {.type FromH0, {.p M_clear}}, /* dd M_clear ; SP = sstack_end 17016 */+ {.type FromH0, {.p M_stackptr}}, /* dd M_stackptr ; (D -- FFEND) 17024 */+ {.type FromH0, {.p M_S0}}, /* dd M_S0 17032 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; s0 = FFEND 17040 */+ {.type FromH0, {.p M_H0}}, /* dd M_H0 ; heaptop = heapend 17048 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( heapend -- ) 17056 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 17064 */+ {.type Absolute, {.p 1}}, /* dd 1 ; ( heapend 1 -- ) 17072 */+ {.type FromH0, {.p C_cells}}, /* dd C_cells ; cells ( heapend 8 -- ) 17080 */+ {.type FromH0, {.p M_minus}}, /* dd M_minus ; ( heapend-8 -- ) 17088 */+ {.type FromH0, {.p M_fetch}}, /* dd M_fetch ; ( contents_from_heapend-8 -- ) 17096 */+ {.type FromH0, {.p M_Args}}, /* dd M_Args ; variable args 17104 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; args = contents_from_heapend-8 17112 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 17120 */+ {.type FromH0, {.p C_parenabort}}, /* dd C_parenabort ; ( (abort) -- ) 17128 */+ {.type FromH0, {.p MV_Abortvec}}, /* dd MV_Abortvec ; variable abortvec 17136 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; variable abortvec = (abort) code address 17144 */+ {.type FromH0, {.p M_Wordb}}, /* dd M_Wordb ; constant puts address of wordbuffer on the top of stack 17152 */+ {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf ; variable wordbuf 17160 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; variable wordbuf = address of wordbuffer 17168 */+ {.type FromH0, {.p M_Tib}}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 17176 */+ {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf ; variable sourcebuf 17184 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; variable sourcebuf = address of tibuffer 17192 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 17200 */+ {.type Absolute, {.p 0}}, /* dd 0 17208 */+ {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 17216 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; stdin = 0 17224 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 17232 */+ {.type Absolute, {.p 1}}, /* dd 1 17240 */+ {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 17248 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; stdout = 1 17256 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State 17264 */+ {.type FromH0, {.p C_off}}, /* dd C_off ; off stores 0 at state 17272 */+ {.type FromH0, {.p C_decimal}}, /* dd C_decimal ; decimal setting base = 0 17280 */+ {.type FromH0, {.p C_quit}}, /* dd C_quit ; quit 17288 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 17296 */+ {.type Header, {.hdr { 4, "boot", /* C_boot = 17312 */ colon }}}, /* CENTRY "boot" boot 4 h 17320 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal ; this is not working TEST 17328 */+ {.type Absolute, {.p 66}}, /* dd 66 17336 */+ {.type FromH0, {.p M_Wordb}}, /* dd M_Wordb 17344 */+ {.type FromH0, {.p M_store}}, /* dd M_store 17352 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 17360 */+ {.type Absolute, {.p 1}}, /* dd 1 17368 */+ {.type FromH0, {.p M_Wordb}}, /* dd M_Wordb 17376 */+ {.type FromH0, {.p MC_STDOUT}}, /* dd MC_STDOUT 17384 */+ {.type FromH0, {.p M_fthwrite}}, /* dd M_fthwrite 17392 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 17400 */+ {.type Absolute, {.p 1}}, /* dd 1 17408 */+ {.type FromH0, {.p M_Wordb}}, /* dd M_Wordb 17416 */+ {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 17424 */+ {.type FromH0, {.p M_fthread}}, /* dd M_fthread ; this is not working TODO 17432 */+ {.type FromH0, {.p M_reset}}, /* dd M_reset ; initialize return stack 17440 */+ {.type FromH0, {.p M_clear}}, /* dd M_clear ; SP = sstack_end initialize data stack 17448 */+ {.type FromH0, {.p M_literal}}, /* dd M_literal 17456 */+ {.type FromH0, {.p C_parenabort}}, /* dd C_parenabort ; ( (abort) -- ) 17464 */+ {.type FromH0, {.p MV_Abortvec}}, /* dd MV_Abortvec ; variable that puts (abort) code address on the stack 17472 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; variable abortvec = (abort) code address 17480 */+ {.type FromH0, {.p M_Wordb}}, /* dd M_Wordb ; variable puts address of wordbuffer on the top of stack 17488 */+ {.type FromH0, {.p MV_Wordbuf}}, /* dd MV_Wordbuf ; variable wordbuf 17496 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; variable wordbuf = address of wordbuffer 17504 */+ {.type FromH0, {.p M_Tib}}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 17512 */+ {.type FromH0, {.p MV_Sourcebuf}}, /* dd MV_Sourcebuf ; variable sourcebuf 17520 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; variable sourcebuf = address of tibuffer 17528 */+ {.type FromH0, {.p MC_STDIN}}, /* dd MC_STDIN 17536 */+ {.type FromH0, {.p MV_Infd}}, /* dd MV_Infd 17544 */+ {.type FromH0, {.p M_store}}, /* dd M_store ; stdin = 0 17552 */+ {.type FromH0, {.p MC_STDOUT}}, /* dd MC_STDOUT 17560 */+ {.type FromH0, {.p MV_Outfd}}, /* dd MV_Outfd 17568 */+ {.type FromH0, {.p M_store}}, /* dd M_store 17576 */+ {.type FromH0, {.p MC_STDERR}}, /* dd MC_STDERR 17584 */+ {.type FromH0, {.p MV_Errfd}}, /* dd MV_Errfd 17592 */+ {.type FromH0, {.p M_store}}, /* dd M_store 17600 */+ {.type FromH0, {.p MV_State}}, /* dd MV_State 17608 */+ {.type FromH0, {.p C_off}}, /* dd C_off ; off stores 0 at state 17616 */+ {.type FromH0, {.p C_decimal}}, /* dd C_decimal ; decimal setting base = 0 17624 */+ {.type FromH0, {.p C_quit}}, /* dd C_quit ; quit 17632 */+ {.type FromH0, {.p M_exitcolon}}, /* dd M_exitcolon 17640 */+ {.type Chars, {.str "unable to restore input"}}, /* 17664 */+ {.type Chars, {.str " Q?"}}, /* 17668 */+ {.type Chars, {.str " stack underflow"}}, /* 17685 */+ {.type Chars, {.str " I?"}}, /* 17689 */+ {.type Chars, {.str " C?"}}, /* 17693 */+ {.type Chars, {.str "I/O error"}}, /* 17703 */+ {.type Chars, {.str "uninitialized execution vector"}}, /* 17734 */+ {.type Chars, {.str " ok"}}, /* 17738 */};
--- a/os/pc64/forth.s
+++ b/os/pc64/forth.s
@@ -96,7 +96,7 @@
*/
/* HEAPSTART, HEAPEND, HERE, DTOP are loaded by the caller */
-TEXT forthmain(SB), 1, $0 /* not a tail function, can RET back to the caller */
+TEXT forthmain(SB), 1, $-4 /* no stack storage required */
/* Argument has the start of heap */
MOVQ RARG, UP /* start of heap memory */
MOVQ 8(UP), UPE /* HEAPEND populated by the caller */
@@ -106,11 +106,12 @@
MOVQ UP, PSP
ADDQ $PSTACK_END, PSP /* parameter stack pointer - stack setup, clear */
- MOVQ PSP, 16(UP) /* parameter stack pointer store, for forth to c */
+ MOVQ PSP, 24(UP) /* parameter stack pointer store, for forth to c */
/* execute boot */
- MOVQ UP, IP
- ADDQ $DTOP, IP /* last defined word should be c_boot */
+ MOVQ UP, CX
+ ADDQ $DTOP, CX /* address of last defined word (c_boot) is at DTOP */
+ MOVQ (CX), IP /* IP = address of c_boot */
ADDQ $24, IP /* to get to the parameter field address of boot word */
/* lodsl could make this simpler. But, this is more comprehensible
@@ -128,7 +129,7 @@
#define NEXT MOVQ (IP), W; /* W = 40, contents of address in IP, some word's code field address */ \
MOVQ (W), CX; /* TOP = docol, Get the address in the address in IP = code field address */ \
ADDQ $8, IP; /* move IP further, IP = 16 */ \
- JMP* CX; /* Start executing at docol address, JMP* = jump to a non-relative address */
+ JMP* CX; /* Start executing at docol address, JMP* = jump to a non-relative address */
#define PUSH(r) SUBQ $8, PSP; \
MOVQ r, (PSP);
@@ -141,56 +142,6 @@
NEXT
-/*
-callable by UP using forth macro entries to check address
- ( a -- -1|0|1 )
- argument 1 in TOP = address
- return value in TOP
- -1 0 1
- if UP < address < UPE
- return 0 within range
- else if address < UP
- return -1 below UP
- else if UPE < address
- return 1 above UP
- */
-TEXT inup(SB), 1, $-4
- CMPQ TOP, UPE
- JGT aboveupe
- CMPQ TOP, UP
- JLT belowup
- MOVQ $0, TOP
- RET
-belowup:
- MOVQ $-1, TOP
- RET
-aboveupe:
- MOVQ $1, TOP
- RET
-
-/*
-callable by UP using forth macro entries to check address
- ( n a -- -1|0|1 )
- argument 1 in TOP = address
- return value in TOP
- -1 0 1
- if UP < address && address+n < UPE
- return 0 within range
- else if address < UP
- return -1 below UP
- else if UPE < address+n
- return 1 above UP
- */
-TEXT bufinup(SB), 1, $-4
- MOVQ (PSP), CX
- ADDQ CX, TOP
- CMPQ CX, UPE
- JGT aboveupe
- CMPQ TOP, UP
- JLT belowup
- MOVQ $0, TOP
- RET
-
TEXT reset(SB), 1, $-4
MOVQ UP, RSP
ADDQ $RSTACK_END, RSP
@@ -236,31 +187,103 @@
POP(TOP)
NEXT
-/* TODO change to allow only fetches from a certain memory range */
+/*
+callable by forth asm functions to check address
+ ( a -- -1|0|1 )
+ argument 1 in TOP = address
+ return value in TOP
+ -1 0 1
+ if UP < address < UPE
+ return 0 within range
+ else if address < UP
+ return -1 below UP
+ else if UPE < address
+ return 1 above UP
+ */
+TEXT inup(SB), 1, $-4
+ CMPQ TOP, UPE
+ JGT aboveupe /* a > UPE */
+ CMPQ TOP, UP
+ JLT belowup /* a < UP */
+ MOVQ $0, TOP /* could use XORQ TOP, TOP to zero too */
+ RET
+belowup:
+ MOVQ $-1, TOP
+ RET
+aboveupe:
+ MOVQ $1, TOP
+ RET
+
+/*
+callable by forth asm functions to check address
+ ( n a -- -1|0|1 )
+ argument 1 in TOP = address
+ return value in TOP
+ -1 0 1
+ if UP < address && address+n < UPE
+ return 0 within range
+ else if address < UP
+ return -1 below UP
+ else if UPE < address+n
+ return 1 above UP
+ */
+TEXT bufinup(SB), 1, $-4
+ POP(CX)
+ CMPQ CX, $0 /* negative n? */
+ JLT belowup /* TODO have an appropriate error message */
+ ADDQ TOP, CX
+ CMPQ CX, UPE /* a+n, UPE */
+ JGT aboveupe /* a+n > UPE */
+ CMPQ TOP, UP
+ JLT belowup /* a < UP */
+ MOVQ $0, TOP
+ RET
+
+invalidaddress:
+ /* TODO need error reporting here */
+ RET
+
+TEXT validateaddress(SB), 1, $0 /* a -- */
+ CALL inup(SB)
+ MOVQ TOP, CX
+ POP(TOP)
+ CMPQ CX, $0
+ JNE invalidaddress
+ RET
+
+TEXT validatebuffer(SB), 1, $0 /* n a -- */
+ CALL bufinup(SB)
+ MOVQ TOP, CX
+ POP(TOP)
+ CMPQ CX, $0
+ JNE invalidaddress
+ RET
+
TEXT fetch(SB), 1, $-4 /* ( a -- n) */
- ADDQ UP, TOP
+ PUSH(TOP)
+ CALL validateaddress(SB) /* a a -- a */
MOVQ (TOP), TOP
NEXT
-/* TODO change to allow stores to a certain memory range only */
TEXT store(SB), 1, $-4 /* ( n a -- ) */
- ADDQ UP, TOP
+ PUSH(TOP)
+ CALL validateaddress(SB) /* a a -- a */
POP(CX)
MOVQ CX, (TOP)
POP(TOP)
NEXT
-/* TODO change to allow only fetches from a certain memory range */
TEXT cfetch(SB), 1, $-4 /* ( a -- c ) */
- ADDQ UP, TOP
+ PUSH(TOP)
+ CALL validateaddress(SB) /* a a -- a */
XORQ CX, CX
MOVB (TOP), CL
- POP(TOP)
+ MOVQ CX, TOP
NEXT
-/* TODO change to allow only fetches from a certain memory range */
TEXT cstore(SB), 1, $-4 /* ( c a -- ) */
- ADDQ UP, TOP
+ PUSH(TOP)
+ CALL validateaddress(SB) /* c a a -- c a */
POP(CX)
MOVB CL, (TOP)
POP(TOP)
@@ -292,6 +315,7 @@
ADDQ $8, IP
NEXT
+/* TODO not sure about this */
TEXT sliteral(SB), 1, $-4 /* ( -- a n ) */
PUSH(TOP)
XORQ TOP,TOP
@@ -305,14 +329,14 @@
/* puts the top 2 entries of the data stack in the return stack */
TEXT doinit(SB), 1, $-4 /* ( hi lo -- ) */
- MOVQ TOP, (RSP)
+ RPUSH(TOP)
POP(TOP)
- MOVQ TOP, 8(RSP)
+ RPUSH(TOP)
POP(TOP)
- ADDQ $16, RSP
NEXT
-/* not sure if this works, needs testing to follow https://github.com/mark4th/x64
+/*
+not sure if this works, needs testing to follow https://github.com/mark4th/x64
check the notes
return stack would have
current index
@@ -349,16 +373,18 @@
RPOP(TOP)
NEXT
-TEXT rpush(SB), 1, $-4 /* ( n -- ) */
+TEXT rpush(SB), 1, $-4 /* ( n -- ) (R -- n ) */
RPUSH(TOP)
POP(TOP)
NEXT
+/* TODO not sure about this */
TEXT i(SB), 1, $-4 /* ( -- n ) */
PUSH(TOP)
- MOVQ -16(RSP), TOP
+ MOVQ 16(RSP), TOP
NEXT
+/* TODO not sure about this */
TEXT j(SB), 1, $-4 /* ( -- n ) */
PUSH(TOP)
MOVQ -32(RSP), TOP
@@ -466,10 +492,13 @@
XORQ TOP, TOP
NEXT
-/* if x < y then y - x > 0, no sign flag
+/*
+if x < y then y - x > 0, no sign flag
intel manual says destination operand - source operand
- but, 9front assemblers seem to work differently
- compare x and y == CMP x, y
+ 9front comparision operators make the usage more english-like
+ For, CMP x,y; JGT greater can be read as
+ compare x and y; if x > y, goto greater
+ check tests/cmp.s for tests
*/
TEXT less(SB), 1, $-4 /* ( x y -- f ) */
POP(CX)
@@ -483,13 +512,13 @@
MOVQ PSP, TOP
NEXT
-TEXT lshift(SB), 1, $-4 /* ( n1 n2 -- n ) */
+TEXT lshift(SB), 1, $-4 /* ( n1 n2 -- n1<<n2 ) */
MOVQ TOP, CX
POP(TOP)
SHLQ CL, TOP
NEXT
-TEXT rshift(SB), 1, $-4 /* ( n1 n2 -- n ) */
+TEXT rshift(SB), 1, $-4 /* ( n1 n2 -- n1>>n2 ) */
MOVQ TOP, CX
POP(TOP)
SHRQ CL, TOP
@@ -502,6 +531,8 @@
NEXT
TEXT execute(SB), 1, $-4 /* ( ... a -- ... ) */
+ PUSH(TOP)
+ CALL validateaddress(SB) /* a a -- a */
MOVQ TOP, W
POP(TOP)
MOVQ (W), CX
@@ -516,6 +547,7 @@
ADDQ $16, RSP
NEXT
+/* TODO validateaddress on both addresses */
TEXT cmove(SB), 1, $-4 /* ( a1 a2 n -- ) */
MOVQ TOP, CX
POP(W)
@@ -526,6 +558,7 @@
POP(TOP)
NEXT
+/* TODO validateaddress on both addresses */
TEXT cmoveb(SB), 1, $-4 /* ( a1 a2 n -- ) */
MOVQ TOP, CX
POP(W)
@@ -560,6 +593,18 @@
TEXT H0(SB), 1, $-4 /* user pointer, start of heap */
PUSH(TOP)
MOVQ UP, TOP
+ NEXT
+
+TEXT Wordb(SB), 1, $-4 /* WORDB location */
+ PUSH(TOP)
+ MOVQ UP, TOP
+ ADDQ $WORDB, TOP
+ NEXT
+
+TEXT Tib(SB), 1, $-4 /* TIB location */
+ PUSH(TOP)
+ MOVQ UP, TOP
+ ADDQ $TIB, TOP
NEXT
TEXT Dp(SB), 1, $-4 /* S0 needs a calculation to come up with the value */
--- a/os/pc64/mem.h
+++ b/os/pc64/mem.h
@@ -211,7 +211,6 @@
* user table at the start unlike in Starting Forth as it will be
* easy to get to the variables with a known offset from C
*/
-#define FORTHHEAPSIZE (9*BY2PG)
#define HEAPSTART (0ull)
#define HEAPEND (HEAPSTART+(BY2WD*1))
@@ -237,5 +236,5 @@
#define TIB (HEAPSTART+(17*BY2PG)) /* text input buffer */
#define RSTACK (HEAPSTART+(18*BY2PG))
#define RSTACK_END (HEAPSTART+(19*BY2PG))
-#define FORTHEND RSTACK_END
-#define HEAPSIZE FORTHEND
+#define FORTHEND RSTACK_END
+#define FORTHHEAPSIZE FORTHEND
--- a/os/pc64/mkdict.awk
+++ b/os/pc64/mkdict.awk
@@ -17,9 +17,9 @@
function header(len, name, prefix, label, cfa, immediate){h+=8; # for link
- h+=len;
- if(len%8 > 0)
- h += 8-(len%8);
+ h+=len+1;
+ if((len+1)%8 > 0)
+ h += 8-((len+1)%8);
labels[nlabels++] = prefix label " = " h;
h+=8; # for cfa
cfas[cfa] = 1
--- a/os/pc64/primitives-nasm.s
+++ b/os/pc64/primitives-nasm.s
@@ -61,20 +61,20 @@
MVENTRY ">Num" toNum 0 4
MVENTRY "State" State 0 5
MVENTRY "Abortvec" Abortvec 0 8 ; not sure if these 3 can be constants instead?
-MVENTRY "Infd" Infd 0 5
-MVENTRY "Outfd" Outfd 0 6
-MVENTRY "Errfd" Errfd 0 4
+MVENTRY "Infd" Infd 0 4
+MVENTRY "Outfd" Outfd 0 5
+MVENTRY "Errfd" Errfd 0 5
MVENTRY "Eof" Eof 0 3
MCENTRY "STDIN" STDIN 0 5 ; 3 constants from here CAPITALS
MCENTRY "STDOUT" STDOUT 1 6
MCENTRY "STDERR" STDERR 2 6
-MCENTRY "WORDB" WORDB WORDB 5
-MCENTRY "TIB" TIB TIB 3
MENTRY "S0" S0 2
MENTRY "s@" stackptr 2 ; puts PSP on stack
MENTRY "H0" H0 2
+MENTRY "Wordb" Wordb 5
+MENTRY "Tib" Tib 3
MENTRY "Args" Args 3
MENTRY "(variable)" variable 10
MENTRY "(constant)" constant 10
--- a/os/pc64/words-nasm.s
+++ b/os/pc64/words-nasm.s
@@ -457,7 +457,7 @@
dd M_H0
dd C_plusstore
dd M_exitcolon
-CENTRY "c" c_c 2
+CENTRY "c," c_c 2
dd C_here
dd M_cstore
dd M_literal
@@ -771,7 +771,7 @@
dd C_off
dd MV_toLimit
dd C_off
-dd MC_TIB
+dd M_Tib
dd MV_Sourcebuf
dd M_store
dd MV_Blk
@@ -942,7 +942,7 @@
CENTRY "query" c_query 5 ; read from input stream into the Text Input Buffer
dd MV_Eof
dd C_off ; clear EOF flag
-dd MC_TIB ; constant puts address of tibuffer on the top
+dd M_Tib ; constant puts address of tibuffer on the top
dd M_literal
dd 4096 ; ( tibuffer -- tibuffer 4096 )
dd C_accept ; ( tibuffer 4096 -- n )
@@ -1706,7 +1706,7 @@
CENTRY "(abort)" c_parenabort 7 ; TODO correct below stack notations
dd MV_State ; ( mv_State -- )
dd C_off ; off sets variable state = 0
-dd MC_TIB ; constant puts address of tibuffer on the top of stack
+dd M_Tib ; constant puts address of tibuffer on the top of stack
dd MV_Sourcebuf ; variable sourcebuf
dd M_store ; variable sourcebuf = address of tibuffer
dd MV_Blk ; variable blk
@@ -1742,10 +1742,10 @@
dd C_parenabort ; ( (abort) -- )
dd MV_Abortvec ; variable abortvec
dd M_store ; variable abortvec = (abort) code address
-dd MC_WORDB ; constant puts address of wordbuffer on the top of stack
+dd M_Wordb ; constant puts address of wordbuffer on the top of stack
dd MV_Wordbuf ; variable wordbuf
dd M_store ; variable wordbuf = address of wordbuffer
-dd MC_TIB ; constant puts address of tibuffer on the top of stack
+dd M_Tib ; constant puts address of tibuffer on the top of stack
dd MV_Sourcebuf ; variable sourcebuf
dd M_store ; variable sourcebuf = address of tibuffer
dd M_literal
@@ -1763,19 +1763,18 @@
dd M_exitcolon
CENTRY "boot" c_boot 4
-
dd M_literal ; this is not working TEST
dd 66
-dd MC_WORDB
+dd M_Wordb
dd M_store
dd M_literal
dd 1
-dd MC_WORDB
+dd M_Wordb
dd MC_STDOUT
dd M_fthwrite
dd M_literal
dd 1
-dd MC_WORDB
+dd M_Wordb
dd MC_STDIN
dd M_fthread ; this is not working TODO
@@ -1789,11 +1788,11 @@
dd MV_Abortvec ; variable that puts (abort) code address on the stack
dd M_store ; variable abortvec = (abort) code address
-dd MC_WORDB ; variable puts address of wordbuffer on the top of stack
+dd M_Wordb ; variable puts address of wordbuffer on the top of stack
dd MV_Wordbuf ; variable wordbuf
dd M_store ; variable wordbuf = address of wordbuffer
-dd MC_TIB ; constant puts address of tibuffer on the top of stack
+dd M_Tib ; constant puts address of tibuffer on the top of stack
dd MV_Sourcebuf ; variable sourcebuf
dd M_store ; variable sourcebuf = address of tibuffer
--- a/os/port/devforth.c
+++ b/os/port/devforth.c
@@ -82,6 +82,7 @@
intptr i;
Fentry *f;
u8 *h, *dtop;
+ int n;
h = fmem+DICTIONARY;
dtop = nil;
@@ -89,29 +90,51 @@
f = &fentries[i];
if(f->type == Header){*(intptr*)h = (intptr)dtop;
+ print("Header 0x%zx: 0x%zx 0x%zx ", h, *(intptr*)h, dtop);dtop = h;
h += sizeof(intptr);
- strncpy((s8*)h, f->hdr.name, f->hdr.len);
*h = f->hdr.len;
+ print("len 0x%zx: 0x%d ", h, *h);h++;
- if(f->hdr.len%8 > 0)
- h += 8-(f->hdr.len%8);
+ strncpy((s8*)h, f->hdr.name, f->hdr.len);
+ print("name 0x%zx: ", h);+ for(n = 0; n < f->hdr.len; n++){+ print("%c", *(h+n));+ }
+ h += f->hdr.len;
+ if((f->hdr.len+1)%8 > 0){+ h += 8-((f->hdr.len+1)%8);
+ }
*(intptr*)h = (intptr)f->hdr.cfa;
+ print(" cfa 0x%zx: 0x%zx 0x%zx\n", h, *(intptr*)h, (intptr)f->hdr.cfa);+ h += sizeof(intptr);
}else if(f->type == IHeader){*(intptr*)h = (intptr)dtop;
+ print("IHeader 0x%zx: 0x%zx 0x%zx ", h, *(intptr*)h, dtop);dtop = h;
h += sizeof(intptr);
- strncpy((s8*)h, f->hdr.name, f->hdr.len);
*h = f->hdr.len | (1<<7);
+ print("len 0x%zx: 0x%d ", h, *h);h++;
- if(f->hdr.len%8 > 0)
- h += 8-(f->hdr.len%8);
+ strncpy((s8*)h, f->hdr.name, f->hdr.len);
+ print("name 0x%zx: ", h);+ for(n = 0; n < f->hdr.len; n++){+ print("%c", *(h+n));+ }
+ h += f->hdr.len;
+ if((f->hdr.len+1)%8 > 0){+ h += 8-((f->hdr.len+1)%8);
+ }
*(intptr*)h = (intptr)f->hdr.cfa;
+ print(" cfa 0x%zx: 0x%zx 0x%zx\n", h, *(intptr*)h, (intptr)f->hdr.cfa);+ h += sizeof(intptr);
}else if(f->type == Absolute){*(intptr*)h = f->p;
+ print(" 0x%zx: 0x%zx 0x%zx\n", h, *(intptr*)h, (intptr)f->p);h += sizeof(intptr);
}else if(f->type == FromH0){- *(intptr*)h = (intptr)fmem+f->p;
+ *(intptr*)h = (intptr)fmem+DICTIONARY+f->p;
+ print(" 0x%zx: 0x%zx 0x%zx\n", h, *(intptr*)h, (intptr)fmem+DICTIONARY+f->p);h += sizeof(intptr);
}else if(f->type == Chars){strcpy((s8*)h, f->str);
@@ -123,6 +146,8 @@
}
*(intptr*)(fmem + HERE) = (intptr)h;
*(intptr*)(fmem + DTOP) = (intptr)dtop;
+ print("loadforthdictionary fmem 0x%zx h 0x%zx dtop 0x%zx (intptr*)(fmem + DTOP) 0x%zx *(intptr*)(fmem + DTOP) 0x%zx\n",+ fmem, (intptr)h, (intptr)dtop, (intptr*)(fmem + DTOP), *(intptr*)(fmem + DTOP));
}
extern intptr forthmain(u8 *);
@@ -130,13 +155,17 @@
forthentry(void *fmem)
{up->type = Forth;
- print("forthentry pid %d forthmem 0x%zx\n", up->pid, (intptr)fmem);+ print("forthentry pid %d forthmem 0x%zx end 0x%zx forthmem+RSTACK_END 0x%zx\n",+ up->pid, (intptr)fmem, ((intptr*)fmem)[1], (intptr)fmem+RSTACK_END);
loadforthdictionary((u8*)fmem);
/* load dictionary */
print("fentries[0].name %s\n", fentries[0].hdr.name); print("fentries[1].name %s nfentries %d\n", fentries[1].hdr.name, nelem(fentries));-
+ if(waserror())
+ print("forthentry waserror(): %r\n");+ forthmain((u8*)fmem);
+ free(fmem);
pexit("exit", 0);}
@@ -456,6 +485,7 @@
}
if(QID(c->qid) == Qnew){/* TODO set path */
+print("forthopen called by pid %d text %s\n", up->pid, up->text);f = newforthproc();
if(f == nil)
error(Enodev);
--- a/tests/cmp.s
+++ b/tests/cmp.s
@@ -2,19 +2,26 @@
/*
: tests ; watch -e 'cmp.s$' 'mk 6.cmp && ./6.cmp; echo $status'
*/
+/*
+if x < y then y - x > 0, no sign flag
+ intel manual says destination operand - source operand
+ 9front comparision operators make the usage more english-like
+ For, CMP x,y; JGT greater can be read as
+ compare x and y; if x > y, goto greater
+ check tests/cmp.s for tests
+ */
TEXT main+0(SB),0,$16
MOVQ $20, BX
- MOVQ $10, AX
+ MOVQ $30, AX
CMPQ AX, BX
/* if AX < BX then BX - AX > 0, no sign flag */
- JLT .true
- MOVQ $0, AX
+ JGT .true
+ MOVQ $falsemsg(SB), BP
JMP .exit
.true:
- MOVQ $9, AX
+ MOVQ $truemsg(SB), BP
.exit:
- MOVQ $truemsg(SB), BP
CALL _exits+0(SB)
RET