shithub: 9ferno

Download patch

ref: 3e9b88e288ee88a80e4cc725bc8869726185d78e
parent: a76f57f1304d746cf4d3bbd03df4467811929b86
author: 9ferno <gophone2015@gmail.com>
date: Mon Feb 14 15:55:19 EST 2022

minor changes

--- a/os/pc64/forth.h
+++ /dev/null
@@ -1,5544 +1,0 @@
-/*
- * Forth dictionary
- */
-enum {
-	Sourceline,
-	Here,
-	There,
-	Byte,	/* obsolete, all are counted strings now */
-	Chars,
-	Absolute,
-	Absoluteptr,
-	Relative,		/* fmem+ value, for defined memory locations */
-	Relativevar,	/* fmem+FORTHVARS+ value */
-	Relativedictionary,	/* fmem+DICTIONARY+ value */
-	Dtop,
-	End
-};
-
-typedef struct Fentry Fentry;
-struct Fentry
-{
-	int what;	/* Source line or Here or There or Dtop value */
-	char desc[1024];
-	int type;	/* Byte, Chars, Absolute, Relative, End */
-	intptr here;
-	intptr there;
-	/* union { */
-		intptr p;	/* for Absolute and Relative */
-		s8 b;		/* for immediates, write the value as immediate + length */
-		char str[128];
-		void *ptr;
-	/* }; */
-};
-enum {
-	M_fetch = 16,
-	M_store = 40,
-	M_cfetch = 64,
-	M_cstore = 88,
-	M_mmap = 112,
-	M_terminate = 136,
-	M_fthdump = 160,
-	M_clear = 184,
-	M_reset = 208,
-	M_exitcolon = 232,
-	M_literal = 256,
-	M_sliteral = 280,
-	M_doinit = 304,
-	M_doloop = 328,
-	M_doploop = 352,
-	M_rfetch = 376,
-	M_rpop = 400,
-	M_rpush = 424,
-	M_i = 448,
-	M_j = 472,
-	M_plus = 496,
-	M_minus = 520,
-	M_multiply = 544,
-	M_cjump = 568,
-	M_jump = 592,
-	M_slashmod = 616,
-	M_uslashmod = 640,
-	M_binand = 664,
-	M_binor = 688,
-	M_binxor = 712,
-	M_xswap = 736,
-	M_drop = 760,
-	M_dup = 784,
-	M_over = 808,
-	M_equal = 832,
-	M_greater = 856,
-	M_less = 880,
-	M_lshift = 904,
-	M_rshift = 928,
-	M_rshifta = 952,
-	M_execute = 976,
-	M_unloop = 1000,
-	M_cmove = 1024,
-	M_cmoveb = 1048,
-	M_variable = 1072,
-	M_constant = 1096,
-	M_colon = 1120,
-	M_dodoes = 1144,
-	M_cas = 1168,
-	M_deferred = 1192,
-	M_stackptr = 1216,
-	M_sysbind = 1240,
-	M_sysclose = 1264,
-	M_syscreate = 1288,
-	M_sysmount = 1312,
-	M_sysopen = 1336,
-	M_sysread = 1360,
-	M_sysseek = 1384,
-	M_syswrite = 1408,
-	MC_STDIN = 1432,
-	MC_STDOUT = 1464,
-	MC_STDERR = 1496,
-	MC_WORDNUM = 1528,
-	MC_LINENUM = 1560,
-	MC_DOUBLEQUOTENUM = 1592,
-	MC_CLOSEPARENNUM = 1624,
-	MC_NBUFFERS = 1656,
-	MV_Dp = 1688,
-	MV_Dtop = 1720,
-	MV_Vp = 1752,
-	MV_Pid = 1784,
-	MV_Parentpid = 1816,
-	MV_S0 = 1848,
-	MV_Wordb = 1880,
-	MV_Tib = 1912,
-	MV_Argsfilename = 1944,
-	MV_Iobuf = 1976,
-	MV_Findadr = 2008,
-	MV_Searchlen = 2040,
-	MV_Base = 2072,
-	MV_toNum = 2104,
-	MV_State = 2136,
-	MV_Abortvec = 2168,
-	MV_Infd = 2200,
-	MV_Outfd = 2232,
-	MV_Errfd = 2264,
-	MV_Eof = 2296,
-	MV_Ninputs = 2328,
-	MV_H0 = 2360,
-	MV_Bufferfds = 2392,
-	MV_Bufferfilenames = 2424,
-	C_false = 2456,
-	C_true = 2504,
-	C_bl = 2552,
-	C_on = 2600,
-	C_off = 2664,
-	C_tobody = 2728,
-	C_aligned = 2784,
-	C_cells = 2864,
-	C_cells_plus = 2920,
-	C_cell_plus = 2968,
-	C_depth = 3024,
-	C_nip = 3128,
-	C_rot = 3176,
-	C_2drop = 3240,
-	C_2dup = 3288,
-	C_2nip = 3336,
-	C_2swap = 3384,
-	C_qdup = 3448,
-	L_C_qdup = 3520,
-	C_pick = 3544,
-	L_C_pick = 3648,
-	L_C_pick_1 = 3656,
-	C_tuck = 3680,
-	C_divides = 3744,
-	C_plusstore = 3792,
-	C_invert = 3872,
-	C_mod = 3928,
-	C_1plus = 3976,
-	C_1minus = 4032,
-	C_negate = 4088,
-	C_2multiplies = 4152,
-	C_2divides = 4208,
-	C_0eq = 4264,
-	C_0lt = 4320,
-	C_0gt = 4376,
-	C_neq = 4432,
-	C_0neq = 4480,
-	C_max = 4536,
-	L_C_max = 4600,
-	L_C_max_1 = 4608,
-	C_min = 4632,
-	L_C_min = 4696,
-	L_C_min_1 = 4704,
-	C_signum = 4728,
-	L_C_signum = 4808,
-	L_C_signum_2 = 4864,
-	L_C_signum_3 = 4880,
-	L_C_signum_1 = 4880,
-	C_within = 4904,
-	C_abs = 5008,
-	L_C_abs = 5056,
-	C_emit = 5080,
-	C_type = 5184,
-	C_cr = 5280,
-	C_space = 5336,
-	C_emits = 5384,
-	L_C_emits = 5392,
-	L_C_emits_1 = 5456,
-	C_spaces = 5488,
-	C_count = 5544,
-	C_compare = 5688,
-	L_C_compare = 5760,
-	L_C_compare_1 = 5896,
-	C_erase = 5976,
-	L_C_erase = 6008,
-	C_fill = 6096,
-	L_C_fill = 6136,
-	C_blank = 6224,
-	C_search = 6272,
-	L_C_search = 6376,
-	L_C_search_1 = 6560,
-	C_here = 6624,
-	C_there = 6672,
-	C_comma = 6720,
-	C_c = 6800,
-	C_allot = 6880,
-	C_vallot = 6928,
-	C_pad = 6976,
-	C_align = 7040,
-	C_unused = 7104,
-	C_fromhash = 7168,
-	C_hash = 7248,
-	L_C_hash = 7400,
-	L_C_hash_1 = 7424,
-	C_hashs = 7504,
-	L_C_hashs = 7512,
-	L_C_hashs_1 = 7560,
-	C_hashfrom = 7584,
-	C_hold = 7696,
-	C_sign = 7800,
-	L_C_sign = 7856,
-	C_counted_paren_dot_paren = 7880,
-	C_paren_dot_paren = 7976,
-	C_dot = 8064,
-	C_dotr = 8120,
-	C_hex = 8280,
-	C_decimal = 8344,
-	C_digit = 8408,
-	L_C_digit = 8520,
-	L_C_digit_2 = 8624,
-	L_C_digit_4 = 8728,
-	L_C_digit_5 = 8752,
-	L_C_digit_3 = 8752,
-	L_C_digit_1 = 8752,
-	L_C_digit_6 = 8824,
-	L_C_digit_7 = 8840,
-	C_number = 8864,
-	L_C_number = 9000,
-	L_C_number_1 = 9032,
-	L_C_number_2 = 9096,
-	L_C_number_3 = 9200,
-	L_C_number_4 = 9256,
-	C_abort = 9344,
-	C_bufferfilename_fetch = 9400,
-	C_bufferfilename_store = 9536,
-	C_toword = 9600,
-	C_wordfd_fetch = 9656,
-	C_wordfd_store = 9712,
-	C_wordfilename_fetch = 9768,
-	C_wordfilename_store = 9824,
-	C_toline = 9880,
-	C_linefd_fetch = 9936,
-	C_linefd_store = 9992,
-	C_linefilename_fetch = 10048,
-	C_linefilename_store = 10104,
-	C_todoublequote = 10160,
-	C_doublequotefd_fetch = 10216,
-	C_doublequotefd_store = 10272,
-	C_doublequotefilename_fetch = 10328,
-	C_doublequotefilename_store = 10384,
-	C_tocloseparen = 10440,
-	C_closeparenfd_fetch = 10496,
-	C_closeparenfd_store = 10552,
-	C_closeparenfilename_fetch = 10608,
-	C_closeparenfilename_store = 10664,
-	C_stdinput = 10720,
-	L_C_stdinput = 10792,
-	C_args = 10904,
-	L_C_args_read = 10976,
-	C_input_fetch = 11064,
-	L_C_input_fetch = 11112,
-	C_input_store = 11296,
-	L_C_input_store = 11456,
-	L_C_input_store_1 = 11568,
-	C_close_input = 11608,
-	L_C_close_input = 11656,
-	L_C_close_next = 11784,
-	C_restore_input = 11944,
-	L_restore_input = 12072,
-	C_concat = 12096,
-	C_buffername = 12272,
-	C_get = 12448,
-	L_C_get_opened = 12712,
-	L_C_get = 12760,
-	L_C_get_read_failed = 12952,
-	L_C_get_read_0 = 13016,
-	L_C_get_read_successful = 13056,
-	C_parse = 13080,
-	L_C_parse_1 = 13240,
-	C_word = 13312,
-	C_line = 13368,
-	C_doublequote = 13416,
-	C_counted_doublequote = 13464,
-	C_closeparen = 13520,
-	C_findname = 13568,
-	L_C_findname = 13608,
-	L_C_findname_2 = 13720,
-	L_C_findname_4 = 13848,
-	L_C_findname_3 = 13856,
-	L_C_findname_1 = 13872,
-	C_find = 13920,
-	L_C_find_1 = 14112,
-	L_C_find_2 = 14128,
-	L_C_find = 14152,
-	L_C_find_3 = 14160,
-	C_single_quote = 14184,
-	L_C_single_quote = 14304,
-	C_qstack = 14328,
-	L_C_qstack = 14424,
-	C_interpret = 14488,
-	L_C_interpret = 14496,
-	L_C_interpret_2 = 14560,
-	L_C_interpret_4 = 14664,
-	L_C_interpret_3 = 14664,
-	C_create = 14704,
-	C_variable = 14936,
-	C_constant = 15024,
-	C_immediate = 15144,
-	C_tocfa = 15256,
-	C_compile = 15336,
-	L_C_compile_1 = 15464,
-	L_C_compile_2 = 15480,
-	L_C_compile = 15496,
-	L_C_compile_4 = 15616,
-	L_C_compile_6 = 15648,
-	L_C_compile_3 = 15648,
-	C_close_bracket = 15672,
-	L_C_close_bracket = 15696,
-	L_C_close_bracket_1 = 15776,
-	L_C_close_bracket_2 = 15800,
-	L_C_close_bracket_3 = 15832,
-	CI_open_bracket = 15856,
-	C_smudge = 15904,
-	C_reveal = 16016,
-	C_colon = 16136,
-	CI_semicolon = 16264,
-	CI_recurse = 16344,
-	C_char = 16416,
-	C_literal = 16472,
-	C_sliteral = 16536,
-	C_string = 16688,
-	CI_char_brackets = 16800,
-	CI_quote_brackets = 16864,
-	CI_openparen = 16912,
-	CI_backslash = 16960,
-	C_qabort_parens = 17000,
-	L_C_qabort_parens = 17080,
-	L_C_qabort_parens_1 = 17088,
-	CI_abort_double_quote = 17112,
-	C_double_quote = 17176,
-	C_counted_double_quote = 17288,
-	CI_sdouble_quote = 17408,
-	CI_dotstr = 17448,
-	CI_if = 17512,
-	CI_else = 17600,
-	CI_then = 17728,
-	CI_begin = 17784,
-	CI_again = 17824,
-	CI_until = 17888,
-	CI_while = 17952,
-	CI_repeat = 18040,
-	CI_do = 18136,
-	CI_loop = 18216,
-	L234 = 18304,
-	CI_ploop = 18328,
-	L236 = 18416,
-	C_wo = 18440,
-	C_ro = 18536,
-	C_rw = 18584,
-	C_cstring = 18632,
-	C_cstring0 = 18808,
-	C_cstring1 = 18864,
-	C_open_file = 18920,
-	C_close_file = 19016,
-	C_read_file = 19064,
-	C_write_file = 19136,
-	C_reposition_file = 19200,
-	C_qfcheck = 19264,
-	L246 = 19352,
-	C_create_file = 19376,
-	C_bye = 19648,
-	C_include = 19704,
-	C_crash = 19816,
-	C_quit = 19896,
-	L_C_quit = 19920,
-	C_parenabort = 19976,
-	C_initialize = 20240,
-	L_C_initialize = 20288,
-	L_C_initialize_1 = 20424,
-	C_boot = 20640,
-	L_bin_prefix = 20864,
-	L_line_filename = 20868,
-	L_word_filename = 20874,
-	L_doublequote_filename = 20880,
-	L_closeparen_filename = 20893,
-	L137 = 20905,
-	L_open_failed = 20929,
-	L_read_failed = 20946,
-	L170 = 20963,
-	L173 = 20967,
-	L180 = 20984,
-	L_C_compile_5 = 20988,
-	L247 = 20992,
-	L251 = 21002,
-	L255 = 21033,
-	L_C_get_too_long = 21037,
-	L305 = 21089,
-	L_C_long_word = 21100,
-};
-extern void *sliteral(void);
-extern void *syscreate(void);
-extern void *cjump(void);
-extern void *syswrite(void);
-extern void *i(void);
-extern void *equal(void);
-extern void *j(void);
-extern void *drop(void);
-extern void *rpop(void);
-extern void *stackptr(void);
-extern void *sysseek(void);
-extern void *deferred(void);
-extern void *cas(void);
-extern void *xswap(void);
-extern void *terminate(void);
-extern void *greater(void);
-extern void *slashmod(void);
-extern void *cmoveb(void);
-extern void *doinit(void);
-extern void *multiply(void);
-extern void *colon(void);
-extern void *less(void);
-extern void *lshift(void);
-extern void *sysopen(void);
-extern void *plus(void);
-extern void *sysclose(void);
-extern void *jump(void);
-extern void *fthdump(void);
-extern void *rshift(void);
-extern void *cstore(void);
-extern void *store(void);
-extern void *cmove(void);
-extern void *binor(void);
-extern void *unloop(void);
-extern void *sysbind(void);
-extern void *cfetch(void);
-extern void *sysmount(void);
-extern void *constant(void);
-extern void *variable(void);
-extern void *fetch(void);
-extern void *doloop(void);
-extern void *mmap(void);
-extern void *binxor(void);
-extern void *sysread(void);
-extern void *dup(void);
-extern void *exitcolon(void);
-extern void *clear(void);
-extern void *binand(void);
-extern void *literal(void);
-extern void *rpush(void);
-extern void *over(void);
-extern void *minus(void);
-extern void *rfetch(void);
-extern void *reset(void);
-extern void *dodoes(void);
-extern void *uslashmod(void);
-extern void *execute(void);
-extern void *rshifta(void);
-extern void *doploop(void);
-Fentry fentries[] = {
-	{.what Sourceline, .desc "MENTRY \"@\" fetch 1"},
-		{.what Here, .desc "link",.here 0, .there 0,.type Absolute, .p 0 },
-		{.what Here, .desc "len", .here 8, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 9, .there 0,.type Chars, .str "@" },
-		{.what Here, .desc "cfa", .here 16, .there 0,.type Absoluteptr, .ptr fetch },
-	{.what Sourceline, .desc "MENTRY \"!\" store 1"},
-		{.what Here, .desc "link",.here 24, .there 0,.type Relativedictionary, .p 0 },
-		{.what Here, .desc "len", .here 32, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 33, .there 0,.type Chars, .str "!" },
-		{.what Here, .desc "cfa", .here 40, .there 0,.type Absoluteptr, .ptr store },
-	{.what Sourceline, .desc "MENTRY \"c@\" cfetch 2"},
-		{.what Here, .desc "link",.here 48, .there 0,.type Relativedictionary, .p 24 },
-		{.what Here, .desc "len", .here 56, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 57, .there 0,.type Chars, .str "c@" },
-		{.what Here, .desc "cfa", .here 64, .there 0,.type Absoluteptr, .ptr cfetch },
-	{.what Sourceline, .desc "MENTRY \"c!\" cstore 2"},
-		{.what Here, .desc "link",.here 72, .there 0,.type Relativedictionary, .p 48 },
-		{.what Here, .desc "len", .here 80, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 81, .there 0,.type Chars, .str "c!" },
-		{.what Here, .desc "cfa", .here 88, .there 0,.type Absoluteptr, .ptr cstore },
-	{.what Sourceline, .desc "MENTRY \"mmap\" mmap 4"},
-		{.what Here, .desc "link",.here 96, .there 0,.type Relativedictionary, .p 72 },
-		{.what Here, .desc "len", .here 104, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 105, .there 0,.type Chars, .str "mmap" },
-		{.what Here, .desc "cfa", .here 112, .there 0,.type Absoluteptr, .ptr mmap },
-	{.what Sourceline, .desc "MENTRY \"halt\" terminate 4"},
-		{.what Here, .desc "link",.here 120, .there 0,.type Relativedictionary, .p 96 },
-		{.what Here, .desc "len", .here 128, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 129, .there 0,.type Chars, .str "halt" },
-		{.what Here, .desc "cfa", .here 136, .there 0,.type Absoluteptr, .ptr terminate },
-	{.what Sourceline, .desc "MENTRY \"dump\" fthdump 4"},
-		{.what Here, .desc "link",.here 144, .there 0,.type Relativedictionary, .p 120 },
-		{.what Here, .desc "len", .here 152, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 153, .there 0,.type Chars, .str "dump" },
-		{.what Here, .desc "cfa", .here 160, .there 0,.type Absoluteptr, .ptr fthdump },
-	{.what Sourceline, .desc "MENTRY \"clear\" clear 5"},
-		{.what Here, .desc "link",.here 168, .there 0,.type Relativedictionary, .p 144 },
-		{.what Here, .desc "len", .here 176, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 177, .there 0,.type Chars, .str "clear" },
-		{.what Here, .desc "cfa", .here 184, .there 0,.type Absoluteptr, .ptr clear },
-	{.what Sourceline, .desc "MENTRY \"reset\" reset 5"},
-		{.what Here, .desc "link",.here 192, .there 0,.type Relativedictionary, .p 168 },
-		{.what Here, .desc "len", .here 200, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 201, .there 0,.type Chars, .str "reset" },
-		{.what Here, .desc "cfa", .here 208, .there 0,.type Absoluteptr, .ptr reset },
-	{.what Sourceline, .desc "MENTRY \"exit\" exitcolon 4"},
-		{.what Here, .desc "link",.here 216, .there 0,.type Relativedictionary, .p 192 },
-		{.what Here, .desc "len", .here 224, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 225, .there 0,.type Chars, .str "exit" },
-		{.what Here, .desc "cfa", .here 232, .there 0,.type Absoluteptr, .ptr exitcolon },
-	{.what Sourceline, .desc "MENTRY \"(literal)\" literal 9"},
-		{.what Here, .desc "link",.here 240, .there 0,.type Relativedictionary, .p 216 },
-		{.what Here, .desc "len", .here 248, .there 0,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 249, .there 0,.type Chars, .str "(literal)" },
-		{.what Here, .desc "cfa", .here 256, .there 0,.type Absoluteptr, .ptr literal },
-	{.what Sourceline, .desc "MENTRY \"(sliteral)\" sliteral 10"},
-		{.what Here, .desc "link",.here 264, .there 0,.type Relativedictionary, .p 240 },
-		{.what Here, .desc "len", .here 272, .there 0,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 273, .there 0,.type Chars, .str "(sliteral)" },
-		{.what Here, .desc "cfa", .here 280, .there 0,.type Absoluteptr, .ptr sliteral },
-	{.what Sourceline, .desc "MENTRY \"(do)\" doinit 4"},
-		{.what Here, .desc "link",.here 288, .there 0,.type Relativedictionary, .p 264 },
-		{.what Here, .desc "len", .here 296, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 297, .there 0,.type Chars, .str "(do)" },
-		{.what Here, .desc "cfa", .here 304, .there 0,.type Absoluteptr, .ptr doinit },
-	{.what Sourceline, .desc "MENTRY \"(loop)\" doloop 6"},
-		{.what Here, .desc "link",.here 312, .there 0,.type Relativedictionary, .p 288 },
-		{.what Here, .desc "len", .here 320, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 321, .there 0,.type Chars, .str "(loop)" },
-		{.what Here, .desc "cfa", .here 328, .there 0,.type Absoluteptr, .ptr doloop },
-	{.what Sourceline, .desc "MENTRY \"(+loop)\" doploop 7"},
-		{.what Here, .desc "link",.here 336, .there 0,.type Relativedictionary, .p 312 },
-		{.what Here, .desc "len", .here 344, .there 0,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 345, .there 0,.type Chars, .str "(+loop)" },
-		{.what Here, .desc "cfa", .here 352, .there 0,.type Absoluteptr, .ptr doploop },
-	{.what Sourceline, .desc "MENTRY \"r@\" rfetch 2"},
-		{.what Here, .desc "link",.here 360, .there 0,.type Relativedictionary, .p 336 },
-		{.what Here, .desc "len", .here 368, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 369, .there 0,.type Chars, .str "r@" },
-		{.what Here, .desc "cfa", .here 376, .there 0,.type Absoluteptr, .ptr rfetch },
-	{.what Sourceline, .desc "MENTRY \"r>\" rpop 2"},
-		{.what Here, .desc "link",.here 384, .there 0,.type Relativedictionary, .p 360 },
-		{.what Here, .desc "len", .here 392, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 393, .there 0,.type Chars, .str "r>" },
-		{.what Here, .desc "cfa", .here 400, .there 0,.type Absoluteptr, .ptr rpop },
-	{.what Sourceline, .desc "MENTRY \">r\" rpush 2"},
-		{.what Here, .desc "link",.here 408, .there 0,.type Relativedictionary, .p 384 },
-		{.what Here, .desc "len", .here 416, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 417, .there 0,.type Chars, .str ">r" },
-		{.what Here, .desc "cfa", .here 424, .there 0,.type Absoluteptr, .ptr rpush },
-	{.what Sourceline, .desc "MENTRY \"i\" i 1"},
-		{.what Here, .desc "link",.here 432, .there 0,.type Relativedictionary, .p 408 },
-		{.what Here, .desc "len", .here 440, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 441, .there 0,.type Chars, .str "i" },
-		{.what Here, .desc "cfa", .here 448, .there 0,.type Absoluteptr, .ptr i },
-	{.what Sourceline, .desc "MENTRY \"j\" j 1"},
-		{.what Here, .desc "link",.here 456, .there 0,.type Relativedictionary, .p 432 },
-		{.what Here, .desc "len", .here 464, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 465, .there 0,.type Chars, .str "j" },
-		{.what Here, .desc "cfa", .here 472, .there 0,.type Absoluteptr, .ptr j },
-	{.what Sourceline, .desc "MENTRY \"+\" plus 1"},
-		{.what Here, .desc "link",.here 480, .there 0,.type Relativedictionary, .p 456 },
-		{.what Here, .desc "len", .here 488, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 489, .there 0,.type Chars, .str "+" },
-		{.what Here, .desc "cfa", .here 496, .there 0,.type Absoluteptr, .ptr plus },
-	{.what Sourceline, .desc "MENTRY \"-\" minus 1"},
-		{.what Here, .desc "link",.here 504, .there 0,.type Relativedictionary, .p 480 },
-		{.what Here, .desc "len", .here 512, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 513, .there 0,.type Chars, .str "-" },
-		{.what Here, .desc "cfa", .here 520, .there 0,.type Absoluteptr, .ptr minus },
-	{.what Sourceline, .desc "MENTRY \"*\" multiply 1"},
-		{.what Here, .desc "link",.here 528, .there 0,.type Relativedictionary, .p 504 },
-		{.what Here, .desc "len", .here 536, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 537, .there 0,.type Chars, .str "*" },
-		{.what Here, .desc "cfa", .here 544, .there 0,.type Absoluteptr, .ptr multiply },
-	{.what Sourceline, .desc "MENTRY \"(if)\" cjump 4"},
-		{.what Here, .desc "link",.here 552, .there 0,.type Relativedictionary, .p 528 },
-		{.what Here, .desc "len", .here 560, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 561, .there 0,.type Chars, .str "(if)" },
-		{.what Here, .desc "cfa", .here 568, .there 0,.type Absoluteptr, .ptr cjump },
-	{.what Sourceline, .desc "MENTRY \"(else)\" jump 6"},
-		{.what Here, .desc "link",.here 576, .there 0,.type Relativedictionary, .p 552 },
-		{.what Here, .desc "len", .here 584, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 585, .there 0,.type Chars, .str "(else)" },
-		{.what Here, .desc "cfa", .here 592, .there 0,.type Absoluteptr, .ptr jump },
-	{.what Sourceline, .desc "MENTRY \"/mod\" slashmod 4"},
-		{.what Here, .desc "link",.here 600, .there 0,.type Relativedictionary, .p 576 },
-		{.what Here, .desc "len", .here 608, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 609, .there 0,.type Chars, .str "/mod" },
-		{.what Here, .desc "cfa", .here 616, .there 0,.type Absoluteptr, .ptr slashmod },
-	{.what Sourceline, .desc "MENTRY \"u/mod\" uslashmod 5"},
-		{.what Here, .desc "link",.here 624, .there 0,.type Relativedictionary, .p 600 },
-		{.what Here, .desc "len", .here 632, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 633, .there 0,.type Chars, .str "u/mod" },
-		{.what Here, .desc "cfa", .here 640, .there 0,.type Absoluteptr, .ptr uslashmod },
-	{.what Sourceline, .desc "MENTRY \"and\" binand 3"},
-		{.what Here, .desc "link",.here 648, .there 0,.type Relativedictionary, .p 624 },
-		{.what Here, .desc "len", .here 656, .there 0,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 657, .there 0,.type Chars, .str "and" },
-		{.what Here, .desc "cfa", .here 664, .there 0,.type Absoluteptr, .ptr binand },
-	{.what Sourceline, .desc "MENTRY \"or\" binor 2"},
-		{.what Here, .desc "link",.here 672, .there 0,.type Relativedictionary, .p 648 },
-		{.what Here, .desc "len", .here 680, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 681, .there 0,.type Chars, .str "or" },
-		{.what Here, .desc "cfa", .here 688, .there 0,.type Absoluteptr, .ptr binor },
-	{.what Sourceline, .desc "MENTRY \"xor\" binxor 3"},
-		{.what Here, .desc "link",.here 696, .there 0,.type Relativedictionary, .p 672 },
-		{.what Here, .desc "len", .here 704, .there 0,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 705, .there 0,.type Chars, .str "xor" },
-		{.what Here, .desc "cfa", .here 712, .there 0,.type Absoluteptr, .ptr binxor },
-	{.what Sourceline, .desc "MENTRY \"swap\" xswap 4"},
-		{.what Here, .desc "link",.here 720, .there 0,.type Relativedictionary, .p 696 },
-		{.what Here, .desc "len", .here 728, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 729, .there 0,.type Chars, .str "swap" },
-		{.what Here, .desc "cfa", .here 736, .there 0,.type Absoluteptr, .ptr xswap },
-	{.what Sourceline, .desc "MENTRY \"drop\" drop 4"},
-		{.what Here, .desc "link",.here 744, .there 0,.type Relativedictionary, .p 720 },
-		{.what Here, .desc "len", .here 752, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 753, .there 0,.type Chars, .str "drop" },
-		{.what Here, .desc "cfa", .here 760, .there 0,.type Absoluteptr, .ptr drop },
-	{.what Sourceline, .desc "MENTRY \"dup\" dup 3"},
-		{.what Here, .desc "link",.here 768, .there 0,.type Relativedictionary, .p 744 },
-		{.what Here, .desc "len", .here 776, .there 0,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 777, .there 0,.type Chars, .str "dup" },
-		{.what Here, .desc "cfa", .here 784, .there 0,.type Absoluteptr, .ptr dup },
-	{.what Sourceline, .desc "MENTRY \"over\" over 4"},
-		{.what Here, .desc "link",.here 792, .there 0,.type Relativedictionary, .p 768 },
-		{.what Here, .desc "len", .here 800, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 801, .there 0,.type Chars, .str "over" },
-		{.what Here, .desc "cfa", .here 808, .there 0,.type Absoluteptr, .ptr over },
-	{.what Sourceline, .desc "MENTRY \"=\" equal 1"},
-		{.what Here, .desc "link",.here 816, .there 0,.type Relativedictionary, .p 792 },
-		{.what Here, .desc "len", .here 824, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 825, .there 0,.type Chars, .str "=" },
-		{.what Here, .desc "cfa", .here 832, .there 0,.type Absoluteptr, .ptr equal },
-	{.what Sourceline, .desc "MENTRY \">\" greater 1"},
-		{.what Here, .desc "link",.here 840, .there 0,.type Relativedictionary, .p 816 },
-		{.what Here, .desc "len", .here 848, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 849, .there 0,.type Chars, .str ">" },
-		{.what Here, .desc "cfa", .here 856, .there 0,.type Absoluteptr, .ptr greater },
-	{.what Sourceline, .desc "MENTRY \"<\" less 1"},
-		{.what Here, .desc "link",.here 864, .there 0,.type Relativedictionary, .p 840 },
-		{.what Here, .desc "len", .here 872, .there 0,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 873, .there 0,.type Chars, .str "<" },
-		{.what Here, .desc "cfa", .here 880, .there 0,.type Absoluteptr, .ptr less },
-	{.what Sourceline, .desc "MENTRY \"lshift\" lshift 6"},
-		{.what Here, .desc "link",.here 888, .there 0,.type Relativedictionary, .p 864 },
-		{.what Here, .desc "len", .here 896, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 897, .there 0,.type Chars, .str "lshift" },
-		{.what Here, .desc "cfa", .here 904, .there 0,.type Absoluteptr, .ptr lshift },
-	{.what Sourceline, .desc "MENTRY \"rshift\" rshift 6"},
-		{.what Here, .desc "link",.here 912, .there 0,.type Relativedictionary, .p 888 },
-		{.what Here, .desc "len", .here 920, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 921, .there 0,.type Chars, .str "rshift" },
-		{.what Here, .desc "cfa", .here 928, .there 0,.type Absoluteptr, .ptr rshift },
-	{.what Sourceline, .desc "MENTRY \"rshifta\" rshifta 7"},
-		{.what Here, .desc "link",.here 936, .there 0,.type Relativedictionary, .p 912 },
-		{.what Here, .desc "len", .here 944, .there 0,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 945, .there 0,.type Chars, .str "rshifta" },
-		{.what Here, .desc "cfa", .here 952, .there 0,.type Absoluteptr, .ptr rshifta },
-	{.what Sourceline, .desc "MENTRY \"execute\" execute 7"},
-		{.what Here, .desc "link",.here 960, .there 0,.type Relativedictionary, .p 936 },
-		{.what Here, .desc "len", .here 968, .there 0,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 969, .there 0,.type Chars, .str "execute" },
-		{.what Here, .desc "cfa", .here 976, .there 0,.type Absoluteptr, .ptr execute },
-	{.what Sourceline, .desc "MENTRY \"unloop\" unloop 6"},
-		{.what Here, .desc "link",.here 984, .there 0,.type Relativedictionary, .p 960 },
-		{.what Here, .desc "len", .here 992, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 993, .there 0,.type Chars, .str "unloop" },
-		{.what Here, .desc "cfa", .here 1000, .there 0,.type Absoluteptr, .ptr unloop },
-	{.what Sourceline, .desc "MENTRY \"cmove\" cmove 5"},
-		{.what Here, .desc "link",.here 1008, .there 0,.type Relativedictionary, .p 984 },
-		{.what Here, .desc "len", .here 1016, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 1017, .there 0,.type Chars, .str "cmove" },
-		{.what Here, .desc "cfa", .here 1024, .there 0,.type Absoluteptr, .ptr cmove },
-	{.what Sourceline, .desc "MENTRY \"cmove>\" cmoveb 6"},
-		{.what Here, .desc "link",.here 1032, .there 0,.type Relativedictionary, .p 1008 },
-		{.what Here, .desc "len", .here 1040, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 1041, .there 0,.type Chars, .str "cmove>" },
-		{.what Here, .desc "cfa", .here 1048, .there 0,.type Absoluteptr, .ptr cmoveb },
-	{.what Sourceline, .desc "MENTRY \"(variable)\" variable 10"},
-		{.what Here, .desc "link",.here 1056, .there 0,.type Relativedictionary, .p 1032 },
-		{.what Here, .desc "len", .here 1064, .there 0,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 1065, .there 0,.type Chars, .str "(variable)" },
-		{.what Here, .desc "cfa", .here 1072, .there 0,.type Absoluteptr, .ptr variable },
-	{.what Sourceline, .desc "MENTRY \"(constant)\" constant 10"},
-		{.what Here, .desc "link",.here 1080, .there 0,.type Relativedictionary, .p 1056 },
-		{.what Here, .desc "len", .here 1088, .there 0,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 1089, .there 0,.type Chars, .str "(constant)" },
-		{.what Here, .desc "cfa", .here 1096, .there 0,.type Absoluteptr, .ptr constant },
-	{.what Sourceline, .desc "MENTRY \"(:)\" colon 3"},
-		{.what Here, .desc "link",.here 1104, .there 0,.type Relativedictionary, .p 1080 },
-		{.what Here, .desc "len", .here 1112, .there 0,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 1113, .there 0,.type Chars, .str "(:)" },
-		{.what Here, .desc "cfa", .here 1120, .there 0,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "MENTRY \"(does)\" dodoes 6"},
-		{.what Here, .desc "link",.here 1128, .there 0,.type Relativedictionary, .p 1104 },
-		{.what Here, .desc "len", .here 1136, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 1137, .there 0,.type Chars, .str "(does)" },
-		{.what Here, .desc "cfa", .here 1144, .there 0,.type Absoluteptr, .ptr dodoes },
-	{.what Sourceline, .desc "MENTRY \"cas\" cas 3"},
-		{.what Here, .desc "link",.here 1152, .there 0,.type Relativedictionary, .p 1128 },
-		{.what Here, .desc "len", .here 1160, .there 0,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 1161, .there 0,.type Chars, .str "cas" },
-		{.what Here, .desc "cfa", .here 1168, .there 0,.type Absoluteptr, .ptr cas },
-	{.what Sourceline, .desc "MENTRY \"(deferred)\" deferred 10"},
-		{.what Here, .desc "link",.here 1176, .there 0,.type Relativedictionary, .p 1152 },
-		{.what Here, .desc "len", .here 1184, .there 0,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 1185, .there 0,.type Chars, .str "(deferred)" },
-		{.what Here, .desc "cfa", .here 1192, .there 0,.type Absoluteptr, .ptr deferred },
-	{.what Sourceline, .desc "MENTRY \"s@\" stackptr 2	; puts PSP on stack. Not a variable hence lower case."},
-		{.what Here, .desc "link",.here 1200, .there 0,.type Relativedictionary, .p 1176 },
-		{.what Here, .desc "len", .here 1208, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 1209, .there 0,.type Chars, .str "s@" },
-		{.what Here, .desc "cfa", .here 1216, .there 0,.type Absoluteptr, .ptr stackptr },
-	{.what Sourceline, .desc "MENTRY \"sysbind\" sysbind 7"},
-		{.what Here, .desc "link",.here 1224, .there 0,.type Relativedictionary, .p 1200 },
-		{.what Here, .desc "len", .here 1232, .there 0,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 1233, .there 0,.type Chars, .str "sysbind" },
-		{.what Here, .desc "cfa", .here 1240, .there 0,.type Absoluteptr, .ptr sysbind },
-	{.what Sourceline, .desc "MENTRY \"sysclose\" sysclose 8"},
-		{.what Here, .desc "link",.here 1248, .there 0,.type Relativedictionary, .p 1224 },
-		{.what Here, .desc "len", .here 1256, .there 0,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 1257, .there 0,.type Chars, .str "sysclose" },
-		{.what Here, .desc "cfa", .here 1264, .there 0,.type Absoluteptr, .ptr sysclose },
-	{.what Sourceline, .desc "MENTRY \"syscreate\" syscreate 9"},
-		{.what Here, .desc "link",.here 1272, .there 0,.type Relativedictionary, .p 1248 },
-		{.what Here, .desc "len", .here 1280, .there 0,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 1281, .there 0,.type Chars, .str "syscreate" },
-		{.what Here, .desc "cfa", .here 1288, .there 0,.type Absoluteptr, .ptr syscreate },
-	{.what Sourceline, .desc "MENTRY \"sysmount\" sysmount 8"},
-		{.what Here, .desc "link",.here 1296, .there 0,.type Relativedictionary, .p 1272 },
-		{.what Here, .desc "len", .here 1304, .there 0,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 1305, .there 0,.type Chars, .str "sysmount" },
-		{.what Here, .desc "cfa", .here 1312, .there 0,.type Absoluteptr, .ptr sysmount },
-	{.what Sourceline, .desc "MENTRY \"sysopen\" sysopen 7"},
-		{.what Here, .desc "link",.here 1320, .there 0,.type Relativedictionary, .p 1296 },
-		{.what Here, .desc "len", .here 1328, .there 0,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 1329, .there 0,.type Chars, .str "sysopen" },
-		{.what Here, .desc "cfa", .here 1336, .there 0,.type Absoluteptr, .ptr sysopen },
-	{.what Sourceline, .desc "MENTRY \"sysread\" sysread 7"},
-		{.what Here, .desc "link",.here 1344, .there 0,.type Relativedictionary, .p 1320 },
-		{.what Here, .desc "len", .here 1352, .there 0,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 1353, .there 0,.type Chars, .str "sysread" },
-		{.what Here, .desc "cfa", .here 1360, .there 0,.type Absoluteptr, .ptr sysread },
-	{.what Sourceline, .desc "MENTRY \"sysseek\" sysseek 7"},
-		{.what Here, .desc "link",.here 1368, .there 0,.type Relativedictionary, .p 1344 },
-		{.what Here, .desc "len", .here 1376, .there 0,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 1377, .there 0,.type Chars, .str "sysseek" },
-		{.what Here, .desc "cfa", .here 1384, .there 0,.type Absoluteptr, .ptr sysseek },
-	{.what Sourceline, .desc "MENTRY \"syswrite\" syswrite 8"},
-		{.what Here, .desc "link",.here 1392, .there 0,.type Relativedictionary, .p 1368 },
-		{.what Here, .desc "len", .here 1400, .there 0,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 1401, .there 0,.type Chars, .str "syswrite" },
-		{.what Here, .desc "cfa", .here 1408, .there 0,.type Absoluteptr, .ptr syswrite },
-	{.what Sourceline, .desc "MCENTRY \"STDIN\" STDIN 5	0 ; 3 constants from here CAPITALS"},
-		{.what Here, .desc "link",.here 1416, .there 0,.type Relativedictionary, .p 1392 },
-		{.what Here, .desc "len", .here 1424, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 1425, .there 0,.type Chars, .str "STDIN" },
-		{.what Here, .desc "cfa", .here 1432, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1440, .there 0,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "MCENTRY \"STDOUT\" STDOUT 6 1"},
-		{.what Here, .desc "link",.here 1448, .there 0,.type Relativedictionary, .p 1416 },
-		{.what Here, .desc "len", .here 1456, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 1457, .there 0,.type Chars, .str "STDOUT" },
-		{.what Here, .desc "cfa", .here 1464, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1472, .there 0,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "MCENTRY \"STDERR\" STDERR 6 2"},
-		{.what Here, .desc "link",.here 1480, .there 0,.type Relativedictionary, .p 1448 },
-		{.what Here, .desc "len", .here 1488, .there 0,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 1489, .there 0,.type Chars, .str "STDERR" },
-		{.what Here, .desc "cfa", .here 1496, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1504, .there 0,.type Absolute, .p 2 },
-	{.what Sourceline, .desc "MCENTRY	\"WORD#\" WORDNUM 5 0"},
-		{.what Here, .desc "link",.here 1512, .there 0,.type Relativedictionary, .p 1480 },
-		{.what Here, .desc "len", .here 1520, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 1521, .there 0,.type Chars, .str "WORD#" },
-		{.what Here, .desc "cfa", .here 1528, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1536, .there 0,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "MCENTRY	\"LINE#\" LINENUM 5 1"},
-		{.what Here, .desc "link",.here 1544, .there 0,.type Relativedictionary, .p 1512 },
-		{.what Here, .desc "len", .here 1552, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 1553, .there 0,.type Chars, .str "LINE#" },
-		{.what Here, .desc "cfa", .here 1560, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1568, .there 0,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "MCENTRY	\"DOUBLEQUOTE#\" DOUBLEQUOTENUM 12 2"},
-		{.what Here, .desc "link",.here 1576, .there 0,.type Relativedictionary, .p 1544 },
-		{.what Here, .desc "len", .here 1584, .there 0,.type Byte, .b 0 + 12 },
-		{.what Here, .desc "name",.here 1585, .there 0,.type Chars, .str "DOUBLEQUOTE#" },
-		{.what Here, .desc "cfa", .here 1592, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1600, .there 0,.type Absolute, .p 2 },
-	{.what Sourceline, .desc "MCENTRY	\"CLOSEPAREN#\" CLOSEPARENNUM 11 3"},
-		{.what Here, .desc "link",.here 1608, .there 0,.type Relativedictionary, .p 1576 },
-		{.what Here, .desc "len", .here 1616, .there 0,.type Byte, .b 0 + 11 },
-		{.what Here, .desc "name",.here 1617, .there 0,.type Chars, .str "CLOSEPAREN#" },
-		{.what Here, .desc "cfa", .here 1624, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1632, .there 0,.type Absolute, .p 3 },
-	{.what Sourceline, .desc "MCENTRY \"#BUFFERS\" NBUFFERS 8 16"},
-		{.what Here, .desc "link",.here 1640, .there 0,.type Relativedictionary, .p 1608 },
-		{.what Here, .desc "len", .here 1648, .there 0,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 1649, .there 0,.type Chars, .str "#BUFFERS" },
-		{.what Here, .desc "cfa", .here 1656, .there 0,.type Absoluteptr, .ptr constant },
-		{.what Here, .desc "constant", .here 1664, .there 0,.type Absolute, .p 16 },
-	{.what Sourceline, .desc "MVDENTRY \"Dp\" Dp 2 HERE		; here"},
-		{.what Here, .desc "link",.here 1672, .there 0,.type Relativedictionary, .p 1640 },
-		{.what Here, .desc "len", .here 1680, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 1681, .there 0,.type Chars, .str "Dp" },
-		{.what Here, .desc "cfa", .here 1688, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1696, .there 0,.type Relative, .p HERE },
-	{.what Sourceline, .desc "MVDENTRY \"Dtop\" Dtop 4 DTOP	; last defined header"},
-		{.what Here, .desc "link",.here 1704, .there 0,.type Relativedictionary, .p 1672 },
-		{.what Here, .desc "len", .here 1712, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 1713, .there 0,.type Chars, .str "Dtop" },
-		{.what Here, .desc "cfa", .here 1720, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1728, .there 0,.type Relative, .p DTOP },
-	{.what Sourceline, .desc "MVDENTRY \"Vp\" Vp 2 THERE	; here of the variables space"},
-		{.what Here, .desc "link",.here 1736, .there 0,.type Relativedictionary, .p 1704 },
-		{.what Here, .desc "len", .here 1744, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 1745, .there 0,.type Chars, .str "Vp" },
-		{.what Here, .desc "cfa", .here 1752, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1760, .there 0,.type Relative, .p THERE },
-	{.what Sourceline, .desc "MVDENTRY \"Pid\" Pid 3 FTHPID"},
-		{.what Here, .desc "link",.here 1768, .there 0,.type Relativedictionary, .p 1736 },
-		{.what Here, .desc "len", .here 1776, .there 0,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 1777, .there 0,.type Chars, .str "Pid" },
-		{.what Here, .desc "cfa", .here 1784, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1792, .there 0,.type Relative, .p FTHPID },
-	{.what Sourceline, .desc "MVDENTRY \"Parentpid\" Parentpid 4 FTHPARENTPID"},
-		{.what Here, .desc "link",.here 1800, .there 0,.type Relativedictionary, .p 1768 },
-		{.what Here, .desc "len", .here 1808, .there 0,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 1809, .there 0,.type Chars, .str "Parentpid" },
-		{.what Here, .desc "cfa", .here 1816, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1824, .there 0,.type Relative, .p FTHPARENTPID },
-	{.what Sourceline, .desc "MVDENTRY \"S0\" S0 2 PSTACK"},
-		{.what Here, .desc "link",.here 1832, .there 0,.type Relativedictionary, .p 1800 },
-		{.what Here, .desc "len", .here 1840, .there 0,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 1841, .there 0,.type Chars, .str "S0" },
-		{.what Here, .desc "cfa", .here 1848, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1856, .there 0,.type Relative, .p PSTACK },
-	{.what Sourceline, .desc "MVDENTRY \"Wordb\" Wordb 5 WORDB"},
-		{.what Here, .desc "link",.here 1864, .there 0,.type Relativedictionary, .p 1832 },
-		{.what Here, .desc "len", .here 1872, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 1873, .there 0,.type Chars, .str "Wordb" },
-		{.what Here, .desc "cfa", .here 1880, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1888, .there 0,.type Relative, .p WORDB },
-	{.what Sourceline, .desc "MVDENTRY \"Tib\" Tib 3 TIB"},
-		{.what Here, .desc "link",.here 1896, .there 0,.type Relativedictionary, .p 1864 },
-		{.what Here, .desc "len", .here 1904, .there 0,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 1905, .there 0,.type Chars, .str "Tib" },
-		{.what Here, .desc "cfa", .here 1912, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1920, .there 0,.type Relative, .p TIB },
-	{.what Sourceline, .desc "MVDENTRY \"Argsfilename\" Argsfilename 12 ARGSFILENAME ; counted string populated by forth starter from params"},
-		{.what Here, .desc "link",.here 1928, .there 0,.type Relativedictionary, .p 1896 },
-		{.what Here, .desc "len", .here 1936, .there 0,.type Byte, .b 0 + 12 },
-		{.what Here, .desc "name",.here 1937, .there 0,.type Chars, .str "Argsfilename" },
-		{.what Here, .desc "cfa", .here 1944, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1952, .there 0,.type Relative, .p ARGSFILENAME },
-	{.what Sourceline, .desc "MVENTRY \"Iobuf\" Iobuf 5		; the values are not being used from the definition. All are initialized to 0."},
-		{.what Here, .desc "link",.here 1960, .there 0,.type Relativedictionary, .p 1928 },
-		{.what Here, .desc "len", .here 1968, .there 0,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 1969, .there 0,.type Chars, .str "Iobuf" },
-		{.what Here, .desc "cfa", .here 1976, .there 0,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 1984, .there 0,.type Relativevar, .p FORTHVARS + 0 },
-	{.what Sourceline, .desc "MVENTRY \"Findadr\" Findadr 7"},
-		{.what Here, .desc "link",.here 1992, .there 8,.type Relativedictionary, .p 1960 },
-		{.what Here, .desc "len", .here 2000, .there 8,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 2001, .there 8,.type Chars, .str "Findadr" },
-		{.what Here, .desc "cfa", .here 2008, .there 8,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2016, .there 8,.type Relativevar, .p FORTHVARS + 8 },
-	{.what Sourceline, .desc "MVENTRY \"Searchlen\" Searchlen 9"},
-		{.what Here, .desc "link",.here 2024, .there 16,.type Relativedictionary, .p 1992 },
-		{.what Here, .desc "len", .here 2032, .there 16,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 2033, .there 16,.type Chars, .str "Searchlen" },
-		{.what Here, .desc "cfa", .here 2040, .there 16,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2048, .there 16,.type Relativevar, .p FORTHVARS + 16 },
-	{.what Sourceline, .desc "MVENTRY \"Base\" Base 4"},
-		{.what Here, .desc "link",.here 2056, .there 24,.type Relativedictionary, .p 2024 },
-		{.what Here, .desc "len", .here 2064, .there 24,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 2065, .there 24,.type Chars, .str "Base" },
-		{.what Here, .desc "cfa", .here 2072, .there 24,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2080, .there 24,.type Relativevar, .p FORTHVARS + 24 },
-	{.what Sourceline, .desc "MVENTRY \">Num\" toNum 4"},
-		{.what Here, .desc "link",.here 2088, .there 32,.type Relativedictionary, .p 2056 },
-		{.what Here, .desc "len", .here 2096, .there 32,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 2097, .there 32,.type Chars, .str ">Num" },
-		{.what Here, .desc "cfa", .here 2104, .there 32,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2112, .there 32,.type Relativevar, .p FORTHVARS + 32 },
-	{.what Sourceline, .desc "MVENTRY \"State\" State 5"},
-		{.what Here, .desc "link",.here 2120, .there 40,.type Relativedictionary, .p 2088 },
-		{.what Here, .desc "len", .here 2128, .there 40,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 2129, .there 40,.type Chars, .str "State" },
-		{.what Here, .desc "cfa", .here 2136, .there 40,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2144, .there 40,.type Relativevar, .p FORTHVARS + 40 },
-	{.what Sourceline, .desc "MVENTRY \"Abortvec\" Abortvec 8	; not sure if these 3 can be constants instead?"},
-		{.what Here, .desc "link",.here 2152, .there 48,.type Relativedictionary, .p 2120 },
-		{.what Here, .desc "len", .here 2160, .there 48,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 2161, .there 48,.type Chars, .str "Abortvec" },
-		{.what Here, .desc "cfa", .here 2168, .there 48,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2176, .there 48,.type Relativevar, .p FORTHVARS + 48 },
-	{.what Sourceline, .desc "MVENTRY \"Infd\" Infd 4"},
-		{.what Here, .desc "link",.here 2184, .there 56,.type Relativedictionary, .p 2152 },
-		{.what Here, .desc "len", .here 2192, .there 56,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 2193, .there 56,.type Chars, .str "Infd" },
-		{.what Here, .desc "cfa", .here 2200, .there 56,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2208, .there 56,.type Relativevar, .p FORTHVARS + 56 },
-	{.what Sourceline, .desc "MVENTRY \"Outfd\" Outfd 5"},
-		{.what Here, .desc "link",.here 2216, .there 64,.type Relativedictionary, .p 2184 },
-		{.what Here, .desc "len", .here 2224, .there 64,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 2225, .there 64,.type Chars, .str "Outfd" },
-		{.what Here, .desc "cfa", .here 2232, .there 64,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2240, .there 64,.type Relativevar, .p FORTHVARS + 64 },
-	{.what Sourceline, .desc "MVENTRY \"Errfd\" Errfd 5"},
-		{.what Here, .desc "link",.here 2248, .there 72,.type Relativedictionary, .p 2216 },
-		{.what Here, .desc "len", .here 2256, .there 72,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 2257, .there 72,.type Chars, .str "Errfd" },
-		{.what Here, .desc "cfa", .here 2264, .there 72,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2272, .there 72,.type Relativevar, .p FORTHVARS + 72 },
-	{.what Sourceline, .desc "MVENTRY \"Eof\" Eof 3"},
-		{.what Here, .desc "link",.here 2280, .there 80,.type Relativedictionary, .p 2248 },
-		{.what Here, .desc "len", .here 2288, .there 80,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 2289, .there 80,.type Chars, .str "Eof" },
-		{.what Here, .desc "cfa", .here 2296, .there 80,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2304, .there 80,.type Relativevar, .p FORTHVARS + 80 },
-	{.what Sourceline, .desc "MVENTRY \"Ninputs\" Ninputs 7"},
-		{.what Here, .desc "link",.here 2312, .there 88,.type Relativedictionary, .p 2280 },
-		{.what Here, .desc "len", .here 2320, .there 88,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 2321, .there 88,.type Chars, .str "Ninputs" },
-		{.what Here, .desc "cfa", .here 2328, .there 88,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2336, .there 88,.type Relativevar, .p FORTHVARS + 88 },
-	{.what Sourceline, .desc "MVENTRY \"H0\" H0 2		; here at startup"},
-		{.what Here, .desc "link",.here 2344, .there 96,.type Relativedictionary, .p 2312 },
-		{.what Here, .desc "len", .here 2352, .there 96,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 2353, .there 96,.type Chars, .str "H0" },
-		{.what Here, .desc "cfa", .here 2360, .there 96,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2368, .there 96,.type Relativevar, .p FORTHVARS + 96 },
-	{.what Sourceline, .desc "MVENTRY \"Bufferfds\" Bufferfds 9 16"},
-		{.what Here, .desc "link",.here 2376, .there 104,.type Relativedictionary, .p 2344 },
-		{.what Here, .desc "len", .here 2384, .there 104,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 2385, .there 104,.type Chars, .str "Bufferfds" },
-		{.what Here, .desc "cfa", .here 2392, .there 104,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2400, .there 104,.type Relativevar, .p FORTHVARS + 104 },
-	{.what Sourceline, .desc "MVENTRY \"Bufferfilenames\" Bufferfilenames 15 16 ; counted string labels of the searchers populated by boot"},
-		{.what Here, .desc "link",.here 2408, .there 232,.type Relativedictionary, .p 2376 },
-		{.what Here, .desc "len", .here 2416, .there 232,.type Byte, .b 0 + 15 },
-		{.what Here, .desc "name",.here 2417, .there 232,.type Chars, .str "Bufferfilenames" },
-		{.what Here, .desc "cfa", .here 2424, .there 232,.type Absoluteptr, .ptr variable },
-		{.what Here, .desc "pfa", .here 2432, .there 232,.type Relativevar, .p FORTHVARS + 232 },
-	{.what Sourceline, .desc "CENTRY \"false\" false 5"},
-		{.what Here, .desc "link",.here 2440, .there 360,.type Relativedictionary, .p 2408 },
-		{.what Here, .desc "len", .here 2448, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 2449, .there 360,.type Chars, .str "false" },
-		{.what Here, .desc "cfa", .here 2456, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2464, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 2472, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2480, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"true\" true 4"},
-		{.what Here, .desc "link",.here 2488, .there 360,.type Relativedictionary, .p 2440 },
-		{.what Here, .desc "len", .here 2496, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 2497, .there 360,.type Chars, .str "true" },
-		{.what Here, .desc "cfa", .here 2504, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2512, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 2520, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2528, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"bl\" bl 2"},
-		{.what Here, .desc "link",.here 2536, .there 360,.type Relativedictionary, .p 2488 },
-		{.what Here, .desc "len", .here 2544, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 2545, .there 360,.type Chars, .str "bl" },
-		{.what Here, .desc "cfa", .here 2552, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2560, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 32"},
-		{.what Here, .desc "value", .here 2568, .there 360,.type Absolute, .p 32 },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2576, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"on\" on 2 ; ( a -- ) (G stores -1 at a )"},
-		{.what Here, .desc "link",.here 2584, .there 360,.type Relativedictionary, .p 2536 },
-		{.what Here, .desc "len", .here 2592, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 2593, .there 360,.type Chars, .str "on" },
-		{.what Here, .desc "cfa", .here 2600, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2608, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 2616, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 2624, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 2632, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2640, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"off\" off 3 ; ( a -- ) (G stores 0 at a )"},
-		{.what Here, .desc "link",.here 2648, .there 360,.type Relativedictionary, .p 2584 },
-		{.what Here, .desc "len", .here 2656, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 2657, .there 360,.type Chars, .str "off" },
-		{.what Here, .desc "cfa", .here 2664, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2672, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 2680, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 2688, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 2696, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2704, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \">body\" tobody 5"},
-		{.what Here, .desc "link",.here 2712, .there 360,.type Relativedictionary, .p 2648 },
-		{.what Here, .desc "len", .here 2720, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 2721, .there 360,.type Chars, .str ">body" },
-		{.what Here, .desc "cfa", .here 2728, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2736, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 8"},
-		{.what Here, .desc "value", .here 2744, .there 360,.type Absolute, .p 8 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 2752, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2760, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"aligned\" aligned 7 ; align a number to a multiple of 8"},
-		{.what Here, .desc "link",.here 2768, .there 360,.type Relativedictionary, .p 2712 },
-		{.what Here, .desc "len", .here 2776, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 2777, .there 360,.type Chars, .str "aligned" },
-		{.what Here, .desc "cfa", .here 2784, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2792, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 7"},
-		{.what Here, .desc "value", .here 2800, .there 360,.type Absolute, .p 7 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 2808, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2816, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -8"},
-		{.what Here, .desc "value", .here 2824, .there 360,.type Absolute, .p -8 },
-	{.what Sourceline, .desc "dd M_binand"},
-		{.what Here, .desc "address", .here 2832, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2840, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cells\" cells 5"},
-		{.what Here, .desc "link",.here 2848, .there 360,.type Relativedictionary, .p 2768 },
-		{.what Here, .desc "len", .here 2856, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 2857, .there 360,.type Chars, .str "cells" },
-		{.what Here, .desc "cfa", .here 2864, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2872, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 3			; (index << 2) -> (index << 3) for amd64"},
-		{.what Here, .desc "value", .here 2880, .there 360,.type Absolute, .p 3 },
-	{.what Sourceline, .desc "dd M_lshift"},
-		{.what Here, .desc "address", .here 2888, .there 360,.type Relativedictionary, .p M_lshift },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2896, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cells+\" cells_plus 6 ; ( n1 n2 -- n1+(n2*cellsize) )"},
-		{.what Here, .desc "link",.here 2904, .there 360,.type Relativedictionary, .p 2848 },
-		{.what Here, .desc "len", .here 2912, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 2913, .there 360,.type Chars, .str "cells+" },
-		{.what Here, .desc "cfa", .here 2920, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 2928, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 2936, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 2944, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cell+\" cell_plus 5"},
-		{.what Here, .desc "link",.here 2952, .there 360,.type Relativedictionary, .p 2904 },
-		{.what Here, .desc "len", .here 2960, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 2961, .there 360,.type Chars, .str "cell+" },
-		{.what Here, .desc "cfa", .here 2968, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 2976, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 2984, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells_plus"},
-		{.what Here, .desc "address", .here 2992, .there 360,.type Relativedictionary, .p C_cells_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3000, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"depth\" depth 5"},
-		{.what Here, .desc "link",.here 3008, .there 360,.type Relativedictionary, .p 2952 },
-		{.what Here, .desc "len", .here 3016, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 3017, .there 360,.type Chars, .str "depth" },
-		{.what Here, .desc "cfa", .here 3024, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_S0"},
-		{.what Here, .desc "address", .here 3032, .there 360,.type Relativedictionary, .p MV_S0 },
-	{.what Sourceline, .desc "dd M_stackptr"},
-		{.what Here, .desc "address", .here 3040, .there 360,.type Relativedictionary, .p M_stackptr },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 3048, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 3056, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 3"},
-		{.what Here, .desc "value", .here 3064, .there 360,.type Absolute, .p 3 },
-	{.what Sourceline, .desc "dd M_rshift"},
-		{.what Here, .desc "address", .here 3072, .there 360,.type Relativedictionary, .p M_rshift },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 3080, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 3088, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 3096, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3104, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"nip\" nip 3"},
-		{.what Here, .desc "link",.here 3112, .there 360,.type Relativedictionary, .p 3008 },
-		{.what Here, .desc "len", .here 3120, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 3121, .there 360,.type Chars, .str "nip" },
-		{.what Here, .desc "cfa", .here 3128, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 3136, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 3144, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3152, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"rot\" rot 3"},
-		{.what Here, .desc "link",.here 3160, .there 360,.type Relativedictionary, .p 3112 },
-		{.what Here, .desc "len", .here 3168, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 3169, .there 360,.type Chars, .str "rot" },
-		{.what Here, .desc "cfa", .here 3176, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 3184, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 3192, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 3200, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 3208, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3216, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"2drop\" 2drop 5"},
-		{.what Here, .desc "link",.here 3224, .there 360,.type Relativedictionary, .p 3160 },
-		{.what Here, .desc "len", .here 3232, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 3233, .there 360,.type Chars, .str "2drop" },
-		{.what Here, .desc "cfa", .here 3240, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 3248, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 3256, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3264, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"2dup\" 2dup 4"},
-		{.what Here, .desc "link",.here 3272, .there 360,.type Relativedictionary, .p 3224 },
-		{.what Here, .desc "len", .here 3280, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 3281, .there 360,.type Chars, .str "2dup" },
-		{.what Here, .desc "cfa", .here 3288, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 3296, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 3304, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3312, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"2nip\" 2nip 4"},
-		{.what Here, .desc "link",.here 3320, .there 360,.type Relativedictionary, .p 3272 },
-		{.what Here, .desc "len", .here 3328, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 3329, .there 360,.type Chars, .str "2nip" },
-		{.what Here, .desc "cfa", .here 3336, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_nip"},
-		{.what Here, .desc "address", .here 3344, .there 360,.type Relativedictionary, .p C_nip },
-	{.what Sourceline, .desc "dd C_nip"},
-		{.what Here, .desc "address", .here 3352, .there 360,.type Relativedictionary, .p C_nip },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3360, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"2swap\" 2swap 5"},
-		{.what Here, .desc "link",.here 3368, .there 360,.type Relativedictionary, .p 3320 },
-		{.what Here, .desc "len", .here 3376, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 3377, .there 360,.type Chars, .str "2swap" },
-		{.what Here, .desc "cfa", .here 3384, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_rot"},
-		{.what Here, .desc "address", .here 3392, .there 360,.type Relativedictionary, .p C_rot },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 3400, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_rot"},
-		{.what Here, .desc "address", .here 3408, .there 360,.type Relativedictionary, .p C_rot },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 3416, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3424, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"?dup\" qdup 4 ; if (n != 0) ( n -- n n) else ( n -- n )"},
-		{.what Here, .desc "link",.here 3432, .there 360,.type Relativedictionary, .p 3368 },
-		{.what Here, .desc "len", .here 3440, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 3441, .there 360,.type Chars, .str "?dup" },
-		{.what Here, .desc "cfa", .here 3448, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup	; ( n -- n n )"},
-		{.what Here, .desc "address", .here 3456, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_dup	; ( n n -- n n n )"},
-		{.what Here, .desc "address", .here 3464, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 3472, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0		; ( n n n -- n n n 0 )"},
-		{.what Here, .desc "value", .here 3480, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_equal	; ( n n n 0 -- n n f )"},
-		{.what Here, .desc "address", .here 3488, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd M_cjump	; ( n n f -- n n )"},
-		{.what Here, .desc "address", .here 3496, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_qdup	; when n != 0, go to L20"},
-		{.what Here, .desc "address", .here 3504, .there 360,.type Relativedictionary, .p L_C_qdup },
-	{.what Sourceline, .desc "dd M_drop	; when n == 0 ( n n -- n)"},
-		{.what Here, .desc "address", .here 3512, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "L_C_qdup:		; when n != 0 ( n n )"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3520, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"pick\" pick 4"},
-		{.what Here, .desc "link",.here 3528, .there 360,.type Relativedictionary, .p 3432 },
-		{.what Here, .desc "len", .here 3536, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 3537, .there 360,.type Chars, .str "pick" },
-		{.what Here, .desc "cfa", .here 3544, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_qdup"},
-		{.what Here, .desc "address", .here 3552, .there 360,.type Relativedictionary, .p C_qdup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 3560, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_pick"},
-		{.what Here, .desc "address", .here 3568, .there 360,.type Relativedictionary, .p L_C_pick },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 3576, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 3584, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 3592, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 3600, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_stackptr"},
-		{.what Here, .desc "address", .here 3608, .there 360,.type Relativedictionary, .p M_stackptr },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 3616, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 3624, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 3632, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_pick_1"},
-		{.what Here, .desc "address", .here 3640, .there 360,.type Relativedictionary, .p L_C_pick_1 },
-	{.what Sourceline, .desc "L_C_pick:"},
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 3648, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "L_C_pick_1:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3656, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"tuck\" tuck 4"},
-		{.what Here, .desc "link",.here 3664, .there 360,.type Relativedictionary, .p 3528 },
-		{.what Here, .desc "len", .here 3672, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 3673, .there 360,.type Chars, .str "tuck" },
-		{.what Here, .desc "cfa", .here 3680, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 3688, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 3696, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 3704, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 3712, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3720, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"/\" divides 1"},
-		{.what Here, .desc "link",.here 3728, .there 360,.type Relativedictionary, .p 3664 },
-		{.what Here, .desc "len", .here 3736, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 3737, .there 360,.type Chars, .str "/" },
-		{.what Here, .desc "cfa", .here 3744, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_slashmod"},
-		{.what Here, .desc "address", .here 3752, .there 360,.type Relativedictionary, .p M_slashmod },
-	{.what Sourceline, .desc "dd C_nip"},
-		{.what Here, .desc "address", .here 3760, .there 360,.type Relativedictionary, .p C_nip },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3768, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"+!\" plusstore 2 ; ( n 'a -- ) a@ = a@+n"},
-		{.what Here, .desc "link",.here 3776, .there 360,.type Relativedictionary, .p 3728 },
-		{.what Here, .desc "len", .here 3784, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 3785, .there 360,.type Chars, .str "+!" },
-		{.what Here, .desc "cfa", .here 3792, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 3800, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 3808, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_rot"},
-		{.what Here, .desc "address", .here 3816, .there 360,.type Relativedictionary, .p C_rot },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 3824, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 3832, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 3840, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3848, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"invert\" invert 6"},
-		{.what Here, .desc "link",.here 3856, .there 360,.type Relativedictionary, .p 3776 },
-		{.what Here, .desc "len", .here 3864, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 3865, .there 360,.type Chars, .str "invert" },
-		{.what Here, .desc "cfa", .here 3872, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 3880, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 3888, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_binxor"},
-		{.what Here, .desc "address", .here 3896, .there 360,.type Relativedictionary, .p M_binxor },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3904, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"mod\" mod 3"},
-		{.what Here, .desc "link",.here 3912, .there 360,.type Relativedictionary, .p 3856 },
-		{.what Here, .desc "len", .here 3920, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 3921, .there 360,.type Chars, .str "mod" },
-		{.what Here, .desc "cfa", .here 3928, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_slashmod"},
-		{.what Here, .desc "address", .here 3936, .there 360,.type Relativedictionary, .p M_slashmod },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 3944, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 3952, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"1+\" 1plus 2"},
-		{.what Here, .desc "link",.here 3960, .there 360,.type Relativedictionary, .p 3912 },
-		{.what Here, .desc "len", .here 3968, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 3969, .there 360,.type Chars, .str "1+" },
-		{.what Here, .desc "cfa", .here 3976, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 3984, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 3992, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 4000, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4008, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"1-\" 1minus 2"},
-		{.what Here, .desc "link",.here 4016, .there 360,.type Relativedictionary, .p 3960 },
-		{.what Here, .desc "len", .here 4024, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 4025, .there 360,.type Chars, .str "1-" },
-		{.what Here, .desc "cfa", .here 4032, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4040, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 4048, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 4056, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4064, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"negate\" negate 6"},
-		{.what Here, .desc "link",.here 4072, .there 360,.type Relativedictionary, .p 4016 },
-		{.what Here, .desc "len", .here 4080, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 4081, .there 360,.type Chars, .str "negate" },
-		{.what Here, .desc "cfa", .here 4088, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4096, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 4104, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 4112, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 4120, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4128, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"2*\" 2multiplies 2"},
-		{.what Here, .desc "link",.here 4136, .there 360,.type Relativedictionary, .p 4072 },
-		{.what Here, .desc "len", .here 4144, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 4145, .there 360,.type Chars, .str "2*" },
-		{.what Here, .desc "cfa", .here 4152, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4160, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 4168, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_lshift"},
-		{.what Here, .desc "address", .here 4176, .there 360,.type Relativedictionary, .p M_lshift },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4184, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"2/\" 2divides 2"},
-		{.what Here, .desc "link",.here 4192, .there 360,.type Relativedictionary, .p 4136 },
-		{.what Here, .desc "len", .here 4200, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 4201, .there 360,.type Chars, .str "2/" },
-		{.what Here, .desc "cfa", .here 4208, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4216, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 4224, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_rshifta"},
-		{.what Here, .desc "address", .here 4232, .there 360,.type Relativedictionary, .p M_rshifta },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4240, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"0=\" 0eq 2"},
-		{.what Here, .desc "link",.here 4248, .there 360,.type Relativedictionary, .p 4192 },
-		{.what Here, .desc "len", .here 4256, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 4257, .there 360,.type Chars, .str "0=" },
-		{.what Here, .desc "cfa", .here 4264, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4272, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 4280, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_equal"},
-		{.what Here, .desc "address", .here 4288, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4296, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"0<\" 0lt 2"},
-		{.what Here, .desc "link",.here 4304, .there 360,.type Relativedictionary, .p 4248 },
-		{.what Here, .desc "len", .here 4312, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 4313, .there 360,.type Chars, .str "0<" },
-		{.what Here, .desc "cfa", .here 4320, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4328, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 4336, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_less"},
-		{.what Here, .desc "address", .here 4344, .there 360,.type Relativedictionary, .p M_less },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4352, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"0>\" 0gt 2"},
-		{.what Here, .desc "link",.here 4360, .there 360,.type Relativedictionary, .p 4304 },
-		{.what Here, .desc "len", .here 4368, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 4369, .there 360,.type Chars, .str "0>" },
-		{.what Here, .desc "cfa", .here 4376, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4384, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 4392, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 4400, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4408, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"<>\" neq 2"},
-		{.what Here, .desc "link",.here 4416, .there 360,.type Relativedictionary, .p 4360 },
-		{.what Here, .desc "len", .here 4424, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 4425, .there 360,.type Chars, .str "<>" },
-		{.what Here, .desc "cfa", .here 4432, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_equal"},
-		{.what Here, .desc "address", .here 4440, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd C_invert"},
-		{.what Here, .desc "address", .here 4448, .there 360,.type Relativedictionary, .p C_invert },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4456, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"0<>\" 0neq 3"},
-		{.what Here, .desc "link",.here 4464, .there 360,.type Relativedictionary, .p 4416 },
-		{.what Here, .desc "len", .here 4472, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 4473, .there 360,.type Chars, .str "0<>" },
-		{.what Here, .desc "cfa", .here 4480, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4488, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 4496, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd C_neq"},
-		{.what Here, .desc "address", .here 4504, .there 360,.type Relativedictionary, .p C_neq },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4512, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"max\" max 3"},
-		{.what Here, .desc "link",.here 4520, .there 360,.type Relativedictionary, .p 4464 },
-		{.what Here, .desc "len", .here 4528, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 4529, .there 360,.type Chars, .str "max" },
-		{.what Here, .desc "cfa", .here 4536, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_2dup"},
-		{.what Here, .desc "address", .here 4544, .there 360,.type Relativedictionary, .p C_2dup },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 4552, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 4560, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_max"},
-		{.what Here, .desc "address", .here 4568, .there 360,.type Relativedictionary, .p L_C_max },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 4576, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 4584, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_max_1"},
-		{.what Here, .desc "address", .here 4592, .there 360,.type Relativedictionary, .p L_C_max_1 },
-	{.what Sourceline, .desc "L_C_max:"},
-	{.what Sourceline, .desc "dd C_nip"},
-		{.what Here, .desc "address", .here 4600, .there 360,.type Relativedictionary, .p C_nip },
-	{.what Sourceline, .desc "L_C_max_1:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4608, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"min\" min 3"},
-		{.what Here, .desc "link",.here 4616, .there 360,.type Relativedictionary, .p 4520 },
-		{.what Here, .desc "len", .here 4624, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 4625, .there 360,.type Chars, .str "min" },
-		{.what Here, .desc "cfa", .here 4632, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_2dup"},
-		{.what Here, .desc "address", .here 4640, .there 360,.type Relativedictionary, .p C_2dup },
-	{.what Sourceline, .desc "dd M_less"},
-		{.what Here, .desc "address", .here 4648, .there 360,.type Relativedictionary, .p M_less },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 4656, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_min"},
-		{.what Here, .desc "address", .here 4664, .there 360,.type Relativedictionary, .p L_C_min },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 4672, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 4680, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_min_1"},
-		{.what Here, .desc "address", .here 4688, .there 360,.type Relativedictionary, .p L_C_min_1 },
-	{.what Sourceline, .desc "L_C_min:"},
-	{.what Sourceline, .desc "dd C_nip"},
-		{.what Here, .desc "address", .here 4696, .there 360,.type Relativedictionary, .p C_nip },
-	{.what Sourceline, .desc "L_C_min_1:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4704, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"signum\" signum 6"},
-		{.what Here, .desc "link",.here 4712, .there 360,.type Relativedictionary, .p 4616 },
-		{.what Here, .desc "len", .here 4720, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 4721, .there 360,.type Chars, .str "signum" },
-		{.what Here, .desc "cfa", .here 4728, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 4736, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_0gt"},
-		{.what Here, .desc "address", .here 4744, .there 360,.type Relativedictionary, .p C_0gt },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 4752, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_signum"},
-		{.what Here, .desc "address", .here 4760, .there 360,.type Relativedictionary, .p L_C_signum },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 4768, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4776, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 4784, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 4792, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_signum_1"},
-		{.what Here, .desc "address", .here 4800, .there 360,.type Relativedictionary, .p L_C_signum_1 },
-	{.what Sourceline, .desc "L_C_signum:"},
-	{.what Sourceline, .desc "dd C_0lt"},
-		{.what Here, .desc "address", .here 4808, .there 360,.type Relativedictionary, .p C_0lt },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 4816, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_signum_2"},
-		{.what Here, .desc "address", .here 4824, .there 360,.type Relativedictionary, .p L_C_signum_2 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4832, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 4840, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 4848, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_signum_3"},
-		{.what Here, .desc "address", .here 4856, .there 360,.type Relativedictionary, .p L_C_signum_3 },
-	{.what Sourceline, .desc "L_C_signum_2:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 4864, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 4872, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "L_C_signum_3:"},
-	{.what Sourceline, .desc "L_C_signum_1:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4880, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"within\" within 6"},
-		{.what Here, .desc "link",.here 4888, .there 360,.type Relativedictionary, .p 4712 },
-		{.what Here, .desc "len", .here 4896, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 4897, .there 360,.type Chars, .str "within" },
-		{.what Here, .desc "cfa", .here 4904, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 4912, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 4920, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 4928, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 4936, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 4944, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 4952, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 4960, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 4968, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_binand"},
-		{.what Here, .desc "address", .here 4976, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 4984, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"abs\" abs 3"},
-		{.what Here, .desc "link",.here 4992, .there 360,.type Relativedictionary, .p 4888 },
-		{.what Here, .desc "len", .here 5000, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 5001, .there 360,.type Chars, .str "abs" },
-		{.what Here, .desc "cfa", .here 5008, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 5016, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_0lt"},
-		{.what Here, .desc "address", .here 5024, .there 360,.type Relativedictionary, .p C_0lt },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 5032, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_abs"},
-		{.what Here, .desc "address", .here 5040, .there 360,.type Relativedictionary, .p L_C_abs },
-	{.what Sourceline, .desc "dd C_negate"},
-		{.what Here, .desc "address", .here 5048, .there 360,.type Relativedictionary, .p C_negate },
-	{.what Sourceline, .desc "L_C_abs:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5056, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"emit\" emit 4 ; ( character -- )"},
-		{.what Here, .desc "link",.here 5064, .there 360,.type Relativedictionary, .p 4992 },
-		{.what Here, .desc "len", .here 5072, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 5073, .there 360,.type Chars, .str "emit" },
-		{.what Here, .desc "cfa", .here 5080, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Iobuf		; variable iobuf address"},
-		{.what Here, .desc "address", .here 5088, .there 360,.type Relativedictionary, .p MV_Iobuf },
-	{.what Sourceline, .desc "dd M_cstore	; variable iobuf has character"},
-		{.what Here, .desc "address", .here 5096, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd MV_Outfd"},
-		{.what Here, .desc "address", .here 5104, .there 360,.type Relativedictionary, .p MV_Outfd },
-	{.what Sourceline, .desc "dd M_fetch		; outfd"},
-		{.what Here, .desc "address", .here 5112, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd MV_Iobuf		; variable iobuf address"},
-		{.what Here, .desc "address", .here 5120, .there 360,.type Relativedictionary, .p MV_Iobuf },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 5128, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1			; ( outfd iobuf 1 )"},
-		{.what Here, .desc "value", .here 5136, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_syswrite	; ( 1 iobuf outfd --  )"},
-		{.what Here, .desc "address", .here 5144, .there 360,.type Relativedictionary, .p M_syswrite },
-	{.what Sourceline, .desc "dd M_drop		; drop the return value of write"},
-		{.what Here, .desc "address", .here 5152, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5160, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"type\" type 4 ; ( addr n -- )"},
-		{.what Here, .desc "link",.here 5168, .there 360,.type Relativedictionary, .p 5064 },
-		{.what Here, .desc "len", .here 5176, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 5177, .there 360,.type Chars, .str "type" },
-		{.what Here, .desc "cfa", .here 5184, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_rpush		; ( addr ) (R n )"},
-		{.what Here, .desc "address", .here 5192, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_rpush		; ( ) (R n addr )"},
-		{.what Here, .desc "address", .here 5200, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd MV_Outfd"},
-		{.what Here, .desc "address", .here 5208, .there 360,.type Relativedictionary, .p MV_Outfd },
-	{.what Sourceline, .desc "dd M_fetch		; ( outfd )"},
-		{.what Here, .desc "address", .here 5216, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_rpop		; ( outfd addr ) (R n )"},
-		{.what Here, .desc "address", .here 5224, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_rpop		; ( outfd addr n ) (R )"},
-		{.what Here, .desc "address", .here 5232, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_syswrite	; ( 1 addr n --  )"},
-		{.what Here, .desc "address", .here 5240, .there 360,.type Relativedictionary, .p M_syswrite },
-	{.what Sourceline, .desc "dd M_drop		; drop the return value of write"},
-		{.what Here, .desc "address", .here 5248, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5256, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cr\" cr 2"},
-		{.what Here, .desc "link",.here 5264, .there 360,.type Relativedictionary, .p 5168 },
-		{.what Here, .desc "len", .here 5272, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 5273, .there 360,.type Chars, .str "cr" },
-		{.what Here, .desc "cfa", .here 5280, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 5288, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 10			; ascii value of carriage return"},
-		{.what Here, .desc "value", .here 5296, .there 360,.type Absolute, .p 10 },
-	{.what Sourceline, .desc "dd C_emit			; emit"},
-		{.what Here, .desc "address", .here 5304, .there 360,.type Relativedictionary, .p C_emit },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5312, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"space\" space 5"},
-		{.what Here, .desc "link",.here 5320, .there 360,.type Relativedictionary, .p 5264 },
-		{.what Here, .desc "len", .here 5328, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 5329, .there 360,.type Chars, .str "space" },
-		{.what Here, .desc "cfa", .here 5336, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_bl"},
-		{.what Here, .desc "address", .here 5344, .there 360,.type Relativedictionary, .p C_bl },
-	{.what Sourceline, .desc "dd C_emit"},
-		{.what Here, .desc "address", .here 5352, .there 360,.type Relativedictionary, .p C_emit },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5360, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"emits\" emits 5"},
-		{.what Here, .desc "link",.here 5368, .there 360,.type Relativedictionary, .p 5320 },
-		{.what Here, .desc "len", .here 5376, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 5377, .there 360,.type Chars, .str "emits" },
-		{.what Here, .desc "cfa", .here 5384, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "L_C_emits:"},
-	{.what Sourceline, .desc "dd C_qdup"},
-		{.what Here, .desc "address", .here 5392, .there 360,.type Relativedictionary, .p C_qdup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 5400, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_emits_1"},
-		{.what Here, .desc "address", .here 5408, .there 360,.type Relativedictionary, .p L_C_emits_1 },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 5416, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd C_emit"},
-		{.what Here, .desc "address", .here 5424, .there 360,.type Relativedictionary, .p C_emit },
-	{.what Sourceline, .desc "dd C_1minus"},
-		{.what Here, .desc "address", .here 5432, .there 360,.type Relativedictionary, .p C_1minus },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 5440, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_emits"},
-		{.what Here, .desc "address", .here 5448, .there 360,.type Relativedictionary, .p L_C_emits },
-	{.what Sourceline, .desc "L_C_emits_1:"},
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 5456, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5464, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"spaces\" spaces 6"},
-		{.what Here, .desc "link",.here 5472, .there 360,.type Relativedictionary, .p 5368 },
-		{.what Here, .desc "len", .here 5480, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 5481, .there 360,.type Chars, .str "spaces" },
-		{.what Here, .desc "cfa", .here 5488, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_bl"},
-		{.what Here, .desc "address", .here 5496, .there 360,.type Relativedictionary, .p C_bl },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 5504, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd C_emits"},
-		{.what Here, .desc "address", .here 5512, .there 360,.type Relativedictionary, .p C_emits },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5520, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"count\" count 5 ; ( 'counted-string -- 'text count ) a = address of counted string ( a - a+1 a[0])"},
-		{.what Here, .desc "link",.here 5528, .there 360,.type Relativedictionary, .p 5472 },
-		{.what Here, .desc "len", .here 5536, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 5537, .there 360,.type Chars, .str "count" },
-		{.what Here, .desc "cfa", .here 5544, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_1plus"},
-		{.what Here, .desc "address", .here 5552, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 5560, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_1minus"},
-		{.what Here, .desc "address", .here 5568, .there 360,.type Relativedictionary, .p C_1minus },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 5576, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5584, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "dd C_2dup ; debug show the word name to search"},
-		{.what Here, .desc "address", .here 5592, .there 360,.type Relativedictionary, .p C_2dup },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 5600, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 5608, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd M_rpush ; debug show the dictionary entry"},
-		{.what Here, .desc "address", .here 5616, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 5624, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_2dup"},
-		{.what Here, .desc "address", .here 5632, .there 360,.type Relativedictionary, .p C_2dup },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 5640, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 5648, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 5656, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 5664, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "CENTRY \"compare\" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search"},
-		{.what Here, .desc "link",.here 5672, .there 360,.type Relativedictionary, .p 5528 },
-		{.what Here, .desc "len", .here 5680, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 5681, .there 360,.type Chars, .str "compare" },
-		{.what Here, .desc "cfa", .here 5688, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_rot	; ( a1 n1 a2 n2 -- a1 a2 n2 n1 )"},
-		{.what Here, .desc "address", .here 5696, .there 360,.type Relativedictionary, .p C_rot },
-	{.what Sourceline, .desc "dd C_2dup	; ( -- a1 a2 n2 n1 n2 n1 )"},
-		{.what Here, .desc "address", .here 5704, .there 360,.type Relativedictionary, .p C_2dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( -- a1 a2 n2 n1 n2 ) (R n1 -- )"},
-		{.what Here, .desc "address", .here 5712, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_rpush	; ( -- a1 a2 n2 n1 ) (R n1 n2 -- )"},
-		{.what Here, .desc "address", .here 5720, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_min	; ( -- a1 a2 nmin ) (R n1 n2 -- )"},
-		{.what Here, .desc "address", .here 5728, .there 360,.type Relativedictionary, .p C_min },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 5736, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0		; ( -- a1 a2 nmin 0 ) (R n1 n2 -- )"},
-		{.what Here, .desc "value", .here 5744, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit	; ( -- a1 a2 ) (R n1 n2 0 nmin -- )"},
-		{.what Here, .desc "address", .here 5752, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_compare:"},
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 5760, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_i"},
-		{.what Here, .desc "address", .here 5768, .there 360,.type Relativedictionary, .p M_i },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 5776, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 5784, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 5792, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_i"},
-		{.what Here, .desc "address", .here 5800, .there 360,.type Relativedictionary, .p M_i },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 5808, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 5816, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 5824, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd C_signum"},
-		{.what Here, .desc "address", .here 5832, .there 360,.type Relativedictionary, .p C_signum },
-	{.what Sourceline, .desc "dd C_qdup"},
-		{.what Here, .desc "address", .here 5840, .there 360,.type Relativedictionary, .p C_qdup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 5848, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_compare_1		; matches"},
-		{.what Here, .desc "address", .here 5856, .there 360,.type Relativedictionary, .p L_C_compare_1 },
-	{.what Sourceline, .desc "dd C_2nip	; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- )"},
-		{.what Here, .desc "address", .here 5864, .there 360,.type Relativedictionary, .p C_2nip },
-	{.what Sourceline, .desc "dd M_unloop	; ( f -- f ) (R n1 n2 0 nmin -- n1 n2)"},
-		{.what Here, .desc "address", .here 5872, .there 360,.type Relativedictionary, .p M_unloop },
-	{.what Sourceline, .desc "dd M_unloop	; ( f -- f ) (R n1 n2 -- )"},
-		{.what Here, .desc "address", .here 5880, .there 360,.type Relativedictionary, .p M_unloop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5888, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_compare_1:"},
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 5896, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_compare"},
-		{.what Here, .desc "address", .here 5904, .there 360,.type Relativedictionary, .p L_C_compare },
-	{.what Sourceline, .desc "dd C_2drop	; ( a1 a2 -- ) (R n1 n2 -- )"},
-		{.what Here, .desc "address", .here 5912, .there 360,.type Relativedictionary, .p C_2drop },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 5920, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_rpop	; ( n2 n1 -- ) (R -- )"},
-		{.what Here, .desc "address", .here 5928, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_minus	; ( -- n1-n2 )"},
-		{.what Here, .desc "address", .here 5936, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd C_signum"},
-		{.what Here, .desc "address", .here 5944, .there 360,.type Relativedictionary, .p C_signum },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 5952, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"erase\" erase 5"},
-		{.what Here, .desc "link",.here 5960, .there 360,.type Relativedictionary, .p 5672 },
-		{.what Here, .desc "len", .here 5968, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 5969, .there 360,.type Chars, .str "erase" },
-		{.what Here, .desc "cfa", .here 5976, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 5984, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 5992, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 6000, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_erase:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 6008, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 6016, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 6024, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 6032, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd C_1plus"},
-		{.what Here, .desc "address", .here 6040, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 6048, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_erase"},
-		{.what Here, .desc "address", .here 6056, .there 360,.type Relativedictionary, .p L_C_erase },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 6064, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6072, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"fill\" fill 4"},
-		{.what Here, .desc "link",.here 6080, .there 360,.type Relativedictionary, .p 5960 },
-		{.what Here, .desc "len", .here 6088, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 6089, .there 360,.type Chars, .str "fill" },
-		{.what Here, .desc "cfa", .here 6096, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 6104, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 6112, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 6120, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 6128, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_fill:"},
-	{.what Sourceline, .desc "dd C_2dup"},
-		{.what Here, .desc "address", .here 6136, .there 360,.type Relativedictionary, .p C_2dup },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 6144, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_i"},
-		{.what Here, .desc "address", .here 6152, .there 360,.type Relativedictionary, .p M_i },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 6160, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 6168, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 6176, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_fill"},
-		{.what Here, .desc "address", .here 6184, .there 360,.type Relativedictionary, .p L_C_fill },
-	{.what Sourceline, .desc "dd C_2drop"},
-		{.what Here, .desc "address", .here 6192, .there 360,.type Relativedictionary, .p C_2drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6200, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"blank\" blank 5"},
-		{.what Here, .desc "link",.here 6208, .there 360,.type Relativedictionary, .p 6080 },
-		{.what Here, .desc "len", .here 6216, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 6217, .there 360,.type Chars, .str "blank" },
-		{.what Here, .desc "cfa", .here 6224, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_bl"},
-		{.what Here, .desc "address", .here 6232, .there 360,.type Relativedictionary, .p C_bl },
-	{.what Sourceline, .desc "dd C_fill"},
-		{.what Here, .desc "address", .here 6240, .there 360,.type Relativedictionary, .p C_fill },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6248, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"search\" search 6"},
-		{.what Here, .desc "link",.here 6256, .there 360,.type Relativedictionary, .p 6208 },
-		{.what Here, .desc "len", .here 6264, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 6265, .there 360,.type Chars, .str "search" },
-		{.what Here, .desc "cfa", .here 6272, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Searchlen"},
-		{.what Here, .desc "address", .here 6280, .there 360,.type Relativedictionary, .p MV_Searchlen },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 6288, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 6296, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 6304, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 6312, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd MV_Searchlen"},
-		{.what Here, .desc "address", .here 6320, .there 360,.type Relativedictionary, .p MV_Searchlen },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 6328, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 6336, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd C_1plus"},
-		{.what Here, .desc "address", .here 6344, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 6352, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 6360, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 6368, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_search:"},
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 6376, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_i"},
-		{.what Here, .desc "address", .here 6384, .there 360,.type Relativedictionary, .p M_i },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 6392, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 6400, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd MV_Searchlen"},
-		{.what Here, .desc "address", .here 6408, .there 360,.type Relativedictionary, .p MV_Searchlen },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 6416, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 6424, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd MV_Searchlen"},
-		{.what Here, .desc "address", .here 6432, .there 360,.type Relativedictionary, .p MV_Searchlen },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 6440, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_compare"},
-		{.what Here, .desc "address", .here 6448, .there 360,.type Relativedictionary, .p C_compare },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 6456, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 6464, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_search_1"},
-		{.what Here, .desc "address", .here 6472, .there 360,.type Relativedictionary, .p L_C_search_1 },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 6480, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_i"},
-		{.what Here, .desc "address", .here 6488, .there 360,.type Relativedictionary, .p M_i },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 6496, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_i"},
-		{.what Here, .desc "address", .here 6504, .there 360,.type Relativedictionary, .p M_i },
-	{.what Sourceline, .desc "dd M_unloop"},
-		{.what Here, .desc "address", .here 6512, .there 360,.type Relativedictionary, .p M_unloop },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 6520, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 6528, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 6536, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd C_true"},
-		{.what Here, .desc "address", .here 6544, .there 360,.type Relativedictionary, .p C_true },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6552, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_search_1:"},
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 6560, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_search"},
-		{.what Here, .desc "address", .here 6568, .there 360,.type Relativedictionary, .p L_C_search },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 6576, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 6584, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_false"},
-		{.what Here, .desc "address", .here 6592, .there 360,.type Relativedictionary, .p C_false },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6600, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"here\" here 4"},
-		{.what Here, .desc "link",.here 6608, .there 360,.type Relativedictionary, .p 6256 },
-		{.what Here, .desc "len", .here 6616, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 6617, .there 360,.type Chars, .str "here" },
-		{.what Here, .desc "cfa", .here 6624, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Dp		; the address on the top of stack is 0x583288, which is correct"},
-		{.what Here, .desc "address", .here 6632, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 6640, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6648, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"there\" there 5 ; variable here"},
-		{.what Here, .desc "link",.here 6656, .there 360,.type Relativedictionary, .p 6608 },
-		{.what Here, .desc "len", .here 6664, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 6665, .there 360,.type Chars, .str "there" },
-		{.what Here, .desc "cfa", .here 6672, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Vp"},
-		{.what Here, .desc "address", .here 6680, .there 360,.type Relativedictionary, .p MV_Vp },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 6688, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6696, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \",\" comma 1"},
-		{.what Here, .desc "link",.here 6704, .there 360,.type Relativedictionary, .p 6656 },
-		{.what Here, .desc "len", .here 6712, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 6713, .there 360,.type Chars, .str "," },
-		{.what Here, .desc "cfa", .here 6720, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 6728, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 6736, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 6744, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 8"},
-		{.what Here, .desc "value", .here 6752, .there 360,.type Absolute, .p 8 },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 6760, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd C_plusstore"},
-		{.what Here, .desc "address", .here 6768, .there 360,.type Relativedictionary, .p C_plusstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6776, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"c,\" c 2"},
-		{.what Here, .desc "link",.here 6784, .there 360,.type Relativedictionary, .p 6704 },
-		{.what Here, .desc "len", .here 6792, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 6793, .there 360,.type Chars, .str "c," },
-		{.what Here, .desc "cfa", .here 6800, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 6808, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 6816, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 6824, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 6832, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 6840, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd C_plusstore"},
-		{.what Here, .desc "address", .here 6848, .there 360,.type Relativedictionary, .p C_plusstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6856, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"allot\" allot 5 ; ( n -- ) here = here+n"},
-		{.what Here, .desc "link",.here 6864, .there 360,.type Relativedictionary, .p 6784 },
-		{.what Here, .desc "len", .here 6872, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 6873, .there 360,.type Chars, .str "allot" },
-		{.what Here, .desc "cfa", .here 6880, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 6888, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd C_plusstore"},
-		{.what Here, .desc "address", .here 6896, .there 360,.type Relativedictionary, .p C_plusstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6904, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"vallot\" vallot 6 ; allot on the variable space ( n -- ) there = there+n"},
-		{.what Here, .desc "link",.here 6912, .there 360,.type Relativedictionary, .p 6864 },
-		{.what Here, .desc "len", .here 6920, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 6921, .there 360,.type Chars, .str "vallot" },
-		{.what Here, .desc "cfa", .here 6928, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Vp"},
-		{.what Here, .desc "address", .here 6936, .there 360,.type Relativedictionary, .p MV_Vp },
-	{.what Sourceline, .desc "dd C_plusstore"},
-		{.what Here, .desc "address", .here 6944, .there 360,.type Relativedictionary, .p C_plusstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 6952, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"pad\" pad 3"},
-		{.what Here, .desc "link",.here 6960, .there 360,.type Relativedictionary, .p 6912 },
-		{.what Here, .desc "len", .here 6968, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 6969, .there 360,.type Chars, .str "pad" },
-		{.what Here, .desc "cfa", .here 6976, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 6984, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 6992, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 256"},
-		{.what Here, .desc "value", .here 7000, .there 360,.type Absolute, .p 256 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 7008, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7016, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"align\" align 5 ; ( -- ) align here to a cell boundary"},
-		{.what Here, .desc "link",.here 7024, .there 360,.type Relativedictionary, .p 6960 },
-		{.what Here, .desc "len", .here 7032, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 7033, .there 360,.type Chars, .str "align" },
-		{.what Here, .desc "cfa", .here 7040, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_here		; Dp @"},
-		{.what Here, .desc "address", .here 7048, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd C_aligned	; here is aligned to a multiple of 8"},
-		{.what Here, .desc "address", .here 7056, .there 360,.type Relativedictionary, .p C_aligned },
-	{.what Sourceline, .desc "dd MV_Dp			; store the aligned here at Dp"},
-		{.what Here, .desc "address", .here 7064, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd M_store		; Dp contains aligned_here"},
-		{.what Here, .desc "address", .here 7072, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7080, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"unused\" unused 6"},
-		{.what Here, .desc "link",.here 7088, .there 360,.type Relativedictionary, .p 7024 },
-		{.what Here, .desc "len", .here 7096, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 7097, .there 360,.type Chars, .str "unused" },
-		{.what Here, .desc "cfa", .here 7104, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 7112, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 7120, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 7128, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 7136, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7144, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"<#\" fromhash 2"},
-		{.what Here, .desc "link",.here 7152, .there 360,.type Relativedictionary, .p 7088 },
-		{.what Here, .desc "len", .here 7160, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 7161, .there 360,.type Chars, .str "<#" },
-		{.what Here, .desc "cfa", .here 7168, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_pad"},
-		{.what Here, .desc "address", .here 7176, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7184, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1024"},
-		{.what Here, .desc "value", .here 7192, .there 360,.type Absolute, .p 1024 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 7200, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd MV_toNum"},
-		{.what Here, .desc "address", .here 7208, .there 360,.type Relativedictionary, .p MV_toNum },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 7216, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7224, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"#\" hash 1"},
-		{.what Here, .desc "link",.here 7232, .there 360,.type Relativedictionary, .p 7152 },
-		{.what Here, .desc "len", .here 7240, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 7241, .there 360,.type Chars, .str "#" },
-		{.what Here, .desc "cfa", .here 7248, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Base"},
-		{.what Here, .desc "address", .here 7256, .there 360,.type Relativedictionary, .p MV_Base },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 7264, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_uslashmod"},
-		{.what Here, .desc "address", .here 7272, .there 360,.type Relativedictionary, .p M_uslashmod },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 7280, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 7288, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7296, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 9"},
-		{.what Here, .desc "value", .here 7304, .there 360,.type Absolute, .p 9 },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 7312, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 7320, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_hash"},
-		{.what Here, .desc "address", .here 7328, .there 360,.type Relativedictionary, .p L_C_hash },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7336, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 97"},
-		{.what Here, .desc "value", .here 7344, .there 360,.type Absolute, .p 97 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 7352, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7360, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 10"},
-		{.what Here, .desc "value", .here 7368, .there 360,.type Absolute, .p 10 },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 7376, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 7384, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_hash_1"},
-		{.what Here, .desc "address", .here 7392, .there 360,.type Relativedictionary, .p L_C_hash_1 },
-	{.what Sourceline, .desc "L_C_hash:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7400, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 48"},
-		{.what Here, .desc "value", .here 7408, .there 360,.type Absolute, .p 48 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 7416, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "L_C_hash_1:"},
-	{.what Sourceline, .desc "dd MV_toNum"},
-		{.what Here, .desc "address", .here 7424, .there 360,.type Relativedictionary, .p MV_toNum },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 7432, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_1minus"},
-		{.what Here, .desc "address", .here 7440, .there 360,.type Relativedictionary, .p C_1minus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 7448, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd MV_toNum"},
-		{.what Here, .desc "address", .here 7456, .there 360,.type Relativedictionary, .p MV_toNum },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 7464, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 7472, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7480, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"#s\" hashs 2"},
-		{.what Here, .desc "link",.here 7488, .there 360,.type Relativedictionary, .p 7232 },
-		{.what Here, .desc "len", .here 7496, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 7497, .there 360,.type Chars, .str "#s" },
-		{.what Here, .desc "cfa", .here 7504, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "L_C_hashs:"},
-	{.what Sourceline, .desc "dd C_hash"},
-		{.what Here, .desc "address", .here 7512, .there 360,.type Relativedictionary, .p C_hash },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 7520, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 7528, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_hashs_1"},
-		{.what Here, .desc "address", .here 7536, .there 360,.type Relativedictionary, .p L_C_hashs_1 },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 7544, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_hashs"},
-		{.what Here, .desc "address", .here 7552, .there 360,.type Relativedictionary, .p L_C_hashs },
-	{.what Sourceline, .desc "L_C_hashs_1:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7560, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"#>\" hashfrom 2"},
-		{.what Here, .desc "link",.here 7568, .there 360,.type Relativedictionary, .p 7488 },
-		{.what Here, .desc "len", .here 7576, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 7577, .there 360,.type Chars, .str "#>" },
-		{.what Here, .desc "cfa", .here 7584, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 7592, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd MV_toNum"},
-		{.what Here, .desc "address", .here 7600, .there 360,.type Relativedictionary, .p MV_toNum },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 7608, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 7616, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_pad"},
-		{.what Here, .desc "address", .here 7624, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7632, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1024"},
-		{.what Here, .desc "value", .here 7640, .there 360,.type Absolute, .p 1024 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 7648, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 7656, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 7664, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7672, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"hold\" hold 4"},
-		{.what Here, .desc "link",.here 7680, .there 360,.type Relativedictionary, .p 7568 },
-		{.what Here, .desc "len", .here 7688, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 7689, .there 360,.type Chars, .str "hold" },
-		{.what Here, .desc "cfa", .here 7696, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_toNum"},
-		{.what Here, .desc "address", .here 7704, .there 360,.type Relativedictionary, .p MV_toNum },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 7712, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_1minus"},
-		{.what Here, .desc "address", .here 7720, .there 360,.type Relativedictionary, .p C_1minus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 7728, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 7736, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 7744, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 7752, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd MV_toNum"},
-		{.what Here, .desc "address", .here 7760, .there 360,.type Relativedictionary, .p MV_toNum },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 7768, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7776, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"sign\" sign 4"},
-		{.what Here, .desc "link",.here 7784, .there 360,.type Relativedictionary, .p 7680 },
-		{.what Here, .desc "len", .here 7792, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 7793, .there 360,.type Chars, .str "sign" },
-		{.what Here, .desc "cfa", .here 7800, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_0lt"},
-		{.what Here, .desc "address", .here 7808, .there 360,.type Relativedictionary, .p C_0lt },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 7816, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_sign"},
-		{.what Here, .desc "address", .here 7824, .there 360,.type Relativedictionary, .p L_C_sign },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7832, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 45"},
-		{.what Here, .desc "value", .here 7840, .there 360,.type Absolute, .p 45 },
-	{.what Sourceline, .desc "dd C_hold"},
-		{.what Here, .desc "address", .here 7848, .there 360,.type Relativedictionary, .p C_hold },
-	{.what Sourceline, .desc "L_C_sign:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7856, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"c(.)\" counted_paren_dot_paren 4 ; convert the top of stack to a counted string ( n1 -- 'cs )"},
-		{.what Here, .desc "link",.here 7864, .there 360,.type Relativedictionary, .p 7784 },
-		{.what Here, .desc "len", .here 7872, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 7873, .there 360,.type Chars, .str "c(.)" },
-		{.what Here, .desc "cfa", .here 7880, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_paren_dot_paren ; ( 'text n2 )"},
-		{.what Here, .desc "address", .here 7888, .there 360,.type Relativedictionary, .p C_paren_dot_paren },
-	{.what Sourceline, .desc "dd M_xswap		; ( n2 'text )"},
-		{.what Here, .desc "address", .here 7896, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 7904, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 7912, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_minus		; ( n2 'text-1 )"},
-		{.what Here, .desc "address", .here 7920, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 7928, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_over		; ( 'text-1 n2 'text-1 )"},
-		{.what Here, .desc "address", .here 7936, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_cstore		; ( 'text-1 )"},
-		{.what Here, .desc "address", .here 7944, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 7952, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"(.)\" paren_dot_paren 3 ; convert the top of stack to a string ( n1 -- 'text n2 )"},
-		{.what Here, .desc "link",.here 7960, .there 360,.type Relativedictionary, .p 7864 },
-		{.what Here, .desc "len", .here 7968, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 7969, .there 360,.type Chars, .str "(.)" },
-		{.what Here, .desc "cfa", .here 7976, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup		; ( n -- n n )"},
-		{.what Here, .desc "address", .here 7984, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_abs		; ( n n -- n u )"},
-		{.what Here, .desc "address", .here 7992, .there 360,.type Relativedictionary, .p C_abs },
-	{.what Sourceline, .desc "dd C_fromhash	; pad = h+256; >num = pad+1024"},
-		{.what Here, .desc "address", .here 8000, .there 360,.type Relativedictionary, .p C_fromhash },
-	{.what Sourceline, .desc "dd C_hashs		; ( n u1 -- n n2 )"},
-		{.what Here, .desc "address", .here 8008, .there 360,.type Relativedictionary, .p C_hashs },
-	{.what Sourceline, .desc "dd M_xswap		; ( n n2 -- n2 n )"},
-		{.what Here, .desc "address", .here 8016, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd C_sign		; ( n2 n -- n2 )"},
-		{.what Here, .desc "address", .here 8024, .there 360,.type Relativedictionary, .p C_sign },
-	{.what Sourceline, .desc "dd C_hashfrom	; ( u1 -- a n )"},
-		{.what Here, .desc "address", .here 8032, .there 360,.type Relativedictionary, .p C_hashfrom },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 8040, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \".\" dot 1 ; print the top of stack ( n -- )"},
-		{.what Here, .desc "link",.here 8048, .there 360,.type Relativedictionary, .p 7960 },
-		{.what Here, .desc "len", .here 8056, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 8057, .there 360,.type Chars, .str "." },
-		{.what Here, .desc "cfa", .here 8064, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_paren_dot_paren ; ( n1 -- 'text n2 )"},
-		{.what Here, .desc "address", .here 8072, .there 360,.type Relativedictionary, .p C_paren_dot_paren },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 8080, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 8088, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 8096, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \".r\" dotr 2"},
-		{.what Here, .desc "link",.here 8104, .there 360,.type Relativedictionary, .p 8048 },
-		{.what Here, .desc "len", .here 8112, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 8113, .there 360,.type Chars, .str ".r" },
-		{.what Here, .desc "cfa", .here 8120, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 8128, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 8136, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_abs"},
-		{.what Here, .desc "address", .here 8144, .there 360,.type Relativedictionary, .p C_abs },
-	{.what Sourceline, .desc "dd C_fromhash"},
-		{.what Here, .desc "address", .here 8152, .there 360,.type Relativedictionary, .p C_fromhash },
-	{.what Sourceline, .desc "dd C_hashs"},
-		{.what Here, .desc "address", .here 8160, .there 360,.type Relativedictionary, .p C_hashs },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 8168, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd C_sign"},
-		{.what Here, .desc "address", .here 8176, .there 360,.type Relativedictionary, .p C_sign },
-	{.what Sourceline, .desc "dd C_hashfrom"},
-		{.what Here, .desc "address", .here 8184, .there 360,.type Relativedictionary, .p C_hashfrom },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 8192, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 8200, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 8208, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8216, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 8224, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd C_max"},
-		{.what Here, .desc "address", .here 8232, .there 360,.type Relativedictionary, .p C_max },
-	{.what Sourceline, .desc "dd C_spaces"},
-		{.what Here, .desc "address", .here 8240, .there 360,.type Relativedictionary, .p C_spaces },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 8248, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 8256, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"hex\" hex 3"},
-		{.what Here, .desc "link",.here 8264, .there 360,.type Relativedictionary, .p 8104 },
-		{.what Here, .desc "len", .here 8272, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 8273, .there 360,.type Chars, .str "hex" },
-		{.what Here, .desc "cfa", .here 8280, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8288, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 16"},
-		{.what Here, .desc "value", .here 8296, .there 360,.type Absolute, .p 16 },
-	{.what Sourceline, .desc "dd MV_Base"},
-		{.what Here, .desc "address", .here 8304, .there 360,.type Relativedictionary, .p MV_Base },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 8312, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 8320, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"decimal\" decimal 7"},
-		{.what Here, .desc "link",.here 8328, .there 360,.type Relativedictionary, .p 8264 },
-		{.what Here, .desc "len", .here 8336, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 8337, .there 360,.type Chars, .str "decimal" },
-		{.what Here, .desc "cfa", .here 8344, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8352, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 10"},
-		{.what Here, .desc "value", .here 8360, .there 360,.type Absolute, .p 10 },
-	{.what Sourceline, .desc "dd MV_Base"},
-		{.what Here, .desc "address", .here 8368, .there 360,.type Relativedictionary, .p MV_Base },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 8376, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 8384, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"digit\" digit 5 ; ( c -- )"},
-		{.what Here, .desc "link",.here 8392, .there 360,.type Relativedictionary, .p 8328 },
-		{.what Here, .desc "len", .here 8400, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 8401, .there 360,.type Chars, .str "digit" },
-		{.what Here, .desc "cfa", .here 8408, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 8416, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8424, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 65"},
-		{.what Here, .desc "value", .here 8432, .there 360,.type Absolute, .p 65 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8440, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 91"},
-		{.what Here, .desc "value", .here 8448, .there 360,.type Absolute, .p 91 },
-	{.what Sourceline, .desc "dd C_within"},
-		{.what Here, .desc "address", .here 8456, .there 360,.type Relativedictionary, .p C_within },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 8464, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_digit"},
-		{.what Here, .desc "address", .here 8472, .there 360,.type Relativedictionary, .p L_C_digit },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8480, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 55"},
-		{.what Here, .desc "value", .here 8488, .there 360,.type Absolute, .p 55 },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 8496, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 8504, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_digit_1"},
-		{.what Here, .desc "address", .here 8512, .there 360,.type Relativedictionary, .p L_C_digit_1 },
-	{.what Sourceline, .desc "L_C_digit:"},
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 8520, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8528, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 97"},
-		{.what Here, .desc "value", .here 8536, .there 360,.type Absolute, .p 97 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8544, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 123"},
-		{.what Here, .desc "value", .here 8552, .there 360,.type Absolute, .p 123 },
-	{.what Sourceline, .desc "dd C_within"},
-		{.what Here, .desc "address", .here 8560, .there 360,.type Relativedictionary, .p C_within },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 8568, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_digit_2"},
-		{.what Here, .desc "address", .here 8576, .there 360,.type Relativedictionary, .p L_C_digit_2 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8584, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 87"},
-		{.what Here, .desc "value", .here 8592, .there 360,.type Absolute, .p 87 },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 8600, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 8608, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_digit_3"},
-		{.what Here, .desc "address", .here 8616, .there 360,.type Relativedictionary, .p L_C_digit_3 },
-	{.what Sourceline, .desc "L_C_digit_2:"},
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 8624, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8632, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 48"},
-		{.what Here, .desc "value", .here 8640, .there 360,.type Absolute, .p 48 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8648, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 58"},
-		{.what Here, .desc "value", .here 8656, .there 360,.type Absolute, .p 58 },
-	{.what Sourceline, .desc "dd C_within"},
-		{.what Here, .desc "address", .here 8664, .there 360,.type Relativedictionary, .p C_within },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 8672, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_digit_4"},
-		{.what Here, .desc "address", .here 8680, .there 360,.type Relativedictionary, .p L_C_digit_4 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8688, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 48"},
-		{.what Here, .desc "value", .here 8696, .there 360,.type Absolute, .p 48 },
-	{.what Sourceline, .desc "dd M_minus"},
-		{.what Here, .desc "address", .here 8704, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 8712, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_digit_5"},
-		{.what Here, .desc "address", .here 8720, .there 360,.type Relativedictionary, .p L_C_digit_5 },
-	{.what Sourceline, .desc "L_C_digit_4:"},
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 8728, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd C_false"},
-		{.what Here, .desc "address", .here 8736, .there 360,.type Relativedictionary, .p C_false },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 8744, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_digit_5:"},
-	{.what Sourceline, .desc "L_C_digit_3:"},
-	{.what Sourceline, .desc "L_C_digit_1:"},
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 8752, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd MV_Base"},
-		{.what Here, .desc "address", .here 8760, .there 360,.type Relativedictionary, .p MV_Base },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 8768, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_less"},
-		{.what Here, .desc "address", .here 8776, .there 360,.type Relativedictionary, .p M_less },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 8784, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_digit_6"},
-		{.what Here, .desc "address", .here 8792, .there 360,.type Relativedictionary, .p L_C_digit_6 },
-	{.what Sourceline, .desc "dd C_true"},
-		{.what Here, .desc "address", .here 8800, .there 360,.type Relativedictionary, .p C_true },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 8808, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_digit_7"},
-		{.what Here, .desc "address", .here 8816, .there 360,.type Relativedictionary, .p L_C_digit_7 },
-	{.what Sourceline, .desc "L_C_digit_6:"},
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 8824, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd C_false"},
-		{.what Here, .desc "address", .here 8832, .there 360,.type Relativedictionary, .p C_false },
-	{.what Sourceline, .desc "L_C_digit_7:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 8840, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"number\" number 6 ; ( a n1 -- n2 -1 | a n1 0 )"},
-		{.what Here, .desc "link",.here 8848, .there 360,.type Relativedictionary, .p 8392 },
-		{.what Here, .desc "len", .here 8856, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 8857, .there 360,.type Chars, .str "number" },
-		{.what Here, .desc "cfa", .here 8864, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_xswap	; ( a n1 -- n1 a )"},
-		{.what Here, .desc "address", .here 8872, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_dup	; ( n1 a -- n1 a a )"},
-		{.what Here, .desc "address", .here 8880, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch	; ( n1 a a -- n1 a c )"},
-		{.what Here, .desc "address", .here 8888, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8896, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 45		; ( n1 a c -- n1 a c - )"},
-		{.what Here, .desc "value", .here 8904, .there 360,.type Absolute, .p 45 },
-	{.what Sourceline, .desc "dd M_equal	; ( n1 a c -- n1 a f )"},
-		{.what Here, .desc "address", .here 8912, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd M_cjump	; ( n1 a c -- n1 a )"},
-		{.what Here, .desc "address", .here 8920, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_number		; c != -"},
-		{.what Here, .desc "address", .here 8928, .there 360,.type Relativedictionary, .p L_C_number },
-	{.what Sourceline, .desc "dd C_1plus	; c == - ( n1 a -- n1 a+1 )"},
-		{.what Here, .desc "address", .here 8936, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 8944, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd C_1minus	; c == - ( a+1 n1 -- a+1 n1-1 )"},
-		{.what Here, .desc "address", .here 8952, .there 360,.type Relativedictionary, .p C_1minus },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 8960, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1		; ( a+1 n1-1 -- a+1 n1-1 -1 )"},
-		{.what Here, .desc "value", .here 8968, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_rpush	; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1)"},
-		{.what Here, .desc "address", .here 8976, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 8984, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_number_1"},
-		{.what Here, .desc "address", .here 8992, .there 360,.type Relativedictionary, .p L_C_number_1 },
-	{.what Sourceline, .desc "L_C_number:		; c != -"},
-	{.what Sourceline, .desc "dd M_xswap	; ( n1 a -- a n1)"},
-		{.what Here, .desc "address", .here 9000, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 9008, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 9016, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_rpush	; ( a n1 1 -- a n1 ) (R -- 1)"},
-		{.what Here, .desc "address", .here 9024, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "L_C_number_1:		; ( a n1 ) (R nr)"},
-	{.what Sourceline, .desc "dd M_dup	; ( a n1 -- a n1 n1 ) (R nr)"},
-		{.what Here, .desc "address", .here 9032, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( a n1 n1 -- a n1 ) (R nr -- nr n1)"},
-		{.what Here, .desc "address", .here 9040, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 9048, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0		; ( a n1 -- a n1 0) (R nr n1)"},
-		{.what Here, .desc "value", .here 9056, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_xswap	; ( a n1 0 -- a 0 n1) (R nr n1)"},
-		{.what Here, .desc "address", .here 9064, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 9072, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0		; ( a 0 n1 -- a 0 n1 0) (R nr n1)"},
-		{.what Here, .desc "value", .here 9080, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit	; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1)"},
-		{.what Here, .desc "address", .here 9088, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_number_2:"},
-	{.what Sourceline, .desc "dd MV_Base"},
-		{.what Here, .desc "address", .here 9096, .there 360,.type Relativedictionary, .p MV_Base },
-	{.what Sourceline, .desc "dd M_fetch	; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1)"},
-		{.what Here, .desc "address", .here 9104, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_multiply	; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1)"},
-		{.what Here, .desc "address", .here 9112, .there 360,.type Relativedictionary, .p M_multiply },
-	{.what Sourceline, .desc "dd M_over	; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1)"},
-		{.what Here, .desc "address", .here 9120, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_i		; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1)"},
-		{.what Here, .desc "address", .here 9128, .there 360,.type Relativedictionary, .p M_i },
-	{.what Sourceline, .desc "dd M_plus	; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1)"},
-		{.what Here, .desc "address", .here 9136, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_cfetch	; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1)"},
-		{.what Here, .desc "address", .here 9144, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd C_digit"},
-		{.what Here, .desc "address", .here 9152, .there 360,.type Relativedictionary, .p C_digit },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 9160, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_number_3"},
-		{.what Here, .desc "address", .here 9168, .there 360,.type Relativedictionary, .p L_C_number_3 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 9176, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 9184, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_number_4"},
-		{.what Here, .desc "address", .here 9192, .there 360,.type Relativedictionary, .p L_C_number_4 },
-	{.what Sourceline, .desc "L_C_number_3:"},
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 9200, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_unloop"},
-		{.what Here, .desc "address", .here 9208, .there 360,.type Relativedictionary, .p M_unloop },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 9216, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 9224, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 9232, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd C_false"},
-		{.what Here, .desc "address", .here 9240, .there 360,.type Relativedictionary, .p C_false },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9248, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_number_4:"},
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 9256, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_number_2"},
-		{.what Here, .desc "address", .here 9264, .there 360,.type Relativedictionary, .p L_C_number_2 },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 9272, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 9280, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd C_nip"},
-		{.what Here, .desc "address", .here 9288, .there 360,.type Relativedictionary, .p C_nip },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 9296, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_multiply"},
-		{.what Here, .desc "address", .here 9304, .there 360,.type Relativedictionary, .p M_multiply },
-	{.what Sourceline, .desc "dd C_true"},
-		{.what Here, .desc "address", .here 9312, .there 360,.type Relativedictionary, .p C_true },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9320, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"abort\" abort 5"},
-		{.what Here, .desc "link",.here 9328, .there 360,.type Relativedictionary, .p 8848 },
-		{.what Here, .desc "len", .here 9336, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 9337, .there 360,.type Chars, .str "abort" },
-		{.what Here, .desc "cfa", .here 9344, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Abortvec"},
-		{.what Here, .desc "address", .here 9352, .there 360,.type Relativedictionary, .p MV_Abortvec },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 9360, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_execute"},
-		{.what Here, .desc "address", .here 9368, .there 360,.type Relativedictionary, .p M_execute },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9376, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"bufferfilename@\" bufferfilename_fetch 15 ; ( index -- 'counted-string ) fetch label"},
-		{.what Here, .desc "link",.here 9384, .there 360,.type Relativedictionary, .p 9328 },
-		{.what Here, .desc "len", .here 9392, .there 360,.type Byte, .b 0 + 15 },
-		{.what Here, .desc "name",.here 9393, .there 360,.type Chars, .str "bufferfilename@" },
-		{.what Here, .desc "cfa", .here 9400, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 9408, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 9416, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 9424, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_dot"},
-		{.what Here, .desc "address", .here 9432, .there 360,.type Relativedictionary, .p C_dot },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 9440, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 9448, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 9456, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_dot"},
-		{.what Here, .desc "address", .here 9464, .there 360,.type Relativedictionary, .p C_dot },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 9472, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 9480, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 9488, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_dot"},
-		{.what Here, .desc "address", .here 9496, .there 360,.type Relativedictionary, .p C_dot },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 9504, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9512, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"bufferfilename!\" bufferfilename_store 15 ; ( 'text index -- ) store label"},
-		{.what Here, .desc "link",.here 9520, .there 360,.type Relativedictionary, .p 9384 },
-		{.what Here, .desc "len", .here 9528, .there 360,.type Byte, .b 0 + 15 },
-		{.what Here, .desc "name",.here 9529, .there 360,.type Chars, .str "bufferfilename!" },
-		{.what Here, .desc "cfa", .here 9536, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 9544, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 9552, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 9560, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 9568, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9576, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \">word\" toword 7 ; ( 'Bufferfds -- 'Wordfd )"},
-		{.what Here, .desc "link",.here 9584, .there 360,.type Relativedictionary, .p 9520 },
-		{.what Here, .desc "len", .here 9592, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 9593, .there 360,.type Chars, .str ">word" },
-		{.what Here, .desc "cfa", .here 9600, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_WORDNUM"},
-		{.what Here, .desc "address", .here 9608, .there 360,.type Relativedictionary, .p MC_WORDNUM },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 9616, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 9624, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9632, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"wordfd@\" wordfd_fetch 7"},
-		{.what Here, .desc "link",.here 9640, .there 360,.type Relativedictionary, .p 9584 },
-		{.what Here, .desc "len", .here 9648, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 9649, .there 360,.type Chars, .str "wordfd@" },
-		{.what Here, .desc "cfa", .here 9656, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 9664, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_toword"},
-		{.what Here, .desc "address", .here 9672, .there 360,.type Relativedictionary, .p C_toword },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 9680, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9688, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"wordfd!\" wordfd_store 7"},
-		{.what Here, .desc "link",.here 9696, .there 360,.type Relativedictionary, .p 9640 },
-		{.what Here, .desc "len", .here 9704, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 9705, .there 360,.type Chars, .str "wordfd!" },
-		{.what Here, .desc "cfa", .here 9712, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 9720, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_toword"},
-		{.what Here, .desc "address", .here 9728, .there 360,.type Relativedictionary, .p C_toword },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 9736, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9744, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"wordfilename@\" wordfilename_fetch 13"},
-		{.what Here, .desc "link",.here 9752, .there 360,.type Relativedictionary, .p 9696 },
-		{.what Here, .desc "len", .here 9760, .there 360,.type Byte, .b 0 + 13 },
-		{.what Here, .desc "name",.here 9761, .there 360,.type Chars, .str "wordfilename@" },
-		{.what Here, .desc "cfa", .here 9768, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 9776, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_toword"},
-		{.what Here, .desc "address", .here 9784, .there 360,.type Relativedictionary, .p C_toword },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 9792, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9800, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"wordfilename!\" wordfilename_store 13"},
-		{.what Here, .desc "link",.here 9808, .there 360,.type Relativedictionary, .p 9752 },
-		{.what Here, .desc "len", .here 9816, .there 360,.type Byte, .b 0 + 13 },
-		{.what Here, .desc "name",.here 9817, .there 360,.type Chars, .str "wordfilename!" },
-		{.what Here, .desc "cfa", .here 9824, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 9832, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_toword"},
-		{.what Here, .desc "address", .here 9840, .there 360,.type Relativedictionary, .p C_toword },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 9848, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9856, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \">line\" toline 5 ; ( 'Bufferfds -- 'Wordfd )"},
-		{.what Here, .desc "link",.here 9864, .there 360,.type Relativedictionary, .p 9808 },
-		{.what Here, .desc "len", .here 9872, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 9873, .there 360,.type Chars, .str ">line" },
-		{.what Here, .desc "cfa", .here 9880, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_LINENUM"},
-		{.what Here, .desc "address", .here 9888, .there 360,.type Relativedictionary, .p MC_LINENUM },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 9896, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 9904, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9912, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"linefd@\" linefd_fetch 7"},
-		{.what Here, .desc "link",.here 9920, .there 360,.type Relativedictionary, .p 9864 },
-		{.what Here, .desc "len", .here 9928, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 9929, .there 360,.type Chars, .str "linefd@" },
-		{.what Here, .desc "cfa", .here 9936, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 9944, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_toline"},
-		{.what Here, .desc "address", .here 9952, .there 360,.type Relativedictionary, .p C_toline },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 9960, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 9968, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"linefd!\" linefd_store 7"},
-		{.what Here, .desc "link",.here 9976, .there 360,.type Relativedictionary, .p 9920 },
-		{.what Here, .desc "len", .here 9984, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 9985, .there 360,.type Chars, .str "linefd!" },
-		{.what Here, .desc "cfa", .here 9992, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 10000, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_toline"},
-		{.what Here, .desc "address", .here 10008, .there 360,.type Relativedictionary, .p C_toline },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10016, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10024, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"linefilename@\" linefilename_fetch 13"},
-		{.what Here, .desc "link",.here 10032, .there 360,.type Relativedictionary, .p 9976 },
-		{.what Here, .desc "len", .here 10040, .there 360,.type Byte, .b 0 + 13 },
-		{.what Here, .desc "name",.here 10041, .there 360,.type Chars, .str "linefilename@" },
-		{.what Here, .desc "cfa", .here 10048, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 10056, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_toline"},
-		{.what Here, .desc "address", .here 10064, .there 360,.type Relativedictionary, .p C_toline },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 10072, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10080, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"linefilename!\" linefilename_store 13"},
-		{.what Here, .desc "link",.here 10088, .there 360,.type Relativedictionary, .p 10032 },
-		{.what Here, .desc "len", .here 10096, .there 360,.type Byte, .b 0 + 13 },
-		{.what Here, .desc "name",.here 10097, .there 360,.type Chars, .str "linefilename!" },
-		{.what Here, .desc "cfa", .here 10104, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 10112, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_toline"},
-		{.what Here, .desc "address", .here 10120, .there 360,.type Relativedictionary, .p C_toline },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10128, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10136, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \">doublequote\" todoublequote 12 ; ( 'Bufferfds -- 'Doublequotefd )"},
-		{.what Here, .desc "link",.here 10144, .there 360,.type Relativedictionary, .p 10088 },
-		{.what Here, .desc "len", .here 10152, .there 360,.type Byte, .b 0 + 12 },
-		{.what Here, .desc "name",.here 10153, .there 360,.type Chars, .str ">doublequote" },
-		{.what Here, .desc "cfa", .here 10160, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_DOUBLEQUOTENUM"},
-		{.what Here, .desc "address", .here 10168, .there 360,.type Relativedictionary, .p MC_DOUBLEQUOTENUM },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 10176, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 10184, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10192, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"doublequotefd@\" doublequotefd_fetch 14"},
-		{.what Here, .desc "link",.here 10200, .there 360,.type Relativedictionary, .p 10144 },
-		{.what Here, .desc "len", .here 10208, .there 360,.type Byte, .b 0 + 14 },
-		{.what Here, .desc "name",.here 10209, .there 360,.type Chars, .str "doublequotefd@" },
-		{.what Here, .desc "cfa", .here 10216, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 10224, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_todoublequote"},
-		{.what Here, .desc "address", .here 10232, .there 360,.type Relativedictionary, .p C_todoublequote },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 10240, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10248, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"doublequotefd!\" doublequotefd_store 14"},
-		{.what Here, .desc "link",.here 10256, .there 360,.type Relativedictionary, .p 10200 },
-		{.what Here, .desc "len", .here 10264, .there 360,.type Byte, .b 0 + 14 },
-		{.what Here, .desc "name",.here 10265, .there 360,.type Chars, .str "doublequotefd!" },
-		{.what Here, .desc "cfa", .here 10272, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 10280, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_todoublequote"},
-		{.what Here, .desc "address", .here 10288, .there 360,.type Relativedictionary, .p C_todoublequote },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10296, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10304, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"doublequotefilename@\" doublequotefilename_fetch 20"},
-		{.what Here, .desc "link",.here 10312, .there 360,.type Relativedictionary, .p 10256 },
-		{.what Here, .desc "len", .here 10320, .there 360,.type Byte, .b 0 + 20 },
-		{.what Here, .desc "name",.here 10321, .there 360,.type Chars, .str "doublequotefilename@" },
-		{.what Here, .desc "cfa", .here 10328, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 10336, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_todoublequote"},
-		{.what Here, .desc "address", .here 10344, .there 360,.type Relativedictionary, .p C_todoublequote },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 10352, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10360, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"doublequotefilename!\" doublequotefilename_store 20"},
-		{.what Here, .desc "link",.here 10368, .there 360,.type Relativedictionary, .p 10312 },
-		{.what Here, .desc "len", .here 10376, .there 360,.type Byte, .b 0 + 20 },
-		{.what Here, .desc "name",.here 10377, .there 360,.type Chars, .str "doublequotefilename!" },
-		{.what Here, .desc "cfa", .here 10384, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 10392, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_todoublequote"},
-		{.what Here, .desc "address", .here 10400, .there 360,.type Relativedictionary, .p C_todoublequote },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10408, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10416, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \">closeparen\" tocloseparen 11 ; ( 'Bufferfds -- 'Closeparenfd )"},
-		{.what Here, .desc "link",.here 10424, .there 360,.type Relativedictionary, .p 10368 },
-		{.what Here, .desc "len", .here 10432, .there 360,.type Byte, .b 0 + 11 },
-		{.what Here, .desc "name",.here 10433, .there 360,.type Chars, .str ">closeparen" },
-		{.what Here, .desc "cfa", .here 10440, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_CLOSEPARENNUM"},
-		{.what Here, .desc "address", .here 10448, .there 360,.type Relativedictionary, .p MC_CLOSEPARENNUM },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 10456, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 10464, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10472, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"closeparenfd@\" closeparenfd_fetch 13"},
-		{.what Here, .desc "link",.here 10480, .there 360,.type Relativedictionary, .p 10424 },
-		{.what Here, .desc "len", .here 10488, .there 360,.type Byte, .b 0 + 13 },
-		{.what Here, .desc "name",.here 10489, .there 360,.type Chars, .str "closeparenfd@" },
-		{.what Here, .desc "cfa", .here 10496, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 10504, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_tocloseparen"},
-		{.what Here, .desc "address", .here 10512, .there 360,.type Relativedictionary, .p C_tocloseparen },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 10520, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10528, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"closeparenfd!\" closeparenfd_store 13"},
-		{.what Here, .desc "link",.here 10536, .there 360,.type Relativedictionary, .p 10480 },
-		{.what Here, .desc "len", .here 10544, .there 360,.type Byte, .b 0 + 13 },
-		{.what Here, .desc "name",.here 10545, .there 360,.type Chars, .str "closeparenfd!" },
-		{.what Here, .desc "cfa", .here 10552, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 10560, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd C_tocloseparen"},
-		{.what Here, .desc "address", .here 10568, .there 360,.type Relativedictionary, .p C_tocloseparen },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10576, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10584, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"closeparenfilename@\" closeparenfilename_fetch 19"},
-		{.what Here, .desc "link",.here 10592, .there 360,.type Relativedictionary, .p 10536 },
-		{.what Here, .desc "len", .here 10600, .there 360,.type Byte, .b 0 + 19 },
-		{.what Here, .desc "name",.here 10601, .there 360,.type Chars, .str "closeparenfilename@" },
-		{.what Here, .desc "cfa", .here 10608, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 10616, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_tocloseparen"},
-		{.what Here, .desc "address", .here 10624, .there 360,.type Relativedictionary, .p C_tocloseparen },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 10632, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10640, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"closeparenfilename!\" closeparenfilename_store 19"},
-		{.what Here, .desc "link",.here 10648, .there 360,.type Relativedictionary, .p 10592 },
-		{.what Here, .desc "len", .here 10656, .there 360,.type Byte, .b 0 + 19 },
-		{.what Here, .desc "name",.here 10657, .there 360,.type Chars, .str "closeparenfilename!" },
-		{.what Here, .desc "cfa", .here 10664, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 10672, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd C_tocloseparen"},
-		{.what Here, .desc "address", .here 10680, .there 360,.type Relativedictionary, .p C_tocloseparen },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10688, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10696, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"stdinput\" stdinput 8 ; stream input from stdin into Text input buffer"},
-		{.what Here, .desc "link",.here 10704, .there 360,.type Relativedictionary, .p 10648 },
-		{.what Here, .desc "len", .here 10712, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 10713, .there 360,.type Chars, .str "stdinput" },
-		{.what Here, .desc "cfa", .here 10720, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_STDIN"},
-		{.what Here, .desc "address", .here 10728, .there 360,.type Relativedictionary, .p MC_STDIN },
-	{.what Sourceline, .desc "dd MV_Infd"},
-		{.what Here, .desc "address", .here 10736, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10744, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 10752, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 10760, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 10768, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 10776, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 10784, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_stdinput:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 10792, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 10800, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_over	; ( 'Bufferfd -1 'Bufferfd )"},
-		{.what Here, .desc "address", .here 10808, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 10816, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 10824, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 10832, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 10840, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 10848, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 10856, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_stdinput"},
-		{.what Here, .desc "address", .here 10864, .there 360,.type Relativedictionary, .p L_C_stdinput },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 10872, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10880, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"args\" args 4 ; stream input from #p/<pid>/args into Text input buffer"},
-		{.what Here, .desc "link",.here 10888, .there 360,.type Relativedictionary, .p 10704 },
-		{.what Here, .desc "len", .here 10896, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 10897, .there 360,.type Chars, .str "args" },
-		{.what Here, .desc "cfa", .here 10904, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Argsfilename	; ( 'args_filename_counted_string ) filled by the starter"},
-		{.what Here, .desc "address", .here 10912, .there 360,.type Relativedictionary, .p MV_Argsfilename },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 10920, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 10928, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 10936, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_equal"},
-		{.what Here, .desc "address", .here 10944, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 10952, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_args_read"},
-		{.what Here, .desc "address", .here 10960, .there 360,.type Relativedictionary, .p L_C_args_read },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 10968, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_args_read:"},
-	{.what Sourceline, .desc "dd MV_Argsfilename"},
-		{.what Here, .desc "address", .here 10976, .there 360,.type Relativedictionary, .p MV_Argsfilename },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 10984, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_ro"},
-		{.what Here, .desc "address", .here 10992, .there 360,.type Relativedictionary, .p C_ro },
-	{.what Sourceline, .desc "dd C_open_file"},
-		{.what Here, .desc "address", .here 11000, .there 360,.type Relativedictionary, .p C_open_file },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 11008, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd MV_Infd"},
-		{.what Here, .desc "address", .here 11016, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 11024, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd C_interpret"},
-		{.what Here, .desc "address", .here 11032, .there 360,.type Relativedictionary, .p C_interpret },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 11040, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"input@\" input_fetch 6 ; ( -- Bufferfds Infd #Buffers+1 ) save input stream onto the stack and replace the buffer fd's with -1"},
-		{.what Here, .desc "link",.here 11048, .there 360,.type Relativedictionary, .p 10888 },
-		{.what Here, .desc "len", .here 11056, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 11057, .there 360,.type Chars, .str "input@" },
-		{.what Here, .desc "cfa", .here 11064, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 11072, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 11080, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11088, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 11096, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 11104, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_input_fetch:"},
-	{.what Sourceline, .desc "dd M_dup	; ( 'Bufferfd 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11112, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 11120, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_xswap	; ( fd 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11128, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11136, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 11144, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_over	; ( fd 'Bufferfd -1 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11152, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_store	; ( fd 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11160, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11168, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 11176, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 11184, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 11192, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 11200, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_input_fetch"},
-		{.what Here, .desc "address", .here 11208, .there 360,.type Relativedictionary, .p L_C_input_fetch },
-	{.what Sourceline, .desc "dd M_drop	; ( fd0 fd1 .. fdn )"},
-		{.what Here, .desc "address", .here 11216, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd MV_Infd"},
-		{.what Here, .desc "address", .here 11224, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_fetch	; ( fd0 fd1 .. fdn infd )"},
-		{.what Here, .desc "address", .here 11232, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 11240, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11248, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 11256, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_plus	; ( fd0 fd1 .. fdn infd n+1 )"},
-		{.what Here, .desc "address", .here 11264, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 11272, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"input!\" input_store 6 ; ( fd0 fd1 .. fdn infd n+1 | empty -- ) restore input stream from the stack or stdinput"},
-		{.what Here, .desc "link",.here 11280, .there 360,.type Relativedictionary, .p 11048 },
-		{.what Here, .desc "len", .here 11288, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 11289, .there 360,.type Chars, .str "input!" },
-		{.what Here, .desc "cfa", .here 11296, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup		; check if there is #Buffers+1 on the top of stack"},
-		{.what Here, .desc "address", .here 11304, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 11312, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11320, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 11328, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 11336, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_equal	; is the top of stack == #Buffers+1"},
-		{.what Here, .desc "address", .here 11344, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 11352, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_input_store_1	; top of stack <> #Buffers+1, there is no input stream on the stack, use the default input"},
-		{.what Here, .desc "address", .here 11360, .there 360,.type Relativedictionary, .p L_C_input_store_1 },
-	{.what Sourceline, .desc "dd M_drop	; drop the #Buffers+1 on the top of stack"},
-		{.what Here, .desc "address", .here 11368, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd MV_Infd"},
-		{.what Here, .desc "address", .here 11376, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_store	; ( fd0 fd1 .. fdn )"},
-		{.what Here, .desc "address", .here 11384, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 11392, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 11400, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 11408, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus	; ( fd0 fd1 .. fdn 'Bufferfds+(NBUFFERS*cellsize) )"},
-		{.what Here, .desc "address", .here 11416, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 11424, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11432, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 11440, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 11448, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_input_store:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11456, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 11464, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 11472, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_minus	; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) )"},
-		{.what Here, .desc "address", .here 11480, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_dup	; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) 'Bufferfds-(1*cellsize) )"},
-		{.what Here, .desc "address", .here 11488, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) ) (R 'Bufferfds-(1*cellsize) )"},
-		{.what Here, .desc "address", .here 11496, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 11504, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_rpop	; ( fd0 fd1 .. fdn-1 'Bufferfds-(1*cellsize) )"},
-		{.what Here, .desc "address", .here 11512, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 11520, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_input_store"},
-		{.what Here, .desc "address", .here 11528, .there 360,.type Relativedictionary, .p L_C_input_store },
-	{.what Sourceline, .desc "dd MV_Eof"},
-		{.what Here, .desc "address", .here 11536, .there 360,.type Relativedictionary, .p MV_Eof },
-	{.what Sourceline, .desc "dd C_off	; reset Eof back to 0"},
-		{.what Here, .desc "address", .here 11544, .there 360,.type Relativedictionary, .p C_off },
-	{.what Sourceline, .desc "dd C_true	; ( true )"},
-		{.what Here, .desc "address", .here 11552, .there 360,.type Relativedictionary, .p C_true },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 11560, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_input_store_1:	; there is no input stream on the stack"},
-	{.what Sourceline, .desc "dd C_stdinput	; no input stream on the stack, use default input from now"},
-		{.what Here, .desc "address", .here 11568, .there 360,.type Relativedictionary, .p C_stdinput },
-	{.what Sourceline, .desc "dd C_false		; ( 0 )"},
-		{.what Here, .desc "address", .here 11576, .there 360,.type Relativedictionary, .p C_false },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 11584, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"-input\" close_input 6 ; ( ) ; close the current input stream"},
-		{.what Here, .desc "link",.here 11592, .there 360,.type Relativedictionary, .p 11280 },
-		{.what Here, .desc "len", .here 11600, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 11601, .there 360,.type Chars, .str "-input" },
-		{.what Here, .desc "cfa", .here 11608, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 11616, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 11624, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11632, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 11640, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 11648, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_close_input:"},
-	{.what Sourceline, .desc "dd M_dup	; ( 'Bufferfd 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11656, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 11664, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11672, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 11680, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd C_neq"},
-		{.what Here, .desc "address", .here 11688, .there 360,.type Relativedictionary, .p C_neq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 11696, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_close_next	; == -1, check next fd"},
-		{.what Here, .desc "address", .here 11704, .there 360,.type Relativedictionary, .p L_C_close_next },
-	{.what Sourceline, .desc "dd M_dup	; ( 'Bufferfd 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11712, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_fetch	; ( 'Bufferfd fd )"},
-		{.what Here, .desc "address", .here 11720, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_close_file	; ( 'Bufferfd ioresult )"},
-		{.what Here, .desc "address", .here 11728, .there 360,.type Relativedictionary, .p C_close_file },
-	{.what Sourceline, .desc "dd M_drop	; ( 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11736, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_dup	; ( 'Bufferfd 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11744, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11752, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 11760, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_xswap	; ( 'Bufferfd -1 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11768, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store	; ( 'Bufferfd )"},
-		{.what Here, .desc "address", .here 11776, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "L_C_close_next:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11784, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 11792, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 11800, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 11808, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 11816, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_close_input"},
-		{.what Here, .desc "address", .here 11824, .there 360,.type Relativedictionary, .p L_C_close_input },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 11832, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 11840, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 11848, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd MV_Infd	; ( -1 'Infd )"},
-		{.what Here, .desc "address", .here 11856, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_dup	; ( -1 'Infd 'Infd )"},
-		{.what Here, .desc "address", .here 11864, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_fetch	; ( -1 'Infd fd )"},
-		{.what Here, .desc "address", .here 11872, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_close_file	; ( -1 'Infd ioresult )"},
-		{.what Here, .desc "address", .here 11880, .there 360,.type Relativedictionary, .p C_close_file },
-	{.what Sourceline, .desc "dd M_drop	; ( -1 'Infd )"},
-		{.what Here, .desc "address", .here 11888, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 11896, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MV_Eof"},
-		{.what Here, .desc "address", .here 11904, .there 360,.type Relativedictionary, .p MV_Eof },
-	{.what Sourceline, .desc "dd C_off	; reset Eof back to 0"},
-		{.what Here, .desc "address", .here 11912, .there 360,.type Relativedictionary, .p C_off },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 11920, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"-+input\" restore_input 7 ; ( <input> -- ) ; use the input stream on the stack or abort"},
-		{.what Here, .desc "link",.here 11928, .there 360,.type Relativedictionary, .p 11592 },
-		{.what Here, .desc "len", .here 11936, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 11937, .there 360,.type Chars, .str "-+input" },
-		{.what Here, .desc "cfa", .here 11944, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_close_input"},
-		{.what Here, .desc "address", .here 11952, .there 360,.type Relativedictionary, .p C_close_input },
-	{.what Sourceline, .desc "dd C_input_store"},
-		{.what Here, .desc "address", .here 11960, .there 360,.type Relativedictionary, .p C_input_store },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 11968, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 11976, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_restore_input	; input stream restored"},
-		{.what Here, .desc "address", .here 11984, .there 360,.type Relativedictionary, .p L_restore_input },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 11992, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12000, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L137"},
-		{.what Here, .desc "address", .here 12008, .there 360,.type Relativedictionary, .p L137 },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 12016, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 12024, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 12032, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd C_depth"},
-		{.what Here, .desc "address", .here 12040, .there 360,.type Relativedictionary, .p C_depth },
-	{.what Sourceline, .desc "dd C_dot"},
-		{.what Here, .desc "address", .here 12048, .there 360,.type Relativedictionary, .p C_dot },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 12056, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 12064, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "L_restore_input:	; input stream restored, get out"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 12072, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"concat\" concat 6 ; ( 'cs1 'cs2 -- 'cs1+'cs2 ) concatenate counted string2 to counted-string1"},
-		{.what Here, .desc "link",.here 12080, .there 360,.type Relativedictionary, .p 11928 },
-		{.what Here, .desc "len", .here 12088, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 12089, .there 360,.type Chars, .str "concat" },
-		{.what Here, .desc "cfa", .here 12096, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_2dup	; ( 'cs1 'cs2 'cs1 'cs2 )"},
-		{.what Here, .desc "address", .here 12104, .there 360,.type Relativedictionary, .p C_2dup },
-	{.what Sourceline, .desc "dd M_dup	; ( 'cs1 'cs2 'cs1 'cs2 'cs2 )"},
-		{.what Here, .desc "address", .here 12112, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch	; ( 'cs1 'cs2 'cs1 'cs2 c2 )"},
-		{.what Here, .desc "address", .here 12120, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_rpush	; ( 'cs1 'cs2 'cs1 'cs2 ) (R c2 )"},
-		{.what Here, .desc "address", .here 12128, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_1plus	; ( 'cs1 'cs2 'cs1 'cs2+1 ) (R c2 )"},
-		{.what Here, .desc "address", .here 12136, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_over	; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 ) (R c2 )"},
-		{.what Here, .desc "address", .here 12144, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_dup	; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 'cs1 ) (R c2 )"},
-		{.what Here, .desc "address", .here 12152, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch	; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 c1 ) (R c2 )"},
-		{.what Here, .desc "address", .here 12160, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_plus	; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1 ) (R c2 )"},
-		{.what Here, .desc "address", .here 12168, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd C_1plus	; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 ) (R c2 )"},
-		{.what Here, .desc "address", .here 12176, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_rpop	; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 c2 ) (R )"},
-		{.what Here, .desc "address", .here 12184, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_cmove	; ( 'cs1 'cs2 'cs1 )"},
-		{.what Here, .desc "address", .here 12192, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd M_cfetch	; ( 'cs1 'cs2 c1 )"},
-		{.what Here, .desc "address", .here 12200, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_xswap	; ( 'cs1 c1 'cs2 )"},
-		{.what Here, .desc "address", .here 12208, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_cfetch	; ( 'cs1 c1 c2 )"},
-		{.what Here, .desc "address", .here 12216, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_plus	; ( 'cs1 c1+c2 )"},
-		{.what Here, .desc "address", .here 12224, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_over	; ( 'cs1 c1+c2 'cs1 )"},
-		{.what Here, .desc "address", .here 12232, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_cstore	; ( 'cs1 )"},
-		{.what Here, .desc "address", .here 12240, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 12248, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"buffername\" buffername 10 ; ( index -- 'counted_string ) build the buffer fd's filename"},
-		{.what Here, .desc "link",.here 12256, .there 360,.type Relativedictionary, .p 12080 },
-		{.what Here, .desc "len", .here 12264, .there 360,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 12265, .there 360,.type Chars, .str "buffername" },
-		{.what Here, .desc "cfa", .here 12272, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_bufferfilename_fetch	; ( 'fcs ) fcs = filename counted string"},
-		{.what Here, .desc "address", .here 12280, .there 360,.type Relativedictionary, .p C_bufferfilename_fetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12288, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_bin_prefix	; address of the counted string 3#n/"},
-		{.what Here, .desc "address", .here 12296, .there 360,.type Relativedictionary, .p L_bin_prefix },
-	{.what Sourceline, .desc "dd C_pad"},
-		{.what Here, .desc "address", .here 12304, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12312, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 4"},
-		{.what Here, .desc "value", .here 12320, .there 360,.type Absolute, .p 4 },
-	{.what Sourceline, .desc "dd M_cmove	; pad has 3#n/"},
-		{.what Here, .desc "address", .here 12328, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd C_pad	; ( 'fcs pad )"},
-		{.what Here, .desc "address", .here 12336, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd MV_Infd"},
-		{.what Here, .desc "address", .here 12344, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 12352, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_counted_paren_dot_paren ; ( 'fcs pad 'cs )"},
-		{.what Here, .desc "address", .here 12360, .there 360,.type Relativedictionary, .p C_counted_paren_dot_paren },
-	{.what Sourceline, .desc "dd C_concat	; Now, pad has 4#n/0 ( 'fcs pad )"},
-		{.what Here, .desc "address", .here 12368, .there 360,.type Relativedictionary, .p C_concat },
-	{.what Sourceline, .desc "dd M_xswap	; ( pad 'fcs )"},
-		{.what Here, .desc "address", .here 12376, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd C_concat	; Now, pad has a proper counted string"},
-		{.what Here, .desc "address", .here 12384, .there 360,.type Relativedictionary, .p C_concat },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 12392, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 12400, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 12408, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 12416, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 12424, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"get\" get 3 ; ( index -- read_count ) read from the indexed Fd in Bufferfds into Tib"},
-		{.what Here, .desc "link",.here 12432, .there 360,.type Relativedictionary, .p 12256 },
-		{.what Here, .desc "len", .here 12440, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 12441, .there 360,.type Chars, .str "get" },
-		{.what Here, .desc "cfa", .here 12448, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Eof"},
-		{.what Here, .desc "address", .here 12456, .there 360,.type Relativedictionary, .p MV_Eof },
-	{.what Sourceline, .desc "dd C_off	; clear EOF flag"},
-		{.what Here, .desc "address", .here 12464, .there 360,.type Relativedictionary, .p C_off },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 12472, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_cells	; ( index index*cellsize ) number of bytes"},
-		{.what Here, .desc "address", .here 12480, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 12488, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd M_plus	; ( index index*cellsize+'Bufferfds ) address of the fd"},
-		{.what Here, .desc "address", .here 12496, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_fetch	; ( index fd )"},
-		{.what Here, .desc "address", .here 12504, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_dup	; ( index fd fd )"},
-		{.what Here, .desc "address", .here 12512, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12520, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 12528, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_equal"},
-		{.what Here, .desc "address", .here 12536, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd M_cjump	; if fd == -1 ( index fd )"},
-		{.what Here, .desc "address", .here 12544, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_get	; when not -1"},
-		{.what Here, .desc "address", .here 12552, .there 360,.type Relativedictionary, .p L_C_get },
-	{.what Sourceline, .desc "dd M_drop	; when fd == -1 ( index )"},
-		{.what Here, .desc "address", .here 12560, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 12568, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 12576, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( index index ) (R index )"},
-		{.what Here, .desc "address", .here 12584, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_buffername"},
-		{.what Here, .desc "address", .here 12592, .there 360,.type Relativedictionary, .p C_buffername },
-	{.what Sourceline, .desc "dd C_count	; ( index 'filename-counted-string -- 'text count ) (R index )"},
-		{.what Here, .desc "address", .here 12600, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_ro"},
-		{.what Here, .desc "address", .here 12608, .there 360,.type Relativedictionary, .p C_ro },
-	{.what Sourceline, .desc "dd C_open_file	; ( index fd ioresult ) (R index )"},
-		{.what Here, .desc "address", .here 12616, .there 360,.type Relativedictionary, .p C_open_file },
-	{.what Sourceline, .desc "dd C_invert"},
-		{.what Here, .desc "address", .here 12624, .there 360,.type Relativedictionary, .p C_invert },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 12632, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_get_opened	; if open suceeded, go here"},
-		{.what Here, .desc "address", .here 12640, .there 360,.type Relativedictionary, .p L_C_get_opened },
-	{.what Sourceline, .desc "dd M_drop	; ( index ) (R index ) returned false, could not open-file. write error message"},
-		{.what Here, .desc "address", .here 12648, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12656, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_open_failed		; open error"},
-		{.what Here, .desc "address", .here 12664, .there 360,.type Relativedictionary, .p L_open_failed },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 12672, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 12680, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_dot	; show the index"},
-		{.what Here, .desc "address", .here 12688, .there 360,.type Relativedictionary, .p C_dot },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 12696, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort	; abort on open error. How about terminate?"},
-		{.what Here, .desc "address", .here 12704, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "L_C_get_opened:	; ( index fd ) (R index ) store the opened fd"},
-	{.what Sourceline, .desc "dd M_dup	; ( index fd fd )"},
-		{.what Here, .desc "address", .here 12712, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpop	; ( index fd fd index )"},
-		{.what Here, .desc "address", .here 12720, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_cells	; ( index fd fd index*cellsize ) number of bytes"},
-		{.what Here, .desc "address", .here 12728, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 12736, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd M_plus	; ( index fd fd index*cellsize+'Bufferfds ) address of the filename's counted string"},
-		{.what Here, .desc "address", .here 12744, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_store	; ( index fd )"},
-		{.what Here, .desc "address", .here 12752, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "L_C_get:		; ( index fd ) when fd != -1"},
-	{.what Sourceline, .desc "dd MV_Tib"},
-		{.what Here, .desc "address", .here 12760, .there 360,.type Relativedictionary, .p MV_Tib },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12768, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 4096		; ( index fd Tib 4096 )"},
-		{.what Here, .desc "value", .here 12776, .there 360,.type Absolute, .p 4096 },
-	{.what Sourceline, .desc "dd C_read_file ; ( index read_count ioresult )"},
-		{.what Here, .desc "address", .here 12784, .there 360,.type Relativedictionary, .p C_read_file },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 12792, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_get_read_failed"},
-		{.what Here, .desc "address", .here 12800, .there 360,.type Relativedictionary, .p L_C_get_read_failed },
-	{.what Sourceline, .desc "dd C_nip	; ( read_count )"},
-		{.what Here, .desc "address", .here 12808, .there 360,.type Relativedictionary, .p C_nip },
-	{.what Sourceline, .desc "dd M_dup	; ( read_count read_count )"},
-		{.what Here, .desc "address", .here 12816, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 12824, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_get_read_0"},
-		{.what Here, .desc "address", .here 12832, .there 360,.type Relativedictionary, .p L_C_get_read_0 },
-	{.what Sourceline, .desc "dd M_dup	; read_count > 0 ( read_count read_count )"},
-		{.what Here, .desc "address", .here 12840, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12848, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 4096"},
-		{.what Here, .desc "value", .here 12856, .there 360,.type Absolute, .p 4096 },
-	{.what Sourceline, .desc "dd M_equal"},
-		{.what Here, .desc "address", .here 12864, .there 360,.type Relativedictionary, .p M_equal },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 12872, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_get_read_successful"},
-		{.what Here, .desc "address", .here 12880, .there 360,.type Relativedictionary, .p L_C_get_read_successful },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12888, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_C_get_too_long ; could not find a delimiter in 4096 bytes, reevaluate"},
-		{.what Here, .desc "address", .here 12896, .there 360,.type Relativedictionary, .p L_C_get_too_long },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 12904, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 12912, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_dot	; show the read_count"},
-		{.what Here, .desc "address", .here 12920, .there 360,.type Relativedictionary, .p C_dot },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 12928, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort	; abort on read error. How about terminate?"},
-		{.what Here, .desc "address", .here 12936, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 12944, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_get_read_failed:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 12952, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_read_failed ; read error"},
-		{.what Here, .desc "address", .here 12960, .there 360,.type Relativedictionary, .p L_read_failed },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 12968, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 12976, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_dot	; show the index"},
-		{.what Here, .desc "address", .here 12984, .there 360,.type Relativedictionary, .p C_dot },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 12992, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort	; abort on read error. How about terminate?"},
-		{.what Here, .desc "address", .here 13000, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13008, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_get_read_0:"},
-	{.what Sourceline, .desc "dd M_drop	; ( ) read_count == 0"},
-		{.what Here, .desc "address", .here 13016, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd MV_Eof"},
-		{.what Here, .desc "address", .here 13024, .there 360,.type Relativedictionary, .p MV_Eof },
-	{.what Sourceline, .desc "dd C_on		; end of file, qrestore_input"},
-		{.what Here, .desc "address", .here 13032, .there 360,.type Relativedictionary, .p C_on },
-	{.what Sourceline, .desc "dd C_restore_input"},
-		{.what Here, .desc "address", .here 13040, .there 360,.type Relativedictionary, .p C_restore_input },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13048, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_get_read_successful:"},
-	{.what Sourceline, .desc "dd M_exitcolon	; ( read_count ) successful read, get out"},
-		{.what Here, .desc "address", .here 13056, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"parse\" parse 5 ; ( read_count -- 'Wordb ) Wordb has a counted string. read_count bytes read into Tib"},
-		{.what Here, .desc "link",.here 13064, .there 360,.type Relativedictionary, .p 12432 },
-		{.what Here, .desc "len", .here 13072, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 13073, .there 360,.type Chars, .str "parse" },
-		{.what Here, .desc "cfa", .here 13080, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_dup	; ( read_count read_count ) check if count > 255 bytes, then invalid word"},
-		{.what Here, .desc "address", .here 13088, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 13096, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 256"},
-		{.what Here, .desc "value", .here 13104, .there 360,.type Absolute, .p 256 },
-	{.what Sourceline, .desc "dd M_less"},
-		{.what Here, .desc "address", .here 13112, .there 360,.type Relativedictionary, .p M_less },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 13120, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_parse_1"},
-		{.what Here, .desc "address", .here 13128, .there 360,.type Relativedictionary, .p L_C_parse_1 },
-	{.what Sourceline, .desc "dd M_dup	; ( read_count read_count )"},
-		{.what Here, .desc "address", .here 13136, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd MV_Wordb"},
-		{.what Here, .desc "address", .here 13144, .there 360,.type Relativedictionary, .p MV_Wordb },
-	{.what Sourceline, .desc "dd M_cstore	; ( store read_count at Wordb[0] )"},
-		{.what Here, .desc "address", .here 13152, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 13160, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd MV_Tib"},
-		{.what Here, .desc "address", .here 13168, .there 360,.type Relativedictionary, .p MV_Tib },
-	{.what Sourceline, .desc "dd MV_Wordb"},
-		{.what Here, .desc "address", .here 13176, .there 360,.type Relativedictionary, .p MV_Wordb },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 13184, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 13192, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_plus	; ( 'Tib 'Wordb+1 ) (R read_count )"},
-		{.what Here, .desc "address", .here 13200, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_rpop	; ( 'Tib 'Wordb+1 read_count )"},
-		{.what Here, .desc "address", .here 13208, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_cmove	; copy bytes from Tib to Wordb to make it a counted string at Wordb"},
-		{.what Here, .desc "address", .here 13216, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd MV_Wordb"},
-		{.what Here, .desc "address", .here 13224, .there 360,.type Relativedictionary, .p MV_Wordb },
-	{.what Sourceline, .desc "dd M_exitcolon	; ( 'Wordb ) Wordb has the counted string"},
-		{.what Here, .desc "address", .here 13232, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_parse_1:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 13240, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_C_long_word"},
-		{.what Here, .desc "address", .here 13248, .there 360,.type Relativedictionary, .p L_C_long_word },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 13256, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 13264, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 13272, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 13280, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13288, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"word\" word 4 ; ( -- 'Wordb ) read from #n/Infd/word into Tib and then parse to a counted string in Wordb"},
-		{.what Here, .desc "link",.here 13296, .there 360,.type Relativedictionary, .p 13064 },
-		{.what Here, .desc "len", .here 13304, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 13305, .there 360,.type Chars, .str "word" },
-		{.what Here, .desc "cfa", .here 13312, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_WORDNUM"},
-		{.what Here, .desc "address", .here 13320, .there 360,.type Relativedictionary, .p MC_WORDNUM },
-	{.what Sourceline, .desc "dd C_get"},
-		{.what Here, .desc "address", .here 13328, .there 360,.type Relativedictionary, .p C_get },
-	{.what Sourceline, .desc "dd C_parse"},
-		{.what Here, .desc "address", .here 13336, .there 360,.type Relativedictionary, .p C_parse },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13344, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"line\" line 4 ; ( -- count ) read from #n/Infd/line into Tib"},
-		{.what Here, .desc "link",.here 13352, .there 360,.type Relativedictionary, .p 13296 },
-		{.what Here, .desc "len", .here 13360, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 13361, .there 360,.type Chars, .str "line" },
-		{.what Here, .desc "cfa", .here 13368, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_LINENUM"},
-		{.what Here, .desc "address", .here 13376, .there 360,.type Relativedictionary, .p MC_LINENUM },
-	{.what Sourceline, .desc "dd C_get"},
-		{.what Here, .desc "address", .here 13384, .there 360,.type Relativedictionary, .p C_get },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13392, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"doublequote\" doublequote 11 ; ( -- count ) read from #n/Infd/doublequote into Tib"},
-		{.what Here, .desc "link",.here 13400, .there 360,.type Relativedictionary, .p 13352 },
-		{.what Here, .desc "len", .here 13408, .there 360,.type Byte, .b 0 + 11 },
-		{.what Here, .desc "name",.here 13409, .there 360,.type Chars, .str "doublequote" },
-		{.what Here, .desc "cfa", .here 13416, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_DOUBLEQUOTENUM"},
-		{.what Here, .desc "address", .here 13424, .there 360,.type Relativedictionary, .p MC_DOUBLEQUOTENUM },
-	{.what Sourceline, .desc "dd C_get"},
-		{.what Here, .desc "address", .here 13432, .there 360,.type Relativedictionary, .p C_get },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13440, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cdoublequote\" counted_doublequote 11 ; ( -- 'Wordb ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb"},
-		{.what Here, .desc "link",.here 13448, .there 360,.type Relativedictionary, .p 13400 },
-		{.what Here, .desc "len", .here 13456, .there 360,.type Byte, .b 0 + 11 },
-		{.what Here, .desc "name",.here 13457, .there 360,.type Chars, .str "cdoublequote" },
-		{.what Here, .desc "cfa", .here 13464, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_DOUBLEQUOTENUM"},
-		{.what Here, .desc "address", .here 13472, .there 360,.type Relativedictionary, .p MC_DOUBLEQUOTENUM },
-	{.what Sourceline, .desc "dd C_get"},
-		{.what Here, .desc "address", .here 13480, .there 360,.type Relativedictionary, .p C_get },
-	{.what Sourceline, .desc "dd C_parse"},
-		{.what Here, .desc "address", .here 13488, .there 360,.type Relativedictionary, .p C_parse },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13496, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"closeparen\" closeparen 10 ; ( -- count ) read from #n/Infd/closeparen"},
-		{.what Here, .desc "link",.here 13504, .there 360,.type Relativedictionary, .p 13448 },
-		{.what Here, .desc "len", .here 13512, .there 360,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 13513, .there 360,.type Chars, .str "closeparen" },
-		{.what Here, .desc "cfa", .here 13520, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MC_CLOSEPARENNUM"},
-		{.what Here, .desc "address", .here 13528, .there 360,.type Relativedictionary, .p MC_CLOSEPARENNUM },
-	{.what Sourceline, .desc "dd C_get"},
-		{.what Here, .desc "address", .here 13536, .there 360,.type Relativedictionary, .p C_get },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13544, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"findname\" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names"},
-		{.what Here, .desc "link",.here 13552, .there 360,.type Relativedictionary, .p 13504 },
-		{.what Here, .desc "len", .here 13560, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 13561, .there 360,.type Chars, .str "findname" },
-		{.what Here, .desc "cfa", .here 13568, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Findadr"},
-		{.what Here, .desc "address", .here 13576, .there 360,.type Relativedictionary, .p MV_Findadr },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 13584, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MV_Dtop"},
-		{.what Here, .desc "address", .here 13592, .there 360,.type Relativedictionary, .p MV_Dtop },
-	{.what Sourceline, .desc "dd M_fetch	; get latest dictionary link"},
-		{.what Here, .desc "address", .here 13600, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "L_C_findname:"},
-	{.what Sourceline, .desc "dd C_qdup"},
-		{.what Here, .desc "address", .here 13608, .there 360,.type Relativedictionary, .p C_qdup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 13616, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_findname_1	; seached until the first dictionary entry get out"},
-		{.what Here, .desc "address", .here 13624, .there 360,.type Relativedictionary, .p L_C_findname_1 },
-	{.what Sourceline, .desc "dd M_dup	; ( a -- a a )"},
-		{.what Here, .desc "address", .here 13632, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_cell_plus	; ( a a -- a a+8) lenth + initial name address"},
-		{.what Here, .desc "address", .here 13640, .there 360,.type Relativedictionary, .p C_cell_plus },
-	{.what Sourceline, .desc "dd M_cfetch	; ( a a+8 -- a immediate|hidden|len) length + initial name"},
-		{.what Here, .desc "address", .here 13648, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 13656, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 64		; check the reveal'ed flag 1=hidden, 0=reveal"},
-		{.what Here, .desc "value", .here 13664, .there 360,.type Absolute, .p 64 },
-	{.what Sourceline, .desc "dd M_binand	; if hidden, goto L_C_findname_3 else L_C_findname_2"},
-		{.what Here, .desc "address", .here 13672, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 13680, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_findname_2"},
-		{.what Here, .desc "address", .here 13688, .there 360,.type Relativedictionary, .p L_C_findname_2 },
-	{.what Sourceline, .desc "dd M_fetch	; smudge'd dictionary entry, get the previous entry"},
-		{.what Here, .desc "address", .here 13696, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 13704, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_findname_3"},
-		{.what Here, .desc "address", .here 13712, .there 360,.type Relativedictionary, .p L_C_findname_3 },
-	{.what Sourceline, .desc "L_C_findname_2:		; reveal'ed dictionary entry"},
-	{.what Sourceline, .desc "dd M_dup	; ( a1 -- a1 a1)"},
-		{.what Here, .desc "address", .here 13720, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_cell_plus	; ( a1 a1 -- a1 a1+8)"},
-		{.what Here, .desc "address", .here 13728, .there 360,.type Relativedictionary, .p C_cell_plus },
-	{.what Sourceline, .desc "dd C_count	; ( a1 a1+8 -- a1 a1+8+1 n )"},
-		{.what Here, .desc "address", .here 13736, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 13744, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 63"},
-		{.what Here, .desc "value", .here 13752, .there 360,.type Absolute, .p 63 },
-	{.what Sourceline, .desc "dd M_binand	; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len )"},
-		{.what Here, .desc "address", .here 13760, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd MV_Findadr"},
-		{.what Here, .desc "address", .here 13768, .there 360,.type Relativedictionary, .p MV_Findadr },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 13776, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_count	; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 )"},
-		{.what Here, .desc "address", .here 13784, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_compare	; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name"},
-		{.what Here, .desc "address", .here 13792, .there 360,.type Relativedictionary, .p C_compare },
-	{.what Sourceline, .desc "dd C_0eq	; found a match?"},
-		{.what Here, .desc "address", .here 13800, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 13808, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_findname_4		; no match"},
-		{.what Here, .desc "address", .here 13816, .there 360,.type Relativedictionary, .p L_C_findname_4 },
-	{.what Sourceline, .desc "dd C_cell_plus	; match found"},
-		{.what Here, .desc "address", .here 13824, .there 360,.type Relativedictionary, .p C_cell_plus },
-	{.what Sourceline, .desc "dd C_true"},
-		{.what Here, .desc "address", .here 13832, .there 360,.type Relativedictionary, .p C_true },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13840, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_C_findname_4:"},
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 13848, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "L_C_findname_3:"},
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 13856, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_findname"},
-		{.what Here, .desc "address", .here 13864, .there 360,.type Relativedictionary, .p L_C_findname },
-	{.what Sourceline, .desc "L_C_findname_1:"},
-	{.what Sourceline, .desc "dd MV_Findadr"},
-		{.what Here, .desc "address", .here 13872, .there 360,.type Relativedictionary, .p MV_Findadr },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 13880, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_false"},
-		{.what Here, .desc "address", .here 13888, .there 360,.type Relativedictionary, .p C_false },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 13896, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"find\" find 4 ; ( a1 -- a2 f )?"},
-		{.what Here, .desc "link",.here 13904, .there 360,.type Relativedictionary, .p 13552 },
-		{.what Here, .desc "len", .here 13912, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 13913, .there 360,.type Chars, .str "find" },
-		{.what Here, .desc "cfa", .here 13920, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_findname"},
-		{.what Here, .desc "address", .here 13928, .there 360,.type Relativedictionary, .p C_findname },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 13936, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_find"},
-		{.what Here, .desc "address", .here 13944, .there 360,.type Relativedictionary, .p L_C_find },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 13952, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 13960, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 13968, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_over"},
-		{.what Here, .desc "address", .here 13976, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 13984, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 63"},
-		{.what Here, .desc "value", .here 13992, .there 360,.type Absolute, .p 63 },
-	{.what Sourceline, .desc "dd M_binand"},
-		{.what Here, .desc "address", .here 14000, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 14008, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd C_1plus"},
-		{.what Here, .desc "address", .here 14016, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd C_aligned"},
-		{.what Here, .desc "address", .here 14024, .there 360,.type Relativedictionary, .p C_aligned },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 14032, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14040, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 128"},
-		{.what Here, .desc "value", .here 14048, .there 360,.type Absolute, .p 128 },
-	{.what Sourceline, .desc "dd M_binand"},
-		{.what Here, .desc "address", .here 14056, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 14064, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_find_1"},
-		{.what Here, .desc "address", .here 14072, .there 360,.type Relativedictionary, .p L_C_find_1 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14080, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 14088, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 14096, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_find_2"},
-		{.what Here, .desc "address", .here 14104, .there 360,.type Relativedictionary, .p L_C_find_2 },
-	{.what Sourceline, .desc "L_C_find_1:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14112, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 14120, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "L_C_find_2:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 14128, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 14136, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_find_3"},
-		{.what Here, .desc "address", .here 14144, .there 360,.type Relativedictionary, .p L_C_find_3 },
-	{.what Sourceline, .desc "L_C_find:"},
-	{.what Sourceline, .desc "dd C_false"},
-		{.what Here, .desc "address", .here 14152, .there 360,.type Relativedictionary, .p C_false },
-	{.what Sourceline, .desc "L_C_find_3:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 14160, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"'\" single_quote 1"},
-		{.what Here, .desc "link",.here 14168, .there 360,.type Relativedictionary, .p 13904 },
-		{.what Here, .desc "len", .here 14176, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 14177, .there 360,.type Chars, .str "'" },
-		{.what Here, .desc "cfa", .here 14184, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_word"},
-		{.what Here, .desc "address", .here 14192, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd C_find"},
-		{.what Here, .desc "address", .here 14200, .there 360,.type Relativedictionary, .p C_find },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 14208, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 14216, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_single_quote"},
-		{.what Here, .desc "address", .here 14224, .there 360,.type Relativedictionary, .p L_C_single_quote },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 14232, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 14240, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 14248, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14256, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L170"},
-		{.what Here, .desc "address", .here 14264, .there 360,.type Relativedictionary, .p L170 },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 14272, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 14280, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 14288, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 14296, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "L_C_single_quote:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 14304, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"?stack\" qstack 6"},
-		{.what Here, .desc "link",.here 14312, .there 360,.type Relativedictionary, .p 14168 },
-		{.what Here, .desc "len", .here 14320, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 14321, .there 360,.type Chars, .str "?stack" },
-		{.what Here, .desc "cfa", .here 14328, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_stackptr"},
-		{.what Here, .desc "address", .here 14336, .there 360,.type Relativedictionary, .p M_stackptr },
-	{.what Sourceline, .desc "dd MV_S0"},
-		{.what Here, .desc "address", .here 14344, .there 360,.type Relativedictionary, .p MV_S0 },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 14352, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 14360, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_qstack"},
-		{.what Here, .desc "address", .here 14368, .there 360,.type Relativedictionary, .p L_C_qstack },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14376, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L173"},
-		{.what Here, .desc "address", .here 14384, .there 360,.type Relativedictionary, .p L173 },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 14392, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 14400, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 14408, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 14416, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "L_C_qstack:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 14424, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "dd MC_STDOUT	; ( str -- str 1) ; debug code to show the word found"},
-		{.what Here, .desc "address", .here 14432, .there 360,.type Relativedictionary, .p MC_STDOUT },
-	{.what Sourceline, .desc "dd M_over		; ( str 1 str )"},
-		{.what Here, .desc "address", .here 14440, .there 360,.type Relativedictionary, .p M_over },
-	{.what Sourceline, .desc "dd C_count 		; ( str 1 a n)"},
-		{.what Here, .desc "address", .here 14448, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd M_syswrite"},
-		{.what Here, .desc "address", .here 14456, .there 360,.type Relativedictionary, .p M_syswrite },
-	{.what Sourceline, .desc "dd M_drop		; drop the return value of write"},
-		{.what Here, .desc "address", .here 14464, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "CENTRY \"interpret\" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set"},
-		{.what Here, .desc "link",.here 14472, .there 360,.type Relativedictionary, .p 14312 },
-		{.what Here, .desc "len", .here 14480, .there 360,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 14481, .there 360,.type Chars, .str "interpret" },
-		{.what Here, .desc "cfa", .here 14488, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "L_C_interpret:"},
-	{.what Sourceline, .desc "dd C_word	; ( -- 'Wordb ) Wordb has the counted string"},
-		{.what Here, .desc "address", .here 14496, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd C_find	; ( 'Wordb -- a1 f )"},
-		{.what Here, .desc "address", .here 14504, .there 360,.type Relativedictionary, .p C_find },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 14512, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_interpret_2"},
-		{.what Here, .desc "address", .here 14520, .there 360,.type Relativedictionary, .p L_C_interpret_2 },
-	{.what Sourceline, .desc "dd M_execute	; found in dictionary, execute"},
-		{.what Here, .desc "address", .here 14528, .there 360,.type Relativedictionary, .p M_execute },
-	{.what Sourceline, .desc "dd C_qstack"},
-		{.what Here, .desc "address", .here 14536, .there 360,.type Relativedictionary, .p C_qstack },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 14544, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_interpret_3"},
-		{.what Here, .desc "address", .here 14552, .there 360,.type Relativedictionary, .p L_C_interpret_3 },
-	{.what Sourceline, .desc "L_C_interpret_2:	; ( 'Wordb ) not found in the dictionary, check for number?"},
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 14560, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_number"},
-		{.what Here, .desc "address", .here 14568, .there 360,.type Relativedictionary, .p C_number },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 14576, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 14584, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_interpret_4"},
-		{.what Here, .desc "address", .here 14592, .there 360,.type Relativedictionary, .p L_C_interpret_4 },
-	{.what Sourceline, .desc "dd C_space	; the word is neither in the dictionary nor a number"},
-		{.what Here, .desc "address", .here 14600, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd C_type	; show the word"},
-		{.what Here, .desc "address", .here 14608, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14616, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L180	; error I?"},
-		{.what Here, .desc "address", .here 14624, .there 360,.type Relativedictionary, .p L180 },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 14632, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 14640, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 14648, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 14656, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "L_C_interpret_4:		; is a number"},
-	{.what Sourceline, .desc "L_C_interpret_3:"},
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 14664, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_interpret"},
-		{.what Here, .desc "address", .here 14672, .there 360,.type Relativedictionary, .p L_C_interpret },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 14680, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"create\" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa)"},
-		{.what Here, .desc "link",.here 14688, .there 360,.type Relativedictionary, .p 14472 },
-		{.what Here, .desc "len", .here 14696, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 14697, .there 360,.type Chars, .str "create" },
-		{.what Here, .desc "cfa", .here 14704, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_align	; sets Dp = aligned here"},
-		{.what Here, .desc "address", .here 14712, .there 360,.type Relativedictionary, .p C_align },
-	{.what Sourceline, .desc "dd C_here	; ( -- here )"},
-		{.what Here, .desc "address", .here 14720, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_rpush	; ( -- ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14728, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd MV_Dtop	; ( -- Dtop ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14736, .there 360,.type Relativedictionary, .p MV_Dtop },
-	{.what Sourceline, .desc "dd M_fetch	; ( Dtop -- dtop ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14744, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_comma	; ( dtop -- ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14752, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_word	; get the word from the input stream ( -- 'counted-string ) in Wordb"},
-		{.what Here, .desc "address", .here 14760, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd M_dup	; ( a -- a a ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14768, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch	; ( a a -- a len ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14776, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd C_here	; ( a len -- a len here ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14784, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_xswap	; ( a len here -- a here len ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14792, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd C_1plus	; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte"},
-		{.what Here, .desc "address", .here 14800, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_dup	; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14808, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 )"},
-		{.what Here, .desc "address", .here 14816, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_cmove	; ( a here len+1 -- ) (R -- linkaddr len+1 )"},
-		{.what Here, .desc "address", .here 14824, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd M_rpop	; ( -- len+1 ) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14832, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_allot	; ( -- ) (R -- linkaddr ) here = here+len+1"},
-		{.what Here, .desc "address", .here 14840, .there 360,.type Relativedictionary, .p C_allot },
-	{.what Sourceline, .desc "dd C_align	; sets Dp = aligned here"},
-		{.what Here, .desc "address", .here 14848, .there 360,.type Relativedictionary, .p C_align },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14856, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_variable"},
-		{.what Here, .desc "address", .here 14864, .there 360,.type Relativedictionary, .p M_variable },
-	{.what Sourceline, .desc "dd M_fetch	; ( -- variablecfa) (R -- linkaddr )"},
-		{.what Here, .desc "address", .here 14872, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_comma	; ( -- ) put the variablecfa into the cfa"},
-		{.what Here, .desc "address", .here 14880, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_rpop	; ( -- linkaddr) (R -- )"},
-		{.what Here, .desc "address", .here 14888, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd MV_Dtop"},
-		{.what Here, .desc "address", .here 14896, .there 360,.type Relativedictionary, .p MV_Dtop },
-	{.what Sourceline, .desc "dd M_store	; Dtop = just created link address"},
-		{.what Here, .desc "address", .here 14904, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 14912, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"variable\" variable 8 ; compile to put the there then on the stack"},
-		{.what Here, .desc "link",.here 14920, .there 360,.type Relativedictionary, .p 14688 },
-		{.what Here, .desc "len", .here 14928, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 14929, .there 360,.type Chars, .str "variable" },
-		{.what Here, .desc "cfa", .here 14936, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_create"},
-		{.what Here, .desc "address", .here 14944, .there 360,.type Relativedictionary, .p C_create },
-	{.what Sourceline, .desc "dd C_there"},
-		{.what Here, .desc "address", .here 14952, .there 360,.type Relativedictionary, .p C_there },
-	{.what Sourceline, .desc "dd C_comma	; put the next available variable location in pfa"},
-		{.what Here, .desc "address", .here 14960, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 14968, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 14976, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 14984, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd C_vallot	; there = there+8, stored at Vp"},
-		{.what Here, .desc "address", .here 14992, .there 360,.type Relativedictionary, .p C_vallot },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15000, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"constant\" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant)"},
-		{.what Here, .desc "link",.here 15008, .there 360,.type Relativedictionary, .p 14920 },
-		{.what Here, .desc "len", .here 15016, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 15017, .there 360,.type Chars, .str "constant" },
-		{.what Here, .desc "cfa", .here 15024, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_create	; create dictionary header upto the cfa"},
-		{.what Here, .desc "address", .here 15032, .there 360,.type Relativedictionary, .p C_create },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15040, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_constant"},
-		{.what Here, .desc "address", .here 15048, .there 360,.type Relativedictionary, .p M_constant },
-	{.what Sourceline, .desc "dd M_fetch	; ( Contstantcfa -- (constant) )"},
-		{.what Here, .desc "address", .here 15056, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_here	; ( (constant) -- (constant) here )"},
-		{.what Here, .desc "address", .here 15064, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15072, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 15080, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells	; ( (constant) here -- (constant) here 8 )"},
-		{.what Here, .desc "address", .here 15088, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_minus	; ( (constant) here 8 -- (constant) here-8 )"},
-		{.what Here, .desc "address", .here 15096, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_store	; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) "},
-		{.what Here, .desc "address", .here 15104, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd C_comma	; store n into the dictionary"},
-		{.what Here, .desc "address", .here 15112, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15120, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"immediate\" immediate 9"},
-		{.what Here, .desc "link",.here 15128, .there 360,.type Relativedictionary, .p 15008 },
-		{.what Here, .desc "len", .here 15136, .there 360,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 15137, .there 360,.type Chars, .str "immediate" },
-		{.what Here, .desc "cfa", .here 15144, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 15152, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 15160, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_cell_plus"},
-		{.what Here, .desc "address", .here 15168, .there 360,.type Relativedictionary, .p C_cell_plus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 15176, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 15184, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15192, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 128"},
-		{.what Here, .desc "value", .here 15200, .there 360,.type Absolute, .p 128 },
-	{.what Sourceline, .desc "dd M_binor"},
-		{.what Here, .desc "address", .here 15208, .there 360,.type Relativedictionary, .p M_binor },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 15216, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 15224, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15232, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \">cfa\" tocfa 4"},
-		{.what Here, .desc "link",.here 15240, .there 360,.type Relativedictionary, .p 15128 },
-		{.what Here, .desc "len", .here 15248, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 15249, .there 360,.type Chars, .str ">cfa" },
-		{.what Here, .desc "cfa", .here 15256, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 15264, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15272, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 63"},
-		{.what Here, .desc "value", .here 15280, .there 360,.type Absolute, .p 63 },
-	{.what Sourceline, .desc "dd M_binand"},
-		{.what Here, .desc "address", .here 15288, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 15296, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd C_aligned"},
-		{.what Here, .desc "address", .here 15304, .there 360,.type Relativedictionary, .p C_aligned },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15312, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"compile\" compile 7"},
-		{.what Here, .desc "link",.here 15320, .there 360,.type Relativedictionary, .p 15240 },
-		{.what Here, .desc "len", .here 15328, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 15329, .there 360,.type Chars, .str "compile" },
-		{.what Here, .desc "cfa", .here 15336, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_findname"},
-		{.what Here, .desc "address", .here 15344, .there 360,.type Relativedictionary, .p C_findname },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 15352, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_compile"},
-		{.what Here, .desc "address", .here 15360, .there 360,.type Relativedictionary, .p L_C_compile },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 15368, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 15376, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15384, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 128"},
-		{.what Here, .desc "value", .here 15392, .there 360,.type Absolute, .p 128 },
-	{.what Sourceline, .desc "dd M_binand"},
-		{.what Here, .desc "address", .here 15400, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 15408, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_compile_1"},
-		{.what Here, .desc "address", .here 15416, .there 360,.type Relativedictionary, .p L_C_compile_1 },
-	{.what Sourceline, .desc "dd C_tocfa	; immediate"},
-		{.what Here, .desc "address", .here 15424, .there 360,.type Relativedictionary, .p C_tocfa },
-	{.what Sourceline, .desc "dd M_execute"},
-		{.what Here, .desc "address", .here 15432, .there 360,.type Relativedictionary, .p M_execute },
-	{.what Sourceline, .desc "dd C_qstack"},
-		{.what Here, .desc "address", .here 15440, .there 360,.type Relativedictionary, .p C_qstack },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 15448, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_compile_2"},
-		{.what Here, .desc "address", .here 15456, .there 360,.type Relativedictionary, .p L_C_compile_2 },
-	{.what Sourceline, .desc "L_C_compile_1:"},
-	{.what Sourceline, .desc "dd C_tocfa"},
-		{.what Here, .desc "address", .here 15464, .there 360,.type Relativedictionary, .p C_tocfa },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 15472, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "L_C_compile_2:"},
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 15480, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_compile_3"},
-		{.what Here, .desc "address", .here 15488, .there 360,.type Relativedictionary, .p L_C_compile_3 },
-	{.what Sourceline, .desc "L_C_compile:"},
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 15496, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_number"},
-		{.what Here, .desc "address", .here 15504, .there 360,.type Relativedictionary, .p C_number },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 15512, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 15520, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_compile_4"},
-		{.what Here, .desc "address", .here 15528, .there 360,.type Relativedictionary, .p L_C_compile_4 },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 15536, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 15544, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15552, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_C_compile_5"},
-		{.what Here, .desc "address", .here 15560, .there 360,.type Relativedictionary, .p L_C_compile_5 },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 15568, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 15576, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 15584, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 15592, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 15600, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_compile_6"},
-		{.what Here, .desc "address", .here 15608, .there 360,.type Relativedictionary, .p L_C_compile_6 },
-	{.what Sourceline, .desc "L_C_compile_4:"},
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15616, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15624, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 15632, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 15640, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "L_C_compile_6:"},
-	{.what Sourceline, .desc "L_C_compile_3:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15648, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"]\" close_bracket 1"},
-		{.what Here, .desc "link",.here 15656, .there 360,.type Relativedictionary, .p 15320 },
-		{.what Here, .desc "len", .here 15664, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 15665, .there 360,.type Chars, .str "]" },
-		{.what Here, .desc "cfa", .here 15672, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_State"},
-		{.what Here, .desc "address", .here 15680, .there 360,.type Relativedictionary, .p MV_State },
-	{.what Sourceline, .desc "dd C_on"},
-		{.what Here, .desc "address", .here 15688, .there 360,.type Relativedictionary, .p C_on },
-	{.what Sourceline, .desc "L_C_close_bracket:"},
-	{.what Sourceline, .desc "dd C_word"},
-		{.what Here, .desc "address", .here 15696, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 15704, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 15712, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 15720, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 15728, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_close_bracket_1"},
-		{.what Here, .desc "address", .here 15736, .there 360,.type Relativedictionary, .p L_C_close_bracket_1 },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 15744, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd C_word"},
-		{.what Here, .desc "address", .here 15752, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 15760, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_close_bracket_2"},
-		{.what Here, .desc "address", .here 15768, .there 360,.type Relativedictionary, .p L_C_close_bracket_2 },
-	{.what Sourceline, .desc "L_C_close_bracket_1:"},
-	{.what Sourceline, .desc "dd C_compile"},
-		{.what Here, .desc "address", .here 15776, .there 360,.type Relativedictionary, .p C_compile },
-	{.what Sourceline, .desc "dd MV_State"},
-		{.what Here, .desc "address", .here 15784, .there 360,.type Relativedictionary, .p MV_State },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 15792, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "L_C_close_bracket_2:"},
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 15800, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_close_bracket_3"},
-		{.what Here, .desc "address", .here 15808, .there 360,.type Relativedictionary, .p L_C_close_bracket_3 },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 15816, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_close_bracket"},
-		{.what Here, .desc "address", .here 15824, .there 360,.type Relativedictionary, .p L_C_close_bracket },
-	{.what Sourceline, .desc "L_C_close_bracket_3:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15832, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"[\" open_bracket 1"},
-		{.what Here, .desc "link",.here 15840, .there 360,.type Relativedictionary, .p 15656 },
-		{.what Here, .desc "len", .here 15848, .there 360,.type Byte, .b 128 + 1 },
-		{.what Here, .desc "name",.here 15849, .there 360,.type Chars, .str "[" },
-		{.what Here, .desc "cfa", .here 15856, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_State"},
-		{.what Here, .desc "address", .here 15864, .there 360,.type Relativedictionary, .p MV_State },
-	{.what Sourceline, .desc "dd C_off"},
-		{.what Here, .desc "address", .here 15872, .there 360,.type Relativedictionary, .p C_off },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15880, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"smudge\" smudge 6"},
-		{.what Here, .desc "link",.here 15888, .there 360,.type Relativedictionary, .p 15840 },
-		{.what Here, .desc "len", .here 15896, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 15897, .there 360,.type Chars, .str "smudge" },
-		{.what Here, .desc "cfa", .here 15904, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 15912, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 15920, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_cell_plus"},
-		{.what Here, .desc "address", .here 15928, .there 360,.type Relativedictionary, .p C_cell_plus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 15936, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 15944, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 15952, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 64"},
-		{.what Here, .desc "value", .here 15960, .there 360,.type Absolute, .p 64 },
-	{.what Sourceline, .desc "dd M_binor"},
-		{.what Here, .desc "address", .here 15968, .there 360,.type Relativedictionary, .p M_binor },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 15976, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 15984, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 15992, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"reveal\" reveal 6"},
-		{.what Here, .desc "link",.here 16000, .there 360,.type Relativedictionary, .p 15888 },
-		{.what Here, .desc "len", .here 16008, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 16009, .there 360,.type Chars, .str "reveal" },
-		{.what Here, .desc "cfa", .here 16016, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 16024, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 16032, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_cell_plus"},
-		{.what Here, .desc "address", .here 16040, .there 360,.type Relativedictionary, .p C_cell_plus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 16048, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 16056, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 16064, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 64"},
-		{.what Here, .desc "value", .here 16072, .there 360,.type Absolute, .p 64 },
-	{.what Sourceline, .desc "dd C_invert"},
-		{.what Here, .desc "address", .here 16080, .there 360,.type Relativedictionary, .p C_invert },
-	{.what Sourceline, .desc "dd M_binand"},
-		{.what Here, .desc "address", .here 16088, .there 360,.type Relativedictionary, .p M_binand },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 16096, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_cstore"},
-		{.what Here, .desc "address", .here 16104, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16112, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \":\" colon 1"},
-		{.what Here, .desc "link",.here 16120, .there 360,.type Relativedictionary, .p 16000 },
-		{.what Here, .desc "len", .here 16128, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 16129, .there 360,.type Chars, .str ":" },
-		{.what Here, .desc "cfa", .here 16136, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_create	; create a dictionary header with (variable) at cfa"},
-		{.what Here, .desc "address", .here 16144, .there 360,.type Relativedictionary, .p C_create },
-	{.what Sourceline, .desc "dd C_smudge"},
-		{.what Here, .desc "address", .here 16152, .there 360,.type Relativedictionary, .p C_smudge },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 16160, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_colon"},
-		{.what Here, .desc "address", .here 16168, .there 360,.type Relativedictionary, .p M_colon },
-	{.what Sourceline, .desc "dd M_fetch	; ( Coloncfa -- (colon) ) fetches the cfa of M_colon"},
-		{.what Here, .desc "address", .here 16176, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_here	; ( (colon) -- (colon) here )"},
-		{.what Here, .desc "address", .here 16184, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 16192, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 16200, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 16208, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_minus	; ( (colon) here -- (colon) here-8 )"},
-		{.what Here, .desc "address", .here 16216, .there 360,.type Relativedictionary, .p M_minus },
-	{.what Sourceline, .desc "dd M_store	; ( (colon) here-8 -- ) change the cfa from (variable) to colon"},
-		{.what Here, .desc "address", .here 16224, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd C_close_bracket"},
-		{.what Here, .desc "address", .here 16232, .there 360,.type Relativedictionary, .p C_close_bracket },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16240, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \";\" semicolon 1"},
-		{.what Here, .desc "link",.here 16248, .there 360,.type Relativedictionary, .p 16120 },
-		{.what Here, .desc "len", .here 16256, .there 360,.type Byte, .b 128 + 1 },
-		{.what Here, .desc "name",.here 16257, .there 360,.type Chars, .str ";" },
-		{.what Here, .desc "cfa", .here 16264, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 16272, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16280, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 16288, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd MV_State"},
-		{.what Here, .desc "address", .here 16296, .there 360,.type Relativedictionary, .p MV_State },
-	{.what Sourceline, .desc "dd C_off"},
-		{.what Here, .desc "address", .here 16304, .there 360,.type Relativedictionary, .p C_off },
-	{.what Sourceline, .desc "dd C_reveal"},
-		{.what Here, .desc "address", .here 16312, .there 360,.type Relativedictionary, .p C_reveal },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16320, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"recurse\" recurse 7"},
-		{.what Here, .desc "link",.here 16328, .there 360,.type Relativedictionary, .p 16248 },
-		{.what Here, .desc "len", .here 16336, .there 360,.type Byte, .b 128 + 7 },
-		{.what Here, .desc "name",.here 16337, .there 360,.type Chars, .str "recurse" },
-		{.what Here, .desc "cfa", .here 16344, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 16352, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd M_fetch"},
-		{.what Here, .desc "address", .here 16360, .there 360,.type Relativedictionary, .p M_fetch },
-	{.what Sourceline, .desc "dd C_cell_plus"},
-		{.what Here, .desc "address", .here 16368, .there 360,.type Relativedictionary, .p C_cell_plus },
-	{.what Sourceline, .desc "dd C_tocfa"},
-		{.what Here, .desc "address", .here 16376, .there 360,.type Relativedictionary, .p C_tocfa },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 16384, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16392, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"char\" char 4 ; ( -- c ) fetch the first character of the next word from input"},
-		{.what Here, .desc "link",.here 16400, .there 360,.type Relativedictionary, .p 16328 },
-		{.what Here, .desc "len", .here 16408, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 16409, .there 360,.type Chars, .str "char" },
-		{.what Here, .desc "cfa", .here 16416, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_word	; ( -- a ) puts the address of the counted string from the input on the stack"},
-		{.what Here, .desc "address", .here 16424, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd C_1plus	; skip the count"},
-		{.what Here, .desc "address", .here 16432, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_cfetch	; fetch the first character"},
-		{.what Here, .desc "address", .here 16440, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16448, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"literal\" literal 7 ; ( n -- ) adds (literal) n to the dictionary"},
-		{.what Here, .desc "link",.here 16456, .there 360,.type Relativedictionary, .p 16400 },
-		{.what Here, .desc "len", .here 16464, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 16465, .there 360,.type Chars, .str "literal" },
-		{.what Here, .desc "cfa", .here 16472, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 16480, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 16488, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 16496, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 16504, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16512, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"sliteral\" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary"},
-		{.what Here, .desc "link",.here 16520, .there 360,.type Relativedictionary, .p 16456 },
-		{.what Here, .desc "len", .here 16528, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 16529, .there 360,.type Chars, .str "sliteral" },
-		{.what Here, .desc "cfa", .here 16536, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 16544, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_sliteral"},
-		{.what Here, .desc "address", .here 16552, .there 360,.type Relativedictionary, .p M_sliteral },
-	{.what Sourceline, .desc "dd C_comma	; adds (sliteral) to the dictionary"},
-		{.what Here, .desc "address", .here 16560, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_here	; ( here )"},
-		{.what Here, .desc "address", .here 16568, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd C_counted_doublequote	; ( here 'Wordb ) Wordb has the counted string"},
-		{.what Here, .desc "address", .here 16576, .there 360,.type Relativedictionary, .p C_counted_doublequote },
-	{.what Sourceline, .desc "dd M_dup	; ( here 'Wordb 'Wordb )"},
-		{.what Here, .desc "address", .here 16584, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch	; ( here 'Wordb count )"},
-		{.what Here, .desc "address", .here 16592, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd C_1plus	; ( here 'Wordb count+1 )"},
-		{.what Here, .desc "address", .here 16600, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_rpush	; ( here 'Wordb ) (R count+1 )"},
-		{.what Here, .desc "address", .here 16608, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_xswap	; ( 'Wordb here ) (R count+1 )"},
-		{.what Here, .desc "address", .here 16616, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_rfetch	; ( 'Wordb here count+1 ) (R count+1 )"},
-		{.what Here, .desc "address", .here 16624, .there 360,.type Relativedictionary, .p M_rfetch },
-	{.what Sourceline, .desc "dd M_cmove	; ( ) (R count+1 )"},
-		{.what Here, .desc "address", .here 16632, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 16640, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_allot	; here = here+count+1"},
-		{.what Here, .desc "address", .here 16648, .there 360,.type Relativedictionary, .p C_allot },
-	{.what Sourceline, .desc "dd C_align	; align here"},
-		{.what Here, .desc "address", .here 16656, .there 360,.type Relativedictionary, .p C_align },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16664, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"string\" string 6 ; ( -- ) store the following word as a counted string onto the dictionary"},
-		{.what Here, .desc "link",.here 16672, .there 360,.type Relativedictionary, .p 16520 },
-		{.what Here, .desc "len", .here 16680, .there 360,.type Byte, .b 0 + 6 },
-		{.what Here, .desc "name",.here 16681, .there 360,.type Chars, .str "string" },
-		{.what Here, .desc "cfa", .here 16688, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_word"},
-		{.what Here, .desc "address", .here 16696, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 16704, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 16712, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd C_1plus"},
-		{.what Here, .desc "address", .here 16720, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 16728, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 16736, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_rfetch"},
-		{.what Here, .desc "address", .here 16744, .there 360,.type Relativedictionary, .p M_rfetch },
-	{.what Sourceline, .desc "dd M_cmove"},
-		{.what Here, .desc "address", .here 16752, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 16760, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_allot"},
-		{.what Here, .desc "address", .here 16768, .there 360,.type Relativedictionary, .p C_allot },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16776, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"[char]\" char_brackets 6 ; take the next character from the input stream during compilation"},
-		{.what Here, .desc "link",.here 16784, .there 360,.type Relativedictionary, .p 16672 },
-		{.what Here, .desc "len", .here 16792, .there 360,.type Byte, .b 128 + 6 },
-		{.what Here, .desc "name",.here 16793, .there 360,.type Chars, .str "[char]" },
-		{.what Here, .desc "cfa", .here 16800, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_word	; assuming that the character is a 1-byte word"},
-		{.what Here, .desc "address", .here 16808, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd C_1plus"},
-		{.what Here, .desc "address", .here 16816, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_cfetch"},
-		{.what Here, .desc "address", .here 16824, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd C_literal"},
-		{.what Here, .desc "address", .here 16832, .there 360,.type Relativedictionary, .p C_literal },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16840, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"[']\" quote_brackets 3 ; take the address of next token from the input stream during compilation"},
-		{.what Here, .desc "link",.here 16848, .there 360,.type Relativedictionary, .p 16784 },
-		{.what Here, .desc "len", .here 16856, .there 360,.type Byte, .b 128 + 3 },
-		{.what Here, .desc "name",.here 16857, .there 360,.type Chars, .str "[']" },
-		{.what Here, .desc "cfa", .here 16864, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_single_quote"},
-		{.what Here, .desc "address", .here 16872, .there 360,.type Relativedictionary, .p C_single_quote },
-	{.what Sourceline, .desc "dd C_literal"},
-		{.what Here, .desc "address", .here 16880, .there 360,.type Relativedictionary, .p C_literal },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16888, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"(\" openparen 1 ; ignore until ) from the input stream during compilation"},
-		{.what Here, .desc "link",.here 16896, .there 360,.type Relativedictionary, .p 16848 },
-		{.what Here, .desc "len", .here 16904, .there 360,.type Byte, .b 128 + 1 },
-		{.what Here, .desc "name",.here 16905, .there 360,.type Chars, .str "(" },
-		{.what Here, .desc "cfa", .here 16912, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_closeparen"},
-		{.what Here, .desc "address", .here 16920, .there 360,.type Relativedictionary, .p C_closeparen },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 16928, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16936, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"backslashbackslash\" backslash 1 ; if the line is longer than 4096, C_get throws an error"},
-		{.what Here, .desc "link",.here 16944, .there 360,.type Relativedictionary, .p 16896 },
-		{.what Here, .desc "len", .here 16952, .there 360,.type Byte, .b 128 + 1 },
-		{.what Here, .desc "name",.here 16953, .there 360,.type Chars, .str "\\" },
-		{.what Here, .desc "cfa", .here 16960, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_line"},
-		{.what Here, .desc "address", .here 16968, .there 360,.type Relativedictionary, .p C_line },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 16976, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"(?abort)\" qabort_parens 8"},
-		{.what Here, .desc "link",.here 16984, .there 360,.type Relativedictionary, .p 16944 },
-		{.what Here, .desc "len", .here 16992, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 16993, .there 360,.type Chars, .str "(?abort)" },
-		{.what Here, .desc "cfa", .here 17000, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_State"},
-		{.what Here, .desc "address", .here 17008, .there 360,.type Relativedictionary, .p MV_State },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 17016, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L_C_qabort_parens"},
-		{.what Here, .desc "address", .here 17024, .there 360,.type Relativedictionary, .p L_C_qabort_parens },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 17032, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 17040, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 17048, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 17056, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 17064, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_qabort_parens_1"},
-		{.what Here, .desc "address", .here 17072, .there 360,.type Relativedictionary, .p L_C_qabort_parens_1 },
-	{.what Sourceline, .desc "L_C_qabort_parens:"},
-	{.what Sourceline, .desc "dd C_2drop"},
-		{.what Here, .desc "address", .here 17080, .there 360,.type Relativedictionary, .p C_2drop },
-	{.what Sourceline, .desc "L_C_qabort_parens_1:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17088, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"abortbackslash\"\" abort_double_quote 6"},
-		{.what Here, .desc "link",.here 17096, .there 360,.type Relativedictionary, .p 16984 },
-		{.what Here, .desc "len", .here 17104, .there 360,.type Byte, .b 128 + 6 },
-		{.what Here, .desc "name",.here 17105, .there 360,.type Chars, .str "abort\"" },
-		{.what Here, .desc "cfa", .here 17112, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_sliteral"},
-		{.what Here, .desc "address", .here 17120, .there 360,.type Relativedictionary, .p C_sliteral },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17128, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd C_qabort_parens"},
-		{.what Here, .desc "address", .here 17136, .there 360,.type Relativedictionary, .p C_qabort_parens },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17144, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17152, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"backslash\"\" double_quote 1 ; ( | .. \" -- 'text count ) stores string in the dictionary and also leaves the address and count of the string on the stack - to use strings at the interpreter prompt"},
-		{.what Here, .desc "link",.here 17160, .there 360,.type Relativedictionary, .p 17096 },
-		{.what Here, .desc "len", .here 17168, .there 360,.type Byte, .b 0 + 1 },
-		{.what Here, .desc "name",.here 17169, .there 360,.type Chars, .str "\"" },
-		{.what Here, .desc "cfa", .here 17176, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_counted_doublequote	; ( 'Wordb )"},
-		{.what Here, .desc "address", .here 17184, .there 360,.type Relativedictionary, .p C_counted_doublequote },
-	{.what Sourceline, .desc "dd C_count			; ( 'Wordb+1 count )"},
-		{.what Here, .desc "address", .here 17192, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd M_rpush			; ( 'Wordb+1 ) (R count )"},
-		{.what Here, .desc "address", .here 17200, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_here			; ( 'Wordb+1 here ) (R count )"},
-		{.what Here, .desc "address", .here 17208, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_rfetch			; ( 'Wordb+1 here count ) (R count )"},
-		{.what Here, .desc "address", .here 17216, .there 360,.type Relativedictionary, .p M_rfetch },
-	{.what Sourceline, .desc "dd M_cmove"},
-		{.what Here, .desc "address", .here 17224, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd C_here	; ( here )"},
-		{.what Here, .desc "address", .here 17232, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_rpop	; ( here count )"},
-		{.what Here, .desc "address", .here 17240, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_dup	; ( here count count )"},
-		{.what Here, .desc "address", .here 17248, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd C_allot	; ( here count ) here = here+count"},
-		{.what Here, .desc "address", .here 17256, .there 360,.type Relativedictionary, .p C_allot },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17264, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cbackslash\"\" counted_double_quote 2 ; ( | ...\" -- 'counted-string ) stores counted string in the dictionary. For use in interpretive mode."},
-		{.what Here, .desc "link",.here 17272, .there 360,.type Relativedictionary, .p 17160 },
-		{.what Here, .desc "len", .here 17280, .there 360,.type Byte, .b 0 + 2 },
-		{.what Here, .desc "name",.here 17281, .there 360,.type Chars, .str "c\"" },
-		{.what Here, .desc "cfa", .here 17288, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_counted_doublequote	; ( 'Wordb )"},
-		{.what Here, .desc "address", .here 17296, .there 360,.type Relativedictionary, .p C_counted_doublequote },
-	{.what Sourceline, .desc "dd M_dup			; ( 'Wordb 'Wordb )"},
-		{.what Here, .desc "address", .here 17304, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_cfetch			; ( 'Wordb count )"},
-		{.what Here, .desc "address", .here 17312, .there 360,.type Relativedictionary, .p M_cfetch },
-	{.what Sourceline, .desc "dd C_1plus			; ( 'Wordb count+1 )"},
-		{.what Here, .desc "address", .here 17320, .there 360,.type Relativedictionary, .p C_1plus },
-	{.what Sourceline, .desc "dd M_rpush			; ( 'Wordb ) (R count+1 )"},
-		{.what Here, .desc "address", .here 17328, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_here			; ( 'Wordb here ) (R count+1 )"},
-		{.what Here, .desc "address", .here 17336, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_rfetch			; ( 'Wordb here count ) (R count+1 )"},
-		{.what Here, .desc "address", .here 17344, .there 360,.type Relativedictionary, .p M_rfetch },
-	{.what Sourceline, .desc "dd M_cmove"},
-		{.what Here, .desc "address", .here 17352, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd C_here	; ( here )"},
-		{.what Here, .desc "address", .here 17360, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_rpop	; ( here count+1 )"},
-		{.what Here, .desc "address", .here 17368, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_allot	; ( here ) here = here+count+1"},
-		{.what Here, .desc "address", .here 17376, .there 360,.type Relativedictionary, .p C_allot },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17384, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"sbackslash\"\" sdouble_quote 2 ; ( | ...\" -- 'text count ) 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."},
-		{.what Here, .desc "link",.here 17392, .there 360,.type Relativedictionary, .p 17272 },
-		{.what Here, .desc "len", .here 17400, .there 360,.type Byte, .b 128 + 2 },
-		{.what Here, .desc "name",.here 17401, .there 360,.type Chars, .str "s\"" },
-		{.what Here, .desc "cfa", .here 17408, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_sliteral"},
-		{.what Here, .desc "address", .here 17416, .there 360,.type Relativedictionary, .p C_sliteral },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17424, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \".backslash\"\" dotstr 2 ; ( | ...\" -- ) .\" = s\" type"},
-		{.what Here, .desc "link",.here 17432, .there 360,.type Relativedictionary, .p 17392 },
-		{.what Here, .desc "len", .here 17440, .there 360,.type Byte, .b 128 + 2 },
-		{.what Here, .desc "name",.here 17441, .there 360,.type Chars, .str ".\"" },
-		{.what Here, .desc "cfa", .here 17448, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_sliteral"},
-		{.what Here, .desc "address", .here 17456, .there 360,.type Relativedictionary, .p C_sliteral },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17464, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 17472, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17480, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17488, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"if\" if 2"},
-		{.what Here, .desc "link",.here 17496, .there 360,.type Relativedictionary, .p 17432 },
-		{.what Here, .desc "len", .here 17504, .there 360,.type Byte, .b 128 + 2 },
-		{.what Here, .desc "name",.here 17505, .there 360,.type Chars, .str "if" },
-		{.what Here, .desc "cfa", .here 17512, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17520, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 17528, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17536, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 17544, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17552, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 17560, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17568, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17576, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"else\" else 4"},
-		{.what Here, .desc "link",.here 17584, .there 360,.type Relativedictionary, .p 17496 },
-		{.what Here, .desc "len", .here 17592, .there 360,.type Byte, .b 128 + 4 },
-		{.what Here, .desc "name",.here 17593, .there 360,.type Chars, .str "else" },
-		{.what Here, .desc "cfa", .here 17600, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17608, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 17616, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17624, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 17632, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 17640, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17648, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 17656, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17664, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 17672, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 17680, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 17688, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 17696, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17704, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"then\" then 4"},
-		{.what Here, .desc "link",.here 17712, .there 360,.type Relativedictionary, .p 17584 },
-		{.what Here, .desc "len", .here 17720, .there 360,.type Byte, .b 128 + 4 },
-		{.what Here, .desc "name",.here 17721, .there 360,.type Chars, .str "then" },
-		{.what Here, .desc "cfa", .here 17728, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 17736, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 17744, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 17752, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17760, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"begin\" begin 5"},
-		{.what Here, .desc "link",.here 17768, .there 360,.type Relativedictionary, .p 17712 },
-		{.what Here, .desc "len", .here 17776, .there 360,.type Byte, .b 128 + 5 },
-		{.what Here, .desc "name",.here 17777, .there 360,.type Chars, .str "begin" },
-		{.what Here, .desc "cfa", .here 17784, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 17792, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17800, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"again\" again 5"},
-		{.what Here, .desc "link",.here 17808, .there 360,.type Relativedictionary, .p 17768 },
-		{.what Here, .desc "len", .here 17816, .there 360,.type Byte, .b 128 + 5 },
-		{.what Here, .desc "name",.here 17817, .there 360,.type Chars, .str "again" },
-		{.what Here, .desc "cfa", .here 17824, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17832, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 17840, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17848, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17856, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17864, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"until\" until 5"},
-		{.what Here, .desc "link",.here 17872, .there 360,.type Relativedictionary, .p 17808 },
-		{.what Here, .desc "len", .here 17880, .there 360,.type Byte, .b 128 + 5 },
-		{.what Here, .desc "name",.here 17881, .there 360,.type Chars, .str "until" },
-		{.what Here, .desc "cfa", .here 17888, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17896, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 17904, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17912, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17920, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 17928, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"while\" while 5"},
-		{.what Here, .desc "link",.here 17936, .there 360,.type Relativedictionary, .p 17872 },
-		{.what Here, .desc "len", .here 17944, .there 360,.type Byte, .b 128 + 5 },
-		{.what Here, .desc "name",.here 17945, .there 360,.type Chars, .str "while" },
-		{.what Here, .desc "cfa", .here 17952, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17960, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 17968, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 17976, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 17984, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 17992, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 18000, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 18008, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18016, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"repeat\" repeat 6"},
-		{.what Here, .desc "link",.here 18024, .there 360,.type Relativedictionary, .p 17936 },
-		{.what Here, .desc "len", .here 18032, .there 360,.type Byte, .b 128 + 6 },
-		{.what Here, .desc "name",.here 18033, .there 360,.type Chars, .str "repeat" },
-		{.what Here, .desc "cfa", .here 18040, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18048, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 18056, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 18064, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 18072, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 18080, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 18088, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 18096, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 18104, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18112, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"do\" do 2"},
-		{.what Here, .desc "link",.here 18120, .there 360,.type Relativedictionary, .p 18024 },
-		{.what Here, .desc "len", .here 18128, .there 360,.type Byte, .b 128 + 2 },
-		{.what Here, .desc "name",.here 18129, .there 360,.type Chars, .str "do" },
-		{.what Here, .desc "cfa", .here 18136, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18144, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_doinit		; compile this into the definition. Puts limit and index on the run stack at run time"},
-		{.what Here, .desc "address", .here 18152, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "dd C_comma		; puts (do) into the dictionary"},
-		{.what Here, .desc "address", .here 18160, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18168, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0			; ( -- 0 )"},
-		{.what Here, .desc "value", .here 18176, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd C_here		; ( 0 -- 0 here1 )"},
-		{.what Here, .desc "address", .here 18184, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18192, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"loop\" loop 4 ; ( 0 here1 -- )"},
-		{.what Here, .desc "link",.here 18200, .there 360,.type Relativedictionary, .p 18120 },
-		{.what Here, .desc "len", .here 18208, .there 360,.type Byte, .b 128 + 4 },
-		{.what Here, .desc "name",.here 18209, .there 360,.type Chars, .str "loop" },
-		{.what Here, .desc "cfa", .here 18216, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18224, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_doloop		; ( 0 here1 -- 0 here1 (loop) )"},
-		{.what Here, .desc "address", .here 18232, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd C_comma		; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 )"},
-		{.what Here, .desc "address", .here 18240, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_comma		; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 )"},
-		{.what Here, .desc "address", .here 18248, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_qdup"},
-		{.what Here, .desc "address", .here 18256, .there 360,.type Relativedictionary, .p C_qdup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 18264, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L234"},
-		{.what Here, .desc "address", .here 18272, .there 360,.type Relativedictionary, .p L234 },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 18280, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 18288, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 18296, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "L234:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18304, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CIENTRY \"+loop\" ploop 5"},
-		{.what Here, .desc "link",.here 18312, .there 360,.type Relativedictionary, .p 18200 },
-		{.what Here, .desc "len", .here 18320, .there 360,.type Byte, .b 128 + 5 },
-		{.what Here, .desc "name",.here 18321, .there 360,.type Chars, .str "+loop" },
-		{.what Here, .desc "cfa", .here 18328, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18336, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd M_doploop"},
-		{.what Here, .desc "address", .here 18344, .there 360,.type Relativedictionary, .p M_doploop },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 18352, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_comma"},
-		{.what Here, .desc "address", .here 18360, .there 360,.type Relativedictionary, .p C_comma },
-	{.what Sourceline, .desc "dd C_qdup"},
-		{.what Here, .desc "address", .here 18368, .there 360,.type Relativedictionary, .p C_qdup },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 18376, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L236"},
-		{.what Here, .desc "address", .here 18384, .there 360,.type Relativedictionary, .p L236 },
-	{.what Sourceline, .desc "dd C_here"},
-		{.what Here, .desc "address", .here 18392, .there 360,.type Relativedictionary, .p C_here },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 18400, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 18408, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "L236:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18416, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"w/o\" wo 3"},
-		{.what Here, .desc "link",.here 18424, .there 360,.type Relativedictionary, .p 18312 },
-		{.what Here, .desc "len", .here 18432, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 18433, .there 360,.type Chars, .str "w/o" },
-		{.what Here, .desc "cfa", .here 18440, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18448, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 18456, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18464, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 512"},
-		{.what Here, .desc "value", .here 18472, .there 360,.type Absolute, .p 512 },
-	{.what Sourceline, .desc "dd M_binor"},
-		{.what Here, .desc "address", .here 18480, .there 360,.type Relativedictionary, .p M_binor },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18488, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 64"},
-		{.what Here, .desc "value", .here 18496, .there 360,.type Absolute, .p 64 },
-	{.what Sourceline, .desc "dd M_binor"},
-		{.what Here, .desc "address", .here 18504, .there 360,.type Relativedictionary, .p M_binor },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18512, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"r/o\" ro 3"},
-		{.what Here, .desc "link",.here 18520, .there 360,.type Relativedictionary, .p 18424 },
-		{.what Here, .desc "len", .here 18528, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 18529, .there 360,.type Chars, .str "r/o" },
-		{.what Here, .desc "cfa", .here 18536, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18544, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 18552, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18560, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"r/w\" rw 3"},
-		{.what Here, .desc "link",.here 18568, .there 360,.type Relativedictionary, .p 18520 },
-		{.what Here, .desc "len", .here 18576, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 18577, .there 360,.type Chars, .str "r/w" },
-		{.what Here, .desc "cfa", .here 18584, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18592, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 2"},
-		{.what Here, .desc "value", .here 18600, .there 360,.type Absolute, .p 2 },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18608, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cstring\" cstring 7 ; ( 'text count o -- o+'pad+1024 ) backslash copy string to pad+o and add a null byte at the end"},
-		{.what Here, .desc "link",.here 18616, .there 360,.type Relativedictionary, .p 18568 },
-		{.what Here, .desc "len", .here 18624, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 18625, .there 360,.type Chars, .str "cstring" },
-		{.what Here, .desc "cfa", .here 18632, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_pad	; ( 'text count o 'pad )"},
-		{.what Here, .desc "address", .here 18640, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18648, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1024		; ( 'text count o 'pad 1024 )"},
-		{.what Here, .desc "value", .here 18656, .there 360,.type Absolute, .p 1024 },
-	{.what Sourceline, .desc "dd M_plus	; ( 'text count o 'pad+1024 )"},
-		{.what Here, .desc "address", .here 18664, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_plus	; ( 'text count o+'pad+1024 ) o=padoffset"},
-		{.what Here, .desc "address", .here 18672, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 18680, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( 'text count o+'pad+1024 ) (R o+'pad+1024 )"},
-		{.what Here, .desc "address", .here 18688, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_xswap	; ( 'text o+'pad+1024 count ) (R o+'pad+1024 )"},
-		{.what Here, .desc "address", .here 18696, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_dup	; ( 'text o+'pad+1024 count count ) (R o+'pad+1024 )"},
-		{.what Here, .desc "address", .here 18704, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( 'text o+'pad+1024 count ) (R o+'pad+1024  count )"},
-		{.what Here, .desc "address", .here 18712, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_cmove	; moves the filename from 'text to o+'pad+1024"},
-		{.what Here, .desc "address", .here 18720, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18728, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0		; ( 0 ) (R o+'pad+1024  count )"},
-		{.what Here, .desc "value", .here 18736, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_rpop	; ( 0 count ) (R o+'pad+1024 )"},
-		{.what Here, .desc "address", .here 18744, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_rfetch	; ( 0 count o+'pad+1024 ) (R o+'pad+1024 )"},
-		{.what Here, .desc "address", .here 18752, .there 360,.type Relativedictionary, .p M_rfetch },
-	{.what Sourceline, .desc "dd M_plus	; ( 0 count+o+'pad+1024 ) (R o+'pad+1024 )"},
-		{.what Here, .desc "address", .here 18760, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_cstore	; makes the filename to a null terminated string"},
-		{.what Here, .desc "address", .here 18768, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd M_rpop ;  ( o+'pad+1024 )"},
-		{.what Here, .desc "address", .here 18776, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18784, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cstring0\" cstring0 8 ; ( 'text count -- 'text ) backslash copy string to pad+1024 and add a null byte at the end"},
-		{.what Here, .desc "link",.here 18792, .there 360,.type Relativedictionary, .p 18616 },
-		{.what Here, .desc "len", .here 18800, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 18801, .there 360,.type Chars, .str "cstring0" },
-		{.what Here, .desc "cfa", .here 18808, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18816, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 18824, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd C_cstring"},
-		{.what Here, .desc "address", .here 18832, .there 360,.type Relativedictionary, .p C_cstring },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18840, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"cstring1\" cstring1 8 ; ( 'text count -- 'text ) backslash copy string to pad+1536 and add a null byte at the end"},
-		{.what Here, .desc "link",.here 18848, .there 360,.type Relativedictionary, .p 18792 },
-		{.what Here, .desc "len", .here 18856, .there 360,.type Byte, .b 0 + 8 },
-		{.what Here, .desc "name",.here 18857, .there 360,.type Chars, .str "cstring1" },
-		{.what Here, .desc "cfa", .here 18864, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18872, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 512"},
-		{.what Here, .desc "value", .here 18880, .there 360,.type Absolute, .p 512 },
-	{.what Sourceline, .desc "dd C_cstring"},
-		{.what Here, .desc "address", .here 18888, .there 360,.type Relativedictionary, .p C_cstring },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18896, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"open-file\" open_file 9 ; ( 'text count mode -- fd ioresult )"},
-		{.what Here, .desc "link",.here 18904, .there 360,.type Relativedictionary, .p 18848 },
-		{.what Here, .desc "len", .here 18912, .there 360,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 18913, .there 360,.type Chars, .str "open-file" },
-		{.what Here, .desc "cfa", .here 18920, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_rpush	; ( 'text count ) (R mode)"},
-		{.what Here, .desc "address", .here 18928, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_cstring0 ; ( 'padtext ) (R mode )"},
-		{.what Here, .desc "address", .here 18936, .there 360,.type Relativedictionary, .p C_cstring0 },
-	{.what Sourceline, .desc "dd M_rpop	; ( 'padtext mode ) (R )"},
-		{.what Here, .desc "address", .here 18944, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_sysopen"},
-		{.what Here, .desc "address", .here 18952, .there 360,.type Relativedictionary, .p M_sysopen },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 18960, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 18968, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 18976, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 18984, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 18992, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"close-file\" close_file 10 ; ( fd -- ioresult )"},
-		{.what Here, .desc "link",.here 19000, .there 360,.type Relativedictionary, .p 18904 },
-		{.what Here, .desc "len", .here 19008, .there 360,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 19009, .there 360,.type Chars, .str "close-file" },
-		{.what Here, .desc "cfa", .here 19016, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_sysclose"},
-		{.what Here, .desc "address", .here 19024, .there 360,.type Relativedictionary, .p M_sysclose },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 19032, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19040, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"read-file\" read_file 9 ; ( fd 'text count -- count2 ioresult )"},
-		{.what Here, .desc "link",.here 19048, .there 360,.type Relativedictionary, .p 19000 },
-		{.what Here, .desc "len", .here 19056, .there 360,.type Byte, .b 0 + 9 },
-		{.what Here, .desc "name",.here 19057, .there 360,.type Chars, .str "read-file" },
-		{.what Here, .desc "cfa", .here 19064, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_sysread"},
-		{.what Here, .desc "address", .here 19072, .there 360,.type Relativedictionary, .p M_sysread },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 19080, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19088, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 19096, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd C_neq"},
-		{.what Here, .desc "address", .here 19104, .there 360,.type Relativedictionary, .p C_neq },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19112, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"write-file\" write_file 10 ; ( fd 'text count -- ioresult )"},
-		{.what Here, .desc "link",.here 19120, .there 360,.type Relativedictionary, .p 19048 },
-		{.what Here, .desc "len", .here 19128, .there 360,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 19129, .there 360,.type Chars, .str "write-file" },
-		{.what Here, .desc "cfa", .here 19136, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_syswrite"},
-		{.what Here, .desc "address", .here 19144, .there 360,.type Relativedictionary, .p M_syswrite },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19152, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 19160, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd C_neq"},
-		{.what Here, .desc "address", .here 19168, .there 360,.type Relativedictionary, .p C_neq },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19176, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"reposition-file\" reposition_file 15 ; ( fd n type -- ioresult )"},
-		{.what Here, .desc "link",.here 19184, .there 360,.type Relativedictionary, .p 19120 },
-		{.what Here, .desc "len", .here 19192, .there 360,.type Byte, .b 0 + 15 },
-		{.what Here, .desc "name",.here 19193, .there 360,.type Chars, .str "reposition-file" },
-		{.what Here, .desc "cfa", .here 19200, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_sysseek"},
-		{.what Here, .desc "address", .here 19208, .there 360,.type Relativedictionary, .p M_sysseek },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19216, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 19224, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd C_neq"},
-		{.what Here, .desc "address", .here 19232, .there 360,.type Relativedictionary, .p C_neq },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19240, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"?fcheck\" qfcheck 7"},
-		{.what Here, .desc "link",.here 19248, .there 360,.type Relativedictionary, .p 19184 },
-		{.what Here, .desc "len", .here 19256, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 19257, .there 360,.type Chars, .str "?fcheck" },
-		{.what Here, .desc "cfa", .here 19264, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_0eq"},
-		{.what Here, .desc "address", .here 19272, .there 360,.type Relativedictionary, .p C_0eq },
-	{.what Sourceline, .desc "dd M_cjump"},
-		{.what Here, .desc "address", .here 19280, .there 360,.type Relativedictionary, .p M_cjump },
-	{.what Sourceline, .desc "dd L246"},
-		{.what Here, .desc "address", .here 19288, .there 360,.type Relativedictionary, .p L246 },
-	{.what Sourceline, .desc "dd C_space"},
-		{.what Here, .desc "address", .here 19296, .there 360,.type Relativedictionary, .p C_space },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19304, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L247"},
-		{.what Here, .desc "address", .here 19312, .there 360,.type Relativedictionary, .p L247 },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 19320, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 19328, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 19336, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 19344, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "L246:"},
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19352, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "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."},
-		{.what Here, .desc "link",.here 19360, .there 360,.type Relativedictionary, .p 19248 },
-		{.what Here, .desc "len", .here 19368, .there 360,.type Byte, .b 0 + 11 },
-		{.what Here, .desc "name",.here 19369, .there 360,.type Chars, .str "create-file" },
-		{.what Here, .desc "cfa", .here 19376, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_rpush	; ( a n mode ) (R perm)"},
-		{.what Here, .desc "address", .here 19384, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_rpush	; ( a n ) (R perm mode)"},
-		{.what Here, .desc "address", .here 19392, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_pad	; ( a n padaddr)"},
-		{.what Here, .desc "address", .here 19400, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19408, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1024		; ( a n padaddr 1024 )"},
-		{.what Here, .desc "value", .here 19416, .there 360,.type Absolute, .p 1024 },
-	{.what Sourceline, .desc "dd M_plus	; ( a n padaddr+1024 )"},
-		{.what Here, .desc "address", .here 19424, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_xswap	; ( a padaddr+1024 n )"},
-		{.what Here, .desc "address", .here 19432, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_dup	; ( a padaddr+1024 n n )"},
-		{.what Here, .desc "address", .here 19440, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_rpush	; ( a padaddr+1024 n ) (R perm mode n )"},
-		{.what Here, .desc "address", .here 19448, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd M_cmove	; moves the filename from a to paddaddr+1024"},
-		{.what Here, .desc "address", .here 19456, .there 360,.type Relativedictionary, .p M_cmove },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19464, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0		; ( 0 )"},
-		{.what Here, .desc "value", .here 19472, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_rpop	; ( 0 n ) (R perm mode)"},
-		{.what Here, .desc "address", .here 19480, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_pad	; ( 0 n padaddr)"},
-		{.what Here, .desc "address", .here 19488, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd M_plus	; ( 0 padaddr+n )"},
-		{.what Here, .desc "address", .here 19496, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19504, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1024		; ( 0 padaddr+n 1024 )"},
-		{.what Here, .desc "value", .here 19512, .there 360,.type Absolute, .p 1024 },
-	{.what Sourceline, .desc "dd M_plus	; ( 0 padaddr+n+1024 )"},
-		{.what Here, .desc "address", .here 19520, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_cstore	; ( ) makes the filename to a null terminated string"},
-		{.what Here, .desc "address", .here 19528, .there 360,.type Relativedictionary, .p M_cstore },
-	{.what Sourceline, .desc "dd C_pad"},
-		{.what Here, .desc "address", .here 19536, .there 360,.type Relativedictionary, .p C_pad },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19544, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1024		; ( padaddr 1024 )"},
-		{.what Here, .desc "value", .here 19552, .there 360,.type Absolute, .p 1024 },
-	{.what Sourceline, .desc "dd M_plus	; ( padaddr+1024 )"},
-		{.what Here, .desc "address", .here 19560, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_rpop	; ( padaddr+1024 mode) (R perm )"},
-		{.what Here, .desc "address", .here 19568, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_rpop	; ( padaddr+1024 mode perm ) (R )"},
-		{.what Here, .desc "address", .here 19576, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd M_syscreate"},
-		{.what Here, .desc "address", .here 19584, .there 360,.type Relativedictionary, .p M_syscreate },
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 19592, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19600, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 19608, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_greater"},
-		{.what Here, .desc "address", .here 19616, .there 360,.type Relativedictionary, .p M_greater },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19624, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"bye\" bye 3"},
-		{.what Here, .desc "link",.here 19632, .there 360,.type Relativedictionary, .p 19360 },
-		{.what Here, .desc "len", .here 19640, .there 360,.type Byte, .b 0 + 3 },
-		{.what Here, .desc "name",.here 19641, .there 360,.type Chars, .str "bye" },
-		{.what Here, .desc "cfa", .here 19648, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19656, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 19664, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_terminate"},
-		{.what Here, .desc "address", .here 19672, .there 360,.type Relativedictionary, .p M_terminate },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19680, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"include\" include 7 ; this does not work"},
-		{.what Here, .desc "link",.here 19688, .there 360,.type Relativedictionary, .p 19632 },
-		{.what Here, .desc "len", .here 19696, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 19697, .there 360,.type Chars, .str "include" },
-		{.what Here, .desc "cfa", .here 19704, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd C_word"},
-		{.what Here, .desc "address", .here 19712, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd M_rpush"},
-		{.what Here, .desc "address", .here 19720, .there 360,.type Relativedictionary, .p M_rpush },
-	{.what Sourceline, .desc "dd C_input_fetch	; save the old input onto the stack"},
-		{.what Here, .desc "address", .here 19728, .there 360,.type Relativedictionary, .p C_input_fetch },
-	{.what Sourceline, .desc "dd M_rpop"},
-		{.what Here, .desc "address", .here 19736, .there 360,.type Relativedictionary, .p M_rpop },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 19744, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_ro"},
-		{.what Here, .desc "address", .here 19752, .there 360,.type Relativedictionary, .p C_ro },
-	{.what Sourceline, .desc "dd C_open_file"},
-		{.what Here, .desc "address", .here 19760, .there 360,.type Relativedictionary, .p C_open_file },
-	{.what Sourceline, .desc "dd C_qfcheck"},
-		{.what Here, .desc "address", .here 19768, .there 360,.type Relativedictionary, .p C_qfcheck },
-	{.what Sourceline, .desc "dd MV_Infd		; open the new file"},
-		{.what Here, .desc "address", .here 19776, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 19784, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19792, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"crash\" crash 5"},
-		{.what Here, .desc "link",.here 19800, .there 360,.type Relativedictionary, .p 19688 },
-		{.what Here, .desc "len", .here 19808, .there 360,.type Byte, .b 0 + 5 },
-		{.what Here, .desc "name",.here 19809, .there 360,.type Chars, .str "crash" },
-		{.what Here, .desc "cfa", .here 19816, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 19824, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L251"},
-		{.what Here, .desc "address", .here 19832, .there 360,.type Relativedictionary, .p L251 },
-	{.what Sourceline, .desc "dd C_count"},
-		{.what Here, .desc "address", .here 19840, .there 360,.type Relativedictionary, .p C_count },
-	{.what Sourceline, .desc "dd C_type"},
-		{.what Here, .desc "address", .here 19848, .there 360,.type Relativedictionary, .p C_type },
-	{.what Sourceline, .desc "dd C_cr"},
-		{.what Here, .desc "address", .here 19856, .there 360,.type Relativedictionary, .p C_cr },
-	{.what Sourceline, .desc "dd C_abort"},
-		{.what Here, .desc "address", .here 19864, .there 360,.type Relativedictionary, .p C_abort },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 19872, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"quit\" quit 4 ; interpreter loop"},
-		{.what Here, .desc "link",.here 19880, .there 360,.type Relativedictionary, .p 19800 },
-		{.what Here, .desc "len", .here 19888, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 19889, .there 360,.type Chars, .str "quit" },
-		{.what Here, .desc "cfa", .here 19896, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_reset ; initialize return stack"},
-		{.what Here, .desc "address", .here 19904, .there 360,.type Relativedictionary, .p M_reset },
-	{.what Sourceline, .desc "dd M_clear	; SP = sstack_end initialize data stack"},
-		{.what Here, .desc "address", .here 19912, .there 360,.type Relativedictionary, .p M_clear },
-	{.what Sourceline, .desc "L_C_quit:"},
-	{.what Sourceline, .desc "dd C_word"},
-		{.what Here, .desc "address", .here 19920, .there 360,.type Relativedictionary, .p C_word },
-	{.what Sourceline, .desc "dd C_interpret"},
-		{.what Here, .desc "address", .here 19928, .there 360,.type Relativedictionary, .p C_interpret },
-	{.what Sourceline, .desc "dd M_jump"},
-		{.what Here, .desc "address", .here 19936, .there 360,.type Relativedictionary, .p M_jump },
-	{.what Sourceline, .desc "dd L_C_quit"},
-		{.what Here, .desc "address", .here 19944, .there 360,.type Relativedictionary, .p L_C_quit },
-	{.what Sourceline, .desc "dd M_exitcolon	; why is this needed?"},
-		{.what Here, .desc "address", .here 19952, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"(abort)\" parenabort 7 ; TODO correct below stack notations"},
-		{.what Here, .desc "link",.here 19960, .there 360,.type Relativedictionary, .p 19880 },
-		{.what Here, .desc "len", .here 19968, .there 360,.type Byte, .b 0 + 7 },
-		{.what Here, .desc "name",.here 19969, .there 360,.type Chars, .str "(abort)" },
-		{.what Here, .desc "cfa", .here 19976, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_State	; ( mv_State -- )"},
-		{.what Here, .desc "address", .here 19984, .there 360,.type Relativedictionary, .p MV_State },
-	{.what Sourceline, .desc "dd C_off	; off sets variable state = 0"},
-		{.what Here, .desc "address", .here 19992, .there 360,.type Relativedictionary, .p C_off },
-	{.what Sourceline, .desc "dd MC_STDIN"},
-		{.what Here, .desc "address", .here 20000, .there 360,.type Relativedictionary, .p MC_STDIN },
-	{.what Sourceline, .desc "dd MV_Infd"},
-		{.what Here, .desc "address", .here 20008, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20016, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MC_STDOUT"},
-		{.what Here, .desc "address", .here 20024, .there 360,.type Relativedictionary, .p MC_STDOUT },
-	{.what Sourceline, .desc "dd MV_Outfd"},
-		{.what Here, .desc "address", .here 20032, .there 360,.type Relativedictionary, .p MV_Outfd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20040, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MC_STDERR"},
-		{.what Here, .desc "address", .here 20048, .there 360,.type Relativedictionary, .p MC_STDERR },
-	{.what Sourceline, .desc "dd MV_Errfd"},
-		{.what Here, .desc "address", .here 20056, .there 360,.type Relativedictionary, .p MV_Errfd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20064, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd C_stdinput"},
-		{.what Here, .desc "address", .here 20072, .there 360,.type Relativedictionary, .p C_stdinput },
-	{.what Sourceline, .desc "dd C_quit	; quit resets stacks and is the interpreter loop"},
-		{.what Here, .desc "address", .here 20080, .there 360,.type Relativedictionary, .p C_quit },
-	{.what Sourceline, .desc "dd M_exitcolon	; why is this needed? quit does not return unless it breaks"},
-		{.what Here, .desc "address", .here 20088, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "dd M_literal	; test code"},
-		{.what Here, .desc "address", .here 20096, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 66"},
-		{.what Here, .desc "value", .here 20104, .there 360,.type Absolute, .p 66 },
-	{.what Sourceline, .desc "dd MV_Wordb"},
-		{.what Here, .desc "address", .here 20112, .there 360,.type Relativedictionary, .p MV_Wordb },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20120, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MC_STDOUT"},
-		{.what Here, .desc "address", .here 20128, .there 360,.type Relativedictionary, .p MC_STDOUT },
-	{.what Sourceline, .desc "dd MV_Wordb"},
-		{.what Here, .desc "address", .here 20136, .there 360,.type Relativedictionary, .p MV_Wordb },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20144, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 20152, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_syswrite"},
-		{.what Here, .desc "address", .here 20160, .there 360,.type Relativedictionary, .p M_syswrite },
-	{.what Sourceline, .desc "dd M_drop		; drop the return value of write"},
-		{.what Here, .desc "address", .here 20168, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd MC_STDIN"},
-		{.what Here, .desc "address", .here 20176, .there 360,.type Relativedictionary, .p MC_STDIN },
-	{.what Sourceline, .desc "dd MV_Wordb"},
-		{.what Here, .desc "address", .here 20184, .there 360,.type Relativedictionary, .p MV_Wordb },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20192, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 20200, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd M_sysread"},
-		{.what Here, .desc "address", .here 20208, .there 360,.type Relativedictionary, .p M_sysread },
-	{.what Sourceline, .desc "dd M_drop		; drop the return value of read"},
-		{.what Here, .desc "address", .here 20216, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "CENTRY \"initialize\" initialize 10 ; initialize buffer file names and buffer fds, why not hard code this?"},
-		{.what Here, .desc "link",.here 20224, .there 360,.type Relativedictionary, .p 19960 },
-		{.what Here, .desc "len", .here 20232, .there 360,.type Byte, .b 0 + 10 },
-		{.what Here, .desc "name",.here 20233, .there 360,.type Chars, .str "initialize" },
-		{.what Here, .desc "cfa", .here 20240, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd MV_Bufferfds"},
-		{.what Here, .desc "address", .here 20248, .there 360,.type Relativedictionary, .p MV_Bufferfds },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 20256, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20264, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 20272, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 20280, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_initialize:"},
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 20288, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20296, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd -1"},
-		{.what Here, .desc "value", .here 20304, .there 360,.type Absolute, .p -1 },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 20312, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20320, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20328, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 20336, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 20344, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 20352, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 20360, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_initialize"},
-		{.what Here, .desc "address", .here 20368, .there 360,.type Relativedictionary, .p L_C_initialize },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 20376, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd MV_Bufferfilenames"},
-		{.what Here, .desc "address", .here 20384, .there 360,.type Relativedictionary, .p MV_Bufferfilenames },
-	{.what Sourceline, .desc "dd MC_NBUFFERS"},
-		{.what Here, .desc "address", .here 20392, .there 360,.type Relativedictionary, .p MC_NBUFFERS },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20400, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 20408, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_doinit"},
-		{.what Here, .desc "address", .here 20416, .there 360,.type Relativedictionary, .p M_doinit },
-	{.what Sourceline, .desc "L_C_initialize_1:"},
-	{.what Sourceline, .desc "dd M_dup"},
-		{.what Here, .desc "address", .here 20424, .there 360,.type Relativedictionary, .p M_dup },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20432, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 0"},
-		{.what Here, .desc "value", .here 20440, .there 360,.type Absolute, .p 0 },
-	{.what Sourceline, .desc "dd M_xswap"},
-		{.what Here, .desc "address", .here 20448, .there 360,.type Relativedictionary, .p M_xswap },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20456, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20464, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd 1"},
-		{.what Here, .desc "value", .here 20472, .there 360,.type Absolute, .p 1 },
-	{.what Sourceline, .desc "dd C_cells"},
-		{.what Here, .desc "address", .here 20480, .there 360,.type Relativedictionary, .p C_cells },
-	{.what Sourceline, .desc "dd M_plus"},
-		{.what Here, .desc "address", .here 20488, .there 360,.type Relativedictionary, .p M_plus },
-	{.what Sourceline, .desc "dd M_doloop"},
-		{.what Here, .desc "address", .here 20496, .there 360,.type Relativedictionary, .p M_doloop },
-	{.what Sourceline, .desc "dd L_C_initialize_1"},
-		{.what Here, .desc "address", .here 20504, .there 360,.type Relativedictionary, .p L_C_initialize_1 },
-	{.what Sourceline, .desc "dd M_drop"},
-		{.what Here, .desc "address", .here 20512, .there 360,.type Relativedictionary, .p M_drop },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20520, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_line_filename"},
-		{.what Here, .desc "address", .here 20528, .there 360,.type Relativedictionary, .p L_line_filename },
-	{.what Sourceline, .desc "dd C_wordfilename_store"},
-		{.what Here, .desc "address", .here 20536, .there 360,.type Relativedictionary, .p C_wordfilename_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20544, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_word_filename"},
-		{.what Here, .desc "address", .here 20552, .there 360,.type Relativedictionary, .p L_word_filename },
-	{.what Sourceline, .desc "dd C_linefilename_store"},
-		{.what Here, .desc "address", .here 20560, .there 360,.type Relativedictionary, .p C_linefilename_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20568, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_doublequote_filename"},
-		{.what Here, .desc "address", .here 20576, .there 360,.type Relativedictionary, .p L_doublequote_filename },
-	{.what Sourceline, .desc "dd C_doublequotefilename_store"},
-		{.what Here, .desc "address", .here 20584, .there 360,.type Relativedictionary, .p C_doublequotefilename_store },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20592, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd L_closeparen_filename"},
-		{.what Here, .desc "address", .here 20600, .there 360,.type Relativedictionary, .p L_closeparen_filename },
-	{.what Sourceline, .desc "dd C_closeparenfilename_store"},
-		{.what Here, .desc "address", .here 20608, .there 360,.type Relativedictionary, .p C_closeparenfilename_store },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 20616, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "CENTRY \"boot\" boot 4"},
-		{.what Here, .desc "link",.here 20624, .there 360,.type Relativedictionary, .p 20224 },
-		{.what Here, .desc "len", .here 20632, .there 360,.type Byte, .b 0 + 4 },
-		{.what Here, .desc "name",.here 20633, .there 360,.type Chars, .str "boot" },
-		{.what Here, .desc "cfa", .here 20640, .there 360,.type Absoluteptr, .ptr colon },
-	{.what Sourceline, .desc "dd M_reset ; initialize return stack"},
-		{.what Here, .desc "address", .here 20648, .there 360,.type Relativedictionary, .p M_reset },
-	{.what Sourceline, .desc "dd M_clear	; SP = sstack_end initialize data stack"},
-		{.what Here, .desc "address", .here 20656, .there 360,.type Relativedictionary, .p M_clear },
-	{.what Sourceline, .desc "dd M_literal"},
-		{.what Here, .desc "address", .here 20664, .there 360,.type Relativedictionary, .p M_literal },
-	{.what Sourceline, .desc "dd C_parenabort ; ( (abort) -- )"},
-		{.what Here, .desc "address", .here 20672, .there 360,.type Relativedictionary, .p C_parenabort },
-	{.what Sourceline, .desc "dd MV_Abortvec	; variable that puts (abort) code address on the stack"},
-		{.what Here, .desc "address", .here 20680, .there 360,.type Relativedictionary, .p MV_Abortvec },
-	{.what Sourceline, .desc "dd M_store	; variable abortvec = (abort) code address"},
-		{.what Here, .desc "address", .here 20688, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MV_Dp"},
-		{.what Here, .desc "address", .here 20696, .there 360,.type Relativedictionary, .p MV_Dp },
-	{.what Sourceline, .desc "dd MV_H0	; H0 = here at startup"},
-		{.what Here, .desc "address", .here 20704, .there 360,.type Relativedictionary, .p MV_H0 },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20712, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd C_initialize	; sets up the buffer filenames and buffer fd's"},
-		{.what Here, .desc "address", .here 20720, .there 360,.type Relativedictionary, .p C_initialize },
-	{.what Sourceline, .desc "dd MC_STDIN"},
-		{.what Here, .desc "address", .here 20728, .there 360,.type Relativedictionary, .p MC_STDIN },
-	{.what Sourceline, .desc "dd MV_Infd	; might be overwritten by args below"},
-		{.what Here, .desc "address", .here 20736, .there 360,.type Relativedictionary, .p MV_Infd },
-	{.what Sourceline, .desc "dd M_store	; stdin = 0"},
-		{.what Here, .desc "address", .here 20744, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MC_STDOUT"},
-		{.what Here, .desc "address", .here 20752, .there 360,.type Relativedictionary, .p MC_STDOUT },
-	{.what Sourceline, .desc "dd MV_Outfd"},
-		{.what Here, .desc "address", .here 20760, .there 360,.type Relativedictionary, .p MV_Outfd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20768, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MC_STDERR"},
-		{.what Here, .desc "address", .here 20776, .there 360,.type Relativedictionary, .p MC_STDERR },
-	{.what Sourceline, .desc "dd MV_Errfd"},
-		{.what Here, .desc "address", .here 20784, .there 360,.type Relativedictionary, .p MV_Errfd },
-	{.what Sourceline, .desc "dd M_store"},
-		{.what Here, .desc "address", .here 20792, .there 360,.type Relativedictionary, .p M_store },
-	{.what Sourceline, .desc "dd MV_State"},
-		{.what Here, .desc "address", .here 20800, .there 360,.type Relativedictionary, .p MV_State },
-	{.what Sourceline, .desc "dd C_off	; off stores 0 at state"},
-		{.what Here, .desc "address", .here 20808, .there 360,.type Relativedictionary, .p C_off },
-	{.what Sourceline, .desc "dd C_decimal	; decimal sets base = 10"},
-		{.what Here, .desc "address", .here 20816, .there 360,.type Relativedictionary, .p C_decimal },
-	{.what Sourceline, .desc "dd C_args	; process args"},
-		{.what Here, .desc "address", .here 20824, .there 360,.type Relativedictionary, .p C_args },
-	{.what Sourceline, .desc "dd C_close_input ; if the args opened an input"},
-		{.what Here, .desc "address", .here 20832, .there 360,.type Relativedictionary, .p C_close_input },
-	{.what Sourceline, .desc "dd C_stdinput	; read lines from stdin, args can change it later"},
-		{.what Here, .desc "address", .here 20840, .there 360,.type Relativedictionary, .p C_stdinput },
-	{.what Sourceline, .desc "dd C_quit	; interpreter loop when there are no args or fall through after processing args"},
-		{.what Here, .desc "address", .here 20848, .there 360,.type Relativedictionary, .p C_quit },
-	{.what Sourceline, .desc "dd M_exitcolon"},
-		{.what Here, .desc "address", .here 20856, .there 360,.type Relativedictionary, .p M_exitcolon },
-	{.what Sourceline, .desc "L_bin_prefix:"},
-	{.what Sourceline, .desc "db \"#n/\""},
-		{.what Here, .desc "len", .here 20864, .there 360,.type Byte, .b 3 },
-		{.what Here, .desc "name",.here 20865, .there 360,.type Chars, .str "#n/" },
-	{.what Sourceline, .desc "L_line_filename:"},
-	{.what Sourceline, .desc "db \"/word\""},
-		{.what Here, .desc "len", .here 20868, .there 360,.type Byte, .b 5 },
-		{.what Here, .desc "name",.here 20869, .there 360,.type Chars, .str "/word" },
-	{.what Sourceline, .desc "L_word_filename:"},
-	{.what Sourceline, .desc "db \"/line\""},
-		{.what Here, .desc "len", .here 20874, .there 360,.type Byte, .b 5 },
-		{.what Here, .desc "name",.here 20875, .there 360,.type Chars, .str "/line" },
-	{.what Sourceline, .desc "L_doublequote_filename:"},
-	{.what Sourceline, .desc "db \"/doublequote\""},
-		{.what Here, .desc "len", .here 20880, .there 360,.type Byte, .b 12 },
-		{.what Here, .desc "name",.here 20881, .there 360,.type Chars, .str "/doublequote" },
-	{.what Sourceline, .desc "L_closeparen_filename:"},
-	{.what Sourceline, .desc "db \"/closeparen\""},
-		{.what Here, .desc "len", .here 20893, .there 360,.type Byte, .b 11 },
-		{.what Here, .desc "name",.here 20894, .there 360,.type Chars, .str "/closeparen" },
-	{.what Sourceline, .desc "L137:"},
-	{.what Sourceline, .desc "db \"unable to restore input\" ; comments for testing the awk parser"},
-		{.what Here, .desc "len", .here 20905, .there 360,.type Byte, .b 23 },
-		{.what Here, .desc "name",.here 20906, .there 360,.type Chars, .str "unable to restore input" },
-	{.what Sourceline, .desc "L_open_failed:"},
-	{.what Sourceline, .desc "db \"open file failed\""},
-		{.what Here, .desc "len", .here 20929, .there 360,.type Byte, .b 16 },
-		{.what Here, .desc "name",.here 20930, .there 360,.type Chars, .str "open file failed" },
-	{.what Sourceline, .desc "L_read_failed:"},
-	{.what Sourceline, .desc "db \"read file failed\""},
-		{.what Here, .desc "len", .here 20946, .there 360,.type Byte, .b 16 },
-		{.what Here, .desc "name",.here 20947, .there 360,.type Chars, .str "read file failed" },
-	{.what Sourceline, .desc "L170:"},
-	{.what Sourceline, .desc "db \" Q?\""},
-		{.what Here, .desc "len", .here 20963, .there 360,.type Byte, .b 3 },
-		{.what Here, .desc "name",.here 20964, .there 360,.type Chars, .str " Q?" },
-	{.what Sourceline, .desc "L173:"},
-	{.what Sourceline, .desc "db \" stack underflow\""},
-		{.what Here, .desc "len", .here 20967, .there 360,.type Byte, .b 16 },
-		{.what Here, .desc "name",.here 20968, .there 360,.type Chars, .str " stack underflow" },
-	{.what Sourceline, .desc "L180:"},
-	{.what Sourceline, .desc "db \" I?\""},
-		{.what Here, .desc "len", .here 20984, .there 360,.type Byte, .b 3 },
-		{.what Here, .desc "name",.here 20985, .there 360,.type Chars, .str " I?" },
-	{.what Sourceline, .desc "L_C_compile_5:"},
-	{.what Sourceline, .desc "db \" C?\""},
-		{.what Here, .desc "len", .here 20988, .there 360,.type Byte, .b 3 },
-		{.what Here, .desc "name",.here 20989, .there 360,.type Chars, .str " C?" },
-	{.what Sourceline, .desc "L247:"},
-	{.what Sourceline, .desc "db \"I/O error\""},
-		{.what Here, .desc "len", .here 20992, .there 360,.type Byte, .b 9 },
-		{.what Here, .desc "name",.here 20993, .there 360,.type Chars, .str "I/O error" },
-	{.what Sourceline, .desc "L251:"},
-	{.what Sourceline, .desc "db \"uninitialized execution vector\""},
-		{.what Here, .desc "len", .here 21002, .there 360,.type Byte, .b 30 },
-		{.what Here, .desc "name",.here 21003, .there 360,.type Chars, .str "uninitialized execution vector" },
-	{.what Sourceline, .desc "L255:"},
-	{.what Sourceline, .desc "db \" ok\""},
-		{.what Here, .desc "len", .here 21033, .there 360,.type Byte, .b 3 },
-		{.what Here, .desc "name",.here 21034, .there 360,.type Chars, .str " ok" },
-	{.what Sourceline, .desc "L_C_get_too_long:"},
-	{.what Sourceline, .desc "db \"input is longer than 4096 bytes without a delimiter\""},
-		{.what Here, .desc "len", .here 21037, .there 360,.type Byte, .b 51 },
-		{.what Here, .desc "name",.here 21038, .there 360,.type Chars, .str "input is longer than 4096 bytes without a delimiter" },
-	{.what Sourceline, .desc "L305:"},
-	{.what Sourceline, .desc "db \"read error\""},
-		{.what Here, .desc "len", .here 21089, .there 360,.type Byte, .b 10 },
-		{.what Here, .desc "name",.here 21090, .there 360,.type Chars, .str "read error" },
-	{.what Sourceline, .desc "L_C_long_word:"},
-	{.what Sourceline, .desc "db \"word is too long to be interpreted\""},
-		{.what Here, .desc "len", .here 21100, .there 360,.type Byte, .b 34 },
-		{.what Here, .desc "name",.here 21101, .there 360,.type Chars, .str "word is too long to be interpreted" },
-	{.what Here,  .desc "end here", .here 21136, .there 360,.type End },
-	{.what There, .desc "end there", .here 21136, .there 360,.type End },
-	{.what Dtop, .desc "end dtop", .p 20624 },
-};
-
--- a/os/pc64/trap.c
+++ b/os/pc64/trap.c
@@ -129,9 +129,9 @@
 		return;
 	for(i = h + RSTACK-8; i >= rsp; i-=8){
 		if(*(intptr*)i >=h && *(intptr*)i <=he)
-			print("	0x%zx: 0x%zx 0x%zx %zd\n", i, *(intptr*)i, *(intptr*)i-h, *(intptr*)i-h);
+			print("	0x%zX: 0x%zX 0x%zX %zd\n", i, *(intptr*)i, *(intptr*)i-h, *(intptr*)i-h);
 		else
-			print("	0x%zx: 0x%zx\n", i, *(intptr*)i);
+			print("	0x%zX: 0x%zX\n", i, *(intptr*)i);
 	/*	l++;
 		if(l == 3){
 			l = 0;
--- a/os/port/devbin.c
+++ b/os/port/devbin.c
@@ -255,7 +255,7 @@
 	Bin *bin;
 	Binreader *l;
 
-print("binclose: chanpath(c) %s\n", chanpath(c));
+	/* print("binclose: chanpath(c) %s\n", chanpath(c)); */
 	l = c->aux;
 	if(l != nil){
 		bin = l->bin;