shithub: 9ferno

Download patch

ref: 1fab76acb861c5dd27ad13399c574fc8771dc0f3
parent: 6f9ebd81e27be7294e30a34174e2c37ff8f0c320
author: 9ferno <gophone2015@gmail.com>
date: Tue Feb 1 12:08:09 EST 2022

show forth stacks when trap() is invoked

--- a/os/pc64/forth.h	Tue Feb  1 12:05:45 2022
+++ b/os/pc64/forth.h	Tue Feb  1 12:08:09 2022
@@ -93,269 +93,273 @@
 	MV_toIn = 1624,
 	MV_toLimit = 1656,
 	MV_Findadr = 1688,
-	MV_Blk = 1720,
-	MV_Searchlen = 1760,
-	MV_Base = 1792,
-	MV_toNum = 1824,
-	MV_State = 1856,
-	MV_Abortvec = 1896,
-	MV_Infd = 1928,
-	MV_Outfd = 1960,
-	MV_Errfd = 1992,
-	MV_Eof = 2024,
-	MV_Ninputs = 2056,
-	MV_H0 = 2088,
-	M_Dp = 2120,
-	M_Dtop = 2144,
-	M_Vp = 2168,
-	M_S0 = 2192,
-	M_stackptr = 2216,
-	M_Wordb = 2240,
-	M_Tib = 2264,
-	M_Args = 2288,
-	C_false = 2312,
-	C_true = 2360,
-	C_bl = 2408,
-	C_on = 2456,
-	C_off = 2520,
-	C_tobody = 2584,
-	C_aligned = 2640,
-	C_cells = 2720,
-	C_cellplus = 2776,
-	C_depth = 2840,
-	C_nip = 2944,
-	C_rot = 2992,
-	C_2drop = 3056,
-	C_2dup = 3104,
-	C_2nip = 3152,
-	C_2swap = 3200,
-	C_qdup = 3264,
-	L20 = 3336,
-	C_pick = 3360,
-	L22 = 3464,
-	L23 = 3472,
-	C_tuck = 3496,
-	C_divides = 3560,
-	C_plusstore = 3608,
-	C_invert = 3688,
-	C_mod = 3744,
-	C_1plus = 3792,
-	C_1minus = 3848,
-	C_negate = 3904,
-	C_2multiplies = 3968,
-	C_2divides = 4024,
-	C_0eq = 4080,
-	C_0lt = 4136,
-	C_0gt = 4192,
-	C_neq = 4248,
-	C_0neq = 4296,
-	C_max = 4352,
-	L40 = 4416,
-	L41 = 4424,
-	C_min = 4448,
-	L43 = 4512,
-	L44 = 4520,
-	C_signum = 4544,
-	L46 = 4624,
-	L48 = 4680,
-	L49 = 4696,
-	L47 = 4696,
-	C_within = 4720,
-	C_abs = 4824,
-	L52 = 4872,
-	C_key = 4896,
-	L78 = 5024,
-	L79 = 5040,
-	C_emit = 5064,
-	C_type = 5168,
-	C_cr = 5264,
-	C_space = 5320,
-	C_emits = 5368,
-	L85 = 5376,
-	L86 = 5440,
-	C_spaces = 5472,
-	C_count = 5528,
-	C_compare = 5672,
-	L55 = 5744,
-	L56 = 5880,
-	C_erase = 5960,
-	L58 = 5992,
-	C_fill = 6080,
-	L60 = 6120,
-	C_blank = 6208,
-	C_search = 6256,
-	L64 = 6360,
-	L65 = 6544,
-	C_here = 6608,
-	C_vhere = 6656,
-	C_comma = 6704,
-	C_c = 6784,
-	C_allot = 6864,
-	C_vallot = 6912,
-	C_pad = 6960,
-	C_align = 7024,
-	C_unused = 7088,
-	C_fromhash = 7152,
-	C_hash = 7232,
-	L92 = 7384,
-	L93 = 7408,
-	C_hashs = 7488,
-	L95 = 7496,
-	L96 = 7544,
-	C_hashfrom = 7568,
-	C_hold = 7680,
-	C_sign = 7784,
-	L100 = 7840,
-	C_dot = 7864,
-	C_dotr = 7968,
-	C_hex = 8128,
-	C_decimal = 8192,
-	C_digit = 8256,
-	L106 = 8368,
-	L108 = 8472,
-	L110 = 8576,
-	L111 = 8600,
-	L109 = 8600,
-	L107 = 8600,
-	L112 = 8672,
-	L113 = 8688,
-	C_number = 8712,
-	L115 = 8848,
-	L116 = 8880,
-	L117 = 8944,
-	L118 = 9048,
-	L119 = 9104,
-	C_abort = 9192,
-	C_source = 9248,
-	C_current_input = 9304,
-	C_save_input = 9384,
-	C_default_input = 9520,
-	C_restore_input = 9640,
-	L133 = 9736,
-	L134 = 9824,
-	C_qrestore_input = 9856,
-	L136 = 9984,
-	C_next_input = 10016,
-	L139 = 10112,
-	L140 = 10136,
-	C_parse = 10160,
-	L142 = 10200,
-	L143 = 10328,
-	C_word = 10472,
-	L145 = 10488,
-	L146 = 10584,
-	C_accept = 10624,
-	L148 = 10664,
-	L150 = 10824,
-	L149 = 10888,
-	C_query = 10936,
-	L152 = 11080,
-	L153 = 11112,
-	C_refill = 11136,
-	L155 = 11200,
-	L156 = 11216,
-	C_findname = 11248,
-	L158 = 11288,
-	L160 = 11400,
-	L162 = 11528,
-	L161 = 11536,
-	L159 = 11552,
-	C_find = 11600,
-	L165 = 11792,
-	L166 = 11808,
-	L164 = 11832,
-	L167 = 11840,
-	C_single_quote = 11864,
-	L169 = 12000,
-	C_qstack = 12024,
-	L172 = 12128,
-	C_interpret = 12200,
-	L175 = 12208,
-	L177 = 12320,
-	L179 = 12432,
-	L178 = 12432,
-	L176 = 12448,
-	C_create = 12480,
-	C_variable = 12728,
-	C_constant = 12824,
-	C_immediate = 12952,
-	C_tocfa = 13064,
-	C_compile = 13144,
-	L189 = 13272,
-	L190 = 13288,
-	L188 = 13304,
-	L192 = 13432,
-	L194 = 13464,
-	L191 = 13464,
-	C_close_bracket = 13488,
-	L196 = 13512,
-	L197 = 13600,
-	L198 = 13624,
-	L199 = 13656,
-	CI_open_bracket = 13680,
-	C_smudge = 13728,
-	C_reveal = 13840,
-	C_colon = 13960,
-	CI_semicolon = 14088,
-	CI_recurse = 14168,
-	C_char = 14240,
-	C_literal = 14304,
-	C_sliteral = 14376,
-	C_string = 14544,
-	CI_char_brackets = 14656,
-	CI_quote_brackets = 14728,
-	CI_openparen = 14776,
-	CI_backslash = 14840,
-	L214 = 14984,
-	L215 = 15016,
-	C_qabort_parens = 15048,
-	L217 = 15128,
-	L218 = 15136,
-	CI_abort_double_quote = 15160,
-	C_double_quote = 15224,
-	C_cdouble_quote = 15352,
-	CI_sdouble_quote = 15488,
-	CI_dotstr = 15528,
-	CI_if = 15592,
-	CI_else = 15680,
-	CI_then = 15808,
-	CI_begin = 15864,
-	CI_again = 15904,
-	CI_until = 15968,
-	CI_while = 16032,
-	CI_repeat = 16120,
-	CI_do = 16216,
-	CI_loop = 16296,
-	L234 = 16384,
-	CI_ploop = 16408,
-	L236 = 16496,
-	C_wo = 16520,
-	C_ro = 16616,
-	C_rw = 16664,
-	C_open_file = 16720,
-	C_close_file = 16984,
-	C_read_file = 17040,
-	C_write_file = 17136,
-	C_reposition_file = 17224,
-	C_qfcheck = 17304,
-	L246 = 17400,
-	C_create_file = 17432,
-	C_bye = 17704,
-	C_include = 17760,
-	C_crash = 17912,
-	C_quit = 18000,
-	L253 = 18024,
-	C_parenabort = 18080,
-	C_oldboot = 18248,
-	C_boot = 18696,
-	L137 = 18936,
-	L170 = 18960,
-	L173 = 18964,
-	L180 = 18981,
-	L193 = 18985,
-	L247 = 18989,
-	L251 = 18999,
-	L255 = 19030,
+	MV_Acceptvec = 1728,
+	MV_Searchlen = 1768,
+	MV_Base = 1800,
+	MV_toNum = 1832,
+	MV_State = 1864,
+	MV_Abortvec = 1904,
+	MV_Infd = 1936,
+	MV_Outfd = 1968,
+	MV_Errfd = 2000,
+	MV_Eof = 2032,
+	MV_Ninputs = 2064,
+	MV_H0 = 2096,
+	M_Dp = 2128,
+	M_Dtop = 2152,
+	M_Vp = 2176,
+	M_S0 = 2200,
+	M_stackptr = 2224,
+	M_Wordb = 2248,
+	M_Tib = 2272,
+	M_Args = 2296,
+	C_false = 2320,
+	C_true = 2368,
+	C_bl = 2416,
+	C_on = 2464,
+	C_off = 2528,
+	C_tobody = 2592,
+	C_aligned = 2648,
+	C_cells = 2728,
+	C_cellplus = 2784,
+	C_depth = 2848,
+	C_nip = 2952,
+	C_rot = 3000,
+	C_2drop = 3064,
+	C_2dup = 3112,
+	C_2nip = 3160,
+	C_2swap = 3208,
+	C_qdup = 3272,
+	L20 = 3344,
+	C_pick = 3368,
+	L22 = 3472,
+	L23 = 3480,
+	C_tuck = 3504,
+	C_divides = 3568,
+	C_plusstore = 3616,
+	C_invert = 3696,
+	C_mod = 3752,
+	C_1plus = 3800,
+	C_1minus = 3856,
+	C_negate = 3912,
+	C_2multiplies = 3976,
+	C_2divides = 4032,
+	C_0eq = 4088,
+	C_0lt = 4144,
+	C_0gt = 4200,
+	C_neq = 4256,
+	C_0neq = 4304,
+	C_max = 4360,
+	L40 = 4424,
+	L41 = 4432,
+	C_min = 4456,
+	L43 = 4520,
+	L44 = 4528,
+	C_signum = 4552,
+	L46 = 4632,
+	L48 = 4688,
+	L49 = 4704,
+	L47 = 4704,
+	C_within = 4728,
+	C_abs = 4832,
+	L52 = 4880,
+	C_key = 4904,
+	L78 = 5032,
+	L79 = 5048,
+	C_emit = 5072,
+	C_type = 5176,
+	C_cr = 5272,
+	C_space = 5328,
+	C_emits = 5376,
+	L85 = 5384,
+	L86 = 5448,
+	C_spaces = 5480,
+	C_count = 5536,
+	C_compare = 5680,
+	L55 = 5752,
+	L56 = 5888,
+	C_erase = 5968,
+	L58 = 6000,
+	C_fill = 6088,
+	L60 = 6128,
+	C_blank = 6216,
+	C_search = 6264,
+	L64 = 6368,
+	L65 = 6552,
+	C_here = 6616,
+	C_vhere = 6664,
+	C_comma = 6712,
+	C_c = 6792,
+	C_allot = 6872,
+	C_vallot = 6920,
+	C_pad = 6968,
+	C_align = 7032,
+	C_unused = 7096,
+	C_fromhash = 7160,
+	C_hash = 7240,
+	L92 = 7392,
+	L93 = 7416,
+	C_hashs = 7496,
+	L95 = 7504,
+	L96 = 7552,
+	C_hashfrom = 7576,
+	C_hold = 7688,
+	C_sign = 7792,
+	L100 = 7848,
+	C_dot = 7872,
+	C_dotr = 7976,
+	C_hex = 8136,
+	C_decimal = 8200,
+	C_digit = 8264,
+	L106 = 8376,
+	L108 = 8480,
+	L110 = 8584,
+	L111 = 8608,
+	L109 = 8608,
+	L107 = 8608,
+	L112 = 8680,
+	L113 = 8696,
+	C_number = 8720,
+	L115 = 8856,
+	L116 = 8888,
+	L117 = 8952,
+	L118 = 9056,
+	L119 = 9112,
+	C_abort = 9200,
+	C_source = 9256,
+	C_current_input = 9312,
+	C_save_input = 9392,
+	C_default_input = 9528,
+	C_restore_input = 9664,
+	L133 = 9760,
+	L134 = 9848,
+	C_qrestore_input = 9880,
+	L136 = 10008,
+	C_next_input = 10040,
+	L139 = 10136,
+	L140 = 10160,
+	C_parse = 10184,
+	L142 = 10224,
+	L143 = 10352,
+	C_word = 10496,
+	L145 = 10512,
+	L146 = 10608,
+	C_accept = 10648,
+	L300 = 10712,
+	C_accept_line = 10752,
+	L303 = 10960,
+	L301 = 10976,
+	L302 = 11032,
+	C_accept_key = 11080,
+	L148 = 11120,
+	L150 = 11280,
+	L149 = 11344,
+	C_query = 11392,
+	L152 = 11536,
+	L153 = 11568,
+	C_refill = 11592,
+	C_findname = 11648,
+	L158 = 11688,
+	L160 = 11800,
+	L162 = 11928,
+	L161 = 11936,
+	L159 = 11952,
+	C_find = 12000,
+	L165 = 12192,
+	L166 = 12208,
+	L164 = 12232,
+	L167 = 12240,
+	C_single_quote = 12264,
+	L169 = 12400,
+	C_qstack = 12424,
+	L172 = 12528,
+	C_interpret = 12600,
+	L175 = 12608,
+	L177 = 12720,
+	L179 = 12832,
+	L178 = 12832,
+	L176 = 12848,
+	C_create = 12880,
+	C_variable = 13128,
+	C_constant = 13224,
+	C_immediate = 13352,
+	C_tocfa = 13464,
+	C_compile = 13544,
+	L189 = 13672,
+	L190 = 13688,
+	L188 = 13704,
+	L192 = 13832,
+	L194 = 13864,
+	L191 = 13864,
+	C_close_bracket = 13888,
+	L196 = 13912,
+	L197 = 14000,
+	L198 = 14024,
+	L199 = 14056,
+	CI_open_bracket = 14080,
+	C_smudge = 14128,
+	C_reveal = 14240,
+	C_colon = 14360,
+	CI_semicolon = 14488,
+	CI_recurse = 14568,
+	C_char = 14640,
+	C_literal = 14704,
+	C_sliteral = 14776,
+	C_string = 14944,
+	CI_char_brackets = 15056,
+	CI_quote_brackets = 15128,
+	CI_openparen = 15176,
+	CI_backslash = 15240,
+	C_qabort_parens = 15312,
+	L217 = 15392,
+	L218 = 15400,
+	CI_abort_double_quote = 15424,
+	C_double_quote = 15488,
+	C_cdouble_quote = 15616,
+	CI_sdouble_quote = 15752,
+	CI_dotstr = 15792,
+	CI_if = 15856,
+	CI_else = 15944,
+	CI_then = 16072,
+	CI_begin = 16128,
+	CI_again = 16168,
+	CI_until = 16232,
+	CI_while = 16296,
+	CI_repeat = 16384,
+	CI_do = 16480,
+	CI_loop = 16560,
+	L234 = 16648,
+	CI_ploop = 16672,
+	L236 = 16760,
+	C_wo = 16784,
+	C_ro = 16880,
+	C_rw = 16928,
+	C_open_file = 16984,
+	C_close_file = 17248,
+	C_read_file = 17304,
+	C_write_file = 17400,
+	C_reposition_file = 17488,
+	C_qfcheck = 17568,
+	L246 = 17664,
+	C_create_file = 17696,
+	C_bye = 17968,
+	C_include = 18024,
+	C_crash = 18176,
+	C_quit = 18264,
+	L253 = 18288,
+	C_parenabort = 18344,
+	C_oldboot = 18512,
+	C_boot = 18960,
+	L137 = 19232,
+	L170 = 19256,
+	L173 = 19260,
+	L180 = 19277,
+	L193 = 19281,
+	L247 = 19285,
+	L251 = 19295,
+	L255 = 19326,
+	L304 = 19330,
+	L305 = 19367,
 };
 extern void *sliteral(void);
 extern void *cjump(void);
@@ -496,1816 +500,1848 @@
 	{.type FromV0, {.p 32 }},	/* 1672 32 */
 	{.type Header, {.hdr { 7, "Findadr", /* MV_Findadr = 1688 */ variable }}}, /* MVENTRY "Findadr" Findadr 0 7 h 1696 */
 	{.type FromV0, {.p 40 }},	/* 1704 40 */
-	{.type Header, {.hdr { 3, "Blk", /* MV_Blk = 1720 */ variable }}}, /* MVENTRY "Blk" Blk 0 3 h 1728 */
-	{.type FromV0, {.p 48 }},	/* 1736 48 */
-	{.type Header, {.hdr { 9, "Searchlen", /* MV_Searchlen = 1760 */ variable }}}, /* MVENTRY "Searchlen" Searchlen 0 9 h 1768 */
-	{.type FromV0, {.p 56 }},	/* 1776 56 */
-	{.type Header, {.hdr { 4, "Base", /* MV_Base = 1792 */ variable }}}, /* MVENTRY "Base" Base 0 4 h 1800 */
-	{.type FromV0, {.p 64 }},	/* 1808 64 */
-	{.type Header, {.hdr { 4, ">Num", /* MV_toNum = 1824 */ variable }}}, /* MVENTRY ">Num" toNum 0 4 h 1832 */
-	{.type FromV0, {.p 72 }},	/* 1840 72 */
-	{.type Header, {.hdr { 5, "State", /* MV_State = 1856 */ variable }}}, /* MVENTRY "State" State 0 5 h 1864 */
-	{.type FromV0, {.p 80 }},	/* 1872 80 */
-	{.type Header, {.hdr { 8, "Abortvec", /* MV_Abortvec = 1896 */ variable }}}, /* MVENTRY "Abortvec" Abortvec 0 8	; not sure if these 3 can be constants instead? h 1904 */
-	{.type FromV0, {.p 88 }},	/* 1912 88 */
-	{.type Header, {.hdr { 4, "Infd", /* MV_Infd = 1928 */ variable }}}, /* MVENTRY "Infd" Infd 0 4 h 1936 */
-	{.type FromV0, {.p 96 }},	/* 1944 96 */
-	{.type Header, {.hdr { 5, "Outfd", /* MV_Outfd = 1960 */ variable }}}, /* MVENTRY "Outfd" Outfd 0 5 h 1968 */
-	{.type FromV0, {.p 104 }},	/* 1976 104 */
-	{.type Header, {.hdr { 5, "Errfd", /* MV_Errfd = 1992 */ variable }}}, /* MVENTRY "Errfd" Errfd 0 5 h 2000 */
-	{.type FromV0, {.p 112 }},	/* 2008 112 */
-	{.type Header, {.hdr { 3, "Eof", /* MV_Eof = 2024 */ variable }}}, /* MVENTRY "Eof" Eof 0 3 h 2032 */
-	{.type FromV0, {.p 120 }},	/* 2040 120 */
-	{.type Header, {.hdr { 7, "Ninputs", /* MV_Ninputs = 2056 */ variable }}}, /* MVENTRY "Ninputs" Ninputs 0 7 h 2064 */
-	{.type FromV0, {.p 128 }},	/* 2072 128 */
-	{.type Header, {.hdr { 2, "H0", /* MV_H0 = 2088 */ variable }}}, /* MVENTRY "H0" H0 0 2		; here at startup h 2096 */
-	{.type FromV0, {.p 136 }},	/* 2104 136 */
-/* ; cannot use H as it is nil in inferno, address where here (next available dictionary cell location) is stored *//* ; here = Dp @ */	{.type Header, {.hdr { 2, "Dp", /* M_Dp = 2120 */ Dp }}}, /* MENTRY "Dp" Dp 2		; here h 2128 */
-	{.type Header, {.hdr { 4, "Dtop", /* M_Dtop = 2144 */ Dtop }}}, /* MENTRY "Dtop" Dtop 4	; last defined header h 2152 */
-	{.type Header, {.hdr { 2, "Vp", /* M_Vp = 2168 */ Vp }}}, /* MENTRY "Vp" Vp 2		; here of the variables space h 2176 */
-	{.type Header, {.hdr { 2, "S0", /* M_S0 = 2192 */ S0 }}}, /* MENTRY "S0" S0 2 h 2200 */
-	{.type Header, {.hdr { 2, "s@", /* M_stackptr = 2216 */ stackptr }}}, /* MENTRY "s@" stackptr 2	; puts PSP on stack. Not a variable hence lower case. h 2224 */
-	{.type Header, {.hdr { 5, "Wordb", /* M_Wordb = 2240 */ Wordb }}}, /* MENTRY "Wordb" Wordb 5 h 2248 */
-	{.type Header, {.hdr { 3, "Tib", /* M_Tib = 2264 */ Tib }}}, /* MENTRY "Tib" Tib 3 h 2272 */
-	{.type Header, {.hdr { 4, "Args", /* M_Args = 2288 */ Args }}}, /* MENTRY "Args" Args 4 h 2296 */
-	{.type Header, {.hdr { 5, "false", /* C_false = 2312 */ colon }}}, /* CENTRY "false" false 5 h 2320 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2328 */
-	{.type Absolute, {.p 0}},		/* dd 0 2336 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2344 */
-	{.type Header, {.hdr { 4, "true", /* C_true = 2360 */ colon }}}, /* CENTRY "true" true 4 h 2368 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2376 */
-	{.type Absolute, {.p -1}},		/* dd -1 2384 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2392 */
-	{.type Header, {.hdr { 2, "bl", /* C_bl = 2408 */ colon }}}, /* CENTRY "bl" bl 2 h 2416 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2424 */
-	{.type Absolute, {.p 32}},		/* dd 32 2432 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2440 */
-	{.type Header, {.hdr { 2, "on", /* C_on = 2456 */ colon }}}, /* CENTRY "on" on 2 ; ( a -- ) (G stores -1 at a ) h 2464 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2472 */
-	{.type Absolute, {.p -1}},		/* dd -1 2480 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 2488 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 2496 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2504 */
-	{.type Header, {.hdr { 3, "off", /* C_off = 2520 */ colon }}}, /* CENTRY "off" off 3 ; ( a -- ) (G stores 0 at a ) h 2528 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2536 */
-	{.type Absolute, {.p 0}},		/* dd 0 2544 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 2552 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 2560 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2568 */
-	{.type Header, {.hdr { 5, ">body", /* C_tobody = 2584 */ colon }}}, /* CENTRY ">body" tobody 5 h 2592 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2600 */
-	{.type Absolute, {.p 8}},		/* dd 8 2608 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 2616 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2624 */
-	{.type Header, {.hdr { 7, "aligned", /* C_aligned = 2640 */ colon }}}, /* CENTRY "aligned" aligned 7 ; align a number to a multiple of 8 h 2648 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2656 */
-	{.type Absolute, {.p 7}},		/* dd 7 2664 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 2672 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2680 */
-	{.type Absolute, {.p -8}},		/* dd -8 2688 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 2696 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2704 */
-	{.type Header, {.hdr { 5, "cells", /* C_cells = 2720 */ colon }}}, /* CENTRY "cells" cells 5 h 2728 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2736 */
-	{.type Absolute, {.p 3}},		/* dd 3			; (index << 2) -> (index << 3) for amd64 2744 */
-	{.type FromH0, {.p M_lshift}, .src = "dd M_lshift"},		/* dd M_lshift 2752 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2760 */
-	{.type Header, {.hdr { 5, "cell+", /* C_cellplus = 2776 */ colon }}}, /* CENTRY "cell+" cellplus 5 h 2784 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2792 */
-	{.type Absolute, {.p 1}},		/* dd 1 2800 */
-	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 2808 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 2816 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2824 */
-	{.type Header, {.hdr { 5, "depth", /* C_depth = 2840 */ colon }}}, /* CENTRY "depth" depth 5 h 2848 */
-	{.type FromH0, {.p M_S0}, .src = "dd M_S0"},		/* dd M_S0 2856 */
-	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"},		/* dd M_stackptr 2864 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 2872 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2880 */
-	{.type Absolute, {.p 3}},		/* dd 3 2888 */
-	{.type FromH0, {.p M_rshift}, .src = "dd M_rshift"},		/* dd M_rshift 2896 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2904 */
-	{.type Absolute, {.p 1}},		/* dd 1 2912 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 2920 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2928 */
-	{.type Header, {.hdr { 3, "nip", /* C_nip = 2944 */ colon }}}, /* CENTRY "nip" nip 3 h 2952 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 2960 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 2968 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2976 */
-	{.type Header, {.hdr { 3, "rot", /* C_rot = 2992 */ colon }}}, /* CENTRY "rot" rot 3 h 3000 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 3008 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3016 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 3024 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3032 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3040 */
-	{.type Header, {.hdr { 5, "2drop", /* C_2drop = 3056 */ colon }}}, /* CENTRY "2drop" 2drop 5 h 3064 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 3072 */
+	{.type Header, {.hdr { 9, "Acceptvec", /* MV_Acceptvec = 1728 */ variable }}}, /* MVENTRY "Acceptvec" Acceptvec 0 9 h 1736 */
+	{.type FromV0, {.p 48 }},	/* 1744 48 */
+	{.type Header, {.hdr { 9, "Searchlen", /* MV_Searchlen = 1768 */ variable }}}, /* MVENTRY "Searchlen" Searchlen 0 9 h 1776 */
+	{.type FromV0, {.p 56 }},	/* 1784 56 */
+	{.type Header, {.hdr { 4, "Base", /* MV_Base = 1800 */ variable }}}, /* MVENTRY "Base" Base 0 4 h 1808 */
+	{.type FromV0, {.p 64 }},	/* 1816 64 */
+	{.type Header, {.hdr { 4, ">Num", /* MV_toNum = 1832 */ variable }}}, /* MVENTRY ">Num" toNum 0 4 h 1840 */
+	{.type FromV0, {.p 72 }},	/* 1848 72 */
+	{.type Header, {.hdr { 5, "State", /* MV_State = 1864 */ variable }}}, /* MVENTRY "State" State 0 5 h 1872 */
+	{.type FromV0, {.p 80 }},	/* 1880 80 */
+	{.type Header, {.hdr { 8, "Abortvec", /* MV_Abortvec = 1904 */ variable }}}, /* MVENTRY "Abortvec" Abortvec 0 8	; not sure if these 3 can be constants instead? h 1912 */
+	{.type FromV0, {.p 88 }},	/* 1920 88 */
+	{.type Header, {.hdr { 4, "Infd", /* MV_Infd = 1936 */ variable }}}, /* MVENTRY "Infd" Infd 0 4 h 1944 */
+	{.type FromV0, {.p 96 }},	/* 1952 96 */
+	{.type Header, {.hdr { 5, "Outfd", /* MV_Outfd = 1968 */ variable }}}, /* MVENTRY "Outfd" Outfd 0 5 h 1976 */
+	{.type FromV0, {.p 104 }},	/* 1984 104 */
+	{.type Header, {.hdr { 5, "Errfd", /* MV_Errfd = 2000 */ variable }}}, /* MVENTRY "Errfd" Errfd 0 5 h 2008 */
+	{.type FromV0, {.p 112 }},	/* 2016 112 */
+	{.type Header, {.hdr { 3, "Eof", /* MV_Eof = 2032 */ variable }}}, /* MVENTRY "Eof" Eof 0 3 h 2040 */
+	{.type FromV0, {.p 120 }},	/* 2048 120 */
+	{.type Header, {.hdr { 7, "Ninputs", /* MV_Ninputs = 2064 */ variable }}}, /* MVENTRY "Ninputs" Ninputs 0 7 h 2072 */
+	{.type FromV0, {.p 128 }},	/* 2080 128 */
+	{.type Header, {.hdr { 2, "H0", /* MV_H0 = 2096 */ variable }}}, /* MVENTRY "H0" H0 0 2		; here at startup h 2104 */
+	{.type FromV0, {.p 136 }},	/* 2112 136 */
+/* ; cannot use H as it is nil in inferno, address where here (next available dictionary cell location) is stored *//* ; here = Dp @ */	{.type Header, {.hdr { 2, "Dp", /* M_Dp = 2128 */ Dp }}}, /* MENTRY "Dp" Dp 2		; here h 2136 */
+	{.type Header, {.hdr { 4, "Dtop", /* M_Dtop = 2152 */ Dtop }}}, /* MENTRY "Dtop" Dtop 4	; last defined header h 2160 */
+	{.type Header, {.hdr { 2, "Vp", /* M_Vp = 2176 */ Vp }}}, /* MENTRY "Vp" Vp 2		; here of the variables space h 2184 */
+	{.type Header, {.hdr { 2, "S0", /* M_S0 = 2200 */ S0 }}}, /* MENTRY "S0" S0 2 h 2208 */
+	{.type Header, {.hdr { 2, "s@", /* M_stackptr = 2224 */ stackptr }}}, /* MENTRY "s@" stackptr 2	; puts PSP on stack. Not a variable hence lower case. h 2232 */
+	{.type Header, {.hdr { 5, "Wordb", /* M_Wordb = 2248 */ Wordb }}}, /* MENTRY "Wordb" Wordb 5 h 2256 */
+	{.type Header, {.hdr { 3, "Tib", /* M_Tib = 2272 */ Tib }}}, /* MENTRY "Tib" Tib 3 h 2280 */
+	{.type Header, {.hdr { 4, "Args", /* M_Args = 2296 */ Args }}}, /* MENTRY "Args" Args 4 h 2304 */
+	{.type Header, {.hdr { 5, "false", /* C_false = 2320 */ colon }}}, /* CENTRY "false" false 5 h 2328 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2336 */
+	{.type Absolute, {.p 0}},		/* dd 0 2344 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2352 */
+	{.type Header, {.hdr { 4, "true", /* C_true = 2368 */ colon }}}, /* CENTRY "true" true 4 h 2376 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2384 */
+	{.type Absolute, {.p -1}},		/* dd -1 2392 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2400 */
+	{.type Header, {.hdr { 2, "bl", /* C_bl = 2416 */ colon }}}, /* CENTRY "bl" bl 2 h 2424 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2432 */
+	{.type Absolute, {.p 32}},		/* dd 32 2440 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2448 */
+	{.type Header, {.hdr { 2, "on", /* C_on = 2464 */ colon }}}, /* CENTRY "on" on 2 ; ( a -- ) (G stores -1 at a ) h 2472 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2480 */
+	{.type Absolute, {.p -1}},		/* dd -1 2488 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 2496 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 2504 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2512 */
+	{.type Header, {.hdr { 3, "off", /* C_off = 2528 */ colon }}}, /* CENTRY "off" off 3 ; ( a -- ) (G stores 0 at a ) h 2536 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2544 */
+	{.type Absolute, {.p 0}},		/* dd 0 2552 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 2560 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 2568 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2576 */
+	{.type Header, {.hdr { 5, ">body", /* C_tobody = 2592 */ colon }}}, /* CENTRY ">body" tobody 5 h 2600 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2608 */
+	{.type Absolute, {.p 8}},		/* dd 8 2616 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 2624 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2632 */
+	{.type Header, {.hdr { 7, "aligned", /* C_aligned = 2648 */ colon }}}, /* CENTRY "aligned" aligned 7 ; align a number to a multiple of 8 h 2656 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2664 */
+	{.type Absolute, {.p 7}},		/* dd 7 2672 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 2680 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2688 */
+	{.type Absolute, {.p -8}},		/* dd -8 2696 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 2704 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2712 */
+	{.type Header, {.hdr { 5, "cells", /* C_cells = 2728 */ colon }}}, /* CENTRY "cells" cells 5 h 2736 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2744 */
+	{.type Absolute, {.p 3}},		/* dd 3			; (index << 2) -> (index << 3) for amd64 2752 */
+	{.type FromH0, {.p M_lshift}, .src = "dd M_lshift"},		/* dd M_lshift 2760 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2768 */
+	{.type Header, {.hdr { 5, "cell+", /* C_cellplus = 2784 */ colon }}}, /* CENTRY "cell+" cellplus 5 h 2792 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2800 */
+	{.type Absolute, {.p 1}},		/* dd 1 2808 */
+	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 2816 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 2824 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2832 */
+	{.type Header, {.hdr { 5, "depth", /* C_depth = 2848 */ colon }}}, /* CENTRY "depth" depth 5 h 2856 */
+	{.type FromH0, {.p M_S0}, .src = "dd M_S0"},		/* dd M_S0 2864 */
+	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"},		/* dd M_stackptr 2872 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 2880 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2888 */
+	{.type Absolute, {.p 3}},		/* dd 3 2896 */
+	{.type FromH0, {.p M_rshift}, .src = "dd M_rshift"},		/* dd M_rshift 2904 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 2912 */
+	{.type Absolute, {.p 1}},		/* dd 1 2920 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 2928 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2936 */
+	{.type Header, {.hdr { 3, "nip", /* C_nip = 2952 */ colon }}}, /* CENTRY "nip" nip 3 h 2960 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 2968 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 2976 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 2984 */
+	{.type Header, {.hdr { 3, "rot", /* C_rot = 3000 */ colon }}}, /* CENTRY "rot" rot 3 h 3008 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 3016 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3024 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 3032 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3040 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3048 */
+	{.type Header, {.hdr { 5, "2drop", /* C_2drop = 3064 */ colon }}}, /* CENTRY "2drop" 2drop 5 h 3072 */
 	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 3080 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3088 */
-	{.type Header, {.hdr { 4, "2dup", /* C_2dup = 3104 */ colon }}}, /* CENTRY "2dup" 2dup 4 h 3112 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 3120 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 3088 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3096 */
+	{.type Header, {.hdr { 4, "2dup", /* C_2dup = 3112 */ colon }}}, /* CENTRY "2dup" 2dup 4 h 3120 */
 	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 3128 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3136 */
-	{.type Header, {.hdr { 4, "2nip", /* C_2nip = 3152 */ colon }}}, /* CENTRY "2nip" 2nip 4 h 3160 */
-	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 3168 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 3136 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3144 */
+	{.type Header, {.hdr { 4, "2nip", /* C_2nip = 3160 */ colon }}}, /* CENTRY "2nip" 2nip 4 h 3168 */
 	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 3176 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3184 */
-	{.type Header, {.hdr { 5, "2swap", /* C_2swap = 3200 */ colon }}}, /* CENTRY "2swap" 2swap 5 h 3208 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot"},		/* dd C_rot 3216 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 3224 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot"},		/* dd C_rot 3232 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 3240 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3248 */
-	{.type Header, {.hdr { 4, "?dup", /* C_qdup = 3264 */ colon }}}, /* CENTRY "?dup" qdup 4 ; if (n != 0) ( n -- n n) else ( n -- n ) h 3272 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n -- n n )"},		/* dd M_dup	; ( n -- n n ) 3280 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n n -- n n n )"},		/* dd M_dup	; ( n n -- n n n ) 3288 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3296 */
-	{.type Absolute, {.p 0}},		/* dd 0		; ( n n n -- n n n 0 ) 3304 */
-	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( n n n 0 -- n n f )"},		/* dd M_equal	; ( n n n 0 -- n n f ) 3312 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump	; ( n n f -- n n )"},		/* dd M_cjump	; ( n n f -- n n ) 3320 */
-	{.type FromH0, {.p L20}, .src = "dd L20		; when n != 0, go to L20"},		/* dd L20		; when n != 0, go to L20 3328 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop	; when n == 0 ( n n -- n)"},		/* dd M_drop	; when n == 0 ( n n -- n) 3336 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3344 */
-	{.type Header, {.hdr { 4, "pick", /* C_pick = 3360 */ colon }}}, /* CENTRY "pick" pick 4 h 3368 */
-	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 3376 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 3384 */
-	{.type FromH0, {.p L22}, .src = "dd L22"},		/* dd L22 3392 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3400 */
-	{.type Absolute, {.p 1}},		/* dd 1 3408 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3416 */
-	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 3424 */
-	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"},		/* dd M_stackptr 3432 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3440 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 3448 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 3456 */
-	{.type FromH0, {.p L23}, .src = "dd L23"},		/* dd L23 3464 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 3472 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3480 */
-	{.type Header, {.hdr { 4, "tuck", /* C_tuck = 3496 */ colon }}}, /* CENTRY "tuck" tuck 4 h 3504 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 3512 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 3520 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3528 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 3536 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3544 */
-	{.type Header, {.hdr { 1, "/", /* C_divides = 3560 */ colon }}}, /* CENTRY "/" divides 1 h 3568 */
-	{.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"},		/* dd M_slashmod 3576 */
-	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 3584 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3592 */
-	{.type Header, {.hdr { 2, "+!", /* C_plusstore = 3608 */ colon }}}, /* CENTRY "+!" plusstore 2 h 3616 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 3624 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 3632 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot"},		/* dd C_rot 3640 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3648 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3656 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 3664 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3672 */
-	{.type Header, {.hdr { 6, "invert", /* C_invert = 3688 */ colon }}}, /* CENTRY "invert" invert 6 h 3696 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3704 */
-	{.type Absolute, {.p -1}},		/* dd -1 3712 */
-	{.type FromH0, {.p M_binxor}, .src = "dd M_binxor"},		/* dd M_binxor 3720 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3728 */
-	{.type Header, {.hdr { 3, "mod", /* C_mod = 3744 */ colon }}}, /* CENTRY "mod" mod 3 h 3752 */
-	{.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"},		/* dd M_slashmod 3760 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 3768 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3776 */
-	{.type Header, {.hdr { 2, "1+", /* C_1plus = 3792 */ colon }}}, /* CENTRY "1+" 1plus 2 h 3800 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3808 */
-	{.type Absolute, {.p 1}},		/* dd 1 3816 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3824 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3832 */
-	{.type Header, {.hdr { 2, "1-", /* C_1minus = 3848 */ colon }}}, /* CENTRY "1-" 1minus 2 h 3856 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3864 */
-	{.type Absolute, {.p 1}},		/* dd 1 3872 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 3880 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3888 */
-	{.type Header, {.hdr { 6, "negate", /* C_negate = 3904 */ colon }}}, /* CENTRY "negate" negate 6 h 3912 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3920 */
-	{.type Absolute, {.p 0}},		/* dd 0 3928 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3936 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 3944 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3952 */
-	{.type Header, {.hdr { 2, "2*", /* C_2multiplies = 3968 */ colon }}}, /* CENTRY "2*" 2multiplies 2 h 3976 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3984 */
-	{.type Absolute, {.p 1}},		/* dd 1 3992 */
-	{.type FromH0, {.p M_lshift}, .src = "dd M_lshift"},		/* dd M_lshift 4000 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4008 */
-	{.type Header, {.hdr { 2, "2/", /* C_2divides = 4024 */ colon }}}, /* CENTRY "2/" 2divides 2 h 4032 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4040 */
-	{.type Absolute, {.p 1}},		/* dd 1 4048 */
-	{.type FromH0, {.p M_rshifta}, .src = "dd M_rshifta"},		/* dd M_rshifta 4056 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4064 */
-	{.type Header, {.hdr { 2, "0=", /* C_0eq = 4080 */ colon }}}, /* CENTRY "0=" 0eq 2 h 4088 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4096 */
-	{.type Absolute, {.p 0}},		/* dd 0 4104 */
-	{.type FromH0, {.p M_equal}, .src = "dd M_equal"},		/* dd M_equal 4112 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4120 */
-	{.type Header, {.hdr { 2, "0<", /* C_0lt = 4136 */ colon }}}, /* CENTRY "0<" 0lt 2 h 4144 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4152 */
-	{.type Absolute, {.p 0}},		/* dd 0 4160 */
-	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 4168 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4176 */
-	{.type Header, {.hdr { 2, "0>", /* C_0gt = 4192 */ colon }}}, /* CENTRY "0>" 0gt 2 h 4200 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4208 */
-	{.type Absolute, {.p 0}},		/* dd 0 4216 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4224 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4232 */
-	{.type Header, {.hdr { 2, "<>", /* C_neq = 4248 */ colon }}}, /* CENTRY "<>" neq 2 h 4256 */
-	{.type FromH0, {.p M_equal}, .src = "dd M_equal"},		/* dd M_equal 4264 */
-	{.type FromH0, {.p C_invert}, .src = "dd C_invert"},		/* dd C_invert 4272 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4280 */
-	{.type Header, {.hdr { 3, "0<>", /* C_0neq = 4296 */ colon }}}, /* CENTRY "0<>" 0neq 3 h 4304 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4312 */
-	{.type Absolute, {.p 0}},		/* dd 0 4320 */
-	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 4328 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4336 */
-	{.type Header, {.hdr { 3, "max", /* C_max = 4352 */ colon }}}, /* CENTRY "max" max 3 h 4360 */
-	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 4368 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4376 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4384 */
-	{.type FromH0, {.p L40}, .src = "dd L40"},		/* dd L40 4392 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 4400 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4408 */
-	{.type FromH0, {.p L41}, .src = "dd L41"},		/* dd L41 4416 */
-	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 4424 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4432 */
-	{.type Header, {.hdr { 3, "min", /* C_min = 4448 */ colon }}}, /* CENTRY "min" min 3 h 4456 */
-	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 4464 */
-	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 4472 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4480 */
-	{.type FromH0, {.p L43}, .src = "dd L43"},		/* dd L43 4488 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 4496 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4504 */
-	{.type FromH0, {.p L44}, .src = "dd L44"},		/* dd L44 4512 */
-	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 4520 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4528 */
-	{.type Header, {.hdr { 6, "signum", /* C_signum = 4544 */ colon }}}, /* CENTRY "signum" signum 6 h 4552 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 4560 */
-	{.type FromH0, {.p C_0gt}, .src = "dd C_0gt"},		/* dd C_0gt 4568 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4576 */
-	{.type FromH0, {.p L46}, .src = "dd L46"},		/* dd L46 4584 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 4592 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4600 */
-	{.type Absolute, {.p 1}},		/* dd 1 4608 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4616 */
-	{.type FromH0, {.p L47}, .src = "dd L47"},		/* dd L47 4624 */
-	{.type FromH0, {.p C_0lt}, .src = "dd C_0lt"},		/* dd C_0lt 4632 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4640 */
-	{.type FromH0, {.p L48}, .src = "dd L48"},		/* dd L48 4648 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4656 */
-	{.type Absolute, {.p -1}},		/* dd -1 4664 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4672 */
-	{.type FromH0, {.p L49}, .src = "dd L49"},		/* dd L49 4680 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4688 */
-	{.type Absolute, {.p 0}},		/* dd 0 4696 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4704 */
-	{.type Header, {.hdr { 6, "within", /* C_within = 4720 */ colon }}}, /* CENTRY "within" within 6 h 4728 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 4736 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 4744 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4752 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 4760 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 4768 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 4776 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4784 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 4792 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 4800 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4808 */
-	{.type Header, {.hdr { 3, "abs", /* C_abs = 4824 */ colon }}}, /* CENTRY "abs" abs 3 h 4832 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 4840 */
-	{.type FromH0, {.p C_0lt}, .src = "dd C_0lt"},		/* dd C_0lt 4848 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4856 */
-	{.type FromH0, {.p L52}, .src = "dd L52"},		/* dd L52 4864 */
-	{.type FromH0, {.p C_negate}, .src = "dd C_negate"},		/* dd C_negate 4872 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4880 */
-	{.type Header, {.hdr { 3, "key", /* C_key = 4896 */ colon }}}, /* CENTRY "key" key 3 ; ( -- c ) (G read a single character from the input onto the stack ) h 4904 */
-	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 4912 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( infd )"},		/* dd M_fetch		; ( infd ) 4920 */
-	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; variable iobuf to store the character read"},		/* dd MV_Iobuf		; variable iobuf to store the character read 4928 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4936 */
-	{.type Absolute, {.p 1}},		/* dd 1			; ( infd Iobuf 1 ) 4944 */
-	{.type FromH0, {.p M_sysread}, .src = "dd M_sysread	; ( infd Iobuf 1 -- n )"},		/* dd M_sysread	; ( infd Iobuf 1 -- n ) 4952 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 4960 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump		; if 0 characters read"},		/* dd M_cjump		; if 0 characters read 4968 */
-	{.type FromH0, {.p L78}, .src = "dd L78			; if qread n != 0 jump to L78. If n == 0 jump over"},		/* dd L78			; if qread n != 0 jump to L78. If n == 0 jump over 4976 */
-	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 4984 */
-	{.type FromH0, {.p C_on}, .src = "dd C_on		; EOF"},		/* dd C_on		; EOF 4992 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5000 */
-	{.type Absolute, {.p -1}},		/* dd -1			; return -1 when EOF 5008 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 5016 */
-	{.type FromH0, {.p L79}, .src = "dd L79"},		/* dd L79 5024 */
-	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; get the character from Iobuf to stack"},		/* dd MV_Iobuf		; get the character from Iobuf to stack 5032 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( -- c ) return the character read if not EOF"},		/* dd M_cfetch	; ( -- c ) return the character read if not EOF 5040 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5048 */
-	{.type Header, {.hdr { 4, "emit", /* C_emit = 5064 */ colon }}}, /* CENTRY "emit" emit 4 ; ( character -- ) h 5072 */
-	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; variable iobuf address"},		/* dd MV_Iobuf		; variable iobuf address 5080 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; variable iobuf has character"},		/* dd M_cstore	; variable iobuf has character 5088 */
-	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 5096 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; outfd"},		/* dd M_fetch		; outfd 5104 */
-	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; variable iobuf address"},		/* dd MV_Iobuf		; variable iobuf address 5112 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5120 */
-	{.type Absolute, {.p 1}},		/* dd 1			; ( outfd iobuf 1 ) 5128 */
-	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite	; ( 1 iobuf outfd --  )"},		/* dd M_syswrite	; ( 1 iobuf outfd --  ) 5136 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 5144 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5152 */
-	{.type Header, {.hdr { 4, "type", /* C_type = 5168 */ colon }}}, /* CENTRY "type" type 4 ; ( addr n -- ) h 5176 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; ( addr ) (R n )"},		/* dd M_rpush		; ( addr ) (R n ) 5184 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; ( ) (R n addr )"},		/* dd M_rpush		; ( ) (R n addr ) 5192 */
-	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 5200 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( outfd )"},		/* dd M_fetch		; ( outfd ) 5208 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( outfd addr ) (R n )"},		/* dd M_rpop		; ( outfd addr ) (R n ) 5216 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( outfd addr n ) (R )"},		/* dd M_rpop		; ( outfd addr n ) (R ) 5224 */
-	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite	; ( 1 addr n --  )"},		/* dd M_syswrite	; ( 1 addr n --  ) 5232 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 5240 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5248 */
-	{.type Header, {.hdr { 2, "cr", /* C_cr = 5264 */ colon }}}, /* CENTRY "cr" cr 2 h 5272 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5280 */
-	{.type Absolute, {.p 10}},		/* dd 10			; ascii value of carriage return 5288 */
-	{.type FromH0, {.p C_emit}, .src = "dd C_emit			; emit"},		/* dd C_emit			; emit 5296 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5304 */
-	{.type Header, {.hdr { 5, "space", /* C_space = 5320 */ colon }}}, /* CENTRY "space" space 5 h 5328 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 5336 */
-	{.type FromH0, {.p C_emit}, .src = "dd C_emit"},		/* dd C_emit 5344 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5352 */
-	{.type Header, {.hdr { 5, "emits", /* C_emits = 5368 */ colon }}}, /* CENTRY "emits" emits 5 h 5376 */
-	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 5384 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 5392 */
-	{.type FromH0, {.p L86}, .src = "dd L86"},		/* dd L86 5400 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 5408 */
-	{.type FromH0, {.p C_emit}, .src = "dd C_emit"},		/* dd C_emit 5416 */
-	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 5424 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 5432 */
-	{.type FromH0, {.p L85}, .src = "dd L85"},		/* dd L85 5440 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 5448 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5456 */
-	{.type Header, {.hdr { 6, "spaces", /* C_spaces = 5472 */ colon }}}, /* CENTRY "spaces" spaces 6 h 5480 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 5488 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 5496 */
-	{.type FromH0, {.p C_emits}, .src = "dd C_emits"},		/* dd C_emits 5504 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5512 */
-	{.type Header, {.hdr { 5, "count", /* C_count = 5528 */ colon }}}, /* CENTRY "count" count 5 ; ( a -- a+1 n ) a = address of counted string ( a - a+1 a[0]) h 5536 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 5544 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 5552 */
-	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 5560 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 5568 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5576 */
-	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup ; debug show the word name to search"},		/* dd C_2dup ; debug show the word name to search 5584 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 5592 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 5600 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; debug show the dictionary entry"},		/* dd M_rpush ; debug show the dictionary entry 5608 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 5616 */
-	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 5624 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 5632 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 5640 */
+	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 3184 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3192 */
+	{.type Header, {.hdr { 5, "2swap", /* C_2swap = 3208 */ colon }}}, /* CENTRY "2swap" 2swap 5 h 3216 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot"},		/* dd C_rot 3224 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 3232 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot"},		/* dd C_rot 3240 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 3248 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3256 */
+	{.type Header, {.hdr { 4, "?dup", /* C_qdup = 3272 */ colon }}}, /* CENTRY "?dup" qdup 4 ; if (n != 0) ( n -- n n) else ( n -- n ) h 3280 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n -- n n )"},		/* dd M_dup	; ( n -- n n ) 3288 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n n -- n n n )"},		/* dd M_dup	; ( n n -- n n n ) 3296 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3304 */
+	{.type Absolute, {.p 0}},		/* dd 0		; ( n n n -- n n n 0 ) 3312 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( n n n 0 -- n n f )"},		/* dd M_equal	; ( n n n 0 -- n n f ) 3320 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump	; ( n n f -- n n )"},		/* dd M_cjump	; ( n n f -- n n ) 3328 */
+	{.type FromH0, {.p L20}, .src = "dd L20		; when n != 0, go to L20"},		/* dd L20		; when n != 0, go to L20 3336 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop	; when n == 0 ( n n -- n)"},		/* dd M_drop	; when n == 0 ( n n -- n) 3344 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3352 */
+	{.type Header, {.hdr { 4, "pick", /* C_pick = 3368 */ colon }}}, /* CENTRY "pick" pick 4 h 3376 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 3384 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 3392 */
+	{.type FromH0, {.p L22}, .src = "dd L22"},		/* dd L22 3400 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3408 */
+	{.type Absolute, {.p 1}},		/* dd 1 3416 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3424 */
+	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 3432 */
+	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"},		/* dd M_stackptr 3440 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3448 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 3456 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 3464 */
+	{.type FromH0, {.p L23}, .src = "dd L23"},		/* dd L23 3472 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 3480 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3488 */
+	{.type Header, {.hdr { 4, "tuck", /* C_tuck = 3504 */ colon }}}, /* CENTRY "tuck" tuck 4 h 3512 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 3520 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 3528 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3536 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 3544 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3552 */
+	{.type Header, {.hdr { 1, "/", /* C_divides = 3568 */ colon }}}, /* CENTRY "/" divides 1 h 3576 */
+	{.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"},		/* dd M_slashmod 3584 */
+	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 3592 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3600 */
+	{.type Header, {.hdr { 2, "+!", /* C_plusstore = 3616 */ colon }}}, /* CENTRY "+!" plusstore 2 h 3624 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 3632 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 3640 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot"},		/* dd C_rot 3648 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3656 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3664 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 3672 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3680 */
+	{.type Header, {.hdr { 6, "invert", /* C_invert = 3696 */ colon }}}, /* CENTRY "invert" invert 6 h 3704 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3712 */
+	{.type Absolute, {.p -1}},		/* dd -1 3720 */
+	{.type FromH0, {.p M_binxor}, .src = "dd M_binxor"},		/* dd M_binxor 3728 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3736 */
+	{.type Header, {.hdr { 3, "mod", /* C_mod = 3752 */ colon }}}, /* CENTRY "mod" mod 3 h 3760 */
+	{.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"},		/* dd M_slashmod 3768 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 3776 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3784 */
+	{.type Header, {.hdr { 2, "1+", /* C_1plus = 3800 */ colon }}}, /* CENTRY "1+" 1plus 2 h 3808 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3816 */
+	{.type Absolute, {.p 1}},		/* dd 1 3824 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 3832 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3840 */
+	{.type Header, {.hdr { 2, "1-", /* C_1minus = 3856 */ colon }}}, /* CENTRY "1-" 1minus 2 h 3864 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3872 */
+	{.type Absolute, {.p 1}},		/* dd 1 3880 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 3888 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3896 */
+	{.type Header, {.hdr { 6, "negate", /* C_negate = 3912 */ colon }}}, /* CENTRY "negate" negate 6 h 3920 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3928 */
+	{.type Absolute, {.p 0}},		/* dd 0 3936 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 3944 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 3952 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 3960 */
+	{.type Header, {.hdr { 2, "2*", /* C_2multiplies = 3976 */ colon }}}, /* CENTRY "2*" 2multiplies 2 h 3984 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 3992 */
+	{.type Absolute, {.p 1}},		/* dd 1 4000 */
+	{.type FromH0, {.p M_lshift}, .src = "dd M_lshift"},		/* dd M_lshift 4008 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4016 */
+	{.type Header, {.hdr { 2, "2/", /* C_2divides = 4032 */ colon }}}, /* CENTRY "2/" 2divides 2 h 4040 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4048 */
+	{.type Absolute, {.p 1}},		/* dd 1 4056 */
+	{.type FromH0, {.p M_rshifta}, .src = "dd M_rshifta"},		/* dd M_rshifta 4064 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4072 */
+	{.type Header, {.hdr { 2, "0=", /* C_0eq = 4088 */ colon }}}, /* CENTRY "0=" 0eq 2 h 4096 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4104 */
+	{.type Absolute, {.p 0}},		/* dd 0 4112 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal"},		/* dd M_equal 4120 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4128 */
+	{.type Header, {.hdr { 2, "0<", /* C_0lt = 4144 */ colon }}}, /* CENTRY "0<" 0lt 2 h 4152 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4160 */
+	{.type Absolute, {.p 0}},		/* dd 0 4168 */
+	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 4176 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4184 */
+	{.type Header, {.hdr { 2, "0>", /* C_0gt = 4200 */ colon }}}, /* CENTRY "0>" 0gt 2 h 4208 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4216 */
+	{.type Absolute, {.p 0}},		/* dd 0 4224 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4232 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4240 */
+	{.type Header, {.hdr { 2, "<>", /* C_neq = 4256 */ colon }}}, /* CENTRY "<>" neq 2 h 4264 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal"},		/* dd M_equal 4272 */
+	{.type FromH0, {.p C_invert}, .src = "dd C_invert"},		/* dd C_invert 4280 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4288 */
+	{.type Header, {.hdr { 3, "0<>", /* C_0neq = 4304 */ colon }}}, /* CENTRY "0<>" 0neq 3 h 4312 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4320 */
+	{.type Absolute, {.p 0}},		/* dd 0 4328 */
+	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 4336 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4344 */
+	{.type Header, {.hdr { 3, "max", /* C_max = 4360 */ colon }}}, /* CENTRY "max" max 3 h 4368 */
+	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 4376 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4384 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4392 */
+	{.type FromH0, {.p L40}, .src = "dd L40"},		/* dd L40 4400 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 4408 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4416 */
+	{.type FromH0, {.p L41}, .src = "dd L41"},		/* dd L41 4424 */
+	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 4432 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4440 */
+	{.type Header, {.hdr { 3, "min", /* C_min = 4456 */ colon }}}, /* CENTRY "min" min 3 h 4464 */
+	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 4472 */
+	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 4480 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4488 */
+	{.type FromH0, {.p L43}, .src = "dd L43"},		/* dd L43 4496 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 4504 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4512 */
+	{.type FromH0, {.p L44}, .src = "dd L44"},		/* dd L44 4520 */
+	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 4528 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4536 */
+	{.type Header, {.hdr { 6, "signum", /* C_signum = 4552 */ colon }}}, /* CENTRY "signum" signum 6 h 4560 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 4568 */
+	{.type FromH0, {.p C_0gt}, .src = "dd C_0gt"},		/* dd C_0gt 4576 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4584 */
+	{.type FromH0, {.p L46}, .src = "dd L46"},		/* dd L46 4592 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 4600 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4608 */
+	{.type Absolute, {.p 1}},		/* dd 1 4616 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4624 */
+	{.type FromH0, {.p L47}, .src = "dd L47"},		/* dd L47 4632 */
+	{.type FromH0, {.p C_0lt}, .src = "dd C_0lt"},		/* dd C_0lt 4640 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4648 */
+	{.type FromH0, {.p L48}, .src = "dd L48"},		/* dd L48 4656 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4664 */
+	{.type Absolute, {.p -1}},		/* dd -1 4672 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 4680 */
+	{.type FromH0, {.p L49}, .src = "dd L49"},		/* dd L49 4688 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4696 */
+	{.type Absolute, {.p 0}},		/* dd 0 4704 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4712 */
+	{.type Header, {.hdr { 6, "within", /* C_within = 4728 */ colon }}}, /* CENTRY "within" within 6 h 4736 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 4744 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 4752 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4760 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 4768 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 4776 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 4784 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 4792 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 4800 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 4808 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4816 */
+	{.type Header, {.hdr { 3, "abs", /* C_abs = 4832 */ colon }}}, /* CENTRY "abs" abs 3 h 4840 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 4848 */
+	{.type FromH0, {.p C_0lt}, .src = "dd C_0lt"},		/* dd C_0lt 4856 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 4864 */
+	{.type FromH0, {.p L52}, .src = "dd L52"},		/* dd L52 4872 */
+	{.type FromH0, {.p C_negate}, .src = "dd C_negate"},		/* dd C_negate 4880 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 4888 */
+	{.type Header, {.hdr { 3, "key", /* C_key = 4904 */ colon }}}, /* CENTRY "key" key 3 ; ( -- c ) (G read a single character from the input onto the stack ) h 4912 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 4920 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( infd )"},		/* dd M_fetch		; ( infd ) 4928 */
+	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; variable iobuf to store the character read"},		/* dd MV_Iobuf		; variable iobuf to store the character read 4936 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 4944 */
+	{.type Absolute, {.p 1}},		/* dd 1			; ( infd Iobuf 1 ) 4952 */
+	{.type FromH0, {.p M_sysread}, .src = "dd M_sysread	; ( infd Iobuf 1 -- n )"},		/* dd M_sysread	; ( infd Iobuf 1 -- n ) 4960 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 4968 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump		; if 0 characters read"},		/* dd M_cjump		; if 0 characters read 4976 */
+	{.type FromH0, {.p L78}, .src = "dd L78			; if qread n != 0 jump to L78. If n == 0 jump over"},		/* dd L78			; if qread n != 0 jump to L78. If n == 0 jump over 4984 */
+	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 4992 */
+	{.type FromH0, {.p C_on}, .src = "dd C_on		; EOF"},		/* dd C_on		; EOF 5000 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5008 */
+	{.type Absolute, {.p -1}},		/* dd -1			; return -1 when EOF 5016 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 5024 */
+	{.type FromH0, {.p L79}, .src = "dd L79"},		/* dd L79 5032 */
+	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; get the character from Iobuf to stack"},		/* dd MV_Iobuf		; get the character from Iobuf to stack 5040 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( -- c ) return the character read if not EOF"},		/* dd M_cfetch	; ( -- c ) return the character read if not EOF 5048 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5056 */
+	{.type Header, {.hdr { 4, "emit", /* C_emit = 5072 */ colon }}}, /* CENTRY "emit" emit 4 ; ( character -- ) h 5080 */
+	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; variable iobuf address"},		/* dd MV_Iobuf		; variable iobuf address 5088 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; variable iobuf has character"},		/* dd M_cstore	; variable iobuf has character 5096 */
+	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 5104 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; outfd"},		/* dd M_fetch		; outfd 5112 */
+	{.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf		; variable iobuf address"},		/* dd MV_Iobuf		; variable iobuf address 5120 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5128 */
+	{.type Absolute, {.p 1}},		/* dd 1			; ( outfd iobuf 1 ) 5136 */
+	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite	; ( 1 iobuf outfd --  )"},		/* dd M_syswrite	; ( 1 iobuf outfd --  ) 5144 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 5152 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5160 */
+	{.type Header, {.hdr { 4, "type", /* C_type = 5176 */ colon }}}, /* CENTRY "type" type 4 ; ( addr n -- ) h 5184 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; ( addr ) (R n )"},		/* dd M_rpush		; ( addr ) (R n ) 5192 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; ( ) (R n addr )"},		/* dd M_rpush		; ( ) (R n addr ) 5200 */
+	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 5208 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( outfd )"},		/* dd M_fetch		; ( outfd ) 5216 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( outfd addr ) (R n )"},		/* dd M_rpop		; ( outfd addr ) (R n ) 5224 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( outfd addr n ) (R )"},		/* dd M_rpop		; ( outfd addr n ) (R ) 5232 */
+	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite	; ( 1 addr n --  )"},		/* dd M_syswrite	; ( 1 addr n --  ) 5240 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 5248 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5256 */
+	{.type Header, {.hdr { 2, "cr", /* C_cr = 5272 */ colon }}}, /* CENTRY "cr" cr 2 h 5280 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5288 */
+	{.type Absolute, {.p 10}},		/* dd 10			; ascii value of carriage return 5296 */
+	{.type FromH0, {.p C_emit}, .src = "dd C_emit			; emit"},		/* dd C_emit			; emit 5304 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5312 */
+	{.type Header, {.hdr { 5, "space", /* C_space = 5328 */ colon }}}, /* CENTRY "space" space 5 h 5336 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 5344 */
+	{.type FromH0, {.p C_emit}, .src = "dd C_emit"},		/* dd C_emit 5352 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5360 */
+	{.type Header, {.hdr { 5, "emits", /* C_emits = 5376 */ colon }}}, /* CENTRY "emits" emits 5 h 5384 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 5392 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 5400 */
+	{.type FromH0, {.p L86}, .src = "dd L86"},		/* dd L86 5408 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 5416 */
+	{.type FromH0, {.p C_emit}, .src = "dd C_emit"},		/* dd C_emit 5424 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 5432 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 5440 */
+	{.type FromH0, {.p L85}, .src = "dd L85"},		/* dd L85 5448 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 5456 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5464 */
+	{.type Header, {.hdr { 6, "spaces", /* C_spaces = 5480 */ colon }}}, /* CENTRY "spaces" spaces 6 h 5488 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 5496 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 5504 */
+	{.type FromH0, {.p C_emits}, .src = "dd C_emits"},		/* dd C_emits 5512 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5520 */
+	{.type Header, {.hdr { 5, "count", /* C_count = 5536 */ colon }}}, /* CENTRY "count" count 5 ; ( a -- a+1 n ) a = address of counted string ( a - a+1 a[0]) h 5544 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 5552 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 5560 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 5568 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 5576 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5584 */
+	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup ; debug show the word name to search"},		/* dd C_2dup ; debug show the word name to search 5592 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 5600 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 5608 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; debug show the dictionary entry"},		/* dd M_rpush ; debug show the dictionary entry 5616 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 5624 */
+	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 5632 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 5640 */
 	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 5648 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 5656 */
-	{.type Header, {.hdr { 7, "compare", /* C_compare = 5672 */ colon }}}, /* CENTRY "compare" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search h 5680 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( a1 n1 a2 n2 -- a1 a2 n2 n1 )"},		/* dd C_rot	; ( a1 n1 a2 n2 -- a1 a2 n2 n1 ) 5688 */
-	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup	; ( -- a1 a2 n2 n1 n2 n1 )"},		/* dd C_2dup	; ( -- a1 a2 n2 n1 n2 n1 ) 5696 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- a1 a2 n2 n1 n2 ) (R n1 -- )"},		/* dd M_rpush	; ( -- a1 a2 n2 n1 n2 ) (R n1 -- ) 5704 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- a1 a2 n2 n1 ) (R n1 n2 -- )"},		/* dd M_rpush	; ( -- a1 a2 n2 n1 ) (R n1 n2 -- ) 5712 */
-	{.type FromH0, {.p C_min}, .src = "dd C_min	; ( -- a1 a2 nmin ) (R n1 n2 -- )"},		/* dd C_min	; ( -- a1 a2 nmin ) (R n1 n2 -- ) 5720 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5728 */
-	{.type Absolute, {.p 0}},		/* dd 0		; ( -- a1 a2 nmin 0 ) (R n1 n2 -- ) 5736 */
-	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit	; ( -- a1 a2 ) (R n1 n2 0 nmin -- )"},		/* dd M_doinit	; ( -- a1 a2 ) (R n1 n2 0 nmin -- ) 5744 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 5752 */
-	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 5760 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 5768 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 5776 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 5784 */
-	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 5792 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 5800 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 5808 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 5816 */
-	{.type FromH0, {.p C_signum}, .src = "dd C_signum"},		/* dd C_signum 5824 */
-	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 5832 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 5840 */
-	{.type FromH0, {.p L56}, .src = "dd L56		; matches"},		/* dd L56		; matches 5848 */
-	{.type FromH0, {.p C_2nip}, .src = "dd C_2nip	; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- )"},		/* dd C_2nip	; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- ) 5856 */
-	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop	; ( f -- f ) (R n1 n2 0 nmin -- n1 n2)"},		/* dd M_unloop	; ( f -- f ) (R n1 n2 0 nmin -- n1 n2) 5864 */
-	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop	; ( f -- f ) (R n1 n2 -- )"},		/* dd M_unloop	; ( f -- f ) (R n1 n2 -- ) 5872 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5880 */
-	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 5888 */
-	{.type FromH0, {.p L55}, .src = "dd L55"},		/* dd L55 5896 */
-	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop	; ( a1 a2 -- ) (R n1 n2 -- )"},		/* dd C_2drop	; ( a1 a2 -- ) (R n1 n2 -- ) 5904 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 5912 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( n2 n1 -- ) (R -- )"},		/* dd M_rpop	; ( n2 n1 -- ) (R -- ) 5920 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( -- n1-n2 )"},		/* dd M_minus	; ( -- n1-n2 ) 5928 */
-	{.type FromH0, {.p C_signum}, .src = "dd C_signum"},		/* dd C_signum 5936 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5944 */
-	{.type Header, {.hdr { 5, "erase", /* C_erase = 5960 */ colon }}}, /* CENTRY "erase" erase 5 h 5968 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5976 */
-	{.type Absolute, {.p 0}},		/* dd 0 5984 */
-	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit"},		/* dd M_doinit 5992 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6000 */
-	{.type Absolute, {.p 0}},		/* dd 0 6008 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 6016 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 6024 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 6032 */
-	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 6040 */
-	{.type FromH0, {.p L58}, .src = "dd L58"},		/* dd L58 6048 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 6056 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6064 */
-	{.type Header, {.hdr { 4, "fill", /* C_fill = 6080 */ colon }}}, /* CENTRY "fill" fill 4 h 6088 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6096 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6104 */
-	{.type Absolute, {.p 0}},		/* dd 0 6112 */
-	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit"},		/* dd M_doinit 6120 */
-	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 6128 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6136 */
-	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6144 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 6152 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 6160 */
-	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 6168 */
-	{.type FromH0, {.p L60}, .src = "dd L60"},		/* dd L60 6176 */
-	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop"},		/* dd C_2drop 6184 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6192 */
-	{.type Header, {.hdr { 5, "blank", /* C_blank = 6208 */ colon }}}, /* CENTRY "blank" blank 5 h 6216 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 6224 */
-	{.type FromH0, {.p C_fill}, .src = "dd C_fill"},		/* dd C_fill 6232 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6240 */
-	{.type Header, {.hdr { 6, "search", /* C_search = 6256 */ colon }}}, /* CENTRY "search" search 6 h 6264 */
-	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6272 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 6280 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6288 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 6296 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 6304 */
-	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6312 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6320 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 6328 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 6336 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6344 */
-	{.type Absolute, {.p 0}},		/* dd 0 6352 */
-	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit"},		/* dd M_doinit 6360 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 6368 */
-	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6376 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 6384 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 6392 */
-	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6400 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6408 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6416 */
-	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6424 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6432 */
-	{.type FromH0, {.p C_compare}, .src = "dd C_compare"},		/* dd C_compare 6440 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 6448 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 6456 */
-	{.type FromH0, {.p L65}, .src = "dd L65"},		/* dd L65 6464 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 6472 */
-	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6480 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 6488 */
-	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6496 */
-	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop"},		/* dd M_unloop 6504 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 6512 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6520 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 6528 */
-	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 6536 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6544 */
-	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 6552 */
-	{.type FromH0, {.p L64}, .src = "dd L64"},		/* dd L64 6560 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 6568 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 6576 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 6584 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6592 */
-	{.type Header, {.hdr { 4, "here", /* C_here = 6608 */ colon }}}, /* CENTRY "here" here 4 h 6616 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6624 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6632 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6640 */
-	{.type Header, {.hdr { 4, "vhere", /* C_vhere = 6656 */ colon }}}, /* CENTRY "vhere" vhere 4 h 6664 */
-	{.type FromH0, {.p M_Vp}, .src = "dd M_Vp"},		/* dd M_Vp 6672 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6680 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6688 */
-	{.type Header, {.hdr { 1, ",", /* C_comma = 6704 */ colon }}}, /* CENTRY "," comma 1 h 6712 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 6720 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 6728 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6736 */
-	{.type Absolute, {.p 8}},		/* dd 8 6744 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6752 */
-	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6760 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6768 */
-	{.type Header, {.hdr { 2, "c,", /* C_c = 6784 */ colon }}}, /* CENTRY "c," c 2 h 6792 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 6800 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 6808 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6816 */
-	{.type Absolute, {.p 1}},		/* dd 1 6824 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6832 */
-	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6840 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6848 */
-	{.type Header, {.hdr { 5, "allot", /* C_allot = 6864 */ colon }}}, /* CENTRY "allot" allot 5 ; ( n -- ) here = here+n h 6872 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6880 */
-	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6888 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6896 */
-	{.type Header, {.hdr { 6, "vallot", /* C_vallot = 6912 */ colon }}}, /* CENTRY "vallot" vallot 6 ; allot on the variable space ( n -- ) vhere = vhere+n h 6920 */
-	{.type FromH0, {.p M_Vp}, .src = "dd M_Vp"},		/* dd M_Vp 6928 */
-	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6936 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6944 */
-	{.type Header, {.hdr { 3, "pad", /* C_pad = 6960 */ colon }}}, /* CENTRY "pad" pad 3 h 6968 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 6976 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6984 */
-	{.type Absolute, {.p 256}},		/* dd 256 6992 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7000 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7008 */
-	{.type Header, {.hdr { 5, "align", /* C_align = 7024 */ colon }}}, /* CENTRY "align" align 5 ; ( -- ) align here to a cell boundary h 7032 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here		; Dp @"},		/* dd C_here		; Dp @ 7040 */
-	{.type FromH0, {.p C_aligned}, .src = "dd C_aligned	; here is aligned to a multiple of 8"},		/* dd C_aligned	; here is aligned to a multiple of 8 7048 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp			; store the aligned here at Dp"},		/* dd M_Dp			; store the aligned here at Dp 7056 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store		; Dp contains aligned_here"},		/* dd M_store		; Dp contains aligned_here 7064 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7072 */
-	{.type Header, {.hdr { 6, "unused", /* C_unused = 7088 */ colon }}}, /* CENTRY "unused" unused 6 h 7096 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 7104 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7112 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 7120 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 7128 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7136 */
-	{.type Header, {.hdr { 2, "<#", /* C_fromhash = 7152 */ colon }}}, /* CENTRY "<#" fromhash 2 h 7160 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 7168 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7176 */
-	{.type Absolute, {.p 1024}},		/* dd 1024 7184 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7192 */
-	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7200 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 7208 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7216 */
-	{.type Header, {.hdr { 1, "#", /* C_hash = 7232 */ colon }}}, /* CENTRY "#" hash 1 h 7240 */
-	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 7248 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7256 */
-	{.type FromH0, {.p M_uslashmod}, .src = "dd M_uslashmod"},		/* dd M_uslashmod 7264 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 7272 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7280 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7288 */
-	{.type Absolute, {.p 9}},		/* dd 9 7296 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 7304 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 7312 */
-	{.type FromH0, {.p L92}, .src = "dd L92"},		/* dd L92 7320 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7328 */
-	{.type Absolute, {.p 97}},		/* dd 97 7336 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7344 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7352 */
-	{.type Absolute, {.p 10}},		/* dd 10 7360 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 7368 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 7376 */
-	{.type FromH0, {.p L93}, .src = "dd L93"},		/* dd L93 7384 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7392 */
-	{.type Absolute, {.p 48}},		/* dd 48 7400 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7408 */
-	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7416 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7424 */
-	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 7432 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7440 */
-	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7448 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 7456 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 7464 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7472 */
-	{.type Header, {.hdr { 2, "#s", /* C_hashs = 7488 */ colon }}}, /* CENTRY "#s" hashs 2 h 7496 */
-	{.type FromH0, {.p C_hash}, .src = "dd C_hash"},		/* dd C_hash 7504 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7512 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 7520 */
-	{.type FromH0, {.p L96}, .src = "dd L96"},		/* dd L96 7528 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 7536 */
-	{.type FromH0, {.p L95}, .src = "dd L95"},		/* dd L95 7544 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7552 */
-	{.type Header, {.hdr { 2, "#>", /* C_hashfrom = 7568 */ colon }}}, /* CENTRY "#>" hashfrom 2 h 7576 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 7584 */
-	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7592 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7600 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7608 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 7616 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7624 */
-	{.type Absolute, {.p 1024}},		/* dd 1024 7632 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7640 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 7648 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 7656 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7664 */
-	{.type Header, {.hdr { 4, "hold", /* C_hold = 7680 */ colon }}}, /* CENTRY "hold" hold 4 h 7688 */
-	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7696 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7704 */
-	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 7712 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7720 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 7728 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 7736 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 7744 */
-	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7752 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 7760 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7768 */
-	{.type Header, {.hdr { 4, "sign", /* C_sign = 7784 */ colon }}}, /* CENTRY "sign" sign 4 h 7792 */
-	{.type FromH0, {.p C_0lt}, .src = "dd C_0lt"},		/* dd C_0lt 7800 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 7808 */
-	{.type FromH0, {.p L100}, .src = "dd L100"},		/* dd L100 7816 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7824 */
-	{.type Absolute, {.p 45}},		/* dd 45 7832 */
-	{.type FromH0, {.p C_hold}, .src = "dd C_hold"},		/* dd C_hold 7840 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7848 */
-	{.type Header, {.hdr { 1, ".", /* C_dot = 7864 */ colon }}}, /* CENTRY "." dot 1 ; print the top of stack ( n -- ) h 7872 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup		; ( n -- n n )"},		/* dd M_dup		; ( n -- n n ) 7880 */
-	{.type FromH0, {.p C_abs}, .src = "dd C_abs		; ( n n -- n u )"},		/* dd C_abs		; ( n n -- n u ) 7888 */
-	{.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash	; pad = h+256; >num = pad+1024"},		/* dd C_fromhash	; pad = h+256; >num = pad+1024 7896 */
-	{.type FromH0, {.p C_hashs}, .src = "dd C_hashs		; ( n u1 -- n n2 )"},		/* dd C_hashs		; ( n u1 -- n n2 ) 7904 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap		; ( n n2 -- n2 n )"},		/* dd M_xswap		; ( n n2 -- n2 n ) 7912 */
-	{.type FromH0, {.p C_sign}, .src = "dd C_sign		; ( n2 n -- n2 )"},		/* dd C_sign		; ( n2 n -- n2 ) 7920 */
-	{.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom	; ( u1 -- a n )"},		/* dd C_hashfrom	; ( u1 -- a n ) 7928 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type		; ( a n -- )"},		/* dd C_type		; ( a n -- ) 7936 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 7944 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7952 */
-	{.type Header, {.hdr { 2, ".r", /* C_dotr = 7968 */ colon }}}, /* CENTRY ".r" dotr 2 h 7976 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 7984 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7992 */
-	{.type FromH0, {.p C_abs}, .src = "dd C_abs"},		/* dd C_abs 8000 */
-	{.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash"},		/* dd C_fromhash 8008 */
-	{.type FromH0, {.p C_hashs}, .src = "dd C_hashs"},		/* dd C_hashs 8016 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 8024 */
-	{.type FromH0, {.p C_sign}, .src = "dd C_sign"},		/* dd C_sign 8032 */
-	{.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom"},		/* dd C_hashfrom 8040 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 8048 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 8056 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8064 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8072 */
-	{.type Absolute, {.p 0}},		/* dd 0 8080 */
-	{.type FromH0, {.p C_max}, .src = "dd C_max"},		/* dd C_max 8088 */
-	{.type FromH0, {.p C_spaces}, .src = "dd C_spaces"},		/* dd C_spaces 8096 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 8104 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8112 */
-	{.type Header, {.hdr { 3, "hex", /* C_hex = 8128 */ colon }}}, /* CENTRY "hex" hex 3 h 8136 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8144 */
-	{.type Absolute, {.p 16}},		/* dd 16 8152 */
-	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8160 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 8168 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8176 */
-	{.type Header, {.hdr { 7, "decimal", /* C_decimal = 8192 */ colon }}}, /* CENTRY "decimal" decimal 7 h 8200 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8208 */
-	{.type Absolute, {.p 10}},		/* dd 10 8216 */
-	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8224 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 8232 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8240 */
-	{.type Header, {.hdr { 5, "digit", /* C_digit = 8256 */ colon }}}, /* CENTRY "digit" digit 5 ; ( c -- ) h 8264 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8272 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8280 */
-	{.type Absolute, {.p 65}},		/* dd 65 8288 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8296 */
-	{.type Absolute, {.p 91}},		/* dd 91 8304 */
-	{.type FromH0, {.p C_within}, .src = "dd C_within"},		/* dd C_within 8312 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8320 */
-	{.type FromH0, {.p L106}, .src = "dd L106"},		/* dd L106 8328 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8336 */
-	{.type Absolute, {.p 55}},		/* dd 55 8344 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8352 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8360 */
-	{.type FromH0, {.p L107}, .src = "dd L107"},		/* dd L107 8368 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8376 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8384 */
-	{.type Absolute, {.p 97}},		/* dd 97 8392 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8400 */
-	{.type Absolute, {.p 123}},		/* dd 123 8408 */
-	{.type FromH0, {.p C_within}, .src = "dd C_within"},		/* dd C_within 8416 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8424 */
-	{.type FromH0, {.p L108}, .src = "dd L108"},		/* dd L108 8432 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8440 */
-	{.type Absolute, {.p 87}},		/* dd 87 8448 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8456 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8464 */
-	{.type FromH0, {.p L109}, .src = "dd L109"},		/* dd L109 8472 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8480 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8488 */
-	{.type Absolute, {.p 48}},		/* dd 48 8496 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8504 */
-	{.type Absolute, {.p 58}},		/* dd 58 8512 */
-	{.type FromH0, {.p C_within}, .src = "dd C_within"},		/* dd C_within 8520 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8528 */
-	{.type FromH0, {.p L110}, .src = "dd L110"},		/* dd L110 8536 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8544 */
-	{.type Absolute, {.p 48}},		/* dd 48 8552 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8560 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8568 */
-	{.type FromH0, {.p L111}, .src = "dd L111"},		/* dd L111 8576 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 8584 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 8592 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8600 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8608 */
-	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8616 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 8624 */
-	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 8632 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8640 */
-	{.type FromH0, {.p L112}, .src = "dd L112"},		/* dd L112 8648 */
-	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 8656 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8664 */
-	{.type FromH0, {.p L113}, .src = "dd L113"},		/* dd L113 8672 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 8680 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 8688 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8696 */
-	{.type Header, {.hdr { 6, "number", /* C_number = 8712 */ colon }}}, /* CENTRY "number" number 6 ; ( a n1 -- n2 -1 | a n1 0 ) h 8720 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a n1 -- n1 a )"},		/* dd M_xswap	; ( a n1 -- n1 a ) 8728 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n1 a -- n1 a a )"},		/* dd M_dup	; ( n1 a -- n1 a a ) 8736 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( n1 a a -- n1 a c )"},		/* dd M_cfetch	; ( n1 a a -- n1 a c ) 8744 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8752 */
-	{.type Absolute, {.p 45}},		/* dd 45		; ( n1 a c -- n1 a c - ) 8760 */
-	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( n1 a c -- n1 a f )"},		/* dd M_equal	; ( n1 a c -- n1 a f ) 8768 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump	; ( n1 a c -- n1 a )"},		/* dd M_cjump	; ( n1 a c -- n1 a ) 8776 */
-	{.type FromH0, {.p L115}, .src = "dd L115		; c != -"},		/* dd L115		; c != - 8784 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; c == - ( n1 a -- n1 a+1 )"},		/* dd C_1plus	; c == - ( n1 a -- n1 a+1 ) 8792 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 8800 */
-	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus	; c == - ( a+1 n1 -- a+1 n1-1 )"},		/* dd C_1minus	; c == - ( a+1 n1 -- a+1 n1-1 ) 8808 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8816 */
-	{.type Absolute, {.p -1}},		/* dd -1		; ( a+1 n1-1 -- a+1 n1-1 -1 ) 8824 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1)"},		/* dd M_rpush	; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1) 8832 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8840 */
-	{.type FromH0, {.p L116}, .src = "dd L116"},		/* dd L116 8848 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( n1 a -- a n1)"},		/* dd M_xswap	; ( n1 a -- a n1) 8856 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8864 */
-	{.type Absolute, {.p 1}},		/* dd 1 8872 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n1 1 -- a n1 ) (R -- 1)"},		/* dd M_rpush	; ( a n1 1 -- a n1 ) (R -- 1) 8880 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a n1 -- a n1 n1 ) (R nr)"},		/* dd M_dup	; ( a n1 -- a n1 n1 ) (R nr) 8888 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n1 n1 -- a n1 ) (R nr -- nr n1)"},		/* dd M_rpush	; ( a n1 n1 -- a n1 ) (R nr -- nr n1) 8896 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8904 */
-	{.type Absolute, {.p 0}},		/* dd 0		; ( a n1 -- a n1 0) (R nr n1) 8912 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a n1 0 -- a 0 n1) (R nr n1)"},		/* dd M_xswap	; ( a n1 0 -- a 0 n1) (R nr n1) 8920 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8928 */
-	{.type Absolute, {.p 0}},		/* dd 0		; ( a 0 n1 -- a 0 n1 0) (R nr n1) 8936 */
-	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit	; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1)"},		/* dd M_doinit	; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8944 */
-	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8952 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1)"},		/* dd M_fetch	; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1) 8960 */
-	{.type FromH0, {.p M_multiply}, .src = "dd M_multiply	; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1)"},		/* dd M_multiply	; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8968 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over	; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1)"},		/* dd M_over	; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1) 8976 */
-	{.type FromH0, {.p M_i}, .src = "dd M_i		; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1)"},		/* dd M_i		; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1) 8984 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1)"},		/* dd M_plus	; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1) 8992 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1)"},		/* dd M_cfetch	; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1) 9000 */
-	{.type FromH0, {.p C_digit}, .src = "dd C_digit"},		/* dd C_digit 9008 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 9016 */
-	{.type FromH0, {.p L118}, .src = "dd L118"},		/* dd L118 9024 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 9032 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 9040 */
-	{.type FromH0, {.p L119}, .src = "dd L119"},		/* dd L119 9048 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 9056 */
-	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop"},		/* dd M_unloop 9064 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 9072 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 5656 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 5664 */
+	{.type Header, {.hdr { 7, "compare", /* C_compare = 5680 */ colon }}}, /* CENTRY "compare" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search h 5688 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( a1 n1 a2 n2 -- a1 a2 n2 n1 )"},		/* dd C_rot	; ( a1 n1 a2 n2 -- a1 a2 n2 n1 ) 5696 */
+	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup	; ( -- a1 a2 n2 n1 n2 n1 )"},		/* dd C_2dup	; ( -- a1 a2 n2 n1 n2 n1 ) 5704 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- a1 a2 n2 n1 n2 ) (R n1 -- )"},		/* dd M_rpush	; ( -- a1 a2 n2 n1 n2 ) (R n1 -- ) 5712 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- a1 a2 n2 n1 ) (R n1 n2 -- )"},		/* dd M_rpush	; ( -- a1 a2 n2 n1 ) (R n1 n2 -- ) 5720 */
+	{.type FromH0, {.p C_min}, .src = "dd C_min	; ( -- a1 a2 nmin ) (R n1 n2 -- )"},		/* dd C_min	; ( -- a1 a2 nmin ) (R n1 n2 -- ) 5728 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5736 */
+	{.type Absolute, {.p 0}},		/* dd 0		; ( -- a1 a2 nmin 0 ) (R n1 n2 -- ) 5744 */
+	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit	; ( -- a1 a2 ) (R n1 n2 0 nmin -- )"},		/* dd M_doinit	; ( -- a1 a2 ) (R n1 n2 0 nmin -- ) 5752 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 5760 */
+	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 5768 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 5776 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 5784 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 5792 */
+	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 5800 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 5808 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 5816 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 5824 */
+	{.type FromH0, {.p C_signum}, .src = "dd C_signum"},		/* dd C_signum 5832 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 5840 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 5848 */
+	{.type FromH0, {.p L56}, .src = "dd L56		; matches"},		/* dd L56		; matches 5856 */
+	{.type FromH0, {.p C_2nip}, .src = "dd C_2nip	; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- )"},		/* dd C_2nip	; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- ) 5864 */
+	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop	; ( f -- f ) (R n1 n2 0 nmin -- n1 n2)"},		/* dd M_unloop	; ( f -- f ) (R n1 n2 0 nmin -- n1 n2) 5872 */
+	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop	; ( f -- f ) (R n1 n2 -- )"},		/* dd M_unloop	; ( f -- f ) (R n1 n2 -- ) 5880 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5888 */
+	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 5896 */
+	{.type FromH0, {.p L55}, .src = "dd L55"},		/* dd L55 5904 */
+	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop	; ( a1 a2 -- ) (R n1 n2 -- )"},		/* dd C_2drop	; ( a1 a2 -- ) (R n1 n2 -- ) 5912 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 5920 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( n2 n1 -- ) (R -- )"},		/* dd M_rpop	; ( n2 n1 -- ) (R -- ) 5928 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( -- n1-n2 )"},		/* dd M_minus	; ( -- n1-n2 ) 5936 */
+	{.type FromH0, {.p C_signum}, .src = "dd C_signum"},		/* dd C_signum 5944 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 5952 */
+	{.type Header, {.hdr { 5, "erase", /* C_erase = 5968 */ colon }}}, /* CENTRY "erase" erase 5 h 5976 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 5984 */
+	{.type Absolute, {.p 0}},		/* dd 0 5992 */
+	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit"},		/* dd M_doinit 6000 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6008 */
+	{.type Absolute, {.p 0}},		/* dd 0 6016 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 6024 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 6032 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 6040 */
+	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 6048 */
+	{.type FromH0, {.p L58}, .src = "dd L58"},		/* dd L58 6056 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 6064 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6072 */
+	{.type Header, {.hdr { 4, "fill", /* C_fill = 6088 */ colon }}}, /* CENTRY "fill" fill 4 h 6096 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6104 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6112 */
+	{.type Absolute, {.p 0}},		/* dd 0 6120 */
+	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit"},		/* dd M_doinit 6128 */
+	{.type FromH0, {.p C_2dup}, .src = "dd C_2dup"},		/* dd C_2dup 6136 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6144 */
+	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6152 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 6160 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 6168 */
+	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 6176 */
+	{.type FromH0, {.p L60}, .src = "dd L60"},		/* dd L60 6184 */
+	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop"},		/* dd C_2drop 6192 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6200 */
+	{.type Header, {.hdr { 5, "blank", /* C_blank = 6216 */ colon }}}, /* CENTRY "blank" blank 5 h 6224 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 6232 */
+	{.type FromH0, {.p C_fill}, .src = "dd C_fill"},		/* dd C_fill 6240 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6248 */
+	{.type Header, {.hdr { 6, "search", /* C_search = 6264 */ colon }}}, /* CENTRY "search" search 6 h 6272 */
+	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6280 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 6288 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6296 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 6304 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 6312 */
+	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6320 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6328 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 6336 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 6344 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6352 */
+	{.type Absolute, {.p 0}},		/* dd 0 6360 */
+	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit"},		/* dd M_doinit 6368 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 6376 */
+	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6384 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 6392 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 6400 */
+	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6408 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6416 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6424 */
+	{.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"},		/* dd MV_Searchlen 6432 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6440 */
+	{.type FromH0, {.p C_compare}, .src = "dd C_compare"},		/* dd C_compare 6448 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 6456 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 6464 */
+	{.type FromH0, {.p L65}, .src = "dd L65"},		/* dd L65 6472 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 6480 */
+	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6488 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 6496 */
+	{.type FromH0, {.p M_i}, .src = "dd M_i"},		/* dd M_i 6504 */
+	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop"},		/* dd M_unloop 6512 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 6520 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 6528 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 6536 */
+	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 6544 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6552 */
+	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 6560 */
+	{.type FromH0, {.p L64}, .src = "dd L64"},		/* dd L64 6568 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 6576 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 6584 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 6592 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6600 */
+	{.type Header, {.hdr { 4, "here", /* C_here = 6616 */ colon }}}, /* CENTRY "here" here 4 h 6624 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6632 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6640 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6648 */
+	{.type Header, {.hdr { 4, "vhere", /* C_vhere = 6664 */ colon }}}, /* CENTRY "vhere" vhere 4 h 6672 */
+	{.type FromH0, {.p M_Vp}, .src = "dd M_Vp"},		/* dd M_Vp 6680 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 6688 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6696 */
+	{.type Header, {.hdr { 1, ",", /* C_comma = 6712 */ colon }}}, /* CENTRY "," comma 1 h 6720 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 6728 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 6736 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6744 */
+	{.type Absolute, {.p 8}},		/* dd 8 6752 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6760 */
+	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6768 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6776 */
+	{.type Header, {.hdr { 2, "c,", /* C_c = 6792 */ colon }}}, /* CENTRY "c," c 2 h 6800 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 6808 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 6816 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6824 */
+	{.type Absolute, {.p 1}},		/* dd 1 6832 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6840 */
+	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6848 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6856 */
+	{.type Header, {.hdr { 5, "allot", /* C_allot = 6872 */ colon }}}, /* CENTRY "allot" allot 5 ; ( n -- ) here = here+n h 6880 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 6888 */
+	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6896 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6904 */
+	{.type Header, {.hdr { 6, "vallot", /* C_vallot = 6920 */ colon }}}, /* CENTRY "vallot" vallot 6 ; allot on the variable space ( n -- ) vhere = vhere+n h 6928 */
+	{.type FromH0, {.p M_Vp}, .src = "dd M_Vp"},		/* dd M_Vp 6936 */
+	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"},		/* dd C_plusstore 6944 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 6952 */
+	{.type Header, {.hdr { 3, "pad", /* C_pad = 6968 */ colon }}}, /* CENTRY "pad" pad 3 h 6976 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 6984 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 6992 */
+	{.type Absolute, {.p 256}},		/* dd 256 7000 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7008 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7016 */
+	{.type Header, {.hdr { 5, "align", /* C_align = 7032 */ colon }}}, /* CENTRY "align" align 5 ; ( -- ) align here to a cell boundary h 7040 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here		; Dp @"},		/* dd C_here		; Dp @ 7048 */
+	{.type FromH0, {.p C_aligned}, .src = "dd C_aligned	; here is aligned to a multiple of 8"},		/* dd C_aligned	; here is aligned to a multiple of 8 7056 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp			; store the aligned here at Dp"},		/* dd M_Dp			; store the aligned here at Dp 7064 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store		; Dp contains aligned_here"},		/* dd M_store		; Dp contains aligned_here 7072 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7080 */
+	{.type Header, {.hdr { 6, "unused", /* C_unused = 7096 */ colon }}}, /* CENTRY "unused" unused 6 h 7104 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 7112 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7120 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 7128 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 7136 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7144 */
+	{.type Header, {.hdr { 2, "<#", /* C_fromhash = 7160 */ colon }}}, /* CENTRY "<#" fromhash 2 h 7168 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 7176 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7184 */
+	{.type Absolute, {.p 1024}},		/* dd 1024 7192 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7200 */
+	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7208 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 7216 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7224 */
+	{.type Header, {.hdr { 1, "#", /* C_hash = 7240 */ colon }}}, /* CENTRY "#" hash 1 h 7248 */
+	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 7256 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7264 */
+	{.type FromH0, {.p M_uslashmod}, .src = "dd M_uslashmod"},		/* dd M_uslashmod 7272 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 7280 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7288 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7296 */
+	{.type Absolute, {.p 9}},		/* dd 9 7304 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 7312 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 7320 */
+	{.type FromH0, {.p L92}, .src = "dd L92"},		/* dd L92 7328 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7336 */
+	{.type Absolute, {.p 97}},		/* dd 97 7344 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7352 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7360 */
+	{.type Absolute, {.p 10}},		/* dd 10 7368 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 7376 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 7384 */
+	{.type FromH0, {.p L93}, .src = "dd L93"},		/* dd L93 7392 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7400 */
+	{.type Absolute, {.p 48}},		/* dd 48 7408 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7416 */
+	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7424 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7432 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 7440 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7448 */
+	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7456 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 7464 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 7472 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7480 */
+	{.type Header, {.hdr { 2, "#s", /* C_hashs = 7496 */ colon }}}, /* CENTRY "#s" hashs 2 h 7504 */
+	{.type FromH0, {.p C_hash}, .src = "dd C_hash"},		/* dd C_hash 7512 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7520 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 7528 */
+	{.type FromH0, {.p L96}, .src = "dd L96"},		/* dd L96 7536 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 7544 */
+	{.type FromH0, {.p L95}, .src = "dd L95"},		/* dd L95 7552 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7560 */
+	{.type Header, {.hdr { 2, "#>", /* C_hashfrom = 7576 */ colon }}}, /* CENTRY "#>" hashfrom 2 h 7584 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 7592 */
+	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7600 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7608 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7616 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 7624 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7632 */
+	{.type Absolute, {.p 1024}},		/* dd 1024 7640 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 7648 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 7656 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 7664 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7672 */
+	{.type Header, {.hdr { 4, "hold", /* C_hold = 7688 */ colon }}}, /* CENTRY "hold" hold 4 h 7696 */
+	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7704 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 7712 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus"},		/* dd C_1minus 7720 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 7728 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 7736 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 7744 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 7752 */
+	{.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"},		/* dd MV_toNum 7760 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 7768 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7776 */
+	{.type Header, {.hdr { 4, "sign", /* C_sign = 7792 */ colon }}}, /* CENTRY "sign" sign 4 h 7800 */
+	{.type FromH0, {.p C_0lt}, .src = "dd C_0lt"},		/* dd C_0lt 7808 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 7816 */
+	{.type FromH0, {.p L100}, .src = "dd L100"},		/* dd L100 7824 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 7832 */
+	{.type Absolute, {.p 45}},		/* dd 45 7840 */
+	{.type FromH0, {.p C_hold}, .src = "dd C_hold"},		/* dd C_hold 7848 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7856 */
+	{.type Header, {.hdr { 1, ".", /* C_dot = 7872 */ colon }}}, /* CENTRY "." dot 1 ; print the top of stack ( n -- ) h 7880 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup		; ( n -- n n )"},		/* dd M_dup		; ( n -- n n ) 7888 */
+	{.type FromH0, {.p C_abs}, .src = "dd C_abs		; ( n n -- n u )"},		/* dd C_abs		; ( n n -- n u ) 7896 */
+	{.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash	; pad = h+256; >num = pad+1024"},		/* dd C_fromhash	; pad = h+256; >num = pad+1024 7904 */
+	{.type FromH0, {.p C_hashs}, .src = "dd C_hashs		; ( n u1 -- n n2 )"},		/* dd C_hashs		; ( n u1 -- n n2 ) 7912 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap		; ( n n2 -- n2 n )"},		/* dd M_xswap		; ( n n2 -- n2 n ) 7920 */
+	{.type FromH0, {.p C_sign}, .src = "dd C_sign		; ( n2 n -- n2 )"},		/* dd C_sign		; ( n2 n -- n2 ) 7928 */
+	{.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom	; ( u1 -- a n )"},		/* dd C_hashfrom	; ( u1 -- a n ) 7936 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type		; ( a n -- )"},		/* dd C_type		; ( a n -- ) 7944 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 7952 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 7960 */
+	{.type Header, {.hdr { 2, ".r", /* C_dotr = 7976 */ colon }}}, /* CENTRY ".r" dotr 2 h 7984 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 7992 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8000 */
+	{.type FromH0, {.p C_abs}, .src = "dd C_abs"},		/* dd C_abs 8008 */
+	{.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash"},		/* dd C_fromhash 8016 */
+	{.type FromH0, {.p C_hashs}, .src = "dd C_hashs"},		/* dd C_hashs 8024 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 8032 */
+	{.type FromH0, {.p C_sign}, .src = "dd C_sign"},		/* dd C_sign 8040 */
+	{.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom"},		/* dd C_hashfrom 8048 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 8056 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 8064 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8072 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8080 */
+	{.type Absolute, {.p 0}},		/* dd 0 8088 */
+	{.type FromH0, {.p C_max}, .src = "dd C_max"},		/* dd C_max 8096 */
+	{.type FromH0, {.p C_spaces}, .src = "dd C_spaces"},		/* dd C_spaces 8104 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 8112 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8120 */
+	{.type Header, {.hdr { 3, "hex", /* C_hex = 8136 */ colon }}}, /* CENTRY "hex" hex 3 h 8144 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8152 */
+	{.type Absolute, {.p 16}},		/* dd 16 8160 */
+	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8168 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 8176 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8184 */
+	{.type Header, {.hdr { 7, "decimal", /* C_decimal = 8200 */ colon }}}, /* CENTRY "decimal" decimal 7 h 8208 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8216 */
+	{.type Absolute, {.p 10}},		/* dd 10 8224 */
+	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8232 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 8240 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8248 */
+	{.type Header, {.hdr { 5, "digit", /* C_digit = 8264 */ colon }}}, /* CENTRY "digit" digit 5 ; ( c -- ) h 8272 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8280 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8288 */
+	{.type Absolute, {.p 65}},		/* dd 65 8296 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8304 */
+	{.type Absolute, {.p 91}},		/* dd 91 8312 */
+	{.type FromH0, {.p C_within}, .src = "dd C_within"},		/* dd C_within 8320 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8328 */
+	{.type FromH0, {.p L106}, .src = "dd L106"},		/* dd L106 8336 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8344 */
+	{.type Absolute, {.p 55}},		/* dd 55 8352 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8360 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8368 */
+	{.type FromH0, {.p L107}, .src = "dd L107"},		/* dd L107 8376 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8384 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8392 */
+	{.type Absolute, {.p 97}},		/* dd 97 8400 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8408 */
+	{.type Absolute, {.p 123}},		/* dd 123 8416 */
+	{.type FromH0, {.p C_within}, .src = "dd C_within"},		/* dd C_within 8424 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8432 */
+	{.type FromH0, {.p L108}, .src = "dd L108"},		/* dd L108 8440 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8448 */
+	{.type Absolute, {.p 87}},		/* dd 87 8456 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8464 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8472 */
+	{.type FromH0, {.p L109}, .src = "dd L109"},		/* dd L109 8480 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8488 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8496 */
+	{.type Absolute, {.p 48}},		/* dd 48 8504 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8512 */
+	{.type Absolute, {.p 58}},		/* dd 58 8520 */
+	{.type FromH0, {.p C_within}, .src = "dd C_within"},		/* dd C_within 8528 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8536 */
+	{.type FromH0, {.p L110}, .src = "dd L110"},		/* dd L110 8544 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8552 */
+	{.type Absolute, {.p 48}},		/* dd 48 8560 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus"},		/* dd M_minus 8568 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8576 */
+	{.type FromH0, {.p L111}, .src = "dd L111"},		/* dd L111 8584 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 8592 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 8600 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8608 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 8616 */
+	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8624 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 8632 */
+	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 8640 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 8648 */
+	{.type FromH0, {.p L112}, .src = "dd L112"},		/* dd L112 8656 */
+	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 8664 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8672 */
+	{.type FromH0, {.p L113}, .src = "dd L113"},		/* dd L113 8680 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 8688 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 8696 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 8704 */
+	{.type Header, {.hdr { 6, "number", /* C_number = 8720 */ colon }}}, /* CENTRY "number" number 6 ; ( a n1 -- n2 -1 | a n1 0 ) h 8728 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a n1 -- n1 a )"},		/* dd M_xswap	; ( a n1 -- n1 a ) 8736 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n1 a -- n1 a a )"},		/* dd M_dup	; ( n1 a -- n1 a a ) 8744 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( n1 a a -- n1 a c )"},		/* dd M_cfetch	; ( n1 a a -- n1 a c ) 8752 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8760 */
+	{.type Absolute, {.p 45}},		/* dd 45		; ( n1 a c -- n1 a c - ) 8768 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( n1 a c -- n1 a f )"},		/* dd M_equal	; ( n1 a c -- n1 a f ) 8776 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump	; ( n1 a c -- n1 a )"},		/* dd M_cjump	; ( n1 a c -- n1 a ) 8784 */
+	{.type FromH0, {.p L115}, .src = "dd L115		; c != -"},		/* dd L115		; c != - 8792 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; c == - ( n1 a -- n1 a+1 )"},		/* dd C_1plus	; c == - ( n1 a -- n1 a+1 ) 8800 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 8808 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus	; c == - ( a+1 n1 -- a+1 n1-1 )"},		/* dd C_1minus	; c == - ( a+1 n1 -- a+1 n1-1 ) 8816 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8824 */
+	{.type Absolute, {.p -1}},		/* dd -1		; ( a+1 n1-1 -- a+1 n1-1 -1 ) 8832 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1)"},		/* dd M_rpush	; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1) 8840 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 8848 */
+	{.type FromH0, {.p L116}, .src = "dd L116"},		/* dd L116 8856 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( n1 a -- a n1)"},		/* dd M_xswap	; ( n1 a -- a n1) 8864 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8872 */
+	{.type Absolute, {.p 1}},		/* dd 1 8880 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n1 1 -- a n1 ) (R -- 1)"},		/* dd M_rpush	; ( a n1 1 -- a n1 ) (R -- 1) 8888 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a n1 -- a n1 n1 ) (R nr)"},		/* dd M_dup	; ( a n1 -- a n1 n1 ) (R nr) 8896 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n1 n1 -- a n1 ) (R nr -- nr n1)"},		/* dd M_rpush	; ( a n1 n1 -- a n1 ) (R nr -- nr n1) 8904 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8912 */
+	{.type Absolute, {.p 0}},		/* dd 0		; ( a n1 -- a n1 0) (R nr n1) 8920 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a n1 0 -- a 0 n1) (R nr n1)"},		/* dd M_xswap	; ( a n1 0 -- a 0 n1) (R nr n1) 8928 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 8936 */
+	{.type Absolute, {.p 0}},		/* dd 0		; ( a 0 n1 -- a 0 n1 0) (R nr n1) 8944 */
+	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit	; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1)"},		/* dd M_doinit	; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8952 */
+	{.type FromH0, {.p MV_Base}, .src = "dd MV_Base"},		/* dd MV_Base 8960 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1)"},		/* dd M_fetch	; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1) 8968 */
+	{.type FromH0, {.p M_multiply}, .src = "dd M_multiply	; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1)"},		/* dd M_multiply	; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8976 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over	; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1)"},		/* dd M_over	; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1) 8984 */
+	{.type FromH0, {.p M_i}, .src = "dd M_i		; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1)"},		/* dd M_i		; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1) 8992 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1)"},		/* dd M_plus	; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1) 9000 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1)"},		/* dd M_cfetch	; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1) 9008 */
+	{.type FromH0, {.p C_digit}, .src = "dd C_digit"},		/* dd C_digit 9016 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 9024 */
+	{.type FromH0, {.p L118}, .src = "dd L118"},		/* dd L118 9032 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 9040 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 9048 */
+	{.type FromH0, {.p L119}, .src = "dd L119"},		/* dd L119 9056 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 9064 */
+	{.type FromH0, {.p M_unloop}, .src = "dd M_unloop"},		/* dd M_unloop 9072 */
 	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 9080 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 9088 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 9096 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9104 */
-	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 9112 */
-	{.type FromH0, {.p L117}, .src = "dd L117"},		/* dd L117 9120 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 9128 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 9136 */
-	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 9144 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 9152 */
-	{.type FromH0, {.p M_multiply}, .src = "dd M_multiply"},		/* dd M_multiply 9160 */
-	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 9168 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9176 */
-	{.type Header, {.hdr { 5, "abort", /* C_abort = 9192 */ colon }}}, /* CENTRY "abort" abort 5 h 9200 */
-	{.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec"},		/* dd MV_Abortvec 9208 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9216 */
-	{.type FromH0, {.p M_execute}, .src = "dd M_execute"},		/* dd M_execute 9224 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9232 */
-	{.type Header, {.hdr { 6, "source", /* C_source = 9248 */ colon }}}, /* CENTRY "source" source 6 h 9256 */
-	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9264 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9272 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9280 */
-	{.type Header, {.hdr { 13, "current-input", /* C_current_input = 9304 */ colon }}}, /* CENTRY "current-input" current_input 13 ; ( -- c ) read the next character from the location in Sourcebuf h 9312 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9320 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9328 */
-	{.type FromH0, {.p C_source}, .src = "dd C_source"},		/* dd C_source 9336 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus		; Sourcebuf + >In"},		/* dd M_plus		; Sourcebuf + >In 9344 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 9352 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9360 */
-	{.type Header, {.hdr { 10, "save-input", /* C_save_input = 9384 */ colon }}}, /* CENTRY "save-input" save_input 10 ; ( -- infd >in >limit sourcebuf blk 5 ) save input stream onto the stack h 9392 */
-	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 9400 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9408 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9416 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9424 */
-	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 9432 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9440 */
-	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9448 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9456 */
-	{.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"},		/* dd MV_Blk 9464 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9472 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9480 */
-	{.type Absolute, {.p 5}},		/* dd 5 9488 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9496 */
-	{.type Header, {.hdr { 13, "default-input", /* C_default_input = 9520 */ colon }}}, /* CENTRY "default-input" default_input 13 ; stream input from stdin into Text input buffer h 9528 */
-	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 9536 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9544 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 9552 */
-	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 9560 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 9568 */
-	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib"},		/* dd M_Tib 9576 */
-	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9584 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9592 */
-	{.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"},		/* dd MV_Blk 9600 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 9608 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9616 */
-	{.type Header, {.hdr { 13, "restore-input", /* C_restore_input = 9640 */ colon }}}, /* CENTRY "restore-input" restore_input 13 ; ( <input>|empty -- f ) ; restore input stream from the stack or set the default-input as the input stream h 9648 */
-	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 9656 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off			; reset Eof back to 0"},		/* dd C_off			; reset Eof back to 0 9664 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9672 */
-	{.type Absolute, {.p 5}},		/* dd 5				; input stream is on the stack  9680 */
-	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 9688 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 9696 */
-	{.type FromH0, {.p L133}, .src = "dd L133				; there is an input stream on the stack"},		/* dd L133				; there is an input stream on the stack 9704 */
-	{.type FromH0, {.p C_default_input}, .src = "dd C_default_input	; no input stream on the stack, using default input"},		/* dd C_default_input	; no input stream on the stack, using default input 9712 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 9720 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump			; ( false )"},		/* dd M_jump			; ( false ) 9728 */
-	{.type FromH0, {.p L134}, .src = "dd L134"},		/* dd L134 9736 */
-	{.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"},		/* dd MV_Blk 9744 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9752 */
-	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9760 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9768 */
-	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 9776 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9784 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9792 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9800 */
-	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 9808 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9816 */
-	{.type FromH0, {.p C_true}, .src = "dd C_true			; ( true )"},		/* dd C_true			; ( true ) 9824 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9832 */
-	{.type Header, {.hdr { 14, "?restore-input", /* C_qrestore_input = 9856 */ colon }}}, /* CENTRY "?restore-input" qrestore_input 14 ; ( <input> -- f ) ; use the input stream on the stack or abort h 9864 */
-	{.type FromH0, {.p C_restore_input}, .src = "dd C_restore_input"},		/* dd C_restore_input 9872 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 9880 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 9888 */
-	{.type FromH0, {.p L136}, .src = "dd L136"},		/* dd L136 9896 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 9904 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9912 */
-	{.type FromH0, {.p L137}, .src = "dd L137"},		/* dd L137 9920 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9928 */
-	{.type Absolute, {.p 23}},		/* dd 23 9936 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 9944 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 9952 */
-	{.type FromH0, {.p C_depth}, .src = "dd C_depth"},		/* dd C_depth 9960 */
-	{.type FromH0, {.p C_dot}, .src = "dd C_dot"},		/* dd C_dot 9968 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 9976 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 9984 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9992 */
-	{.type Header, {.hdr { 10, "next-input", /* C_next_input = 10016 */ colon }}}, /* CENTRY "next-input" next_input 10 ; when >In < >Limit ( -- true c ). ( -- 0 false ) otherwise h 10024 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10032 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 10040 */
-	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 10048 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 10056 */
-	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 10064 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10072 */
-	{.type FromH0, {.p L139}, .src = "dd L139	; >In >= >Limit"},		/* dd L139	; >In >= >Limit 10080 */
-	{.type FromH0, {.p C_true}, .src = "dd C_true	; >In < >Limit"},		/* dd C_true	; >In < >Limit 10088 */
-	{.type FromH0, {.p C_current_input}, .src = "dd C_current_input	; ( -- c )"},		/* dd C_current_input	; ( -- c ) 10096 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 10104 */
-	{.type FromH0, {.p L140}, .src = "dd L140"},		/* dd L140 10112 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10120 */
-	{.type Absolute, {.p 0}},		/* dd 0 10128 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 10136 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10144 */
-	{.type Header, {.hdr { 5, "parse", /* C_parse = 10160 */ colon }}}, /* CENTRY "parse" parse 5 ; ( c -- a ) Place the counted string in Wordbuf and return that address. c = word delimiter. h 10168 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; ( c -- ) (R -- c )"},		/* dd M_rpush		; ( c -- ) (R -- c ) 10176 */
-	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"},		/* dd MV_Wordbuf 10184 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( -- Wordb )"},		/* dd M_fetch		; ( -- Wordb ) 10192 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus		; ( Wordb -- Wordb+1 )"},		/* dd C_1plus		; ( Wordb -- Wordb+1 ) 10200 */
-	{.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( Wordb+1 -- Wordb+1 f c )"},		/* dd C_next_input ; ( Wordb+1 -- Wordb+1 f c ) 10208 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch 	; ( Wordb+1 f c -- Wordb+1 f  cinitial ) (R c -- c )"},		/* dd M_rfetch 	; ( Wordb+1 f c -- Wordb+1 f  cinitial ) (R c -- c ) 10216 */
-	{.type FromH0, {.p C_neq}, .src = "dd C_neq 		; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) )"},		/* dd C_neq 		; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) ) 10224 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand		; ( Wordb+1 f&(c!=cinitial) )"},		/* dd M_binand		; ( Wordb+1 f&(c!=cinitial) ) 10232 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10240 */
-	{.type FromH0, {.p L143}, .src = "dd L143		; ( Wordb+1 ) >In >= >Limit || cinitial == cnew"},		/* dd L143		; ( Wordb+1 ) >In >= >Limit || cinitial == cnew 10248 */
-	{.type FromH0, {.p C_current_input}, .src = "dd C_current_input	; ( Wordb+1 -- Wordb+1 c )"},		/* dd C_current_input	; ( Wordb+1 -- Wordb+1 c ) 10256 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 10264 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1"},		/* dd M_cstore	; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1 10272 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus		; ( Wordb+1 -- Wordb+2 )"},		/* dd C_1plus		; ( Wordb+1 -- Wordb+2 ) 10280 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10288 */
-	{.type Absolute, {.p 1}},		/* dd 1 10296 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10304 */
-	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore	; >In++"},		/* dd C_plusstore	; >In++ 10312 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 10320 */
-	{.type FromH0, {.p L142}, .src = "dd L142		; ( Wordb+2 ) repeat"},		/* dd L142		; ( Wordb+2 ) repeat 10328 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10336 */
-	{.type Absolute, {.p 1}},		/* dd 1 10344 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10352 */
-	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore	; >In++"},		/* dd C_plusstore	; >In++ 10360 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; (Wordb+1 -- Wordb+1 c) (R c -- )"},		/* dd M_rpop		; (Wordb+1 -- Wordb+1 c) (R c -- ) 10368 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; (Wordb+1 c -- Wordb+1)"},		/* dd M_drop		; (Wordb+1 c -- Wordb+1) 10376 */
-	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"},		/* dd MV_Wordbuf 10384 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; (Wordb+1 -- Wordb+1 Wordb)"},		/* dd M_fetch		; (Wordb+1 -- Wordb+1 Wordb) 10392 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup		; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb)"},		/* dd M_dup		; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb) 10400 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb)"},		/* dd M_rpush		; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb) 10408 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus		; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb)"},		/* dd M_minus		; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb) 10416 */
-	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus	; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb)"},		/* dd C_1minus	; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb) 10424 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb)"},		/* dd M_rfetch	; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb) 10432 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; store the length of the string found at Wordb[0]. Counted string at Wordb now."},		/* dd M_cstore	; store the length of the string found at Wordb[0]. Counted string at Wordb now. 10440 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( -- Wordb) (R Wordb -- )"},		/* dd M_rpop		; ( -- Wordb) (R Wordb -- ) 10448 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10456 */
-	{.type Header, {.hdr { 4, "word", /* C_word = 10472 */ colon }}}, /* CENTRY "word" word 4 ; ( c -- a ) skip the c"s. Placed the counted string in a (as in Wordbuf) h 10480 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- ) (R -- c )"},		/* dd M_rpush	; ( -- ) (R -- c ) 10488 */
-	{.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( -- f c2 ) (R c1 -- )"},		/* dd C_next_input ; ( -- f c2 ) (R c1 -- ) 10496 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial )"},		/* dd M_rfetch	; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial ) 10504 */
-	{.type FromH0, {.p M_equal}, .src = "dd M_equal		; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial )"},		/* dd M_equal		; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial ) 10512 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; ( f f2 -- f&&f2 ) (R cinitial -- cinitial )"},		/* dd M_binand	; ( f f2 -- f&&f2 ) (R cinitial -- cinitial ) 10520 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10528 */
-	{.type FromH0, {.p L146}, .src = "dd L146		; >In >= >Limit || cinitial != cnew"},		/* dd L146		; >In >= >Limit || cinitial != cnew 10536 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal	; >In < >Limit && cinitial == cnew"},		/* dd M_literal	; >In < >Limit && cinitial == cnew 10544 */
-	{.type Absolute, {.p 1}},		/* dd 1 10552 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10560 */
-	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore	; >In++"},		/* dd C_plusstore	; >In++ 10568 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump		; repeat"},		/* dd M_jump		; repeat 10576 */
-	{.type FromH0, {.p L145}, .src = "dd L145"},		/* dd L145 10584 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( cinitial ) Sourcebuf+>In = location of first non-matching character"},		/* dd M_rpop		; ( cinitial ) Sourcebuf+>In = location of first non-matching character 10592 */
-	{.type FromH0, {.p C_parse}, .src = "dd C_parse"},		/* dd C_parse 10600 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10608 */
-	{.type Header, {.hdr { 6, "accept", /* C_accept = 10624 */ colon }}}, /* CENTRY "accept" accept 6 ; ( a n -- n ) get line or n chars or EOF from input and store at a h 10632 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( n a -- )"},		/* dd M_xswap	; ( n a -- ) 10640 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n a a -- )"},		/* dd M_dup	; ( n a a -- ) 10648 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 10656 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( n -- ) (R a a -- )"},		/* dd M_rpush	; ( n -- ) (R a a -- ) 10664 */
-	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup	; ( n n -- ) (R a a -- )"},		/* dd C_qdup	; ( n n -- ) (R a a -- ) 10672 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump	; (if)"},		/* dd M_cjump	; (if) 10680 */
-	{.type FromH0, {.p L149}, .src = "dd L149		; n == 0"},		/* dd L149		; n == 0 10688 */
-	{.type FromH0, {.p C_key}, .src = "dd C_key	; n > 0 ( n -- n c )"},		/* dd C_key	; n > 0 ( n -- n c ) 10696 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( -- n c c )"},		/* dd M_dup	; ( -- n c c ) 10704 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10712 */
-	{.type Absolute, {.p 10}},		/* dd 10		; ( -- n c c 10 ) 10720 */
-	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( n c c 10 -- n c f ) checking for newline"},		/* dd M_equal	; ( n c c 10 -- n c f ) checking for newline 10728 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over	; ( -- n c f c )"},		/* dd M_over	; ( -- n c f c ) 10736 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10744 */
-	{.type Absolute, {.p -1}},		/* dd -1		; ( -- n c f c -1 ) 10752 */
-	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( -- n c f1 f2 )"},		/* dd M_equal	; ( -- n c f1 f2 ) 10760 */
-	{.type FromH0, {.p M_binor}, .src = "dd M_binor	; ( -- n c f )"},		/* dd M_binor	; ( -- n c f ) 10768 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10776 */
-	{.type FromH0, {.p L150}, .src = "dd L150"},		/* dd L150 10784 */
-	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop	; n == -1 || n == 10 (	-- )"},		/* dd C_2drop	; n == -1 || n == 10 (	-- ) 10792 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 10800 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 10808 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( -- a2-a1 )"},		/* dd M_minus	; ( -- a2-a1 ) 10816 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; ( -- n ) (R -- )"},		/* dd M_exitcolon	; ( -- n ) (R -- ) 10824 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( n c a -- ) (R a a -- )"},		/* dd M_rfetch	; ( n c a -- ) (R a a -- ) 10832 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; store the character at a"},		/* dd M_cstore	; store the character at a 10840 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( n a -- ) (R a -- )"},		/* dd M_rpop	; ( n a -- ) (R a -- ) 10848 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 10856 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address"},		/* dd M_rpush	; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address 10864 */
-	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus	; ( n -- n-1 )"},		/* dd C_1minus	; ( n -- n-1 ) 10872 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 10880 */
-	{.type FromH0, {.p L148}, .src = "dd L148	; loop again for the next character"},		/* dd L148	; loop again for the next character 10888 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- a2 ) (R a1 a2 -- a1 )"},		/* dd M_rpop	; ( -- a2 ) (R a1 a2 -- a1 ) 10896 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( a2 a1 -- ) (R a1 -- )"},		/* dd M_rpop	; ( a2 a1 -- ) (R a1 -- ) 10904 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( a2 a1 -- a2-a1 )"},		/* dd M_minus	; ( a2 a1 -- a2-a1 ) 10912 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10920 */
-	{.type Header, {.hdr { 5, "query", /* C_query = 10936 */ colon }}}, /* CENTRY "query" query 5 ; read from input stream into the Text Input Buffer h 10944 */
-	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 10952 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off	; clear EOF flag"},		/* dd C_off	; clear EOF flag 10960 */
-	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top"},		/* dd M_Tib	; constant puts address of tibuffer on the top 10968 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10976 */
-	{.type Absolute, {.p 4096}},		/* dd 4096	; ( tibuffer -- tibuffer 4096 ) 10984 */
-	{.type FromH0, {.p C_accept}, .src = "dd C_accept ; ( tibuffer 4096 -- n )"},		/* dd C_accept ; ( tibuffer 4096 -- n ) 10992 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n -- n n )"},		/* dd M_dup	; ( n -- n n ) 11000 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq	; ( n n -- n f )"},		/* dd C_0eq	; ( n n -- n f ) 11008 */
-	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 11016 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11024 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; n == 0 && EOF"},		/* dd M_binand	; n == 0 && EOF 11032 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11040 */
-	{.type FromH0, {.p L152}, .src = "dd L152		; false condition"},		/* dd L152		; false condition 11048 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop	; n == 0 && EOF ( n -- )"},		/* dd M_drop	; n == 0 && EOF ( n -- ) 11056 */
-	{.type FromH0, {.p C_qrestore_input}, .src = "dd C_qrestore_input"},		/* dd C_qrestore_input 11064 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11072 */
-	{.type FromH0, {.p L153}, .src = "dd L153"},		/* dd L153 11080 */
-	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 11088 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store		; number of characters to read >Limit = n"},		/* dd M_store		; number of characters to read >Limit = n 11096 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 11104 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off		; start from 0 >In = 0"},		/* dd C_off		; start from 0 >In = 0 11112 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11120 */
-	{.type Header, {.hdr { 6, "refill", /* C_refill = 11136 */ colon }}}, /* CENTRY "refill" refill 6 h 11144 */
-	{.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"},		/* dd MV_Blk 11152 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11160 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11168 */
-	{.type FromH0, {.p L155}, .src = "dd L155"},		/* dd L155 11176 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 11184 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11192 */
-	{.type FromH0, {.p L156}, .src = "dd L156"},		/* dd L156 11200 */
-	{.type FromH0, {.p C_query}, .src = "dd C_query"},		/* dd C_query 11208 */
-	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 11216 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11224 */
-	{.type Header, {.hdr { 8, "findname", /* C_findname = 11248 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 11256 */
-	{.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"},		/* dd MV_Findadr 11264 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 11272 */
-	{.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"},		/* dd M_Dtop 11280 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; get latest dictionary link"},		/* dd M_fetch	; get latest dictionary link 11288 */
-	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 11296 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11304 */
-	{.type FromH0, {.p L159}, .src = "dd L159	; seached until the first dictionary entry get out"},		/* dd L159	; seached until the first dictionary entry get out 11312 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a -- a a )"},		/* dd M_dup	; ( a -- a a ) 11320 */
-	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus	; ( a a -- a a+8) lenth + initial name address"},		/* dd C_cellplus	; ( a a -- a a+8) lenth + initial name address 11328 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a a+8 -- a immediate|hidden|len) length + initial name"},		/* dd M_cfetch	; ( a a+8 -- a immediate|hidden|len) length + initial name 11336 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11344 */
-	{.type Absolute, {.p 64}},		/* dd 64		; check the reveal'ed flag 1=hidden, 0=reveal 11352 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; if hidden, goto L161 else L160"},		/* dd M_binand	; if hidden, goto L161 else L160 11360 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11368 */
-	{.type FromH0, {.p L160}, .src = "dd L160"},		/* dd L160 11376 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; smudge'd dictionary entry, get the previous entry"},		/* dd M_fetch	; smudge'd dictionary entry, get the previous entry 11384 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11392 */
-	{.type FromH0, {.p L161}, .src = "dd L161"},		/* dd L161 11400 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a1 -- a1 a1)"},		/* dd M_dup	; ( a1 -- a1 a1) 11408 */
-	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus	; ( a1 a1 -- a1 a1+8)"},		/* dd C_cellplus	; ( a1 a1 -- a1 a1+8) 11416 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count	; ( a1 a1+8 -- a1 a1+8+1 n )"},		/* dd C_count	; ( a1 a1+8 -- a1 a1+8+1 n ) 11424 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 9088 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 9096 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 9104 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9112 */
+	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop"},		/* dd M_doloop 9120 */
+	{.type FromH0, {.p L117}, .src = "dd L117"},		/* dd L117 9128 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 9136 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 9144 */
+	{.type FromH0, {.p C_nip}, .src = "dd C_nip"},		/* dd C_nip 9152 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 9160 */
+	{.type FromH0, {.p M_multiply}, .src = "dd M_multiply"},		/* dd M_multiply 9168 */
+	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 9176 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9184 */
+	{.type Header, {.hdr { 5, "abort", /* C_abort = 9200 */ colon }}}, /* CENTRY "abort" abort 5 h 9208 */
+	{.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec"},		/* dd MV_Abortvec 9216 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9224 */
+	{.type FromH0, {.p M_execute}, .src = "dd M_execute"},		/* dd M_execute 9232 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9240 */
+	{.type Header, {.hdr { 6, "source", /* C_source = 9256 */ colon }}}, /* CENTRY "source" source 6 h 9264 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9272 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9280 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9288 */
+	{.type Header, {.hdr { 13, "current-input", /* C_current_input = 9312 */ colon }}}, /* CENTRY "current-input" current_input 13 ; ( -- c ) read the next character from the location in Sourcebuf h 9320 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9328 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9336 */
+	{.type FromH0, {.p C_source}, .src = "dd C_source"},		/* dd C_source 9344 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus		; Sourcebuf + >In"},		/* dd M_plus		; Sourcebuf + >In 9352 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 9360 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9368 */
+	{.type Header, {.hdr { 10, "save-input", /* C_save_input = 9392 */ colon }}}, /* CENTRY "save-input" save_input 10 ; ( -- infd >in >limit sourcebuf blk 5 ) save input stream onto the stack h 9400 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 9408 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9416 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9424 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9432 */
+	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 9440 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9448 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9456 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9464 */
+	{.type FromH0, {.p MV_Acceptvec}, .src = "dd MV_Acceptvec"},		/* dd MV_Acceptvec 9472 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 9480 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9488 */
+	{.type Absolute, {.p 5}},		/* dd 5 9496 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9504 */
+	{.type Header, {.hdr { 13, "default-input", /* C_default_input = 9528 */ colon }}}, /* CENTRY "default-input" default_input 13 ; stream input from stdin into Text input buffer h 9536 */
+	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 9544 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 9552 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9560 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9568 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 9576 */
+	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 9584 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 9592 */
+	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib"},		/* dd M_Tib 9600 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9608 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9616 */
+	{.type FromH0, {.p MV_Acceptvec}, .src = "dd MV_Acceptvec"},		/* dd MV_Acceptvec 9624 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 9632 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9640 */
+	{.type Header, {.hdr { 13, "restore-input", /* C_restore_input = 9664 */ colon }}}, /* CENTRY "restore-input" restore_input 13 ; ( <input>|empty -- f ) ; restore input stream from the stack or set the default-input as the input stream h 9672 */
+	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 9680 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off			; reset Eof back to 0"},		/* dd C_off			; reset Eof back to 0 9688 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9696 */
+	{.type Absolute, {.p 5}},		/* dd 5				; input stream is on the stack 9704 */
+	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 9712 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 9720 */
+	{.type FromH0, {.p L133}, .src = "dd L133				; there is an input stream on the stack"},		/* dd L133				; there is an input stream on the stack 9728 */
+	{.type FromH0, {.p C_default_input}, .src = "dd C_default_input	; no input stream on the stack, using default input"},		/* dd C_default_input	; no input stream on the stack, using default input 9736 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 9744 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump			; ( false )"},		/* dd M_jump			; ( false ) 9752 */
+	{.type FromH0, {.p L134}, .src = "dd L134"},		/* dd L134 9760 */
+	{.type FromH0, {.p MV_Acceptvec}, .src = "dd MV_Acceptvec"},		/* dd MV_Acceptvec 9768 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9776 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"},		/* dd MV_Sourcebuf 9784 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9792 */
+	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 9800 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9808 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 9816 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9824 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 9832 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 9840 */
+	{.type FromH0, {.p C_true}, .src = "dd C_true			; ( true )"},		/* dd C_true			; ( true ) 9848 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 9856 */
+	{.type Header, {.hdr { 14, "?restore-input", /* C_qrestore_input = 9880 */ colon }}}, /* CENTRY "?restore-input" qrestore_input 14 ; ( <input> -- f ) ; use the input stream on the stack or abort h 9888 */
+	{.type FromH0, {.p C_restore_input}, .src = "dd C_restore_input"},		/* dd C_restore_input 9896 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 9904 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 9912 */
+	{.type FromH0, {.p L136}, .src = "dd L136"},		/* dd L136 9920 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 9928 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9936 */
+	{.type FromH0, {.p L137}, .src = "dd L137"},		/* dd L137 9944 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 9952 */
+	{.type Absolute, {.p 23}},		/* dd 23 9960 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 9968 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 9976 */
+	{.type FromH0, {.p C_depth}, .src = "dd C_depth"},		/* dd C_depth 9984 */
+	{.type FromH0, {.p C_dot}, .src = "dd C_dot"},		/* dd C_dot 9992 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 10000 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 10008 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10016 */
+	{.type Header, {.hdr { 10, "next-input", /* C_next_input = 10040 */ colon }}}, /* CENTRY "next-input" next_input 10 ; when >In < >Limit ( -- true c ). ( -- 0 false ) otherwise h 10048 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10056 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 10064 */
+	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 10072 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 10080 */
+	{.type FromH0, {.p M_less}, .src = "dd M_less"},		/* dd M_less 10088 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10096 */
+	{.type FromH0, {.p L139}, .src = "dd L139	; >In >= >Limit"},		/* dd L139	; >In >= >Limit 10104 */
+	{.type FromH0, {.p C_true}, .src = "dd C_true	; >In < >Limit"},		/* dd C_true	; >In < >Limit 10112 */
+	{.type FromH0, {.p C_current_input}, .src = "dd C_current_input	; ( -- c )"},		/* dd C_current_input	; ( -- c ) 10120 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 10128 */
+	{.type FromH0, {.p L140}, .src = "dd L140"},		/* dd L140 10136 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10144 */
+	{.type Absolute, {.p 0}},		/* dd 0 10152 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 10160 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10168 */
+/* ; replace current-input and next-input with an asm function that does cmove until it meets a certain character or limit? */	{.type Header, {.hdr { 5, "parse", /* C_parse = 10184 */ colon }}}, /* CENTRY "parse" parse 5 ; ( c -- a ) Place the counted string in Wordbuf and return that address. c = word delimiter. h 10192 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; ( c -- ) (R -- c )"},		/* dd M_rpush		; ( c -- ) (R -- c ) 10200 */
+	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"},		/* dd MV_Wordbuf 10208 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( -- Wordb )"},		/* dd M_fetch		; ( -- Wordb ) 10216 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus		; ( Wordb -- Wordb+1 )"},		/* dd C_1plus		; ( Wordb -- Wordb+1 ) 10224 */
+	{.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( Wordb+1 -- Wordb+1 f c )"},		/* dd C_next_input ; ( Wordb+1 -- Wordb+1 f c ) 10232 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch 	; ( Wordb+1 f c -- Wordb+1 f  cinitial ) (R c -- c )"},		/* dd M_rfetch 	; ( Wordb+1 f c -- Wordb+1 f  cinitial ) (R c -- c ) 10240 */
+	{.type FromH0, {.p C_neq}, .src = "dd C_neq 		; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) )"},		/* dd C_neq 		; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) ) 10248 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand		; ( Wordb+1 f&(c!=cinitial) )"},		/* dd M_binand		; ( Wordb+1 f&(c!=cinitial) ) 10256 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10264 */
+	{.type FromH0, {.p L143}, .src = "dd L143		; ( Wordb+1 ) >In >= >Limit || cinitial == cnew"},		/* dd L143		; ( Wordb+1 ) >In >= >Limit || cinitial == cnew 10272 */
+	{.type FromH0, {.p C_current_input}, .src = "dd C_current_input	; ( Wordb+1 -- Wordb+1 c )"},		/* dd C_current_input	; ( Wordb+1 -- Wordb+1 c ) 10280 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 10288 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1"},		/* dd M_cstore	; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1 10296 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus		; ( Wordb+1 -- Wordb+2 )"},		/* dd C_1plus		; ( Wordb+1 -- Wordb+2 ) 10304 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10312 */
+	{.type Absolute, {.p 1}},		/* dd 1 10320 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10328 */
+	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore	; >In++"},		/* dd C_plusstore	; >In++ 10336 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 10344 */
+	{.type FromH0, {.p L142}, .src = "dd L142		; ( Wordb+2 ) repeat"},		/* dd L142		; ( Wordb+2 ) repeat 10352 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10360 */
+	{.type Absolute, {.p 1}},		/* dd 1 10368 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10376 */
+	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore	; >In++"},		/* dd C_plusstore	; >In++ 10384 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; (Wordb+1 -- Wordb+1 c) (R c -- )"},		/* dd M_rpop		; (Wordb+1 -- Wordb+1 c) (R c -- ) 10392 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; (Wordb+1 c -- Wordb+1)"},		/* dd M_drop		; (Wordb+1 c -- Wordb+1) 10400 */
+	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"},		/* dd MV_Wordbuf 10408 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; (Wordb+1 -- Wordb+1 Wordb)"},		/* dd M_fetch		; (Wordb+1 -- Wordb+1 Wordb) 10416 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup		; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb)"},		/* dd M_dup		; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb) 10424 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush		; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb)"},		/* dd M_rpush		; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb) 10432 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus		; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb)"},		/* dd M_minus		; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb) 10440 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus	; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb)"},		/* dd C_1minus	; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb) 10448 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb)"},		/* dd M_rfetch	; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb) 10456 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; store the length of the string found at Wordb[0]. Counted string at Wordb now."},		/* dd M_cstore	; store the length of the string found at Wordb[0]. Counted string at Wordb now. 10464 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( -- Wordb) (R Wordb -- )"},		/* dd M_rpop		; ( -- Wordb) (R Wordb -- ) 10472 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10480 */
+	{.type Header, {.hdr { 4, "word", /* C_word = 10496 */ colon }}}, /* CENTRY "word" word 4 ; ( c -- a ) skip the c"s. Placed the counted string in a (as in Wordbuf) h 10504 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- ) (R -- c )"},		/* dd M_rpush	; ( -- ) (R -- c ) 10512 */
+	{.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( -- f c2 ) (R c1 -- )"},		/* dd C_next_input ; ( -- f c2 ) (R c1 -- ) 10520 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial )"},		/* dd M_rfetch	; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial ) 10528 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal		; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial )"},		/* dd M_equal		; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial ) 10536 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; ( f f2 -- f&&f2 ) (R cinitial -- cinitial )"},		/* dd M_binand	; ( f f2 -- f&&f2 ) (R cinitial -- cinitial ) 10544 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10552 */
+	{.type FromH0, {.p L146}, .src = "dd L146		; >In >= >Limit || cinitial != cnew"},		/* dd L146		; >In >= >Limit || cinitial != cnew 10560 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal	; >In < >Limit && cinitial == cnew"},		/* dd M_literal	; >In < >Limit && cinitial == cnew 10568 */
+	{.type Absolute, {.p 1}},		/* dd 1 10576 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 10584 */
+	{.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore	; >In++"},		/* dd C_plusstore	; >In++ 10592 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump		; repeat"},		/* dd M_jump		; repeat 10600 */
+	{.type FromH0, {.p L145}, .src = "dd L145"},		/* dd L145 10608 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop		; ( cinitial ) Sourcebuf+>In = location of first non-matching character"},		/* dd M_rpop		; ( cinitial ) Sourcebuf+>In = location of first non-matching character 10616 */
+	{.type FromH0, {.p C_parse}, .src = "dd C_parse"},		/* dd C_parse 10624 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10632 */
+/* ; accept is the Brdline of bio *//* ; if Acceptvec == 0, accept_key, so the initial booting works fine *//* ;	else execute it */	{.type Header, {.hdr { 6, "accept", /* C_accept = 10648 */ colon }}}, /* CENTRY "accept" accept 6 ; ( a n -- n ) get line or n chars or EOF from input and store at a h 10656 */
+	{.type FromH0, {.p MV_Acceptvec}, .src = "dd MV_Acceptvec"},		/* dd MV_Acceptvec 10664 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 10672 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 10680 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10688 */
+	{.type FromH0, {.p L300}, .src = "dd L300	; Acceptvec == 0, use accept-key"},		/* dd L300	; Acceptvec == 0, use accept-key 10696 */
+	{.type FromH0, {.p M_execute}, .src = "dd M_execute"},		/* dd M_execute 10704 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10712 */
+	{.type FromH0, {.p C_accept_key}, .src = "dd C_accept_key"},		/* dd C_accept_key 10720 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 10728 */
+	{.type Header, {.hdr { 11, "accept-line", /* C_accept_line = 10752 */ colon }}}, /* CENTRY "accept-line" accept_line 11 ; ( a n -- n1 ) get line or n chars or EOF from input and store at a using key h 10760 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 10768 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( a n infd )"},		/* dd M_fetch		; ( a n infd ) 10776 */
+	{.type FromH0, {.p C_read_file}, .src = "dd C_read_file	; ( n ioresult )"},		/* dd C_read_file	; ( n ioresult ) 10784 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10792 */
+	{.type FromH0, {.p L301}, .src = "dd L301			; ioresult == false as n = -1"},		/* dd L301			; ioresult == false as n = -1 10800 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup		; ( n n )"},		/* dd M_dup		; ( n n ) 10808 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 10816 */
+	{.type FromH0, {.p L302}, .src = "dd L302			; ( 0 )"},		/* dd L302			; ( 0 ) 10824 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup		; n > 0. if n == 4096, error out. ( n n )"},		/* dd M_dup		; n > 0. if n == 4096, error out. ( n n ) 10832 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10840 */
+	{.type Absolute, {.p 4096}},		/* dd 4096			; ( n n 4096 ) 10848 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal		; ( n n==4096 )"},		/* dd M_equal		; ( n n==4096 ) 10856 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump		; ( n )"},		/* dd M_cjump		; ( n ) 10864 */
+	{.type FromH0, {.p L303}, .src = "dd L303			; n < 4096 ( n )"},		/* dd L303			; n < 4096 ( n ) 10872 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf	; n == 4096 ( n )"},		/* dd MV_Sourcebuf	; n == 4096 ( n ) 10880 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch		; ( n tib )"},		/* dd M_fetch		; ( n tib ) 10888 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap		; ( tib n )"},		/* dd M_xswap		; ( tib n ) 10896 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type		; show the long line and an error message"},		/* dd C_type		; show the long line and an error message 10904 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10912 */
+	{.type FromH0, {.p L304}, .src = "dd L304"},		/* dd L304 10920 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10928 */
+	{.type Absolute, {.p 37}},		/* dd 37 10936 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type		; show the error message"},		/* dd C_type		; show the error message 10944 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 10952 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 10960 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus		; n-- to avoid parsing the newline character"},		/* dd C_1minus		; n-- to avoid parsing the newline character 10968 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; ( n ) n = number of bytes read"},		/* dd M_exitcolon	; ( n ) n = number of bytes read 10976 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 10984 */
+	{.type FromH0, {.p L305}, .src = "dd L305"},		/* dd L305 10992 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11000 */
+	{.type Absolute, {.p 12}},		/* dd 12 11008 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type		; show the error message"},		/* dd C_type		; show the error message 11016 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 11024 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 11032 */
+	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof	; n == 0, set Eof"},		/* dd MV_Eof	; n == 0, set Eof 11040 */
+	{.type FromH0, {.p C_on}, .src = "dd C_on		; EOF"},		/* dd C_on		; EOF 11048 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; ( 0 )"},		/* dd M_exitcolon	; ( 0 ) 11056 */
+	{.type Header, {.hdr { 10, "accept-key", /* C_accept_key = 11080 */ colon }}}, /* CENTRY "accept-key" accept_key 10 ; ( a n -- n ) get line or n chars or EOF from input and store at a using key h 11088 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( n a -- )"},		/* dd M_xswap	; ( n a -- ) 11096 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n a a -- )"},		/* dd M_dup	; ( n a a -- ) 11104 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 11112 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( n -- ) (R a a -- )"},		/* dd M_rpush	; ( n -- ) (R a a -- ) 11120 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup	; ( n n -- ) (R a a -- )"},		/* dd C_qdup	; ( n n -- ) (R a a -- ) 11128 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump	; (if)"},		/* dd M_cjump	; (if) 11136 */
+	{.type FromH0, {.p L149}, .src = "dd L149		; n == 0"},		/* dd L149		; n == 0 11144 */
+	{.type FromH0, {.p C_key}, .src = "dd C_key	; n > 0 ( n -- n c )"},		/* dd C_key	; n > 0 ( n -- n c ) 11152 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( -- n c c )"},		/* dd M_dup	; ( -- n c c ) 11160 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11168 */
+	{.type Absolute, {.p 10}},		/* dd 10		; ( -- n c c 10 ) 11176 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( n c c 10 -- n c f ) checking for newline"},		/* dd M_equal	; ( n c c 10 -- n c f ) checking for newline 11184 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over	; ( -- n c f c )"},		/* dd M_over	; ( -- n c f c ) 11192 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11200 */
+	{.type Absolute, {.p -1}},		/* dd -1		; ( -- n c f c -1 ) 11208 */
+	{.type FromH0, {.p M_equal}, .src = "dd M_equal	; ( -- n c f1 f2 )"},		/* dd M_equal	; ( -- n c f1 f2 ) 11216 */
+	{.type FromH0, {.p M_binor}, .src = "dd M_binor	; ( -- n c f )"},		/* dd M_binor	; ( -- n c f ) 11224 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11232 */
+	{.type FromH0, {.p L150}, .src = "dd L150"},		/* dd L150 11240 */
+	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop	; n == -1 || n == 10 (	-- )"},		/* dd C_2drop	; n == -1 || n == 10 (	-- ) 11248 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 11256 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 11264 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( -- a2-a1 )"},		/* dd M_minus	; ( -- a2-a1 ) 11272 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; ( -- n ) (R -- )"},		/* dd M_exitcolon	; ( -- n ) (R -- ) 11280 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( n c a -- ) (R a a -- )"},		/* dd M_rfetch	; ( n c a -- ) (R a a -- ) 11288 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; store the character at a"},		/* dd M_cstore	; store the character at a 11296 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( n a -- ) (R a -- )"},		/* dd M_rpop	; ( n a -- ) (R a -- ) 11304 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 11312 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address"},		/* dd M_rpush	; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address 11320 */
+	{.type FromH0, {.p C_1minus}, .src = "dd C_1minus	; ( n -- n-1 )"},		/* dd C_1minus	; ( n -- n-1 ) 11328 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11336 */
+	{.type FromH0, {.p L148}, .src = "dd L148	; loop again for the next character"},		/* dd L148	; loop again for the next character 11344 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- a2 ) (R a1 a2 -- a1 )"},		/* dd M_rpop	; ( -- a2 ) (R a1 a2 -- a1 ) 11352 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( a2 a1 -- ) (R a1 -- )"},		/* dd M_rpop	; ( a2 a1 -- ) (R a1 -- ) 11360 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( a2 a1 -- a2-a1 )"},		/* dd M_minus	; ( a2 a1 -- a2-a1 ) 11368 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11376 */
+	{.type Header, {.hdr { 5, "query", /* C_query = 11392 */ colon }}}, /* CENTRY "query" query 5 ; read from input stream into the Text Input Buffer h 11400 */
+	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 11408 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off	; clear EOF flag"},		/* dd C_off	; clear EOF flag 11416 */
+	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top"},		/* dd M_Tib	; constant puts address of tibuffer on the top 11424 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11432 */
-	{.type Absolute, {.p 63}},		/* dd 63 11440 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len )"},		/* dd M_binand	; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len ) 11448 */
-	{.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"},		/* dd MV_Findadr 11456 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11464 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count	; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 )"},		/* dd C_count	; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 ) 11472 */
-	{.type FromH0, {.p C_compare}, .src = "dd C_compare	; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name"},		/* dd C_compare	; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name 11480 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq	; found a match?"},		/* dd C_0eq	; found a match? 11488 */
+	{.type Absolute, {.p 4096}},		/* dd 4096	; ( tibuffer -- tibuffer 4096 ) 11440 */
+	{.type FromH0, {.p C_accept}, .src = "dd C_accept ; ( tibuffer 4096 -- n )"},		/* dd C_accept ; ( tibuffer 4096 -- n ) 11448 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( n -- n n )"},		/* dd M_dup	; ( n -- n n ) 11456 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq	; ( n n -- n f )"},		/* dd C_0eq	; ( n n -- n f ) 11464 */
+	{.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"},		/* dd MV_Eof 11472 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11480 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; n == 0 && EOF"},		/* dd M_binand	; n == 0 && EOF 11488 */
 	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11496 */
-	{.type FromH0, {.p L162}, .src = "dd L162		; no match"},		/* dd L162		; no match 11504 */
-	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus	; match found"},		/* dd C_cellplus	; match found 11512 */
-	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 11520 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11528 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11536 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11544 */
-	{.type FromH0, {.p L158}, .src = "dd L158"},		/* dd L158 11552 */
-	{.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"},		/* dd MV_Findadr 11560 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11568 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 11576 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11584 */
-	{.type Header, {.hdr { 4, "find", /* C_find = 11600 */ colon }}}, /* CENTRY "find" find 4 ; ( a1 -- a2 f )? h 11608 */
-	{.type FromH0, {.p C_findname}, .src = "dd C_findname"},		/* dd C_findname 11616 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11624 */
-	{.type FromH0, {.p L164}, .src = "dd L164"},		/* dd L164 11632 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 11640 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 11648 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 11656 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 11664 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11672 */
-	{.type Absolute, {.p 63}},		/* dd 63 11680 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 11688 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 11696 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 11704 */
-	{.type FromH0, {.p C_aligned}, .src = "dd C_aligned"},		/* dd C_aligned 11712 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 11720 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11728 */
-	{.type Absolute, {.p 128}},		/* dd 128 11736 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 11744 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11752 */
-	{.type FromH0, {.p L165}, .src = "dd L165"},		/* dd L165 11760 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11768 */
-	{.type Absolute, {.p 1}},		/* dd 1 11776 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11784 */
-	{.type FromH0, {.p L166}, .src = "dd L166"},		/* dd L166 11792 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11800 */
-	{.type Absolute, {.p -1}},		/* dd -1 11808 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11816 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11824 */
-	{.type FromH0, {.p L167}, .src = "dd L167"},		/* dd L167 11832 */
-	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 11840 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11848 */
-	{.type Header, {.hdr { 1, "'", /* C_single_quote = 11864 */ colon }}}, /* CENTRY "'" single_quote 1 h 11872 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 11880 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 11888 */
-	{.type FromH0, {.p C_find}, .src = "dd C_find"},		/* dd C_find 11896 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 11904 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11912 */
-	{.type FromH0, {.p L169}, .src = "dd L169"},		/* dd L169 11920 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 11928 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 11936 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 11944 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11952 */
-	{.type FromH0, {.p L170}, .src = "dd L170"},		/* dd L170 11960 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11968 */
-	{.type Absolute, {.p 3}},		/* dd 3 11976 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 11984 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 11992 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 12000 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12008 */
-	{.type Header, {.hdr { 6, "?stack", /* C_qstack = 12024 */ colon }}}, /* CENTRY "?stack" qstack 6 h 12032 */
-	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"},		/* dd M_stackptr 12040 */
-	{.type FromH0, {.p M_S0}, .src = "dd M_S0"},		/* dd M_S0 12048 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 12056 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12064 */
-	{.type FromH0, {.p L172}, .src = "dd L172"},		/* dd L172 12072 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12080 */
-	{.type FromH0, {.p L173}, .src = "dd L173"},		/* dd L173 12088 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12096 */
-	{.type Absolute, {.p 16}},		/* dd 16 12104 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 12112 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 12120 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 12128 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12136 */
-	{.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT	; ( str -- str 1) ; debug code to show the word found"},		/* dd MC_STDOUT	; ( str -- str 1) ; debug code to show the word found 12144 */
-	{.type FromH0, {.p M_over}, .src = "dd M_over		; ( str 1 str )"},		/* dd M_over		; ( str 1 str ) 12152 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count 		; ( str 1 a n)"},		/* dd C_count 		; ( str 1 a n) 12160 */
-	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"},		/* dd M_syswrite 12168 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 12176 */
-	{.type Header, {.hdr { 9, "interpret", /* C_interpret = 12200 */ colon }}}, /* CENTRY "interpret" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set h 12208 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 12216 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word	; ( bl -- a ) a = address of counted string"},		/* dd C_word	; ( bl -- a ) a = address of counted string 12224 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 12232 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 12240 */
-	{.type FromH0, {.p C_0neq}, .src = "dd C_0neq"},		/* dd C_0neq 12248 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12256 */
-	{.type FromH0, {.p L176}, .src = "dd L176	; count at a = 0, drop a and exit"},		/* dd L176	; count at a = 0, drop a and exit 12264 */
-	{.type FromH0, {.p C_find}, .src = "dd C_find	; ( a -- a1 f ) a = address of counted string"},		/* dd C_find	; ( a -- a1 f ) a = address of counted string 12272 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12280 */
-	{.type FromH0, {.p L177}, .src = "dd L177"},		/* dd L177 12288 */
-	{.type FromH0, {.p M_execute}, .src = "dd M_execute	; found in dictionary, execute"},		/* dd M_execute	; found in dictionary, execute 12296 */
-	{.type FromH0, {.p C_qstack}, .src = "dd C_qstack"},		/* dd C_qstack 12304 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 12312 */
-	{.type FromH0, {.p L178}, .src = "dd L178"},		/* dd L178 12320 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 12328 */
-	{.type FromH0, {.p C_number}, .src = "dd C_number"},		/* dd C_number 12336 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 12344 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12352 */
-	{.type FromH0, {.p L179}, .src = "dd L179"},		/* dd L179 12360 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space	; the word is neither in the dictionary nor a number"},		/* dd C_space	; the word is neither in the dictionary nor a number 12368 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type	; show the word"},		/* dd C_type	; show the word 12376 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12384 */
-	{.type FromH0, {.p L180}, .src = "dd L180	; error I?"},		/* dd L180	; error I? 12392 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12400 */
-	{.type Absolute, {.p 3}},		/* dd 3 12408 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 12416 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 12424 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 12432 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 12440 */
-	{.type FromH0, {.p L175}, .src = "dd L175"},		/* dd L175 12448 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop	; count at a = 0 ( a -- )"},		/* dd M_drop	; count at a = 0 ( a -- ) 12456 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12464 */
-	{.type Header, {.hdr { 6, "create", /* C_create = 12480 */ colon }}}, /* CENTRY "create" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa) h 12488 */
-	{.type FromH0, {.p C_align}, .src = "dd C_align	; sets Dp = aligned here"},		/* dd C_align	; sets Dp = aligned here 12496 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( -- here )"},		/* dd C_here	; ( -- here ) 12504 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- ) (R -- linkaddr )"},		/* dd M_rpush	; ( -- ) (R -- linkaddr ) 12512 */
-	{.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop	; ( -- Dtop ) (R -- linkaddr )"},		/* dd M_Dtop	; ( -- Dtop ) (R -- linkaddr ) 12520 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( Dtop -- dtop ) (R -- linkaddr )"},		/* dd M_fetch	; ( Dtop -- dtop ) (R -- linkaddr ) 12528 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; ( dtop -- ) (R -- linkaddr )"},		/* dd C_comma	; ( dtop -- ) (R -- linkaddr ) 12536 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 12544 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word	; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf)"},		/* dd C_word	; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf) 12552 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a -- a a ) (R -- linkaddr )"},		/* dd M_dup	; ( a -- a a ) (R -- linkaddr ) 12560 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a a -- a len ) (R -- linkaddr )"},		/* dd M_cfetch	; ( a a -- a len ) (R -- linkaddr ) 12568 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( a len -- a len here ) (R -- linkaddr )"},		/* dd C_here	; ( a len -- a len here ) (R -- linkaddr ) 12576 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a len here -- a here len ) (R -- linkaddr )"},		/* dd M_xswap	; ( a len here -- a here len ) (R -- linkaddr ) 12584 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte"},		/* dd C_1plus	; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte 12592 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr )"},		/* dd M_dup	; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr ) 12600 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 )"},		/* dd M_rpush	; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 ) 12608 */
-	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; ( a here len+1 -- ) (R -- linkaddr len+1 )"},		/* dd M_cmove	; ( a here len+1 -- ) (R -- linkaddr len+1 ) 12616 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- len+1 ) (R -- linkaddr )"},		/* dd M_rpop	; ( -- len+1 ) (R -- linkaddr ) 12624 */
-	{.type FromH0, {.p C_allot}, .src = "dd C_allot	; ( -- ) (R -- linkaddr ) here = here+len+1"},		/* dd C_allot	; ( -- ) (R -- linkaddr ) here = here+len+1 12632 */
-	{.type FromH0, {.p C_align}, .src = "dd C_align	; sets Dp = aligned here"},		/* dd C_align	; sets Dp = aligned here 12640 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12648 */
-	{.type FromH0, {.p M_variable}, .src = "dd M_variable"},		/* dd M_variable 12656 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( -- variablecfa) (R -- linkaddr )"},		/* dd M_fetch	; ( -- variablecfa) (R -- linkaddr ) 12664 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; ( -- ) put the variablecfa into the cfa"},		/* dd C_comma	; ( -- ) put the variablecfa into the cfa 12672 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- linkaddr) (R -- )"},		/* dd M_rpop	; ( -- linkaddr) (R -- ) 12680 */
-	{.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"},		/* dd M_Dtop 12688 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; Dtop = just created link address"},		/* dd M_store	; Dtop = just created link address 12696 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12704 */
-	{.type Header, {.hdr { 8, "variable", /* C_variable = 12728 */ colon }}}, /* CENTRY "variable" variable 8 ; compile to put the vhere then on the stack h 12736 */
-	{.type FromH0, {.p C_create}, .src = "dd C_create"},		/* dd C_create 12744 */
-	{.type FromH0, {.p C_vhere}, .src = "dd C_vhere"},		/* dd C_vhere 12752 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; put the next available variable location in pfa"},		/* dd C_comma	; put the next available variable location in pfa 12760 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12768 */
-	{.type Absolute, {.p 1}},		/* dd 1 12776 */
-	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 12784 */
-	{.type FromH0, {.p C_vallot}, .src = "dd C_vallot	; vhere = vhere+8, stored at Vp"},		/* dd C_vallot	; vhere = vhere+8, stored at Vp 12792 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12800 */
-	{.type Header, {.hdr { 8, "constant", /* C_constant = 12824 */ colon }}}, /* CENTRY "constant" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant) h 12832 */
-	{.type FromH0, {.p C_create}, .src = "dd C_create	; create dictionary header upto the cfa"},		/* dd C_create	; create dictionary header upto the cfa 12840 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12848 */
-	{.type FromH0, {.p M_constant}, .src = "dd M_constant"},		/* dd M_constant 12856 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( Contstantcfa -- (constant) )"},		/* dd M_fetch	; ( Contstantcfa -- (constant) ) 12864 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( (constant) -- (constant) here )"},		/* dd C_here	; ( (constant) -- (constant) here ) 12872 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12880 */
-	{.type Absolute, {.p 1}},		/* dd 1 12888 */
-	{.type FromH0, {.p C_cells}, .src = "dd C_cells	; ( (constant) here -- (constant) here 8 )"},		/* dd C_cells	; ( (constant) here -- (constant) here 8 ) 12896 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( (constant) here 8 -- (constant) here-8 )"},		/* dd M_minus	; ( (constant) here 8 -- (constant) here-8 ) 12904 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) "},		/* dd M_store	; ( (constant) here-8 -- ) changed cfa from (variable) to (constant)  12912 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; store n into the dictionary"},		/* dd C_comma	; store n into the dictionary 12920 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12928 */
-	{.type Header, {.hdr { 9, "immediate", /* C_immediate = 12952 */ colon }}}, /* CENTRY "immediate" immediate 9 h 12960 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 12968 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 12976 */
-	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 12984 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 12992 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13000 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13008 */
-	{.type Absolute, {.p 128}},		/* dd 128 13016 */
-	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 13024 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 13032 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 13040 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13048 */
-	{.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 13064 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 13072 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 13080 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13088 */
-	{.type Absolute, {.p 63}},		/* dd 63 13096 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 13104 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 13112 */
-	{.type FromH0, {.p C_aligned}, .src = "dd C_aligned"},		/* dd C_aligned 13120 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13128 */
-	{.type Header, {.hdr { 7, "compile", /* C_compile = 13144 */ colon }}}, /* CENTRY "compile" compile 7 h 13152 */
-	{.type FromH0, {.p C_findname}, .src = "dd C_findname"},		/* dd C_findname 13160 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13168 */
-	{.type FromH0, {.p L188}, .src = "dd L188"},		/* dd L188 13176 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 13184 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13192 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13200 */
-	{.type Absolute, {.p 128}},		/* dd 128 13208 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 13216 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13224 */
-	{.type FromH0, {.p L189}, .src = "dd L189"},		/* dd L189 13232 */
-	{.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa	; immediate"},		/* dd C_tocfa	; immediate 13240 */
-	{.type FromH0, {.p M_execute}, .src = "dd M_execute"},		/* dd M_execute 13248 */
-	{.type FromH0, {.p C_qstack}, .src = "dd C_qstack"},		/* dd C_qstack 13256 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13264 */
-	{.type FromH0, {.p L190}, .src = "dd L190"},		/* dd L190 13272 */
-	{.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"},		/* dd C_tocfa 13280 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 13288 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13296 */
-	{.type FromH0, {.p L191}, .src = "dd L191"},		/* dd L191 13304 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 13312 */
-	{.type FromH0, {.p C_number}, .src = "dd C_number"},		/* dd C_number 13320 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 13328 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13336 */
-	{.type FromH0, {.p L192}, .src = "dd L192"},		/* dd L192 13344 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 13352 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 13360 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13368 */
-	{.type FromH0, {.p L193}, .src = "dd L193"},		/* dd L193 13376 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13384 */
-	{.type Absolute, {.p 3}},		/* dd 3 13392 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 13400 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 13408 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 13416 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13424 */
-	{.type FromH0, {.p L194}, .src = "dd L194"},		/* dd L194 13432 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13440 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13448 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 13456 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 13464 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13472 */
-	{.type Header, {.hdr { 1, "]", /* C_close_bracket = 13488 */ colon }}}, /* CENTRY "]" close_bracket 1 h 13496 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 13504 */
-	{.type FromH0, {.p C_on}, .src = "dd C_on"},		/* dd C_on 13512 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 13520 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 13528 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 13536 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13544 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 13552 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13560 */
-	{.type FromH0, {.p L197}, .src = "dd L197"},		/* dd L197 13568 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 13576 */
-	{.type FromH0, {.p C_refill}, .src = "dd C_refill"},		/* dd C_refill 13584 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13592 */
-	{.type FromH0, {.p L198}, .src = "dd L198"},		/* dd L198 13600 */
-	{.type FromH0, {.p C_compile}, .src = "dd C_compile"},		/* dd C_compile 13608 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 13616 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 13624 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13632 */
-	{.type FromH0, {.p L199}, .src = "dd L199"},		/* dd L199 13640 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13648 */
-	{.type FromH0, {.p L196}, .src = "dd L196"},		/* dd L196 13656 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13664 */
-	{.type IHeader, {.hdr { 1, "[", /* CI_open_bracket = 13680 */ colon }}}, /* CIENTRY "[" open_bracket 1 h 13688 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 13696 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 13704 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13712 */
-	{.type Header, {.hdr { 6, "smudge", /* C_smudge = 13728 */ colon }}}, /* CENTRY "smudge" smudge 6 h 13736 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 13744 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 13752 */
-	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 13760 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 13768 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13776 */
+	{.type FromH0, {.p L152}, .src = "dd L152		; false condition"},		/* dd L152		; false condition 11504 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop	; n == 0 && EOF ( n -- )"},		/* dd M_drop	; n == 0 && EOF ( n -- ) 11512 */
+	{.type FromH0, {.p C_qrestore_input}, .src = "dd C_qrestore_input"},		/* dd C_qrestore_input 11520 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11528 */
+	{.type FromH0, {.p L153}, .src = "dd L153"},		/* dd L153 11536 */
+	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 11544 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store		; number of characters to read >Limit = n"},		/* dd M_store		; number of characters to read >Limit = n 11552 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 11560 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off		; start from 0 >In = 0"},		/* dd C_off		; start from 0 >In = 0 11568 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11576 */
+	{.type Header, {.hdr { 6, "refill", /* C_refill = 11592 */ colon }}}, /* CENTRY "refill" refill 6 h 11600 */
+	{.type FromH0, {.p C_query}, .src = "dd C_query"},		/* dd C_query 11608 */
+	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 11616 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11624 */
+	{.type Header, {.hdr { 8, "findname", /* C_findname = 11648 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 11656 */
+	{.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"},		/* dd MV_Findadr 11664 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 11672 */
+	{.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"},		/* dd M_Dtop 11680 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; get latest dictionary link"},		/* dd M_fetch	; get latest dictionary link 11688 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 11696 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11704 */
+	{.type FromH0, {.p L159}, .src = "dd L159	; seached until the first dictionary entry get out"},		/* dd L159	; seached until the first dictionary entry get out 11712 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a -- a a )"},		/* dd M_dup	; ( a -- a a ) 11720 */
+	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus	; ( a a -- a a+8) lenth + initial name address"},		/* dd C_cellplus	; ( a a -- a a+8) lenth + initial name address 11728 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a a+8 -- a immediate|hidden|len) length + initial name"},		/* dd M_cfetch	; ( a a+8 -- a immediate|hidden|len) length + initial name 11736 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11744 */
+	{.type Absolute, {.p 64}},		/* dd 64		; check the reveal'ed flag 1=hidden, 0=reveal 11752 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; if hidden, goto L161 else L160"},		/* dd M_binand	; if hidden, goto L161 else L160 11760 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11768 */
+	{.type FromH0, {.p L160}, .src = "dd L160"},		/* dd L160 11776 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; smudge'd dictionary entry, get the previous entry"},		/* dd M_fetch	; smudge'd dictionary entry, get the previous entry 11784 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11792 */
+	{.type FromH0, {.p L161}, .src = "dd L161"},		/* dd L161 11800 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a1 -- a1 a1)"},		/* dd M_dup	; ( a1 -- a1 a1) 11808 */
+	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus	; ( a1 a1 -- a1 a1+8)"},		/* dd C_cellplus	; ( a1 a1 -- a1 a1+8) 11816 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count	; ( a1 a1+8 -- a1 a1+8+1 n )"},		/* dd C_count	; ( a1 a1+8 -- a1 a1+8+1 n ) 11824 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 11832 */
+	{.type Absolute, {.p 63}},		/* dd 63 11840 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand	; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len )"},		/* dd M_binand	; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len ) 11848 */
+	{.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"},		/* dd MV_Findadr 11856 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11864 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count	; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 )"},		/* dd C_count	; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 ) 11872 */
+	{.type FromH0, {.p C_compare}, .src = "dd C_compare	; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name"},		/* dd C_compare	; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name 11880 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq	; found a match?"},		/* dd C_0eq	; found a match? 11888 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 11896 */
+	{.type FromH0, {.p L162}, .src = "dd L162		; no match"},		/* dd L162		; no match 11904 */
+	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus	; match found"},		/* dd C_cellplus	; match found 11912 */
+	{.type FromH0, {.p C_true}, .src = "dd C_true"},		/* dd C_true 11920 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11928 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11936 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 11944 */
+	{.type FromH0, {.p L158}, .src = "dd L158"},		/* dd L158 11952 */
+	{.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"},		/* dd MV_Findadr 11960 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 11968 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 11976 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 11984 */
+	{.type Header, {.hdr { 4, "find", /* C_find = 12000 */ colon }}}, /* CENTRY "find" find 4 ; ( a1 -- a2 f )? h 12008 */
+	{.type FromH0, {.p C_findname}, .src = "dd C_findname"},		/* dd C_findname 12016 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12024 */
+	{.type FromH0, {.p L164}, .src = "dd L164"},		/* dd L164 12032 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 12040 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 12048 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 12056 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over"},		/* dd M_over 12064 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12072 */
+	{.type Absolute, {.p 63}},		/* dd 63 12080 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 12088 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 12096 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 12104 */
+	{.type FromH0, {.p C_aligned}, .src = "dd C_aligned"},		/* dd C_aligned 12112 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 12120 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12128 */
+	{.type Absolute, {.p 128}},		/* dd 128 12136 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 12144 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12152 */
+	{.type FromH0, {.p L165}, .src = "dd L165"},		/* dd L165 12160 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12168 */
+	{.type Absolute, {.p 1}},		/* dd 1 12176 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 12184 */
+	{.type FromH0, {.p L166}, .src = "dd L166"},		/* dd L166 12192 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12200 */
+	{.type Absolute, {.p -1}},		/* dd -1 12208 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12216 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 12224 */
+	{.type FromH0, {.p L167}, .src = "dd L167"},		/* dd L167 12232 */
+	{.type FromH0, {.p C_false}, .src = "dd C_false"},		/* dd C_false 12240 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12248 */
+	{.type Header, {.hdr { 1, "'", /* C_single_quote = 12264 */ colon }}}, /* CENTRY "'" single_quote 1 h 12272 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 12280 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 12288 */
+	{.type FromH0, {.p C_find}, .src = "dd C_find"},		/* dd C_find 12296 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 12304 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12312 */
+	{.type FromH0, {.p L169}, .src = "dd L169"},		/* dd L169 12320 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 12328 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 12336 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 12344 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12352 */
+	{.type FromH0, {.p L170}, .src = "dd L170"},		/* dd L170 12360 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12368 */
+	{.type Absolute, {.p 3}},		/* dd 3 12376 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 12384 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 12392 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 12400 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12408 */
+	{.type Header, {.hdr { 6, "?stack", /* C_qstack = 12424 */ colon }}}, /* CENTRY "?stack" qstack 6 h 12432 */
+	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"},		/* dd M_stackptr 12440 */
+	{.type FromH0, {.p M_S0}, .src = "dd M_S0"},		/* dd M_S0 12448 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 12456 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12464 */
+	{.type FromH0, {.p L172}, .src = "dd L172"},		/* dd L172 12472 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12480 */
+	{.type FromH0, {.p L173}, .src = "dd L173"},		/* dd L173 12488 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12496 */
+	{.type Absolute, {.p 16}},		/* dd 16 12504 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 12512 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 12520 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 12528 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12536 */
+	{.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT	; ( str -- str 1) ; debug code to show the word found"},		/* dd MC_STDOUT	; ( str -- str 1) ; debug code to show the word found 12544 */
+	{.type FromH0, {.p M_over}, .src = "dd M_over		; ( str 1 str )"},		/* dd M_over		; ( str 1 str ) 12552 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count 		; ( str 1 a n)"},		/* dd C_count 		; ( str 1 a n) 12560 */
+	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"},		/* dd M_syswrite 12568 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 12576 */
+	{.type Header, {.hdr { 9, "interpret", /* C_interpret = 12600 */ colon }}}, /* CENTRY "interpret" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set h 12608 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 12616 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word	; ( bl -- a ) a = address of counted string"},		/* dd C_word	; ( bl -- a ) a = address of counted string 12624 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 12632 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 12640 */
+	{.type FromH0, {.p C_0neq}, .src = "dd C_0neq"},		/* dd C_0neq 12648 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12656 */
+	{.type FromH0, {.p L176}, .src = "dd L176	; count at a = 0, drop a and exit"},		/* dd L176	; count at a = 0, drop a and exit 12664 */
+	{.type FromH0, {.p C_find}, .src = "dd C_find	; ( a -- a1 f ) a = address of counted string"},		/* dd C_find	; ( a -- a1 f ) a = address of counted string 12672 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12680 */
+	{.type FromH0, {.p L177}, .src = "dd L177"},		/* dd L177 12688 */
+	{.type FromH0, {.p M_execute}, .src = "dd M_execute	; found in dictionary, execute"},		/* dd M_execute	; found in dictionary, execute 12696 */
+	{.type FromH0, {.p C_qstack}, .src = "dd C_qstack"},		/* dd C_qstack 12704 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 12712 */
+	{.type FromH0, {.p L178}, .src = "dd L178"},		/* dd L178 12720 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 12728 */
+	{.type FromH0, {.p C_number}, .src = "dd C_number"},		/* dd C_number 12736 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 12744 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 12752 */
+	{.type FromH0, {.p L179}, .src = "dd L179"},		/* dd L179 12760 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space	; the word is neither in the dictionary nor a number"},		/* dd C_space	; the word is neither in the dictionary nor a number 12768 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type	; show the word"},		/* dd C_type	; show the word 12776 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12784 */
+	{.type FromH0, {.p L180}, .src = "dd L180	; error I?"},		/* dd L180	; error I? 12792 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 12800 */
+	{.type Absolute, {.p 3}},		/* dd 3 12808 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 12816 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 12824 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 12832 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 12840 */
+	{.type FromH0, {.p L175}, .src = "dd L175"},		/* dd L175 12848 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop	; count at a = 0 ( a -- )"},		/* dd M_drop	; count at a = 0 ( a -- ) 12856 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 12864 */
+	{.type Header, {.hdr { 6, "create", /* C_create = 12880 */ colon }}}, /* CENTRY "create" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa) h 12888 */
+	{.type FromH0, {.p C_align}, .src = "dd C_align	; sets Dp = aligned here"},		/* dd C_align	; sets Dp = aligned here 12896 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( -- here )"},		/* dd C_here	; ( -- here ) 12904 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( -- ) (R -- linkaddr )"},		/* dd M_rpush	; ( -- ) (R -- linkaddr ) 12912 */
+	{.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop	; ( -- Dtop ) (R -- linkaddr )"},		/* dd M_Dtop	; ( -- Dtop ) (R -- linkaddr ) 12920 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( Dtop -- dtop ) (R -- linkaddr )"},		/* dd M_fetch	; ( Dtop -- dtop ) (R -- linkaddr ) 12928 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; ( dtop -- ) (R -- linkaddr )"},		/* dd C_comma	; ( dtop -- ) (R -- linkaddr ) 12936 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 12944 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word	; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf)"},		/* dd C_word	; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf) 12952 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a -- a a ) (R -- linkaddr )"},		/* dd M_dup	; ( a -- a a ) (R -- linkaddr ) 12960 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a a -- a len ) (R -- linkaddr )"},		/* dd M_cfetch	; ( a a -- a len ) (R -- linkaddr ) 12968 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( a len -- a len here ) (R -- linkaddr )"},		/* dd C_here	; ( a len -- a len here ) (R -- linkaddr ) 12976 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a len here -- a here len ) (R -- linkaddr )"},		/* dd M_xswap	; ( a len here -- a here len ) (R -- linkaddr ) 12984 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte"},		/* dd C_1plus	; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte 12992 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr )"},		/* dd M_dup	; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr ) 13000 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 )"},		/* dd M_rpush	; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 ) 13008 */
+	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; ( a here len+1 -- ) (R -- linkaddr len+1 )"},		/* dd M_cmove	; ( a here len+1 -- ) (R -- linkaddr len+1 ) 13016 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- len+1 ) (R -- linkaddr )"},		/* dd M_rpop	; ( -- len+1 ) (R -- linkaddr ) 13024 */
+	{.type FromH0, {.p C_allot}, .src = "dd C_allot	; ( -- ) (R -- linkaddr ) here = here+len+1"},		/* dd C_allot	; ( -- ) (R -- linkaddr ) here = here+len+1 13032 */
+	{.type FromH0, {.p C_align}, .src = "dd C_align	; sets Dp = aligned here"},		/* dd C_align	; sets Dp = aligned here 13040 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13048 */
+	{.type FromH0, {.p M_variable}, .src = "dd M_variable"},		/* dd M_variable 13056 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( -- variablecfa) (R -- linkaddr )"},		/* dd M_fetch	; ( -- variablecfa) (R -- linkaddr ) 13064 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; ( -- ) put the variablecfa into the cfa"},		/* dd C_comma	; ( -- ) put the variablecfa into the cfa 13072 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- linkaddr) (R -- )"},		/* dd M_rpop	; ( -- linkaddr) (R -- ) 13080 */
+	{.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"},		/* dd M_Dtop 13088 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; Dtop = just created link address"},		/* dd M_store	; Dtop = just created link address 13096 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13104 */
+	{.type Header, {.hdr { 8, "variable", /* C_variable = 13128 */ colon }}}, /* CENTRY "variable" variable 8 ; compile to put the vhere then on the stack h 13136 */
+	{.type FromH0, {.p C_create}, .src = "dd C_create"},		/* dd C_create 13144 */
+	{.type FromH0, {.p C_vhere}, .src = "dd C_vhere"},		/* dd C_vhere 13152 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; put the next available variable location in pfa"},		/* dd C_comma	; put the next available variable location in pfa 13160 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13168 */
+	{.type Absolute, {.p 1}},		/* dd 1 13176 */
+	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 13184 */
+	{.type FromH0, {.p C_vallot}, .src = "dd C_vallot	; vhere = vhere+8, stored at Vp"},		/* dd C_vallot	; vhere = vhere+8, stored at Vp 13192 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13200 */
+	{.type Header, {.hdr { 8, "constant", /* C_constant = 13224 */ colon }}}, /* CENTRY "constant" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant) h 13232 */
+	{.type FromH0, {.p C_create}, .src = "dd C_create	; create dictionary header upto the cfa"},		/* dd C_create	; create dictionary header upto the cfa 13240 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13248 */
+	{.type FromH0, {.p M_constant}, .src = "dd M_constant"},		/* dd M_constant 13256 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( Contstantcfa -- (constant) )"},		/* dd M_fetch	; ( Contstantcfa -- (constant) ) 13264 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( (constant) -- (constant) here )"},		/* dd C_here	; ( (constant) -- (constant) here ) 13272 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13280 */
+	{.type Absolute, {.p 1}},		/* dd 1 13288 */
+	{.type FromH0, {.p C_cells}, .src = "dd C_cells	; ( (constant) here -- (constant) here 8 )"},		/* dd C_cells	; ( (constant) here -- (constant) here 8 ) 13296 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( (constant) here 8 -- (constant) here-8 )"},		/* dd M_minus	; ( (constant) here 8 -- (constant) here-8 ) 13304 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) "},		/* dd M_store	; ( (constant) here-8 -- ) changed cfa from (variable) to (constant)  13312 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; store n into the dictionary"},		/* dd C_comma	; store n into the dictionary 13320 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13328 */
+	{.type Header, {.hdr { 9, "immediate", /* C_immediate = 13352 */ colon }}}, /* CENTRY "immediate" immediate 9 h 13360 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 13368 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 13376 */
+	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 13384 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 13392 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13400 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13408 */
+	{.type Absolute, {.p 128}},		/* dd 128 13416 */
+	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 13424 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 13432 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 13440 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13448 */
+	{.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 13464 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 13472 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 13480 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13488 */
+	{.type Absolute, {.p 63}},		/* dd 63 13496 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 13504 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 13512 */
+	{.type FromH0, {.p C_aligned}, .src = "dd C_aligned"},		/* dd C_aligned 13520 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13528 */
+	{.type Header, {.hdr { 7, "compile", /* C_compile = 13544 */ colon }}}, /* CENTRY "compile" compile 7 h 13552 */
+	{.type FromH0, {.p C_findname}, .src = "dd C_findname"},		/* dd C_findname 13560 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13568 */
+	{.type FromH0, {.p L188}, .src = "dd L188"},		/* dd L188 13576 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 13584 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13592 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13600 */
+	{.type Absolute, {.p 128}},		/* dd 128 13608 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 13616 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13624 */
+	{.type FromH0, {.p L189}, .src = "dd L189"},		/* dd L189 13632 */
+	{.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa	; immediate"},		/* dd C_tocfa	; immediate 13640 */
+	{.type FromH0, {.p M_execute}, .src = "dd M_execute"},		/* dd M_execute 13648 */
+	{.type FromH0, {.p C_qstack}, .src = "dd C_qstack"},		/* dd C_qstack 13656 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13664 */
+	{.type FromH0, {.p L190}, .src = "dd L190"},		/* dd L190 13672 */
+	{.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"},		/* dd C_tocfa 13680 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 13688 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13696 */
+	{.type FromH0, {.p L191}, .src = "dd L191"},		/* dd L191 13704 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 13712 */
+	{.type FromH0, {.p C_number}, .src = "dd C_number"},		/* dd C_number 13720 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 13728 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13736 */
+	{.type FromH0, {.p L192}, .src = "dd L192"},		/* dd L192 13744 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 13752 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 13760 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13768 */
+	{.type FromH0, {.p L193}, .src = "dd L193"},		/* dd L193 13776 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13784 */
-	{.type Absolute, {.p 64}},		/* dd 64 13792 */
-	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 13800 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 13808 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 13816 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13824 */
-	{.type Header, {.hdr { 6, "reveal", /* C_reveal = 13840 */ colon }}}, /* CENTRY "reveal" reveal 6 h 13848 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 13856 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 13864 */
-	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 13872 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 13880 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13888 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13896 */
-	{.type Absolute, {.p 64}},		/* dd 64 13904 */
-	{.type FromH0, {.p C_invert}, .src = "dd C_invert"},		/* dd C_invert 13912 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 13920 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 13928 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 13936 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13944 */
-	{.type Header, {.hdr { 1, ":", /* C_colon = 13960 */ colon }}}, /* CENTRY ":" colon 1 h 13968 */
-	{.type FromH0, {.p C_create}, .src = "dd C_create	; create a dictionary header with (variable) at cfa"},		/* dd C_create	; create a dictionary header with (variable) at cfa 13976 */
-	{.type FromH0, {.p C_smudge}, .src = "dd C_smudge"},		/* dd C_smudge 13984 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13992 */
-	{.type FromH0, {.p M_colon}, .src = "dd M_colon"},		/* dd M_colon 14000 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( Coloncfa -- (colon) ) fetches the cfa of M_colon"},		/* dd M_fetch	; ( Coloncfa -- (colon) ) fetches the cfa of M_colon 14008 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( (colon) -- (colon) here )"},		/* dd C_here	; ( (colon) -- (colon) here ) 14016 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14024 */
-	{.type Absolute, {.p 1}},		/* dd 1 14032 */
-	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 14040 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( (colon) here -- (colon) here-8 )"},		/* dd M_minus	; ( (colon) here -- (colon) here-8 ) 14048 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; ( (colon) here-8 -- ) change the cfa from (variable) to colon"},		/* dd M_store	; ( (colon) here-8 -- ) change the cfa from (variable) to colon 14056 */
-	{.type FromH0, {.p C_close_bracket}, .src = "dd C_close_bracket"},		/* dd C_close_bracket 14064 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14072 */
-	{.type IHeader, {.hdr { 1, ";", /* CI_semicolon = 14088 */ colon }}}, /* CIENTRY ";" semicolon 1 h 14096 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14104 */
+	{.type Absolute, {.p 3}},		/* dd 3 13792 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 13800 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 13808 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 13816 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13824 */
+	{.type FromH0, {.p L194}, .src = "dd L194"},		/* dd L194 13832 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13840 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 13848 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 13856 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 13864 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 13872 */
+	{.type Header, {.hdr { 1, "]", /* C_close_bracket = 13888 */ colon }}}, /* CENTRY "]" close_bracket 1 h 13896 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 13904 */
+	{.type FromH0, {.p C_on}, .src = "dd C_on"},		/* dd C_on 13912 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 13920 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 13928 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 13936 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 13944 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 13952 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 13960 */
+	{.type FromH0, {.p L197}, .src = "dd L197"},		/* dd L197 13968 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 13976 */
+	{.type FromH0, {.p C_refill}, .src = "dd C_refill"},		/* dd C_refill 13984 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 13992 */
+	{.type FromH0, {.p L198}, .src = "dd L198"},		/* dd L198 14000 */
+	{.type FromH0, {.p C_compile}, .src = "dd C_compile"},		/* dd C_compile 14008 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 14016 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 14024 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 14032 */
+	{.type FromH0, {.p L199}, .src = "dd L199"},		/* dd L199 14040 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 14048 */
+	{.type FromH0, {.p L196}, .src = "dd L196"},		/* dd L196 14056 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14064 */
+	{.type IHeader, {.hdr { 1, "[", /* CI_open_bracket = 14080 */ colon }}}, /* CIENTRY "[" open_bracket 1 h 14088 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 14096 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 14104 */
 	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14112 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14120 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 14128 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 14136 */
-	{.type FromH0, {.p C_reveal}, .src = "dd C_reveal"},		/* dd C_reveal 14144 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14152 */
-	{.type IHeader, {.hdr { 7, "recurse", /* CI_recurse = 14168 */ colon }}}, /* CIENTRY "recurse" recurse 7 h 14176 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 14184 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 14192 */
-	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 14200 */
-	{.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"},		/* dd C_tocfa 14208 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14216 */
+	{.type Header, {.hdr { 6, "smudge", /* C_smudge = 14128 */ colon }}}, /* CENTRY "smudge" smudge 6 h 14136 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 14144 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 14152 */
+	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 14160 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 14168 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 14176 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14184 */
+	{.type Absolute, {.p 64}},		/* dd 64 14192 */
+	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 14200 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 14208 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 14216 */
 	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14224 */
-	{.type Header, {.hdr { 4, "char", /* C_char = 14240 */ colon }}}, /* CENTRY "char" char 4 ; ( -- c ) fetch the first character of the next word from input h 14248 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 14256 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word	; ( c -- a ) puts the address of the counted string from the input on the stack"},		/* dd C_word	; ( c -- a ) puts the address of the counted string from the input on the stack 14264 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; skip the count"},		/* dd C_1plus	; skip the count 14272 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; fetch the first character"},		/* dd M_cfetch	; fetch the first character 14280 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14288 */
-	{.type Header, {.hdr { 7, "literal", /* C_literal = 14304 */ colon }}}, /* CENTRY "literal" literal 7 ; ( n -- ) adds (literal) n to the dictionary h 14312 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14320 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14328 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14336 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14344 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14352 */
-	{.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 14376 */ colon }}}, /* CENTRY "sliteral" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary h 14384 */
+	{.type Header, {.hdr { 6, "reveal", /* C_reveal = 14240 */ colon }}}, /* CENTRY "reveal" reveal 6 h 14248 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 14256 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 14264 */
+	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 14272 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 14280 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 14288 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14296 */
+	{.type Absolute, {.p 64}},		/* dd 64 14304 */
+	{.type FromH0, {.p C_invert}, .src = "dd C_invert"},		/* dd C_invert 14312 */
+	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 14320 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 14328 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore"},		/* dd M_cstore 14336 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14344 */
+	{.type Header, {.hdr { 1, ":", /* C_colon = 14360 */ colon }}}, /* CENTRY ":" colon 1 h 14368 */
+	{.type FromH0, {.p C_create}, .src = "dd C_create	; create a dictionary header with (variable) at cfa"},		/* dd C_create	; create a dictionary header with (variable) at cfa 14376 */
+	{.type FromH0, {.p C_smudge}, .src = "dd C_smudge"},		/* dd C_smudge 14384 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14392 */
-	{.type FromH0, {.p M_sliteral}, .src = "dd M_sliteral"},		/* dd M_sliteral 14400 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; adds (sliteral) to the dictionary"},		/* dd C_comma	; adds (sliteral) to the dictionary 14408 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( -- here)"},		/* dd C_here	; ( -- here) 14416 */
+	{.type FromH0, {.p M_colon}, .src = "dd M_colon"},		/* dd M_colon 14400 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( Coloncfa -- (colon) ) fetches the cfa of M_colon"},		/* dd M_fetch	; ( Coloncfa -- (colon) ) fetches the cfa of M_colon 14408 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( (colon) -- (colon) here )"},		/* dd C_here	; ( (colon) -- (colon) here ) 14416 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14424 */
-	{.type Absolute, {.p 34}},		/* dd 34		; ascii value of " 14432 */
-	{.type FromH0, {.p C_parse}, .src = "dd C_parse	; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf)."},		/* dd C_parse	; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf). 14440 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( here a -- here a a )"},		/* dd M_dup	; ( here a -- here a a ) 14448 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( here a a -- here a n )"},		/* dd M_cfetch	; ( here a a -- here a n ) 14456 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string"},		/* dd C_1plus	; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string 14464 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( here a n+1 -- here a ) (R -- n+1)"},		/* dd M_rpush	; ( here a n+1 -- here a ) (R -- n+1) 14472 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( here a -- a here ) (R -- n+1)"},		/* dd M_xswap	; ( here a -- a here ) (R -- n+1) 14480 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( a here -- a here n+1 ) (R -- n+1 )"},		/* dd M_rfetch	; ( a here -- a here n+1 ) (R -- n+1 ) 14488 */
-	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; ( a here n+1 -- ) moves n+1 from a to here"},		/* dd M_cmove	; ( a here n+1 -- ) moves n+1 from a to here 14496 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- n+1 ) (R -- )"},		/* dd M_rpop	; ( -- n+1 ) (R -- ) 14504 */
-	{.type FromH0, {.p C_allot}, .src = "dd C_allot	; ( n+1 -- ) here = here+n+1"},		/* dd C_allot	; ( n+1 -- ) here = here+n+1 14512 */
-	{.type FromH0, {.p C_align}, .src = "dd C_align	; align here"},		/* dd C_align	; align here 14520 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14528 */
-	{.type Header, {.hdr { 6, "string", /* C_string = 14544 */ colon }}}, /* CENTRY "string" string 6 ; ( c -- ) h 14552 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 14560 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 14568 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 14576 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 14584 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 14592 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 14600 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"},		/* dd M_rfetch 14608 */
-	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove"},		/* dd M_cmove 14616 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 14624 */
-	{.type FromH0, {.p C_allot}, .src = "dd C_allot"},		/* dd C_allot 14632 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14640 */
-	{.type IHeader, {.hdr { 6, "[char]", /* CI_char_brackets = 14656 */ colon }}}, /* CIENTRY "[char]" char_brackets 6 ; take the next character from the input stream during compilation h 14664 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 14672 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 14680 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 14688 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 14696 */
-	{.type FromH0, {.p C_literal}, .src = "dd C_literal"},		/* dd C_literal 14704 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14712 */
-	{.type IHeader, {.hdr { 3, "[']", /* CI_quote_brackets = 14728 */ colon }}}, /* CIENTRY "[']" quote_brackets 3 ; take the address of next token from the input stream during compilation h 14736 */
-	{.type FromH0, {.p C_single_quote}, .src = "dd C_single_quote"},		/* dd C_single_quote 14744 */
-	{.type FromH0, {.p C_literal}, .src = "dd C_literal"},		/* dd C_literal 14752 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14760 */
-	{.type IHeader, {.hdr { 1, "(", /* CI_openparen = 14776 */ colon }}}, /* CIENTRY "(" openparen 1 ; ignore until ) from the input stream during compilation h 14784 */
+	{.type Absolute, {.p 1}},		/* dd 1 14432 */
+	{.type FromH0, {.p C_cells}, .src = "dd C_cells"},		/* dd C_cells 14440 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( (colon) here -- (colon) here-8 )"},		/* dd M_minus	; ( (colon) here -- (colon) here-8 ) 14448 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; ( (colon) here-8 -- ) change the cfa from (variable) to colon"},		/* dd M_store	; ( (colon) here-8 -- ) change the cfa from (variable) to colon 14456 */
+	{.type FromH0, {.p C_close_bracket}, .src = "dd C_close_bracket"},		/* dd C_close_bracket 14464 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14472 */
+	{.type IHeader, {.hdr { 1, ";", /* CI_semicolon = 14488 */ colon }}}, /* CIENTRY ";" semicolon 1 h 14496 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14504 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14512 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14520 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 14528 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off"},		/* dd C_off 14536 */
+	{.type FromH0, {.p C_reveal}, .src = "dd C_reveal"},		/* dd C_reveal 14544 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14552 */
+	{.type IHeader, {.hdr { 7, "recurse", /* CI_recurse = 14568 */ colon }}}, /* CIENTRY "recurse" recurse 7 h 14576 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 14584 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 14592 */
+	{.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"},		/* dd C_cellplus 14600 */
+	{.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"},		/* dd C_tocfa 14608 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14616 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14624 */
+	{.type Header, {.hdr { 4, "char", /* C_char = 14640 */ colon }}}, /* CENTRY "char" char 4 ; ( -- c ) fetch the first character of the next word from input h 14648 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 14656 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word	; ( c -- a ) puts the address of the counted string from the input on the stack"},		/* dd C_word	; ( c -- a ) puts the address of the counted string from the input on the stack 14664 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; skip the count"},		/* dd C_1plus	; skip the count 14672 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; fetch the first character"},		/* dd M_cfetch	; fetch the first character 14680 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14688 */
+	{.type Header, {.hdr { 7, "literal", /* C_literal = 14704 */ colon }}}, /* CENTRY "literal" literal 7 ; ( n -- ) adds (literal) n to the dictionary h 14712 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14720 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14728 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14736 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 14744 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14752 */
+	{.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 14776 */ colon }}}, /* CENTRY "sliteral" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary h 14784 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14792 */
-	{.type Absolute, {.p 41}},		/* dd 41 14800 */
-	{.type FromH0, {.p C_parse}, .src = "dd C_parse"},		/* dd C_parse 14808 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 14816 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14824 */
-	{.type IHeader, {.hdr { 1, "\\", /* CI_backslash = 14840 */ colon }}}, /* CIENTRY "\\" backslash 1 h 14848 */
-	{.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"},		/* dd MV_Blk 14856 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 14864 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 14872 */
-	{.type FromH0, {.p L214}, .src = "dd L214"},		/* dd L214 14880 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 14888 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 14896 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14904 */
-	{.type Absolute, {.p 63}},		/* dd 63 14912 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus"},		/* dd M_plus 14920 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14928 */
-	{.type Absolute, {.p 63}},		/* dd 63 14936 */
-	{.type FromH0, {.p C_invert}, .src = "dd C_invert"},		/* dd C_invert 14944 */
-	{.type FromH0, {.p M_binand}, .src = "dd M_binand"},		/* dd M_binand 14952 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 14960 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 14968 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 14976 */
-	{.type FromH0, {.p L215}, .src = "dd L215"},		/* dd L215 14984 */
-	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 14992 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 15000 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 15008 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 15016 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15024 */
-	{.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 15048 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 15056 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 15064 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 15072 */
-	{.type FromH0, {.p L217}, .src = "dd L217"},		/* dd L217 15080 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 15088 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 15096 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 15104 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 15112 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 15120 */
-	{.type FromH0, {.p L218}, .src = "dd L218"},		/* dd L218 15128 */
-	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop"},		/* dd C_2drop 15136 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15144 */
-	{.type IHeader, {.hdr { 6, "abort\"", /* CI_abort_double_quote = 15160 */ colon }}}, /* CIENTRY "abort\"" abort_double_quote 6 h 15168 */
-	{.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"},		/* dd C_sliteral 15176 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15184 */
-	{.type FromH0, {.p C_qabort_parens}, .src = "dd C_qabort_parens"},		/* dd C_qabort_parens 15192 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15200 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15208 */
-	{.type Header, {.hdr { 1, "\"", /* C_double_quote = 15224 */ colon }}}, /* CENTRY "\"" double_quote 1 ; stores counted string in the dictionary and also leaves the address count of the string on the stack - used to use strings at the interpreter prompt h 15232 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15240 */
-	{.type Absolute, {.p 34}},		/* dd 34 15248 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 15256 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 15264 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 15272 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15280 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"},		/* dd M_rfetch 15288 */
-	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove"},		/* dd M_cmove 15296 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15304 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 15312 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 15320 */
-	{.type FromH0, {.p C_allot}, .src = "dd C_allot"},		/* dd C_allot 15328 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15336 */
-	{.type Header, {.hdr { 2, "c\"", /* C_cdouble_quote = 15352 */ colon }}}, /* CENTRY "c\"" cdouble_quote 2 ; stores counted string in the dictionary and also leaves the address of the counted string on the stack h 15360 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15368 */
-	{.type Absolute, {.p 34}},		/* dd 34		; ( -- \" ) 15376 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word	; ( \" -- a ) a = counted string address. a will be in Wordbuf"},		/* dd C_word	; ( \" -- a ) a = counted string address. a will be in Wordbuf 15384 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a -- a a)"},		/* dd M_dup	; ( a -- a a) 15392 */
-	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a a -- a n )"},		/* dd M_cfetch	; ( a a -- a n ) 15400 */
-	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; ( a n -- a n+1 )"},		/* dd C_1plus	; ( a n -- a n+1 ) 15408 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n -- a ) (R -- n+1)"},		/* dd M_rpush	; ( a n -- a ) (R -- n+1) 15416 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( a -- a here ) (R -- n+1)"},		/* dd C_here	; ( a -- a here ) (R -- n+1) 15424 */
-	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( a here -- a here n+1) (R -- n+1)"},		/* dd M_rfetch	; ( a here -- a here n+1) (R -- n+1) 15432 */
-	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; move counted string from a to here"},		/* dd M_cmove	; move counted string from a to here 15440 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( -- here )"},		/* dd C_here	; ( -- here ) 15448 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( here -- here n+1 )(R -- )"},		/* dd M_rpop	; ( here -- here n+1 )(R -- ) 15456 */
-	{.type FromH0, {.p C_allot}, .src = "dd C_allot	; ( here n+1 -- here) here += n+1"},		/* dd C_allot	; ( here n+1 -- here) here += n+1 15464 */
+	{.type FromH0, {.p M_sliteral}, .src = "dd M_sliteral"},		/* dd M_sliteral 14800 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma	; adds (sliteral) to the dictionary"},		/* dd C_comma	; adds (sliteral) to the dictionary 14808 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( -- here)"},		/* dd C_here	; ( -- here) 14816 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 14824 */
+	{.type Absolute, {.p 34}},		/* dd 34		; ascii value of " 14832 */
+	{.type FromH0, {.p C_parse}, .src = "dd C_parse	; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf)."},		/* dd C_parse	; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf). 14840 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( here a -- here a a )"},		/* dd M_dup	; ( here a -- here a a ) 14848 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( here a a -- here a n )"},		/* dd M_cfetch	; ( here a a -- here a n ) 14856 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string"},		/* dd C_1plus	; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string 14864 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( here a n+1 -- here a ) (R -- n+1)"},		/* dd M_rpush	; ( here a n+1 -- here a ) (R -- n+1) 14872 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( here a -- a here ) (R -- n+1)"},		/* dd M_xswap	; ( here a -- a here ) (R -- n+1) 14880 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( a here -- a here n+1 ) (R -- n+1 )"},		/* dd M_rfetch	; ( a here -- a here n+1 ) (R -- n+1 ) 14888 */
+	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; ( a here n+1 -- ) moves n+1 from a to here"},		/* dd M_cmove	; ( a here n+1 -- ) moves n+1 from a to here 14896 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( -- n+1 ) (R -- )"},		/* dd M_rpop	; ( -- n+1 ) (R -- ) 14904 */
+	{.type FromH0, {.p C_allot}, .src = "dd C_allot	; ( n+1 -- ) here = here+n+1"},		/* dd C_allot	; ( n+1 -- ) here = here+n+1 14912 */
+	{.type FromH0, {.p C_align}, .src = "dd C_align	; align here"},		/* dd C_align	; align here 14920 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 14928 */
+	{.type Header, {.hdr { 6, "string", /* C_string = 14944 */ colon }}}, /* CENTRY "string" string 6 ; ( c -- ) h 14952 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 14960 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 14968 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 14976 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 14984 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 14992 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15000 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"},		/* dd M_rfetch 15008 */
+	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove"},		/* dd M_cmove 15016 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 15024 */
+	{.type FromH0, {.p C_allot}, .src = "dd C_allot"},		/* dd C_allot 15032 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15040 */
+	{.type IHeader, {.hdr { 6, "[char]", /* CI_char_brackets = 15056 */ colon }}}, /* CIENTRY "[char]" char_brackets 6 ; take the next character from the input stream during compilation h 15064 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 15072 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 15080 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus"},		/* dd C_1plus 15088 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"},		/* dd M_cfetch 15096 */
+	{.type FromH0, {.p C_literal}, .src = "dd C_literal"},		/* dd C_literal 15104 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15112 */
+	{.type IHeader, {.hdr { 3, "[']", /* CI_quote_brackets = 15128 */ colon }}}, /* CIENTRY "[']" quote_brackets 3 ; take the address of next token from the input stream during compilation h 15136 */
+	{.type FromH0, {.p C_single_quote}, .src = "dd C_single_quote"},		/* dd C_single_quote 15144 */
+	{.type FromH0, {.p C_literal}, .src = "dd C_literal"},		/* dd C_literal 15152 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15160 */
+	{.type IHeader, {.hdr { 1, "(", /* CI_openparen = 15176 */ colon }}}, /* CIENTRY "(" openparen 1 ; ignore until ) from the input stream during compilation h 15184 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15192 */
+	{.type Absolute, {.p 41}},		/* dd 41 15200 */
+	{.type FromH0, {.p C_parse}, .src = "dd C_parse"},		/* dd C_parse 15208 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop"},		/* dd M_drop 15216 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15224 */
+/* ; if the line is longer than Tib, then skipping this line is not good enough. hence, throwing an error when >Limit == Tib length */	{.type IHeader, {.hdr { 1, "\\", /* CI_backslash = 15240 */ colon }}}, /* CIENTRY "\\" backslash 1 h 15248 */
+	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 15256 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 15264 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 15272 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 15280 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15288 */
+	{.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 15312 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 15320 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 15328 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 15336 */
+	{.type FromH0, {.p L217}, .src = "dd L217"},		/* dd L217 15344 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 15352 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 15360 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 15368 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 15376 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 15384 */
+	{.type FromH0, {.p L218}, .src = "dd L218"},		/* dd L218 15392 */
+	{.type FromH0, {.p C_2drop}, .src = "dd C_2drop"},		/* dd C_2drop 15400 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15408 */
+	{.type IHeader, {.hdr { 6, "abort\"", /* CI_abort_double_quote = 15424 */ colon }}}, /* CIENTRY "abort\"" abort_double_quote 6 h 15432 */
+	{.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"},		/* dd C_sliteral 15440 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15448 */
+	{.type FromH0, {.p C_qabort_parens}, .src = "dd C_qabort_parens"},		/* dd C_qabort_parens 15456 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15464 */
 	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15472 */
-	{.type IHeader, {.hdr { 2, "s\"", /* CI_sdouble_quote = 15488 */ colon }}}, /* CIENTRY "s\"" sdouble_quote 2 ; add the string from the input stream to the dictionary as (sliteral) count string - at run-time puts the ( -- addr n) of the counted string on the stack. h 15496 */
-	{.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"},		/* dd C_sliteral 15504 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15512 */
-	{.type IHeader, {.hdr { 2, ".\"", /* CI_dotstr = 15528 */ colon }}}, /* CIENTRY ".\"" dotstr 2 ; do what s" does and then add a type word to the dictionary to print that string h 15536 */
-	{.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"},		/* dd C_sliteral 15544 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15552 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 15560 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15568 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15576 */
-	{.type IHeader, {.hdr { 2, "if", /* CI_if = 15592 */ colon }}}, /* CIENTRY "if" if 2 h 15600 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15608 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 15616 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15624 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15632 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15640 */
-	{.type Absolute, {.p 0}},		/* dd 0 15648 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15656 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15664 */
-	{.type IHeader, {.hdr { 4, "else", /* CI_else = 15680 */ colon }}}, /* CIENTRY "else" else 4 h 15688 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15696 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 15704 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15712 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15720 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 15728 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15736 */
-	{.type Absolute, {.p 0}},		/* dd 0 15744 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15752 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15760 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 15768 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 15776 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 15784 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15792 */
-	{.type IHeader, {.hdr { 4, "then", /* CI_then = 15808 */ colon }}}, /* CIENTRY "then" then 4 h 15816 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15824 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 15832 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 15840 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15848 */
-	{.type IHeader, {.hdr { 5, "begin", /* CI_begin = 15864 */ colon }}}, /* CIENTRY "begin" begin 5 h 15872 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15880 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15888 */
-	{.type IHeader, {.hdr { 5, "again", /* CI_again = 15904 */ colon }}}, /* CIENTRY "again" again 5 h 15912 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15920 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 15928 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15936 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15944 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15952 */
-	{.type IHeader, {.hdr { 5, "until", /* CI_until = 15968 */ colon }}}, /* CIENTRY "until" until 5 h 15976 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15984 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 15992 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16000 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16008 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16016 */
-	{.type IHeader, {.hdr { 5, "while", /* CI_while = 16032 */ colon }}}, /* CIENTRY "while" while 5 h 16040 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16048 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 16056 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16064 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16072 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16080 */
-	{.type Absolute, {.p 0}},		/* dd 0 16088 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16096 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16104 */
-	{.type IHeader, {.hdr { 6, "repeat", /* CI_repeat = 16120 */ colon }}}, /* CIENTRY "repeat" repeat 6 h 16128 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16136 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 16144 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16152 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16160 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16168 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16176 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16184 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16192 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16200 */
-	{.type IHeader, {.hdr { 2, "do", /* CI_do = 16216 */ colon }}}, /* CIENTRY "do" do 2 h 16224 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16232 */
-	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit		; compile this into the definition. Puts limit and index on the run stack at run time"},		/* dd M_doinit		; compile this into the definition. Puts limit and index on the run stack at run time 16240 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma		; puts (do) into the dictionary"},		/* dd C_comma		; puts (do) into the dictionary 16248 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16256 */
-	{.type Absolute, {.p 0}},		/* dd 0			; ( -- 0 ) 16264 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here		; ( 0 -- 0 here1 )"},		/* dd C_here		; ( 0 -- 0 here1 ) 16272 */
+	{.type Header, {.hdr { 1, "\"", /* C_double_quote = 15488 */ colon }}}, /* CENTRY "\"" double_quote 1 ; stores counted string in the dictionary and also leaves the address count of the string on the stack - used to use strings at the interpreter prompt h 15496 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15504 */
+	{.type Absolute, {.p 34}},		/* dd 34 15512 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 15520 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 15528 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 15536 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15544 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"},		/* dd M_rfetch 15552 */
+	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove"},		/* dd M_cmove 15560 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15568 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 15576 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 15584 */
+	{.type FromH0, {.p C_allot}, .src = "dd C_allot"},		/* dd C_allot 15592 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15600 */
+	{.type Header, {.hdr { 2, "c\"", /* C_cdouble_quote = 15616 */ colon }}}, /* CENTRY "c\"" cdouble_quote 2 ; stores counted string in the dictionary and also leaves the address of the counted string on the stack h 15624 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15632 */
+	{.type Absolute, {.p 34}},		/* dd 34		; ( -- \" ) 15640 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word	; ( \" -- a ) a = counted string address. a will be in Wordbuf"},		/* dd C_word	; ( \" -- a ) a = counted string address. a will be in Wordbuf 15648 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a -- a a)"},		/* dd M_dup	; ( a -- a a) 15656 */
+	{.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch	; ( a a -- a n )"},		/* dd M_cfetch	; ( a a -- a n ) 15664 */
+	{.type FromH0, {.p C_1plus}, .src = "dd C_1plus	; ( a n -- a n+1 )"},		/* dd C_1plus	; ( a n -- a n+1 ) 15672 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n -- a ) (R -- n+1)"},		/* dd M_rpush	; ( a n -- a ) (R -- n+1) 15680 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( a -- a here ) (R -- n+1)"},		/* dd C_here	; ( a -- a here ) (R -- n+1) 15688 */
+	{.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch	; ( a here -- a here n+1) (R -- n+1)"},		/* dd M_rfetch	; ( a here -- a here n+1) (R -- n+1) 15696 */
+	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; move counted string from a to here"},		/* dd M_cmove	; move counted string from a to here 15704 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here	; ( -- here )"},		/* dd C_here	; ( -- here ) 15712 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( here -- here n+1 )(R -- )"},		/* dd M_rpop	; ( here -- here n+1 )(R -- ) 15720 */
+	{.type FromH0, {.p C_allot}, .src = "dd C_allot	; ( here n+1 -- here) here += n+1"},		/* dd C_allot	; ( here n+1 -- here) here += n+1 15728 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15736 */
+	{.type IHeader, {.hdr { 2, "s\"", /* CI_sdouble_quote = 15752 */ colon }}}, /* CIENTRY "s\"" sdouble_quote 2 ; add the string from the input stream to the dictionary as (sliteral) count string - at run-time puts the ( -- addr n) of the counted string on the stack. h 15760 */
+	{.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"},		/* dd C_sliteral 15768 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15776 */
+	{.type IHeader, {.hdr { 2, ".\"", /* CI_dotstr = 15792 */ colon }}}, /* CIENTRY ".\"" dotstr 2 ; do what s" does and then add a type word to the dictionary to print that string h 15800 */
+	{.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"},		/* dd C_sliteral 15808 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15816 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 15824 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15832 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15840 */
+	{.type IHeader, {.hdr { 2, "if", /* CI_if = 15856 */ colon }}}, /* CIENTRY "if" if 2 h 15864 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15872 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 15880 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15888 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15896 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15904 */
+	{.type Absolute, {.p 0}},		/* dd 0 15912 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15920 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 15928 */
+	{.type IHeader, {.hdr { 4, "else", /* CI_else = 15944 */ colon }}}, /* CIENTRY "else" else 4 h 15952 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 15960 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 15968 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 15976 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 15984 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 15992 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16000 */
+	{.type Absolute, {.p 0}},		/* dd 0 16008 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16016 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16024 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16032 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16040 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 16048 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16056 */
+	{.type IHeader, {.hdr { 4, "then", /* CI_then = 16072 */ colon }}}, /* CIENTRY "then" then 4 h 16080 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16088 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16096 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16104 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16112 */
+	{.type IHeader, {.hdr { 5, "begin", /* CI_begin = 16128 */ colon }}}, /* CIENTRY "begin" begin 5 h 16136 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16144 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16152 */
+	{.type IHeader, {.hdr { 5, "again", /* CI_again = 16168 */ colon }}}, /* CIENTRY "again" again 5 h 16176 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16184 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 16192 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16200 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16208 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16216 */
+	{.type IHeader, {.hdr { 5, "until", /* CI_until = 16232 */ colon }}}, /* CIENTRY "until" until 5 h 16240 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16248 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 16256 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16264 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16272 */
 	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16280 */
-	{.type IHeader, {.hdr { 4, "loop", /* CI_loop = 16296 */ colon }}}, /* CIENTRY "loop" loop 4 ; ( 0 here1 -- ) h 16304 */
+	{.type IHeader, {.hdr { 5, "while", /* CI_while = 16296 */ colon }}}, /* CIENTRY "while" while 5 h 16304 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16312 */
-	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop		; ( 0 here1 -- 0 here1 (loop) )"},		/* dd M_doloop		; ( 0 here1 -- 0 here1 (loop) ) 16320 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma		; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 )"},		/* dd C_comma		; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 ) 16328 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma		; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 )"},		/* dd C_comma		; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 ) 16336 */
-	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 16344 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 16352 */
-	{.type FromH0, {.p L234}, .src = "dd L234"},		/* dd L234 16360 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16368 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16376 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16384 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16392 */
-	{.type IHeader, {.hdr { 5, "+loop", /* CI_ploop = 16408 */ colon }}}, /* CIENTRY "+loop" ploop 5 h 16416 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16424 */
-	{.type FromH0, {.p M_doploop}, .src = "dd M_doploop"},		/* dd M_doploop 16432 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16440 */
-	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16448 */
-	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 16456 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 16464 */
-	{.type FromH0, {.p L236}, .src = "dd L236"},		/* dd L236 16472 */
-	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16480 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16488 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16496 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16504 */
-	{.type Header, {.hdr { 3, "w/o", /* C_wo = 16520 */ colon }}}, /* CENTRY "w/o" wo 3 h 16528 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16536 */
-	{.type Absolute, {.p 1}},		/* dd 1 16544 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16552 */
-	{.type Absolute, {.p 512}},		/* dd 512 16560 */
-	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 16568 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 16320 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16328 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16336 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16344 */
+	{.type Absolute, {.p 0}},		/* dd 0 16352 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16360 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16368 */
+	{.type IHeader, {.hdr { 6, "repeat", /* CI_repeat = 16384 */ colon }}}, /* CIENTRY "repeat" repeat 6 h 16392 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16400 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 16408 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16416 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16424 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16432 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16440 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16448 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16456 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16464 */
+	{.type IHeader, {.hdr { 2, "do", /* CI_do = 16480 */ colon }}}, /* CIENTRY "do" do 2 h 16488 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16496 */
+	{.type FromH0, {.p M_doinit}, .src = "dd M_doinit		; compile this into the definition. Puts limit and index on the run stack at run time"},		/* dd M_doinit		; compile this into the definition. Puts limit and index on the run stack at run time 16504 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma		; puts (do) into the dictionary"},		/* dd C_comma		; puts (do) into the dictionary 16512 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16520 */
+	{.type Absolute, {.p 0}},		/* dd 0			; ( -- 0 ) 16528 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here		; ( 0 -- 0 here1 )"},		/* dd C_here		; ( 0 -- 0 here1 ) 16536 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16544 */
+	{.type IHeader, {.hdr { 4, "loop", /* CI_loop = 16560 */ colon }}}, /* CIENTRY "loop" loop 4 ; ( 0 here1 -- ) h 16568 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16576 */
-	{.type Absolute, {.p 64}},		/* dd 64 16584 */
-	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 16592 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16600 */
-	{.type Header, {.hdr { 3, "r/o", /* C_ro = 16616 */ colon }}}, /* CENTRY "r/o" ro 3 h 16624 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16632 */
-	{.type Absolute, {.p 0}},		/* dd 0 16640 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16648 */
-	{.type Header, {.hdr { 3, "r/w", /* C_rw = 16664 */ colon }}}, /* CENTRY "r/w" rw 3 h 16672 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16680 */
-	{.type Absolute, {.p 2}},		/* dd 2 16688 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16696 */
-	{.type Header, {.hdr { 9, "open-file", /* C_open_file = 16720 */ colon }}}, /* CENTRY "open-file" open_file 9 ; ( a n mode -- fd ioresult ) h 16728 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n mode -- a n ) (R -- mode)"},		/* dd M_rpush	; ( a n mode -- a n ) (R -- mode) 16736 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( a n -- a n padaddr)"},		/* dd C_pad	; ( a n -- a n padaddr) 16744 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16752 */
-	{.type Absolute, {.p 1024}},		/* dd 1024		; ( a n padaddr --  a n padaddr 1024 ) 16760 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( a n padaddr+1024 --  a n padaddr+1024 )"},		/* dd M_plus	; ( a n padaddr+1024 --  a n padaddr+1024 ) 16768 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a n padaddr+1024 --  a padaddr+1024 n )"},		/* dd M_xswap	; ( a n padaddr+1024 --  a padaddr+1024 n ) 16776 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a padaddr+1024 n --  a padaddr+1024 n n )"},		/* dd M_dup	; ( a padaddr+1024 n --  a padaddr+1024 n n ) 16784 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a padaddr+1024 n n --  a padaddr+1024 n ) (R mode -- mode n )"},		/* dd M_rpush	; ( a padaddr+1024 n n --  a padaddr+1024 n ) (R mode -- mode n ) 16792 */
-	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; moves the filename from a to paddaddr+1024"},		/* dd M_cmove	; moves the filename from a to paddaddr+1024 16800 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16808 */
-	{.type Absolute, {.p 0}},		/* dd 0		; ( -- 0 ) 16816 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( 0 -- 0 n ) (R mode n -- mode)"},		/* dd M_rpop	; ( 0 -- 0 n ) (R mode n -- mode) 16824 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( 0 n -- 0 n padaddr)"},		/* dd C_pad	; ( 0 n -- 0 n padaddr) 16832 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 n padaddr -- 0 padaddr+n )"},		/* dd M_plus	; ( 0 n padaddr -- 0 padaddr+n ) 16840 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16848 */
-	{.type Absolute, {.p 1024}},		/* dd 1024		; ( 0 padaddr+n --  0 padaddr+n 1024 ) 16856 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 padaddr+n 1024 --  0 padaddr+n+1024 )"},		/* dd M_plus	; ( 0 padaddr+n 1024 --  0 padaddr+n+1024 ) 16864 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; ( 0 padaddr+n 1024 --   ) makes the filename to a null terminated string"},		/* dd M_cstore	; ( 0 padaddr+n 1024 --   ) makes the filename to a null terminated string 16872 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 16880 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16888 */
-	{.type Absolute, {.p 1024}},		/* dd 1024		; ( -- padaddr 1024 ) 16896 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( padaddr 1024 -- padaddr+1024 )"},		/* dd M_plus	; ( padaddr 1024 -- padaddr+1024 ) 16904 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- )"},		/* dd M_rpop	; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- ) 16912 */
-	{.type FromH0, {.p M_sysopen}, .src = "dd M_sysopen"},		/* dd M_sysopen 16920 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 16928 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16936 */
-	{.type Absolute, {.p -1}},		/* dd -1 16944 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 16952 */
+	{.type FromH0, {.p M_doloop}, .src = "dd M_doloop		; ( 0 here1 -- 0 here1 (loop) )"},		/* dd M_doloop		; ( 0 here1 -- 0 here1 (loop) ) 16584 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma		; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 )"},		/* dd C_comma		; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 ) 16592 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma		; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 )"},		/* dd C_comma		; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 ) 16600 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 16608 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 16616 */
+	{.type FromH0, {.p L234}, .src = "dd L234"},		/* dd L234 16624 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16632 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16640 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16648 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16656 */
+	{.type IHeader, {.hdr { 5, "+loop", /* CI_ploop = 16672 */ colon }}}, /* CIENTRY "+loop" ploop 5 h 16680 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16688 */
+	{.type FromH0, {.p M_doploop}, .src = "dd M_doploop"},		/* dd M_doploop 16696 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16704 */
+	{.type FromH0, {.p C_comma}, .src = "dd C_comma"},		/* dd C_comma 16712 */
+	{.type FromH0, {.p C_qdup}, .src = "dd C_qdup"},		/* dd C_qdup 16720 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 16728 */
+	{.type FromH0, {.p L236}, .src = "dd L236"},		/* dd L236 16736 */
+	{.type FromH0, {.p C_here}, .src = "dd C_here"},		/* dd C_here 16744 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap"},		/* dd M_xswap 16752 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 16760 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16768 */
+	{.type Header, {.hdr { 3, "w/o", /* C_wo = 16784 */ colon }}}, /* CENTRY "w/o" wo 3 h 16792 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16800 */
+	{.type Absolute, {.p 1}},		/* dd 1 16808 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16816 */
+	{.type Absolute, {.p 512}},		/* dd 512 16824 */
+	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 16832 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16840 */
+	{.type Absolute, {.p 64}},		/* dd 64 16848 */
+	{.type FromH0, {.p M_binor}, .src = "dd M_binor"},		/* dd M_binor 16856 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16864 */
+	{.type Header, {.hdr { 3, "r/o", /* C_ro = 16880 */ colon }}}, /* CENTRY "r/o" ro 3 h 16888 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16896 */
+	{.type Absolute, {.p 0}},		/* dd 0 16904 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16912 */
+	{.type Header, {.hdr { 3, "r/w", /* C_rw = 16928 */ colon }}}, /* CENTRY "r/w" rw 3 h 16936 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 16944 */
+	{.type Absolute, {.p 2}},		/* dd 2 16952 */
 	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 16960 */
-	{.type Header, {.hdr { 10, "close-file", /* C_close_file = 16984 */ colon }}}, /* CENTRY "close-file" close_file 10 ; ( fd -- ioresult ) h 16992 */
-	{.type FromH0, {.p M_sysclose}, .src = "dd M_sysclose"},		/* dd M_sysclose 17000 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 17008 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17016 */
-	{.type Header, {.hdr { 9, "read-file", /* C_read_file = 17040 */ colon }}}, /* CENTRY "read-file" read_file 9 ; ( a n fd -- n2 ioresult ) h 17048 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( n fd a )"},		/* dd C_rot	; ( n fd a ) 17056 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( fd a n )"},		/* dd C_rot	; ( fd a n ) 17064 */
-	{.type FromH0, {.p M_sysread}, .src = "dd M_sysread"},		/* dd M_sysread 17072 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 17080 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17088 */
-	{.type Absolute, {.p -1}},		/* dd -1 17096 */
-	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 17104 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17112 */
-	{.type Header, {.hdr { 10, "write-file", /* C_write_file = 17136 */ colon }}}, /* CENTRY "write-file" write_file 10 ; ( a n fd -- ioresult ) h 17144 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( n fd a )"},		/* dd C_rot	; ( n fd a ) 17152 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( fd a n )"},		/* dd C_rot	; ( fd a n ) 17160 */
-	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"},		/* dd M_syswrite 17168 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17176 */
-	{.type Absolute, {.p -1}},		/* dd -1 17184 */
-	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 17192 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17200 */
-	{.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 17224 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 ; ( type n fd -- ioresult ) h 17232 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap		; ( type fd n )"},		/* dd M_xswap		; ( type fd n ) 17240 */
-	{.type FromH0, {.p C_rot}, .src = "dd C_rot		; ( fd n type )"},		/* dd C_rot		; ( fd n type ) 17248 */
-	{.type FromH0, {.p M_sysseek}, .src = "dd M_sysseek"},		/* dd M_sysseek 17256 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17264 */
-	{.type Absolute, {.p -1}},		/* dd -1 17272 */
-	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 17280 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17288 */
-	{.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 17304 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 17312 */
-	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 17320 */
-	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 17328 */
-	{.type FromH0, {.p L246}, .src = "dd L246"},		/* dd L246 17336 */
-	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 17344 */
+	{.type Header, {.hdr { 9, "open-file", /* C_open_file = 16984 */ colon }}}, /* CENTRY "open-file" open_file 9 ; ( a n mode -- fd ioresult ) h 16992 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n mode -- a n ) (R -- mode)"},		/* dd M_rpush	; ( a n mode -- a n ) (R -- mode) 17000 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( a n -- a n padaddr)"},		/* dd C_pad	; ( a n -- a n padaddr) 17008 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17016 */
+	{.type Absolute, {.p 1024}},		/* dd 1024		; ( a n padaddr --  a n padaddr 1024 ) 17024 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( a n padaddr+1024 --  a n padaddr+1024 )"},		/* dd M_plus	; ( a n padaddr+1024 --  a n padaddr+1024 ) 17032 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a n padaddr+1024 --  a padaddr+1024 n )"},		/* dd M_xswap	; ( a n padaddr+1024 --  a padaddr+1024 n ) 17040 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a padaddr+1024 n --  a padaddr+1024 n n )"},		/* dd M_dup	; ( a padaddr+1024 n --  a padaddr+1024 n n ) 17048 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a padaddr+1024 n n --  a padaddr+1024 n ) (R mode -- mode n )"},		/* dd M_rpush	; ( a padaddr+1024 n n --  a padaddr+1024 n ) (R mode -- mode n ) 17056 */
+	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; moves the filename from a to paddaddr+1024"},		/* dd M_cmove	; moves the filename from a to paddaddr+1024 17064 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17072 */
+	{.type Absolute, {.p 0}},		/* dd 0		; ( -- 0 ) 17080 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( 0 -- 0 n ) (R mode n -- mode)"},		/* dd M_rpop	; ( 0 -- 0 n ) (R mode n -- mode) 17088 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( 0 n -- 0 n padaddr)"},		/* dd C_pad	; ( 0 n -- 0 n padaddr) 17096 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 n padaddr -- 0 padaddr+n )"},		/* dd M_plus	; ( 0 n padaddr -- 0 padaddr+n ) 17104 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17112 */
+	{.type Absolute, {.p 1024}},		/* dd 1024		; ( 0 padaddr+n --  0 padaddr+n 1024 ) 17120 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 padaddr+n 1024 --  0 padaddr+n+1024 )"},		/* dd M_plus	; ( 0 padaddr+n 1024 --  0 padaddr+n+1024 ) 17128 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; ( 0 padaddr+n 1024 --   ) makes the filename to a null terminated string"},		/* dd M_cstore	; ( 0 padaddr+n 1024 --   ) makes the filename to a null terminated string 17136 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 17144 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17152 */
+	{.type Absolute, {.p 1024}},		/* dd 1024		; ( -- padaddr 1024 ) 17160 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( padaddr 1024 -- padaddr+1024 )"},		/* dd M_plus	; ( padaddr 1024 -- padaddr+1024 ) 17168 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- )"},		/* dd M_rpop	; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- ) 17176 */
+	{.type FromH0, {.p M_sysopen}, .src = "dd M_sysopen"},		/* dd M_sysopen 17184 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 17192 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17200 */
+	{.type Absolute, {.p -1}},		/* dd -1 17208 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 17216 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17224 */
+	{.type Header, {.hdr { 10, "close-file", /* C_close_file = 17248 */ colon }}}, /* CENTRY "close-file" close_file 10 ; ( fd -- ioresult ) h 17256 */
+	{.type FromH0, {.p M_sysclose}, .src = "dd M_sysclose"},		/* dd M_sysclose 17264 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 17272 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17280 */
+	{.type Header, {.hdr { 9, "read-file", /* C_read_file = 17304 */ colon }}}, /* CENTRY "read-file" read_file 9 ; ( a n fd -- n2 ioresult ) h 17312 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( n fd a )"},		/* dd C_rot	; ( n fd a ) 17320 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( fd a n )"},		/* dd C_rot	; ( fd a n ) 17328 */
+	{.type FromH0, {.p M_sysread}, .src = "dd M_sysread"},		/* dd M_sysread 17336 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 17344 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17352 */
-	{.type FromH0, {.p L247}, .src = "dd L247"},		/* dd L247 17360 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17368 */
-	{.type Absolute, {.p 9}},		/* dd 9 17376 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 17384 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 17392 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 17400 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17408 */
-	{.type Header, {.hdr { 11, "create-file", /* C_create_file = 17432 */ colon }}}, /* CENTRY "create-file" create_file 11 ; ( a n mode perm -- fd ioresult ) not part of the original ff. could move this to a forth file. h 17440 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n mode ) (R perm)"},		/* dd M_rpush	; ( a n mode ) (R perm) 17448 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n ) (R perm mode)"},		/* dd M_rpush	; ( a n ) (R perm mode) 17456 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( a n padaddr)"},		/* dd C_pad	; ( a n padaddr) 17464 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17472 */
-	{.type Absolute, {.p 1024}},		/* dd 1024		; ( a n padaddr 1024 ) 17480 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( a n padaddr+1024 )"},		/* dd M_plus	; ( a n padaddr+1024 ) 17488 */
-	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a padaddr+1024 n )"},		/* dd M_xswap	; ( a padaddr+1024 n ) 17496 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a padaddr+1024 n n )"},		/* dd M_dup	; ( a padaddr+1024 n n ) 17504 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a padaddr+1024 n ) (R perm mode n )"},		/* dd M_rpush	; ( a padaddr+1024 n ) (R perm mode n ) 17512 */
-	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; moves the filename from a to paddaddr+1024"},		/* dd M_cmove	; moves the filename from a to paddaddr+1024 17520 */
+	{.type Absolute, {.p -1}},		/* dd -1 17360 */
+	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 17368 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17376 */
+	{.type Header, {.hdr { 10, "write-file", /* C_write_file = 17400 */ colon }}}, /* CENTRY "write-file" write_file 10 ; ( a n fd -- ioresult ) h 17408 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( n fd a )"},		/* dd C_rot	; ( n fd a ) 17416 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot	; ( fd a n )"},		/* dd C_rot	; ( fd a n ) 17424 */
+	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"},		/* dd M_syswrite 17432 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17440 */
+	{.type Absolute, {.p -1}},		/* dd -1 17448 */
+	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 17456 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17464 */
+	{.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 17488 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 ; ( type n fd -- ioresult ) h 17496 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap		; ( type fd n )"},		/* dd M_xswap		; ( type fd n ) 17504 */
+	{.type FromH0, {.p C_rot}, .src = "dd C_rot		; ( fd n type )"},		/* dd C_rot		; ( fd n type ) 17512 */
+	{.type FromH0, {.p M_sysseek}, .src = "dd M_sysseek"},		/* dd M_sysseek 17520 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17528 */
-	{.type Absolute, {.p 0}},		/* dd 0		; ( 0 ) 17536 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( 0 n ) (R perm mode)"},		/* dd M_rpop	; ( 0 n ) (R perm mode) 17544 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( 0 n padaddr)"},		/* dd C_pad	; ( 0 n padaddr) 17552 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 padaddr+n )"},		/* dd M_plus	; ( 0 padaddr+n ) 17560 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17568 */
-	{.type Absolute, {.p 1024}},		/* dd 1024		; ( 0 padaddr+n 1024 ) 17576 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 padaddr+n+1024 )"},		/* dd M_plus	; ( 0 padaddr+n+1024 ) 17584 */
-	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; ( ) makes the filename to a null terminated string"},		/* dd M_cstore	; ( ) makes the filename to a null terminated string 17592 */
-	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 17600 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17608 */
-	{.type Absolute, {.p 1024}},		/* dd 1024		; ( padaddr 1024 ) 17616 */
-	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( padaddr+1024 )"},		/* dd M_plus	; ( padaddr+1024 ) 17624 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( padaddr+1024 mode) (R perm )"},		/* dd M_rpop	; ( padaddr+1024 mode) (R perm ) 17632 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( padaddr+1024 mode perm ) (R )"},		/* dd M_rpop	; ( padaddr+1024 mode perm ) (R ) 17640 */
-	{.type FromH0, {.p M_syscreate}, .src = "dd M_syscreate"},		/* dd M_syscreate 17648 */
-	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 17656 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17664 */
-	{.type Absolute, {.p -1}},		/* dd -1 17672 */
-	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 17680 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17688 */
-	{.type Header, {.hdr { 3, "bye", /* C_bye = 17704 */ colon }}}, /* CENTRY "bye" bye 3 h 17712 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17720 */
-	{.type Absolute, {.p 0}},		/* dd 0 17728 */
-	{.type FromH0, {.p M_terminate}, .src = "dd M_terminate"},		/* dd M_terminate 17736 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17744 */
-	{.type Header, {.hdr { 7, "include", /* C_include = 17760 */ colon }}}, /* CENTRY "include" include 7 h 17768 */
-	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 17776 */
-	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 17784 */
-	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 17792 */
-	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 17800 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 17808 */
-	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 17816 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 17824 */
-	{.type FromH0, {.p C_save_input}, .src = "dd C_save_input"},		/* dd C_save_input 17832 */
-	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 17840 */
-	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 17848 */
-	{.type FromH0, {.p C_ro}, .src = "dd C_ro"},		/* dd C_ro 17856 */
-	{.type FromH0, {.p C_open_file}, .src = "dd C_open_file"},		/* dd C_open_file 17864 */
-	{.type FromH0, {.p C_qfcheck}, .src = "dd C_qfcheck"},		/* dd C_qfcheck 17872 */
-	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 17880 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 17888 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17896 */
-	{.type Header, {.hdr { 5, "crash", /* C_crash = 17912 */ colon }}}, /* CENTRY "crash" crash 5 h 17920 */
+	{.type Absolute, {.p -1}},		/* dd -1 17536 */
+	{.type FromH0, {.p C_neq}, .src = "dd C_neq"},		/* dd C_neq 17544 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17552 */
+	{.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 17568 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 17576 */
+	{.type FromH0, {.p C_0eq}, .src = "dd C_0eq"},		/* dd C_0eq 17584 */
+	{.type FromH0, {.p M_cjump}, .src = "dd M_cjump"},		/* dd M_cjump 17592 */
+	{.type FromH0, {.p L246}, .src = "dd L246"},		/* dd L246 17600 */
+	{.type FromH0, {.p C_space}, .src = "dd C_space"},		/* dd C_space 17608 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17616 */
+	{.type FromH0, {.p L247}, .src = "dd L247"},		/* dd L247 17624 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17632 */
+	{.type Absolute, {.p 9}},		/* dd 9 17640 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 17648 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 17656 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 17664 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17672 */
+	{.type Header, {.hdr { 11, "create-file", /* C_create_file = 17696 */ colon }}}, /* CENTRY "create-file" create_file 11 ; ( a n mode perm -- fd ioresult ) not part of the original ff. could move this to a forth file. h 17704 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n mode ) (R perm)"},		/* dd M_rpush	; ( a n mode ) (R perm) 17712 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a n ) (R perm mode)"},		/* dd M_rpush	; ( a n ) (R perm mode) 17720 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( a n padaddr)"},		/* dd C_pad	; ( a n padaddr) 17728 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17736 */
+	{.type Absolute, {.p 1024}},		/* dd 1024		; ( a n padaddr 1024 ) 17744 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( a n padaddr+1024 )"},		/* dd M_plus	; ( a n padaddr+1024 ) 17752 */
+	{.type FromH0, {.p M_xswap}, .src = "dd M_xswap	; ( a padaddr+1024 n )"},		/* dd M_xswap	; ( a padaddr+1024 n ) 17760 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup	; ( a padaddr+1024 n n )"},		/* dd M_dup	; ( a padaddr+1024 n n ) 17768 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush	; ( a padaddr+1024 n ) (R perm mode n )"},		/* dd M_rpush	; ( a padaddr+1024 n ) (R perm mode n ) 17776 */
+	{.type FromH0, {.p M_cmove}, .src = "dd M_cmove	; moves the filename from a to paddaddr+1024"},		/* dd M_cmove	; moves the filename from a to paddaddr+1024 17784 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17792 */
+	{.type Absolute, {.p 0}},		/* dd 0		; ( 0 ) 17800 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( 0 n ) (R perm mode)"},		/* dd M_rpop	; ( 0 n ) (R perm mode) 17808 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad	; ( 0 n padaddr)"},		/* dd C_pad	; ( 0 n padaddr) 17816 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 padaddr+n )"},		/* dd M_plus	; ( 0 padaddr+n ) 17824 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17832 */
+	{.type Absolute, {.p 1024}},		/* dd 1024		; ( 0 padaddr+n 1024 ) 17840 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( 0 padaddr+n+1024 )"},		/* dd M_plus	; ( 0 padaddr+n+1024 ) 17848 */
+	{.type FromH0, {.p M_cstore}, .src = "dd M_cstore	; ( ) makes the filename to a null terminated string"},		/* dd M_cstore	; ( ) makes the filename to a null terminated string 17856 */
+	{.type FromH0, {.p C_pad}, .src = "dd C_pad"},		/* dd C_pad 17864 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17872 */
+	{.type Absolute, {.p 1024}},		/* dd 1024		; ( padaddr 1024 ) 17880 */
+	{.type FromH0, {.p M_plus}, .src = "dd M_plus	; ( padaddr+1024 )"},		/* dd M_plus	; ( padaddr+1024 ) 17888 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( padaddr+1024 mode) (R perm )"},		/* dd M_rpop	; ( padaddr+1024 mode) (R perm ) 17896 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop	; ( padaddr+1024 mode perm ) (R )"},		/* dd M_rpop	; ( padaddr+1024 mode perm ) (R ) 17904 */
+	{.type FromH0, {.p M_syscreate}, .src = "dd M_syscreate"},		/* dd M_syscreate 17912 */
+	{.type FromH0, {.p M_dup}, .src = "dd M_dup"},		/* dd M_dup 17920 */
 	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17928 */
-	{.type FromH0, {.p L251}, .src = "dd L251"},		/* dd L251 17936 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17944 */
-	{.type Absolute, {.p 30}},		/* dd 30 17952 */
-	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 17960 */
-	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 17968 */
-	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 17976 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17984 */
-	{.type Header, {.hdr { 4, "quit", /* C_quit = 18000 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 18008 */
-	{.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"},		/* dd M_reset ; initialize return stack 18016 */
-	{.type FromH0, {.p M_clear}, .src = "dd M_clear	; SP = sstack_end initialize data stack"},		/* dd M_clear	; SP = sstack_end initialize data stack 18024 */
-	{.type FromH0, {.p C_query}, .src = "dd C_query"},		/* dd C_query 18032 */
-/* ; dd MV_toLimit	; show the line read, for debugging *//* ; dd M_fetch *//* ; dd M_Tib *//* ; dd MC_STDOUT *//* ; dd M_fswrite *//* ; dd M_drop		; drop the return value of write *//* ; dd C_cr *//* ; dd C_space */	{.type FromH0, {.p C_interpret}, .src = "dd C_interpret"},		/* dd C_interpret 18040 */
-	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 18048 */
-	{.type FromH0, {.p L253}, .src = "dd L253"},		/* dd L253 18056 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; why is this needed?"},		/* dd M_exitcolon	; why is this needed? 18064 */
-	{.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 18080 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 18088 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State	; ( mv_State -- )"},		/* dd MV_State	; ( mv_State -- ) 18096 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off	; off sets variable state = 0"},		/* dd C_off	; off sets variable state = 0 18104 */
-	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top of stack"},		/* dd M_Tib	; constant puts address of tibuffer on the top of stack 18112 */
-	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf	; variable sourcebuf"},		/* dd MV_Sourcebuf	; variable sourcebuf 18120 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable sourcebuf = address of tibuffer"},		/* dd M_store	; variable sourcebuf = address of tibuffer 18128 */
-	{.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk	; variable blk"},		/* dd MV_Blk	; variable blk 18136 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off	; off variable blk = 0"},		/* dd C_off	; off variable blk = 0 18144 */
-	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 18152 */
-	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 18160 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18168 */
-	{.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"},		/* dd MC_STDOUT 18176 */
-	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 18184 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18192 */
-	{.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"},		/* dd MC_STDERR 18200 */
-	{.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"},		/* dd MV_Errfd 18208 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18216 */
-	{.type FromH0, {.p C_quit}, .src = "dd C_quit	; quit resets stacks and is the interpreter loop"},		/* dd C_quit	; quit resets stacks and is the interpreter loop 18224 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; why is this needed? quit does not return unless it breaks"},		/* dd M_exitcolon	; why is this needed? quit does not return unless it breaks 18232 */
-	{.type Header, {.hdr { 7, "oldboot", /* C_oldboot = 18248 */ 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 18256 */
-	{.type FromH0, {.p M_reset}, .src = "dd M_reset"},		/* dd M_reset 18264 */
-	{.type FromH0, {.p M_clear}, .src = "dd M_clear	; SP = sstack_end"},		/* dd M_clear	; SP = sstack_end 18272 */
-	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr	; (D -- FFEND)"},		/* dd M_stackptr	; (D -- FFEND) 18280 */
-	{.type FromH0, {.p M_S0}, .src = "dd M_S0"},		/* dd M_S0 18288 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; s0 = FFEND"},		/* dd M_store	; s0 = FFEND 18296 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp	; heaptop = heapend"},		/* dd M_Dp	; heaptop = heapend 18304 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( heapend -- )"},		/* dd M_fetch	; ( heapend -- ) 18312 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18320 */
-	{.type Absolute, {.p 1}},		/* dd 1		; ( heapend 1 -- ) 18328 */
-	{.type FromH0, {.p C_cells}, .src = "dd C_cells	; cells ( heapend 8 -- )"},		/* dd C_cells	; cells ( heapend 8 -- ) 18336 */
-	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( heapend-8 -- )"},		/* dd M_minus	; ( heapend-8 -- ) 18344 */
-	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( contents_from_heapend-8 -- )"},		/* dd M_fetch	; ( contents_from_heapend-8 -- ) 18352 */
-	{.type FromH0, {.p M_Args}, .src = "dd M_Args	; variable args"},		/* dd M_Args	; variable args 18360 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; args = contents_from_heapend-8"},		/* dd M_store	; args = contents_from_heapend-8 18368 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18376 */
-	{.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"},		/* dd C_parenabort ; ( (abort) -- ) 18384 */
-	{.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec	; variable abortvec"},		/* dd MV_Abortvec	; variable abortvec 18392 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable abortvec = (abort) code address"},		/* dd M_store	; variable abortvec = (abort) code address 18400 */
-	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb	; constant puts address of wordbuffer on the top of stack"},		/* dd M_Wordb	; constant puts address of wordbuffer on the top of stack 18408 */
-	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf	; variable wordbuf"},		/* dd MV_Wordbuf	; variable wordbuf 18416 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable wordbuf = address of wordbuffer"},		/* dd M_store	; variable wordbuf = address of wordbuffer 18424 */
-	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top of stack"},		/* dd M_Tib	; constant puts address of tibuffer on the top of stack 18432 */
-	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf	; variable sourcebuf"},		/* dd MV_Sourcebuf	; variable sourcebuf 18440 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable sourcebuf = address of tibuffer"},		/* dd M_store	; variable sourcebuf = address of tibuffer 18448 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18456 */
-	{.type Absolute, {.p 0}},		/* dd 0 18464 */
-	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 18472 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; stdin = 0"},		/* dd M_store	; stdin = 0 18480 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18488 */
-	{.type Absolute, {.p 1}},		/* dd 1 18496 */
-	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 18504 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; stdout = 1"},		/* dd M_store	; stdout = 1 18512 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 18520 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off	; off stores 0 at state"},		/* dd C_off	; off stores 0 at state 18528 */
-	{.type FromH0, {.p C_decimal}, .src = "dd C_decimal	; decimal setting base = 0"},		/* dd C_decimal	; decimal setting base = 0 18536 */
-	{.type FromH0, {.p C_quit}, .src = "dd C_quit	; quit"},		/* dd C_quit	; quit 18544 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 18552 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal	; test code"},		/* dd M_literal	; test code 18560 */
-	{.type Absolute, {.p 66}},		/* dd 66 18568 */
-	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"},		/* dd M_Wordb 18576 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18584 */
-	{.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"},		/* dd MC_STDOUT 18592 */
-	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"},		/* dd M_Wordb 18600 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18608 */
-	{.type Absolute, {.p 1}},		/* dd 1 18616 */
-	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"},		/* dd M_syswrite 18624 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 18632 */
-	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 18640 */
-	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"},		/* dd M_Wordb 18648 */
-	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18656 */
-	{.type Absolute, {.p 1}},		/* dd 1 18664 */
-	{.type FromH0, {.p M_sysread}, .src = "dd M_sysread"},		/* dd M_sysread 18672 */
-	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of read"},		/* dd M_drop		; drop the return value of read 18680 */
-	{.type Header, {.hdr { 4, "boot", /* C_boot = 18696 */ colon }}}, /* CENTRY "boot" boot 4 h 18704 */
-	{.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"},		/* dd M_reset ; initialize return stack 18712 */
-	{.type FromH0, {.p M_clear}, .src = "dd M_clear	; SP = sstack_end initialize data stack"},		/* dd M_clear	; SP = sstack_end initialize data stack 18720 */
-/* 			; s0 puts FFEND on the stack *//* 			; no args */	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18728 */
-	{.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"},		/* dd C_parenabort ; ( (abort) -- ) 18736 */
-	{.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec	; variable that puts (abort) code address on the stack"},		/* dd MV_Abortvec	; variable that puts (abort) code address on the stack 18744 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable abortvec = (abort) code address"},		/* dd M_store	; variable abortvec = (abort) code address 18752 */
-	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb	; variable puts address of wordbuffer on the top of stack"},		/* dd M_Wordb	; variable puts address of wordbuffer on the top of stack 18760 */
-	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf ; variable wordbuf"},		/* dd MV_Wordbuf ; variable wordbuf 18768 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable wordbuf = address of wordbuffer"},		/* dd M_store	; variable wordbuf = address of wordbuffer 18776 */
-	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top of stack"},		/* dd M_Tib	; constant puts address of tibuffer on the top of stack 18784 */
-	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf	; variable sourcebuf"},		/* dd MV_Sourcebuf	; variable sourcebuf 18792 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable sourcebuf = address of tibuffer"},		/* dd M_store	; variable sourcebuf = address of tibuffer 18800 */
-	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 18808 */
-	{.type FromH0, {.p MV_H0}, .src = "dd MV_H0	; H0 = here at startup"},		/* dd MV_H0	; H0 = here at startup 18816 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18824 */
-	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 18832 */
-	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 18840 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store	; stdin = 0"},		/* dd M_store	; stdin = 0 18848 */
+	{.type Absolute, {.p -1}},		/* dd -1 17936 */
+	{.type FromH0, {.p M_greater}, .src = "dd M_greater"},		/* dd M_greater 17944 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 17952 */
+	{.type Header, {.hdr { 3, "bye", /* C_bye = 17968 */ colon }}}, /* CENTRY "bye" bye 3 h 17976 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 17984 */
+	{.type Absolute, {.p 0}},		/* dd 0 17992 */
+	{.type FromH0, {.p M_terminate}, .src = "dd M_terminate"},		/* dd M_terminate 18000 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 18008 */
+	{.type Header, {.hdr { 7, "include", /* C_include = 18024 */ colon }}}, /* CENTRY "include" include 7 h 18032 */
+	{.type FromH0, {.p C_bl}, .src = "dd C_bl"},		/* dd C_bl 18040 */
+	{.type FromH0, {.p C_word}, .src = "dd C_word"},		/* dd C_word 18048 */
+	{.type FromH0, {.p M_rpush}, .src = "dd M_rpush"},		/* dd M_rpush 18056 */
+	{.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"},		/* dd MV_toLimit 18064 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch"},		/* dd M_fetch 18072 */
+	{.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"},		/* dd MV_toIn 18080 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18088 */
+	{.type FromH0, {.p C_save_input}, .src = "dd C_save_input"},		/* dd C_save_input 18096 */
+	{.type FromH0, {.p M_rpop}, .src = "dd M_rpop"},		/* dd M_rpop 18104 */
+	{.type FromH0, {.p C_count}, .src = "dd C_count"},		/* dd C_count 18112 */
+	{.type FromH0, {.p C_ro}, .src = "dd C_ro"},		/* dd C_ro 18120 */
+	{.type FromH0, {.p C_open_file}, .src = "dd C_open_file"},		/* dd C_open_file 18128 */
+	{.type FromH0, {.p C_qfcheck}, .src = "dd C_qfcheck"},		/* dd C_qfcheck 18136 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 18144 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18152 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 18160 */
+	{.type Header, {.hdr { 5, "crash", /* C_crash = 18176 */ colon }}}, /* CENTRY "crash" crash 5 h 18184 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18192 */
+	{.type FromH0, {.p L251}, .src = "dd L251"},		/* dd L251 18200 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18208 */
+	{.type Absolute, {.p 30}},		/* dd 30 18216 */
+	{.type FromH0, {.p C_type}, .src = "dd C_type"},		/* dd C_type 18224 */
+	{.type FromH0, {.p C_cr}, .src = "dd C_cr"},		/* dd C_cr 18232 */
+	{.type FromH0, {.p C_abort}, .src = "dd C_abort"},		/* dd C_abort 18240 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 18248 */
+	{.type Header, {.hdr { 4, "quit", /* C_quit = 18264 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 18272 */
+	{.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"},		/* dd M_reset ; initialize return stack 18280 */
+	{.type FromH0, {.p M_clear}, .src = "dd M_clear	; SP = sstack_end initialize data stack"},		/* dd M_clear	; SP = sstack_end initialize data stack 18288 */
+	{.type FromH0, {.p C_query}, .src = "dd C_query"},		/* dd C_query 18296 */
+/* ; dd MV_toLimit	; show the line read, for debugging *//* ; dd M_fetch *//* ; dd M_Tib *//* ; dd MC_STDOUT *//* ; dd M_fswrite *//* ; dd M_drop		; drop the return value of write *//* ; dd C_cr *//* ; dd C_space */	{.type FromH0, {.p C_interpret}, .src = "dd C_interpret"},		/* dd C_interpret 18304 */
+	{.type FromH0, {.p M_jump}, .src = "dd M_jump"},		/* dd M_jump 18312 */
+	{.type FromH0, {.p L253}, .src = "dd L253"},		/* dd L253 18320 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; why is this needed?"},		/* dd M_exitcolon	; why is this needed? 18328 */
+	{.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 18344 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 18352 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State	; ( mv_State -- )"},		/* dd MV_State	; ( mv_State -- ) 18360 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off	; off sets variable state = 0"},		/* dd C_off	; off sets variable state = 0 18368 */
+	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top of stack"},		/* dd M_Tib	; constant puts address of tibuffer on the top of stack 18376 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf	; variable sourcebuf"},		/* dd MV_Sourcebuf	; variable sourcebuf 18384 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable sourcebuf = address of tibuffer"},		/* dd M_store	; variable sourcebuf = address of tibuffer 18392 */
+	{.type FromH0, {.p MV_Acceptvec}, .src = "dd MV_Acceptvec"},		/* dd MV_Acceptvec 18400 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off	; variable Acceptvec = 0"},		/* dd C_off	; variable Acceptvec = 0 18408 */
+	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 18416 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 18424 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18432 */
+	{.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"},		/* dd MC_STDOUT 18440 */
+	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 18448 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18456 */
+	{.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"},		/* dd MC_STDERR 18464 */
+	{.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"},		/* dd MV_Errfd 18472 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18480 */
+	{.type FromH0, {.p C_quit}, .src = "dd C_quit	; quit resets stacks and is the interpreter loop"},		/* dd C_quit	; quit resets stacks and is the interpreter loop 18488 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon	; why is this needed? quit does not return unless it breaks"},		/* dd M_exitcolon	; why is this needed? quit does not return unless it breaks 18496 */
+	{.type Header, {.hdr { 7, "oldboot", /* C_oldboot = 18512 */ 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 18520 */
+	{.type FromH0, {.p M_reset}, .src = "dd M_reset"},		/* dd M_reset 18528 */
+	{.type FromH0, {.p M_clear}, .src = "dd M_clear	; SP = sstack_end"},		/* dd M_clear	; SP = sstack_end 18536 */
+	{.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr	; (D -- FFEND)"},		/* dd M_stackptr	; (D -- FFEND) 18544 */
+	{.type FromH0, {.p M_S0}, .src = "dd M_S0"},		/* dd M_S0 18552 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; s0 = FFEND"},		/* dd M_store	; s0 = FFEND 18560 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp	; heaptop = heapend"},		/* dd M_Dp	; heaptop = heapend 18568 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( heapend -- )"},		/* dd M_fetch	; ( heapend -- ) 18576 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18584 */
+	{.type Absolute, {.p 1}},		/* dd 1		; ( heapend 1 -- ) 18592 */
+	{.type FromH0, {.p C_cells}, .src = "dd C_cells	; cells ( heapend 8 -- )"},		/* dd C_cells	; cells ( heapend 8 -- ) 18600 */
+	{.type FromH0, {.p M_minus}, .src = "dd M_minus	; ( heapend-8 -- )"},		/* dd M_minus	; ( heapend-8 -- ) 18608 */
+	{.type FromH0, {.p M_fetch}, .src = "dd M_fetch	; ( contents_from_heapend-8 -- )"},		/* dd M_fetch	; ( contents_from_heapend-8 -- ) 18616 */
+	{.type FromH0, {.p M_Args}, .src = "dd M_Args	; variable args"},		/* dd M_Args	; variable args 18624 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; args = contents_from_heapend-8"},		/* dd M_store	; args = contents_from_heapend-8 18632 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18640 */
+	{.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"},		/* dd C_parenabort ; ( (abort) -- ) 18648 */
+	{.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec	; variable abortvec"},		/* dd MV_Abortvec	; variable abortvec 18656 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable abortvec = (abort) code address"},		/* dd M_store	; variable abortvec = (abort) code address 18664 */
+	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb	; constant puts address of wordbuffer on the top of stack"},		/* dd M_Wordb	; constant puts address of wordbuffer on the top of stack 18672 */
+	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf	; variable wordbuf"},		/* dd MV_Wordbuf	; variable wordbuf 18680 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable wordbuf = address of wordbuffer"},		/* dd M_store	; variable wordbuf = address of wordbuffer 18688 */
+	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top of stack"},		/* dd M_Tib	; constant puts address of tibuffer on the top of stack 18696 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf	; variable sourcebuf"},		/* dd MV_Sourcebuf	; variable sourcebuf 18704 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable sourcebuf = address of tibuffer"},		/* dd M_store	; variable sourcebuf = address of tibuffer 18712 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18720 */
+	{.type Absolute, {.p 0}},		/* dd 0 18728 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 18736 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; stdin = 0"},		/* dd M_store	; stdin = 0 18744 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18752 */
+	{.type Absolute, {.p 1}},		/* dd 1 18760 */
+	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 18768 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; stdout = 1"},		/* dd M_store	; stdout = 1 18776 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 18784 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off	; off stores 0 at state"},		/* dd C_off	; off stores 0 at state 18792 */
+	{.type FromH0, {.p C_decimal}, .src = "dd C_decimal	; decimal setting base = 0"},		/* dd C_decimal	; decimal setting base = 0 18800 */
+	{.type FromH0, {.p C_quit}, .src = "dd C_quit	; quit"},		/* dd C_quit	; quit 18808 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 18816 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal	; test code"},		/* dd M_literal	; test code 18824 */
+	{.type Absolute, {.p 66}},		/* dd 66 18832 */
+	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"},		/* dd M_Wordb 18840 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18848 */
 	{.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"},		/* dd MC_STDOUT 18856 */
-	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 18864 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18872 */
-	{.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"},		/* dd MC_STDERR 18880 */
-	{.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"},		/* dd MV_Errfd 18888 */
-	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 18896 */
-	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 18904 */
-	{.type FromH0, {.p C_off}, .src = "dd C_off	; off stores 0 at state"},		/* dd C_off	; off stores 0 at state 18912 */
-	{.type FromH0, {.p C_decimal}, .src = "dd C_decimal	; decimal sets base = 10"},		/* dd C_decimal	; decimal sets base = 10 18920 */
-	{.type FromH0, {.p C_quit}, .src = "dd C_quit	; quit"},		/* dd C_quit	; quit 18928 */
-	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 18936 */
-	{.type Chars, {.str "unable to restore input"}},		/* 18960 */
-	{.type Chars, {.str " Q?"}},		/* 18964 */
-	{.type Chars, {.str " stack underflow"}},		/* 18981 */
-	{.type Chars, {.str " I?"}},		/* 18985 */
-	{.type Chars, {.str " C?"}},		/* 18989 */
-	{.type Chars, {.str "I/O error"}},		/* 18999 */
-	{.type Chars, {.str "uninitialized execution vector"}},		/* 19030 */
-	{.type Chars, {.str " ok"}},		/* 19034 */
+	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"},		/* dd M_Wordb 18864 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18872 */
+	{.type Absolute, {.p 1}},		/* dd 1 18880 */
+	{.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"},		/* dd M_syswrite 18888 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of write"},		/* dd M_drop		; drop the return value of write 18896 */
+	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 18904 */
+	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"},		/* dd M_Wordb 18912 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18920 */
+	{.type Absolute, {.p 1}},		/* dd 1 18928 */
+	{.type FromH0, {.p M_sysread}, .src = "dd M_sysread"},		/* dd M_sysread 18936 */
+	{.type FromH0, {.p M_drop}, .src = "dd M_drop		; drop the return value of read"},		/* dd M_drop		; drop the return value of read 18944 */
+	{.type Header, {.hdr { 4, "boot", /* C_boot = 18960 */ colon }}}, /* CENTRY "boot" boot 4 h 18968 */
+/* ; good here depth = 0 */	{.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"},		/* dd M_reset ; initialize return stack 18976 */
+	{.type FromH0, {.p M_clear}, .src = "dd M_clear	; SP = sstack_end initialize data stack"},		/* dd M_clear	; SP = sstack_end initialize data stack 18984 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 18992 */
+	{.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"},		/* dd C_parenabort ; ( (abort) -- ) 19000 */
+	{.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec	; variable that puts (abort) code address on the stack"},		/* dd MV_Abortvec	; variable that puts (abort) code address on the stack 19008 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable abortvec = (abort) code address"},		/* dd M_store	; variable abortvec = (abort) code address 19016 */
+	{.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb	; variable puts address of wordbuffer on the top of stack"},		/* dd M_Wordb	; variable puts address of wordbuffer on the top of stack 19024 */
+	{.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf ; variable wordbuf"},		/* dd MV_Wordbuf ; variable wordbuf 19032 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable wordbuf = address of wordbuffer"},		/* dd M_store	; variable wordbuf = address of wordbuffer 19040 */
+	{.type FromH0, {.p M_Tib}, .src = "dd M_Tib	; constant puts address of tibuffer on the top of stack"},		/* dd M_Tib	; constant puts address of tibuffer on the top of stack 19048 */
+	{.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf	; variable sourcebuf"},		/* dd MV_Sourcebuf	; variable sourcebuf 19056 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; variable sourcebuf = address of tibuffer"},		/* dd M_store	; variable sourcebuf = address of tibuffer 19064 */
+	{.type FromH0, {.p M_literal}, .src = "dd M_literal"},		/* dd M_literal 19072 */
+	{.type FromH0, {.p C_accept_line}, .src = "dd C_accept_line"},		/* dd C_accept_line 19080 */
+	{.type FromH0, {.p MV_Acceptvec}, .src = "dd MV_Acceptvec"},		/* dd MV_Acceptvec 19088 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store 	; C_off	; Acceptvec = 0, use accept-key until changed"},		/* dd M_store 	; C_off	; Acceptvec = 0, use accept-key until changed 19096 */
+	{.type FromH0, {.p M_Dp}, .src = "dd M_Dp"},		/* dd M_Dp 19104 */
+	{.type FromH0, {.p MV_H0}, .src = "dd MV_H0	; H0 = here at startup"},		/* dd MV_H0	; H0 = here at startup 19112 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 19120 */
+	{.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"},		/* dd MC_STDIN 19128 */
+	{.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"},		/* dd MV_Infd 19136 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store	; stdin = 0"},		/* dd M_store	; stdin = 0 19144 */
+	{.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"},		/* dd MC_STDOUT 19152 */
+	{.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"},		/* dd MV_Outfd 19160 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 19168 */
+	{.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"},		/* dd MC_STDERR 19176 */
+	{.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"},		/* dd MV_Errfd 19184 */
+	{.type FromH0, {.p M_store}, .src = "dd M_store"},		/* dd M_store 19192 */
+	{.type FromH0, {.p MV_State}, .src = "dd MV_State"},		/* dd MV_State 19200 */
+	{.type FromH0, {.p C_off}, .src = "dd C_off	; off stores 0 at state"},		/* dd C_off	; off stores 0 at state 19208 */
+	{.type FromH0, {.p C_decimal}, .src = "dd C_decimal	; decimal sets base = 10"},		/* dd C_decimal	; decimal sets base = 10 19216 */
+	{.type FromH0, {.p C_quit}, .src = "dd C_quit	; quit"},		/* dd C_quit	; quit 19224 */
+	{.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"},		/* dd M_exitcolon 19232 */
+	{.type Chars, {.str "unable to restore input"}},		/* 19256 */
+	{.type Chars, {.str " Q?"}},		/* 19260 */
+	{.type Chars, {.str " stack underflow"}},		/* 19277 */
+	{.type Chars, {.str " I?"}},		/* 19281 */
+	{.type Chars, {.str " C?"}},		/* 19285 */
+	{.type Chars, {.str "I/O error"}},		/* 19295 */
+	{.type Chars, {.str "uninitialized execution vector"}},		/* 19326 */
+	{.type Chars, {.str " ok"}},		/* 19330 */
+	{.type Chars, {.str "input line is longer than 4096 bytes"}},		/* 19367 */
+	{.type Chars, {.str "read error"}},		/* 19378 */
 };
 
--- a/os/pc64/forth.s	Tue Feb  1 12:05:45 2022
+++ b/os/pc64/forth.s	Tue Feb  1 12:08:09 2022
@@ -23,7 +23,7 @@
 
  TOP: BX top of stack register
  PSP: DX parameter stack pointer, grows towards lower memory (downwards)
- RSP: R8 return stack pointer, grows towards higher memory (upwards)
+ RSP: R8 return stack pointer, grows towards lower memory (downwards)
  IP:  R9 instruction pointer
  W:   R10 work register (holds CFA)
  UM:  R11 register holding the start of this process's heap memory
@@ -88,7 +88,7 @@
 
 #define TOP BX /* top of stack register */
 #define PSP DX /* parameter stack pointer, grows towards lower memory (downwards) */
-#define RSP R8 /* return stack pointer, grows towards higher memory (upwards) */
+#define RSP R8 /* return stack pointer, grows towards lower memory (downwards) */
 #define IP  R9 /* instruction pointer */
 #define W   R10/* work register (holds CFA) */
 #define UM	R11/* start of heap memory */
--- a/os/pc64/mem.h	Tue Feb  1 12:05:45 2022
+++ b/os/pc64/mem.h	Tue Feb  1 12:08:09 2022
@@ -208,7 +208,7 @@
 
 #define USTKTOP		(up->kstack+KSTACK)
 
-/* forth locations */
+/* forth memory map */
 /*
  * 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
--- a/os/pc64/primitives-nasm.s	Tue Feb  1 12:05:45 2022
+++ b/os/pc64/primitives-nasm.s	Tue Feb  1 12:08:09 2022
@@ -65,7 +65,7 @@
 MVENTRY ">In" toIn 0 3
 MVENTRY ">Limit" toLimit 0 6
 MVENTRY "Findadr" Findadr 0 7
-MVENTRY "Blk" Blk 0 3
+MVENTRY "Acceptvec" Acceptvec 0 9
 MVENTRY "Searchlen" Searchlen 0 9
 MVENTRY "Base" Base 0 4
 MVENTRY ">Num" toNum 0 4
--- a/os/pc64/trap.c	Tue Feb  1 12:05:45 2022
+++ b/os/pc64/trap.c	Tue Feb  1 12:08:09 2022
@@ -76,9 +76,10 @@
 	 */
 	/* 9front specific trapenable(VectorDE, debugexc, 0, "debugexc"); */
 	trapenable(VectorBPT, debugbpt, 0, "debugpt");
-	trapenable(VectorPF, faultamd64, 0, "faultamd64");
+/*	trapenable(VectorPF, faultamd64, 0, "faultamd64");
 	trapenable(Vector2F, doublefault, 0, "doublefault");
 	trapenable(Vector15, unexpected, 0, "unexpected");
+*/
 }
 
 static char* excname[32] = {
@@ -122,7 +123,7 @@
 	intptr i;
 	int l=0;
 
-	print("Forth return stack h 0x%zx rsp 0x%zx RSTACK 0x%zx he 0x%zx\n",
+	print("Forth return stack h 0x%zx R8 RSP 0x%zx RSTACK 0x%zx he 0x%zx\n",
 			h, rsp, h+RSTACK, he);
 	if(he == 0 || h == 0 || rsp < h || rsp >= he || h+RSTACK < h || h+RSTACK >= he)
 		return;
@@ -143,10 +144,11 @@
 	intptr i;
 	int l=0;
 
-	print("Forth parameter stack h 0x%zx psp 0x%zx PSTACK 0x%zx he 0x%zx\n",
+	print("Forth parameter stack h 0x%zx DX PSP 0x%zx PSTACK 0x%zx he 0x%zx\n",
 			h, psp, h+PSTACK, he);
 	if(he == 0 || h == 0 || psp < h || psp >= he || h+PSTACK < h || h+PSTACK >= he)
 		return;
+	print("	depth %zd\n", (h+PSTACK - psp)/sizeof(intptr));
 	for(i = h + PSTACK-8; i >= psp; i-=8){
 		print("	0x%zx: 0x%zx", i, *(intptr*)i);
 		l++;
@@ -187,38 +189,16 @@
 
 	user = kenter(ureg);
 	vno = ureg->type;
-	if(!irqhandled(ureg, vno) && (!user || !usertrap(vno))){
-		if(!user){
-			void (*pc)(void);
-
-			extern void _rdmsrinst(void);
-			extern void _wrmsrinst(void);
-			extern void _peekinst(void);
-
-			pc = (void*)ureg->pc;
-			if(pc == _rdmsrinst || pc == _wrmsrinst){
-				if(vno == VectorGPF){
-					ureg->bp = -1;
-					ureg->pc += 2;
-					return;
-				}
-			} else if(pc == _peekinst){
-				if(vno == VectorGPF || vno == VectorPF){
-					ureg->pc += 2;
-					return;
-				}
-			}
-
-			/* early fault before trapinit() */
-			if(vno == VectorPF)
-				faultamd64(ureg, 0);
-		}
-
+	if(irqhandled(ureg, vno) == 0 /* TODO && (!user || !usertrap(vno)) */){
 		dumpregs(ureg);
-		if(!user){
+		if(up->fmem != nil){
+			dumprstack(ureg->r11, ureg->r8, ureg->r12);
+			dumppstack(ureg->r11, ureg->dx, ureg->r12);
+		}
+/*		if(user == 0){ */
 			ureg->sp = (uintptr)&ureg->sp;
 			_dumpstack(ureg);
-		}
+/*		}*/
 		if(vno < nelem(excname))
 			panic("%s", excname[vno]);
 		panic("unknown trap/intr: %d", vno);
--- a/os/port/devforth.c	Tue Feb  1 12:05:45 2022
+++ b/os/port/devforth.c	Tue Feb  1 12:08:09 2022
@@ -233,6 +233,7 @@
 	return p;
 }
 
+/* TODO simplify this: remove the absolute values? */
 void
 loadforthdictionary(u8 *fmem)
 {