ref: ed77f1550337e186ee740e42a1506fc61a5385c5
parent: 85ea771d37209f5aa5bce6fc682323d491b433e0
author: 9ferno <[email protected]>
date: Mon Feb 14 01:44:16 EST 2022
working forth interpreter reading from buffered files
--- a/os/pc64/forth.h
+++ b/os/pc64/forth.h
@@ -2,35 +2,34 @@
* Forth dictionary
*/
enum {- Header,
- IHeader, /* Immediate dictionary definition */
- Absolute,
- FromDictionary,
- FromH0,
- FromV0,
- Byte, /* obsolete, all are counted strings now */
- Chars,
+ 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 Hdr Hdr;
-struct Hdr {- int len;
- char name[64];
- void *cfa;
-};
typedef struct Fentry Fentry;
struct Fentry
{- int type;
- union {- Hdr hdr;
- intptr p;
- s8 b;
+ 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];
- };
- char src[128];
+ void *ptr;
+ /* }; */
};
enum {M_fetch = 16,
@@ -43,364 +42,365 @@
M_clear = 184,
M_reset = 208,
M_exitcolon = 232,
- M_literal = 264,
- M_sliteral = 296,
- M_doinit = 320,
- M_doloop = 344,
- M_doploop = 368,
- M_rfetch = 392,
- M_rpop = 416,
- M_rpush = 440,
- M_i = 464,
- M_j = 488,
- M_plus = 512,
- M_minus = 536,
- M_multiply = 560,
- M_cjump = 584,
- M_jump = 608,
- M_slashmod = 632,
- M_uslashmod = 656,
- M_binand = 680,
- M_binor = 704,
- M_binxor = 728,
- M_xswap = 752,
- M_drop = 776,
- M_dup = 800,
- M_over = 824,
- M_equal = 848,
- M_greater = 872,
- M_less = 896,
- M_lshift = 920,
- M_rshift = 944,
- M_rshifta = 968,
- M_execute = 992,
- M_unloop = 1016,
- M_cmove = 1040,
- M_cmoveb = 1064,
- M_variable = 1096,
- M_constant = 1128,
- M_colon = 1152,
- M_dodoes = 1176,
- M_cas = 1200,
- M_deferred = 1232,
- M_stackptr = 1256,
- M_sysbind = 1280,
- M_sysclose = 1312,
- M_syscreate = 1344,
- M_sysmount = 1376,
- M_sysopen = 1400,
- M_sysread = 1424,
- M_sysseek = 1448,
- M_syswrite = 1480,
- MC_STDIN = 1504,
- MC_STDOUT = 1536,
- MC_STDERR = 1568,
- MC_WORDNUM = 1600,
- MC_LINENUM = 1632,
- MC_DOUBLEQUOTENUM = 1672,
- MC_CLOSEPARENNUM = 1712,
- MC_NBUFFERS = 1752,
- MV_Dp = 1784,
- MV_Dtop = 1816,
- MV_Vp = 1848,
- MV_Pid = 1880,
- MV_Parentpid = 1912,
- MV_S0 = 1944,
- MV_Wordb = 1976,
- MV_Tib = 2008,
- MV_Argsfilename = 2048,
- MV_Iobuf = 2080,
- MV_Findadr = 2112,
- MV_Searchlen = 2152,
- MV_Base = 2184,
- MV_toNum = 2216,
- MV_State = 2248,
- MV_Abortvec = 2288,
- MV_Infd = 2320,
- MV_Outfd = 2352,
- MV_Errfd = 2384,
- MV_Eof = 2416,
- MV_Ninputs = 2448,
- MV_H0 = 2480,
- MV_Bufferfds = 2520,
- MV_Bufferfilenames = 2560,
- C_false = 2592,
- C_true = 2640,
- C_bl = 2688,
- C_on = 2736,
- C_off = 2800,
- C_tobody = 2864,
- C_aligned = 2920,
- C_cells = 3000,
- C_cells_plus = 3056,
- C_cell_plus = 3104,
- C_depth = 3160,
- C_nip = 3264,
- C_rot = 3312,
- C_2drop = 3376,
- C_2dup = 3424,
- C_2nip = 3472,
- C_2swap = 3520,
- C_qdup = 3584,
- L_C_qdup = 3656,
- C_pick = 3680,
- L_C_pick = 3784,
- L_C_pick_1 = 3792,
- C_tuck = 3816,
- C_divides = 3880,
- C_plusstore = 3928,
- C_invert = 4008,
- C_mod = 4064,
- C_1plus = 4112,
- C_1minus = 4168,
- C_negate = 4224,
- C_2multiplies = 4288,
- C_2divides = 4344,
- C_0eq = 4400,
- C_0lt = 4456,
- C_0gt = 4512,
- C_neq = 4568,
- C_0neq = 4616,
- C_max = 4672,
- L_C_max = 4736,
- L_C_max_1 = 4744,
- C_min = 4768,
- L_C_min = 4832,
- L_C_min_1 = 4840,
- C_signum = 4864,
- L_C_signum = 4944,
- L_C_signum_2 = 5000,
- L_C_signum_3 = 5016,
- L_C_signum_1 = 5016,
- C_within = 5040,
- C_abs = 5144,
- L_C_abs = 5192,
- C_emit = 5216,
- C_type = 5320,
- C_cr = 5416,
- C_space = 5472,
- C_emits = 5520,
- L_C_emits = 5528,
- L_C_emits_1 = 5592,
- C_spaces = 5624,
- C_count = 5680,
- C_compare = 5824,
- L_C_compare = 5896,
- L_C_compare_1 = 6032,
- C_erase = 6112,
- L_C_erase = 6144,
- C_fill = 6232,
- L_C_fill = 6272,
- C_blank = 6360,
- C_search = 6408,
- L_C_search = 6512,
- L_C_search_1 = 6696,
- C_here = 6760,
- C_there = 6808,
- C_comma = 6856,
- C_c = 6936,
- C_allot = 7016,
- C_vallot = 7064,
- C_pad = 7112,
- C_align = 7176,
- C_unused = 7240,
- C_fromhash = 7304,
- C_hash = 7384,
- L_C_hash = 7536,
- L_C_hash_1 = 7560,
- C_hashs = 7640,
- L_C_hashs = 7648,
- L_C_hashs_1 = 7696,
- C_hashfrom = 7720,
- C_hold = 7832,
- C_sign = 7936,
- L_C_sign = 7992,
- C_counted_paren_dot_paren = 8016,
- C_paren_dot_paren = 8112,
- C_dot = 8200,
- C_dotr = 8256,
- C_hex = 8416,
- C_decimal = 8480,
- C_digit = 8544,
- L_C_digit = 8656,
- L_C_digit_2 = 8760,
- L_C_digit_4 = 8864,
- L_C_digit_5 = 8888,
- L_C_digit_3 = 8888,
- L_C_digit_1 = 8888,
- L_C_digit_6 = 8960,
- L_C_digit_7 = 8976,
- C_number = 9000,
- L_C_number = 9136,
- L_C_number_1 = 9168,
- L_C_number_2 = 9232,
- L_C_number_3 = 9336,
- L_C_number_4 = 9392,
- C_abort = 9480,
- C_bufferfilename_fetch = 9544,
- C_bufferfilename_store = 9616,
- C_toword = 9680,
- C_wordfd_fetch = 9736,
- C_wordfd_store = 9792,
- C_wordfilename_fetch = 9856,
- C_wordfilename_store = 9920,
- C_toline = 9976,
- C_linefd_fetch = 10032,
- C_linefd_store = 10088,
- C_linefilename_fetch = 10152,
- C_linefilename_store = 10216,
- C_todoublequote = 10280,
- C_doublequotefd_fetch = 10344,
- C_doublequotefd_store = 10408,
- C_doublequotefilename_fetch = 10480,
- C_doublequotefilename_store = 10552,
- C_tocloseparen = 10616,
- C_closeparenfd_fetch = 10680,
- C_closeparenfd_store = 10744,
- C_closeparenfilename_fetch = 10816,
- C_closeparenfilename_store = 10888,
- C_stdinput = 10952,
- L_C_stdinput = 11024,
- C_args = 11136,
- L_C_args_read = 11208,
- C_input_fetch = 11296,
- L_C_input_fetch = 11344,
- C_input_store = 11528,
- L_C_input_store = 11688,
- L_C_input_store_1 = 11800,
- C_close_input = 11840,
- L_C_close_input = 11888,
- L_C_close_next = 12016,
- C_restore_input = 12176,
- L_restore_input = 12304,
- C_concat = 12328,
- C_buffername = 12512,
- C_get = 12688,
- L_C_get_opened = 12952,
- L_C_get = 13000,
- L_C_get_read_failed = 13192,
- L_C_get_read_0 = 13256,
- C_parse = 13312,
- L_C_parse_1 = 13472,
- C_word = 13544,
- C_line = 13600,
- C_doublequote = 13656,
- C_counted_doublequote = 13712,
- C_closeparen = 13776,
- C_findname = 13832,
- L_C_findname = 13872,
- L_C_findname_2 = 13984,
- L_C_findname_4 = 14112,
- L_C_findname_3 = 14120,
- L_C_findname_1 = 14136,
- C_find = 14184,
- L_C_find_1 = 14376,
- L_C_find_2 = 14392,
- L_C_find = 14416,
- L_C_find_3 = 14424,
- C_single_quote = 14448,
- L_C_single_quote = 14568,
- C_qstack = 14592,
- L_C_qstack = 14688,
- C_interpret = 14760,
- L_C_interpret = 14768,
- L_C_interpret_2 = 14832,
- L_C_interpret_4 = 14936,
- L_C_interpret_3 = 14936,
- C_create = 14976,
- C_variable = 15216,
- C_constant = 15312,
- C_immediate = 15440,
- C_tocfa = 15552,
- C_compile = 15632,
- L_C_compile_1 = 15760,
- L_C_compile_2 = 15776,
- L_C_compile = 15792,
- L_C_compile_4 = 15912,
- L_C_compile_6 = 15944,
- L_C_compile_3 = 15944,
- C_close_bracket = 15968,
- L_C_close_bracket = 15992,
- L_C_close_bracket_1 = 16072,
- L_C_close_bracket_2 = 16096,
- L_C_close_bracket_3 = 16128,
- CI_open_bracket = 16152,
- C_smudge = 16200,
- C_reveal = 16312,
- C_colon = 16432,
- CI_semicolon = 16560,
- CI_recurse = 16640,
- C_char = 16712,
- C_literal = 16768,
- C_sliteral = 16840,
- C_string = 16992,
- CI_char_brackets = 17104,
- CI_quote_brackets = 17168,
- CI_openparen = 17216,
- CI_backslash = 17264,
- C_qabort_parens = 17312,
- L_C_qabort_parens = 17392,
- L_C_qabort_parens_1 = 17400,
- CI_abort_double_quote = 17424,
- C_double_quote = 17488,
- C_counted_double_quote = 17600,
- CI_sdouble_quote = 17720,
- CI_dotstr = 17760,
- CI_if = 17824,
- CI_else = 17912,
- CI_then = 18040,
- CI_begin = 18096,
- CI_again = 18136,
- CI_until = 18200,
- CI_while = 18264,
- CI_repeat = 18352,
- CI_do = 18448,
- CI_loop = 18528,
- L234 = 18616,
- CI_ploop = 18640,
- L236 = 18728,
- C_wo = 18752,
- C_ro = 18848,
- C_rw = 18896,
- C_cstring = 18944,
- C_cstring0 = 19128,
- C_cstring1 = 19192,
- C_open_file = 19256,
- C_close_file = 19360,
- C_read_file = 19416,
- C_write_file = 19496,
- C_reposition_file = 19568,
- C_qfcheck = 19632,
- L246 = 19720,
- C_create_file = 19752,
- C_bye = 20024,
- C_include = 20080,
- C_crash = 20192,
- C_quit = 20272,
- L_C_quit = 20296,
- C_parenabort = 20352,
- C_initialize = 20624,
- L_C_initialize = 20672,
- L_C_initialize_1 = 20808,
- C_boot = 21024,
- L_bin_prefix = 21248,
- L121 = 21256,
- L122 = 21264,
- L123 = 21272,
- L124 = 21288,
- L137 = 21304,
- L_open_failed = 21328,
- L_read_failed = 21352,
- L170 = 21376,
- L173 = 21384,
- L180 = 21408,
- L_C_compile_5 = 21416,
- L247 = 21424,
- L251 = 21440,
- L255 = 21472,
- L_C_get_too_long = 21480,
- L305 = 21536,
- L_C_long_word = 21552,
+ 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);
@@ -462,7457 +462,5083 @@
extern void *rshifta(void);
extern void *doploop(void);
Fentry fentries[] = {- {.type Header, {.hdr { 1, "@", /* M_fetch = 16 */ fetch }}}, /* MENTRY "@" fetch 1 h 24 */- {.type Here, {.p 24 }}, /* 24 0 */- {.type There, {.p 0 }}, /* 24 0 */- {.type Here, {.p 24 }}, /* 24 0 */- {.type There, {.p 0 }}, /* 24 0 */- {.type Header, {.hdr { 1, "!", /* M_store = 40 */ store }}}, /* MENTRY "!" store 1 h 48 */- {.type Here, {.p 48 }}, /* 48 0 */- {.type There, {.p 0 }}, /* 48 0 */- {.type Here, {.p 48 }}, /* 48 0 */- {.type There, {.p 0 }}, /* 48 0 */- {.type Header, {.hdr { 2, "c@", /* M_cfetch = 64 */ cfetch }}}, /* MENTRY "c@" cfetch 2 h 72 */- {.type Here, {.p 72 }}, /* 72 0 */- {.type There, {.p 0 }}, /* 72 0 */- {.type Here, {.p 72 }}, /* 72 0 */- {.type There, {.p 0 }}, /* 72 0 */- {.type Header, {.hdr { 2, "c!", /* M_cstore = 88 */ cstore }}}, /* MENTRY "c!" cstore 2 h 96 */- {.type Here, {.p 96 }}, /* 96 0 */- {.type There, {.p 0 }}, /* 96 0 */- {.type Here, {.p 96 }}, /* 96 0 */- {.type There, {.p 0 }}, /* 96 0 */- {.type Header, {.hdr { 4, "mmap", /* M_mmap = 112 */ mmap }}}, /* MENTRY "mmap" mmap 4 h 120 */- {.type Here, {.p 120 }}, /* 120 0 */- {.type There, {.p 0 }}, /* 120 0 */- {.type Here, {.p 120 }}, /* 120 0 */- {.type There, {.p 0 }}, /* 120 0 */- {.type Header, {.hdr { 4, "halt", /* M_terminate = 136 */ terminate }}}, /* MENTRY "halt" terminate 4 h 144 */- {.type Here, {.p 144 }}, /* 144 0 */- {.type There, {.p 0 }}, /* 144 0 */- {.type Here, {.p 144 }}, /* 144 0 */- {.type There, {.p 0 }}, /* 144 0 */- {.type Header, {.hdr { 4, "dump", /* M_fthdump = 160 */ fthdump }}}, /* MENTRY "dump" fthdump 4 h 168 */- {.type Here, {.p 168 }}, /* 168 0 */- {.type There, {.p 0 }}, /* 168 0 */- {.type Here, {.p 168 }}, /* 168 0 */- {.type There, {.p 0 }}, /* 168 0 */- {.type Header, {.hdr { 5, "clear", /* M_clear = 184 */ clear }}}, /* MENTRY "clear" clear 5 h 192 */- {.type Here, {.p 192 }}, /* 192 0 */- {.type There, {.p 0 }}, /* 192 0 */- {.type Here, {.p 192 }}, /* 192 0 */- {.type There, {.p 0 }}, /* 192 0 */- {.type Header, {.hdr { 5, "reset", /* M_reset = 208 */ reset }}}, /* MENTRY "reset" reset 5 h 216 */- {.type Here, {.p 216 }}, /* 216 0 */- {.type There, {.p 0 }}, /* 216 0 */- {.type Here, {.p 216 }}, /* 216 0 */- {.type There, {.p 0 }}, /* 216 0 */- {.type Header, {.hdr { 4, "exit", /* M_exitcolon = 232 */ exitcolon }}}, /* MENTRY "exit" exitcolon 4 h 240 */- {.type Here, {.p 240 }}, /* 240 0 */- {.type There, {.p 0 }}, /* 240 0 */- {.type Here, {.p 240 }}, /* 240 0 */- {.type There, {.p 0 }}, /* 240 0 */- {.type Header, {.hdr { 9, "(literal)", /* M_literal = 264 */ literal }}}, /* MENTRY "(literal)" literal 9 h 272 */- {.type Here, {.p 272 }}, /* 272 0 */- {.type There, {.p 0 }}, /* 272 0 */- {.type Here, {.p 272 }}, /* 272 0 */- {.type There, {.p 0 }}, /* 272 0 */- {.type Header, {.hdr { 10, "(sliteral)", /* M_sliteral = 296 */ sliteral }}}, /* MENTRY "(sliteral)" sliteral 10 h 304 */- {.type Here, {.p 304 }}, /* 304 0 */- {.type There, {.p 0 }}, /* 304 0 */- {.type Here, {.p 304 }}, /* 304 0 */- {.type There, {.p 0 }}, /* 304 0 */- {.type Header, {.hdr { 4, "(do)", /* M_doinit = 320 */ doinit }}}, /* MENTRY "(do)" doinit 4 h 328 */- {.type Here, {.p 328 }}, /* 328 0 */- {.type There, {.p 0 }}, /* 328 0 */- {.type Here, {.p 328 }}, /* 328 0 */- {.type There, {.p 0 }}, /* 328 0 */- {.type Header, {.hdr { 6, "(loop)", /* M_doloop = 344 */ doloop }}}, /* MENTRY "(loop)" doloop 6 h 352 */- {.type Here, {.p 352 }}, /* 352 0 */- {.type There, {.p 0 }}, /* 352 0 */- {.type Here, {.p 352 }}, /* 352 0 */- {.type There, {.p 0 }}, /* 352 0 */- {.type Header, {.hdr { 7, "(+loop)", /* M_doploop = 368 */ doploop }}}, /* MENTRY "(+loop)" doploop 7 h 376 */- {.type Here, {.p 376 }}, /* 376 0 */- {.type There, {.p 0 }}, /* 376 0 */- {.type Here, {.p 376 }}, /* 376 0 */- {.type There, {.p 0 }}, /* 376 0 */- {.type Header, {.hdr { 2, "r@", /* M_rfetch = 392 */ rfetch }}}, /* MENTRY "r@" rfetch 2 h 400 */- {.type Here, {.p 400 }}, /* 400 0 */- {.type There, {.p 0 }}, /* 400 0 */- {.type Here, {.p 400 }}, /* 400 0 */- {.type There, {.p 0 }}, /* 400 0 */- {.type Header, {.hdr { 2, "r>", /* M_rpop = 416 */ rpop }}}, /* MENTRY "r>" rpop 2 h 424 */- {.type Here, {.p 424 }}, /* 424 0 */- {.type There, {.p 0 }}, /* 424 0 */- {.type Here, {.p 424 }}, /* 424 0 */- {.type There, {.p 0 }}, /* 424 0 */- {.type Header, {.hdr { 2, ">r", /* M_rpush = 440 */ rpush }}}, /* MENTRY ">r" rpush 2 h 448 */- {.type Here, {.p 448 }}, /* 448 0 */- {.type There, {.p 0 }}, /* 448 0 */- {.type Here, {.p 448 }}, /* 448 0 */- {.type There, {.p 0 }}, /* 448 0 */- {.type Header, {.hdr { 1, "i", /* M_i = 464 */ i }}}, /* MENTRY "i" i 1 h 472 */- {.type Here, {.p 472 }}, /* 472 0 */- {.type There, {.p 0 }}, /* 472 0 */- {.type Here, {.p 472 }}, /* 472 0 */- {.type There, {.p 0 }}, /* 472 0 */- {.type Header, {.hdr { 1, "j", /* M_j = 488 */ j }}}, /* MENTRY "j" j 1 h 496 */- {.type Here, {.p 496 }}, /* 496 0 */- {.type There, {.p 0 }}, /* 496 0 */- {.type Here, {.p 496 }}, /* 496 0 */- {.type There, {.p 0 }}, /* 496 0 */- {.type Header, {.hdr { 1, "+", /* M_plus = 512 */ plus }}}, /* MENTRY "+" plus 1 h 520 */- {.type Here, {.p 520 }}, /* 520 0 */- {.type There, {.p 0 }}, /* 520 0 */- {.type Here, {.p 520 }}, /* 520 0 */- {.type There, {.p 0 }}, /* 520 0 */- {.type Header, {.hdr { 1, "-", /* M_minus = 536 */ minus }}}, /* MENTRY "-" minus 1 h 544 */- {.type Here, {.p 544 }}, /* 544 0 */- {.type There, {.p 0 }}, /* 544 0 */- {.type Here, {.p 544 }}, /* 544 0 */- {.type There, {.p 0 }}, /* 544 0 */- {.type Header, {.hdr { 1, "*", /* M_multiply = 560 */ multiply }}}, /* MENTRY "*" multiply 1 h 568 */- {.type Here, {.p 568 }}, /* 568 0 */- {.type There, {.p 0 }}, /* 568 0 */- {.type Here, {.p 568 }}, /* 568 0 */- {.type There, {.p 0 }}, /* 568 0 */- {.type Header, {.hdr { 4, "(if)", /* M_cjump = 584 */ cjump }}}, /* MENTRY "(if)" cjump 4 h 592 */- {.type Here, {.p 592 }}, /* 592 0 */- {.type There, {.p 0 }}, /* 592 0 */- {.type Here, {.p 592 }}, /* 592 0 */- {.type There, {.p 0 }}, /* 592 0 */- {.type Header, {.hdr { 6, "(else)", /* M_jump = 608 */ jump }}}, /* MENTRY "(else)" jump 6 h 616 */- {.type Here, {.p 616 }}, /* 616 0 */- {.type There, {.p 0 }}, /* 616 0 */- {.type Here, {.p 616 }}, /* 616 0 */- {.type There, {.p 0 }}, /* 616 0 */- {.type Header, {.hdr { 4, "/mod", /* M_slashmod = 632 */ slashmod }}}, /* MENTRY "/mod" slashmod 4 h 640 */- {.type Here, {.p 640 }}, /* 640 0 */- {.type There, {.p 0 }}, /* 640 0 */- {.type Here, {.p 640 }}, /* 640 0 */- {.type There, {.p 0 }}, /* 640 0 */- {.type Header, {.hdr { 5, "u/mod", /* M_uslashmod = 656 */ uslashmod }}}, /* MENTRY "u/mod" uslashmod 5 h 664 */- {.type Here, {.p 664 }}, /* 664 0 */- {.type There, {.p 0 }}, /* 664 0 */- {.type Here, {.p 664 }}, /* 664 0 */- {.type There, {.p 0 }}, /* 664 0 */- {.type Header, {.hdr { 3, "and", /* M_binand = 680 */ binand }}}, /* MENTRY "and" binand 3 h 688 */- {.type Here, {.p 688 }}, /* 688 0 */- {.type There, {.p 0 }}, /* 688 0 */- {.type Here, {.p 688 }}, /* 688 0 */- {.type There, {.p 0 }}, /* 688 0 */- {.type Header, {.hdr { 2, "or", /* M_binor = 704 */ binor }}}, /* MENTRY "or" binor 2 h 712 */- {.type Here, {.p 712 }}, /* 712 0 */- {.type There, {.p 0 }}, /* 712 0 */- {.type Here, {.p 712 }}, /* 712 0 */- {.type There, {.p 0 }}, /* 712 0 */- {.type Header, {.hdr { 3, "xor", /* M_binxor = 728 */ binxor }}}, /* MENTRY "xor" binxor 3 h 736 */- {.type Here, {.p 736 }}, /* 736 0 */- {.type There, {.p 0 }}, /* 736 0 */- {.type Here, {.p 736 }}, /* 736 0 */- {.type There, {.p 0 }}, /* 736 0 */- {.type Header, {.hdr { 4, "swap", /* M_xswap = 752 */ xswap }}}, /* MENTRY "swap" xswap 4 h 760 */- {.type Here, {.p 760 }}, /* 760 0 */- {.type There, {.p 0 }}, /* 760 0 */- {.type Here, {.p 760 }}, /* 760 0 */- {.type There, {.p 0 }}, /* 760 0 */- {.type Header, {.hdr { 4, "drop", /* M_drop = 776 */ drop }}}, /* MENTRY "drop" drop 4 h 784 */- {.type Here, {.p 784 }}, /* 784 0 */- {.type There, {.p 0 }}, /* 784 0 */- {.type Here, {.p 784 }}, /* 784 0 */- {.type There, {.p 0 }}, /* 784 0 */- {.type Header, {.hdr { 3, "dup", /* M_dup = 800 */ dup }}}, /* MENTRY "dup" dup 3 h 808 */- {.type Here, {.p 808 }}, /* 808 0 */- {.type There, {.p 0 }}, /* 808 0 */- {.type Here, {.p 808 }}, /* 808 0 */- {.type There, {.p 0 }}, /* 808 0 */- {.type Header, {.hdr { 4, "over", /* M_over = 824 */ over }}}, /* MENTRY "over" over 4 h 832 */- {.type Here, {.p 832 }}, /* 832 0 */- {.type There, {.p 0 }}, /* 832 0 */- {.type Here, {.p 832 }}, /* 832 0 */- {.type There, {.p 0 }}, /* 832 0 */- {.type Header, {.hdr { 1, "=", /* M_equal = 848 */ equal }}}, /* MENTRY "=" equal 1 h 856 */- {.type Here, {.p 856 }}, /* 856 0 */- {.type There, {.p 0 }}, /* 856 0 */- {.type Here, {.p 856 }}, /* 856 0 */- {.type There, {.p 0 }}, /* 856 0 */- {.type Header, {.hdr { 1, ">", /* M_greater = 872 */ greater }}}, /* MENTRY ">" greater 1 h 880 */- {.type Here, {.p 880 }}, /* 880 0 */- {.type There, {.p 0 }}, /* 880 0 */- {.type Here, {.p 880 }}, /* 880 0 */- {.type There, {.p 0 }}, /* 880 0 */- {.type Header, {.hdr { 1, "<", /* M_less = 896 */ less }}}, /* MENTRY "<" less 1 h 904 */- {.type Here, {.p 904 }}, /* 904 0 */- {.type There, {.p 0 }}, /* 904 0 */- {.type Here, {.p 904 }}, /* 904 0 */- {.type There, {.p 0 }}, /* 904 0 */- {.type Header, {.hdr { 6, "lshift", /* M_lshift = 920 */ lshift }}}, /* MENTRY "lshift" lshift 6 h 928 */- {.type Here, {.p 928 }}, /* 928 0 */- {.type There, {.p 0 }}, /* 928 0 */- {.type Here, {.p 928 }}, /* 928 0 */- {.type There, {.p 0 }}, /* 928 0 */- {.type Header, {.hdr { 6, "rshift", /* M_rshift = 944 */ rshift }}}, /* MENTRY "rshift" rshift 6 h 952 */- {.type Here, {.p 952 }}, /* 952 0 */- {.type There, {.p 0 }}, /* 952 0 */- {.type Here, {.p 952 }}, /* 952 0 */- {.type There, {.p 0 }}, /* 952 0 */- {.type Header, {.hdr { 7, "rshifta", /* M_rshifta = 968 */ rshifta }}}, /* MENTRY "rshifta" rshifta 7 h 976 */- {.type Here, {.p 976 }}, /* 976 0 */- {.type There, {.p 0 }}, /* 976 0 */- {.type Here, {.p 976 }}, /* 976 0 */- {.type There, {.p 0 }}, /* 976 0 */- {.type Header, {.hdr { 7, "execute", /* M_execute = 992 */ execute }}}, /* MENTRY "execute" execute 7 h 1000 */- {.type Here, {.p 1000 }}, /* 1000 0 */- {.type There, {.p 0 }}, /* 1000 0 */- {.type Here, {.p 1000 }}, /* 1000 0 */- {.type There, {.p 0 }}, /* 1000 0 */- {.type Header, {.hdr { 6, "unloop", /* M_unloop = 1016 */ unloop }}}, /* MENTRY "unloop" unloop 6 h 1024 */- {.type Here, {.p 1024 }}, /* 1024 0 */- {.type There, {.p 0 }}, /* 1024 0 */- {.type Here, {.p 1024 }}, /* 1024 0 */- {.type There, {.p 0 }}, /* 1024 0 */- {.type Header, {.hdr { 5, "cmove", /* M_cmove = 1040 */ cmove }}}, /* MENTRY "cmove" cmove 5 h 1048 */- {.type Here, {.p 1048 }}, /* 1048 0 */- {.type There, {.p 0 }}, /* 1048 0 */- {.type Here, {.p 1048 }}, /* 1048 0 */- {.type There, {.p 0 }}, /* 1048 0 */- {.type Header, {.hdr { 6, "cmove>", /* M_cmoveb = 1064 */ cmoveb }}}, /* MENTRY "cmove>" cmoveb 6 h 1072 */- {.type Here, {.p 1072 }}, /* 1072 0 */- {.type There, {.p 0 }}, /* 1072 0 */- {.type Here, {.p 1072 }}, /* 1072 0 */- {.type There, {.p 0 }}, /* 1072 0 */- {.type Header, {.hdr { 10, "(variable)", /* M_variable = 1096 */ variable }}}, /* MENTRY "(variable)" variable 10 h 1104 */- {.type Here, {.p 1104 }}, /* 1104 0 */- {.type There, {.p 0 }}, /* 1104 0 */- {.type Here, {.p 1104 }}, /* 1104 0 */- {.type There, {.p 0 }}, /* 1104 0 */- {.type Header, {.hdr { 10, "(constant)", /* M_constant = 1128 */ constant }}}, /* MENTRY "(constant)" constant 10 h 1136 */- {.type Here, {.p 1136 }}, /* 1136 0 */- {.type There, {.p 0 }}, /* 1136 0 */- {.type Here, {.p 1136 }}, /* 1136 0 */- {.type There, {.p 0 }}, /* 1136 0 */- {.type Header, {.hdr { 3, "(:)", /* M_colon = 1152 */ colon }}}, /* MENTRY "(:)" colon 3 h 1160 */- {.type Here, {.p 1160 }}, /* 1160 0 */- {.type There, {.p 0 }}, /* 1160 0 */- {.type Here, {.p 1160 }}, /* 1160 0 */- {.type There, {.p 0 }}, /* 1160 0 */- {.type Header, {.hdr { 6, "(does)", /* M_dodoes = 1176 */ dodoes }}}, /* MENTRY "(does)" dodoes 6 h 1184 */- {.type Here, {.p 1184 }}, /* 1184 0 */- {.type There, {.p 0 }}, /* 1184 0 */- {.type Here, {.p 1184 }}, /* 1184 0 */- {.type There, {.p 0 }}, /* 1184 0 */- {.type Header, {.hdr { 3, "cas", /* M_cas = 1200 */ cas }}}, /* MENTRY "cas" cas 3 h 1208 */- {.type Here, {.p 1208 }}, /* 1208 0 */- {.type There, {.p 0 }}, /* 1208 0 */- {.type Here, {.p 1208 }}, /* 1208 0 */- {.type There, {.p 0 }}, /* 1208 0 */- {.type Header, {.hdr { 10, "(deferred)", /* M_deferred = 1232 */ deferred }}}, /* MENTRY "(deferred)" deferred 10 h 1240 */- {.type Here, {.p 1240 }}, /* 1240 0 */- {.type There, {.p 0 }}, /* 1240 0 */- {.type Here, {.p 1240 }}, /* 1240 0 */- {.type There, {.p 0 }}, /* 1240 0 */- {.type Header, {.hdr { 2, "s@", /* M_stackptr = 1256 */ stackptr }}}, /* MENTRY "s@" stackptr 2 ; puts PSP on stack. Not a variable hence lower case. h 1264 */- {.type Here, {.p 1264 }}, /* 1264 0 */- {.type There, {.p 0 }}, /* 1264 0 */- {.type Here, {.p 1264 }}, /* 1264 0 */- {.type There, {.p 0 }}, /* 1264 0 */- {.type Here, {.p 1264 }}, /* 1264 0 */- {.type There, {.p 0 }}, /* 1264 0 */- {.type Header, {.hdr { 7, "sysbind", /* M_sysbind = 1280 */ sysbind }}}, /* MENTRY "sysbind" sysbind 7 h 1288 */- {.type Here, {.p 1288 }}, /* 1288 0 */- {.type There, {.p 0 }}, /* 1288 0 */- {.type Here, {.p 1288 }}, /* 1288 0 */- {.type There, {.p 0 }}, /* 1288 0 */- {.type Header, {.hdr { 8, "sysclose", /* M_sysclose = 1312 */ sysclose }}}, /* MENTRY "sysclose" sysclose 8 h 1320 */- {.type Here, {.p 1320 }}, /* 1320 0 */- {.type There, {.p 0 }}, /* 1320 0 */- {.type Here, {.p 1320 }}, /* 1320 0 */- {.type There, {.p 0 }}, /* 1320 0 */- {.type Header, {.hdr { 9, "syscreate", /* M_syscreate = 1344 */ syscreate }}}, /* MENTRY "syscreate" syscreate 9 h 1352 */- {.type Here, {.p 1352 }}, /* 1352 0 */- {.type There, {.p 0 }}, /* 1352 0 */- {.type Here, {.p 1352 }}, /* 1352 0 */- {.type There, {.p 0 }}, /* 1352 0 */- {.type Header, {.hdr { 8, "sysmount", /* M_sysmount = 1376 */ sysmount }}}, /* MENTRY "sysmount" sysmount 8 h 1384 */- {.type Here, {.p 1384 }}, /* 1384 0 */- {.type There, {.p 0 }}, /* 1384 0 */- {.type Here, {.p 1384 }}, /* 1384 0 */- {.type There, {.p 0 }}, /* 1384 0 */- {.type Header, {.hdr { 7, "sysopen", /* M_sysopen = 1400 */ sysopen }}}, /* MENTRY "sysopen" sysopen 7 h 1408 */- {.type Here, {.p 1408 }}, /* 1408 0 */- {.type There, {.p 0 }}, /* 1408 0 */- {.type Here, {.p 1408 }}, /* 1408 0 */- {.type There, {.p 0 }}, /* 1408 0 */- {.type Header, {.hdr { 7, "sysread", /* M_sysread = 1424 */ sysread }}}, /* MENTRY "sysread" sysread 7 h 1432 */- {.type Here, {.p 1432 }}, /* 1432 0 */- {.type There, {.p 0 }}, /* 1432 0 */- {.type Here, {.p 1432 }}, /* 1432 0 */- {.type There, {.p 0 }}, /* 1432 0 */- {.type Header, {.hdr { 7, "sysseek", /* M_sysseek = 1448 */ sysseek }}}, /* MENTRY "sysseek" sysseek 7 h 1456 */- {.type Here, {.p 1456 }}, /* 1456 0 */- {.type There, {.p 0 }}, /* 1456 0 */- {.type Here, {.p 1456 }}, /* 1456 0 */- {.type There, {.p 0 }}, /* 1456 0 */- {.type Header, {.hdr { 8, "syswrite", /* M_syswrite = 1480 */ syswrite }}}, /* MENTRY "syswrite" syswrite 8 h 1488 */- {.type Here, {.p 1488 }}, /* 1488 0 */- {.type There, {.p 0 }}, /* 1488 0 */- {.type Here, {.p 1488 }}, /* 1488 0 */- {.type There, {.p 0 }}, /* 1488 0 */- {.type Here, {.p 1488 }}, /* 1488 0 */- {.type There, {.p 0 }}, /* 1488 0 */- {.type Header, {.hdr { 5, "STDIN", /* MC_STDIN = 1504 */ constant }}}, /* MCENTRY "STDIN" STDIN 5 0 ; 3 constants from here CAPITALS h 1512 */- {.type Here, {.p 1512 }}, /* 1512 0 */- {.type There, {.p 0 }}, /* 1512 0 */- {.type Absolute, {.p 0}}, /* 1520 */- {.type Here, {.p 1520 }}, /* 1520 0 */- {.type There, {.p 0 }}, /* 1520 0 */- {.type Header, {.hdr { 6, "STDOUT", /* MC_STDOUT = 1536 */ constant }}}, /* MCENTRY "STDOUT" STDOUT 6 1 h 1544 */- {.type Here, {.p 1544 }}, /* 1544 0 */- {.type There, {.p 0 }}, /* 1544 0 */- {.type Absolute, {.p 1}}, /* 1552 */- {.type Here, {.p 1552 }}, /* 1552 0 */- {.type There, {.p 0 }}, /* 1552 0 */- {.type Header, {.hdr { 6, "STDERR", /* MC_STDERR = 1568 */ constant }}}, /* MCENTRY "STDERR" STDERR 6 2 h 1576 */- {.type Here, {.p 1576 }}, /* 1576 0 */- {.type There, {.p 0 }}, /* 1576 0 */- {.type Absolute, {.p 2}}, /* 1584 */- {.type Here, {.p 1584 }}, /* 1584 0 */- {.type There, {.p 0 }}, /* 1584 0 */- {.type Here, {.p 1584 }}, /* 1584 0 */- {.type There, {.p 0 }}, /* 1584 0 */- {.type Header, {.hdr { 5, "WORD#", /* MC_WORDNUM = 1600 */ constant }}}, /* MCENTRY "WORD#" WORDNUM 5 0 h 1608 */- {.type Here, {.p 1608 }}, /* 1608 0 */- {.type There, {.p 0 }}, /* 1608 0 */- {.type Absolute, {.p 0}}, /* 1616 */- {.type Here, {.p 1616 }}, /* 1616 0 */- {.type There, {.p 0 }}, /* 1616 0 */- {.type Header, {.hdr { 5, "LINE#", /* MC_LINENUM = 1632 */ constant }}}, /* MCENTRY "LINE#" LINENUM 5 1 h 1640 */- {.type Here, {.p 1640 }}, /* 1640 0 */- {.type There, {.p 0 }}, /* 1640 0 */- {.type Absolute, {.p 1}}, /* 1648 */- {.type Here, {.p 1648 }}, /* 1648 0 */- {.type There, {.p 0 }}, /* 1648 0 */- {.type Header, {.hdr { 12, "DOUBLEQUOTE#", /* MC_DOUBLEQUOTENUM = 1672 */ constant }}}, /* MCENTRY "DOUBLEQUOTE#" DOUBLEQUOTENUM 12 2 h 1680 */- {.type Here, {.p 1680 }}, /* 1680 0 */- {.type There, {.p 0 }}, /* 1680 0 */- {.type Absolute, {.p 2}}, /* 1688 */- {.type Here, {.p 1688 }}, /* 1688 0 */- {.type There, {.p 0 }}, /* 1688 0 */- {.type Header, {.hdr { 11, "CLOSEPAREN#", /* MC_CLOSEPARENNUM = 1712 */ constant }}}, /* MCENTRY "CLOSEPAREN#" CLOSEPARENNUM 11 3 h 1720 */- {.type Here, {.p 1720 }}, /* 1720 0 */- {.type There, {.p 0 }}, /* 1720 0 */- {.type Absolute, {.p 3}}, /* 1728 */- {.type Here, {.p 1728 }}, /* 1728 0 */- {.type There, {.p 0 }}, /* 1728 0 */- {.type Header, {.hdr { 8, "#BUFFERS", /* MC_NBUFFERS = 1752 */ constant }}}, /* MCENTRY "#BUFFERS" NBUFFERS 8 16 h 1760 */- {.type Here, {.p 1760 }}, /* 1760 0 */- {.type There, {.p 0 }}, /* 1760 0 */- {.type Absolute, {.p 16}}, /* 1768 */- {.type Here, {.p 1768 }}, /* 1768 0 */- {.type There, {.p 0 }}, /* 1768 0 */- {.type Here, {.p 1768 }}, /* 1768 0 */- {.type There, {.p 0 }}, /* 1768 0 */-/* ; put address of the defined location on the top of stack */ {.type Here, {.p 1768 }}, /* 1768 0 */- {.type There, {.p 0 }}, /* 1768 0 */-/* ; cannot use H as it is nil in inferno, address where here (next available dictionary cell location) is stored */ {.type Here, {.p 1768 }}, /* 1768 0 */- {.type There, {.p 0 }}, /* 1768 0 */-/* ; here = Dp @ */ {.type Here, {.p 1768 }}, /* 1768 0 */- {.type There, {.p 0 }}, /* 1768 0 */-/* ; these memory locations (HERE, DTOP, etc.) are populated with values by the forth initializer */ {.type Here, {.p 1768 }}, /* 1768 0 */- {.type There, {.p 0 }}, /* 1768 0 */- {.type Header, {.hdr { 2, "Dp", /* MV_Dp = 1784 */ variable }}}, /* MVDENTRY "Dp" Dp 2 HERE ; here h 1792 */- {.type Here, {.p 1792 }}, /* 1792 0 */- {.type There, {.p 0 }}, /* 1792 0 */- {.type FromH0, {.p HERE }}, /* 1800 0 */- {.type Here, {.p 1800 }}, /* 1800 0 */- {.type There, {.p 0 }}, /* 1800 0 */- {.type Header, {.hdr { 4, "Dtop", /* MV_Dtop = 1816 */ variable }}}, /* MVDENTRY "Dtop" Dtop 4 DTOP ; last defined header h 1824 */- {.type Here, {.p 1824 }}, /* 1824 0 */- {.type There, {.p 0 }}, /* 1824 0 */- {.type FromH0, {.p DTOP }}, /* 1832 0 */- {.type Here, {.p 1832 }}, /* 1832 0 */- {.type There, {.p 0 }}, /* 1832 0 */- {.type Header, {.hdr { 2, "Vp", /* MV_Vp = 1848 */ variable }}}, /* MVDENTRY "Vp" Vp 2 THERE ; here of the variables space h 1856 */- {.type Here, {.p 1856 }}, /* 1856 0 */- {.type There, {.p 0 }}, /* 1856 0 */- {.type FromH0, {.p THERE }}, /* 1864 0 */- {.type Here, {.p 1864 }}, /* 1864 0 */- {.type There, {.p 0 }}, /* 1864 0 */- {.type Header, {.hdr { 3, "Pid", /* MV_Pid = 1880 */ variable }}}, /* MVDENTRY "Pid" Pid 3 FTHPID h 1888 */- {.type Here, {.p 1888 }}, /* 1888 0 */- {.type There, {.p 0 }}, /* 1888 0 */- {.type FromH0, {.p FTHPID }}, /* 1896 0 */- {.type Here, {.p 1896 }}, /* 1896 0 */- {.type There, {.p 0 }}, /* 1896 0 */- {.type Header, {.hdr { 4, "Parentpid", /* MV_Parentpid = 1912 */ variable }}}, /* MVDENTRY "Parentpid" Parentpid 4 FTHPARENTPID h 1920 */- {.type Here, {.p 1920 }}, /* 1920 0 */- {.type There, {.p 0 }}, /* 1920 0 */- {.type FromH0, {.p FTHPARENTPID }}, /* 1928 0 */- {.type Here, {.p 1928 }}, /* 1928 0 */- {.type There, {.p 0 }}, /* 1928 0 */-/* ; the below memory locations are left alone as zeros by the initializer */ {.type Here, {.p 1928 }}, /* 1928 0 */- {.type There, {.p 0 }}, /* 1928 0 */- {.type Header, {.hdr { 2, "S0", /* MV_S0 = 1944 */ variable }}}, /* MVDENTRY "S0" S0 2 PSTACK h 1952 */- {.type Here, {.p 1952 }}, /* 1952 0 */- {.type There, {.p 0 }}, /* 1952 0 */- {.type FromH0, {.p PSTACK }}, /* 1960 0 */- {.type Here, {.p 1960 }}, /* 1960 0 */- {.type There, {.p 0 }}, /* 1960 0 */- {.type Header, {.hdr { 5, "Wordb", /* MV_Wordb = 1976 */ variable }}}, /* MVDENTRY "Wordb" Wordb 5 WORDB h 1984 */- {.type Here, {.p 1984 }}, /* 1984 0 */- {.type There, {.p 0 }}, /* 1984 0 */- {.type FromH0, {.p WORDB }}, /* 1992 0 */- {.type Here, {.p 1992 }}, /* 1992 0 */- {.type There, {.p 0 }}, /* 1992 0 */- {.type Header, {.hdr { 3, "Tib", /* MV_Tib = 2008 */ variable }}}, /* MVDENTRY "Tib" Tib 3 TIB h 2016 */- {.type Here, {.p 2016 }}, /* 2016 0 */- {.type There, {.p 0 }}, /* 2016 0 */- {.type FromH0, {.p TIB }}, /* 2024 0 */- {.type Here, {.p 2024 }}, /* 2024 0 */- {.type There, {.p 0 }}, /* 2024 0 */- {.type Header, {.hdr { 12, "Argsfilename", /* MV_Argsfilename = 2048 */ variable }}}, /* MVDENTRY "Argsfilename" Argsfilename 12 ARGSFILENAME ; counted string populated by forth starter from params h 2056 */- {.type Here, {.p 2056 }}, /* 2056 0 */- {.type There, {.p 0 }}, /* 2056 0 */- {.type FromH0, {.p ARGSFILENAME }}, /* 2064 0 */- {.type Here, {.p 2064 }}, /* 2064 0 */- {.type There, {.p 0 }}, /* 2064 0 */- {.type Here, {.p 2064 }}, /* 2064 0 */- {.type There, {.p 0 }}, /* 2064 0 */- {.type Header, {.hdr { 5, "Iobuf", /* MV_Iobuf = 2080 */ variable }}}, /* MVENTRY "Iobuf" Iobuf 5 ; the values are not being used from the definition. All are initialized to 0. h 2088 */- {.type Here, {.p 2088 }}, /* 2088 0 */- {.type There, {.p 0 }}, /* 2088 0 */- {.type FromV0, {.p 0 }}, /* 2096 0 */- {.type Here, {.p 2096 }}, /* 2096 8 */- {.type There, {.p 8 }}, /* 2096 8 */- {.type Header, {.hdr { 7, "Findadr", /* MV_Findadr = 2112 */ variable }}}, /* MVENTRY "Findadr" Findadr 7 h 2120 */- {.type Here, {.p 2120 }}, /* 2120 8 */- {.type There, {.p 8 }}, /* 2120 8 */- {.type FromV0, {.p 8 }}, /* 2128 8 */- {.type Here, {.p 2128 }}, /* 2128 16 */- {.type There, {.p 16 }}, /* 2128 16 */- {.type Header, {.hdr { 9, "Searchlen", /* MV_Searchlen = 2152 */ variable }}}, /* MVENTRY "Searchlen" Searchlen 9 h 2160 */- {.type Here, {.p 2160 }}, /* 2160 16 */- {.type There, {.p 16 }}, /* 2160 16 */- {.type FromV0, {.p 16 }}, /* 2168 16 */- {.type Here, {.p 2168 }}, /* 2168 24 */- {.type There, {.p 24 }}, /* 2168 24 */- {.type Header, {.hdr { 4, "Base", /* MV_Base = 2184 */ variable }}}, /* MVENTRY "Base" Base 4 h 2192 */- {.type Here, {.p 2192 }}, /* 2192 24 */- {.type There, {.p 24 }}, /* 2192 24 */- {.type FromV0, {.p 24 }}, /* 2200 24 */- {.type Here, {.p 2200 }}, /* 2200 32 */- {.type There, {.p 32 }}, /* 2200 32 */- {.type Header, {.hdr { 4, ">Num", /* MV_toNum = 2216 */ variable }}}, /* MVENTRY ">Num" toNum 4 h 2224 */- {.type Here, {.p 2224 }}, /* 2224 32 */- {.type There, {.p 32 }}, /* 2224 32 */- {.type FromV0, {.p 32 }}, /* 2232 32 */- {.type Here, {.p 2232 }}, /* 2232 40 */- {.type There, {.p 40 }}, /* 2232 40 */- {.type Header, {.hdr { 5, "State", /* MV_State = 2248 */ variable }}}, /* MVENTRY "State" State 5 h 2256 */- {.type Here, {.p 2256 }}, /* 2256 40 */- {.type There, {.p 40 }}, /* 2256 40 */- {.type FromV0, {.p 40 }}, /* 2264 40 */- {.type Here, {.p 2264 }}, /* 2264 48 */- {.type There, {.p 48 }}, /* 2264 48 */- {.type Header, {.hdr { 8, "Abortvec", /* MV_Abortvec = 2288 */ variable }}}, /* MVENTRY "Abortvec" Abortvec 8 ; not sure if these 3 can be constants instead? h 2296 */- {.type Here, {.p 2296 }}, /* 2296 48 */- {.type There, {.p 48 }}, /* 2296 48 */- {.type FromV0, {.p 48 }}, /* 2304 48 */- {.type Here, {.p 2304 }}, /* 2304 56 */- {.type There, {.p 56 }}, /* 2304 56 */- {.type Header, {.hdr { 4, "Infd", /* MV_Infd = 2320 */ variable }}}, /* MVENTRY "Infd" Infd 4 h 2328 */- {.type Here, {.p 2328 }}, /* 2328 56 */- {.type There, {.p 56 }}, /* 2328 56 */- {.type FromV0, {.p 56 }}, /* 2336 56 */- {.type Here, {.p 2336 }}, /* 2336 64 */- {.type There, {.p 64 }}, /* 2336 64 */- {.type Header, {.hdr { 5, "Outfd", /* MV_Outfd = 2352 */ variable }}}, /* MVENTRY "Outfd" Outfd 5 h 2360 */- {.type Here, {.p 2360 }}, /* 2360 64 */- {.type There, {.p 64 }}, /* 2360 64 */- {.type FromV0, {.p 64 }}, /* 2368 64 */- {.type Here, {.p 2368 }}, /* 2368 72 */- {.type There, {.p 72 }}, /* 2368 72 */- {.type Header, {.hdr { 5, "Errfd", /* MV_Errfd = 2384 */ variable }}}, /* MVENTRY "Errfd" Errfd 5 h 2392 */- {.type Here, {.p 2392 }}, /* 2392 72 */- {.type There, {.p 72 }}, /* 2392 72 */- {.type FromV0, {.p 72 }}, /* 2400 72 */- {.type Here, {.p 2400 }}, /* 2400 80 */- {.type There, {.p 80 }}, /* 2400 80 */- {.type Header, {.hdr { 3, "Eof", /* MV_Eof = 2416 */ variable }}}, /* MVENTRY "Eof" Eof 3 h 2424 */- {.type Here, {.p 2424 }}, /* 2424 80 */- {.type There, {.p 80 }}, /* 2424 80 */- {.type FromV0, {.p 80 }}, /* 2432 80 */- {.type Here, {.p 2432 }}, /* 2432 88 */- {.type There, {.p 88 }}, /* 2432 88 */- {.type Header, {.hdr { 7, "Ninputs", /* MV_Ninputs = 2448 */ variable }}}, /* MVENTRY "Ninputs" Ninputs 7 h 2456 */- {.type Here, {.p 2456 }}, /* 2456 88 */- {.type There, {.p 88 }}, /* 2456 88 */- {.type FromV0, {.p 88 }}, /* 2464 88 */- {.type Here, {.p 2464 }}, /* 2464 96 */- {.type There, {.p 96 }}, /* 2464 96 */- {.type Header, {.hdr { 2, "H0", /* MV_H0 = 2480 */ variable }}}, /* MVENTRY "H0" H0 2 ; here at startup h 2488 */- {.type Here, {.p 2488 }}, /* 2488 96 */- {.type There, {.p 96 }}, /* 2488 96 */- {.type FromV0, {.p 96 }}, /* 2496 96 */- {.type Here, {.p 2496 }}, /* 2496 104 */- {.type There, {.p 104 }}, /* 2496 104 */- {.type Here, {.p 2496 }}, /* 2496 104 */- {.type There, {.p 104 }}, /* 2496 104 */- {.type Header, {.hdr { 9, "Bufferfds", /* MV_Bufferfds = 2520 */ variable }}}, /* MVENTRY "Bufferfds" Bufferfds 9 16 h 2528 */- {.type Here, {.p 2528 }}, /* 2528 104 */- {.type There, {.p 104 }}, /* 2528 104 */- {.type FromV0, {.p 104 }}, /* 2536 104 */- {.type Here, {.p 2536 }}, /* 2536 232 */- {.type There, {.p 232 }}, /* 2536 232 */- {.type Header, {.hdr { 15, "Bufferfilenames", /* MV_Bufferfilenames = 2560 */ variable }}}, /* MVENTRY "Bufferfilenames" Bufferfilenames 15 16 ; counted string labels of the searchers populated by boot h 2568 */- {.type Here, {.p 2568 }}, /* 2568 232 */- {.type There, {.p 232 }}, /* 2568 232 */- {.type FromV0, {.p 232 }}, /* 2576 232 */- {.type Here, {.p 2576 }}, /* 2576 360 */- {.type There, {.p 360 }}, /* 2576 360 */- {.type Here, {.p 2576 }}, /* 2576 360 */- {.type There, {.p 360 }}, /* 2576 360 */- {.type Header, {.hdr { 5, "false", /* C_false = 2592 */ colon }}}, /* CENTRY "false" false 5 h 2600 */- {.type Here, {.p 2600 }}, /* 2600 360 */- {.type There, {.p 360 }}, /* 2600 360 */- {.type Here, {.p 2600 }}, /* 2600 360 */- {.type There, {.p 360 }}, /* 2600 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2608 */- {.type Here, {.p 2608 }}, /* 2608 360 */- {.type There, {.p 360 }}, /* 2608 360 */- {.type Absolute, {.p 0}}, /* dd 0 2616 */- {.type Here, {.p 2616 }}, /* 2616 360 */- {.type There, {.p 360 }}, /* 2616 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2624 */- {.type Here, {.p 2624 }}, /* 2624 360 */- {.type There, {.p 360 }}, /* 2624 360 */- {.type Header, {.hdr { 4, "true", /* C_true = 2640 */ colon }}}, /* CENTRY "true" true 4 h 2648 */- {.type Here, {.p 2648 }}, /* 2648 360 */- {.type There, {.p 360 }}, /* 2648 360 */- {.type Here, {.p 2648 }}, /* 2648 360 */- {.type There, {.p 360 }}, /* 2648 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2656 */- {.type Here, {.p 2656 }}, /* 2656 360 */- {.type There, {.p 360 }}, /* 2656 360 */- {.type Absolute, {.p -1}}, /* dd -1 2664 */- {.type Here, {.p 2664 }}, /* 2664 360 */- {.type There, {.p 360 }}, /* 2664 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2672 */- {.type Here, {.p 2672 }}, /* 2672 360 */- {.type There, {.p 360 }}, /* 2672 360 */- {.type Header, {.hdr { 2, "bl", /* C_bl = 2688 */ colon }}}, /* CENTRY "bl" bl 2 h 2696 */- {.type Here, {.p 2696 }}, /* 2696 360 */- {.type There, {.p 360 }}, /* 2696 360 */- {.type Here, {.p 2696 }}, /* 2696 360 */- {.type There, {.p 360 }}, /* 2696 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2704 */- {.type Here, {.p 2704 }}, /* 2704 360 */- {.type There, {.p 360 }}, /* 2704 360 */- {.type Absolute, {.p 32}}, /* dd 32 2712 */- {.type Here, {.p 2712 }}, /* 2712 360 */- {.type There, {.p 360 }}, /* 2712 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2720 */- {.type Here, {.p 2720 }}, /* 2720 360 */- {.type There, {.p 360 }}, /* 2720 360 */- {.type Header, {.hdr { 2, "on", /* C_on = 2736 */ colon }}}, /* CENTRY "on" on 2 ; ( a -- ) (G stores -1 at a ) h 2744 */- {.type Here, {.p 2744 }}, /* 2744 360 */- {.type There, {.p 360 }}, /* 2744 360 */- {.type Here, {.p 2744 }}, /* 2744 360 */- {.type There, {.p 360 }}, /* 2744 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2752 */- {.type Here, {.p 2752 }}, /* 2752 360 */- {.type There, {.p 360 }}, /* 2752 360 */- {.type Absolute, {.p -1}}, /* dd -1 2760 */- {.type Here, {.p 2760 }}, /* 2760 360 */- {.type There, {.p 360 }}, /* 2760 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2768 */- {.type Here, {.p 2768 }}, /* 2768 360 */- {.type There, {.p 360 }}, /* 2768 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 2776 */- {.type Here, {.p 2776 }}, /* 2776 360 */- {.type There, {.p 360 }}, /* 2776 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2784 */- {.type Here, {.p 2784 }}, /* 2784 360 */- {.type There, {.p 360 }}, /* 2784 360 */- {.type Header, {.hdr { 3, "off", /* C_off = 2800 */ colon }}}, /* CENTRY "off" off 3 ; ( a -- ) (G stores 0 at a ) h 2808 */- {.type Here, {.p 2808 }}, /* 2808 360 */- {.type There, {.p 360 }}, /* 2808 360 */- {.type Here, {.p 2808 }}, /* 2808 360 */- {.type There, {.p 360 }}, /* 2808 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2816 */- {.type Here, {.p 2816 }}, /* 2816 360 */- {.type There, {.p 360 }}, /* 2816 360 */- {.type Absolute, {.p 0}}, /* dd 0 2824 */- {.type Here, {.p 2824 }}, /* 2824 360 */- {.type There, {.p 360 }}, /* 2824 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2832 */- {.type Here, {.p 2832 }}, /* 2832 360 */- {.type There, {.p 360 }}, /* 2832 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 2840 */- {.type Here, {.p 2840 }}, /* 2840 360 */- {.type There, {.p 360 }}, /* 2840 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2848 */- {.type Here, {.p 2848 }}, /* 2848 360 */- {.type There, {.p 360 }}, /* 2848 360 */- {.type Header, {.hdr { 5, ">body", /* C_tobody = 2864 */ colon }}}, /* CENTRY ">body" tobody 5 h 2872 */- {.type Here, {.p 2872 }}, /* 2872 360 */- {.type There, {.p 360 }}, /* 2872 360 */- {.type Here, {.p 2872 }}, /* 2872 360 */- {.type There, {.p 360 }}, /* 2872 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2880 */- {.type Here, {.p 2880 }}, /* 2880 360 */- {.type There, {.p 360 }}, /* 2880 360 */- {.type Absolute, {.p 8}}, /* dd 8 2888 */- {.type Here, {.p 2888 }}, /* 2888 360 */- {.type There, {.p 360 }}, /* 2888 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2896 */- {.type Here, {.p 2896 }}, /* 2896 360 */- {.type There, {.p 360 }}, /* 2896 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2904 */- {.type Here, {.p 2904 }}, /* 2904 360 */- {.type There, {.p 360 }}, /* 2904 360 */- {.type Header, {.hdr { 7, "aligned", /* C_aligned = 2920 */ colon }}}, /* CENTRY "aligned" aligned 7 ; align a number to a multiple of 8 h 2928 */- {.type Here, {.p 2928 }}, /* 2928 360 */- {.type There, {.p 360 }}, /* 2928 360 */- {.type Here, {.p 2928 }}, /* 2928 360 */- {.type There, {.p 360 }}, /* 2928 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2936 */- {.type Here, {.p 2936 }}, /* 2936 360 */- {.type There, {.p 360 }}, /* 2936 360 */- {.type Absolute, {.p 7}}, /* dd 7 2944 */- {.type Here, {.p 2944 }}, /* 2944 360 */- {.type There, {.p 360 }}, /* 2944 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2952 */- {.type Here, {.p 2952 }}, /* 2952 360 */- {.type There, {.p 360 }}, /* 2952 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2960 */- {.type Here, {.p 2960 }}, /* 2960 360 */- {.type There, {.p 360 }}, /* 2960 360 */- {.type Absolute, {.p -8}}, /* dd -8 2968 */- {.type Here, {.p 2968 }}, /* 2968 360 */- {.type There, {.p 360 }}, /* 2968 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 2976 */- {.type Here, {.p 2976 }}, /* 2976 360 */- {.type There, {.p 360 }}, /* 2976 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2984 */- {.type Here, {.p 2984 }}, /* 2984 360 */- {.type There, {.p 360 }}, /* 2984 360 */- {.type Header, {.hdr { 5, "cells", /* C_cells = 3000 */ colon }}}, /* CENTRY "cells" cells 5 h 3008 */- {.type Here, {.p 3008 }}, /* 3008 360 */- {.type There, {.p 360 }}, /* 3008 360 */- {.type Here, {.p 3008 }}, /* 3008 360 */- {.type There, {.p 360 }}, /* 3008 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3016 */- {.type Here, {.p 3016 }}, /* 3016 360 */- {.type There, {.p 360 }}, /* 3016 360 */- {.type Absolute, {.p 3}}, /* dd 3 ; (index << 2) -> (index << 3) for amd64 3024 */- {.type Here, {.p 3024 }}, /* 3024 360 */- {.type There, {.p 360 }}, /* 3024 360 */- {.type FromDictionary, {.p M_lshift}, .src = "dd M_lshift"}, /* dd M_lshift 3032 */- {.type Here, {.p 3032 }}, /* 3032 360 */- {.type There, {.p 360 }}, /* 3032 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3040 */- {.type Here, {.p 3040 }}, /* 3040 360 */- {.type There, {.p 360 }}, /* 3040 360 */- {.type Header, {.hdr { 6, "cells+", /* C_cells_plus = 3056 */ colon }}}, /* CENTRY "cells+" cells_plus 6 ; ( n1 n2 -- n1+(n2*cellsize) ) h 3064 */- {.type Here, {.p 3064 }}, /* 3064 360 */- {.type There, {.p 360 }}, /* 3064 360 */- {.type Here, {.p 3064 }}, /* 3064 360 */- {.type There, {.p 360 }}, /* 3064 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 3072 */- {.type Here, {.p 3072 }}, /* 3072 360 */- {.type There, {.p 360 }}, /* 3072 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3080 */- {.type Here, {.p 3080 }}, /* 3080 360 */- {.type There, {.p 360 }}, /* 3080 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3088 */- {.type Here, {.p 3088 }}, /* 3088 360 */- {.type There, {.p 360 }}, /* 3088 360 */- {.type Header, {.hdr { 5, "cell+", /* C_cell_plus = 3104 */ colon }}}, /* CENTRY "cell+" cell_plus 5 h 3112 */- {.type Here, {.p 3112 }}, /* 3112 360 */- {.type There, {.p 360 }}, /* 3112 360 */- {.type Here, {.p 3112 }}, /* 3112 360 */- {.type There, {.p 360 }}, /* 3112 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3120 */- {.type Here, {.p 3120 }}, /* 3120 360 */- {.type There, {.p 360 }}, /* 3120 360 */- {.type Absolute, {.p 1}}, /* dd 1 3128 */- {.type Here, {.p 3128 }}, /* 3128 360 */- {.type There, {.p 360 }}, /* 3128 360 */- {.type FromDictionary, {.p C_cells_plus}, .src = "dd C_cells_plus"}, /* dd C_cells_plus 3136 */- {.type Here, {.p 3136 }}, /* 3136 360 */- {.type There, {.p 360 }}, /* 3136 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3144 */- {.type Here, {.p 3144 }}, /* 3144 360 */- {.type There, {.p 360 }}, /* 3144 360 */- {.type Here, {.p 3144 }}, /* 3144 360 */- {.type There, {.p 360 }}, /* 3144 360 */- {.type Header, {.hdr { 5, "depth", /* C_depth = 3160 */ colon }}}, /* CENTRY "depth" depth 5 h 3168 */- {.type Here, {.p 3168 }}, /* 3168 360 */- {.type There, {.p 360 }}, /* 3168 360 */- {.type Here, {.p 3168 }}, /* 3168 360 */- {.type There, {.p 360 }}, /* 3168 360 */- {.type FromDictionary, {.p MV_S0}, .src = "dd MV_S0"}, /* dd MV_S0 3176 */- {.type Here, {.p 3176 }}, /* 3176 360 */- {.type There, {.p 360 }}, /* 3176 360 */- {.type FromDictionary, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 3184 */- {.type Here, {.p 3184 }}, /* 3184 360 */- {.type There, {.p 360 }}, /* 3184 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 3192 */- {.type Here, {.p 3192 }}, /* 3192 360 */- {.type There, {.p 360 }}, /* 3192 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3200 */- {.type Here, {.p 3200 }}, /* 3200 360 */- {.type There, {.p 360 }}, /* 3200 360 */- {.type Absolute, {.p 3}}, /* dd 3 3208 */- {.type Here, {.p 3208 }}, /* 3208 360 */- {.type There, {.p 360 }}, /* 3208 360 */- {.type FromDictionary, {.p M_rshift}, .src = "dd M_rshift"}, /* dd M_rshift 3216 */- {.type Here, {.p 3216 }}, /* 3216 360 */- {.type There, {.p 360 }}, /* 3216 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3224 */- {.type Here, {.p 3224 }}, /* 3224 360 */- {.type There, {.p 360 }}, /* 3224 360 */- {.type Absolute, {.p 1}}, /* dd 1 3232 */- {.type Here, {.p 3232 }}, /* 3232 360 */- {.type There, {.p 360 }}, /* 3232 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 3240 */- {.type Here, {.p 3240 }}, /* 3240 360 */- {.type There, {.p 360 }}, /* 3240 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3248 */- {.type Here, {.p 3248 }}, /* 3248 360 */- {.type There, {.p 360 }}, /* 3248 360 */- {.type Header, {.hdr { 3, "nip", /* C_nip = 3264 */ colon }}}, /* CENTRY "nip" nip 3 h 3272 */- {.type Here, {.p 3272 }}, /* 3272 360 */- {.type There, {.p 360 }}, /* 3272 360 */- {.type Here, {.p 3272 }}, /* 3272 360 */- {.type There, {.p 360 }}, /* 3272 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3280 */- {.type Here, {.p 3280 }}, /* 3280 360 */- {.type There, {.p 360 }}, /* 3280 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3288 */- {.type Here, {.p 3288 }}, /* 3288 360 */- {.type There, {.p 360 }}, /* 3288 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3296 */- {.type Here, {.p 3296 }}, /* 3296 360 */- {.type There, {.p 360 }}, /* 3296 360 */- {.type Header, {.hdr { 3, "rot", /* C_rot = 3312 */ colon }}}, /* CENTRY "rot" rot 3 h 3320 */- {.type Here, {.p 3320 }}, /* 3320 360 */- {.type There, {.p 360 }}, /* 3320 360 */- {.type Here, {.p 3320 }}, /* 3320 360 */- {.type There, {.p 360 }}, /* 3320 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3328 */- {.type Here, {.p 3328 }}, /* 3328 360 */- {.type There, {.p 360 }}, /* 3328 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3336 */- {.type Here, {.p 3336 }}, /* 3336 360 */- {.type There, {.p 360 }}, /* 3336 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3344 */- {.type Here, {.p 3344 }}, /* 3344 360 */- {.type There, {.p 360 }}, /* 3344 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3352 */- {.type Here, {.p 3352 }}, /* 3352 360 */- {.type There, {.p 360 }}, /* 3352 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3360 */- {.type Here, {.p 3360 }}, /* 3360 360 */- {.type There, {.p 360 }}, /* 3360 360 */- {.type Header, {.hdr { 5, "2drop", /* C_2drop = 3376 */ colon }}}, /* CENTRY "2drop" 2drop 5 h 3384 */- {.type Here, {.p 3384 }}, /* 3384 360 */- {.type There, {.p 360 }}, /* 3384 360 */- {.type Here, {.p 3384 }}, /* 3384 360 */- {.type There, {.p 360 }}, /* 3384 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3392 */- {.type Here, {.p 3392 }}, /* 3392 360 */- {.type There, {.p 360 }}, /* 3392 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3400 */- {.type Here, {.p 3400 }}, /* 3400 360 */- {.type There, {.p 360 }}, /* 3400 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3408 */- {.type Here, {.p 3408 }}, /* 3408 360 */- {.type There, {.p 360 }}, /* 3408 360 */- {.type Header, {.hdr { 4, "2dup", /* C_2dup = 3424 */ colon }}}, /* CENTRY "2dup" 2dup 4 h 3432 */- {.type Here, {.p 3432 }}, /* 3432 360 */- {.type There, {.p 360 }}, /* 3432 360 */- {.type Here, {.p 3432 }}, /* 3432 360 */- {.type There, {.p 360 }}, /* 3432 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 3440 */- {.type Here, {.p 3440 }}, /* 3440 360 */- {.type There, {.p 360 }}, /* 3440 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 3448 */- {.type Here, {.p 3448 }}, /* 3448 360 */- {.type There, {.p 360 }}, /* 3448 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3456 */- {.type Here, {.p 3456 }}, /* 3456 360 */- {.type There, {.p 360 }}, /* 3456 360 */- {.type Header, {.hdr { 4, "2nip", /* C_2nip = 3472 */ colon }}}, /* CENTRY "2nip" 2nip 4 h 3480 */- {.type Here, {.p 3480 }}, /* 3480 360 */- {.type There, {.p 360 }}, /* 3480 360 */- {.type Here, {.p 3480 }}, /* 3480 360 */- {.type There, {.p 360 }}, /* 3480 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3488 */- {.type Here, {.p 3488 }}, /* 3488 360 */- {.type There, {.p 360 }}, /* 3488 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3496 */- {.type Here, {.p 3496 }}, /* 3496 360 */- {.type There, {.p 360 }}, /* 3496 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3504 */- {.type Here, {.p 3504 }}, /* 3504 360 */- {.type There, {.p 360 }}, /* 3504 360 */- {.type Header, {.hdr { 5, "2swap", /* C_2swap = 3520 */ colon }}}, /* CENTRY "2swap" 2swap 5 h 3528 */- {.type Here, {.p 3528 }}, /* 3528 360 */- {.type There, {.p 360 }}, /* 3528 360 */- {.type Here, {.p 3528 }}, /* 3528 360 */- {.type There, {.p 360 }}, /* 3528 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3536 */- {.type Here, {.p 3536 }}, /* 3536 360 */- {.type There, {.p 360 }}, /* 3536 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3544 */- {.type Here, {.p 3544 }}, /* 3544 360 */- {.type There, {.p 360 }}, /* 3544 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3552 */- {.type Here, {.p 3552 }}, /* 3552 360 */- {.type There, {.p 360 }}, /* 3552 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3560 */- {.type Here, {.p 3560 }}, /* 3560 360 */- {.type There, {.p 360 }}, /* 3560 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3568 */- {.type Here, {.p 3568 }}, /* 3568 360 */- {.type There, {.p 360 }}, /* 3568 360 */- {.type Header, {.hdr { 4, "?dup", /* C_qdup = 3584 */ colon }}}, /* CENTRY "?dup" qdup 4 ; if (n != 0) ( n -- n n) else ( n -- n ) h 3592 */- {.type Here, {.p 3592 }}, /* 3592 360 */- {.type There, {.p 360 }}, /* 3592 360 */- {.type Here, {.p 3592 }}, /* 3592 360 */- {.type There, {.p 360 }}, /* 3592 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 3600 */- {.type Here, {.p 3600 }}, /* 3600 360 */- {.type There, {.p 360 }}, /* 3600 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( n n -- n n n )"}, /* dd M_dup ; ( n n -- n n n ) 3608 */- {.type Here, {.p 3608 }}, /* 3608 360 */- {.type There, {.p 360 }}, /* 3608 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3616 */- {.type Here, {.p 3616 }}, /* 3616 360 */- {.type There, {.p 360 }}, /* 3616 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( n n n -- n n n 0 ) 3624 */- {.type Here, {.p 3624 }}, /* 3624 360 */- {.type There, {.p 360 }}, /* 3624 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal ; ( n n n 0 -- n n f )"}, /* dd M_equal ; ( n n n 0 -- n n f ) 3632 */- {.type Here, {.p 3632 }}, /* 3632 360 */- {.type There, {.p 360 }}, /* 3632 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump ; ( n n f -- n n )"}, /* dd M_cjump ; ( n n f -- n n ) 3640 */- {.type Here, {.p 3640 }}, /* 3640 360 */- {.type There, {.p 360 }}, /* 3640 360 */- {.type FromDictionary, {.p L_C_qdup}, .src = "dd L_C_qdup ; when n != 0, go to L20"}, /* dd L_C_qdup ; when n != 0, go to L20 3648 */- {.type Here, {.p 3648 }}, /* 3648 360 */- {.type There, {.p 360 }}, /* 3648 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; when n == 0 ( n n -- n)"}, /* dd M_drop ; when n == 0 ( n n -- n) 3656 */- {.type Here, {.p 3656 }}, /* 3656 360 */- {.type There, {.p 360 }}, /* 3656 360 */- {.type Here, {.p 3656 }}, /* 3656 360 */- {.type There, {.p 360 }}, /* 3656 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3664 */- {.type Here, {.p 3664 }}, /* 3664 360 */- {.type There, {.p 360 }}, /* 3664 360 */- {.type Here, {.p 3664 }}, /* 3664 360 */- {.type There, {.p 360 }}, /* 3664 360 */- {.type Header, {.hdr { 4, "pick", /* C_pick = 3680 */ colon }}}, /* CENTRY "pick" pick 4 h 3688 */- {.type Here, {.p 3688 }}, /* 3688 360 */- {.type There, {.p 360 }}, /* 3688 360 */- {.type Here, {.p 3688 }}, /* 3688 360 */- {.type There, {.p 360 }}, /* 3688 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 3696 */- {.type Here, {.p 3696 }}, /* 3696 360 */- {.type There, {.p 360 }}, /* 3696 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 3704 */- {.type Here, {.p 3704 }}, /* 3704 360 */- {.type There, {.p 360 }}, /* 3704 360 */- {.type FromDictionary, {.p L_C_pick}, .src = "dd L_C_pick"}, /* dd L_C_pick 3712 */- {.type Here, {.p 3712 }}, /* 3712 360 */- {.type There, {.p 360 }}, /* 3712 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3720 */- {.type Here, {.p 3720 }}, /* 3720 360 */- {.type There, {.p 360 }}, /* 3720 360 */- {.type Absolute, {.p 1}}, /* dd 1 3728 */- {.type Here, {.p 3728 }}, /* 3728 360 */- {.type There, {.p 360 }}, /* 3728 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3736 */- {.type Here, {.p 3736 }}, /* 3736 360 */- {.type There, {.p 360 }}, /* 3736 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 3744 */- {.type Here, {.p 3744 }}, /* 3744 360 */- {.type There, {.p 360 }}, /* 3744 360 */- {.type FromDictionary, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 3752 */- {.type Here, {.p 3752 }}, /* 3752 360 */- {.type There, {.p 360 }}, /* 3752 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3760 */- {.type Here, {.p 3760 }}, /* 3760 360 */- {.type There, {.p 360 }}, /* 3760 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 3768 */- {.type Here, {.p 3768 }}, /* 3768 360 */- {.type There, {.p 360 }}, /* 3768 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 3776 */- {.type Here, {.p 3776 }}, /* 3776 360 */- {.type There, {.p 360 }}, /* 3776 360 */- {.type FromDictionary, {.p L_C_pick_1}, .src = "dd L_C_pick_1"}, /* dd L_C_pick_1 3784 */- {.type Here, {.p 3784 }}, /* 3784 360 */- {.type There, {.p 360 }}, /* 3784 360 */- {.type Here, {.p 3784 }}, /* 3784 360 */- {.type There, {.p 360 }}, /* 3784 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3792 */- {.type Here, {.p 3792 }}, /* 3792 360 */- {.type There, {.p 360 }}, /* 3792 360 */- {.type Here, {.p 3792 }}, /* 3792 360 */- {.type There, {.p 360 }}, /* 3792 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3800 */- {.type Here, {.p 3800 }}, /* 3800 360 */- {.type There, {.p 360 }}, /* 3800 360 */- {.type Here, {.p 3800 }}, /* 3800 360 */- {.type There, {.p 360 }}, /* 3800 360 */- {.type Header, {.hdr { 4, "tuck", /* C_tuck = 3816 */ colon }}}, /* CENTRY "tuck" tuck 4 h 3824 */- {.type Here, {.p 3824 }}, /* 3824 360 */- {.type There, {.p 360 }}, /* 3824 360 */- {.type Here, {.p 3824 }}, /* 3824 360 */- {.type There, {.p 360 }}, /* 3824 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3832 */- {.type Here, {.p 3832 }}, /* 3832 360 */- {.type There, {.p 360 }}, /* 3832 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3840 */- {.type Here, {.p 3840 }}, /* 3840 360 */- {.type There, {.p 360 }}, /* 3840 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3848 */- {.type Here, {.p 3848 }}, /* 3848 360 */- {.type There, {.p 360 }}, /* 3848 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3856 */- {.type Here, {.p 3856 }}, /* 3856 360 */- {.type There, {.p 360 }}, /* 3856 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3864 */- {.type Here, {.p 3864 }}, /* 3864 360 */- {.type There, {.p 360 }}, /* 3864 360 */- {.type Header, {.hdr { 1, "/", /* C_divides = 3880 */ colon }}}, /* CENTRY "/" divides 1 h 3888 */- {.type Here, {.p 3888 }}, /* 3888 360 */- {.type There, {.p 360 }}, /* 3888 360 */- {.type Here, {.p 3888 }}, /* 3888 360 */- {.type There, {.p 360 }}, /* 3888 360 */- {.type FromDictionary, {.p M_slashmod}, .src = "dd M_slashmod"}, /* dd M_slashmod 3896 */- {.type Here, {.p 3896 }}, /* 3896 360 */- {.type There, {.p 360 }}, /* 3896 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3904 */- {.type Here, {.p 3904 }}, /* 3904 360 */- {.type There, {.p 360 }}, /* 3904 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3912 */- {.type Here, {.p 3912 }}, /* 3912 360 */- {.type There, {.p 360 }}, /* 3912 360 */- {.type Here, {.p 3912 }}, /* 3912 360 */- {.type There, {.p 360 }}, /* 3912 360 */- {.type Header, {.hdr { 2, "+!", /* C_plusstore = 3928 */ colon }}}, /* CENTRY "+!" plusstore 2 ; ( n 'a -- ) a@ = a@+n h 3936 */- {.type Here, {.p 3936 }}, /* 3936 360 */- {.type There, {.p 360 }}, /* 3936 360 */- {.type Here, {.p 3936 }}, /* 3936 360 */- {.type There, {.p 360 }}, /* 3936 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3944 */- {.type Here, {.p 3944 }}, /* 3944 360 */- {.type There, {.p 360 }}, /* 3944 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 3952 */- {.type Here, {.p 3952 }}, /* 3952 360 */- {.type There, {.p 360 }}, /* 3952 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3960 */- {.type Here, {.p 3960 }}, /* 3960 360 */- {.type There, {.p 360 }}, /* 3960 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3968 */- {.type Here, {.p 3968 }}, /* 3968 360 */- {.type There, {.p 360 }}, /* 3968 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3976 */- {.type Here, {.p 3976 }}, /* 3976 360 */- {.type There, {.p 360 }}, /* 3976 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 3984 */- {.type Here, {.p 3984 }}, /* 3984 360 */- {.type There, {.p 360 }}, /* 3984 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3992 */- {.type Here, {.p 3992 }}, /* 3992 360 */- {.type There, {.p 360 }}, /* 3992 360 */- {.type Here, {.p 3992 }}, /* 3992 360 */- {.type There, {.p 360 }}, /* 3992 360 */- {.type Header, {.hdr { 6, "invert", /* C_invert = 4008 */ colon }}}, /* CENTRY "invert" invert 6 h 4016 */- {.type Here, {.p 4016 }}, /* 4016 360 */- {.type There, {.p 360 }}, /* 4016 360 */- {.type Here, {.p 4016 }}, /* 4016 360 */- {.type There, {.p 360 }}, /* 4016 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4024 */- {.type Here, {.p 4024 }}, /* 4024 360 */- {.type There, {.p 360 }}, /* 4024 360 */- {.type Absolute, {.p -1}}, /* dd -1 4032 */- {.type Here, {.p 4032 }}, /* 4032 360 */- {.type There, {.p 360 }}, /* 4032 360 */- {.type FromDictionary, {.p M_binxor}, .src = "dd M_binxor"}, /* dd M_binxor 4040 */- {.type Here, {.p 4040 }}, /* 4040 360 */- {.type There, {.p 360 }}, /* 4040 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4048 */- {.type Here, {.p 4048 }}, /* 4048 360 */- {.type There, {.p 360 }}, /* 4048 360 */- {.type Header, {.hdr { 3, "mod", /* C_mod = 4064 */ colon }}}, /* CENTRY "mod" mod 3 h 4072 */- {.type Here, {.p 4072 }}, /* 4072 360 */- {.type There, {.p 360 }}, /* 4072 360 */- {.type Here, {.p 4072 }}, /* 4072 360 */- {.type There, {.p 360 }}, /* 4072 360 */- {.type FromDictionary, {.p M_slashmod}, .src = "dd M_slashmod"}, /* dd M_slashmod 4080 */- {.type Here, {.p 4080 }}, /* 4080 360 */- {.type There, {.p 360 }}, /* 4080 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4088 */- {.type Here, {.p 4088 }}, /* 4088 360 */- {.type There, {.p 360 }}, /* 4088 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4096 */- {.type Here, {.p 4096 }}, /* 4096 360 */- {.type There, {.p 360 }}, /* 4096 360 */- {.type Header, {.hdr { 2, "1+", /* C_1plus = 4112 */ colon }}}, /* CENTRY "1+" 1plus 2 h 4120 */- {.type Here, {.p 4120 }}, /* 4120 360 */- {.type There, {.p 360 }}, /* 4120 360 */- {.type Here, {.p 4120 }}, /* 4120 360 */- {.type There, {.p 360 }}, /* 4120 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4128 */- {.type Here, {.p 4128 }}, /* 4128 360 */- {.type There, {.p 360 }}, /* 4128 360 */- {.type Absolute, {.p 1}}, /* dd 1 4136 */- {.type Here, {.p 4136 }}, /* 4136 360 */- {.type There, {.p 360 }}, /* 4136 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 4144 */- {.type Here, {.p 4144 }}, /* 4144 360 */- {.type There, {.p 360 }}, /* 4144 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4152 */- {.type Here, {.p 4152 }}, /* 4152 360 */- {.type There, {.p 360 }}, /* 4152 360 */- {.type Header, {.hdr { 2, "1-", /* C_1minus = 4168 */ colon }}}, /* CENTRY "1-" 1minus 2 h 4176 */- {.type Here, {.p 4176 }}, /* 4176 360 */- {.type There, {.p 360 }}, /* 4176 360 */- {.type Here, {.p 4176 }}, /* 4176 360 */- {.type There, {.p 360 }}, /* 4176 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4184 */- {.type Here, {.p 4184 }}, /* 4184 360 */- {.type There, {.p 360 }}, /* 4184 360 */- {.type Absolute, {.p 1}}, /* dd 1 4192 */- {.type Here, {.p 4192 }}, /* 4192 360 */- {.type There, {.p 360 }}, /* 4192 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 4200 */- {.type Here, {.p 4200 }}, /* 4200 360 */- {.type There, {.p 360 }}, /* 4200 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4208 */- {.type Here, {.p 4208 }}, /* 4208 360 */- {.type There, {.p 360 }}, /* 4208 360 */- {.type Header, {.hdr { 6, "negate", /* C_negate = 4224 */ colon }}}, /* CENTRY "negate" negate 6 h 4232 */- {.type Here, {.p 4232 }}, /* 4232 360 */- {.type There, {.p 360 }}, /* 4232 360 */- {.type Here, {.p 4232 }}, /* 4232 360 */- {.type There, {.p 360 }}, /* 4232 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4240 */- {.type Here, {.p 4240 }}, /* 4240 360 */- {.type There, {.p 360 }}, /* 4240 360 */- {.type Absolute, {.p 0}}, /* dd 0 4248 */- {.type Here, {.p 4248 }}, /* 4248 360 */- {.type There, {.p 360 }}, /* 4248 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 4256 */- {.type Here, {.p 4256 }}, /* 4256 360 */- {.type There, {.p 360 }}, /* 4256 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 4264 */- {.type Here, {.p 4264 }}, /* 4264 360 */- {.type There, {.p 360 }}, /* 4264 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4272 */- {.type Here, {.p 4272 }}, /* 4272 360 */- {.type There, {.p 360 }}, /* 4272 360 */- {.type Header, {.hdr { 2, "2*", /* C_2multiplies = 4288 */ colon }}}, /* CENTRY "2*" 2multiplies 2 h 4296 */- {.type Here, {.p 4296 }}, /* 4296 360 */- {.type There, {.p 360 }}, /* 4296 360 */- {.type Here, {.p 4296 }}, /* 4296 360 */- {.type There, {.p 360 }}, /* 4296 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4304 */- {.type Here, {.p 4304 }}, /* 4304 360 */- {.type There, {.p 360 }}, /* 4304 360 */- {.type Absolute, {.p 1}}, /* dd 1 4312 */- {.type Here, {.p 4312 }}, /* 4312 360 */- {.type There, {.p 360 }}, /* 4312 360 */- {.type FromDictionary, {.p M_lshift}, .src = "dd M_lshift"}, /* dd M_lshift 4320 */- {.type Here, {.p 4320 }}, /* 4320 360 */- {.type There, {.p 360 }}, /* 4320 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4328 */- {.type Here, {.p 4328 }}, /* 4328 360 */- {.type There, {.p 360 }}, /* 4328 360 */- {.type Header, {.hdr { 2, "2/", /* C_2divides = 4344 */ colon }}}, /* CENTRY "2/" 2divides 2 h 4352 */- {.type Here, {.p 4352 }}, /* 4352 360 */- {.type There, {.p 360 }}, /* 4352 360 */- {.type Here, {.p 4352 }}, /* 4352 360 */- {.type There, {.p 360 }}, /* 4352 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4360 */- {.type Here, {.p 4360 }}, /* 4360 360 */- {.type There, {.p 360 }}, /* 4360 360 */- {.type Absolute, {.p 1}}, /* dd 1 4368 */- {.type Here, {.p 4368 }}, /* 4368 360 */- {.type There, {.p 360 }}, /* 4368 360 */- {.type FromDictionary, {.p M_rshifta}, .src = "dd M_rshifta"}, /* dd M_rshifta 4376 */- {.type Here, {.p 4376 }}, /* 4376 360 */- {.type There, {.p 360 }}, /* 4376 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4384 */- {.type Here, {.p 4384 }}, /* 4384 360 */- {.type There, {.p 360 }}, /* 4384 360 */- {.type Header, {.hdr { 2, "0=", /* C_0eq = 4400 */ colon }}}, /* CENTRY "0=" 0eq 2 h 4408 */- {.type Here, {.p 4408 }}, /* 4408 360 */- {.type There, {.p 360 }}, /* 4408 360 */- {.type Here, {.p 4408 }}, /* 4408 360 */- {.type There, {.p 360 }}, /* 4408 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4416 */- {.type Here, {.p 4416 }}, /* 4416 360 */- {.type There, {.p 360 }}, /* 4416 360 */- {.type Absolute, {.p 0}}, /* dd 0 4424 */- {.type Here, {.p 4424 }}, /* 4424 360 */- {.type There, {.p 360 }}, /* 4424 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 4432 */- {.type Here, {.p 4432 }}, /* 4432 360 */- {.type There, {.p 360 }}, /* 4432 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4440 */- {.type Here, {.p 4440 }}, /* 4440 360 */- {.type There, {.p 360 }}, /* 4440 360 */- {.type Header, {.hdr { 2, "0<", /* C_0lt = 4456 */ colon }}}, /* CENTRY "0<" 0lt 2 h 4464 */- {.type Here, {.p 4464 }}, /* 4464 360 */- {.type There, {.p 360 }}, /* 4464 360 */- {.type Here, {.p 4464 }}, /* 4464 360 */- {.type There, {.p 360 }}, /* 4464 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4472 */- {.type Here, {.p 4472 }}, /* 4472 360 */- {.type There, {.p 360 }}, /* 4472 360 */- {.type Absolute, {.p 0}}, /* dd 0 4480 */- {.type Here, {.p 4480 }}, /* 4480 360 */- {.type There, {.p 360 }}, /* 4480 360 */- {.type FromDictionary, {.p M_less}, .src = "dd M_less"}, /* dd M_less 4488 */- {.type Here, {.p 4488 }}, /* 4488 360 */- {.type There, {.p 360 }}, /* 4488 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4496 */- {.type Here, {.p 4496 }}, /* 4496 360 */- {.type There, {.p 360 }}, /* 4496 360 */- {.type Header, {.hdr { 2, "0>", /* C_0gt = 4512 */ colon }}}, /* CENTRY "0>" 0gt 2 h 4520 */- {.type Here, {.p 4520 }}, /* 4520 360 */- {.type There, {.p 360 }}, /* 4520 360 */- {.type Here, {.p 4520 }}, /* 4520 360 */- {.type There, {.p 360 }}, /* 4520 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4528 */- {.type Here, {.p 4528 }}, /* 4528 360 */- {.type There, {.p 360 }}, /* 4528 360 */- {.type Absolute, {.p 0}}, /* dd 0 4536 */- {.type Here, {.p 4536 }}, /* 4536 360 */- {.type There, {.p 360 }}, /* 4536 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4544 */- {.type Here, {.p 4544 }}, /* 4544 360 */- {.type There, {.p 360 }}, /* 4544 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4552 */- {.type Here, {.p 4552 }}, /* 4552 360 */- {.type There, {.p 360 }}, /* 4552 360 */- {.type Header, {.hdr { 2, "<>", /* C_neq = 4568 */ colon }}}, /* CENTRY "<>" neq 2 h 4576 */- {.type Here, {.p 4576 }}, /* 4576 360 */- {.type There, {.p 360 }}, /* 4576 360 */- {.type Here, {.p 4576 }}, /* 4576 360 */- {.type There, {.p 360 }}, /* 4576 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 4584 */- {.type Here, {.p 4584 }}, /* 4584 360 */- {.type There, {.p 360 }}, /* 4584 360 */- {.type FromDictionary, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 4592 */- {.type Here, {.p 4592 }}, /* 4592 360 */- {.type There, {.p 360 }}, /* 4592 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4600 */- {.type Here, {.p 4600 }}, /* 4600 360 */- {.type There, {.p 360 }}, /* 4600 360 */- {.type Header, {.hdr { 3, "0<>", /* C_0neq = 4616 */ colon }}}, /* CENTRY "0<>" 0neq 3 h 4624 */- {.type Here, {.p 4624 }}, /* 4624 360 */- {.type There, {.p 360 }}, /* 4624 360 */- {.type Here, {.p 4624 }}, /* 4624 360 */- {.type There, {.p 360 }}, /* 4624 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4632 */- {.type Here, {.p 4632 }}, /* 4632 360 */- {.type There, {.p 360 }}, /* 4632 360 */- {.type Absolute, {.p 0}}, /* dd 0 4640 */- {.type Here, {.p 4640 }}, /* 4640 360 */- {.type There, {.p 360 }}, /* 4640 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 4648 */- {.type Here, {.p 4648 }}, /* 4648 360 */- {.type There, {.p 360 }}, /* 4648 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4656 */- {.type Here, {.p 4656 }}, /* 4656 360 */- {.type There, {.p 360 }}, /* 4656 360 */- {.type Here, {.p 4656 }}, /* 4656 360 */- {.type There, {.p 360 }}, /* 4656 360 */- {.type Header, {.hdr { 3, "max", /* C_max = 4672 */ colon }}}, /* CENTRY "max" max 3 h 4680 */- {.type Here, {.p 4680 }}, /* 4680 360 */- {.type There, {.p 360 }}, /* 4680 360 */- {.type Here, {.p 4680 }}, /* 4680 360 */- {.type There, {.p 360 }}, /* 4680 360 */- {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 4688 */- {.type Here, {.p 4688 }}, /* 4688 360 */- {.type There, {.p 360 }}, /* 4688 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4696 */- {.type Here, {.p 4696 }}, /* 4696 360 */- {.type There, {.p 360 }}, /* 4696 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4704 */- {.type Here, {.p 4704 }}, /* 4704 360 */- {.type There, {.p 360 }}, /* 4704 360 */- {.type FromDictionary, {.p L_C_max}, .src = "dd L_C_max"}, /* dd L_C_max 4712 */- {.type Here, {.p 4712 }}, /* 4712 360 */- {.type There, {.p 360 }}, /* 4712 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4720 */- {.type Here, {.p 4720 }}, /* 4720 360 */- {.type There, {.p 360 }}, /* 4720 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4728 */- {.type Here, {.p 4728 }}, /* 4728 360 */- {.type There, {.p 360 }}, /* 4728 360 */- {.type FromDictionary, {.p L_C_max_1}, .src = "dd L_C_max_1"}, /* dd L_C_max_1 4736 */- {.type Here, {.p 4736 }}, /* 4736 360 */- {.type There, {.p 360 }}, /* 4736 360 */- {.type Here, {.p 4736 }}, /* 4736 360 */- {.type There, {.p 360 }}, /* 4736 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 4744 */- {.type Here, {.p 4744 }}, /* 4744 360 */- {.type There, {.p 360 }}, /* 4744 360 */- {.type Here, {.p 4744 }}, /* 4744 360 */- {.type There, {.p 360 }}, /* 4744 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4752 */- {.type Here, {.p 4752 }}, /* 4752 360 */- {.type There, {.p 360 }}, /* 4752 360 */- {.type Here, {.p 4752 }}, /* 4752 360 */- {.type There, {.p 360 }}, /* 4752 360 */- {.type Header, {.hdr { 3, "min", /* C_min = 4768 */ colon }}}, /* CENTRY "min" min 3 h 4776 */- {.type Here, {.p 4776 }}, /* 4776 360 */- {.type There, {.p 360 }}, /* 4776 360 */- {.type Here, {.p 4776 }}, /* 4776 360 */- {.type There, {.p 360 }}, /* 4776 360 */- {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 4784 */- {.type Here, {.p 4784 }}, /* 4784 360 */- {.type There, {.p 360 }}, /* 4784 360 */- {.type FromDictionary, {.p M_less}, .src = "dd M_less"}, /* dd M_less 4792 */- {.type Here, {.p 4792 }}, /* 4792 360 */- {.type There, {.p 360 }}, /* 4792 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4800 */- {.type Here, {.p 4800 }}, /* 4800 360 */- {.type There, {.p 360 }}, /* 4800 360 */- {.type FromDictionary, {.p L_C_min}, .src = "dd L_C_min"}, /* dd L_C_min 4808 */- {.type Here, {.p 4808 }}, /* 4808 360 */- {.type There, {.p 360 }}, /* 4808 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4816 */- {.type Here, {.p 4816 }}, /* 4816 360 */- {.type There, {.p 360 }}, /* 4816 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4824 */- {.type Here, {.p 4824 }}, /* 4824 360 */- {.type There, {.p 360 }}, /* 4824 360 */- {.type FromDictionary, {.p L_C_min_1}, .src = "dd L_C_min_1"}, /* dd L_C_min_1 4832 */- {.type Here, {.p 4832 }}, /* 4832 360 */- {.type There, {.p 360 }}, /* 4832 360 */- {.type Here, {.p 4832 }}, /* 4832 360 */- {.type There, {.p 360 }}, /* 4832 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 4840 */- {.type Here, {.p 4840 }}, /* 4840 360 */- {.type There, {.p 360 }}, /* 4840 360 */- {.type Here, {.p 4840 }}, /* 4840 360 */- {.type There, {.p 360 }}, /* 4840 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4848 */- {.type Here, {.p 4848 }}, /* 4848 360 */- {.type There, {.p 360 }}, /* 4848 360 */- {.type Here, {.p 4848 }}, /* 4848 360 */- {.type There, {.p 360 }}, /* 4848 360 */- {.type Header, {.hdr { 6, "signum", /* C_signum = 4864 */ colon }}}, /* CENTRY "signum" signum 6 h 4872 */- {.type Here, {.p 4872 }}, /* 4872 360 */- {.type There, {.p 360 }}, /* 4872 360 */- {.type Here, {.p 4872 }}, /* 4872 360 */- {.type There, {.p 360 }}, /* 4872 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 4880 */- {.type Here, {.p 4880 }}, /* 4880 360 */- {.type There, {.p 360 }}, /* 4880 360 */- {.type FromDictionary, {.p C_0gt}, .src = "dd C_0gt"}, /* dd C_0gt 4888 */- {.type Here, {.p 4888 }}, /* 4888 360 */- {.type There, {.p 360 }}, /* 4888 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4896 */- {.type Here, {.p 4896 }}, /* 4896 360 */- {.type There, {.p 360 }}, /* 4896 360 */- {.type FromDictionary, {.p L_C_signum}, .src = "dd L_C_signum"}, /* dd L_C_signum 4904 */- {.type Here, {.p 4904 }}, /* 4904 360 */- {.type There, {.p 360 }}, /* 4904 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4912 */- {.type Here, {.p 4912 }}, /* 4912 360 */- {.type There, {.p 360 }}, /* 4912 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4920 */- {.type Here, {.p 4920 }}, /* 4920 360 */- {.type There, {.p 360 }}, /* 4920 360 */- {.type Absolute, {.p 1}}, /* dd 1 4928 */- {.type Here, {.p 4928 }}, /* 4928 360 */- {.type There, {.p 360 }}, /* 4928 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4936 */- {.type Here, {.p 4936 }}, /* 4936 360 */- {.type There, {.p 360 }}, /* 4936 360 */- {.type FromDictionary, {.p L_C_signum_1}, .src = "dd L_C_signum_1"}, /* dd L_C_signum_1 4944 */- {.type Here, {.p 4944 }}, /* 4944 360 */- {.type There, {.p 360 }}, /* 4944 360 */- {.type Here, {.p 4944 }}, /* 4944 360 */- {.type There, {.p 360 }}, /* 4944 360 */- {.type FromDictionary, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 4952 */- {.type Here, {.p 4952 }}, /* 4952 360 */- {.type There, {.p 360 }}, /* 4952 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4960 */- {.type Here, {.p 4960 }}, /* 4960 360 */- {.type There, {.p 360 }}, /* 4960 360 */- {.type FromDictionary, {.p L_C_signum_2}, .src = "dd L_C_signum_2"}, /* dd L_C_signum_2 4968 */- {.type Here, {.p 4968 }}, /* 4968 360 */- {.type There, {.p 360 }}, /* 4968 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4976 */- {.type Here, {.p 4976 }}, /* 4976 360 */- {.type There, {.p 360 }}, /* 4976 360 */- {.type Absolute, {.p -1}}, /* dd -1 4984 */- {.type Here, {.p 4984 }}, /* 4984 360 */- {.type There, {.p 360 }}, /* 4984 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4992 */- {.type Here, {.p 4992 }}, /* 4992 360 */- {.type There, {.p 360 }}, /* 4992 360 */- {.type FromDictionary, {.p L_C_signum_3}, .src = "dd L_C_signum_3"}, /* dd L_C_signum_3 5000 */- {.type Here, {.p 5000 }}, /* 5000 360 */- {.type There, {.p 360 }}, /* 5000 360 */- {.type Here, {.p 5000 }}, /* 5000 360 */- {.type There, {.p 360 }}, /* 5000 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5008 */- {.type Here, {.p 5008 }}, /* 5008 360 */- {.type There, {.p 360 }}, /* 5008 360 */- {.type Absolute, {.p 0}}, /* dd 0 5016 */- {.type Here, {.p 5016 }}, /* 5016 360 */- {.type There, {.p 360 }}, /* 5016 360 */- {.type Here, {.p 5016 }}, /* 5016 360 */- {.type There, {.p 360 }}, /* 5016 360 */- {.type Here, {.p 5016 }}, /* 5016 360 */- {.type There, {.p 360 }}, /* 5016 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5024 */- {.type Here, {.p 5024 }}, /* 5024 360 */- {.type There, {.p 360 }}, /* 5024 360 */- {.type Here, {.p 5024 }}, /* 5024 360 */- {.type There, {.p 360 }}, /* 5024 360 */- {.type Header, {.hdr { 6, "within", /* C_within = 5040 */ colon }}}, /* CENTRY "within" within 6 h 5048 */- {.type Here, {.p 5048 }}, /* 5048 360 */- {.type There, {.p 360 }}, /* 5048 360 */- {.type Here, {.p 5048 }}, /* 5048 360 */- {.type There, {.p 360 }}, /* 5048 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 5056 */- {.type Here, {.p 5056 }}, /* 5056 360 */- {.type There, {.p 360 }}, /* 5056 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5064 */- {.type Here, {.p 5064 }}, /* 5064 360 */- {.type There, {.p 360 }}, /* 5064 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 5072 */- {.type Here, {.p 5072 }}, /* 5072 360 */- {.type There, {.p 360 }}, /* 5072 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 5080 */- {.type Here, {.p 5080 }}, /* 5080 360 */- {.type There, {.p 360 }}, /* 5080 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 5088 */- {.type Here, {.p 5088 }}, /* 5088 360 */- {.type There, {.p 360 }}, /* 5088 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5096 */- {.type Here, {.p 5096 }}, /* 5096 360 */- {.type There, {.p 360 }}, /* 5096 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 5104 */- {.type Here, {.p 5104 }}, /* 5104 360 */- {.type There, {.p 360 }}, /* 5104 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 5112 */- {.type Here, {.p 5112 }}, /* 5112 360 */- {.type There, {.p 360 }}, /* 5112 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 5120 */- {.type Here, {.p 5120 }}, /* 5120 360 */- {.type There, {.p 360 }}, /* 5120 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5128 */- {.type Here, {.p 5128 }}, /* 5128 360 */- {.type There, {.p 360 }}, /* 5128 360 */- {.type Header, {.hdr { 3, "abs", /* C_abs = 5144 */ colon }}}, /* CENTRY "abs" abs 3 h 5152 */- {.type Here, {.p 5152 }}, /* 5152 360 */- {.type There, {.p 360 }}, /* 5152 360 */- {.type Here, {.p 5152 }}, /* 5152 360 */- {.type There, {.p 360 }}, /* 5152 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 5160 */- {.type Here, {.p 5160 }}, /* 5160 360 */- {.type There, {.p 360 }}, /* 5160 360 */- {.type FromDictionary, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 5168 */- {.type Here, {.p 5168 }}, /* 5168 360 */- {.type There, {.p 360 }}, /* 5168 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 5176 */- {.type Here, {.p 5176 }}, /* 5176 360 */- {.type There, {.p 360 }}, /* 5176 360 */- {.type FromDictionary, {.p L_C_abs}, .src = "dd L_C_abs"}, /* dd L_C_abs 5184 */- {.type Here, {.p 5184 }}, /* 5184 360 */- {.type There, {.p 360 }}, /* 5184 360 */- {.type FromDictionary, {.p C_negate}, .src = "dd C_negate"}, /* dd C_negate 5192 */- {.type Here, {.p 5192 }}, /* 5192 360 */- {.type There, {.p 360 }}, /* 5192 360 */- {.type Here, {.p 5192 }}, /* 5192 360 */- {.type There, {.p 360 }}, /* 5192 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5200 */- {.type Here, {.p 5200 }}, /* 5200 360 */- {.type There, {.p 360 }}, /* 5200 360 */- {.type Here, {.p 5200 }}, /* 5200 360 */- {.type There, {.p 360 }}, /* 5200 360 */- {.type Header, {.hdr { 4, "emit", /* C_emit = 5216 */ colon }}}, /* CENTRY "emit" emit 4 ; ( character -- ) h 5224 */- {.type Here, {.p 5224 }}, /* 5224 360 */- {.type There, {.p 360 }}, /* 5224 360 */- {.type Here, {.p 5224 }}, /* 5224 360 */- {.type There, {.p 360 }}, /* 5224 360 */- {.type FromDictionary, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf address"}, /* dd MV_Iobuf ; variable iobuf address 5232 */- {.type Here, {.p 5232 }}, /* 5232 360 */- {.type There, {.p 360 }}, /* 5232 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; variable iobuf has character"}, /* dd M_cstore ; variable iobuf has character 5240 */- {.type Here, {.p 5240 }}, /* 5240 360 */- {.type There, {.p 360 }}, /* 5240 360 */- {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 5248 */- {.type Here, {.p 5248 }}, /* 5248 360 */- {.type There, {.p 360 }}, /* 5248 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; outfd"}, /* dd M_fetch ; outfd 5256 */- {.type Here, {.p 5256 }}, /* 5256 360 */- {.type There, {.p 360 }}, /* 5256 360 */- {.type FromDictionary, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf address"}, /* dd MV_Iobuf ; variable iobuf address 5264 */- {.type Here, {.p 5264 }}, /* 5264 360 */- {.type There, {.p 360 }}, /* 5264 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5272 */- {.type Here, {.p 5272 }}, /* 5272 360 */- {.type There, {.p 360 }}, /* 5272 360 */- {.type Absolute, {.p 1}}, /* dd 1 ; ( outfd iobuf 1 ) 5280 */- {.type Here, {.p 5280 }}, /* 5280 360 */- {.type There, {.p 360 }}, /* 5280 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite ; ( 1 iobuf outfd -- )"}, /* dd M_syswrite ; ( 1 iobuf outfd -- ) 5288 */- {.type Here, {.p 5288 }}, /* 5288 360 */- {.type There, {.p 360 }}, /* 5288 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 5296 */- {.type Here, {.p 5296 }}, /* 5296 360 */- {.type There, {.p 360 }}, /* 5296 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5304 */- {.type Here, {.p 5304 }}, /* 5304 360 */- {.type There, {.p 360 }}, /* 5304 360 */- {.type Here, {.p 5304 }}, /* 5304 360 */- {.type There, {.p 360 }}, /* 5304 360 */- {.type Header, {.hdr { 4, "type", /* C_type = 5320 */ colon }}}, /* CENTRY "type" type 4 ; ( addr n -- ) h 5328 */- {.type Here, {.p 5328 }}, /* 5328 360 */- {.type There, {.p 360 }}, /* 5328 360 */- {.type Here, {.p 5328 }}, /* 5328 360 */- {.type There, {.p 360 }}, /* 5328 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( addr ) (R n )"}, /* dd M_rpush ; ( addr ) (R n ) 5336 */- {.type Here, {.p 5336 }}, /* 5336 360 */- {.type There, {.p 360 }}, /* 5336 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( ) (R n addr )"}, /* dd M_rpush ; ( ) (R n addr ) 5344 */- {.type Here, {.p 5344 }}, /* 5344 360 */- {.type There, {.p 360 }}, /* 5344 360 */- {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 5352 */- {.type Here, {.p 5352 }}, /* 5352 360 */- {.type There, {.p 360 }}, /* 5352 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( outfd )"}, /* dd M_fetch ; ( outfd ) 5360 */- {.type Here, {.p 5360 }}, /* 5360 360 */- {.type There, {.p 360 }}, /* 5360 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( outfd addr ) (R n )"}, /* dd M_rpop ; ( outfd addr ) (R n ) 5368 */- {.type Here, {.p 5368 }}, /* 5368 360 */- {.type There, {.p 360 }}, /* 5368 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( outfd addr n ) (R )"}, /* dd M_rpop ; ( outfd addr n ) (R ) 5376 */- {.type Here, {.p 5376 }}, /* 5376 360 */- {.type There, {.p 360 }}, /* 5376 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite ; ( 1 addr n -- )"}, /* dd M_syswrite ; ( 1 addr n -- ) 5384 */- {.type Here, {.p 5384 }}, /* 5384 360 */- {.type There, {.p 360 }}, /* 5384 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 5392 */- {.type Here, {.p 5392 }}, /* 5392 360 */- {.type There, {.p 360 }}, /* 5392 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5400 */- {.type Here, {.p 5400 }}, /* 5400 360 */- {.type There, {.p 360 }}, /* 5400 360 */- {.type Here, {.p 5400 }}, /* 5400 360 */- {.type There, {.p 360 }}, /* 5400 360 */- {.type Header, {.hdr { 2, "cr", /* C_cr = 5416 */ colon }}}, /* CENTRY "cr" cr 2 h 5424 */- {.type Here, {.p 5424 }}, /* 5424 360 */- {.type There, {.p 360 }}, /* 5424 360 */- {.type Here, {.p 5424 }}, /* 5424 360 */- {.type There, {.p 360 }}, /* 5424 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5432 */- {.type Here, {.p 5432 }}, /* 5432 360 */- {.type There, {.p 360 }}, /* 5432 360 */- {.type Absolute, {.p 10}}, /* dd 10 ; ascii value of carriage return 5440 */- {.type Here, {.p 5440 }}, /* 5440 360 */- {.type There, {.p 360 }}, /* 5440 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; emit"}, /* dd C_emit ; emit 5448 */- {.type Here, {.p 5448 }}, /* 5448 360 */- {.type There, {.p 360 }}, /* 5448 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5456 */- {.type Here, {.p 5456 }}, /* 5456 360 */- {.type There, {.p 360 }}, /* 5456 360 */- {.type Here, {.p 5456 }}, /* 5456 360 */- {.type There, {.p 360 }}, /* 5456 360 */- {.type Header, {.hdr { 5, "space", /* C_space = 5472 */ colon }}}, /* CENTRY "space" space 5 h 5480 */- {.type Here, {.p 5480 }}, /* 5480 360 */- {.type There, {.p 360 }}, /* 5480 360 */- {.type Here, {.p 5480 }}, /* 5480 360 */- {.type There, {.p 360 }}, /* 5480 360 */- {.type FromDictionary, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 5488 */- {.type Here, {.p 5488 }}, /* 5488 360 */- {.type There, {.p 360 }}, /* 5488 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit"}, /* dd C_emit 5496 */- {.type Here, {.p 5496 }}, /* 5496 360 */- {.type There, {.p 360 }}, /* 5496 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5504 */- {.type Here, {.p 5504 }}, /* 5504 360 */- {.type There, {.p 360 }}, /* 5504 360 */- {.type Here, {.p 5504 }}, /* 5504 360 */- {.type There, {.p 360 }}, /* 5504 360 */- {.type Header, {.hdr { 5, "emits", /* C_emits = 5520 */ colon }}}, /* CENTRY "emits" emits 5 h 5528 */- {.type Here, {.p 5528 }}, /* 5528 360 */- {.type There, {.p 360 }}, /* 5528 360 */- {.type Here, {.p 5528 }}, /* 5528 360 */- {.type There, {.p 360 }}, /* 5528 360 */- {.type Here, {.p 5528 }}, /* 5528 360 */- {.type There, {.p 360 }}, /* 5528 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 5536 */- {.type Here, {.p 5536 }}, /* 5536 360 */- {.type There, {.p 360 }}, /* 5536 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 5544 */- {.type Here, {.p 5544 }}, /* 5544 360 */- {.type There, {.p 360 }}, /* 5544 360 */- {.type FromDictionary, {.p L_C_emits_1}, .src = "dd L_C_emits_1"}, /* dd L_C_emits_1 5552 */- {.type Here, {.p 5552 }}, /* 5552 360 */- {.type There, {.p 360 }}, /* 5552 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5560 */- {.type Here, {.p 5560 }}, /* 5560 360 */- {.type There, {.p 360 }}, /* 5560 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit"}, /* dd C_emit 5568 */- {.type Here, {.p 5568 }}, /* 5568 360 */- {.type There, {.p 360 }}, /* 5568 360 */- {.type FromDictionary, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 5576 */- {.type Here, {.p 5576 }}, /* 5576 360 */- {.type There, {.p 360 }}, /* 5576 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 5584 */- {.type Here, {.p 5584 }}, /* 5584 360 */- {.type There, {.p 360 }}, /* 5584 360 */- {.type FromDictionary, {.p L_C_emits}, .src = "dd L_C_emits"}, /* dd L_C_emits 5592 */- {.type Here, {.p 5592 }}, /* 5592 360 */- {.type There, {.p 360 }}, /* 5592 360 */- {.type Here, {.p 5592 }}, /* 5592 360 */- {.type There, {.p 360 }}, /* 5592 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 5600 */- {.type Here, {.p 5600 }}, /* 5600 360 */- {.type There, {.p 360 }}, /* 5600 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5608 */- {.type Here, {.p 5608 }}, /* 5608 360 */- {.type There, {.p 360 }}, /* 5608 360 */- {.type Here, {.p 5608 }}, /* 5608 360 */- {.type There, {.p 360 }}, /* 5608 360 */- {.type Header, {.hdr { 6, "spaces", /* C_spaces = 5624 */ colon }}}, /* CENTRY "spaces" spaces 6 h 5632 */- {.type Here, {.p 5632 }}, /* 5632 360 */- {.type There, {.p 360 }}, /* 5632 360 */- {.type Here, {.p 5632 }}, /* 5632 360 */- {.type There, {.p 360 }}, /* 5632 360 */- {.type FromDictionary, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 5640 */- {.type Here, {.p 5640 }}, /* 5640 360 */- {.type There, {.p 360 }}, /* 5640 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 5648 */- {.type Here, {.p 5648 }}, /* 5648 360 */- {.type There, {.p 360 }}, /* 5648 360 */- {.type FromDictionary, {.p C_emits}, .src = "dd C_emits"}, /* dd C_emits 5656 */- {.type Here, {.p 5656 }}, /* 5656 360 */- {.type There, {.p 360 }}, /* 5656 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5664 */- {.type Here, {.p 5664 }}, /* 5664 360 */- {.type There, {.p 360 }}, /* 5664 360 */- {.type Here, {.p 5664 }}, /* 5664 360 */- {.type There, {.p 360 }}, /* 5664 360 */- {.type Header, {.hdr { 5, "count", /* C_count = 5680 */ colon }}}, /* CENTRY "count" count 5 ; ( 'counted-string -- 'text count ) a = address of counted string ( a - a+1 a[0]) h 5688 */- {.type Here, {.p 5688 }}, /* 5688 360 */- {.type There, {.p 360 }}, /* 5688 360 */- {.type Here, {.p 5688 }}, /* 5688 360 */- {.type There, {.p 360 }}, /* 5688 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 5696 */- {.type Here, {.p 5696 }}, /* 5696 360 */- {.type There, {.p 360 }}, /* 5696 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 5704 */- {.type Here, {.p 5704 }}, /* 5704 360 */- {.type There, {.p 360 }}, /* 5704 360 */- {.type FromDictionary, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 5712 */- {.type Here, {.p 5712 }}, /* 5712 360 */- {.type There, {.p 360 }}, /* 5712 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5720 */- {.type Here, {.p 5720 }}, /* 5720 360 */- {.type There, {.p 360 }}, /* 5720 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5728 */- {.type Here, {.p 5728 }}, /* 5728 360 */- {.type There, {.p 360 }}, /* 5728 360 */- {.type Here, {.p 5728 }}, /* 5728 360 */- {.type There, {.p 360 }}, /* 5728 360 */- {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup ; debug show the word name to search"}, /* dd C_2dup ; debug show the word name to search 5736 */- {.type Here, {.p 5736 }}, /* 5736 360 */- {.type There, {.p 360 }}, /* 5736 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 5744 */- {.type Here, {.p 5744 }}, /* 5744 360 */- {.type There, {.p 360 }}, /* 5744 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 5752 */- {.type Here, {.p 5752 }}, /* 5752 360 */- {.type There, {.p 360 }}, /* 5752 360 */- {.type Here, {.p 5752 }}, /* 5752 360 */- {.type There, {.p 360 }}, /* 5752 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; debug show the dictionary entry"}, /* dd M_rpush ; debug show the dictionary entry 5760 */- {.type Here, {.p 5760 }}, /* 5760 360 */- {.type There, {.p 360 }}, /* 5760 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 5768 */- {.type Here, {.p 5768 }}, /* 5768 360 */- {.type There, {.p 360 }}, /* 5768 360 */- {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 5776 */- {.type Here, {.p 5776 }}, /* 5776 360 */- {.type There, {.p 360 }}, /* 5776 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 5784 */- {.type Here, {.p 5784 }}, /* 5784 360 */- {.type There, {.p 360 }}, /* 5784 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5792 */- {.type Here, {.p 5792 }}, /* 5792 360 */- {.type There, {.p 360 }}, /* 5792 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5800 */- {.type Here, {.p 5800 }}, /* 5800 360 */- {.type There, {.p 360 }}, /* 5800 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 5808 */- {.type Here, {.p 5808 }}, /* 5808 360 */- {.type There, {.p 360 }}, /* 5808 360 */- {.type Here, {.p 5808 }}, /* 5808 360 */- {.type There, {.p 360 }}, /* 5808 360 */- {.type Header, {.hdr { 7, "compare", /* C_compare = 5824 */ colon }}}, /* CENTRY "compare" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search h 5832 */- {.type Here, {.p 5832 }}, /* 5832 360 */- {.type There, {.p 360 }}, /* 5832 360 */- {.type Here, {.p 5832 }}, /* 5832 360 */- {.type There, {.p 360 }}, /* 5832 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 )"}, /* dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 ) 5840 */- {.type Here, {.p 5840 }}, /* 5840 360 */- {.type There, {.p 360 }}, /* 5840 360 */- {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 )"}, /* dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 ) 5848 */- {.type Here, {.p 5848 }}, /* 5848 360 */- {.type There, {.p 360 }}, /* 5848 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- )"}, /* dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- ) 5856 */- {.type Here, {.p 5856 }}, /* 5856 360 */- {.type There, {.p 360 }}, /* 5856 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- )"}, /* dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- ) 5864 */- {.type Here, {.p 5864 }}, /* 5864 360 */- {.type There, {.p 360 }}, /* 5864 360 */- {.type FromDictionary, {.p C_min}, .src = "dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- )"}, /* dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- ) 5872 */- {.type Here, {.p 5872 }}, /* 5872 360 */- {.type There, {.p 360 }}, /* 5872 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5880 */- {.type Here, {.p 5880 }}, /* 5880 360 */- {.type There, {.p 360 }}, /* 5880 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( -- a1 a2 nmin 0 ) (R n1 n2 -- ) 5888 */- {.type Here, {.p 5888 }}, /* 5888 360 */- {.type There, {.p 360 }}, /* 5888 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- )"}, /* dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- ) 5896 */- {.type Here, {.p 5896 }}, /* 5896 360 */- {.type There, {.p 360 }}, /* 5896 360 */- {.type Here, {.p 5896 }}, /* 5896 360 */- {.type There, {.p 360 }}, /* 5896 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5904 */- {.type Here, {.p 5904 }}, /* 5904 360 */- {.type There, {.p 360 }}, /* 5904 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 5912 */- {.type Here, {.p 5912 }}, /* 5912 360 */- {.type There, {.p 360 }}, /* 5912 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 5920 */- {.type Here, {.p 5920 }}, /* 5920 360 */- {.type There, {.p 360 }}, /* 5920 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5928 */- {.type Here, {.p 5928 }}, /* 5928 360 */- {.type There, {.p 360 }}, /* 5928 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5936 */- {.type Here, {.p 5936 }}, /* 5936 360 */- {.type There, {.p 360 }}, /* 5936 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 5944 */- {.type Here, {.p 5944 }}, /* 5944 360 */- {.type There, {.p 360 }}, /* 5944 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 5952 */- {.type Here, {.p 5952 }}, /* 5952 360 */- {.type There, {.p 360 }}, /* 5952 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5960 */- {.type Here, {.p 5960 }}, /* 5960 360 */- {.type There, {.p 360 }}, /* 5960 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 5968 */- {.type Here, {.p 5968 }}, /* 5968 360 */- {.type There, {.p 360 }}, /* 5968 360 */- {.type FromDictionary, {.p C_signum}, .src = "dd C_signum"}, /* dd C_signum 5976 */- {.type Here, {.p 5976 }}, /* 5976 360 */- {.type There, {.p 360 }}, /* 5976 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 5984 */- {.type Here, {.p 5984 }}, /* 5984 360 */- {.type There, {.p 360 }}, /* 5984 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 5992 */- {.type Here, {.p 5992 }}, /* 5992 360 */- {.type There, {.p 360 }}, /* 5992 360 */- {.type FromDictionary, {.p L_C_compare_1}, .src = "dd L_C_compare_1 ; matches"}, /* dd L_C_compare_1 ; matches 6000 */- {.type Here, {.p 6000 }}, /* 6000 360 */- {.type There, {.p 360 }}, /* 6000 360 */- {.type FromDictionary, {.p C_2nip}, .src = "dd C_2nip ; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- )"}, /* dd C_2nip ; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- ) 6008 */- {.type Here, {.p 6008 }}, /* 6008 360 */- {.type There, {.p 360 }}, /* 6008 360 */- {.type FromDictionary, {.p M_unloop}, .src = "dd M_unloop ; ( f -- f ) (R n1 n2 0 nmin -- n1 n2)"}, /* dd M_unloop ; ( f -- f ) (R n1 n2 0 nmin -- n1 n2) 6016 */- {.type Here, {.p 6016 }}, /* 6016 360 */- {.type There, {.p 360 }}, /* 6016 360 */- {.type FromDictionary, {.p M_unloop}, .src = "dd M_unloop ; ( f -- f ) (R n1 n2 -- )"}, /* dd M_unloop ; ( f -- f ) (R n1 n2 -- ) 6024 */- {.type Here, {.p 6024 }}, /* 6024 360 */- {.type There, {.p 360 }}, /* 6024 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6032 */- {.type Here, {.p 6032 }}, /* 6032 360 */- {.type There, {.p 360 }}, /* 6032 360 */- {.type Here, {.p 6032 }}, /* 6032 360 */- {.type There, {.p 360 }}, /* 6032 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6040 */- {.type Here, {.p 6040 }}, /* 6040 360 */- {.type There, {.p 360 }}, /* 6040 360 */- {.type FromDictionary, {.p L_C_compare}, .src = "dd L_C_compare"}, /* dd L_C_compare 6048 */- {.type Here, {.p 6048 }}, /* 6048 360 */- {.type There, {.p 360 }}, /* 6048 360 */- {.type FromDictionary, {.p C_2drop}, .src = "dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- )"}, /* dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- ) 6056 */- {.type Here, {.p 6056 }}, /* 6056 360 */- {.type There, {.p 360 }}, /* 6056 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 6064 */- {.type Here, {.p 6064 }}, /* 6064 360 */- {.type There, {.p 360 }}, /* 6064 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( n2 n1 -- ) (R -- )"}, /* dd M_rpop ; ( n2 n1 -- ) (R -- ) 6072 */- {.type Here, {.p 6072 }}, /* 6072 360 */- {.type There, {.p 360 }}, /* 6072 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( -- n1-n2 )"}, /* dd M_minus ; ( -- n1-n2 ) 6080 */- {.type Here, {.p 6080 }}, /* 6080 360 */- {.type There, {.p 360 }}, /* 6080 360 */- {.type FromDictionary, {.p C_signum}, .src = "dd C_signum"}, /* dd C_signum 6088 */- {.type Here, {.p 6088 }}, /* 6088 360 */- {.type There, {.p 360 }}, /* 6088 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6096 */- {.type Here, {.p 6096 }}, /* 6096 360 */- {.type There, {.p 360 }}, /* 6096 360 */- {.type Here, {.p 6096 }}, /* 6096 360 */- {.type There, {.p 360 }}, /* 6096 360 */- {.type Header, {.hdr { 5, "erase", /* C_erase = 6112 */ colon }}}, /* CENTRY "erase" erase 5 h 6120 */- {.type Here, {.p 6120 }}, /* 6120 360 */- {.type There, {.p 360 }}, /* 6120 360 */- {.type Here, {.p 6120 }}, /* 6120 360 */- {.type There, {.p 360 }}, /* 6120 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6128 */- {.type Here, {.p 6128 }}, /* 6128 360 */- {.type There, {.p 360 }}, /* 6128 360 */- {.type Absolute, {.p 0}}, /* dd 0 6136 */- {.type Here, {.p 6136 }}, /* 6136 360 */- {.type There, {.p 360 }}, /* 6136 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 6144 */- {.type Here, {.p 6144 }}, /* 6144 360 */- {.type There, {.p 360 }}, /* 6144 360 */- {.type Here, {.p 6144 }}, /* 6144 360 */- {.type There, {.p 360 }}, /* 6144 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6152 */- {.type Here, {.p 6152 }}, /* 6152 360 */- {.type There, {.p 360 }}, /* 6152 360 */- {.type Absolute, {.p 0}}, /* dd 0 6160 */- {.type Here, {.p 6160 }}, /* 6160 360 */- {.type There, {.p 360 }}, /* 6160 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6168 */- {.type Here, {.p 6168 }}, /* 6168 360 */- {.type There, {.p 360 }}, /* 6168 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6176 */- {.type Here, {.p 6176 }}, /* 6176 360 */- {.type There, {.p 360 }}, /* 6176 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 6184 */- {.type Here, {.p 6184 }}, /* 6184 360 */- {.type There, {.p 360 }}, /* 6184 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6192 */- {.type Here, {.p 6192 }}, /* 6192 360 */- {.type There, {.p 360 }}, /* 6192 360 */- {.type FromDictionary, {.p L_C_erase}, .src = "dd L_C_erase"}, /* dd L_C_erase 6200 */- {.type Here, {.p 6200 }}, /* 6200 360 */- {.type There, {.p 360 }}, /* 6200 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6208 */- {.type Here, {.p 6208 }}, /* 6208 360 */- {.type There, {.p 360 }}, /* 6208 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6216 */- {.type Here, {.p 6216 }}, /* 6216 360 */- {.type There, {.p 360 }}, /* 6216 360 */- {.type Here, {.p 6216 }}, /* 6216 360 */- {.type There, {.p 360 }}, /* 6216 360 */- {.type Header, {.hdr { 4, "fill", /* C_fill = 6232 */ colon }}}, /* CENTRY "fill" fill 4 h 6240 */- {.type Here, {.p 6240 }}, /* 6240 360 */- {.type There, {.p 360 }}, /* 6240 360 */- {.type Here, {.p 6240 }}, /* 6240 360 */- {.type There, {.p 360 }}, /* 6240 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6248 */- {.type Here, {.p 6248 }}, /* 6248 360 */- {.type There, {.p 360 }}, /* 6248 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6256 */- {.type Here, {.p 6256 }}, /* 6256 360 */- {.type There, {.p 360 }}, /* 6256 360 */- {.type Absolute, {.p 0}}, /* dd 0 6264 */- {.type Here, {.p 6264 }}, /* 6264 360 */- {.type There, {.p 360 }}, /* 6264 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 6272 */- {.type Here, {.p 6272 }}, /* 6272 360 */- {.type There, {.p 360 }}, /* 6272 360 */- {.type Here, {.p 6272 }}, /* 6272 360 */- {.type There, {.p 360 }}, /* 6272 360 */- {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 6280 */- {.type Here, {.p 6280 }}, /* 6280 360 */- {.type There, {.p 360 }}, /* 6280 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6288 */- {.type Here, {.p 6288 }}, /* 6288 360 */- {.type There, {.p 360 }}, /* 6288 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6296 */- {.type Here, {.p 6296 }}, /* 6296 360 */- {.type There, {.p 360 }}, /* 6296 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6304 */- {.type Here, {.p 6304 }}, /* 6304 360 */- {.type There, {.p 360 }}, /* 6304 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6312 */- {.type Here, {.p 6312 }}, /* 6312 360 */- {.type There, {.p 360 }}, /* 6312 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6320 */- {.type Here, {.p 6320 }}, /* 6320 360 */- {.type There, {.p 360 }}, /* 6320 360 */- {.type FromDictionary, {.p L_C_fill}, .src = "dd L_C_fill"}, /* dd L_C_fill 6328 */- {.type Here, {.p 6328 }}, /* 6328 360 */- {.type There, {.p 360 }}, /* 6328 360 */- {.type FromDictionary, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 6336 */- {.type Here, {.p 6336 }}, /* 6336 360 */- {.type There, {.p 360 }}, /* 6336 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6344 */- {.type Here, {.p 6344 }}, /* 6344 360 */- {.type There, {.p 360 }}, /* 6344 360 */- {.type Here, {.p 6344 }}, /* 6344 360 */- {.type There, {.p 360 }}, /* 6344 360 */- {.type Header, {.hdr { 5, "blank", /* C_blank = 6360 */ colon }}}, /* CENTRY "blank" blank 5 h 6368 */- {.type Here, {.p 6368 }}, /* 6368 360 */- {.type There, {.p 360 }}, /* 6368 360 */- {.type Here, {.p 6368 }}, /* 6368 360 */- {.type There, {.p 360 }}, /* 6368 360 */- {.type FromDictionary, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 6376 */- {.type Here, {.p 6376 }}, /* 6376 360 */- {.type There, {.p 360 }}, /* 6376 360 */- {.type FromDictionary, {.p C_fill}, .src = "dd C_fill"}, /* dd C_fill 6384 */- {.type Here, {.p 6384 }}, /* 6384 360 */- {.type There, {.p 360 }}, /* 6384 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6392 */- {.type Here, {.p 6392 }}, /* 6392 360 */- {.type There, {.p 360 }}, /* 6392 360 */- {.type Here, {.p 6392 }}, /* 6392 360 */- {.type There, {.p 360 }}, /* 6392 360 */- {.type Header, {.hdr { 6, "search", /* C_search = 6408 */ colon }}}, /* CENTRY "search" search 6 h 6416 */- {.type Here, {.p 6416 }}, /* 6416 360 */- {.type There, {.p 360 }}, /* 6416 360 */- {.type Here, {.p 6416 }}, /* 6416 360 */- {.type There, {.p 360 }}, /* 6416 360 */- {.type FromDictionary, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6424 */- {.type Here, {.p 6424 }}, /* 6424 360 */- {.type There, {.p 360 }}, /* 6424 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 6432 */- {.type Here, {.p 6432 }}, /* 6432 360 */- {.type There, {.p 360 }}, /* 6432 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6440 */- {.type Here, {.p 6440 }}, /* 6440 360 */- {.type There, {.p 360 }}, /* 6440 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 6448 */- {.type Here, {.p 6448 }}, /* 6448 360 */- {.type There, {.p 360 }}, /* 6448 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 6456 */- {.type Here, {.p 6456 }}, /* 6456 360 */- {.type There, {.p 360 }}, /* 6456 360 */- {.type FromDictionary, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6464 */- {.type Here, {.p 6464 }}, /* 6464 360 */- {.type There, {.p 360 }}, /* 6464 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6472 */- {.type Here, {.p 6472 }}, /* 6472 360 */- {.type There, {.p 360 }}, /* 6472 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 6480 */- {.type Here, {.p 6480 }}, /* 6480 360 */- {.type There, {.p 360 }}, /* 6480 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 6488 */- {.type Here, {.p 6488 }}, /* 6488 360 */- {.type There, {.p 360 }}, /* 6488 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6496 */- {.type Here, {.p 6496 }}, /* 6496 360 */- {.type There, {.p 360 }}, /* 6496 360 */- {.type Absolute, {.p 0}}, /* dd 0 6504 */- {.type Here, {.p 6504 }}, /* 6504 360 */- {.type There, {.p 360 }}, /* 6504 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 6512 */- {.type Here, {.p 6512 }}, /* 6512 360 */- {.type There, {.p 360 }}, /* 6512 360 */- {.type Here, {.p 6512 }}, /* 6512 360 */- {.type There, {.p 360 }}, /* 6512 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6520 */- {.type Here, {.p 6520 }}, /* 6520 360 */- {.type There, {.p 360 }}, /* 6520 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6528 */- {.type Here, {.p 6528 }}, /* 6528 360 */- {.type There, {.p 360 }}, /* 6528 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6536 */- {.type Here, {.p 6536 }}, /* 6536 360 */- {.type There, {.p 360 }}, /* 6536 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6544 */- {.type Here, {.p 6544 }}, /* 6544 360 */- {.type There, {.p 360 }}, /* 6544 360 */- {.type FromDictionary, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6552 */- {.type Here, {.p 6552 }}, /* 6552 360 */- {.type There, {.p 360 }}, /* 6552 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6560 */- {.type Here, {.p 6560 }}, /* 6560 360 */- {.type There, {.p 360 }}, /* 6560 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6568 */- {.type Here, {.p 6568 }}, /* 6568 360 */- {.type There, {.p 360 }}, /* 6568 360 */- {.type FromDictionary, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6576 */- {.type Here, {.p 6576 }}, /* 6576 360 */- {.type There, {.p 360 }}, /* 6576 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6584 */- {.type Here, {.p 6584 }}, /* 6584 360 */- {.type There, {.p 360 }}, /* 6584 360 */- {.type FromDictionary, {.p C_compare}, .src = "dd C_compare"}, /* dd C_compare 6592 */- {.type Here, {.p 6592 }}, /* 6592 360 */- {.type There, {.p 360 }}, /* 6592 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 6600 */- {.type Here, {.p 6600 }}, /* 6600 360 */- {.type There, {.p 360 }}, /* 6600 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 6608 */- {.type Here, {.p 6608 }}, /* 6608 360 */- {.type There, {.p 360 }}, /* 6608 360 */- {.type FromDictionary, {.p L_C_search_1}, .src = "dd L_C_search_1"}, /* dd L_C_search_1 6616 */- {.type Here, {.p 6616 }}, /* 6616 360 */- {.type There, {.p 360 }}, /* 6616 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6624 */- {.type Here, {.p 6624 }}, /* 6624 360 */- {.type There, {.p 360 }}, /* 6624 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6632 */- {.type Here, {.p 6632 }}, /* 6632 360 */- {.type There, {.p 360 }}, /* 6632 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6640 */- {.type Here, {.p 6640 }}, /* 6640 360 */- {.type There, {.p 360 }}, /* 6640 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6648 */- {.type Here, {.p 6648 }}, /* 6648 360 */- {.type There, {.p 360 }}, /* 6648 360 */- {.type FromDictionary, {.p M_unloop}, .src = "dd M_unloop"}, /* dd M_unloop 6656 */- {.type Here, {.p 6656 }}, /* 6656 360 */- {.type There, {.p 360 }}, /* 6656 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 6664 */- {.type Here, {.p 6664 }}, /* 6664 360 */- {.type There, {.p 360 }}, /* 6664 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6672 */- {.type Here, {.p 6672 }}, /* 6672 360 */- {.type There, {.p 360 }}, /* 6672 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 6680 */- {.type Here, {.p 6680 }}, /* 6680 360 */- {.type There, {.p 360 }}, /* 6680 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true"}, /* dd C_true 6688 */- {.type Here, {.p 6688 }}, /* 6688 360 */- {.type There, {.p 360 }}, /* 6688 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6696 */- {.type Here, {.p 6696 }}, /* 6696 360 */- {.type There, {.p 360 }}, /* 6696 360 */- {.type Here, {.p 6696 }}, /* 6696 360 */- {.type There, {.p 360 }}, /* 6696 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6704 */- {.type Here, {.p 6704 }}, /* 6704 360 */- {.type There, {.p 360 }}, /* 6704 360 */- {.type FromDictionary, {.p L_C_search}, .src = "dd L_C_search"}, /* dd L_C_search 6712 */- {.type Here, {.p 6712 }}, /* 6712 360 */- {.type There, {.p 360 }}, /* 6712 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6720 */- {.type Here, {.p 6720 }}, /* 6720 360 */- {.type There, {.p 360 }}, /* 6720 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 6728 */- {.type Here, {.p 6728 }}, /* 6728 360 */- {.type There, {.p 360 }}, /* 6728 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 6736 */- {.type Here, {.p 6736 }}, /* 6736 360 */- {.type There, {.p 360 }}, /* 6736 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6744 */- {.type Here, {.p 6744 }}, /* 6744 360 */- {.type There, {.p 360 }}, /* 6744 360 */- {.type Here, {.p 6744 }}, /* 6744 360 */- {.type There, {.p 360 }}, /* 6744 360 */- {.type Header, {.hdr { 4, "here", /* C_here = 6760 */ colon }}}, /* CENTRY "here" here 4 h 6768 */- {.type Here, {.p 6768 }}, /* 6768 360 */- {.type There, {.p 360 }}, /* 6768 360 */- {.type Here, {.p 6768 }}, /* 6768 360 */- {.type There, {.p 360 }}, /* 6768 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp ; the address on the top of stack is 0x583288, which is correct"}, /* dd MV_Dp ; the address on the top of stack is 0x583288, which is correct 6776 */- {.type Here, {.p 6776 }}, /* 6776 360 */- {.type There, {.p 360 }}, /* 6776 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6784 */- {.type Here, {.p 6784 }}, /* 6784 360 */- {.type There, {.p 360 }}, /* 6784 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6792 */- {.type Here, {.p 6792 }}, /* 6792 360 */- {.type There, {.p 360 }}, /* 6792 360 */- {.type Here, {.p 6792 }}, /* 6792 360 */- {.type There, {.p 360 }}, /* 6792 360 */- {.type Header, {.hdr { 5, "there", /* C_there = 6808 */ colon }}}, /* CENTRY "there" there 5 ; variable here h 6816 */- {.type Here, {.p 6816 }}, /* 6816 360 */- {.type There, {.p 360 }}, /* 6816 360 */- {.type Here, {.p 6816 }}, /* 6816 360 */- {.type There, {.p 360 }}, /* 6816 360 */- {.type FromDictionary, {.p MV_Vp}, .src = "dd MV_Vp"}, /* dd MV_Vp 6824 */- {.type Here, {.p 6824 }}, /* 6824 360 */- {.type There, {.p 360 }}, /* 6824 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6832 */- {.type Here, {.p 6832 }}, /* 6832 360 */- {.type There, {.p 360 }}, /* 6832 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6840 */- {.type Here, {.p 6840 }}, /* 6840 360 */- {.type There, {.p 360 }}, /* 6840 360 */- {.type Here, {.p 6840 }}, /* 6840 360 */- {.type There, {.p 360 }}, /* 6840 360 */- {.type Header, {.hdr { 1, ",", /* C_comma = 6856 */ colon }}}, /* CENTRY "," comma 1 h 6864 */- {.type Here, {.p 6864 }}, /* 6864 360 */- {.type There, {.p 360 }}, /* 6864 360 */- {.type Here, {.p 6864 }}, /* 6864 360 */- {.type There, {.p 360 }}, /* 6864 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6872 */- {.type Here, {.p 6872 }}, /* 6872 360 */- {.type There, {.p 360 }}, /* 6872 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 6880 */- {.type Here, {.p 6880 }}, /* 6880 360 */- {.type There, {.p 360 }}, /* 6880 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6888 */- {.type Here, {.p 6888 }}, /* 6888 360 */- {.type There, {.p 360 }}, /* 6888 360 */- {.type Absolute, {.p 8}}, /* dd 8 6896 */- {.type Here, {.p 6896 }}, /* 6896 360 */- {.type There, {.p 360 }}, /* 6896 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 6904 */- {.type Here, {.p 6904 }}, /* 6904 360 */- {.type There, {.p 360 }}, /* 6904 360 */- {.type FromDictionary, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6912 */- {.type Here, {.p 6912 }}, /* 6912 360 */- {.type There, {.p 360 }}, /* 6912 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6920 */- {.type Here, {.p 6920 }}, /* 6920 360 */- {.type There, {.p 360 }}, /* 6920 360 */- {.type Here, {.p 6920 }}, /* 6920 360 */- {.type There, {.p 360 }}, /* 6920 360 */- {.type Header, {.hdr { 2, "c,", /* C_c = 6936 */ colon }}}, /* CENTRY "c," c 2 h 6944 */- {.type Here, {.p 6944 }}, /* 6944 360 */- {.type There, {.p 360 }}, /* 6944 360 */- {.type Here, {.p 6944 }}, /* 6944 360 */- {.type There, {.p 360 }}, /* 6944 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6952 */- {.type Here, {.p 6952 }}, /* 6952 360 */- {.type There, {.p 360 }}, /* 6952 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6960 */- {.type Here, {.p 6960 }}, /* 6960 360 */- {.type There, {.p 360 }}, /* 6960 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6968 */- {.type Here, {.p 6968 }}, /* 6968 360 */- {.type There, {.p 360 }}, /* 6968 360 */- {.type Absolute, {.p 1}}, /* dd 1 6976 */- {.type Here, {.p 6976 }}, /* 6976 360 */- {.type There, {.p 360 }}, /* 6976 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 6984 */- {.type Here, {.p 6984 }}, /* 6984 360 */- {.type There, {.p 360 }}, /* 6984 360 */- {.type FromDictionary, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6992 */- {.type Here, {.p 6992 }}, /* 6992 360 */- {.type There, {.p 360 }}, /* 6992 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7000 */- {.type Here, {.p 7000 }}, /* 7000 360 */- {.type There, {.p 360 }}, /* 7000 360 */- {.type Here, {.p 7000 }}, /* 7000 360 */- {.type There, {.p 360 }}, /* 7000 360 */- {.type Header, {.hdr { 5, "allot", /* C_allot = 7016 */ colon }}}, /* CENTRY "allot" allot 5 ; ( n -- ) here = here+n h 7024 */- {.type Here, {.p 7024 }}, /* 7024 360 */- {.type There, {.p 360 }}, /* 7024 360 */- {.type Here, {.p 7024 }}, /* 7024 360 */- {.type There, {.p 360 }}, /* 7024 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 7032 */- {.type Here, {.p 7032 }}, /* 7032 360 */- {.type There, {.p 360 }}, /* 7032 360 */- {.type FromDictionary, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 7040 */- {.type Here, {.p 7040 }}, /* 7040 360 */- {.type There, {.p 360 }}, /* 7040 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7048 */- {.type Here, {.p 7048 }}, /* 7048 360 */- {.type There, {.p 360 }}, /* 7048 360 */- {.type Here, {.p 7048 }}, /* 7048 360 */- {.type There, {.p 360 }}, /* 7048 360 */- {.type Header, {.hdr { 6, "vallot", /* C_vallot = 7064 */ colon }}}, /* CENTRY "vallot" vallot 6 ; allot on the variable space ( n -- ) there = there+n h 7072 */- {.type Here, {.p 7072 }}, /* 7072 360 */- {.type There, {.p 360 }}, /* 7072 360 */- {.type Here, {.p 7072 }}, /* 7072 360 */- {.type There, {.p 360 }}, /* 7072 360 */- {.type FromDictionary, {.p MV_Vp}, .src = "dd MV_Vp"}, /* dd MV_Vp 7080 */- {.type Here, {.p 7080 }}, /* 7080 360 */- {.type There, {.p 360 }}, /* 7080 360 */- {.type FromDictionary, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 7088 */- {.type Here, {.p 7088 }}, /* 7088 360 */- {.type There, {.p 360 }}, /* 7088 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7096 */- {.type Here, {.p 7096 }}, /* 7096 360 */- {.type There, {.p 360 }}, /* 7096 360 */- {.type Here, {.p 7096 }}, /* 7096 360 */- {.type There, {.p 360 }}, /* 7096 360 */- {.type Header, {.hdr { 3, "pad", /* C_pad = 7112 */ colon }}}, /* CENTRY "pad" pad 3 h 7120 */- {.type Here, {.p 7120 }}, /* 7120 360 */- {.type There, {.p 360 }}, /* 7120 360 */- {.type Here, {.p 7120 }}, /* 7120 360 */- {.type There, {.p 360 }}, /* 7120 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 7128 */- {.type Here, {.p 7128 }}, /* 7128 360 */- {.type There, {.p 360 }}, /* 7128 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7136 */- {.type Here, {.p 7136 }}, /* 7136 360 */- {.type There, {.p 360 }}, /* 7136 360 */- {.type Absolute, {.p 256}}, /* dd 256 7144 */- {.type Here, {.p 7144 }}, /* 7144 360 */- {.type There, {.p 360 }}, /* 7144 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7152 */- {.type Here, {.p 7152 }}, /* 7152 360 */- {.type There, {.p 360 }}, /* 7152 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7160 */- {.type Here, {.p 7160 }}, /* 7160 360 */- {.type There, {.p 360 }}, /* 7160 360 */- {.type Header, {.hdr { 5, "align", /* C_align = 7176 */ colon }}}, /* CENTRY "align" align 5 ; ( -- ) align here to a cell boundary h 7184 */- {.type Here, {.p 7184 }}, /* 7184 360 */- {.type There, {.p 360 }}, /* 7184 360 */- {.type Here, {.p 7184 }}, /* 7184 360 */- {.type There, {.p 360 }}, /* 7184 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; Dp @"}, /* dd C_here ; Dp @ 7192 */- {.type Here, {.p 7192 }}, /* 7192 360 */- {.type There, {.p 360 }}, /* 7192 360 */- {.type FromDictionary, {.p C_aligned}, .src = "dd C_aligned ; here is aligned to a multiple of 8"}, /* dd C_aligned ; here is aligned to a multiple of 8 7200 */- {.type Here, {.p 7200 }}, /* 7200 360 */- {.type There, {.p 360 }}, /* 7200 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp ; store the aligned here at Dp"}, /* dd MV_Dp ; store the aligned here at Dp 7208 */- {.type Here, {.p 7208 }}, /* 7208 360 */- {.type There, {.p 360 }}, /* 7208 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; Dp contains aligned_here"}, /* dd M_store ; Dp contains aligned_here 7216 */- {.type Here, {.p 7216 }}, /* 7216 360 */- {.type There, {.p 360 }}, /* 7216 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7224 */- {.type Here, {.p 7224 }}, /* 7224 360 */- {.type There, {.p 360 }}, /* 7224 360 */- {.type Header, {.hdr { 6, "unused", /* C_unused = 7240 */ colon }}}, /* CENTRY "unused" unused 6 h 7248 */- {.type Here, {.p 7248 }}, /* 7248 360 */- {.type There, {.p 360 }}, /* 7248 360 */- {.type Here, {.p 7248 }}, /* 7248 360 */- {.type There, {.p 360 }}, /* 7248 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 7256 */- {.type Here, {.p 7256 }}, /* 7256 360 */- {.type There, {.p 360 }}, /* 7256 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7264 */- {.type Here, {.p 7264 }}, /* 7264 360 */- {.type There, {.p 360 }}, /* 7264 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 7272 */- {.type Here, {.p 7272 }}, /* 7272 360 */- {.type There, {.p 360 }}, /* 7272 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7280 */- {.type Here, {.p 7280 }}, /* 7280 360 */- {.type There, {.p 360 }}, /* 7280 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7288 */- {.type Here, {.p 7288 }}, /* 7288 360 */- {.type There, {.p 360 }}, /* 7288 360 */- {.type Here, {.p 7288 }}, /* 7288 360 */- {.type There, {.p 360 }}, /* 7288 360 */- {.type Header, {.hdr { 2, "<#", /* C_fromhash = 7304 */ colon }}}, /* CENTRY "<#" fromhash 2 h 7312 */- {.type Here, {.p 7312 }}, /* 7312 360 */- {.type There, {.p 360 }}, /* 7312 360 */- {.type Here, {.p 7312 }}, /* 7312 360 */- {.type There, {.p 360 }}, /* 7312 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 7320 */- {.type Here, {.p 7320 }}, /* 7320 360 */- {.type There, {.p 360 }}, /* 7320 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7328 */- {.type Here, {.p 7328 }}, /* 7328 360 */- {.type There, {.p 360 }}, /* 7328 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 7336 */- {.type Here, {.p 7336 }}, /* 7336 360 */- {.type There, {.p 360 }}, /* 7336 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7344 */- {.type Here, {.p 7344 }}, /* 7344 360 */- {.type There, {.p 360 }}, /* 7344 360 */- {.type FromDictionary, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7352 */- {.type Here, {.p 7352 }}, /* 7352 360 */- {.type There, {.p 360 }}, /* 7352 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7360 */- {.type Here, {.p 7360 }}, /* 7360 360 */- {.type There, {.p 360 }}, /* 7360 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7368 */- {.type Here, {.p 7368 }}, /* 7368 360 */- {.type There, {.p 360 }}, /* 7368 360 */- {.type Here, {.p 7368 }}, /* 7368 360 */- {.type There, {.p 360 }}, /* 7368 360 */- {.type Header, {.hdr { 1, "#", /* C_hash = 7384 */ colon }}}, /* CENTRY "#" hash 1 h 7392 */- {.type Here, {.p 7392 }}, /* 7392 360 */- {.type There, {.p 360 }}, /* 7392 360 */- {.type Here, {.p 7392 }}, /* 7392 360 */- {.type There, {.p 360 }}, /* 7392 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 7400 */- {.type Here, {.p 7400 }}, /* 7400 360 */- {.type There, {.p 360 }}, /* 7400 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7408 */- {.type Here, {.p 7408 }}, /* 7408 360 */- {.type There, {.p 360 }}, /* 7408 360 */- {.type FromDictionary, {.p M_uslashmod}, .src = "dd M_uslashmod"}, /* dd M_uslashmod 7416 */- {.type Here, {.p 7416 }}, /* 7416 360 */- {.type There, {.p 360 }}, /* 7416 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 7424 */- {.type Here, {.p 7424 }}, /* 7424 360 */- {.type There, {.p 360 }}, /* 7424 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7432 */- {.type Here, {.p 7432 }}, /* 7432 360 */- {.type There, {.p 360 }}, /* 7432 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7440 */- {.type Here, {.p 7440 }}, /* 7440 360 */- {.type There, {.p 360 }}, /* 7440 360 */- {.type Absolute, {.p 9}}, /* dd 9 7448 */- {.type Here, {.p 7448 }}, /* 7448 360 */- {.type There, {.p 360 }}, /* 7448 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 7456 */- {.type Here, {.p 7456 }}, /* 7456 360 */- {.type There, {.p 360 }}, /* 7456 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7464 */- {.type Here, {.p 7464 }}, /* 7464 360 */- {.type There, {.p 360 }}, /* 7464 360 */- {.type FromDictionary, {.p L_C_hash}, .src = "dd L_C_hash"}, /* dd L_C_hash 7472 */- {.type Here, {.p 7472 }}, /* 7472 360 */- {.type There, {.p 360 }}, /* 7472 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7480 */- {.type Here, {.p 7480 }}, /* 7480 360 */- {.type There, {.p 360 }}, /* 7480 360 */- {.type Absolute, {.p 97}}, /* dd 97 7488 */- {.type Here, {.p 7488 }}, /* 7488 360 */- {.type There, {.p 360 }}, /* 7488 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7496 */- {.type Here, {.p 7496 }}, /* 7496 360 */- {.type There, {.p 360 }}, /* 7496 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7504 */- {.type Here, {.p 7504 }}, /* 7504 360 */- {.type There, {.p 360 }}, /* 7504 360 */- {.type Absolute, {.p 10}}, /* dd 10 7512 */- {.type Here, {.p 7512 }}, /* 7512 360 */- {.type There, {.p 360 }}, /* 7512 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7520 */- {.type Here, {.p 7520 }}, /* 7520 360 */- {.type There, {.p 360 }}, /* 7520 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 7528 */- {.type Here, {.p 7528 }}, /* 7528 360 */- {.type There, {.p 360 }}, /* 7528 360 */- {.type FromDictionary, {.p L_C_hash_1}, .src = "dd L_C_hash_1"}, /* dd L_C_hash_1 7536 */- {.type Here, {.p 7536 }}, /* 7536 360 */- {.type There, {.p 360 }}, /* 7536 360 */- {.type Here, {.p 7536 }}, /* 7536 360 */- {.type There, {.p 360 }}, /* 7536 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7544 */- {.type Here, {.p 7544 }}, /* 7544 360 */- {.type There, {.p 360 }}, /* 7544 360 */- {.type Absolute, {.p 48}}, /* dd 48 7552 */- {.type Here, {.p 7552 }}, /* 7552 360 */- {.type There, {.p 360 }}, /* 7552 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7560 */- {.type Here, {.p 7560 }}, /* 7560 360 */- {.type There, {.p 360 }}, /* 7560 360 */- {.type Here, {.p 7560 }}, /* 7560 360 */- {.type There, {.p 360 }}, /* 7560 360 */- {.type FromDictionary, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7568 */- {.type Here, {.p 7568 }}, /* 7568 360 */- {.type There, {.p 360 }}, /* 7568 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7576 */- {.type Here, {.p 7576 }}, /* 7576 360 */- {.type There, {.p 360 }}, /* 7576 360 */- {.type FromDictionary, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 7584 */- {.type Here, {.p 7584 }}, /* 7584 360 */- {.type There, {.p 360 }}, /* 7584 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7592 */- {.type Here, {.p 7592 }}, /* 7592 360 */- {.type There, {.p 360 }}, /* 7592 360 */- {.type FromDictionary, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7600 */- {.type Here, {.p 7600 }}, /* 7600 360 */- {.type There, {.p 360 }}, /* 7600 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7608 */- {.type Here, {.p 7608 }}, /* 7608 360 */- {.type There, {.p 360 }}, /* 7608 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 7616 */- {.type Here, {.p 7616 }}, /* 7616 360 */- {.type There, {.p 360 }}, /* 7616 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7624 */- {.type Here, {.p 7624 }}, /* 7624 360 */- {.type There, {.p 360 }}, /* 7624 360 */- {.type Here, {.p 7624 }}, /* 7624 360 */- {.type There, {.p 360 }}, /* 7624 360 */- {.type Header, {.hdr { 2, "#s", /* C_hashs = 7640 */ colon }}}, /* CENTRY "#s" hashs 2 h 7648 */- {.type Here, {.p 7648 }}, /* 7648 360 */- {.type There, {.p 360 }}, /* 7648 360 */- {.type Here, {.p 7648 }}, /* 7648 360 */- {.type There, {.p 360 }}, /* 7648 360 */- {.type Here, {.p 7648 }}, /* 7648 360 */- {.type There, {.p 360 }}, /* 7648 360 */- {.type FromDictionary, {.p C_hash}, .src = "dd C_hash"}, /* dd C_hash 7656 */- {.type Here, {.p 7656 }}, /* 7656 360 */- {.type There, {.p 360 }}, /* 7656 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7664 */- {.type Here, {.p 7664 }}, /* 7664 360 */- {.type There, {.p 360 }}, /* 7664 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7672 */- {.type Here, {.p 7672 }}, /* 7672 360 */- {.type There, {.p 360 }}, /* 7672 360 */- {.type FromDictionary, {.p L_C_hashs_1}, .src = "dd L_C_hashs_1"}, /* dd L_C_hashs_1 7680 */- {.type Here, {.p 7680 }}, /* 7680 360 */- {.type There, {.p 360 }}, /* 7680 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 7688 */- {.type Here, {.p 7688 }}, /* 7688 360 */- {.type There, {.p 360 }}, /* 7688 360 */- {.type FromDictionary, {.p L_C_hashs}, .src = "dd L_C_hashs"}, /* dd L_C_hashs 7696 */- {.type Here, {.p 7696 }}, /* 7696 360 */- {.type There, {.p 360 }}, /* 7696 360 */- {.type Here, {.p 7696 }}, /* 7696 360 */- {.type There, {.p 360 }}, /* 7696 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7704 */- {.type Here, {.p 7704 }}, /* 7704 360 */- {.type There, {.p 360 }}, /* 7704 360 */- {.type Here, {.p 7704 }}, /* 7704 360 */- {.type There, {.p 360 }}, /* 7704 360 */- {.type Header, {.hdr { 2, "#>", /* C_hashfrom = 7720 */ colon }}}, /* CENTRY "#>" hashfrom 2 h 7728 */- {.type Here, {.p 7728 }}, /* 7728 360 */- {.type There, {.p 360 }}, /* 7728 360 */- {.type Here, {.p 7728 }}, /* 7728 360 */- {.type There, {.p 360 }}, /* 7728 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 7736 */- {.type Here, {.p 7736 }}, /* 7736 360 */- {.type There, {.p 360 }}, /* 7736 360 */- {.type FromDictionary, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7744 */- {.type Here, {.p 7744 }}, /* 7744 360 */- {.type There, {.p 360 }}, /* 7744 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7752 */- {.type Here, {.p 7752 }}, /* 7752 360 */- {.type There, {.p 360 }}, /* 7752 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7760 */- {.type Here, {.p 7760 }}, /* 7760 360 */- {.type There, {.p 360 }}, /* 7760 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 7768 */- {.type Here, {.p 7768 }}, /* 7768 360 */- {.type There, {.p 360 }}, /* 7768 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7776 */- {.type Here, {.p 7776 }}, /* 7776 360 */- {.type There, {.p 360 }}, /* 7776 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 7784 */- {.type Here, {.p 7784 }}, /* 7784 360 */- {.type There, {.p 360 }}, /* 7784 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7792 */- {.type Here, {.p 7792 }}, /* 7792 360 */- {.type There, {.p 360 }}, /* 7792 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 7800 */- {.type Here, {.p 7800 }}, /* 7800 360 */- {.type There, {.p 360 }}, /* 7800 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7808 */- {.type Here, {.p 7808 }}, /* 7808 360 */- {.type There, {.p 360 }}, /* 7808 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7816 */- {.type Here, {.p 7816 }}, /* 7816 360 */- {.type There, {.p 360 }}, /* 7816 360 */- {.type Here, {.p 7816 }}, /* 7816 360 */- {.type There, {.p 360 }}, /* 7816 360 */- {.type Header, {.hdr { 4, "hold", /* C_hold = 7832 */ colon }}}, /* CENTRY "hold" hold 4 h 7840 */- {.type Here, {.p 7840 }}, /* 7840 360 */- {.type There, {.p 360 }}, /* 7840 360 */- {.type Here, {.p 7840 }}, /* 7840 360 */- {.type There, {.p 360 }}, /* 7840 360 */- {.type FromDictionary, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7848 */- {.type Here, {.p 7848 }}, /* 7848 360 */- {.type There, {.p 360 }}, /* 7848 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7856 */- {.type Here, {.p 7856 }}, /* 7856 360 */- {.type There, {.p 360 }}, /* 7856 360 */- {.type FromDictionary, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 7864 */- {.type Here, {.p 7864 }}, /* 7864 360 */- {.type There, {.p 360 }}, /* 7864 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7872 */- {.type Here, {.p 7872 }}, /* 7872 360 */- {.type There, {.p 360 }}, /* 7872 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 7880 */- {.type Here, {.p 7880 }}, /* 7880 360 */- {.type There, {.p 360 }}, /* 7880 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 7888 */- {.type Here, {.p 7888 }}, /* 7888 360 */- {.type There, {.p 360 }}, /* 7888 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 7896 */- {.type Here, {.p 7896 }}, /* 7896 360 */- {.type There, {.p 360 }}, /* 7896 360 */- {.type FromDictionary, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7904 */- {.type Here, {.p 7904 }}, /* 7904 360 */- {.type There, {.p 360 }}, /* 7904 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7912 */- {.type Here, {.p 7912 }}, /* 7912 360 */- {.type There, {.p 360 }}, /* 7912 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7920 */- {.type Here, {.p 7920 }}, /* 7920 360 */- {.type There, {.p 360 }}, /* 7920 360 */- {.type Here, {.p 7920 }}, /* 7920 360 */- {.type There, {.p 360 }}, /* 7920 360 */- {.type Header, {.hdr { 4, "sign", /* C_sign = 7936 */ colon }}}, /* CENTRY "sign" sign 4 h 7944 */- {.type Here, {.p 7944 }}, /* 7944 360 */- {.type There, {.p 360 }}, /* 7944 360 */- {.type Here, {.p 7944 }}, /* 7944 360 */- {.type There, {.p 360 }}, /* 7944 360 */- {.type FromDictionary, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 7952 */- {.type Here, {.p 7952 }}, /* 7952 360 */- {.type There, {.p 360 }}, /* 7952 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7960 */- {.type Here, {.p 7960 }}, /* 7960 360 */- {.type There, {.p 360 }}, /* 7960 360 */- {.type FromDictionary, {.p L_C_sign}, .src = "dd L_C_sign"}, /* dd L_C_sign 7968 */- {.type Here, {.p 7968 }}, /* 7968 360 */- {.type There, {.p 360 }}, /* 7968 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7976 */- {.type Here, {.p 7976 }}, /* 7976 360 */- {.type There, {.p 360 }}, /* 7976 360 */- {.type Absolute, {.p 45}}, /* dd 45 7984 */- {.type Here, {.p 7984 }}, /* 7984 360 */- {.type There, {.p 360 }}, /* 7984 360 */- {.type FromDictionary, {.p C_hold}, .src = "dd C_hold"}, /* dd C_hold 7992 */- {.type Here, {.p 7992 }}, /* 7992 360 */- {.type There, {.p 360 }}, /* 7992 360 */- {.type Here, {.p 7992 }}, /* 7992 360 */- {.type There, {.p 360 }}, /* 7992 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8000 */- {.type Here, {.p 8000 }}, /* 8000 360 */- {.type There, {.p 360 }}, /* 8000 360 */- {.type Here, {.p 8000 }}, /* 8000 360 */- {.type There, {.p 360 }}, /* 8000 360 */- {.type Header, {.hdr { 4, "c(.)", /* C_counted_paren_dot_paren = 8016 */ colon }}}, /* CENTRY "c(.)" counted_paren_dot_paren 4 ; convert the top of stack to a counted string ( n1 -- 'cs ) h 8024 */- {.type Here, {.p 8024 }}, /* 8024 360 */- {.type There, {.p 360 }}, /* 8024 360 */- {.type Here, {.p 8024 }}, /* 8024 360 */- {.type There, {.p 360 }}, /* 8024 360 */- {.type FromDictionary, {.p C_paren_dot_paren}, .src = "dd C_paren_dot_paren ; ( 'text n2 )"}, /* dd C_paren_dot_paren ; ( 'text n2 ) 8032 */- {.type Here, {.p 8032 }}, /* 8032 360 */- {.type There, {.p 360 }}, /* 8032 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( n2 'text )"}, /* dd M_xswap ; ( n2 'text ) 8040 */- {.type Here, {.p 8040 }}, /* 8040 360 */- {.type There, {.p 360 }}, /* 8040 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8048 */- {.type Here, {.p 8048 }}, /* 8048 360 */- {.type There, {.p 360 }}, /* 8048 360 */- {.type Absolute, {.p 1}}, /* dd 1 8056 */- {.type Here, {.p 8056 }}, /* 8056 360 */- {.type There, {.p 360 }}, /* 8056 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( n2 'text-1 )"}, /* dd M_minus ; ( n2 'text-1 ) 8064 */- {.type Here, {.p 8064 }}, /* 8064 360 */- {.type There, {.p 360 }}, /* 8064 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 8072 */- {.type Here, {.p 8072 }}, /* 8072 360 */- {.type There, {.p 360 }}, /* 8072 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( 'text-1 n2 'text-1 )"}, /* dd M_over ; ( 'text-1 n2 'text-1 ) 8080 */- {.type Here, {.p 8080 }}, /* 8080 360 */- {.type There, {.p 360 }}, /* 8080 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; ( 'text-1 )"}, /* dd M_cstore ; ( 'text-1 ) 8088 */- {.type Here, {.p 8088 }}, /* 8088 360 */- {.type There, {.p 360 }}, /* 8088 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8096 */- {.type Here, {.p 8096 }}, /* 8096 360 */- {.type There, {.p 360 }}, /* 8096 360 */- {.type Here, {.p 8096 }}, /* 8096 360 */- {.type There, {.p 360 }}, /* 8096 360 */- {.type Header, {.hdr { 3, "(.)", /* C_paren_dot_paren = 8112 */ colon }}}, /* CENTRY "(.)" paren_dot_paren 3 ; convert the top of stack to a string ( n1 -- 'text n2 ) h 8120 */- {.type Here, {.p 8120 }}, /* 8120 360 */- {.type There, {.p 360 }}, /* 8120 360 */- {.type Here, {.p 8120 }}, /* 8120 360 */- {.type There, {.p 360 }}, /* 8120 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 8128 */- {.type Here, {.p 8128 }}, /* 8128 360 */- {.type There, {.p 360 }}, /* 8128 360 */- {.type FromDictionary, {.p C_abs}, .src = "dd C_abs ; ( n n -- n u )"}, /* dd C_abs ; ( n n -- n u ) 8136 */- {.type Here, {.p 8136 }}, /* 8136 360 */- {.type There, {.p 360 }}, /* 8136 360 */- {.type FromDictionary, {.p C_fromhash}, .src = "dd C_fromhash ; pad = h+256; >num = pad+1024"}, /* dd C_fromhash ; pad = h+256; >num = pad+1024 8144 */- {.type Here, {.p 8144 }}, /* 8144 360 */- {.type There, {.p 360 }}, /* 8144 360 */- {.type FromDictionary, {.p C_hashs}, .src = "dd C_hashs ; ( n u1 -- n n2 )"}, /* dd C_hashs ; ( n u1 -- n n2 ) 8152 */- {.type Here, {.p 8152 }}, /* 8152 360 */- {.type There, {.p 360 }}, /* 8152 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( n n2 -- n2 n )"}, /* dd M_xswap ; ( n n2 -- n2 n ) 8160 */- {.type Here, {.p 8160 }}, /* 8160 360 */- {.type There, {.p 360 }}, /* 8160 360 */- {.type FromDictionary, {.p C_sign}, .src = "dd C_sign ; ( n2 n -- n2 )"}, /* dd C_sign ; ( n2 n -- n2 ) 8168 */- {.type Here, {.p 8168 }}, /* 8168 360 */- {.type There, {.p 360 }}, /* 8168 360 */- {.type FromDictionary, {.p C_hashfrom}, .src = "dd C_hashfrom ; ( u1 -- a n )"}, /* dd C_hashfrom ; ( u1 -- a n ) 8176 */- {.type Here, {.p 8176 }}, /* 8176 360 */- {.type There, {.p 360 }}, /* 8176 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8184 */- {.type Here, {.p 8184 }}, /* 8184 360 */- {.type There, {.p 360 }}, /* 8184 360 */- {.type Here, {.p 8184 }}, /* 8184 360 */- {.type There, {.p 360 }}, /* 8184 360 */- {.type Header, {.hdr { 1, ".", /* C_dot = 8200 */ colon }}}, /* CENTRY "." dot 1 ; print the top of stack ( n -- ) h 8208 */- {.type Here, {.p 8208 }}, /* 8208 360 */- {.type There, {.p 360 }}, /* 8208 360 */- {.type Here, {.p 8208 }}, /* 8208 360 */- {.type There, {.p 360 }}, /* 8208 360 */- {.type FromDictionary, {.p C_paren_dot_paren}, .src = "dd C_paren_dot_paren ; ( n1 -- 'text n2 )"}, /* dd C_paren_dot_paren ; ( n1 -- 'text n2 ) 8216 */- {.type Here, {.p 8216 }}, /* 8216 360 */- {.type There, {.p 360 }}, /* 8216 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 8224 */- {.type Here, {.p 8224 }}, /* 8224 360 */- {.type There, {.p 360 }}, /* 8224 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 8232 */- {.type Here, {.p 8232 }}, /* 8232 360 */- {.type There, {.p 360 }}, /* 8232 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8240 */- {.type Here, {.p 8240 }}, /* 8240 360 */- {.type There, {.p 360 }}, /* 8240 360 */- {.type Here, {.p 8240 }}, /* 8240 360 */- {.type There, {.p 360 }}, /* 8240 360 */- {.type Header, {.hdr { 2, ".r", /* C_dotr = 8256 */ colon }}}, /* CENTRY ".r" dotr 2 h 8264 */- {.type Here, {.p 8264 }}, /* 8264 360 */- {.type There, {.p 360 }}, /* 8264 360 */- {.type Here, {.p 8264 }}, /* 8264 360 */- {.type There, {.p 360 }}, /* 8264 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 8272 */- {.type Here, {.p 8272 }}, /* 8272 360 */- {.type There, {.p 360 }}, /* 8272 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8280 */- {.type Here, {.p 8280 }}, /* 8280 360 */- {.type There, {.p 360 }}, /* 8280 360 */- {.type FromDictionary, {.p C_abs}, .src = "dd C_abs"}, /* dd C_abs 8288 */- {.type Here, {.p 8288 }}, /* 8288 360 */- {.type There, {.p 360 }}, /* 8288 360 */- {.type FromDictionary, {.p C_fromhash}, .src = "dd C_fromhash"}, /* dd C_fromhash 8296 */- {.type Here, {.p 8296 }}, /* 8296 360 */- {.type There, {.p 360 }}, /* 8296 360 */- {.type FromDictionary, {.p C_hashs}, .src = "dd C_hashs"}, /* dd C_hashs 8304 */- {.type Here, {.p 8304 }}, /* 8304 360 */- {.type There, {.p 360 }}, /* 8304 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 8312 */- {.type Here, {.p 8312 }}, /* 8312 360 */- {.type There, {.p 360 }}, /* 8312 360 */- {.type FromDictionary, {.p C_sign}, .src = "dd C_sign"}, /* dd C_sign 8320 */- {.type Here, {.p 8320 }}, /* 8320 360 */- {.type There, {.p 360 }}, /* 8320 360 */- {.type FromDictionary, {.p C_hashfrom}, .src = "dd C_hashfrom"}, /* dd C_hashfrom 8328 */- {.type Here, {.p 8328 }}, /* 8328 360 */- {.type There, {.p 360 }}, /* 8328 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 8336 */- {.type Here, {.p 8336 }}, /* 8336 360 */- {.type There, {.p 360 }}, /* 8336 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 8344 */- {.type Here, {.p 8344 }}, /* 8344 360 */- {.type There, {.p 360 }}, /* 8344 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8352 */- {.type Here, {.p 8352 }}, /* 8352 360 */- {.type There, {.p 360 }}, /* 8352 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8360 */- {.type Here, {.p 8360 }}, /* 8360 360 */- {.type There, {.p 360 }}, /* 8360 360 */- {.type Absolute, {.p 0}}, /* dd 0 8368 */- {.type Here, {.p 8368 }}, /* 8368 360 */- {.type There, {.p 360 }}, /* 8368 360 */- {.type FromDictionary, {.p C_max}, .src = "dd C_max"}, /* dd C_max 8376 */- {.type Here, {.p 8376 }}, /* 8376 360 */- {.type There, {.p 360 }}, /* 8376 360 */- {.type FromDictionary, {.p C_spaces}, .src = "dd C_spaces"}, /* dd C_spaces 8384 */- {.type Here, {.p 8384 }}, /* 8384 360 */- {.type There, {.p 360 }}, /* 8384 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 8392 */- {.type Here, {.p 8392 }}, /* 8392 360 */- {.type There, {.p 360 }}, /* 8392 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8400 */- {.type Here, {.p 8400 }}, /* 8400 360 */- {.type There, {.p 360 }}, /* 8400 360 */- {.type Here, {.p 8400 }}, /* 8400 360 */- {.type There, {.p 360 }}, /* 8400 360 */- {.type Header, {.hdr { 3, "hex", /* C_hex = 8416 */ colon }}}, /* CENTRY "hex" hex 3 h 8424 */- {.type Here, {.p 8424 }}, /* 8424 360 */- {.type There, {.p 360 }}, /* 8424 360 */- {.type Here, {.p 8424 }}, /* 8424 360 */- {.type There, {.p 360 }}, /* 8424 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8432 */- {.type Here, {.p 8432 }}, /* 8432 360 */- {.type There, {.p 360 }}, /* 8432 360 */- {.type Absolute, {.p 16}}, /* dd 16 8440 */- {.type Here, {.p 8440 }}, /* 8440 360 */- {.type There, {.p 360 }}, /* 8440 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8448 */- {.type Here, {.p 8448 }}, /* 8448 360 */- {.type There, {.p 360 }}, /* 8448 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8456 */- {.type Here, {.p 8456 }}, /* 8456 360 */- {.type There, {.p 360 }}, /* 8456 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8464 */- {.type Here, {.p 8464 }}, /* 8464 360 */- {.type There, {.p 360 }}, /* 8464 360 */- {.type Header, {.hdr { 7, "decimal", /* C_decimal = 8480 */ colon }}}, /* CENTRY "decimal" decimal 7 h 8488 */- {.type Here, {.p 8488 }}, /* 8488 360 */- {.type There, {.p 360 }}, /* 8488 360 */- {.type Here, {.p 8488 }}, /* 8488 360 */- {.type There, {.p 360 }}, /* 8488 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8496 */- {.type Here, {.p 8496 }}, /* 8496 360 */- {.type There, {.p 360 }}, /* 8496 360 */- {.type Absolute, {.p 10}}, /* dd 10 8504 */- {.type Here, {.p 8504 }}, /* 8504 360 */- {.type There, {.p 360 }}, /* 8504 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8512 */- {.type Here, {.p 8512 }}, /* 8512 360 */- {.type There, {.p 360 }}, /* 8512 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8520 */- {.type Here, {.p 8520 }}, /* 8520 360 */- {.type There, {.p 360 }}, /* 8520 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8528 */- {.type Here, {.p 8528 }}, /* 8528 360 */- {.type There, {.p 360 }}, /* 8528 360 */- {.type Here, {.p 8528 }}, /* 8528 360 */- {.type There, {.p 360 }}, /* 8528 360 */- {.type Header, {.hdr { 5, "digit", /* C_digit = 8544 */ colon }}}, /* CENTRY "digit" digit 5 ; ( c -- ) h 8552 */- {.type Here, {.p 8552 }}, /* 8552 360 */- {.type There, {.p 360 }}, /* 8552 360 */- {.type Here, {.p 8552 }}, /* 8552 360 */- {.type There, {.p 360 }}, /* 8552 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8560 */- {.type Here, {.p 8560 }}, /* 8560 360 */- {.type There, {.p 360 }}, /* 8560 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8568 */- {.type Here, {.p 8568 }}, /* 8568 360 */- {.type There, {.p 360 }}, /* 8568 360 */- {.type Absolute, {.p 65}}, /* dd 65 8576 */- {.type Here, {.p 8576 }}, /* 8576 360 */- {.type There, {.p 360 }}, /* 8576 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8584 */- {.type Here, {.p 8584 }}, /* 8584 360 */- {.type There, {.p 360 }}, /* 8584 360 */- {.type Absolute, {.p 91}}, /* dd 91 8592 */- {.type Here, {.p 8592 }}, /* 8592 360 */- {.type There, {.p 360 }}, /* 8592 360 */- {.type FromDictionary, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8600 */- {.type Here, {.p 8600 }}, /* 8600 360 */- {.type There, {.p 360 }}, /* 8600 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8608 */- {.type Here, {.p 8608 }}, /* 8608 360 */- {.type There, {.p 360 }}, /* 8608 360 */- {.type FromDictionary, {.p L_C_digit}, .src = "dd L_C_digit"}, /* dd L_C_digit 8616 */- {.type Here, {.p 8616 }}, /* 8616 360 */- {.type There, {.p 360 }}, /* 8616 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8624 */- {.type Here, {.p 8624 }}, /* 8624 360 */- {.type There, {.p 360 }}, /* 8624 360 */- {.type Absolute, {.p 55}}, /* dd 55 8632 */- {.type Here, {.p 8632 }}, /* 8632 360 */- {.type There, {.p 360 }}, /* 8632 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8640 */- {.type Here, {.p 8640 }}, /* 8640 360 */- {.type There, {.p 360 }}, /* 8640 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8648 */- {.type Here, {.p 8648 }}, /* 8648 360 */- {.type There, {.p 360 }}, /* 8648 360 */- {.type FromDictionary, {.p L_C_digit_1}, .src = "dd L_C_digit_1"}, /* dd L_C_digit_1 8656 */- {.type Here, {.p 8656 }}, /* 8656 360 */- {.type There, {.p 360 }}, /* 8656 360 */- {.type Here, {.p 8656 }}, /* 8656 360 */- {.type There, {.p 360 }}, /* 8656 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8664 */- {.type Here, {.p 8664 }}, /* 8664 360 */- {.type There, {.p 360 }}, /* 8664 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8672 */- {.type Here, {.p 8672 }}, /* 8672 360 */- {.type There, {.p 360 }}, /* 8672 360 */- {.type Absolute, {.p 97}}, /* dd 97 8680 */- {.type Here, {.p 8680 }}, /* 8680 360 */- {.type There, {.p 360 }}, /* 8680 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8688 */- {.type Here, {.p 8688 }}, /* 8688 360 */- {.type There, {.p 360 }}, /* 8688 360 */- {.type Absolute, {.p 123}}, /* dd 123 8696 */- {.type Here, {.p 8696 }}, /* 8696 360 */- {.type There, {.p 360 }}, /* 8696 360 */- {.type FromDictionary, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8704 */- {.type Here, {.p 8704 }}, /* 8704 360 */- {.type There, {.p 360 }}, /* 8704 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8712 */- {.type Here, {.p 8712 }}, /* 8712 360 */- {.type There, {.p 360 }}, /* 8712 360 */- {.type FromDictionary, {.p L_C_digit_2}, .src = "dd L_C_digit_2"}, /* dd L_C_digit_2 8720 */- {.type Here, {.p 8720 }}, /* 8720 360 */- {.type There, {.p 360 }}, /* 8720 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8728 */- {.type Here, {.p 8728 }}, /* 8728 360 */- {.type There, {.p 360 }}, /* 8728 360 */- {.type Absolute, {.p 87}}, /* dd 87 8736 */- {.type Here, {.p 8736 }}, /* 8736 360 */- {.type There, {.p 360 }}, /* 8736 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8744 */- {.type Here, {.p 8744 }}, /* 8744 360 */- {.type There, {.p 360 }}, /* 8744 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8752 */- {.type Here, {.p 8752 }}, /* 8752 360 */- {.type There, {.p 360 }}, /* 8752 360 */- {.type FromDictionary, {.p L_C_digit_3}, .src = "dd L_C_digit_3"}, /* dd L_C_digit_3 8760 */- {.type Here, {.p 8760 }}, /* 8760 360 */- {.type There, {.p 360 }}, /* 8760 360 */- {.type Here, {.p 8760 }}, /* 8760 360 */- {.type There, {.p 360 }}, /* 8760 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8768 */- {.type Here, {.p 8768 }}, /* 8768 360 */- {.type There, {.p 360 }}, /* 8768 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8776 */- {.type Here, {.p 8776 }}, /* 8776 360 */- {.type There, {.p 360 }}, /* 8776 360 */- {.type Absolute, {.p 48}}, /* dd 48 8784 */- {.type Here, {.p 8784 }}, /* 8784 360 */- {.type There, {.p 360 }}, /* 8784 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8792 */- {.type Here, {.p 8792 }}, /* 8792 360 */- {.type There, {.p 360 }}, /* 8792 360 */- {.type Absolute, {.p 58}}, /* dd 58 8800 */- {.type Here, {.p 8800 }}, /* 8800 360 */- {.type There, {.p 360 }}, /* 8800 360 */- {.type FromDictionary, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8808 */- {.type Here, {.p 8808 }}, /* 8808 360 */- {.type There, {.p 360 }}, /* 8808 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8816 */- {.type Here, {.p 8816 }}, /* 8816 360 */- {.type There, {.p 360 }}, /* 8816 360 */- {.type FromDictionary, {.p L_C_digit_4}, .src = "dd L_C_digit_4"}, /* dd L_C_digit_4 8824 */- {.type Here, {.p 8824 }}, /* 8824 360 */- {.type There, {.p 360 }}, /* 8824 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8832 */- {.type Here, {.p 8832 }}, /* 8832 360 */- {.type There, {.p 360 }}, /* 8832 360 */- {.type Absolute, {.p 48}}, /* dd 48 8840 */- {.type Here, {.p 8840 }}, /* 8840 360 */- {.type There, {.p 360 }}, /* 8840 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8848 */- {.type Here, {.p 8848 }}, /* 8848 360 */- {.type There, {.p 360 }}, /* 8848 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8856 */- {.type Here, {.p 8856 }}, /* 8856 360 */- {.type There, {.p 360 }}, /* 8856 360 */- {.type FromDictionary, {.p L_C_digit_5}, .src = "dd L_C_digit_5"}, /* dd L_C_digit_5 8864 */- {.type Here, {.p 8864 }}, /* 8864 360 */- {.type There, {.p 360 }}, /* 8864 360 */- {.type Here, {.p 8864 }}, /* 8864 360 */- {.type There, {.p 360 }}, /* 8864 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 8872 */- {.type Here, {.p 8872 }}, /* 8872 360 */- {.type There, {.p 360 }}, /* 8872 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 8880 */- {.type Here, {.p 8880 }}, /* 8880 360 */- {.type There, {.p 360 }}, /* 8880 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8888 */- {.type Here, {.p 8888 }}, /* 8888 360 */- {.type There, {.p 360 }}, /* 8888 360 */- {.type Here, {.p 8888 }}, /* 8888 360 */- {.type There, {.p 360 }}, /* 8888 360 */- {.type Here, {.p 8888 }}, /* 8888 360 */- {.type There, {.p 360 }}, /* 8888 360 */- {.type Here, {.p 8888 }}, /* 8888 360 */- {.type There, {.p 360 }}, /* 8888 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8896 */- {.type Here, {.p 8896 }}, /* 8896 360 */- {.type There, {.p 360 }}, /* 8896 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8904 */- {.type Here, {.p 8904 }}, /* 8904 360 */- {.type There, {.p 360 }}, /* 8904 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 8912 */- {.type Here, {.p 8912 }}, /* 8912 360 */- {.type There, {.p 360 }}, /* 8912 360 */- {.type FromDictionary, {.p M_less}, .src = "dd M_less"}, /* dd M_less 8920 */- {.type Here, {.p 8920 }}, /* 8920 360 */- {.type There, {.p 360 }}, /* 8920 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8928 */- {.type Here, {.p 8928 }}, /* 8928 360 */- {.type There, {.p 360 }}, /* 8928 360 */- {.type FromDictionary, {.p L_C_digit_6}, .src = "dd L_C_digit_6"}, /* dd L_C_digit_6 8936 */- {.type Here, {.p 8936 }}, /* 8936 360 */- {.type There, {.p 360 }}, /* 8936 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true"}, /* dd C_true 8944 */- {.type Here, {.p 8944 }}, /* 8944 360 */- {.type There, {.p 360 }}, /* 8944 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8952 */- {.type Here, {.p 8952 }}, /* 8952 360 */- {.type There, {.p 360 }}, /* 8952 360 */- {.type FromDictionary, {.p L_C_digit_7}, .src = "dd L_C_digit_7"}, /* dd L_C_digit_7 8960 */- {.type Here, {.p 8960 }}, /* 8960 360 */- {.type There, {.p 360 }}, /* 8960 360 */- {.type Here, {.p 8960 }}, /* 8960 360 */- {.type There, {.p 360 }}, /* 8960 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 8968 */- {.type Here, {.p 8968 }}, /* 8968 360 */- {.type There, {.p 360 }}, /* 8968 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 8976 */- {.type Here, {.p 8976 }}, /* 8976 360 */- {.type There, {.p 360 }}, /* 8976 360 */- {.type Here, {.p 8976 }}, /* 8976 360 */- {.type There, {.p 360 }}, /* 8976 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8984 */- {.type Here, {.p 8984 }}, /* 8984 360 */- {.type There, {.p 360 }}, /* 8984 360 */- {.type Here, {.p 8984 }}, /* 8984 360 */- {.type There, {.p 360 }}, /* 8984 360 */- {.type Header, {.hdr { 6, "number", /* C_number = 9000 */ colon }}}, /* CENTRY "number" number 6 ; ( a n1 -- n2 -1 | a n1 0 ) h 9008 */- {.type Here, {.p 9008 }}, /* 9008 360 */- {.type There, {.p 360 }}, /* 9008 360 */- {.type Here, {.p 9008 }}, /* 9008 360 */- {.type There, {.p 360 }}, /* 9008 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( a n1 -- n1 a )"}, /* dd M_xswap ; ( a n1 -- n1 a ) 9016 */- {.type Here, {.p 9016 }}, /* 9016 360 */- {.type There, {.p 360 }}, /* 9016 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( n1 a -- n1 a a )"}, /* dd M_dup ; ( n1 a -- n1 a a ) 9024 */- {.type Here, {.p 9024 }}, /* 9024 360 */- {.type There, {.p 360 }}, /* 9024 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( n1 a a -- n1 a c )"}, /* dd M_cfetch ; ( n1 a a -- n1 a c ) 9032 */- {.type Here, {.p 9032 }}, /* 9032 360 */- {.type There, {.p 360 }}, /* 9032 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9040 */- {.type Here, {.p 9040 }}, /* 9040 360 */- {.type There, {.p 360 }}, /* 9040 360 */- {.type Absolute, {.p 45}}, /* dd 45 ; ( n1 a c -- n1 a c - ) 9048 */- {.type Here, {.p 9048 }}, /* 9048 360 */- {.type There, {.p 360 }}, /* 9048 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal ; ( n1 a c -- n1 a f )"}, /* dd M_equal ; ( n1 a c -- n1 a f ) 9056 */- {.type Here, {.p 9056 }}, /* 9056 360 */- {.type There, {.p 360 }}, /* 9056 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump ; ( n1 a c -- n1 a )"}, /* dd M_cjump ; ( n1 a c -- n1 a ) 9064 */- {.type Here, {.p 9064 }}, /* 9064 360 */- {.type There, {.p 360 }}, /* 9064 360 */- {.type FromDictionary, {.p L_C_number}, .src = "dd L_C_number ; c != -"}, /* dd L_C_number ; c != - 9072 */- {.type Here, {.p 9072 }}, /* 9072 360 */- {.type There, {.p 360 }}, /* 9072 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; c == - ( n1 a -- n1 a+1 )"}, /* dd C_1plus ; c == - ( n1 a -- n1 a+1 ) 9080 */- {.type Here, {.p 9080 }}, /* 9080 360 */- {.type There, {.p 360 }}, /* 9080 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 9088 */- {.type Here, {.p 9088 }}, /* 9088 360 */- {.type There, {.p 360 }}, /* 9088 360 */- {.type FromDictionary, {.p C_1minus}, .src = "dd C_1minus ; c == - ( a+1 n1 -- a+1 n1-1 )"}, /* dd C_1minus ; c == - ( a+1 n1 -- a+1 n1-1 ) 9096 */- {.type Here, {.p 9096 }}, /* 9096 360 */- {.type There, {.p 360 }}, /* 9096 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9104 */- {.type Here, {.p 9104 }}, /* 9104 360 */- {.type There, {.p 360 }}, /* 9104 360 */- {.type Absolute, {.p -1}}, /* dd -1 ; ( a+1 n1-1 -- a+1 n1-1 -1 ) 9112 */- {.type Here, {.p 9112 }}, /* 9112 360 */- {.type There, {.p 360 }}, /* 9112 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1)"}, /* dd M_rpush ; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1) 9120 */- {.type Here, {.p 9120 }}, /* 9120 360 */- {.type There, {.p 360 }}, /* 9120 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9128 */- {.type Here, {.p 9128 }}, /* 9128 360 */- {.type There, {.p 360 }}, /* 9128 360 */- {.type FromDictionary, {.p L_C_number_1}, .src = "dd L_C_number_1"}, /* dd L_C_number_1 9136 */- {.type Here, {.p 9136 }}, /* 9136 360 */- {.type There, {.p 360 }}, /* 9136 360 */- {.type Here, {.p 9136 }}, /* 9136 360 */- {.type There, {.p 360 }}, /* 9136 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( n1 a -- a n1)"}, /* dd M_xswap ; ( n1 a -- a n1) 9144 */- {.type Here, {.p 9144 }}, /* 9144 360 */- {.type There, {.p 360 }}, /* 9144 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9152 */- {.type Here, {.p 9152 }}, /* 9152 360 */- {.type There, {.p 360 }}, /* 9152 360 */- {.type Absolute, {.p 1}}, /* dd 1 9160 */- {.type Here, {.p 9160 }}, /* 9160 360 */- {.type There, {.p 360 }}, /* 9160 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1)"}, /* dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1) 9168 */- {.type Here, {.p 9168 }}, /* 9168 360 */- {.type There, {.p 360 }}, /* 9168 360 */- {.type Here, {.p 9168 }}, /* 9168 360 */- {.type There, {.p 360 }}, /* 9168 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a n1 -- a n1 n1 ) (R nr)"}, /* dd M_dup ; ( a n1 -- a n1 n1 ) (R nr) 9176 */- {.type Here, {.p 9176 }}, /* 9176 360 */- {.type There, {.p 360 }}, /* 9176 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a n1 n1 -- a n1 ) (R nr -- nr n1)"}, /* dd M_rpush ; ( a n1 n1 -- a n1 ) (R nr -- nr n1) 9184 */- {.type Here, {.p 9184 }}, /* 9184 360 */- {.type There, {.p 360 }}, /* 9184 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9192 */- {.type Here, {.p 9192 }}, /* 9192 360 */- {.type There, {.p 360 }}, /* 9192 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( a n1 -- a n1 0) (R nr n1) 9200 */- {.type Here, {.p 9200 }}, /* 9200 360 */- {.type There, {.p 360 }}, /* 9200 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( a n1 0 -- a 0 n1) (R nr n1)"}, /* dd M_xswap ; ( a n1 0 -- a 0 n1) (R nr n1) 9208 */- {.type Here, {.p 9208 }}, /* 9208 360 */- {.type There, {.p 360 }}, /* 9208 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9216 */- {.type Here, {.p 9216 }}, /* 9216 360 */- {.type There, {.p 360 }}, /* 9216 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( a 0 n1 -- a 0 n1 0) (R nr n1) 9224 */- {.type Here, {.p 9224 }}, /* 9224 360 */- {.type There, {.p 360 }}, /* 9224 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit ; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_doinit ; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1) 9232 */- {.type Here, {.p 9232 }}, /* 9232 360 */- {.type There, {.p 360 }}, /* 9232 360 */- {.type Here, {.p 9232 }}, /* 9232 360 */- {.type There, {.p 360 }}, /* 9232 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 9240 */- {.type Here, {.p 9240 }}, /* 9240 360 */- {.type There, {.p 360 }}, /* 9240 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_fetch ; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1) 9248 */- {.type Here, {.p 9248 }}, /* 9248 360 */- {.type There, {.p 360 }}, /* 9248 360 */- {.type FromDictionary, {.p M_multiply}, .src = "dd M_multiply ; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_multiply ; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1) 9256 */- {.type Here, {.p 9256 }}, /* 9256 360 */- {.type There, {.p 360 }}, /* 9256 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1)"}, /* dd M_over ; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1) 9264 */- {.type Here, {.p 9264 }}, /* 9264 360 */- {.type There, {.p 360 }}, /* 9264 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i ; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1)"}, /* dd M_i ; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1) 9272 */- {.type Here, {.p 9272 }}, /* 9272 360 */- {.type There, {.p 360 }}, /* 9272 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1)"}, /* dd M_plus ; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1) 9280 */- {.type Here, {.p 9280 }}, /* 9280 360 */- {.type There, {.p 360 }}, /* 9280 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1)"}, /* dd M_cfetch ; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1) 9288 */- {.type Here, {.p 9288 }}, /* 9288 360 */- {.type There, {.p 360 }}, /* 9288 360 */- {.type FromDictionary, {.p C_digit}, .src = "dd C_digit"}, /* dd C_digit 9296 */- {.type Here, {.p 9296 }}, /* 9296 360 */- {.type There, {.p 360 }}, /* 9296 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9304 */- {.type Here, {.p 9304 }}, /* 9304 360 */- {.type There, {.p 360 }}, /* 9304 360 */- {.type FromDictionary, {.p L_C_number_3}, .src = "dd L_C_number_3"}, /* dd L_C_number_3 9312 */- {.type Here, {.p 9312 }}, /* 9312 360 */- {.type There, {.p 360 }}, /* 9312 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9320 */- {.type Here, {.p 9320 }}, /* 9320 360 */- {.type There, {.p 360 }}, /* 9320 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9328 */- {.type Here, {.p 9328 }}, /* 9328 360 */- {.type There, {.p 360 }}, /* 9328 360 */- {.type FromDictionary, {.p L_C_number_4}, .src = "dd L_C_number_4"}, /* dd L_C_number_4 9336 */- {.type Here, {.p 9336 }}, /* 9336 360 */- {.type There, {.p 360 }}, /* 9336 360 */- {.type Here, {.p 9336 }}, /* 9336 360 */- {.type There, {.p 360 }}, /* 9336 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9344 */- {.type Here, {.p 9344 }}, /* 9344 360 */- {.type There, {.p 360 }}, /* 9344 360 */- {.type FromDictionary, {.p M_unloop}, .src = "dd M_unloop"}, /* dd M_unloop 9352 */- {.type Here, {.p 9352 }}, /* 9352 360 */- {.type There, {.p 360 }}, /* 9352 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9360 */- {.type Here, {.p 9360 }}, /* 9360 360 */- {.type There, {.p 360 }}, /* 9360 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9368 */- {.type Here, {.p 9368 }}, /* 9368 360 */- {.type There, {.p 360 }}, /* 9368 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9376 */- {.type Here, {.p 9376 }}, /* 9376 360 */- {.type There, {.p 360 }}, /* 9376 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 9384 */- {.type Here, {.p 9384 }}, /* 9384 360 */- {.type There, {.p 360 }}, /* 9384 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9392 */- {.type Here, {.p 9392 }}, /* 9392 360 */- {.type There, {.p 360 }}, /* 9392 360 */- {.type Here, {.p 9392 }}, /* 9392 360 */- {.type There, {.p 360 }}, /* 9392 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 9400 */- {.type Here, {.p 9400 }}, /* 9400 360 */- {.type There, {.p 360 }}, /* 9400 360 */- {.type FromDictionary, {.p L_C_number_2}, .src = "dd L_C_number_2"}, /* dd L_C_number_2 9408 */- {.type Here, {.p 9408 }}, /* 9408 360 */- {.type There, {.p 360 }}, /* 9408 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9416 */- {.type Here, {.p 9416 }}, /* 9416 360 */- {.type There, {.p 360 }}, /* 9416 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9424 */- {.type Here, {.p 9424 }}, /* 9424 360 */- {.type There, {.p 360 }}, /* 9424 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 9432 */- {.type Here, {.p 9432 }}, /* 9432 360 */- {.type There, {.p 360 }}, /* 9432 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9440 */- {.type Here, {.p 9440 }}, /* 9440 360 */- {.type There, {.p 360 }}, /* 9440 360 */- {.type FromDictionary, {.p M_multiply}, .src = "dd M_multiply"}, /* dd M_multiply 9448 */- {.type Here, {.p 9448 }}, /* 9448 360 */- {.type There, {.p 360 }}, /* 9448 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true"}, /* dd C_true 9456 */- {.type Here, {.p 9456 }}, /* 9456 360 */- {.type There, {.p 360 }}, /* 9456 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9464 */- {.type Here, {.p 9464 }}, /* 9464 360 */- {.type There, {.p 360 }}, /* 9464 360 */- {.type Here, {.p 9464 }}, /* 9464 360 */- {.type There, {.p 360 }}, /* 9464 360 */- {.type Header, {.hdr { 5, "abort", /* C_abort = 9480 */ colon }}}, /* CENTRY "abort" abort 5 h 9488 */- {.type Here, {.p 9488 }}, /* 9488 360 */- {.type There, {.p 360 }}, /* 9488 360 */- {.type Here, {.p 9488 }}, /* 9488 360 */- {.type There, {.p 360 }}, /* 9488 360 */- {.type FromDictionary, {.p MV_Abortvec}, .src = "dd MV_Abortvec"}, /* dd MV_Abortvec 9496 */- {.type Here, {.p 9496 }}, /* 9496 360 */- {.type There, {.p 360 }}, /* 9496 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9504 */- {.type Here, {.p 9504 }}, /* 9504 360 */- {.type There, {.p 360 }}, /* 9504 360 */- {.type FromDictionary, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 9512 */- {.type Here, {.p 9512 }}, /* 9512 360 */- {.type There, {.p 360 }}, /* 9512 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9520 */- {.type Here, {.p 9520 }}, /* 9520 360 */- {.type There, {.p 360 }}, /* 9520 360 */- {.type Here, {.p 9520 }}, /* 9520 360 */- {.type There, {.p 360 }}, /* 9520 360 */- {.type Header, {.hdr { 15, "bufferfilename@", /* C_bufferfilename_fetch = 9544 */ colon }}}, /* CENTRY "bufferfilename@" bufferfilename_fetch 15 ; ( index -- 'counted-string ) fetch label h 9552 */- {.type Here, {.p 9552 }}, /* 9552 360 */- {.type There, {.p 360 }}, /* 9552 360 */- {.type Here, {.p 9552 }}, /* 9552 360 */- {.type There, {.p 360 }}, /* 9552 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 9560 */- {.type Here, {.p 9560 }}, /* 9560 360 */- {.type There, {.p 360 }}, /* 9560 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 9568 */- {.type Here, {.p 9568 }}, /* 9568 360 */- {.type There, {.p 360 }}, /* 9568 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9576 */- {.type Here, {.p 9576 }}, /* 9576 360 */- {.type There, {.p 360 }}, /* 9576 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9584 */- {.type Here, {.p 9584 }}, /* 9584 360 */- {.type There, {.p 360 }}, /* 9584 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9592 */- {.type Here, {.p 9592 }}, /* 9592 360 */- {.type There, {.p 360 }}, /* 9592 360 */- {.type Here, {.p 9592 }}, /* 9592 360 */- {.type There, {.p 360 }}, /* 9592 360 */- {.type Header, {.hdr { 15, "bufferfilename!", /* C_bufferfilename_store = 9616 */ colon }}}, /* CENTRY "bufferfilename!" bufferfilename_store 15 ; ( 'text index -- ) store label h 9624 */- {.type Here, {.p 9624 }}, /* 9624 360 */- {.type There, {.p 360 }}, /* 9624 360 */- {.type Here, {.p 9624 }}, /* 9624 360 */- {.type There, {.p 360 }}, /* 9624 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 9632 */- {.type Here, {.p 9632 }}, /* 9632 360 */- {.type There, {.p 360 }}, /* 9632 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 9640 */- {.type Here, {.p 9640 }}, /* 9640 360 */- {.type There, {.p 360 }}, /* 9640 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9648 */- {.type Here, {.p 9648 }}, /* 9648 360 */- {.type There, {.p 360 }}, /* 9648 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9656 */- {.type Here, {.p 9656 }}, /* 9656 360 */- {.type There, {.p 360 }}, /* 9656 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9664 */- {.type Here, {.p 9664 }}, /* 9664 360 */- {.type There, {.p 360 }}, /* 9664 360 */- {.type Here, {.p 9664 }}, /* 9664 360 */- {.type There, {.p 360 }}, /* 9664 360 */- {.type Header, {.hdr { 7, ">word", /* C_toword = 9680 */ colon }}}, /* CENTRY ">word" toword 7 ; ( 'Bufferfds -- 'Wordfd ) h 9688 */- {.type Here, {.p 9688 }}, /* 9688 360 */- {.type There, {.p 360 }}, /* 9688 360 */- {.type Here, {.p 9688 }}, /* 9688 360 */- {.type There, {.p 360 }}, /* 9688 360 */- {.type FromDictionary, {.p MC_WORDNUM}, .src = "dd MC_WORDNUM"}, /* dd MC_WORDNUM 9696 */- {.type Here, {.p 9696 }}, /* 9696 360 */- {.type There, {.p 360 }}, /* 9696 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 9704 */- {.type Here, {.p 9704 }}, /* 9704 360 */- {.type There, {.p 360 }}, /* 9704 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9712 */- {.type Here, {.p 9712 }}, /* 9712 360 */- {.type There, {.p 360 }}, /* 9712 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9720 */- {.type Here, {.p 9720 }}, /* 9720 360 */- {.type There, {.p 360 }}, /* 9720 360 */- {.type Here, {.p 9720 }}, /* 9720 360 */- {.type There, {.p 360 }}, /* 9720 360 */- {.type Header, {.hdr { 7, "wordfd@", /* C_wordfd_fetch = 9736 */ colon }}}, /* CENTRY "wordfd@" wordfd_fetch 7 h 9744 */- {.type Here, {.p 9744 }}, /* 9744 360 */- {.type There, {.p 360 }}, /* 9744 360 */- {.type Here, {.p 9744 }}, /* 9744 360 */- {.type There, {.p 360 }}, /* 9744 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 9752 */- {.type Here, {.p 9752 }}, /* 9752 360 */- {.type There, {.p 360 }}, /* 9752 360 */- {.type FromDictionary, {.p C_toword}, .src = "dd C_toword"}, /* dd C_toword 9760 */- {.type Here, {.p 9760 }}, /* 9760 360 */- {.type There, {.p 360 }}, /* 9760 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9768 */- {.type Here, {.p 9768 }}, /* 9768 360 */- {.type There, {.p 360 }}, /* 9768 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9776 */- {.type Here, {.p 9776 }}, /* 9776 360 */- {.type There, {.p 360 }}, /* 9776 360 */- {.type Here, {.p 9776 }}, /* 9776 360 */- {.type There, {.p 360 }}, /* 9776 360 */- {.type Header, {.hdr { 7, "wordfd!", /* C_wordfd_store = 9792 */ colon }}}, /* CENTRY "wordfd!" wordfd_store 7 h 9800 */- {.type Here, {.p 9800 }}, /* 9800 360 */- {.type There, {.p 360 }}, /* 9800 360 */- {.type Here, {.p 9800 }}, /* 9800 360 */- {.type There, {.p 360 }}, /* 9800 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 9808 */- {.type Here, {.p 9808 }}, /* 9808 360 */- {.type There, {.p 360 }}, /* 9808 360 */- {.type FromDictionary, {.p C_toword}, .src = "dd C_toword"}, /* dd C_toword 9816 */- {.type Here, {.p 9816 }}, /* 9816 360 */- {.type There, {.p 360 }}, /* 9816 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9824 */- {.type Here, {.p 9824 }}, /* 9824 360 */- {.type There, {.p 360 }}, /* 9824 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9832 */- {.type Here, {.p 9832 }}, /* 9832 360 */- {.type There, {.p 360 }}, /* 9832 360 */- {.type Here, {.p 9832 }}, /* 9832 360 */- {.type There, {.p 360 }}, /* 9832 360 */- {.type Header, {.hdr { 13, "wordfilename@", /* C_wordfilename_fetch = 9856 */ colon }}}, /* CENTRY "wordfilename@" wordfilename_fetch 13 h 9864 */- {.type Here, {.p 9864 }}, /* 9864 360 */- {.type There, {.p 360 }}, /* 9864 360 */- {.type Here, {.p 9864 }}, /* 9864 360 */- {.type There, {.p 360 }}, /* 9864 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 9872 */- {.type Here, {.p 9872 }}, /* 9872 360 */- {.type There, {.p 360 }}, /* 9872 360 */- {.type FromDictionary, {.p C_toword}, .src = "dd C_toword"}, /* dd C_toword 9880 */- {.type Here, {.p 9880 }}, /* 9880 360 */- {.type There, {.p 360 }}, /* 9880 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9888 */- {.type Here, {.p 9888 }}, /* 9888 360 */- {.type There, {.p 360 }}, /* 9888 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9896 */- {.type Here, {.p 9896 }}, /* 9896 360 */- {.type There, {.p 360 }}, /* 9896 360 */- {.type Here, {.p 9896 }}, /* 9896 360 */- {.type There, {.p 360 }}, /* 9896 360 */- {.type Header, {.hdr { 13, "wordfilename!", /* C_wordfilename_store = 9920 */ colon }}}, /* CENTRY "wordfilename!" wordfilename_store 13 h 9928 */- {.type Here, {.p 9928 }}, /* 9928 360 */- {.type There, {.p 360 }}, /* 9928 360 */- {.type Here, {.p 9928 }}, /* 9928 360 */- {.type There, {.p 360 }}, /* 9928 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 9936 */- {.type Here, {.p 9936 }}, /* 9936 360 */- {.type There, {.p 360 }}, /* 9936 360 */- {.type FromDictionary, {.p C_toword}, .src = "dd C_toword"}, /* dd C_toword 9944 */- {.type Here, {.p 9944 }}, /* 9944 360 */- {.type There, {.p 360 }}, /* 9944 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9952 */- {.type Here, {.p 9952 }}, /* 9952 360 */- {.type There, {.p 360 }}, /* 9952 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9960 */- {.type Here, {.p 9960 }}, /* 9960 360 */- {.type There, {.p 360 }}, /* 9960 360 */- {.type Here, {.p 9960 }}, /* 9960 360 */- {.type There, {.p 360 }}, /* 9960 360 */- {.type Header, {.hdr { 7, ">line", /* C_toline = 9976 */ colon }}}, /* CENTRY ">line" toline 7 ; ( 'Bufferfds -- 'Wordfd ) h 9984 */- {.type Here, {.p 9984 }}, /* 9984 360 */- {.type There, {.p 360 }}, /* 9984 360 */- {.type Here, {.p 9984 }}, /* 9984 360 */- {.type There, {.p 360 }}, /* 9984 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 9992 */- {.type Here, {.p 9992 }}, /* 9992 360 */- {.type There, {.p 360 }}, /* 9992 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 10000 */- {.type Here, {.p 10000 }}, /* 10000 360 */- {.type There, {.p 360 }}, /* 10000 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 10008 */- {.type Here, {.p 10008 }}, /* 10008 360 */- {.type There, {.p 360 }}, /* 10008 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10016 */- {.type Here, {.p 10016 }}, /* 10016 360 */- {.type There, {.p 360 }}, /* 10016 360 */- {.type Here, {.p 10016 }}, /* 10016 360 */- {.type There, {.p 360 }}, /* 10016 360 */- {.type Header, {.hdr { 7, "linefd@", /* C_linefd_fetch = 10032 */ colon }}}, /* CENTRY "linefd@" linefd_fetch 7 h 10040 */- {.type Here, {.p 10040 }}, /* 10040 360 */- {.type There, {.p 360 }}, /* 10040 360 */- {.type Here, {.p 10040 }}, /* 10040 360 */- {.type There, {.p 360 }}, /* 10040 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10048 */- {.type Here, {.p 10048 }}, /* 10048 360 */- {.type There, {.p 360 }}, /* 10048 360 */- {.type FromDictionary, {.p C_toline}, .src = "dd C_toline"}, /* dd C_toline 10056 */- {.type Here, {.p 10056 }}, /* 10056 360 */- {.type There, {.p 360 }}, /* 10056 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10064 */- {.type Here, {.p 10064 }}, /* 10064 360 */- {.type There, {.p 360 }}, /* 10064 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10072 */- {.type Here, {.p 10072 }}, /* 10072 360 */- {.type There, {.p 360 }}, /* 10072 360 */- {.type Here, {.p 10072 }}, /* 10072 360 */- {.type There, {.p 360 }}, /* 10072 360 */- {.type Header, {.hdr { 7, "linefd!", /* C_linefd_store = 10088 */ colon }}}, /* CENTRY "linefd!" linefd_store 7 h 10096 */- {.type Here, {.p 10096 }}, /* 10096 360 */- {.type There, {.p 360 }}, /* 10096 360 */- {.type Here, {.p 10096 }}, /* 10096 360 */- {.type There, {.p 360 }}, /* 10096 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10104 */- {.type Here, {.p 10104 }}, /* 10104 360 */- {.type There, {.p 360 }}, /* 10104 360 */- {.type FromDictionary, {.p C_toline}, .src = "dd C_toline"}, /* dd C_toline 10112 */- {.type Here, {.p 10112 }}, /* 10112 360 */- {.type There, {.p 360 }}, /* 10112 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10120 */- {.type Here, {.p 10120 }}, /* 10120 360 */- {.type There, {.p 360 }}, /* 10120 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10128 */- {.type Here, {.p 10128 }}, /* 10128 360 */- {.type There, {.p 360 }}, /* 10128 360 */- {.type Here, {.p 10128 }}, /* 10128 360 */- {.type There, {.p 360 }}, /* 10128 360 */- {.type Header, {.hdr { 13, "linefilename@", /* C_linefilename_fetch = 10152 */ colon }}}, /* CENTRY "linefilename@" linefilename_fetch 13 h 10160 */- {.type Here, {.p 10160 }}, /* 10160 360 */- {.type There, {.p 360 }}, /* 10160 360 */- {.type Here, {.p 10160 }}, /* 10160 360 */- {.type There, {.p 360 }}, /* 10160 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10168 */- {.type Here, {.p 10168 }}, /* 10168 360 */- {.type There, {.p 360 }}, /* 10168 360 */- {.type FromDictionary, {.p C_toline}, .src = "dd C_toline"}, /* dd C_toline 10176 */- {.type Here, {.p 10176 }}, /* 10176 360 */- {.type There, {.p 360 }}, /* 10176 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10184 */- {.type Here, {.p 10184 }}, /* 10184 360 */- {.type There, {.p 360 }}, /* 10184 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10192 */- {.type Here, {.p 10192 }}, /* 10192 360 */- {.type There, {.p 360 }}, /* 10192 360 */- {.type Here, {.p 10192 }}, /* 10192 360 */- {.type There, {.p 360 }}, /* 10192 360 */- {.type Header, {.hdr { 13, "linefilename!", /* C_linefilename_store = 10216 */ colon }}}, /* CENTRY "linefilename!" linefilename_store 13 h 10224 */- {.type Here, {.p 10224 }}, /* 10224 360 */- {.type There, {.p 360 }}, /* 10224 360 */- {.type Here, {.p 10224 }}, /* 10224 360 */- {.type There, {.p 360 }}, /* 10224 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10232 */- {.type Here, {.p 10232 }}, /* 10232 360 */- {.type There, {.p 360 }}, /* 10232 360 */- {.type FromDictionary, {.p C_toline}, .src = "dd C_toline"}, /* dd C_toline 10240 */- {.type Here, {.p 10240 }}, /* 10240 360 */- {.type There, {.p 360 }}, /* 10240 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10248 */- {.type Here, {.p 10248 }}, /* 10248 360 */- {.type There, {.p 360 }}, /* 10248 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10256 */- {.type Here, {.p 10256 }}, /* 10256 360 */- {.type There, {.p 360 }}, /* 10256 360 */- {.type Here, {.p 10256 }}, /* 10256 360 */- {.type There, {.p 360 }}, /* 10256 360 */- {.type Header, {.hdr { 12, ">doublequote", /* C_todoublequote = 10280 */ colon }}}, /* CENTRY ">doublequote" todoublequote 12 ; ( 'Bufferfds -- 'Doublequotefd ) h 10288 */- {.type Here, {.p 10288 }}, /* 10288 360 */- {.type There, {.p 360 }}, /* 10288 360 */- {.type Here, {.p 10288 }}, /* 10288 360 */- {.type There, {.p 360 }}, /* 10288 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 10296 */- {.type Here, {.p 10296 }}, /* 10296 360 */- {.type There, {.p 360 }}, /* 10296 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 10304 */- {.type Here, {.p 10304 }}, /* 10304 360 */- {.type There, {.p 360 }}, /* 10304 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 10312 */- {.type Here, {.p 10312 }}, /* 10312 360 */- {.type There, {.p 360 }}, /* 10312 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10320 */- {.type Here, {.p 10320 }}, /* 10320 360 */- {.type There, {.p 360 }}, /* 10320 360 */- {.type Here, {.p 10320 }}, /* 10320 360 */- {.type There, {.p 360 }}, /* 10320 360 */- {.type Header, {.hdr { 14, "doublequotefd@", /* C_doublequotefd_fetch = 10344 */ colon }}}, /* CENTRY "doublequotefd@" doublequotefd_fetch 14 h 10352 */- {.type Here, {.p 10352 }}, /* 10352 360 */- {.type There, {.p 360 }}, /* 10352 360 */- {.type Here, {.p 10352 }}, /* 10352 360 */- {.type There, {.p 360 }}, /* 10352 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10360 */- {.type Here, {.p 10360 }}, /* 10360 360 */- {.type There, {.p 360 }}, /* 10360 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10368 */- {.type Here, {.p 10368 }}, /* 10368 360 */- {.type There, {.p 360 }}, /* 10368 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10376 */- {.type Here, {.p 10376 }}, /* 10376 360 */- {.type There, {.p 360 }}, /* 10376 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10384 */- {.type Here, {.p 10384 }}, /* 10384 360 */- {.type There, {.p 360 }}, /* 10384 360 */- {.type Here, {.p 10384 }}, /* 10384 360 */- {.type There, {.p 360 }}, /* 10384 360 */- {.type Header, {.hdr { 14, "doublequotefd!", /* C_doublequotefd_store = 10408 */ colon }}}, /* CENTRY "doublequotefd!" doublequotefd_store 14 h 10416 */- {.type Here, {.p 10416 }}, /* 10416 360 */- {.type There, {.p 360 }}, /* 10416 360 */- {.type Here, {.p 10416 }}, /* 10416 360 */- {.type There, {.p 360 }}, /* 10416 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10424 */- {.type Here, {.p 10424 }}, /* 10424 360 */- {.type There, {.p 360 }}, /* 10424 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10432 */- {.type Here, {.p 10432 }}, /* 10432 360 */- {.type There, {.p 360 }}, /* 10432 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10440 */- {.type Here, {.p 10440 }}, /* 10440 360 */- {.type There, {.p 360 }}, /* 10440 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10448 */- {.type Here, {.p 10448 }}, /* 10448 360 */- {.type There, {.p 360 }}, /* 10448 360 */- {.type Here, {.p 10448 }}, /* 10448 360 */- {.type There, {.p 360 }}, /* 10448 360 */- {.type Header, {.hdr { 20, "doublequotefilename@", /* C_doublequotefilename_fetch = 10480 */ colon }}}, /* CENTRY "doublequotefilename@" doublequotefilename_fetch 20 h 10488 */- {.type Here, {.p 10488 }}, /* 10488 360 */- {.type There, {.p 360 }}, /* 10488 360 */- {.type Here, {.p 10488 }}, /* 10488 360 */- {.type There, {.p 360 }}, /* 10488 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10496 */- {.type Here, {.p 10496 }}, /* 10496 360 */- {.type There, {.p 360 }}, /* 10496 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10504 */- {.type Here, {.p 10504 }}, /* 10504 360 */- {.type There, {.p 360 }}, /* 10504 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10512 */- {.type Here, {.p 10512 }}, /* 10512 360 */- {.type There, {.p 360 }}, /* 10512 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10520 */- {.type Here, {.p 10520 }}, /* 10520 360 */- {.type There, {.p 360 }}, /* 10520 360 */- {.type Here, {.p 10520 }}, /* 10520 360 */- {.type There, {.p 360 }}, /* 10520 360 */- {.type Header, {.hdr { 20, "doublequotefilename!", /* C_doublequotefilename_store = 10552 */ colon }}}, /* CENTRY "doublequotefilename!" doublequotefilename_store 20 h 10560 */- {.type Here, {.p 10560 }}, /* 10560 360 */- {.type There, {.p 360 }}, /* 10560 360 */- {.type Here, {.p 10560 }}, /* 10560 360 */- {.type There, {.p 360 }}, /* 10560 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10568 */- {.type Here, {.p 10568 }}, /* 10568 360 */- {.type There, {.p 360 }}, /* 10568 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10576 */- {.type Here, {.p 10576 }}, /* 10576 360 */- {.type There, {.p 360 }}, /* 10576 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10584 */- {.type Here, {.p 10584 }}, /* 10584 360 */- {.type There, {.p 360 }}, /* 10584 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10592 */- {.type Here, {.p 10592 }}, /* 10592 360 */- {.type There, {.p 360 }}, /* 10592 360 */- {.type Here, {.p 10592 }}, /* 10592 360 */- {.type There, {.p 360 }}, /* 10592 360 */- {.type Header, {.hdr { 11, ">closeparen", /* C_tocloseparen = 10616 */ colon }}}, /* CENTRY ">closeparen" tocloseparen 11 ; ( 'Bufferfds -- 'Closeparenfd ) h 10624 */- {.type Here, {.p 10624 }}, /* 10624 360 */- {.type There, {.p 360 }}, /* 10624 360 */- {.type Here, {.p 10624 }}, /* 10624 360 */- {.type There, {.p 360 }}, /* 10624 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 10632 */- {.type Here, {.p 10632 }}, /* 10632 360 */- {.type There, {.p 360 }}, /* 10632 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 10640 */- {.type Here, {.p 10640 }}, /* 10640 360 */- {.type There, {.p 360 }}, /* 10640 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 10648 */- {.type Here, {.p 10648 }}, /* 10648 360 */- {.type There, {.p 360 }}, /* 10648 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10656 */- {.type Here, {.p 10656 }}, /* 10656 360 */- {.type There, {.p 360 }}, /* 10656 360 */- {.type Here, {.p 10656 }}, /* 10656 360 */- {.type There, {.p 360 }}, /* 10656 360 */- {.type Header, {.hdr { 13, "closeparenfd@", /* C_closeparenfd_fetch = 10680 */ colon }}}, /* CENTRY "closeparenfd@" closeparenfd_fetch 13 h 10688 */- {.type Here, {.p 10688 }}, /* 10688 360 */- {.type There, {.p 360 }}, /* 10688 360 */- {.type Here, {.p 10688 }}, /* 10688 360 */- {.type There, {.p 360 }}, /* 10688 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10696 */- {.type Here, {.p 10696 }}, /* 10696 360 */- {.type There, {.p 360 }}, /* 10696 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10704 */- {.type Here, {.p 10704 }}, /* 10704 360 */- {.type There, {.p 360 }}, /* 10704 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10712 */- {.type Here, {.p 10712 }}, /* 10712 360 */- {.type There, {.p 360 }}, /* 10712 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10720 */- {.type Here, {.p 10720 }}, /* 10720 360 */- {.type There, {.p 360 }}, /* 10720 360 */- {.type Here, {.p 10720 }}, /* 10720 360 */- {.type There, {.p 360 }}, /* 10720 360 */- {.type Header, {.hdr { 13, "closeparenfd!", /* C_closeparenfd_store = 10744 */ colon }}}, /* CENTRY "closeparenfd!" closeparenfd_store 13 h 10752 */- {.type Here, {.p 10752 }}, /* 10752 360 */- {.type There, {.p 360 }}, /* 10752 360 */- {.type Here, {.p 10752 }}, /* 10752 360 */- {.type There, {.p 360 }}, /* 10752 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10760 */- {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10768 */- {.type Here, {.p 10768 }}, /* 10768 360 */- {.type There, {.p 360 }}, /* 10768 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10776 */- {.type Here, {.p 10776 }}, /* 10776 360 */- {.type There, {.p 360 }}, /* 10776 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10784 */- {.type Here, {.p 10784 }}, /* 10784 360 */- {.type There, {.p 360 }}, /* 10784 360 */- {.type Here, {.p 10784 }}, /* 10784 360 */- {.type There, {.p 360 }}, /* 10784 360 */- {.type Header, {.hdr { 19, "closeparenfilename@", /* C_closeparenfilename_fetch = 10816 */ colon }}}, /* CENTRY "closeparenfilename@" closeparenfilename_fetch 19 h 10824 */- {.type Here, {.p 10824 }}, /* 10824 360 */- {.type There, {.p 360 }}, /* 10824 360 */- {.type Here, {.p 10824 }}, /* 10824 360 */- {.type There, {.p 360 }}, /* 10824 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10832 */- {.type Here, {.p 10832 }}, /* 10832 360 */- {.type There, {.p 360 }}, /* 10832 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10840 */- {.type Here, {.p 10840 }}, /* 10840 360 */- {.type There, {.p 360 }}, /* 10840 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10848 */- {.type Here, {.p 10848 }}, /* 10848 360 */- {.type There, {.p 360 }}, /* 10848 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10856 */- {.type Here, {.p 10856 }}, /* 10856 360 */- {.type There, {.p 360 }}, /* 10856 360 */- {.type Here, {.p 10856 }}, /* 10856 360 */- {.type There, {.p 360 }}, /* 10856 360 */- {.type Header, {.hdr { 19, "closeparenfilename!", /* C_closeparenfilename_store = 10888 */ colon }}}, /* CENTRY "closeparenfilename!" closeparenfilename_store 19 h 10896 */- {.type Here, {.p 10896 }}, /* 10896 360 */- {.type There, {.p 360 }}, /* 10896 360 */- {.type Here, {.p 10896 }}, /* 10896 360 */- {.type There, {.p 360 }}, /* 10896 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10904 */- {.type Here, {.p 10904 }}, /* 10904 360 */- {.type There, {.p 360 }}, /* 10904 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10912 */- {.type Here, {.p 10912 }}, /* 10912 360 */- {.type There, {.p 360 }}, /* 10912 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10920 */- {.type Here, {.p 10920 }}, /* 10920 360 */- {.type There, {.p 360 }}, /* 10920 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10928 */- {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */- {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */-/* ; stdinput : set all buffer fd's to -1, Infd = stdin */ {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */-/* ; args : set all buffer fd's to -1, Infd = #p/<pid>/args */ {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */-/* ; input@ : buffer fds and Infd -> stack */ {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */-/* ; input! : stack -> buffer fds and Infd */ {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */-/* ; -input : close all buffer fds and Infd, set buffer fds to -1 */ {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */-/* ; buffer file names are setup in boot */ {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */- {.type Here, {.p 10928 }}, /* 10928 360 */- {.type There, {.p 360 }}, /* 10928 360 */- {.type Header, {.hdr { 8, "stdinput", /* C_stdinput = 10952 */ colon }}}, /* CENTRY "stdinput" stdinput 8 ; stream input from stdin into Text input buffer h 10960 */- {.type Here, {.p 10960 }}, /* 10960 360 */- {.type There, {.p 360 }}, /* 10960 360 */- {.type Here, {.p 10960 }}, /* 10960 360 */- {.type There, {.p 360 }}, /* 10960 360 */- {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 10968 */- {.type Here, {.p 10968 }}, /* 10968 360 */- {.type There, {.p 360 }}, /* 10968 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 10976 */- {.type Here, {.p 10976 }}, /* 10976 360 */- {.type There, {.p 360 }}, /* 10976 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10984 */- {.type Here, {.p 10984 }}, /* 10984 360 */- {.type There, {.p 360 }}, /* 10984 360 */- {.type Here, {.p 10984 }}, /* 10984 360 */- {.type There, {.p 360 }}, /* 10984 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10992 */- {.type Here, {.p 10992 }}, /* 10992 360 */- {.type There, {.p 360 }}, /* 10992 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11000 */- {.type Here, {.p 11000 }}, /* 11000 360 */- {.type There, {.p 360 }}, /* 11000 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11008 */- {.type Here, {.p 11008 }}, /* 11008 360 */- {.type There, {.p 360 }}, /* 11008 360 */- {.type Absolute, {.p 0}}, /* dd 0 11016 */- {.type Here, {.p 11016 }}, /* 11016 360 */- {.type There, {.p 360 }}, /* 11016 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11024 */- {.type Here, {.p 11024 }}, /* 11024 360 */- {.type There, {.p 360 }}, /* 11024 360 */- {.type Here, {.p 11024 }}, /* 11024 360 */- {.type There, {.p 360 }}, /* 11024 360 */- {.type Here, {.p 11024 }}, /* 11024 360 */- {.type There, {.p 360 }}, /* 11024 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11032 */- {.type Here, {.p 11032 }}, /* 11032 360 */- {.type There, {.p 360 }}, /* 11032 360 */- {.type Absolute, {.p -1}}, /* dd -1 11040 */- {.type Here, {.p 11040 }}, /* 11040 360 */- {.type There, {.p 360 }}, /* 11040 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( 'Bufferfd -1 'Bufferfd )"}, /* dd M_over ; ( 'Bufferfd -1 'Bufferfd ) 11048 */- {.type Here, {.p 11048 }}, /* 11048 360 */- {.type There, {.p 360 }}, /* 11048 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11056 */- {.type Here, {.p 11056 }}, /* 11056 360 */- {.type There, {.p 360 }}, /* 11056 360 */- {.type Here, {.p 11056 }}, /* 11056 360 */- {.type There, {.p 360 }}, /* 11056 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11064 */- {.type Here, {.p 11064 }}, /* 11064 360 */- {.type There, {.p 360 }}, /* 11064 360 */- {.type Absolute, {.p 1}}, /* dd 1 11072 */- {.type Here, {.p 11072 }}, /* 11072 360 */- {.type There, {.p 360 }}, /* 11072 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11080 */- {.type Here, {.p 11080 }}, /* 11080 360 */- {.type There, {.p 360 }}, /* 11080 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11088 */- {.type Here, {.p 11088 }}, /* 11088 360 */- {.type There, {.p 360 }}, /* 11088 360 */- {.type Here, {.p 11088 }}, /* 11088 360 */- {.type There, {.p 360 }}, /* 11088 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11096 */- {.type Here, {.p 11096 }}, /* 11096 360 */- {.type There, {.p 360 }}, /* 11096 360 */- {.type FromDictionary, {.p L_C_stdinput}, .src = "dd L_C_stdinput"}, /* dd L_C_stdinput 11104 */- {.type Here, {.p 11104 }}, /* 11104 360 */- {.type There, {.p 360 }}, /* 11104 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11112 */- {.type Here, {.p 11112 }}, /* 11112 360 */- {.type There, {.p 360 }}, /* 11112 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11120 */- {.type Here, {.p 11120 }}, /* 11120 360 */- {.type There, {.p 360 }}, /* 11120 360 */- {.type Here, {.p 11120 }}, /* 11120 360 */- {.type There, {.p 360 }}, /* 11120 360 */- {.type Header, {.hdr { 4, "args", /* C_args = 11136 */ colon }}}, /* CENTRY "args" args 4 ; stream input from #p/<pid>/args into Text input buffer h 11144 */- {.type Here, {.p 11144 }}, /* 11144 360 */- {.type There, {.p 360 }}, /* 11144 360 */- {.type Here, {.p 11144 }}, /* 11144 360 */- {.type There, {.p 360 }}, /* 11144 360 */- {.type FromDictionary, {.p MV_Argsfilename}, .src = "dd MV_Argsfilename ; ( 'args_filename_counted_string ) filled by the starter"}, /* dd MV_Argsfilename ; ( 'args_filename_counted_string ) filled by the starter 11152 */- {.type Here, {.p 11152 }}, /* 11152 360 */- {.type There, {.p 360 }}, /* 11152 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 11160 */- {.type Here, {.p 11160 }}, /* 11160 360 */- {.type There, {.p 360 }}, /* 11160 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11168 */- {.type Here, {.p 11168 }}, /* 11168 360 */- {.type There, {.p 360 }}, /* 11168 360 */- {.type Absolute, {.p 0}}, /* dd 0 11176 */- {.type Here, {.p 11176 }}, /* 11176 360 */- {.type There, {.p 360 }}, /* 11176 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 11184 */- {.type Here, {.p 11184 }}, /* 11184 360 */- {.type There, {.p 360 }}, /* 11184 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11192 */- {.type Here, {.p 11192 }}, /* 11192 360 */- {.type There, {.p 360 }}, /* 11192 360 */- {.type FromDictionary, {.p L_C_args_read}, .src = "dd L_C_args_read"}, /* dd L_C_args_read 11200 */- {.type Here, {.p 11200 }}, /* 11200 360 */- {.type There, {.p 360 }}, /* 11200 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11208 */- {.type Here, {.p 11208 }}, /* 11208 360 */- {.type There, {.p 360 }}, /* 11208 360 */- {.type Here, {.p 11208 }}, /* 11208 360 */- {.type There, {.p 360 }}, /* 11208 360 */- {.type Here, {.p 11208 }}, /* 11208 360 */- {.type There, {.p 360 }}, /* 11208 360 */- {.type FromDictionary, {.p MV_Argsfilename}, .src = "dd MV_Argsfilename"}, /* dd MV_Argsfilename 11216 */- {.type Here, {.p 11216 }}, /* 11216 360 */- {.type There, {.p 360 }}, /* 11216 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 11224 */- {.type Here, {.p 11224 }}, /* 11224 360 */- {.type There, {.p 360 }}, /* 11224 360 */- {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 11232 */- {.type Here, {.p 11232 }}, /* 11232 360 */- {.type There, {.p 360 }}, /* 11232 360 */- {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 11240 */- {.type Here, {.p 11240 }}, /* 11240 360 */- {.type There, {.p 360 }}, /* 11240 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11248 */- {.type Here, {.p 11248 }}, /* 11248 360 */- {.type There, {.p 360 }}, /* 11248 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11256 */- {.type Here, {.p 11256 }}, /* 11256 360 */- {.type There, {.p 360 }}, /* 11256 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11264 */- {.type Here, {.p 11264 }}, /* 11264 360 */- {.type There, {.p 360 }}, /* 11264 360 */- {.type Here, {.p 11264 }}, /* 11264 360 */- {.type There, {.p 360 }}, /* 11264 360 */- {.type FromDictionary, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 11272 */- {.type Here, {.p 11272 }}, /* 11272 360 */- {.type There, {.p 360 }}, /* 11272 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11280 */- {.type Here, {.p 11280 }}, /* 11280 360 */- {.type There, {.p 360 }}, /* 11280 360 */- {.type Here, {.p 11280 }}, /* 11280 360 */- {.type There, {.p 360 }}, /* 11280 360 */- {.type Header, {.hdr { 6, "input@", /* C_input_fetch = 11296 */ colon }}}, /* CENTRY "input@" input_fetch 6 ; ( -- Bufferfds Infd #Buffers+1 ) save input stream onto the stack and replace the buffer fd's with -1 h 11304 */- {.type Here, {.p 11304 }}, /* 11304 360 */- {.type There, {.p 360 }}, /* 11304 360 */- {.type Here, {.p 11304 }}, /* 11304 360 */- {.type There, {.p 360 }}, /* 11304 360 */- {.type Here, {.p 11304 }}, /* 11304 360 */- {.type There, {.p 360 }}, /* 11304 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11312 */- {.type Here, {.p 11312 }}, /* 11312 360 */- {.type There, {.p 360 }}, /* 11312 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11320 */- {.type Here, {.p 11320 }}, /* 11320 360 */- {.type There, {.p 360 }}, /* 11320 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11328 */- {.type Here, {.p 11328 }}, /* 11328 360 */- {.type There, {.p 360 }}, /* 11328 360 */- {.type Absolute, {.p 0}}, /* dd 0 11336 */- {.type Here, {.p 11336 }}, /* 11336 360 */- {.type There, {.p 360 }}, /* 11336 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11344 */- {.type Here, {.p 11344 }}, /* 11344 360 */- {.type There, {.p 360 }}, /* 11344 360 */- {.type Here, {.p 11344 }}, /* 11344 360 */- {.type There, {.p 360 }}, /* 11344 360 */- {.type Here, {.p 11344 }}, /* 11344 360 */- {.type There, {.p 360 }}, /* 11344 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11352 */- {.type Here, {.p 11352 }}, /* 11352 360 */- {.type There, {.p 360 }}, /* 11352 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11360 */- {.type Here, {.p 11360 }}, /* 11360 360 */- {.type There, {.p 360 }}, /* 11360 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( fd 'Bufferfd )"}, /* dd M_xswap ; ( fd 'Bufferfd ) 11368 */- {.type Here, {.p 11368 }}, /* 11368 360 */- {.type There, {.p 360 }}, /* 11368 360 */- {.type Here, {.p 11368 }}, /* 11368 360 */- {.type There, {.p 360 }}, /* 11368 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11376 */- {.type Here, {.p 11376 }}, /* 11376 360 */- {.type There, {.p 360 }}, /* 11376 360 */- {.type Absolute, {.p -1}}, /* dd -1 11384 */- {.type Here, {.p 11384 }}, /* 11384 360 */- {.type There, {.p 360 }}, /* 11384 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( fd 'Bufferfd -1 'Bufferfd )"}, /* dd M_over ; ( fd 'Bufferfd -1 'Bufferfd ) 11392 */- {.type Here, {.p 11392 }}, /* 11392 360 */- {.type There, {.p 360 }}, /* 11392 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( fd 'Bufferfd )"}, /* dd M_store ; ( fd 'Bufferfd ) 11400 */- {.type Here, {.p 11400 }}, /* 11400 360 */- {.type There, {.p 360 }}, /* 11400 360 */- {.type Here, {.p 11400 }}, /* 11400 360 */- {.type There, {.p 360 }}, /* 11400 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11408 */- {.type Here, {.p 11408 }}, /* 11408 360 */- {.type There, {.p 360 }}, /* 11408 360 */- {.type Absolute, {.p 1}}, /* dd 1 11416 */- {.type Here, {.p 11416 }}, /* 11416 360 */- {.type There, {.p 360 }}, /* 11416 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11424 */- {.type Here, {.p 11424 }}, /* 11424 360 */- {.type There, {.p 360 }}, /* 11424 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11432 */- {.type Here, {.p 11432 }}, /* 11432 360 */- {.type There, {.p 360 }}, /* 11432 360 */- {.type Here, {.p 11432 }}, /* 11432 360 */- {.type There, {.p 360 }}, /* 11432 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11440 */- {.type Here, {.p 11440 }}, /* 11440 360 */- {.type There, {.p 360 }}, /* 11440 360 */- {.type FromDictionary, {.p L_C_input_fetch}, .src = "dd L_C_input_fetch"}, /* dd L_C_input_fetch 11448 */- {.type Here, {.p 11448 }}, /* 11448 360 */- {.type There, {.p 360 }}, /* 11448 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( fd0 fd1 .. fdn )"}, /* dd M_drop ; ( fd0 fd1 .. fdn ) 11456 */- {.type Here, {.p 11456 }}, /* 11456 360 */- {.type There, {.p 360 }}, /* 11456 360 */- {.type Here, {.p 11456 }}, /* 11456 360 */- {.type There, {.p 360 }}, /* 11456 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11464 */- {.type Here, {.p 11464 }}, /* 11464 360 */- {.type There, {.p 360 }}, /* 11464 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( fd0 fd1 .. fdn infd )"}, /* dd M_fetch ; ( fd0 fd1 .. fdn infd ) 11472 */- {.type Here, {.p 11472 }}, /* 11472 360 */- {.type There, {.p 360 }}, /* 11472 360 */- {.type Here, {.p 11472 }}, /* 11472 360 */- {.type There, {.p 360 }}, /* 11472 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11480 */- {.type Here, {.p 11480 }}, /* 11480 360 */- {.type There, {.p 360 }}, /* 11480 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11488 */- {.type Here, {.p 11488 }}, /* 11488 360 */- {.type There, {.p 360 }}, /* 11488 360 */- {.type Absolute, {.p 1}}, /* dd 1 11496 */- {.type Here, {.p 11496 }}, /* 11496 360 */- {.type There, {.p 360 }}, /* 11496 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( fd0 fd1 .. fdn infd n+1 )"}, /* dd M_plus ; ( fd0 fd1 .. fdn infd n+1 ) 11504 */- {.type Here, {.p 11504 }}, /* 11504 360 */- {.type There, {.p 360 }}, /* 11504 360 */- {.type Here, {.p 11504 }}, /* 11504 360 */- {.type There, {.p 360 }}, /* 11504 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11512 */- {.type Here, {.p 11512 }}, /* 11512 360 */- {.type There, {.p 360 }}, /* 11512 360 */- {.type Here, {.p 11512 }}, /* 11512 360 */- {.type There, {.p 360 }}, /* 11512 360 */- {.type Here, {.p 11512 }}, /* 11512 360 */- {.type There, {.p 360 }}, /* 11512 360 */- {.type Header, {.hdr { 6, "input!", /* C_input_store = 11528 */ colon }}}, /* CENTRY "input!" input_store 6 ; ( fd0 fd1 .. fdn infd n+1 | empty -- ) restore input stream from the stack or stdinput h 11536 */- {.type Here, {.p 11536 }}, /* 11536 360 */- {.type There, {.p 360 }}, /* 11536 360 */- {.type Here, {.p 11536 }}, /* 11536 360 */- {.type There, {.p 360 }}, /* 11536 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; check if there is #Buffers+1 on the top of stack"}, /* dd M_dup ; check if there is #Buffers+1 on the top of stack 11544 */- {.type Here, {.p 11544 }}, /* 11544 360 */- {.type There, {.p 360 }}, /* 11544 360 */- {.type Here, {.p 11544 }}, /* 11544 360 */- {.type There, {.p 360 }}, /* 11544 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11552 */- {.type Here, {.p 11552 }}, /* 11552 360 */- {.type There, {.p 360 }}, /* 11552 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11560 */- {.type Here, {.p 11560 }}, /* 11560 360 */- {.type There, {.p 360 }}, /* 11560 360 */- {.type Absolute, {.p 1}}, /* dd 1 11568 */- {.type Here, {.p 11568 }}, /* 11568 360 */- {.type There, {.p 360 }}, /* 11568 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11576 */- {.type Here, {.p 11576 }}, /* 11576 360 */- {.type There, {.p 360 }}, /* 11576 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal ; is the top of stack == #Buffers+1"}, /* dd M_equal ; is the top of stack == #Buffers+1 11584 */- {.type Here, {.p 11584 }}, /* 11584 360 */- {.type There, {.p 360 }}, /* 11584 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11592 */- {.type Here, {.p 11592 }}, /* 11592 360 */- {.type There, {.p 360 }}, /* 11592 360 */- {.type FromDictionary, {.p L_C_input_store_1}, .src = "dd L_C_input_store_1 ; top of stack <> #Buffers+1, there is no input stream on the stack, use the default input"}, /* dd L_C_input_store_1 ; top of stack <> #Buffers+1, there is no input stream on the stack, use the default input 11600 */- {.type Here, {.p 11600 }}, /* 11600 360 */- {.type There, {.p 360 }}, /* 11600 360 */- {.type Here, {.p 11600 }}, /* 11600 360 */- {.type There, {.p 360 }}, /* 11600 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the #Buffers+1 on the top of stack"}, /* dd M_drop ; drop the #Buffers+1 on the top of stack 11608 */- {.type Here, {.p 11608 }}, /* 11608 360 */- {.type There, {.p 360 }}, /* 11608 360 */- {.type Here, {.p 11608 }}, /* 11608 360 */- {.type There, {.p 360 }}, /* 11608 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11616 */- {.type Here, {.p 11616 }}, /* 11616 360 */- {.type There, {.p 360 }}, /* 11616 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( fd0 fd1 .. fdn )"}, /* dd M_store ; ( fd0 fd1 .. fdn ) 11624 */- {.type Here, {.p 11624 }}, /* 11624 360 */- {.type There, {.p 360 }}, /* 11624 360 */- {.type Here, {.p 11624 }}, /* 11624 360 */- {.type There, {.p 360 }}, /* 11624 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11632 */- {.type Here, {.p 11632 }}, /* 11632 360 */- {.type There, {.p 360 }}, /* 11632 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11640 */- {.type Here, {.p 11640 }}, /* 11640 360 */- {.type There, {.p 360 }}, /* 11640 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11648 */- {.type Here, {.p 11648 }}, /* 11648 360 */- {.type There, {.p 360 }}, /* 11648 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( fd0 fd1 .. fdn 'Bufferfds+(NBUFFERS*cellsize) )"}, /* dd M_plus ; ( fd0 fd1 .. fdn 'Bufferfds+(NBUFFERS*cellsize) ) 11656 */- {.type Here, {.p 11656 }}, /* 11656 360 */- {.type There, {.p 360 }}, /* 11656 360 */- {.type Here, {.p 11656 }}, /* 11656 360 */- {.type There, {.p 360 }}, /* 11656 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11664 */- {.type Here, {.p 11664 }}, /* 11664 360 */- {.type There, {.p 360 }}, /* 11664 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11672 */- {.type Here, {.p 11672 }}, /* 11672 360 */- {.type There, {.p 360 }}, /* 11672 360 */- {.type Absolute, {.p 0}}, /* dd 0 11680 */- {.type Here, {.p 11680 }}, /* 11680 360 */- {.type There, {.p 360 }}, /* 11680 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11688 */- {.type Here, {.p 11688 }}, /* 11688 360 */- {.type There, {.p 360 }}, /* 11688 360 */- {.type Here, {.p 11688 }}, /* 11688 360 */- {.type There, {.p 360 }}, /* 11688 360 */- {.type Here, {.p 11688 }}, /* 11688 360 */- {.type There, {.p 360 }}, /* 11688 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11696 */- {.type Here, {.p 11696 }}, /* 11696 360 */- {.type There, {.p 360 }}, /* 11696 360 */- {.type Absolute, {.p 1}}, /* dd 1 11704 */- {.type Here, {.p 11704 }}, /* 11704 360 */- {.type There, {.p 360 }}, /* 11704 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11712 */- {.type Here, {.p 11712 }}, /* 11712 360 */- {.type There, {.p 360 }}, /* 11712 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) )"}, /* dd M_minus ; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) ) 11720 */- {.type Here, {.p 11720 }}, /* 11720 360 */- {.type There, {.p 360 }}, /* 11720 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) 'Bufferfds-(1*cellsize) )"}, /* dd M_dup ; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) 'Bufferfds-(1*cellsize) ) 11728 */- {.type Here, {.p 11728 }}, /* 11728 360 */- {.type There, {.p 360 }}, /* 11728 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) ) (R 'Bufferfds-(1*cellsize) )"}, /* dd M_rpush ; ( fd0 fd1 .. fdn 'Bufferfds-(1*cellsize) ) (R 'Bufferfds-(1*cellsize) ) 11736 */- {.type Here, {.p 11736 }}, /* 11736 360 */- {.type There, {.p 360 }}, /* 11736 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11744 */- {.type Here, {.p 11744 }}, /* 11744 360 */- {.type There, {.p 360 }}, /* 11744 360 */- {.type Here, {.p 11744 }}, /* 11744 360 */- {.type There, {.p 360 }}, /* 11744 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( fd0 fd1 .. fdn-1 'Bufferfds-(1*cellsize) )"}, /* dd M_rpop ; ( fd0 fd1 .. fdn-1 'Bufferfds-(1*cellsize) ) 11752 */- {.type Here, {.p 11752 }}, /* 11752 360 */- {.type There, {.p 360 }}, /* 11752 360 */- {.type Here, {.p 11752 }}, /* 11752 360 */- {.type There, {.p 360 }}, /* 11752 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11760 */- {.type Here, {.p 11760 }}, /* 11760 360 */- {.type There, {.p 360 }}, /* 11760 360 */- {.type FromDictionary, {.p L_C_input_store}, .src = "dd L_C_input_store"}, /* dd L_C_input_store 11768 */- {.type Here, {.p 11768 }}, /* 11768 360 */- {.type There, {.p 360 }}, /* 11768 360 */- {.type Here, {.p 11768 }}, /* 11768 360 */- {.type There, {.p 360 }}, /* 11768 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11776 */- {.type Here, {.p 11776 }}, /* 11776 360 */- {.type There, {.p 360 }}, /* 11776 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; reset Eof back to 0"}, /* dd C_off ; reset Eof back to 0 11784 */- {.type Here, {.p 11784 }}, /* 11784 360 */- {.type There, {.p 360 }}, /* 11784 360 */- {.type Here, {.p 11784 }}, /* 11784 360 */- {.type There, {.p 360 }}, /* 11784 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true ; ( true )"}, /* dd C_true ; ( true ) 11792 */- {.type Here, {.p 11792 }}, /* 11792 360 */- {.type There, {.p 360 }}, /* 11792 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11800 */- {.type Here, {.p 11800 }}, /* 11800 360 */- {.type There, {.p 360 }}, /* 11800 360 */- {.type Here, {.p 11800 }}, /* 11800 360 */- {.type There, {.p 360 }}, /* 11800 360 */- {.type Here, {.p 11800 }}, /* 11800 360 */- {.type There, {.p 360 }}, /* 11800 360 */- {.type FromDictionary, {.p C_stdinput}, .src = "dd C_stdinput ; no input stream on the stack, use default input from now"}, /* dd C_stdinput ; no input stream on the stack, use default input from now 11808 */- {.type Here, {.p 11808 }}, /* 11808 360 */- {.type There, {.p 360 }}, /* 11808 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false ; ( 0 )"}, /* dd C_false ; ( 0 ) 11816 */- {.type Here, {.p 11816 }}, /* 11816 360 */- {.type There, {.p 360 }}, /* 11816 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11824 */- {.type Here, {.p 11824 }}, /* 11824 360 */- {.type There, {.p 360 }}, /* 11824 360 */- {.type Here, {.p 11824 }}, /* 11824 360 */- {.type There, {.p 360 }}, /* 11824 360 */-/* ; closefds: close all buffer fds and Infd, set buffer fds and Infd to -1 */ {.type Here, {.p 11824 }}, /* 11824 360 */- {.type There, {.p 360 }}, /* 11824 360 */- {.type Header, {.hdr { 6, "-input", /* C_close_input = 11840 */ colon }}}, /* CENTRY "-input" close_input 6 ; ( ) ; close the current input stream h 11848 */- {.type Here, {.p 11848 }}, /* 11848 360 */- {.type There, {.p 360 }}, /* 11848 360 */- {.type Here, {.p 11848 }}, /* 11848 360 */- {.type There, {.p 360 }}, /* 11848 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11856 */- {.type Here, {.p 11856 }}, /* 11856 360 */- {.type There, {.p 360 }}, /* 11856 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11864 */- {.type Here, {.p 11864 }}, /* 11864 360 */- {.type There, {.p 360 }}, /* 11864 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11872 */- {.type Here, {.p 11872 }}, /* 11872 360 */- {.type There, {.p 360 }}, /* 11872 360 */- {.type Absolute, {.p 0}}, /* dd 0 11880 */- {.type Here, {.p 11880 }}, /* 11880 360 */- {.type There, {.p 360 }}, /* 11880 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11888 */- {.type Here, {.p 11888 }}, /* 11888 360 */- {.type There, {.p 360 }}, /* 11888 360 */- {.type Here, {.p 11888 }}, /* 11888 360 */- {.type There, {.p 360 }}, /* 11888 360 */- {.type Here, {.p 11888 }}, /* 11888 360 */- {.type There, {.p 360 }}, /* 11888 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11896 */- {.type Here, {.p 11896 }}, /* 11896 360 */- {.type There, {.p 360 }}, /* 11896 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11904 */- {.type Here, {.p 11904 }}, /* 11904 360 */- {.type There, {.p 360 }}, /* 11904 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11912 */- {.type Here, {.p 11912 }}, /* 11912 360 */- {.type There, {.p 360 }}, /* 11912 360 */- {.type Absolute, {.p -1}}, /* dd -1 11920 */- {.type Here, {.p 11920 }}, /* 11920 360 */- {.type There, {.p 360 }}, /* 11920 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 11928 */- {.type Here, {.p 11928 }}, /* 11928 360 */- {.type There, {.p 360 }}, /* 11928 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11936 */- {.type Here, {.p 11936 }}, /* 11936 360 */- {.type There, {.p 360 }}, /* 11936 360 */- {.type FromDictionary, {.p L_C_close_next}, .src = "dd L_C_close_next ; == -1, check next fd"}, /* dd L_C_close_next ; == -1, check next fd 11944 */- {.type Here, {.p 11944 }}, /* 11944 360 */- {.type There, {.p 360 }}, /* 11944 360 */- {.type Here, {.p 11944 }}, /* 11944 360 */- {.type There, {.p 360 }}, /* 11944 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11952 */- {.type Here, {.p 11952 }}, /* 11952 360 */- {.type There, {.p 360 }}, /* 11952 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( 'Bufferfd fd )"}, /* dd M_fetch ; ( 'Bufferfd fd ) 11960 */- {.type Here, {.p 11960 }}, /* 11960 360 */- {.type There, {.p 360 }}, /* 11960 360 */- {.type FromDictionary, {.p C_close_file}, .src = "dd C_close_file ; ( 'Bufferfd ioresult )"}, /* dd C_close_file ; ( 'Bufferfd ioresult ) 11968 */- {.type Here, {.p 11968 }}, /* 11968 360 */- {.type There, {.p 360 }}, /* 11968 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( 'Bufferfd )"}, /* dd M_drop ; ( 'Bufferfd ) 11976 */- {.type Here, {.p 11976 }}, /* 11976 360 */- {.type There, {.p 360 }}, /* 11976 360 */- {.type Here, {.p 11976 }}, /* 11976 360 */- {.type There, {.p 360 }}, /* 11976 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11984 */- {.type Here, {.p 11984 }}, /* 11984 360 */- {.type There, {.p 360 }}, /* 11984 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11992 */- {.type Here, {.p 11992 }}, /* 11992 360 */- {.type There, {.p 360 }}, /* 11992 360 */- {.type Absolute, {.p -1}}, /* dd -1 12000 */- {.type Here, {.p 12000 }}, /* 12000 360 */- {.type There, {.p 360 }}, /* 12000 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Bufferfd -1 'Bufferfd )"}, /* dd M_xswap ; ( 'Bufferfd -1 'Bufferfd ) 12008 */- {.type Here, {.p 12008 }}, /* 12008 360 */- {.type There, {.p 360 }}, /* 12008 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( 'Bufferfd )"}, /* dd M_store ; ( 'Bufferfd ) 12016 */- {.type Here, {.p 12016 }}, /* 12016 360 */- {.type There, {.p 360 }}, /* 12016 360 */- {.type Here, {.p 12016 }}, /* 12016 360 */- {.type There, {.p 360 }}, /* 12016 360 */- {.type Here, {.p 12016 }}, /* 12016 360 */- {.type There, {.p 360 }}, /* 12016 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12024 */- {.type Here, {.p 12024 }}, /* 12024 360 */- {.type There, {.p 360 }}, /* 12024 360 */- {.type Absolute, {.p 1}}, /* dd 1 12032 */- {.type Here, {.p 12032 }}, /* 12032 360 */- {.type There, {.p 360 }}, /* 12032 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 12040 */- {.type Here, {.p 12040 }}, /* 12040 360 */- {.type There, {.p 360 }}, /* 12040 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 12048 */- {.type Here, {.p 12048 }}, /* 12048 360 */- {.type There, {.p 360 }}, /* 12048 360 */- {.type Here, {.p 12048 }}, /* 12048 360 */- {.type There, {.p 360 }}, /* 12048 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 12056 */- {.type Here, {.p 12056 }}, /* 12056 360 */- {.type There, {.p 360 }}, /* 12056 360 */- {.type FromDictionary, {.p L_C_close_input}, .src = "dd L_C_close_input"}, /* dd L_C_close_input 12064 */- {.type Here, {.p 12064 }}, /* 12064 360 */- {.type There, {.p 360 }}, /* 12064 360 */- {.type Here, {.p 12064 }}, /* 12064 360 */- {.type There, {.p 360 }}, /* 12064 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 12072 */- {.type Here, {.p 12072 }}, /* 12072 360 */- {.type There, {.p 360 }}, /* 12072 360 */- {.type Here, {.p 12072 }}, /* 12072 360 */- {.type There, {.p 360 }}, /* 12072 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12080 */- {.type Here, {.p 12080 }}, /* 12080 360 */- {.type There, {.p 360 }}, /* 12080 360 */- {.type Absolute, {.p -1}}, /* dd -1 12088 */- {.type Here, {.p 12088 }}, /* 12088 360 */- {.type There, {.p 360 }}, /* 12088 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd ; ( -1 'Infd )"}, /* dd MV_Infd ; ( -1 'Infd ) 12096 */- {.type Here, {.p 12096 }}, /* 12096 360 */- {.type There, {.p 360 }}, /* 12096 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( -1 'Infd 'Infd )"}, /* dd M_dup ; ( -1 'Infd 'Infd ) 12104 */- {.type Here, {.p 12104 }}, /* 12104 360 */- {.type There, {.p 360 }}, /* 12104 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( -1 'Infd fd )"}, /* dd M_fetch ; ( -1 'Infd fd ) 12112 */- {.type Here, {.p 12112 }}, /* 12112 360 */- {.type There, {.p 360 }}, /* 12112 360 */- {.type FromDictionary, {.p C_close_file}, .src = "dd C_close_file ; ( -1 'Infd ioresult )"}, /* dd C_close_file ; ( -1 'Infd ioresult ) 12120 */- {.type Here, {.p 12120 }}, /* 12120 360 */- {.type There, {.p 360 }}, /* 12120 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( -1 'Infd )"}, /* dd M_drop ; ( -1 'Infd ) 12128 */- {.type Here, {.p 12128 }}, /* 12128 360 */- {.type There, {.p 360 }}, /* 12128 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 12136 */- {.type Here, {.p 12136 }}, /* 12136 360 */- {.type There, {.p 360 }}, /* 12136 360 */- {.type Here, {.p 12136 }}, /* 12136 360 */- {.type There, {.p 360 }}, /* 12136 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 12144 */- {.type Here, {.p 12144 }}, /* 12144 360 */- {.type There, {.p 360 }}, /* 12144 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; reset Eof back to 0"}, /* dd C_off ; reset Eof back to 0 12152 */- {.type Here, {.p 12152 }}, /* 12152 360 */- {.type There, {.p 360 }}, /* 12152 360 */- {.type Here, {.p 12152 }}, /* 12152 360 */- {.type There, {.p 360 }}, /* 12152 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12160 */- {.type Here, {.p 12160 }}, /* 12160 360 */- {.type There, {.p 360 }}, /* 12160 360 */- {.type Here, {.p 12160 }}, /* 12160 360 */- {.type There, {.p 360 }}, /* 12160 360 */- {.type Header, {.hdr { 7, "-+input", /* C_restore_input = 12176 */ colon }}}, /* CENTRY "-+input" restore_input 7 ; ( <input> -- ) ; use the input stream on the stack or abort h 12184 */- {.type Here, {.p 12184 }}, /* 12184 360 */- {.type There, {.p 360 }}, /* 12184 360 */- {.type Here, {.p 12184 }}, /* 12184 360 */- {.type There, {.p 360 }}, /* 12184 360 */- {.type FromDictionary, {.p C_close_input}, .src = "dd C_close_input"}, /* dd C_close_input 12192 */- {.type Here, {.p 12192 }}, /* 12192 360 */- {.type There, {.p 360 }}, /* 12192 360 */- {.type Here, {.p 12192 }}, /* 12192 360 */- {.type There, {.p 360 }}, /* 12192 360 */- {.type FromDictionary, {.p C_input_store}, .src = "dd C_input_store"}, /* dd C_input_store 12200 */- {.type Here, {.p 12200 }}, /* 12200 360 */- {.type There, {.p 360 }}, /* 12200 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 12208 */- {.type Here, {.p 12208 }}, /* 12208 360 */- {.type There, {.p 360 }}, /* 12208 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12216 */- {.type Here, {.p 12216 }}, /* 12216 360 */- {.type There, {.p 360 }}, /* 12216 360 */- {.type FromDictionary, {.p L_restore_input}, .src = "dd L_restore_input ; input stream restored"}, /* dd L_restore_input ; input stream restored 12224 */- {.type Here, {.p 12224 }}, /* 12224 360 */- {.type There, {.p 360 }}, /* 12224 360 */- {.type Here, {.p 12224 }}, /* 12224 360 */- {.type There, {.p 360 }}, /* 12224 360 */-/* ; no input stream on the stack to restore, show error and abort */ {.type Here, {.p 12224 }}, /* 12224 360 */- {.type There, {.p 360 }}, /* 12224 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12232 */- {.type Here, {.p 12232 }}, /* 12232 360 */- {.type There, {.p 360 }}, /* 12232 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12240 */- {.type Here, {.p 12240 }}, /* 12240 360 */- {.type There, {.p 360 }}, /* 12240 360 */- {.type FromDictionary, {.p L137}, .src = "dd L137"}, /* dd L137 12248 */- {.type Here, {.p 12248 }}, /* 12248 360 */- {.type There, {.p 360 }}, /* 12248 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12256 */- {.type Here, {.p 12256 }}, /* 12256 360 */- {.type There, {.p 360 }}, /* 12256 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12264 */- {.type Here, {.p 12264 }}, /* 12264 360 */- {.type There, {.p 360 }}, /* 12264 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12272 */- {.type Here, {.p 12272 }}, /* 12272 360 */- {.type There, {.p 360 }}, /* 12272 360 */- {.type FromDictionary, {.p C_depth}, .src = "dd C_depth"}, /* dd C_depth 12280 */- {.type Here, {.p 12280 }}, /* 12280 360 */- {.type There, {.p 360 }}, /* 12280 360 */- {.type FromDictionary, {.p C_dot}, .src = "dd C_dot"}, /* dd C_dot 12288 */- {.type Here, {.p 12288 }}, /* 12288 360 */- {.type There, {.p 360 }}, /* 12288 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12296 */- {.type Here, {.p 12296 }}, /* 12296 360 */- {.type There, {.p 360 }}, /* 12296 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12304 */- {.type Here, {.p 12304 }}, /* 12304 360 */- {.type There, {.p 360 }}, /* 12304 360 */- {.type Here, {.p 12304 }}, /* 12304 360 */- {.type There, {.p 360 }}, /* 12304 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12312 */- {.type Here, {.p 12312 }}, /* 12312 360 */- {.type There, {.p 360 }}, /* 12312 360 */- {.type Here, {.p 12312 }}, /* 12312 360 */- {.type There, {.p 360 }}, /* 12312 360 */- {.type Header, {.hdr { 6, "concat", /* C_concat = 12328 */ colon }}}, /* CENTRY "concat" concat 6 ; ( 'cs1 'cs2 -- 'cs1+'cs2 ) concatenate counted string2 to counted-string1 h 12336 */- {.type Here, {.p 12336 }}, /* 12336 360 */- {.type There, {.p 360 }}, /* 12336 360 */- {.type Here, {.p 12336 }}, /* 12336 360 */- {.type There, {.p 360 }}, /* 12336 360 */- {.type Here, {.p 12336 }}, /* 12336 360 */- {.type There, {.p 360 }}, /* 12336 360 */-/* ; move the contents of cs2 to cs1+1+count1. cs2+1 cs1+c1+1 c2 cmove */ {.type Here, {.p 12336 }}, /* 12336 360 */- {.type There, {.p 360 }}, /* 12336 360 */- {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup ; ( 'cs1 'cs2 'cs1 'cs2 )"}, /* dd C_2dup ; ( 'cs1 'cs2 'cs1 'cs2 ) 12344 */- {.type Here, {.p 12344 }}, /* 12344 360 */- {.type There, {.p 360 }}, /* 12344 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2 'cs2 )"}, /* dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2 'cs2 ) 12352 */- {.type Here, {.p 12352 }}, /* 12352 360 */- {.type There, {.p 360 }}, /* 12352 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2 c2 )"}, /* dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2 c2 ) 12360 */- {.type Here, {.p 12360 }}, /* 12360 360 */- {.type There, {.p 360 }}, /* 12360 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'cs1 'cs2 'cs1 'cs2 ) (R c2 )"}, /* dd M_rpush ; ( 'cs1 'cs2 'cs1 'cs2 ) (R c2 ) 12368 */- {.type Here, {.p 12368 }}, /* 12368 360 */- {.type There, {.p 360 }}, /* 12368 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( 'cs1 'cs2 'cs1 'cs2+1 ) (R c2 )"}, /* dd C_1plus ; ( 'cs1 'cs2 'cs1 'cs2+1 ) (R c2 ) 12376 */- {.type Here, {.p 12376 }}, /* 12376 360 */- {.type There, {.p 360 }}, /* 12376 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 ) (R c2 )"}, /* dd M_over ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 ) (R c2 ) 12384 */- {.type Here, {.p 12384 }}, /* 12384 360 */- {.type There, {.p 360 }}, /* 12384 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 'cs1 ) (R c2 )"}, /* dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 'cs1 ) (R c2 ) 12392 */- {.type Here, {.p 12392 }}, /* 12392 360 */- {.type There, {.p 360 }}, /* 12392 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 c1 ) (R c2 )"}, /* dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 c1 ) (R c2 ) 12400 */- {.type Here, {.p 12400 }}, /* 12400 360 */- {.type There, {.p 360 }}, /* 12400 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1 ) (R c2 )"}, /* dd M_plus ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1 ) (R c2 ) 12408 */- {.type Here, {.p 12408 }}, /* 12408 360 */- {.type There, {.p 360 }}, /* 12408 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 ) (R c2 )"}, /* dd C_1plus ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 ) (R c2 ) 12416 */- {.type Here, {.p 12416 }}, /* 12416 360 */- {.type There, {.p 360 }}, /* 12416 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 c2 ) (R )"}, /* dd M_rpop ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 c2 ) (R ) 12424 */- {.type Here, {.p 12424 }}, /* 12424 360 */- {.type There, {.p 360 }}, /* 12424 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; ( 'cs1 'cs2 'cs1 )"}, /* dd M_cmove ; ( 'cs1 'cs2 'cs1 ) 12432 */- {.type Here, {.p 12432 }}, /* 12432 360 */- {.type There, {.p 360 }}, /* 12432 360 */- {.type Here, {.p 12432 }}, /* 12432 360 */- {.type There, {.p 360 }}, /* 12432 360 */-/* ; update the count in cs1. c1 = c1+c2 */ {.type Here, {.p 12432 }}, /* 12432 360 */- {.type There, {.p 360 }}, /* 12432 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'cs1 'cs2 c1 )"}, /* dd M_cfetch ; ( 'cs1 'cs2 c1 ) 12440 */- {.type Here, {.p 12440 }}, /* 12440 360 */- {.type There, {.p 360 }}, /* 12440 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'cs1 c1 'cs2 )"}, /* dd M_xswap ; ( 'cs1 c1 'cs2 ) 12448 */- {.type Here, {.p 12448 }}, /* 12448 360 */- {.type There, {.p 360 }}, /* 12448 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'cs1 c1 c2 )"}, /* dd M_cfetch ; ( 'cs1 c1 c2 ) 12456 */- {.type Here, {.p 12456 }}, /* 12456 360 */- {.type There, {.p 360 }}, /* 12456 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'cs1 c1+c2 )"}, /* dd M_plus ; ( 'cs1 c1+c2 ) 12464 */- {.type Here, {.p 12464 }}, /* 12464 360 */- {.type There, {.p 360 }}, /* 12464 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( 'cs1 c1+c2 'cs1 )"}, /* dd M_over ; ( 'cs1 c1+c2 'cs1 ) 12472 */- {.type Here, {.p 12472 }}, /* 12472 360 */- {.type There, {.p 360 }}, /* 12472 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; ( 'cs1 )"}, /* dd M_cstore ; ( 'cs1 ) 12480 */- {.type Here, {.p 12480 }}, /* 12480 360 */- {.type There, {.p 360 }}, /* 12480 360 */- {.type Here, {.p 12480 }}, /* 12480 360 */- {.type There, {.p 360 }}, /* 12480 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12488 */- {.type Here, {.p 12488 }}, /* 12488 360 */- {.type There, {.p 360 }}, /* 12488 360 */- {.type Here, {.p 12488 }}, /* 12488 360 */- {.type There, {.p 360 }}, /* 12488 360 */-/* ; if (.) can return a counted string, this would be simpler */ {.type Here, {.p 12488 }}, /* 12488 360 */- {.type There, {.p 360 }}, /* 12488 360 */- {.type Header, {.hdr { 10, "buffername", /* C_buffername = 12512 */ colon }}}, /* CENTRY "buffername" buffername 10 ; ( index -- 'counted_string ) build the buffer fd's filename h 12520 */- {.type Here, {.p 12520 }}, /* 12520 360 */- {.type There, {.p 360 }}, /* 12520 360 */- {.type Here, {.p 12520 }}, /* 12520 360 */- {.type There, {.p 360 }}, /* 12520 360 */- {.type FromDictionary, {.p C_bufferfilename_fetch}, .src = "dd C_bufferfilename_fetch ; ( 'fcs ) fcs = filename counted string"}, /* dd C_bufferfilename_fetch ; ( 'fcs ) fcs = filename counted string 12528 */- {.type Here, {.p 12528 }}, /* 12528 360 */- {.type There, {.p 360 }}, /* 12528 360 */- {.type Here, {.p 12528 }}, /* 12528 360 */- {.type There, {.p 360 }}, /* 12528 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12536 */- {.type Here, {.p 12536 }}, /* 12536 360 */- {.type There, {.p 360 }}, /* 12536 360 */- {.type FromDictionary, {.p L_bin_prefix}, .src = "dd L_bin_prefix ; address of the counted string 3#n/"}, /* dd L_bin_prefix ; address of the counted string 3#n/ 12544 */- {.type Here, {.p 12544 }}, /* 12544 360 */- {.type There, {.p 360 }}, /* 12544 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 12552 */- {.type Here, {.p 12552 }}, /* 12552 360 */- {.type There, {.p 360 }}, /* 12552 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12560 */- {.type Here, {.p 12560 }}, /* 12560 360 */- {.type There, {.p 360 }}, /* 12560 360 */- {.type Absolute, {.p 4}}, /* dd 4 12568 */- {.type Here, {.p 12568 }}, /* 12568 360 */- {.type There, {.p 360 }}, /* 12568 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; pad has 3#n/"}, /* dd M_cmove ; pad has 3#n/ 12576 */- {.type Here, {.p 12576 }}, /* 12576 360 */- {.type There, {.p 360 }}, /* 12576 360 */- {.type Here, {.p 12576 }}, /* 12576 360 */- {.type There, {.p 360 }}, /* 12576 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 'fcs pad )"}, /* dd C_pad ; ( 'fcs pad ) 12584 */- {.type Here, {.p 12584 }}, /* 12584 360 */- {.type There, {.p 360 }}, /* 12584 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 12592 */- {.type Here, {.p 12592 }}, /* 12592 360 */- {.type There, {.p 360 }}, /* 12592 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 12600 */- {.type Here, {.p 12600 }}, /* 12600 360 */- {.type There, {.p 360 }}, /* 12600 360 */- {.type FromDictionary, {.p C_counted_paren_dot_paren}, .src = "dd C_counted_paren_dot_paren ; ( 'fcs pad 'cs )"}, /* dd C_counted_paren_dot_paren ; ( 'fcs pad 'cs ) 12608 */- {.type Here, {.p 12608 }}, /* 12608 360 */- {.type There, {.p 360 }}, /* 12608 360 */- {.type FromDictionary, {.p C_concat}, .src = "dd C_concat ; Now, pad has 4#n/0 ( 'fcs pad )"}, /* dd C_concat ; Now, pad has 4#n/0 ( 'fcs pad ) 12616 */- {.type Here, {.p 12616 }}, /* 12616 360 */- {.type There, {.p 360 }}, /* 12616 360 */- {.type Here, {.p 12616 }}, /* 12616 360 */- {.type There, {.p 360 }}, /* 12616 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( pad 'fcs )"}, /* dd M_xswap ; ( pad 'fcs ) 12624 */- {.type Here, {.p 12624 }}, /* 12624 360 */- {.type There, {.p 360 }}, /* 12624 360 */- {.type FromDictionary, {.p C_concat}, .src = "dd C_concat ; Now, pad has a proper counted string"}, /* dd C_concat ; Now, pad has a proper counted string 12632 */- {.type Here, {.p 12632 }}, /* 12632 360 */- {.type There, {.p 360 }}, /* 12632 360 */- {.type Here, {.p 12632 }}, /* 12632 360 */- {.type There, {.p 360 }}, /* 12632 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12640 */- {.type Here, {.p 12640 }}, /* 12640 360 */- {.type There, {.p 360 }}, /* 12640 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12648 */- {.type Here, {.p 12648 }}, /* 12648 360 */- {.type There, {.p 360 }}, /* 12648 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12656 */- {.type Here, {.p 12656 }}, /* 12656 360 */- {.type There, {.p 360 }}, /* 12656 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12664 */- {.type Here, {.p 12664 }}, /* 12664 360 */- {.type There, {.p 360 }}, /* 12664 360 */- {.type Here, {.p 12664 }}, /* 12664 360 */- {.type There, {.p 360 }}, /* 12664 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12672 */- {.type Here, {.p 12672 }}, /* 12672 360 */- {.type There, {.p 360 }}, /* 12672 360 */- {.type Here, {.p 12672 }}, /* 12672 360 */- {.type There, {.p 360 }}, /* 12672 360 */-/* ; max of a counted string is 256 bytes. Hence, cannot use it. */ {.type Here, {.p 12672 }}, /* 12672 360 */- {.type There, {.p 360 }}, /* 12672 360 */- {.type Header, {.hdr { 3, "get", /* C_get = 12688 */ colon }}}, /* CENTRY "get" get 3 ; ( index -- read_count ) read from the indexed Fd in Bufferfds into Tib h 12696 */- {.type Here, {.p 12696 }}, /* 12696 360 */- {.type There, {.p 360 }}, /* 12696 360 */- {.type Here, {.p 12696 }}, /* 12696 360 */- {.type There, {.p 360 }}, /* 12696 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 12704 */- {.type Here, {.p 12704 }}, /* 12704 360 */- {.type There, {.p 360 }}, /* 12704 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; clear EOF flag"}, /* dd C_off ; clear EOF flag 12712 */- {.type Here, {.p 12712 }}, /* 12712 360 */- {.type There, {.p 360 }}, /* 12712 360 */- {.type Here, {.p 12712 }}, /* 12712 360 */- {.type There, {.p 360 }}, /* 12712 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12720 */- {.type Here, {.p 12720 }}, /* 12720 360 */- {.type There, {.p 360 }}, /* 12720 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells ; ( index index*cellsize ) number of bytes"}, /* dd C_cells ; ( index index*cellsize ) number of bytes 12728 */- {.type Here, {.p 12728 }}, /* 12728 360 */- {.type There, {.p 360 }}, /* 12728 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 12736 */- {.type Here, {.p 12736 }}, /* 12736 360 */- {.type There, {.p 360 }}, /* 12736 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( index index*cellsize+'Bufferfds ) address of the fd"}, /* dd M_plus ; ( index index*cellsize+'Bufferfds ) address of the fd 12744 */- {.type Here, {.p 12744 }}, /* 12744 360 */- {.type There, {.p 360 }}, /* 12744 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( index fd )"}, /* dd M_fetch ; ( index fd ) 12752 */- {.type Here, {.p 12752 }}, /* 12752 360 */- {.type There, {.p 360 }}, /* 12752 360 */- {.type Here, {.p 12752 }}, /* 12752 360 */- {.type There, {.p 360 }}, /* 12752 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( index fd fd )"}, /* dd M_dup ; ( index fd fd ) 12760 */- {.type Here, {.p 12760 }}, /* 12760 360 */- {.type There, {.p 360 }}, /* 12760 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12768 */- {.type Here, {.p 12768 }}, /* 12768 360 */- {.type There, {.p 360 }}, /* 12768 360 */- {.type Absolute, {.p -1}}, /* dd -1 12776 */- {.type Here, {.p 12776 }}, /* 12776 360 */- {.type There, {.p 360 }}, /* 12776 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 12784 */- {.type Here, {.p 12784 }}, /* 12784 360 */- {.type There, {.p 360 }}, /* 12784 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump ; if fd == -1 ( index fd )"}, /* dd M_cjump ; if fd == -1 ( index fd ) 12792 */- {.type Here, {.p 12792 }}, /* 12792 360 */- {.type There, {.p 360 }}, /* 12792 360 */- {.type FromDictionary, {.p L_C_get}, .src = "dd L_C_get ; when not -1"}, /* dd L_C_get ; when not -1 12800 */- {.type Here, {.p 12800 }}, /* 12800 360 */- {.type There, {.p 360 }}, /* 12800 360 */- {.type Here, {.p 12800 }}, /* 12800 360 */- {.type There, {.p 360 }}, /* 12800 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; when fd == -1 ( index )"}, /* dd M_drop ; when fd == -1 ( index ) 12808 */- {.type Here, {.p 12808 }}, /* 12808 360 */- {.type There, {.p 360 }}, /* 12808 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12816 */- {.type Here, {.p 12816 }}, /* 12816 360 */- {.type There, {.p 360 }}, /* 12816 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12824 */- {.type Here, {.p 12824 }}, /* 12824 360 */- {.type There, {.p 360 }}, /* 12824 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( index index ) (R index )"}, /* dd M_rpush ; ( index index ) (R index ) 12832 */- {.type Here, {.p 12832 }}, /* 12832 360 */- {.type There, {.p 360 }}, /* 12832 360 */- {.type FromDictionary, {.p C_buffername}, .src = "dd C_buffername"}, /* dd C_buffername 12840 */- {.type Here, {.p 12840 }}, /* 12840 360 */- {.type There, {.p 360 }}, /* 12840 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( index 'filename-counted-string -- 'text count ) (R index )"}, /* dd C_count ; ( index 'filename-counted-string -- 'text count ) (R index ) 12848 */- {.type Here, {.p 12848 }}, /* 12848 360 */- {.type There, {.p 360 }}, /* 12848 360 */- {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 12856 */- {.type Here, {.p 12856 }}, /* 12856 360 */- {.type There, {.p 360 }}, /* 12856 360 */- {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file ; ( index fd ioresult ) (R index )"}, /* dd C_open_file ; ( index fd ioresult ) (R index ) 12864 */- {.type Here, {.p 12864 }}, /* 12864 360 */- {.type There, {.p 360 }}, /* 12864 360 */- {.type FromDictionary, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 12872 */- {.type Here, {.p 12872 }}, /* 12872 360 */- {.type There, {.p 360 }}, /* 12872 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12880 */- {.type Here, {.p 12880 }}, /* 12880 360 */- {.type There, {.p 360 }}, /* 12880 360 */- {.type FromDictionary, {.p L_C_get_opened}, .src = "dd L_C_get_opened ; if open suceeded, go here"}, /* dd L_C_get_opened ; if open suceeded, go here 12888 */- {.type Here, {.p 12888 }}, /* 12888 360 */- {.type There, {.p 360 }}, /* 12888 360 */- {.type Here, {.p 12888 }}, /* 12888 360 */- {.type There, {.p 360 }}, /* 12888 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( index ) (R index ) returned false, could not open-file. write error message"}, /* dd M_drop ; ( index ) (R index ) returned false, could not open-file. write error message 12896 */- {.type Here, {.p 12896 }}, /* 12896 360 */- {.type There, {.p 360 }}, /* 12896 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12904 */- {.type Here, {.p 12904 }}, /* 12904 360 */- {.type There, {.p 360 }}, /* 12904 360 */- {.type FromDictionary, {.p L_open_failed}, .src = "dd L_open_failed ; open error"}, /* dd L_open_failed ; open error 12912 */- {.type Here, {.p 12912 }}, /* 12912 360 */- {.type There, {.p 360 }}, /* 12912 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12920 */- {.type Here, {.p 12920 }}, /* 12920 360 */- {.type There, {.p 360 }}, /* 12920 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12928 */- {.type Here, {.p 12928 }}, /* 12928 360 */- {.type There, {.p 360 }}, /* 12928 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the index"}, /* dd C_emit ; show the index 12936 */- {.type Here, {.p 12936 }}, /* 12936 360 */- {.type There, {.p 360 }}, /* 12936 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12944 */- {.type Here, {.p 12944 }}, /* 12944 360 */- {.type There, {.p 360 }}, /* 12944 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort ; abort on open error. How about terminate?"}, /* dd C_abort ; abort on open error. How about terminate? 12952 */- {.type Here, {.p 12952 }}, /* 12952 360 */- {.type There, {.p 360 }}, /* 12952 360 */- {.type Here, {.p 12952 }}, /* 12952 360 */- {.type There, {.p 360 }}, /* 12952 360 */- {.type Here, {.p 12952 }}, /* 12952 360 */- {.type There, {.p 360 }}, /* 12952 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( index fd fd )"}, /* dd M_dup ; ( index fd fd ) 12960 */- {.type Here, {.p 12960 }}, /* 12960 360 */- {.type There, {.p 360 }}, /* 12960 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( index fd fd index )"}, /* dd M_rpop ; ( index fd fd index ) 12968 */- {.type Here, {.p 12968 }}, /* 12968 360 */- {.type There, {.p 360 }}, /* 12968 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells ; ( index fd fd index*cellsize ) number of bytes"}, /* dd C_cells ; ( index fd fd index*cellsize ) number of bytes 12976 */- {.type Here, {.p 12976 }}, /* 12976 360 */- {.type There, {.p 360 }}, /* 12976 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 12984 */- {.type Here, {.p 12984 }}, /* 12984 360 */- {.type There, {.p 360 }}, /* 12984 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( index fd fd index*cellsize+'Bufferfds ) address of the filename's counted string"}, /* dd M_plus ; ( index fd fd index*cellsize+'Bufferfds ) address of the filename's counted string 12992 */- {.type Here, {.p 12992 }}, /* 12992 360 */- {.type There, {.p 360 }}, /* 12992 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( index fd )"}, /* dd M_store ; ( index fd ) 13000 */- {.type Here, {.p 13000 }}, /* 13000 360 */- {.type There, {.p 360 }}, /* 13000 360 */- {.type Here, {.p 13000 }}, /* 13000 360 */- {.type There, {.p 360 }}, /* 13000 360 */- {.type Here, {.p 13000 }}, /* 13000 360 */- {.type There, {.p 360 }}, /* 13000 360 */- {.type FromDictionary, {.p MV_Tib}, .src = "dd MV_Tib"}, /* dd MV_Tib 13008 */- {.type Here, {.p 13008 }}, /* 13008 360 */- {.type There, {.p 360 }}, /* 13008 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13016 */- {.type Here, {.p 13016 }}, /* 13016 360 */- {.type There, {.p 360 }}, /* 13016 360 */- {.type Absolute, {.p 4096}}, /* dd 4096 ; ( index fd Tib 4096 ) 13024 */- {.type Here, {.p 13024 }}, /* 13024 360 */- {.type There, {.p 360 }}, /* 13024 360 */- {.type FromDictionary, {.p C_read_file}, .src = "dd C_read_file ; ( index read_count ioresult )"}, /* dd C_read_file ; ( index read_count ioresult ) 13032 */- {.type Here, {.p 13032 }}, /* 13032 360 */- {.type There, {.p 360 }}, /* 13032 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13040 */- {.type Here, {.p 13040 }}, /* 13040 360 */- {.type There, {.p 360 }}, /* 13040 360 */- {.type FromDictionary, {.p L_C_get_read_failed}, .src = "dd L_C_get_read_failed"}, /* dd L_C_get_read_failed 13048 */- {.type Here, {.p 13048 }}, /* 13048 360 */- {.type There, {.p 360 }}, /* 13048 360 */- {.type Here, {.p 13048 }}, /* 13048 360 */- {.type There, {.p 360 }}, /* 13048 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip ; ( read_count )"}, /* dd C_nip ; ( read_count ) 13056 */- {.type Here, {.p 13056 }}, /* 13056 360 */- {.type There, {.p 360 }}, /* 13056 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( read_count read_count )"}, /* dd M_dup ; ( read_count read_count ) 13064 */- {.type Here, {.p 13064 }}, /* 13064 360 */- {.type There, {.p 360 }}, /* 13064 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13072 */- {.type Here, {.p 13072 }}, /* 13072 360 */- {.type There, {.p 360 }}, /* 13072 360 */- {.type FromDictionary, {.p L_C_get_read_0}, .src = "dd L_C_get_read_0"}, /* dd L_C_get_read_0 13080 */- {.type Here, {.p 13080 }}, /* 13080 360 */- {.type There, {.p 360 }}, /* 13080 360 */- {.type Here, {.p 13080 }}, /* 13080 360 */- {.type There, {.p 360 }}, /* 13080 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; read_count > 0 ( read_count read_count )"}, /* dd M_dup ; read_count > 0 ( read_count read_count ) 13088 */- {.type Here, {.p 13088 }}, /* 13088 360 */- {.type There, {.p 360 }}, /* 13088 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13096 */- {.type Here, {.p 13096 }}, /* 13096 360 */- {.type There, {.p 360 }}, /* 13096 360 */- {.type Absolute, {.p 4096}}, /* dd 4096 13104 */- {.type Here, {.p 13104 }}, /* 13104 360 */- {.type There, {.p 360 }}, /* 13104 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 13112 */- {.type Here, {.p 13112 }}, /* 13112 360 */- {.type There, {.p 360 }}, /* 13112 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13120 */- {.type Here, {.p 13120 }}, /* 13120 360 */- {.type There, {.p 360 }}, /* 13120 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; ( read_count ) successful read, get out"}, /* dd M_exitcolon ; ( read_count ) successful read, get out 13128 */- {.type Here, {.p 13128 }}, /* 13128 360 */- {.type There, {.p 360 }}, /* 13128 360 */- {.type Here, {.p 13128 }}, /* 13128 360 */- {.type There, {.p 360 }}, /* 13128 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13136 */- {.type Here, {.p 13136 }}, /* 13136 360 */- {.type There, {.p 360 }}, /* 13136 360 */- {.type FromDictionary, {.p L_C_get_too_long}, .src = "dd L_C_get_too_long ; could not find a delimiter in 4096 bytes, reevaluate"}, /* dd L_C_get_too_long ; could not find a delimiter in 4096 bytes, reevaluate 13144 */- {.type Here, {.p 13144 }}, /* 13144 360 */- {.type There, {.p 360 }}, /* 13144 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13152 */- {.type Here, {.p 13152 }}, /* 13152 360 */- {.type There, {.p 360 }}, /* 13152 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13160 */- {.type Here, {.p 13160 }}, /* 13160 360 */- {.type There, {.p 360 }}, /* 13160 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the read_count"}, /* dd C_emit ; show the read_count 13168 */- {.type Here, {.p 13168 }}, /* 13168 360 */- {.type There, {.p 360 }}, /* 13168 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13176 */- {.type Here, {.p 13176 }}, /* 13176 360 */- {.type There, {.p 360 }}, /* 13176 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort ; abort on read error. How about terminate?"}, /* dd C_abort ; abort on read error. How about terminate? 13184 */- {.type Here, {.p 13184 }}, /* 13184 360 */- {.type There, {.p 360 }}, /* 13184 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13192 */- {.type Here, {.p 13192 }}, /* 13192 360 */- {.type There, {.p 360 }}, /* 13192 360 */- {.type Here, {.p 13192 }}, /* 13192 360 */- {.type There, {.p 360 }}, /* 13192 360 */- {.type Here, {.p 13192 }}, /* 13192 360 */- {.type There, {.p 360 }}, /* 13192 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13200 */- {.type Here, {.p 13200 }}, /* 13200 360 */- {.type There, {.p 360 }}, /* 13200 360 */- {.type FromDictionary, {.p L_read_failed}, .src = "dd L_read_failed ; read error"}, /* dd L_read_failed ; read error 13208 */- {.type Here, {.p 13208 }}, /* 13208 360 */- {.type There, {.p 360 }}, /* 13208 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13216 */- {.type Here, {.p 13216 }}, /* 13216 360 */- {.type There, {.p 360 }}, /* 13216 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13224 */- {.type Here, {.p 13224 }}, /* 13224 360 */- {.type There, {.p 360 }}, /* 13224 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the index"}, /* dd C_emit ; show the index 13232 */- {.type Here, {.p 13232 }}, /* 13232 360 */- {.type There, {.p 360 }}, /* 13232 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13240 */- {.type Here, {.p 13240 }}, /* 13240 360 */- {.type There, {.p 360 }}, /* 13240 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort ; abort on read error. How about terminate?"}, /* dd C_abort ; abort on read error. How about terminate? 13248 */- {.type Here, {.p 13248 }}, /* 13248 360 */- {.type There, {.p 360 }}, /* 13248 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13256 */- {.type Here, {.p 13256 }}, /* 13256 360 */- {.type There, {.p 360 }}, /* 13256 360 */- {.type Here, {.p 13256 }}, /* 13256 360 */- {.type There, {.p 360 }}, /* 13256 360 */- {.type Here, {.p 13256 }}, /* 13256 360 */- {.type There, {.p 360 }}, /* 13256 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( ) read_count == 0"}, /* dd M_drop ; ( ) read_count == 0 13264 */- {.type Here, {.p 13264 }}, /* 13264 360 */- {.type There, {.p 360 }}, /* 13264 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 13272 */- {.type Here, {.p 13272 }}, /* 13272 360 */- {.type There, {.p 360 }}, /* 13272 360 */- {.type FromDictionary, {.p C_on}, .src = "dd C_on ; end of file, qrestore_input"}, /* dd C_on ; end of file, qrestore_input 13280 */- {.type Here, {.p 13280 }}, /* 13280 360 */- {.type There, {.p 360 }}, /* 13280 360 */- {.type FromDictionary, {.p C_restore_input}, .src = "dd C_restore_input"}, /* dd C_restore_input 13288 */- {.type Here, {.p 13288 }}, /* 13288 360 */- {.type There, {.p 360 }}, /* 13288 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13296 */- {.type Here, {.p 13296 }}, /* 13296 360 */- {.type There, {.p 360 }}, /* 13296 360 */- {.type Here, {.p 13296 }}, /* 13296 360 */- {.type There, {.p 360 }}, /* 13296 360 */- {.type Header, {.hdr { 4, "parse", /* C_parse = 13312 */ colon }}}, /* CENTRY "parse" parse 4 ; ( read_count -- 'Wordb ) Wordb has a counted string. read_count number of bytes read into Tib h 13320 */- {.type Here, {.p 13320 }}, /* 13320 360 */- {.type There, {.p 360 }}, /* 13320 360 */- {.type Here, {.p 13320 }}, /* 13320 360 */- {.type There, {.p 360 }}, /* 13320 360 */- {.type Here, {.p 13320 }}, /* 13320 360 */- {.type There, {.p 360 }}, /* 13320 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( read_count read_count ) check if count > 255 bytes, then invalid word"}, /* dd M_dup ; ( read_count read_count ) check if count > 255 bytes, then invalid word 13328 */- {.type Here, {.p 13328 }}, /* 13328 360 */- {.type There, {.p 360 }}, /* 13328 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13336 */- {.type Here, {.p 13336 }}, /* 13336 360 */- {.type There, {.p 360 }}, /* 13336 360 */- {.type Absolute, {.p 256}}, /* dd 256 13344 */- {.type Here, {.p 13344 }}, /* 13344 360 */- {.type There, {.p 360 }}, /* 13344 360 */- {.type FromDictionary, {.p M_less}, .src = "dd M_less"}, /* dd M_less 13352 */- {.type Here, {.p 13352 }}, /* 13352 360 */- {.type There, {.p 360 }}, /* 13352 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13360 */- {.type Here, {.p 13360 }}, /* 13360 360 */- {.type There, {.p 360 }}, /* 13360 360 */- {.type FromDictionary, {.p L_C_parse_1}, .src = "dd L_C_parse_1"}, /* dd L_C_parse_1 13368 */- {.type Here, {.p 13368 }}, /* 13368 360 */- {.type There, {.p 360 }}, /* 13368 360 */- {.type Here, {.p 13368 }}, /* 13368 360 */- {.type There, {.p 360 }}, /* 13368 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( read_count read_count )"}, /* dd M_dup ; ( read_count read_count ) 13376 */- {.type Here, {.p 13376 }}, /* 13376 360 */- {.type There, {.p 360 }}, /* 13376 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13384 */- {.type Here, {.p 13384 }}, /* 13384 360 */- {.type There, {.p 360 }}, /* 13384 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; ( store read_count at Wordb[0] )"}, /* dd M_cstore ; ( store read_count at Wordb[0] ) 13392 */- {.type Here, {.p 13392 }}, /* 13392 360 */- {.type There, {.p 360 }}, /* 13392 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 13400 */- {.type Here, {.p 13400 }}, /* 13400 360 */- {.type There, {.p 360 }}, /* 13400 360 */- {.type FromDictionary, {.p MV_Tib}, .src = "dd MV_Tib"}, /* dd MV_Tib 13408 */- {.type Here, {.p 13408 }}, /* 13408 360 */- {.type There, {.p 360 }}, /* 13408 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13416 */- {.type Here, {.p 13416 }}, /* 13416 360 */- {.type There, {.p 360 }}, /* 13416 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13424 */- {.type Here, {.p 13424 }}, /* 13424 360 */- {.type There, {.p 360 }}, /* 13424 360 */- {.type Absolute, {.p 1}}, /* dd 1 13432 */- {.type Here, {.p 13432 }}, /* 13432 360 */- {.type There, {.p 360 }}, /* 13432 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'Tib 'Wordb+1 ) (R read_count )"}, /* dd M_plus ; ( 'Tib 'Wordb+1 ) (R read_count ) 13440 */- {.type Here, {.p 13440 }}, /* 13440 360 */- {.type There, {.p 360 }}, /* 13440 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'Tib 'Wordb+1 read_count )"}, /* dd M_rpop ; ( 'Tib 'Wordb+1 read_count ) 13448 */- {.type Here, {.p 13448 }}, /* 13448 360 */- {.type There, {.p 360 }}, /* 13448 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; copy bytes from Tib to Wordb to make it a counted string at Wordb"}, /* dd M_cmove ; copy bytes from Tib to Wordb to make it a counted string at Wordb 13456 */- {.type Here, {.p 13456 }}, /* 13456 360 */- {.type There, {.p 360 }}, /* 13456 360 */- {.type Here, {.p 13456 }}, /* 13456 360 */- {.type There, {.p 360 }}, /* 13456 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13464 */- {.type Here, {.p 13464 }}, /* 13464 360 */- {.type There, {.p 360 }}, /* 13464 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; ( 'Wordb ) Wordb has the counted string"}, /* dd M_exitcolon ; ( 'Wordb ) Wordb has the counted string 13472 */- {.type Here, {.p 13472 }}, /* 13472 360 */- {.type There, {.p 360 }}, /* 13472 360 */- {.type Here, {.p 13472 }}, /* 13472 360 */- {.type There, {.p 360 }}, /* 13472 360 */- {.type Here, {.p 13472 }}, /* 13472 360 */- {.type There, {.p 360 }}, /* 13472 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13480 */- {.type Here, {.p 13480 }}, /* 13480 360 */- {.type There, {.p 360 }}, /* 13480 360 */- {.type FromDictionary, {.p L_C_long_word}, .src = "dd L_C_long_word"}, /* dd L_C_long_word 13488 */- {.type Here, {.p 13488 }}, /* 13488 360 */- {.type There, {.p 360 }}, /* 13488 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13496 */- {.type Here, {.p 13496 }}, /* 13496 360 */- {.type There, {.p 360 }}, /* 13496 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13504 */- {.type Here, {.p 13504 }}, /* 13504 360 */- {.type There, {.p 360 }}, /* 13504 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13512 */- {.type Here, {.p 13512 }}, /* 13512 360 */- {.type There, {.p 360 }}, /* 13512 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 13520 */- {.type Here, {.p 13520 }}, /* 13520 360 */- {.type There, {.p 360 }}, /* 13520 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13528 */- {.type Here, {.p 13528 }}, /* 13528 360 */- {.type There, {.p 360 }}, /* 13528 360 */- {.type Here, {.p 13528 }}, /* 13528 360 */- {.type There, {.p 360 }}, /* 13528 360 */- {.type Header, {.hdr { 4, "word", /* C_word = 13544 */ colon }}}, /* CENTRY "word" word 4 ; ( -- 'Wordb ) read from #n/Infd/word into Tib and then parse to a counted string in Wordb h 13552 */- {.type Here, {.p 13552 }}, /* 13552 360 */- {.type There, {.p 360 }}, /* 13552 360 */- {.type Here, {.p 13552 }}, /* 13552 360 */- {.type There, {.p 360 }}, /* 13552 360 */- {.type FromDictionary, {.p MC_WORDNUM}, .src = "dd MC_WORDNUM"}, /* dd MC_WORDNUM 13560 */- {.type Here, {.p 13560 }}, /* 13560 360 */- {.type There, {.p 360 }}, /* 13560 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13568 */- {.type Here, {.p 13568 }}, /* 13568 360 */- {.type There, {.p 360 }}, /* 13568 360 */- {.type FromDictionary, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 13576 */- {.type Here, {.p 13576 }}, /* 13576 360 */- {.type There, {.p 360 }}, /* 13576 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13584 */- {.type Here, {.p 13584 }}, /* 13584 360 */- {.type There, {.p 360 }}, /* 13584 360 */- {.type Here, {.p 13584 }}, /* 13584 360 */- {.type There, {.p 360 }}, /* 13584 360 */- {.type Header, {.hdr { 4, "line", /* C_line = 13600 */ colon }}}, /* CENTRY "line" line 4 ; ( -- count ) read from #n/Infd/line into Tib h 13608 */- {.type Here, {.p 13608 }}, /* 13608 360 */- {.type There, {.p 360 }}, /* 13608 360 */- {.type Here, {.p 13608 }}, /* 13608 360 */- {.type There, {.p 360 }}, /* 13608 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 13616 */- {.type Here, {.p 13616 }}, /* 13616 360 */- {.type There, {.p 360 }}, /* 13616 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13624 */- {.type Here, {.p 13624 }}, /* 13624 360 */- {.type There, {.p 360 }}, /* 13624 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13632 */- {.type Here, {.p 13632 }}, /* 13632 360 */- {.type There, {.p 360 }}, /* 13632 360 */- {.type Here, {.p 13632 }}, /* 13632 360 */- {.type There, {.p 360 }}, /* 13632 360 */- {.type Header, {.hdr { 11, "doublequote", /* C_doublequote = 13656 */ colon }}}, /* CENTRY "doublequote" doublequote 11 ; ( -- count ) read from #n/Infd/doublequote into Tib h 13664 */- {.type Here, {.p 13664 }}, /* 13664 360 */- {.type There, {.p 360 }}, /* 13664 360 */- {.type Here, {.p 13664 }}, /* 13664 360 */- {.type There, {.p 360 }}, /* 13664 360 */- {.type FromDictionary, {.p MC_DOUBLEQUOTENUM}, .src = "dd MC_DOUBLEQUOTENUM"}, /* dd MC_DOUBLEQUOTENUM 13672 */- {.type Here, {.p 13672 }}, /* 13672 360 */- {.type There, {.p 360 }}, /* 13672 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13680 */- {.type Here, {.p 13680 }}, /* 13680 360 */- {.type There, {.p 360 }}, /* 13680 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13688 */- {.type Here, {.p 13688 }}, /* 13688 360 */- {.type There, {.p 360 }}, /* 13688 360 */- {.type Here, {.p 13688 }}, /* 13688 360 */- {.type There, {.p 360 }}, /* 13688 360 */- {.type Header, {.hdr { 11, "cdoublequote", /* C_counted_doublequote = 13712 */ colon }}}, /* CENTRY "cdoublequote" counted_doublequote 11 ; ( -- 'Wordb ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb h 13720 */- {.type Here, {.p 13720 }}, /* 13720 360 */- {.type There, {.p 360 }}, /* 13720 360 */- {.type Here, {.p 13720 }}, /* 13720 360 */- {.type There, {.p 360 }}, /* 13720 360 */- {.type FromDictionary, {.p MC_DOUBLEQUOTENUM}, .src = "dd MC_DOUBLEQUOTENUM"}, /* dd MC_DOUBLEQUOTENUM 13728 */- {.type Here, {.p 13728 }}, /* 13728 360 */- {.type There, {.p 360 }}, /* 13728 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13736 */- {.type Here, {.p 13736 }}, /* 13736 360 */- {.type There, {.p 360 }}, /* 13736 360 */- {.type FromDictionary, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 13744 */- {.type Here, {.p 13744 }}, /* 13744 360 */- {.type There, {.p 360 }}, /* 13744 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13752 */- {.type Here, {.p 13752 }}, /* 13752 360 */- {.type There, {.p 360 }}, /* 13752 360 */- {.type Here, {.p 13752 }}, /* 13752 360 */- {.type There, {.p 360 }}, /* 13752 360 */- {.type Header, {.hdr { 10, "closeparen", /* C_closeparen = 13776 */ colon }}}, /* CENTRY "closeparen" closeparen 10 ; ( -- count ) read from #n/Infd/closeparen h 13784 */- {.type Here, {.p 13784 }}, /* 13784 360 */- {.type There, {.p 360 }}, /* 13784 360 */- {.type Here, {.p 13784 }}, /* 13784 360 */- {.type There, {.p 360 }}, /* 13784 360 */- {.type FromDictionary, {.p MC_CLOSEPARENNUM}, .src = "dd MC_CLOSEPARENNUM"}, /* dd MC_CLOSEPARENNUM 13792 */- {.type Here, {.p 13792 }}, /* 13792 360 */- {.type There, {.p 360 }}, /* 13792 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13800 */- {.type Here, {.p 13800 }}, /* 13800 360 */- {.type There, {.p 360 }}, /* 13800 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13808 */- {.type Here, {.p 13808 }}, /* 13808 360 */- {.type There, {.p 360 }}, /* 13808 360 */- {.type Here, {.p 13808 }}, /* 13808 360 */- {.type There, {.p 360 }}, /* 13808 360 */- {.type Header, {.hdr { 8, "findname", /* C_findname = 13832 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 13840 */- {.type Here, {.p 13840 }}, /* 13840 360 */- {.type There, {.p 360 }}, /* 13840 360 */- {.type Here, {.p 13840 }}, /* 13840 360 */- {.type There, {.p 360 }}, /* 13840 360 */- {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 13848 */- {.type Here, {.p 13848 }}, /* 13848 360 */- {.type There, {.p 360 }}, /* 13848 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 13856 */- {.type Here, {.p 13856 }}, /* 13856 360 */- {.type There, {.p 360 }}, /* 13856 360 */- {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop"}, /* dd MV_Dtop 13864 */- {.type Here, {.p 13864 }}, /* 13864 360 */- {.type There, {.p 360 }}, /* 13864 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; get latest dictionary link"}, /* dd M_fetch ; get latest dictionary link 13872 */- {.type Here, {.p 13872 }}, /* 13872 360 */- {.type There, {.p 360 }}, /* 13872 360 */- {.type Here, {.p 13872 }}, /* 13872 360 */- {.type There, {.p 360 }}, /* 13872 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 13880 */- {.type Here, {.p 13880 }}, /* 13880 360 */- {.type There, {.p 360 }}, /* 13880 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13888 */- {.type Here, {.p 13888 }}, /* 13888 360 */- {.type There, {.p 360 }}, /* 13888 360 */- {.type FromDictionary, {.p L_C_findname_1}, .src = "dd L_C_findname_1 ; seached until the first dictionary entry get out"}, /* dd L_C_findname_1 ; seached until the first dictionary entry get out 13896 */- {.type Here, {.p 13896 }}, /* 13896 360 */- {.type There, {.p 360 }}, /* 13896 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a -- a a )"}, /* dd M_dup ; ( a -- a a ) 13904 */- {.type Here, {.p 13904 }}, /* 13904 360 */- {.type There, {.p 360 }}, /* 13904 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus ; ( a a -- a a+8) lenth + initial name address"}, /* dd C_cell_plus ; ( a a -- a a+8) lenth + initial name address 13912 */- {.type Here, {.p 13912 }}, /* 13912 360 */- {.type There, {.p 360 }}, /* 13912 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a+8 -- a immediate|hidden|len) length + initial name"}, /* dd M_cfetch ; ( a a+8 -- a immediate|hidden|len) length + initial name 13920 */- {.type Here, {.p 13920 }}, /* 13920 360 */- {.type There, {.p 360 }}, /* 13920 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13928 */- {.type Here, {.p 13928 }}, /* 13928 360 */- {.type There, {.p 360 }}, /* 13928 360 */- {.type Absolute, {.p 64}}, /* dd 64 ; check the reveal'ed flag 1=hidden, 0=reveal 13936 */- {.type Here, {.p 13936 }}, /* 13936 360 */- {.type There, {.p 360 }}, /* 13936 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand ; if hidden, goto L_C_findname_3 else L_C_findname_2"}, /* dd M_binand ; if hidden, goto L_C_findname_3 else L_C_findname_2 13944 */- {.type Here, {.p 13944 }}, /* 13944 360 */- {.type There, {.p 360 }}, /* 13944 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13952 */- {.type Here, {.p 13952 }}, /* 13952 360 */- {.type There, {.p 360 }}, /* 13952 360 */- {.type FromDictionary, {.p L_C_findname_2}, .src = "dd L_C_findname_2"}, /* dd L_C_findname_2 13960 */- {.type Here, {.p 13960 }}, /* 13960 360 */- {.type There, {.p 360 }}, /* 13960 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; smudge'd dictionary entry, get the previous entry"}, /* dd M_fetch ; smudge'd dictionary entry, get the previous entry 13968 */- {.type Here, {.p 13968 }}, /* 13968 360 */- {.type There, {.p 360 }}, /* 13968 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13976 */- {.type Here, {.p 13976 }}, /* 13976 360 */- {.type There, {.p 360 }}, /* 13976 360 */- {.type FromDictionary, {.p L_C_findname_3}, .src = "dd L_C_findname_3"}, /* dd L_C_findname_3 13984 */- {.type Here, {.p 13984 }}, /* 13984 360 */- {.type There, {.p 360 }}, /* 13984 360 */- {.type Here, {.p 13984 }}, /* 13984 360 */- {.type There, {.p 360 }}, /* 13984 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a1 -- a1 a1)"}, /* dd M_dup ; ( a1 -- a1 a1) 13992 */- {.type Here, {.p 13992 }}, /* 13992 360 */- {.type There, {.p 360 }}, /* 13992 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus ; ( a1 a1 -- a1 a1+8)"}, /* dd C_cell_plus ; ( a1 a1 -- a1 a1+8) 14000 */- {.type Here, {.p 14000 }}, /* 14000 360 */- {.type There, {.p 360 }}, /* 14000 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( a1 a1+8 -- a1 a1+8+1 n )"}, /* dd C_count ; ( a1 a1+8 -- a1 a1+8+1 n ) 14008 */- {.type Here, {.p 14008 }}, /* 14008 360 */- {.type There, {.p 360 }}, /* 14008 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14016 */- {.type Here, {.p 14016 }}, /* 14016 360 */- {.type There, {.p 360 }}, /* 14016 360 */- {.type Absolute, {.p 63}}, /* dd 63 14024 */- {.type Here, {.p 14024 }}, /* 14024 360 */- {.type There, {.p 360 }}, /* 14024 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand ; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len )"}, /* dd M_binand ; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len ) 14032 */- {.type Here, {.p 14032 }}, /* 14032 360 */- {.type There, {.p 360 }}, /* 14032 360 */- {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 14040 */- {.type Here, {.p 14040 }}, /* 14040 360 */- {.type There, {.p 360 }}, /* 14040 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14048 */- {.type Here, {.p 14048 }}, /* 14048 360 */- {.type There, {.p 360 }}, /* 14048 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 )"}, /* dd C_count ; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 ) 14056 */- {.type Here, {.p 14056 }}, /* 14056 360 */- {.type There, {.p 360 }}, /* 14056 360 */- {.type FromDictionary, {.p C_compare}, .src = "dd C_compare ; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name"}, /* dd C_compare ; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name 14064 */- {.type Here, {.p 14064 }}, /* 14064 360 */- {.type There, {.p 360 }}, /* 14064 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq ; found a match?"}, /* dd C_0eq ; found a match? 14072 */- {.type Here, {.p 14072 }}, /* 14072 360 */- {.type There, {.p 360 }}, /* 14072 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14080 */- {.type Here, {.p 14080 }}, /* 14080 360 */- {.type There, {.p 360 }}, /* 14080 360 */- {.type FromDictionary, {.p L_C_findname_4}, .src = "dd L_C_findname_4 ; no match"}, /* dd L_C_findname_4 ; no match 14088 */- {.type Here, {.p 14088 }}, /* 14088 360 */- {.type There, {.p 360 }}, /* 14088 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus ; match found"}, /* dd C_cell_plus ; match found 14096 */- {.type Here, {.p 14096 }}, /* 14096 360 */- {.type There, {.p 360 }}, /* 14096 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true"}, /* dd C_true 14104 */- {.type Here, {.p 14104 }}, /* 14104 360 */- {.type There, {.p 360 }}, /* 14104 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14112 */- {.type Here, {.p 14112 }}, /* 14112 360 */- {.type There, {.p 360 }}, /* 14112 360 */- {.type Here, {.p 14112 }}, /* 14112 360 */- {.type There, {.p 360 }}, /* 14112 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14120 */- {.type Here, {.p 14120 }}, /* 14120 360 */- {.type There, {.p 360 }}, /* 14120 360 */- {.type Here, {.p 14120 }}, /* 14120 360 */- {.type There, {.p 360 }}, /* 14120 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14128 */- {.type Here, {.p 14128 }}, /* 14128 360 */- {.type There, {.p 360 }}, /* 14128 360 */- {.type FromDictionary, {.p L_C_findname}, .src = "dd L_C_findname"}, /* dd L_C_findname 14136 */- {.type Here, {.p 14136 }}, /* 14136 360 */- {.type There, {.p 360 }}, /* 14136 360 */- {.type Here, {.p 14136 }}, /* 14136 360 */- {.type There, {.p 360 }}, /* 14136 360 */- {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 14144 */- {.type Here, {.p 14144 }}, /* 14144 360 */- {.type There, {.p 360 }}, /* 14144 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14152 */- {.type Here, {.p 14152 }}, /* 14152 360 */- {.type There, {.p 360 }}, /* 14152 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 14160 */- {.type Here, {.p 14160 }}, /* 14160 360 */- {.type There, {.p 360 }}, /* 14160 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14168 */- {.type Here, {.p 14168 }}, /* 14168 360 */- {.type There, {.p 360 }}, /* 14168 360 */- {.type Here, {.p 14168 }}, /* 14168 360 */- {.type There, {.p 360 }}, /* 14168 360 */- {.type Header, {.hdr { 4, "find", /* C_find = 14184 */ colon }}}, /* CENTRY "find" find 4 ; ( a1 -- a2 f )? h 14192 */- {.type Here, {.p 14192 }}, /* 14192 360 */- {.type There, {.p 360 }}, /* 14192 360 */- {.type Here, {.p 14192 }}, /* 14192 360 */- {.type There, {.p 360 }}, /* 14192 360 */- {.type FromDictionary, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 14200 */- {.type Here, {.p 14200 }}, /* 14200 360 */- {.type There, {.p 360 }}, /* 14200 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14208 */- {.type Here, {.p 14208 }}, /* 14208 360 */- {.type There, {.p 360 }}, /* 14208 360 */- {.type FromDictionary, {.p L_C_find}, .src = "dd L_C_find"}, /* dd L_C_find 14216 */- {.type Here, {.p 14216 }}, /* 14216 360 */- {.type There, {.p 360 }}, /* 14216 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 14224 */- {.type Here, {.p 14224 }}, /* 14224 360 */- {.type There, {.p 360 }}, /* 14224 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14232 */- {.type Here, {.p 14232 }}, /* 14232 360 */- {.type There, {.p 360 }}, /* 14232 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 14240 */- {.type Here, {.p 14240 }}, /* 14240 360 */- {.type There, {.p 360 }}, /* 14240 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 14248 */- {.type Here, {.p 14248 }}, /* 14248 360 */- {.type There, {.p 360 }}, /* 14248 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14256 */- {.type Here, {.p 14256 }}, /* 14256 360 */- {.type There, {.p 360 }}, /* 14256 360 */- {.type Absolute, {.p 63}}, /* dd 63 14264 */- {.type Here, {.p 14264 }}, /* 14264 360 */- {.type There, {.p 360 }}, /* 14264 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14272 */- {.type Here, {.p 14272 }}, /* 14272 360 */- {.type There, {.p 360 }}, /* 14272 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 14280 */- {.type Here, {.p 14280 }}, /* 14280 360 */- {.type There, {.p 360 }}, /* 14280 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 14288 */- {.type Here, {.p 14288 }}, /* 14288 360 */- {.type There, {.p 360 }}, /* 14288 360 */- {.type FromDictionary, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 14296 */- {.type Here, {.p 14296 }}, /* 14296 360 */- {.type There, {.p 360 }}, /* 14296 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 14304 */- {.type Here, {.p 14304 }}, /* 14304 360 */- {.type There, {.p 360 }}, /* 14304 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14312 */- {.type Here, {.p 14312 }}, /* 14312 360 */- {.type There, {.p 360 }}, /* 14312 360 */- {.type Absolute, {.p 128}}, /* dd 128 14320 */- {.type Here, {.p 14320 }}, /* 14320 360 */- {.type There, {.p 360 }}, /* 14320 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14328 */- {.type Here, {.p 14328 }}, /* 14328 360 */- {.type There, {.p 360 }}, /* 14328 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14336 */- {.type Here, {.p 14336 }}, /* 14336 360 */- {.type There, {.p 360 }}, /* 14336 360 */- {.type FromDictionary, {.p L_C_find_1}, .src = "dd L_C_find_1"}, /* dd L_C_find_1 14344 */- {.type Here, {.p 14344 }}, /* 14344 360 */- {.type There, {.p 360 }}, /* 14344 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14352 */- {.type Here, {.p 14352 }}, /* 14352 360 */- {.type There, {.p 360 }}, /* 14352 360 */- {.type Absolute, {.p 1}}, /* dd 1 14360 */- {.type Here, {.p 14360 }}, /* 14360 360 */- {.type There, {.p 360 }}, /* 14360 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14368 */- {.type Here, {.p 14368 }}, /* 14368 360 */- {.type There, {.p 360 }}, /* 14368 360 */- {.type FromDictionary, {.p L_C_find_2}, .src = "dd L_C_find_2"}, /* dd L_C_find_2 14376 */- {.type Here, {.p 14376 }}, /* 14376 360 */- {.type There, {.p 360 }}, /* 14376 360 */- {.type Here, {.p 14376 }}, /* 14376 360 */- {.type There, {.p 360 }}, /* 14376 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14384 */- {.type Here, {.p 14384 }}, /* 14384 360 */- {.type There, {.p 360 }}, /* 14384 360 */- {.type Absolute, {.p -1}}, /* dd -1 14392 */- {.type Here, {.p 14392 }}, /* 14392 360 */- {.type There, {.p 360 }}, /* 14392 360 */- {.type Here, {.p 14392 }}, /* 14392 360 */- {.type There, {.p 360 }}, /* 14392 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14400 */- {.type Here, {.p 14400 }}, /* 14400 360 */- {.type There, {.p 360 }}, /* 14400 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14408 */- {.type Here, {.p 14408 }}, /* 14408 360 */- {.type There, {.p 360 }}, /* 14408 360 */- {.type FromDictionary, {.p L_C_find_3}, .src = "dd L_C_find_3"}, /* dd L_C_find_3 14416 */- {.type Here, {.p 14416 }}, /* 14416 360 */- {.type There, {.p 360 }}, /* 14416 360 */- {.type Here, {.p 14416 }}, /* 14416 360 */- {.type There, {.p 360 }}, /* 14416 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 14424 */- {.type Here, {.p 14424 }}, /* 14424 360 */- {.type There, {.p 360 }}, /* 14424 360 */- {.type Here, {.p 14424 }}, /* 14424 360 */- {.type There, {.p 360 }}, /* 14424 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14432 */- {.type Here, {.p 14432 }}, /* 14432 360 */- {.type There, {.p 360 }}, /* 14432 360 */- {.type Here, {.p 14432 }}, /* 14432 360 */- {.type There, {.p 360 }}, /* 14432 360 */- {.type Header, {.hdr { 1, "'", /* C_single_quote = 14448 */ colon }}}, /* CENTRY "'" single_quote 1 h 14456 */- {.type Here, {.p 14456 }}, /* 14456 360 */- {.type There, {.p 360 }}, /* 14456 360 */- {.type Here, {.p 14456 }}, /* 14456 360 */- {.type There, {.p 360 }}, /* 14456 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 14464 */- {.type Here, {.p 14464 }}, /* 14464 360 */- {.type There, {.p 360 }}, /* 14464 360 */- {.type FromDictionary, {.p C_find}, .src = "dd C_find"}, /* dd C_find 14472 */- {.type Here, {.p 14472 }}, /* 14472 360 */- {.type There, {.p 360 }}, /* 14472 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 14480 */- {.type Here, {.p 14480 }}, /* 14480 360 */- {.type There, {.p 360 }}, /* 14480 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14488 */- {.type Here, {.p 14488 }}, /* 14488 360 */- {.type There, {.p 360 }}, /* 14488 360 */- {.type FromDictionary, {.p L_C_single_quote}, .src = "dd L_C_single_quote"}, /* dd L_C_single_quote 14496 */- {.type Here, {.p 14496 }}, /* 14496 360 */- {.type There, {.p 360 }}, /* 14496 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 14504 */- {.type Here, {.p 14504 }}, /* 14504 360 */- {.type There, {.p 360 }}, /* 14504 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14512 */- {.type Here, {.p 14512 }}, /* 14512 360 */- {.type There, {.p 360 }}, /* 14512 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14520 */- {.type Here, {.p 14520 }}, /* 14520 360 */- {.type There, {.p 360 }}, /* 14520 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14528 */- {.type Here, {.p 14528 }}, /* 14528 360 */- {.type There, {.p 360 }}, /* 14528 360 */- {.type FromDictionary, {.p L170}, .src = "dd L170"}, /* dd L170 14536 */- {.type Here, {.p 14536 }}, /* 14536 360 */- {.type There, {.p 360 }}, /* 14536 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14544 */- {.type Here, {.p 14544 }}, /* 14544 360 */- {.type There, {.p 360 }}, /* 14544 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14552 */- {.type Here, {.p 14552 }}, /* 14552 360 */- {.type There, {.p 360 }}, /* 14552 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14560 */- {.type Here, {.p 14560 }}, /* 14560 360 */- {.type There, {.p 360 }}, /* 14560 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14568 */- {.type Here, {.p 14568 }}, /* 14568 360 */- {.type There, {.p 360 }}, /* 14568 360 */- {.type Here, {.p 14568 }}, /* 14568 360 */- {.type There, {.p 360 }}, /* 14568 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14576 */- {.type Here, {.p 14576 }}, /* 14576 360 */- {.type There, {.p 360 }}, /* 14576 360 */- {.type Here, {.p 14576 }}, /* 14576 360 */- {.type There, {.p 360 }}, /* 14576 360 */- {.type Header, {.hdr { 6, "?stack", /* C_qstack = 14592 */ colon }}}, /* CENTRY "?stack" qstack 6 h 14600 */- {.type Here, {.p 14600 }}, /* 14600 360 */- {.type There, {.p 360 }}, /* 14600 360 */- {.type Here, {.p 14600 }}, /* 14600 360 */- {.type There, {.p 360 }}, /* 14600 360 */- {.type FromDictionary, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 14608 */- {.type Here, {.p 14608 }}, /* 14608 360 */- {.type There, {.p 360 }}, /* 14608 360 */- {.type FromDictionary, {.p MV_S0}, .src = "dd MV_S0"}, /* dd MV_S0 14616 */- {.type Here, {.p 14616 }}, /* 14616 360 */- {.type There, {.p 360 }}, /* 14616 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 14624 */- {.type Here, {.p 14624 }}, /* 14624 360 */- {.type There, {.p 360 }}, /* 14624 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14632 */- {.type Here, {.p 14632 }}, /* 14632 360 */- {.type There, {.p 360 }}, /* 14632 360 */- {.type FromDictionary, {.p L_C_qstack}, .src = "dd L_C_qstack"}, /* dd L_C_qstack 14640 */- {.type Here, {.p 14640 }}, /* 14640 360 */- {.type There, {.p 360 }}, /* 14640 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14648 */- {.type Here, {.p 14648 }}, /* 14648 360 */- {.type There, {.p 360 }}, /* 14648 360 */- {.type FromDictionary, {.p L173}, .src = "dd L173"}, /* dd L173 14656 */- {.type Here, {.p 14656 }}, /* 14656 360 */- {.type There, {.p 360 }}, /* 14656 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14664 */- {.type Here, {.p 14664 }}, /* 14664 360 */- {.type There, {.p 360 }}, /* 14664 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14672 */- {.type Here, {.p 14672 }}, /* 14672 360 */- {.type There, {.p 360 }}, /* 14672 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14680 */- {.type Here, {.p 14680 }}, /* 14680 360 */- {.type There, {.p 360 }}, /* 14680 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14688 */- {.type Here, {.p 14688 }}, /* 14688 360 */- {.type There, {.p 360 }}, /* 14688 360 */- {.type Here, {.p 14688 }}, /* 14688 360 */- {.type There, {.p 360 }}, /* 14688 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14696 */- {.type Here, {.p 14696 }}, /* 14696 360 */- {.type There, {.p 360 }}, /* 14696 360 */- {.type Here, {.p 14696 }}, /* 14696 360 */- {.type There, {.p 360 }}, /* 14696 360 */- {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT ; ( str -- str 1) ; debug code to show the word found"}, /* dd MC_STDOUT ; ( str -- str 1) ; debug code to show the word found 14704 */- {.type Here, {.p 14704 }}, /* 14704 360 */- {.type There, {.p 360 }}, /* 14704 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( str 1 str )"}, /* dd M_over ; ( str 1 str ) 14712 */- {.type Here, {.p 14712 }}, /* 14712 360 */- {.type There, {.p 360 }}, /* 14712 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( str 1 a n)"}, /* dd C_count ; ( str 1 a n) 14720 */- {.type Here, {.p 14720 }}, /* 14720 360 */- {.type There, {.p 360 }}, /* 14720 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 14728 */- {.type Here, {.p 14728 }}, /* 14728 360 */- {.type There, {.p 360 }}, /* 14728 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 14736 */- {.type Here, {.p 14736 }}, /* 14736 360 */- {.type There, {.p 360 }}, /* 14736 360 */- {.type Here, {.p 14736 }}, /* 14736 360 */- {.type There, {.p 360 }}, /* 14736 360 */- {.type Header, {.hdr { 9, "interpret", /* C_interpret = 14760 */ colon }}}, /* CENTRY "interpret" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set h 14768 */- {.type Here, {.p 14768 }}, /* 14768 360 */- {.type There, {.p 360 }}, /* 14768 360 */- {.type Here, {.p 14768 }}, /* 14768 360 */- {.type There, {.p 360 }}, /* 14768 360 */- {.type Here, {.p 14768 }}, /* 14768 360 */- {.type There, {.p 360 }}, /* 14768 360 */- {.type Here, {.p 14768 }}, /* 14768 360 */- {.type There, {.p 360 }}, /* 14768 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word ; ( -- 'Wordb ) Wordb has the counted string"}, /* dd C_word ; ( -- 'Wordb ) Wordb has the counted string 14776 */- {.type Here, {.p 14776 }}, /* 14776 360 */- {.type There, {.p 360 }}, /* 14776 360 */- {.type FromDictionary, {.p C_find}, .src = "dd C_find ; ( 'Wordb -- a1 f )"}, /* dd C_find ; ( 'Wordb -- a1 f ) 14784 */- {.type Here, {.p 14784 }}, /* 14784 360 */- {.type There, {.p 360 }}, /* 14784 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14792 */- {.type Here, {.p 14792 }}, /* 14792 360 */- {.type There, {.p 360 }}, /* 14792 360 */- {.type FromDictionary, {.p L_C_interpret_2}, .src = "dd L_C_interpret_2"}, /* dd L_C_interpret_2 14800 */- {.type Here, {.p 14800 }}, /* 14800 360 */- {.type There, {.p 360 }}, /* 14800 360 */- {.type Here, {.p 14800 }}, /* 14800 360 */- {.type There, {.p 360 }}, /* 14800 360 */- {.type FromDictionary, {.p M_execute}, .src = "dd M_execute ; found in dictionary, execute"}, /* dd M_execute ; found in dictionary, execute 14808 */- {.type Here, {.p 14808 }}, /* 14808 360 */- {.type There, {.p 360 }}, /* 14808 360 */- {.type Here, {.p 14808 }}, /* 14808 360 */- {.type There, {.p 360 }}, /* 14808 360 */- {.type FromDictionary, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 14816 */- {.type Here, {.p 14816 }}, /* 14816 360 */- {.type There, {.p 360 }}, /* 14816 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14824 */- {.type Here, {.p 14824 }}, /* 14824 360 */- {.type There, {.p 360 }}, /* 14824 360 */- {.type FromDictionary, {.p L_C_interpret_3}, .src = "dd L_C_interpret_3"}, /* dd L_C_interpret_3 14832 */- {.type Here, {.p 14832 }}, /* 14832 360 */- {.type There, {.p 360 }}, /* 14832 360 */- {.type Here, {.p 14832 }}, /* 14832 360 */- {.type There, {.p 360 }}, /* 14832 360 */- {.type Here, {.p 14832 }}, /* 14832 360 */- {.type There, {.p 360 }}, /* 14832 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14840 */- {.type Here, {.p 14840 }}, /* 14840 360 */- {.type There, {.p 360 }}, /* 14840 360 */- {.type FromDictionary, {.p C_number}, .src = "dd C_number"}, /* dd C_number 14848 */- {.type Here, {.p 14848 }}, /* 14848 360 */- {.type There, {.p 360 }}, /* 14848 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 14856 */- {.type Here, {.p 14856 }}, /* 14856 360 */- {.type There, {.p 360 }}, /* 14856 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14864 */- {.type Here, {.p 14864 }}, /* 14864 360 */- {.type There, {.p 360 }}, /* 14864 360 */- {.type FromDictionary, {.p L_C_interpret_4}, .src = "dd L_C_interpret_4"}, /* dd L_C_interpret_4 14872 */- {.type Here, {.p 14872 }}, /* 14872 360 */- {.type There, {.p 360 }}, /* 14872 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space ; the word is neither in the dictionary nor a number"}, /* dd C_space ; the word is neither in the dictionary nor a number 14880 */- {.type Here, {.p 14880 }}, /* 14880 360 */- {.type There, {.p 360 }}, /* 14880 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type ; show the word"}, /* dd C_type ; show the word 14888 */- {.type Here, {.p 14888 }}, /* 14888 360 */- {.type There, {.p 360 }}, /* 14888 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14896 */- {.type Here, {.p 14896 }}, /* 14896 360 */- {.type There, {.p 360 }}, /* 14896 360 */- {.type FromDictionary, {.p L180}, .src = "dd L180 ; error I?"}, /* dd L180 ; error I? 14904 */- {.type Here, {.p 14904 }}, /* 14904 360 */- {.type There, {.p 360 }}, /* 14904 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14912 */- {.type Here, {.p 14912 }}, /* 14912 360 */- {.type There, {.p 360 }}, /* 14912 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14920 */- {.type Here, {.p 14920 }}, /* 14920 360 */- {.type There, {.p 360 }}, /* 14920 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14928 */- {.type Here, {.p 14928 }}, /* 14928 360 */- {.type There, {.p 360 }}, /* 14928 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14936 */- {.type Here, {.p 14936 }}, /* 14936 360 */- {.type There, {.p 360 }}, /* 14936 360 */- {.type Here, {.p 14936 }}, /* 14936 360 */- {.type There, {.p 360 }}, /* 14936 360 */- {.type Here, {.p 14936 }}, /* 14936 360 */- {.type There, {.p 360 }}, /* 14936 360 */- {.type Here, {.p 14936 }}, /* 14936 360 */- {.type There, {.p 360 }}, /* 14936 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14944 */- {.type Here, {.p 14944 }}, /* 14944 360 */- {.type There, {.p 360 }}, /* 14944 360 */- {.type FromDictionary, {.p L_C_interpret}, .src = "dd L_C_interpret"}, /* dd L_C_interpret 14952 */- {.type Here, {.p 14952 }}, /* 14952 360 */- {.type There, {.p 360 }}, /* 14952 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14960 */- {.type Here, {.p 14960 }}, /* 14960 360 */- {.type There, {.p 360 }}, /* 14960 360 */- {.type Here, {.p 14960 }}, /* 14960 360 */- {.type There, {.p 360 }}, /* 14960 360 */- {.type Header, {.hdr { 6, "create", /* C_create = 14976 */ colon }}}, /* CENTRY "create" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa) h 14984 */- {.type Here, {.p 14984 }}, /* 14984 360 */- {.type There, {.p 360 }}, /* 14984 360 */- {.type Here, {.p 14984 }}, /* 14984 360 */- {.type There, {.p 360 }}, /* 14984 360 */- {.type FromDictionary, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 14992 */- {.type Here, {.p 14992 }}, /* 14992 360 */- {.type There, {.p 360 }}, /* 14992 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( -- here )"}, /* dd C_here ; ( -- here ) 15000 */- {.type Here, {.p 15000 }}, /* 15000 360 */- {.type There, {.p 360 }}, /* 15000 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( -- ) (R -- linkaddr )"}, /* dd M_rpush ; ( -- ) (R -- linkaddr ) 15008 */- {.type Here, {.p 15008 }}, /* 15008 360 */- {.type There, {.p 360 }}, /* 15008 360 */- {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop ; ( -- Dtop ) (R -- linkaddr )"}, /* dd MV_Dtop ; ( -- Dtop ) (R -- linkaddr ) 15016 */- {.type Here, {.p 15016 }}, /* 15016 360 */- {.type There, {.p 360 }}, /* 15016 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr )"}, /* dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr ) 15024 */- {.type Here, {.p 15024 }}, /* 15024 360 */- {.type There, {.p 360 }}, /* 15024 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; ( dtop -- ) (R -- linkaddr )"}, /* dd C_comma ; ( dtop -- ) (R -- linkaddr ) 15032 */- {.type Here, {.p 15032 }}, /* 15032 360 */- {.type There, {.p 360 }}, /* 15032 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word ; get the word from the input stream ( -- 'counted-string ) in Wordb"}, /* dd C_word ; get the word from the input stream ( -- 'counted-string ) in Wordb 15040 */- {.type Here, {.p 15040 }}, /* 15040 360 */- {.type There, {.p 360 }}, /* 15040 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a -- a a ) (R -- linkaddr )"}, /* dd M_dup ; ( a -- a a ) (R -- linkaddr ) 15048 */- {.type Here, {.p 15048 }}, /* 15048 360 */- {.type There, {.p 360 }}, /* 15048 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a -- a len ) (R -- linkaddr )"}, /* dd M_cfetch ; ( a a -- a len ) (R -- linkaddr ) 15056 */- {.type Here, {.p 15056 }}, /* 15056 360 */- {.type There, {.p 360 }}, /* 15056 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( a len -- a len here ) (R -- linkaddr )"}, /* dd C_here ; ( a len -- a len here ) (R -- linkaddr ) 15064 */- {.type Here, {.p 15064 }}, /* 15064 360 */- {.type There, {.p 360 }}, /* 15064 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( a len here -- a here len ) (R -- linkaddr )"}, /* dd M_xswap ; ( a len here -- a here len ) (R -- linkaddr ) 15072 */- {.type Here, {.p 15072 }}, /* 15072 360 */- {.type There, {.p 360 }}, /* 15072 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte"}, /* dd C_1plus ; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte 15080 */- {.type Here, {.p 15080 }}, /* 15080 360 */- {.type There, {.p 360 }}, /* 15080 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr )"}, /* dd M_dup ; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr ) 15088 */- {.type Here, {.p 15088 }}, /* 15088 360 */- {.type There, {.p 360 }}, /* 15088 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 )"}, /* dd M_rpush ; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 ) 15096 */- {.type Here, {.p 15096 }}, /* 15096 360 */- {.type There, {.p 360 }}, /* 15096 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; ( a here len+1 -- ) (R -- linkaddr len+1 )"}, /* dd M_cmove ; ( a here len+1 -- ) (R -- linkaddr len+1 ) 15104 */- {.type Here, {.p 15104 }}, /* 15104 360 */- {.type There, {.p 360 }}, /* 15104 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( -- len+1 ) (R -- linkaddr )"}, /* dd M_rpop ; ( -- len+1 ) (R -- linkaddr ) 15112 */- {.type Here, {.p 15112 }}, /* 15112 360 */- {.type There, {.p 360 }}, /* 15112 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1"}, /* dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1 15120 */- {.type Here, {.p 15120 }}, /* 15120 360 */- {.type There, {.p 360 }}, /* 15120 360 */- {.type FromDictionary, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 15128 */- {.type Here, {.p 15128 }}, /* 15128 360 */- {.type There, {.p 360 }}, /* 15128 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15136 */- {.type Here, {.p 15136 }}, /* 15136 360 */- {.type There, {.p 360 }}, /* 15136 360 */- {.type FromDictionary, {.p M_variable}, .src = "dd M_variable"}, /* dd M_variable 15144 */- {.type Here, {.p 15144 }}, /* 15144 360 */- {.type There, {.p 360 }}, /* 15144 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( -- variablecfa) (R -- linkaddr )"}, /* dd M_fetch ; ( -- variablecfa) (R -- linkaddr ) 15152 */- {.type Here, {.p 15152 }}, /* 15152 360 */- {.type There, {.p 360 }}, /* 15152 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; ( -- ) put the variablecfa into the cfa"}, /* dd C_comma ; ( -- ) put the variablecfa into the cfa 15160 */- {.type Here, {.p 15160 }}, /* 15160 360 */- {.type There, {.p 360 }}, /* 15160 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( -- linkaddr) (R -- )"}, /* dd M_rpop ; ( -- linkaddr) (R -- ) 15168 */- {.type Here, {.p 15168 }}, /* 15168 360 */- {.type There, {.p 360 }}, /* 15168 360 */- {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop"}, /* dd MV_Dtop 15176 */- {.type Here, {.p 15176 }}, /* 15176 360 */- {.type There, {.p 360 }}, /* 15176 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; Dtop = just created link address"}, /* dd M_store ; Dtop = just created link address 15184 */- {.type Here, {.p 15184 }}, /* 15184 360 */- {.type There, {.p 360 }}, /* 15184 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15192 */- {.type Here, {.p 15192 }}, /* 15192 360 */- {.type There, {.p 360 }}, /* 15192 360 */- {.type Here, {.p 15192 }}, /* 15192 360 */- {.type There, {.p 360 }}, /* 15192 360 */- {.type Header, {.hdr { 8, "variable", /* C_variable = 15216 */ colon }}}, /* CENTRY "variable" variable 8 ; compile to put the there then on the stack h 15224 */- {.type Here, {.p 15224 }}, /* 15224 360 */- {.type There, {.p 360 }}, /* 15224 360 */- {.type Here, {.p 15224 }}, /* 15224 360 */- {.type There, {.p 360 }}, /* 15224 360 */- {.type FromDictionary, {.p C_create}, .src = "dd C_create"}, /* dd C_create 15232 */- {.type Here, {.p 15232 }}, /* 15232 360 */- {.type There, {.p 360 }}, /* 15232 360 */- {.type FromDictionary, {.p C_there}, .src = "dd C_there"}, /* dd C_there 15240 */- {.type Here, {.p 15240 }}, /* 15240 360 */- {.type There, {.p 360 }}, /* 15240 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; put the next available variable location in pfa"}, /* dd C_comma ; put the next available variable location in pfa 15248 */- {.type Here, {.p 15248 }}, /* 15248 360 */- {.type There, {.p 360 }}, /* 15248 360 */- {.type Here, {.p 15248 }}, /* 15248 360 */- {.type There, {.p 360 }}, /* 15248 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15256 */- {.type Here, {.p 15256 }}, /* 15256 360 */- {.type There, {.p 360 }}, /* 15256 360 */- {.type Absolute, {.p 1}}, /* dd 1 15264 */- {.type Here, {.p 15264 }}, /* 15264 360 */- {.type There, {.p 360 }}, /* 15264 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 15272 */- {.type Here, {.p 15272 }}, /* 15272 360 */- {.type There, {.p 360 }}, /* 15272 360 */- {.type FromDictionary, {.p C_vallot}, .src = "dd C_vallot ; there = there+8, stored at Vp"}, /* dd C_vallot ; there = there+8, stored at Vp 15280 */- {.type Here, {.p 15280 }}, /* 15280 360 */- {.type There, {.p 360 }}, /* 15280 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15288 */- {.type Here, {.p 15288 }}, /* 15288 360 */- {.type There, {.p 360 }}, /* 15288 360 */- {.type Here, {.p 15288 }}, /* 15288 360 */- {.type There, {.p 360 }}, /* 15288 360 */- {.type Header, {.hdr { 8, "constant", /* C_constant = 15312 */ colon }}}, /* CENTRY "constant" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant) h 15320 */- {.type Here, {.p 15320 }}, /* 15320 360 */- {.type There, {.p 360 }}, /* 15320 360 */- {.type Here, {.p 15320 }}, /* 15320 360 */- {.type There, {.p 360 }}, /* 15320 360 */- {.type FromDictionary, {.p C_create}, .src = "dd C_create ; create dictionary header upto the cfa"}, /* dd C_create ; create dictionary header upto the cfa 15328 */- {.type Here, {.p 15328 }}, /* 15328 360 */- {.type There, {.p 360 }}, /* 15328 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15336 */- {.type Here, {.p 15336 }}, /* 15336 360 */- {.type There, {.p 360 }}, /* 15336 360 */- {.type FromDictionary, {.p M_constant}, .src = "dd M_constant"}, /* dd M_constant 15344 */- {.type Here, {.p 15344 }}, /* 15344 360 */- {.type There, {.p 360 }}, /* 15344 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( Contstantcfa -- (constant) )"}, /* dd M_fetch ; ( Contstantcfa -- (constant) ) 15352 */- {.type Here, {.p 15352 }}, /* 15352 360 */- {.type There, {.p 360 }}, /* 15352 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( (constant) -- (constant) here )"}, /* dd C_here ; ( (constant) -- (constant) here ) 15360 */- {.type Here, {.p 15360 }}, /* 15360 360 */- {.type There, {.p 360 }}, /* 15360 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15368 */- {.type Here, {.p 15368 }}, /* 15368 360 */- {.type There, {.p 360 }}, /* 15368 360 */- {.type Absolute, {.p 1}}, /* dd 1 15376 */- {.type Here, {.p 15376 }}, /* 15376 360 */- {.type There, {.p 360 }}, /* 15376 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells ; ( (constant) here -- (constant) here 8 )"}, /* dd C_cells ; ( (constant) here -- (constant) here 8 ) 15384 */- {.type Here, {.p 15384 }}, /* 15384 360 */- {.type There, {.p 360 }}, /* 15384 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( (constant) here 8 -- (constant) here-8 )"}, /* dd M_minus ; ( (constant) here 8 -- (constant) here-8 ) 15392 */- {.type Here, {.p 15392 }}, /* 15392 360 */- {.type There, {.p 360 }}, /* 15392 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) "}, /* dd M_store ; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) 15400 */- {.type Here, {.p 15400 }}, /* 15400 360 */- {.type There, {.p 360 }}, /* 15400 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; store n into the dictionary"}, /* dd C_comma ; store n into the dictionary 15408 */- {.type Here, {.p 15408 }}, /* 15408 360 */- {.type There, {.p 360 }}, /* 15408 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15416 */- {.type Here, {.p 15416 }}, /* 15416 360 */- {.type There, {.p 360 }}, /* 15416 360 */- {.type Here, {.p 15416 }}, /* 15416 360 */- {.type There, {.p 360 }}, /* 15416 360 */- {.type Header, {.hdr { 9, "immediate", /* C_immediate = 15440 */ colon }}}, /* CENTRY "immediate" immediate 9 h 15448 */- {.type Here, {.p 15448 }}, /* 15448 360 */- {.type There, {.p 360 }}, /* 15448 360 */- {.type Here, {.p 15448 }}, /* 15448 360 */- {.type There, {.p 360 }}, /* 15448 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 15456 */- {.type Here, {.p 15456 }}, /* 15456 360 */- {.type There, {.p 360 }}, /* 15456 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15464 */- {.type Here, {.p 15464 }}, /* 15464 360 */- {.type There, {.p 360 }}, /* 15464 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 15472 */- {.type Here, {.p 15472 }}, /* 15472 360 */- {.type There, {.p 360 }}, /* 15472 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15480 */- {.type Here, {.p 15480 }}, /* 15480 360 */- {.type There, {.p 360 }}, /* 15480 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15488 */- {.type Here, {.p 15488 }}, /* 15488 360 */- {.type There, {.p 360 }}, /* 15488 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15496 */- {.type Here, {.p 15496 }}, /* 15496 360 */- {.type There, {.p 360 }}, /* 15496 360 */- {.type Absolute, {.p 128}}, /* dd 128 15504 */- {.type Here, {.p 15504 }}, /* 15504 360 */- {.type There, {.p 360 }}, /* 15504 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 15512 */- {.type Here, {.p 15512 }}, /* 15512 360 */- {.type There, {.p 360 }}, /* 15512 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 15520 */- {.type Here, {.p 15520 }}, /* 15520 360 */- {.type There, {.p 360 }}, /* 15520 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 15528 */- {.type Here, {.p 15528 }}, /* 15528 360 */- {.type There, {.p 360 }}, /* 15528 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15536 */- {.type Here, {.p 15536 }}, /* 15536 360 */- {.type There, {.p 360 }}, /* 15536 360 */- {.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 15552 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 15560 */- {.type Here, {.p 15560 }}, /* 15560 360 */- {.type There, {.p 360 }}, /* 15560 360 */- {.type Here, {.p 15560 }}, /* 15560 360 */- {.type There, {.p 360 }}, /* 15560 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15568 */- {.type Here, {.p 15568 }}, /* 15568 360 */- {.type There, {.p 360 }}, /* 15568 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15576 */- {.type Here, {.p 15576 }}, /* 15576 360 */- {.type There, {.p 360 }}, /* 15576 360 */- {.type Absolute, {.p 63}}, /* dd 63 15584 */- {.type Here, {.p 15584 }}, /* 15584 360 */- {.type There, {.p 360 }}, /* 15584 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15592 */- {.type Here, {.p 15592 }}, /* 15592 360 */- {.type There, {.p 360 }}, /* 15592 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 15600 */- {.type Here, {.p 15600 }}, /* 15600 360 */- {.type There, {.p 360 }}, /* 15600 360 */- {.type FromDictionary, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 15608 */- {.type Here, {.p 15608 }}, /* 15608 360 */- {.type There, {.p 360 }}, /* 15608 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15616 */- {.type Here, {.p 15616 }}, /* 15616 360 */- {.type There, {.p 360 }}, /* 15616 360 */- {.type Here, {.p 15616 }}, /* 15616 360 */- {.type There, {.p 360 }}, /* 15616 360 */- {.type Header, {.hdr { 7, "compile", /* C_compile = 15632 */ colon }}}, /* CENTRY "compile" compile 7 h 15640 */- {.type Here, {.p 15640 }}, /* 15640 360 */- {.type There, {.p 360 }}, /* 15640 360 */- {.type Here, {.p 15640 }}, /* 15640 360 */- {.type There, {.p 360 }}, /* 15640 360 */- {.type FromDictionary, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 15648 */- {.type Here, {.p 15648 }}, /* 15648 360 */- {.type There, {.p 360 }}, /* 15648 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15656 */- {.type Here, {.p 15656 }}, /* 15656 360 */- {.type There, {.p 360 }}, /* 15656 360 */- {.type FromDictionary, {.p L_C_compile}, .src = "dd L_C_compile"}, /* dd L_C_compile 15664 */- {.type Here, {.p 15664 }}, /* 15664 360 */- {.type There, {.p 360 }}, /* 15664 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15672 */- {.type Here, {.p 15672 }}, /* 15672 360 */- {.type There, {.p 360 }}, /* 15672 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15680 */- {.type Here, {.p 15680 }}, /* 15680 360 */- {.type There, {.p 360 }}, /* 15680 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15688 */- {.type Here, {.p 15688 }}, /* 15688 360 */- {.type There, {.p 360 }}, /* 15688 360 */- {.type Absolute, {.p 128}}, /* dd 128 15696 */- {.type Here, {.p 15696 }}, /* 15696 360 */- {.type There, {.p 360 }}, /* 15696 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15704 */- {.type Here, {.p 15704 }}, /* 15704 360 */- {.type There, {.p 360 }}, /* 15704 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15712 */- {.type Here, {.p 15712 }}, /* 15712 360 */- {.type There, {.p 360 }}, /* 15712 360 */- {.type FromDictionary, {.p L_C_compile_1}, .src = "dd L_C_compile_1"}, /* dd L_C_compile_1 15720 */- {.type Here, {.p 15720 }}, /* 15720 360 */- {.type There, {.p 360 }}, /* 15720 360 */- {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa ; immediate"}, /* dd C_tocfa ; immediate 15728 */- {.type Here, {.p 15728 }}, /* 15728 360 */- {.type There, {.p 360 }}, /* 15728 360 */- {.type FromDictionary, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 15736 */- {.type Here, {.p 15736 }}, /* 15736 360 */- {.type There, {.p 360 }}, /* 15736 360 */- {.type FromDictionary, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 15744 */- {.type Here, {.p 15744 }}, /* 15744 360 */- {.type There, {.p 360 }}, /* 15744 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15752 */- {.type Here, {.p 15752 }}, /* 15752 360 */- {.type There, {.p 360 }}, /* 15752 360 */- {.type FromDictionary, {.p L_C_compile_2}, .src = "dd L_C_compile_2"}, /* dd L_C_compile_2 15760 */- {.type Here, {.p 15760 }}, /* 15760 360 */- {.type There, {.p 360 }}, /* 15760 360 */- {.type Here, {.p 15760 }}, /* 15760 360 */- {.type There, {.p 360 }}, /* 15760 360 */- {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 15768 */- {.type Here, {.p 15768 }}, /* 15768 360 */- {.type There, {.p 360 }}, /* 15768 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15776 */- {.type Here, {.p 15776 }}, /* 15776 360 */- {.type There, {.p 360 }}, /* 15776 360 */- {.type Here, {.p 15776 }}, /* 15776 360 */- {.type There, {.p 360 }}, /* 15776 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15784 */- {.type Here, {.p 15784 }}, /* 15784 360 */- {.type There, {.p 360 }}, /* 15784 360 */- {.type FromDictionary, {.p L_C_compile_3}, .src = "dd L_C_compile_3"}, /* dd L_C_compile_3 15792 */- {.type Here, {.p 15792 }}, /* 15792 360 */- {.type There, {.p 360 }}, /* 15792 360 */- {.type Here, {.p 15792 }}, /* 15792 360 */- {.type There, {.p 360 }}, /* 15792 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15800 */- {.type Here, {.p 15800 }}, /* 15800 360 */- {.type There, {.p 360 }}, /* 15800 360 */- {.type FromDictionary, {.p C_number}, .src = "dd C_number"}, /* dd C_number 15808 */- {.type Here, {.p 15808 }}, /* 15808 360 */- {.type There, {.p 360 }}, /* 15808 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 15816 */- {.type Here, {.p 15816 }}, /* 15816 360 */- {.type There, {.p 360 }}, /* 15816 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15824 */- {.type Here, {.p 15824 }}, /* 15824 360 */- {.type There, {.p 360 }}, /* 15824 360 */- {.type FromDictionary, {.p L_C_compile_4}, .src = "dd L_C_compile_4"}, /* dd L_C_compile_4 15832 */- {.type Here, {.p 15832 }}, /* 15832 360 */- {.type There, {.p 360 }}, /* 15832 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 15840 */- {.type Here, {.p 15840 }}, /* 15840 360 */- {.type There, {.p 360 }}, /* 15840 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15848 */- {.type Here, {.p 15848 }}, /* 15848 360 */- {.type There, {.p 360 }}, /* 15848 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15856 */- {.type Here, {.p 15856 }}, /* 15856 360 */- {.type There, {.p 360 }}, /* 15856 360 */- {.type FromDictionary, {.p L_C_compile_5}, .src = "dd L_C_compile_5"}, /* dd L_C_compile_5 15864 */- {.type Here, {.p 15864 }}, /* 15864 360 */- {.type There, {.p 360 }}, /* 15864 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15872 */- {.type Here, {.p 15872 }}, /* 15872 360 */- {.type There, {.p 360 }}, /* 15872 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15880 */- {.type Here, {.p 15880 }}, /* 15880 360 */- {.type There, {.p 360 }}, /* 15880 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 15888 */- {.type Here, {.p 15888 }}, /* 15888 360 */- {.type There, {.p 360 }}, /* 15888 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 15896 */- {.type Here, {.p 15896 }}, /* 15896 360 */- {.type There, {.p 360 }}, /* 15896 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15904 */- {.type Here, {.p 15904 }}, /* 15904 360 */- {.type There, {.p 360 }}, /* 15904 360 */- {.type FromDictionary, {.p L_C_compile_6}, .src = "dd L_C_compile_6"}, /* dd L_C_compile_6 15912 */- {.type Here, {.p 15912 }}, /* 15912 360 */- {.type There, {.p 360 }}, /* 15912 360 */- {.type Here, {.p 15912 }}, /* 15912 360 */- {.type There, {.p 360 }}, /* 15912 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15920 */- {.type Here, {.p 15920 }}, /* 15920 360 */- {.type There, {.p 360 }}, /* 15920 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15928 */- {.type Here, {.p 15928 }}, /* 15928 360 */- {.type There, {.p 360 }}, /* 15928 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15936 */- {.type Here, {.p 15936 }}, /* 15936 360 */- {.type There, {.p 360 }}, /* 15936 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15944 */- {.type Here, {.p 15944 }}, /* 15944 360 */- {.type There, {.p 360 }}, /* 15944 360 */- {.type Here, {.p 15944 }}, /* 15944 360 */- {.type There, {.p 360 }}, /* 15944 360 */- {.type Here, {.p 15944 }}, /* 15944 360 */- {.type There, {.p 360 }}, /* 15944 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15952 */- {.type Here, {.p 15952 }}, /* 15952 360 */- {.type There, {.p 360 }}, /* 15952 360 */- {.type Here, {.p 15952 }}, /* 15952 360 */- {.type There, {.p 360 }}, /* 15952 360 */- {.type Header, {.hdr { 1, "]", /* C_close_bracket = 15968 */ colon }}}, /* CENTRY "]" close_bracket 1 h 15976 */- {.type Here, {.p 15976 }}, /* 15976 360 */- {.type There, {.p 360 }}, /* 15976 360 */- {.type Here, {.p 15976 }}, /* 15976 360 */- {.type There, {.p 360 }}, /* 15976 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 15984 */- {.type Here, {.p 15984 }}, /* 15984 360 */- {.type There, {.p 360 }}, /* 15984 360 */- {.type FromDictionary, {.p C_on}, .src = "dd C_on"}, /* dd C_on 15992 */- {.type Here, {.p 15992 }}, /* 15992 360 */- {.type There, {.p 360 }}, /* 15992 360 */- {.type Here, {.p 15992 }}, /* 15992 360 */- {.type There, {.p 360 }}, /* 15992 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 16000 */- {.type Here, {.p 16000 }}, /* 16000 360 */- {.type There, {.p 360 }}, /* 16000 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 16008 */- {.type Here, {.p 16008 }}, /* 16008 360 */- {.type There, {.p 360 }}, /* 16008 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16016 */- {.type Here, {.p 16016 }}, /* 16016 360 */- {.type There, {.p 360 }}, /* 16016 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 16024 */- {.type Here, {.p 16024 }}, /* 16024 360 */- {.type There, {.p 360 }}, /* 16024 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16032 */- {.type Here, {.p 16032 }}, /* 16032 360 */- {.type There, {.p 360 }}, /* 16032 360 */- {.type FromDictionary, {.p L_C_close_bracket_1}, .src = "dd L_C_close_bracket_1"}, /* dd L_C_close_bracket_1 16040 */- {.type Here, {.p 16040 }}, /* 16040 360 */- {.type There, {.p 360 }}, /* 16040 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 16048 */- {.type Here, {.p 16048 }}, /* 16048 360 */- {.type There, {.p 360 }}, /* 16048 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 16056 */- {.type Here, {.p 16056 }}, /* 16056 360 */- {.type There, {.p 360 }}, /* 16056 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 16064 */- {.type Here, {.p 16064 }}, /* 16064 360 */- {.type There, {.p 360 }}, /* 16064 360 */- {.type FromDictionary, {.p L_C_close_bracket_2}, .src = "dd L_C_close_bracket_2"}, /* dd L_C_close_bracket_2 16072 */- {.type Here, {.p 16072 }}, /* 16072 360 */- {.type There, {.p 360 }}, /* 16072 360 */- {.type Here, {.p 16072 }}, /* 16072 360 */- {.type There, {.p 360 }}, /* 16072 360 */- {.type FromDictionary, {.p C_compile}, .src = "dd C_compile"}, /* dd C_compile 16080 */- {.type Here, {.p 16080 }}, /* 16080 360 */- {.type There, {.p 360 }}, /* 16080 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 16088 */- {.type Here, {.p 16088 }}, /* 16088 360 */- {.type There, {.p 360 }}, /* 16088 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16096 */- {.type Here, {.p 16096 }}, /* 16096 360 */- {.type There, {.p 360 }}, /* 16096 360 */- {.type Here, {.p 16096 }}, /* 16096 360 */- {.type There, {.p 360 }}, /* 16096 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16104 */- {.type Here, {.p 16104 }}, /* 16104 360 */- {.type There, {.p 360 }}, /* 16104 360 */- {.type FromDictionary, {.p L_C_close_bracket_3}, .src = "dd L_C_close_bracket_3"}, /* dd L_C_close_bracket_3 16112 */- {.type Here, {.p 16112 }}, /* 16112 360 */- {.type There, {.p 360 }}, /* 16112 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 16120 */- {.type Here, {.p 16120 }}, /* 16120 360 */- {.type There, {.p 360 }}, /* 16120 360 */- {.type FromDictionary, {.p L_C_close_bracket}, .src = "dd L_C_close_bracket"}, /* dd L_C_close_bracket 16128 */- {.type Here, {.p 16128 }}, /* 16128 360 */- {.type There, {.p 360 }}, /* 16128 360 */- {.type Here, {.p 16128 }}, /* 16128 360 */- {.type There, {.p 360 }}, /* 16128 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16136 */- {.type Here, {.p 16136 }}, /* 16136 360 */- {.type There, {.p 360 }}, /* 16136 360 */- {.type Here, {.p 16136 }}, /* 16136 360 */- {.type There, {.p 360 }}, /* 16136 360 */- {.type IHeader, {.hdr { 1, "[", /* CI_open_bracket = 16152 */ colon }}}, /* CIENTRY "[" open_bracket 1 h 16160 */- {.type Here, {.p 16160 }}, /* 16160 360 */- {.type There, {.p 360 }}, /* 16160 360 */- {.type Here, {.p 16160 }}, /* 16160 360 */- {.type There, {.p 360 }}, /* 16160 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 16168 */- {.type Here, {.p 16168 }}, /* 16168 360 */- {.type There, {.p 360 }}, /* 16168 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off"}, /* dd C_off 16176 */- {.type Here, {.p 16176 }}, /* 16176 360 */- {.type There, {.p 360 }}, /* 16176 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16184 */- {.type Here, {.p 16184 }}, /* 16184 360 */- {.type There, {.p 360 }}, /* 16184 360 */- {.type Header, {.hdr { 6, "smudge", /* C_smudge = 16200 */ colon }}}, /* CENTRY "smudge" smudge 6 h 16208 */- {.type Here, {.p 16208 }}, /* 16208 360 */- {.type There, {.p 360 }}, /* 16208 360 */- {.type Here, {.p 16208 }}, /* 16208 360 */- {.type There, {.p 360 }}, /* 16208 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16216 */- {.type Here, {.p 16216 }}, /* 16216 360 */- {.type There, {.p 360 }}, /* 16216 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16224 */- {.type Here, {.p 16224 }}, /* 16224 360 */- {.type There, {.p 360 }}, /* 16224 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16232 */- {.type Here, {.p 16232 }}, /* 16232 360 */- {.type There, {.p 360 }}, /* 16232 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 16240 */- {.type Here, {.p 16240 }}, /* 16240 360 */- {.type There, {.p 360 }}, /* 16240 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16248 */- {.type Here, {.p 16248 }}, /* 16248 360 */- {.type There, {.p 360 }}, /* 16248 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16256 */- {.type Here, {.p 16256 }}, /* 16256 360 */- {.type There, {.p 360 }}, /* 16256 360 */- {.type Absolute, {.p 64}}, /* dd 64 16264 */- {.type Here, {.p 16264 }}, /* 16264 360 */- {.type There, {.p 360 }}, /* 16264 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 16272 */- {.type Here, {.p 16272 }}, /* 16272 360 */- {.type There, {.p 360 }}, /* 16272 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16280 */- {.type Here, {.p 16280 }}, /* 16280 360 */- {.type There, {.p 360 }}, /* 16280 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 16288 */- {.type Here, {.p 16288 }}, /* 16288 360 */- {.type There, {.p 360 }}, /* 16288 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16296 */- {.type Here, {.p 16296 }}, /* 16296 360 */- {.type There, {.p 360 }}, /* 16296 360 */- {.type Header, {.hdr { 6, "reveal", /* C_reveal = 16312 */ colon }}}, /* CENTRY "reveal" reveal 6 h 16320 */- {.type Here, {.p 16320 }}, /* 16320 360 */- {.type There, {.p 360 }}, /* 16320 360 */- {.type Here, {.p 16320 }}, /* 16320 360 */- {.type There, {.p 360 }}, /* 16320 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16328 */- {.type Here, {.p 16328 }}, /* 16328 360 */- {.type There, {.p 360 }}, /* 16328 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16336 */- {.type Here, {.p 16336 }}, /* 16336 360 */- {.type There, {.p 360 }}, /* 16336 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16344 */- {.type Here, {.p 16344 }}, /* 16344 360 */- {.type There, {.p 360 }}, /* 16344 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 16352 */- {.type Here, {.p 16352 }}, /* 16352 360 */- {.type There, {.p 360 }}, /* 16352 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16360 */- {.type Here, {.p 16360 }}, /* 16360 360 */- {.type There, {.p 360 }}, /* 16360 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16368 */- {.type Here, {.p 16368 }}, /* 16368 360 */- {.type There, {.p 360 }}, /* 16368 360 */- {.type Absolute, {.p 64}}, /* dd 64 16376 */- {.type Here, {.p 16376 }}, /* 16376 360 */- {.type There, {.p 360 }}, /* 16376 360 */- {.type FromDictionary, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 16384 */- {.type Here, {.p 16384 }}, /* 16384 360 */- {.type There, {.p 360 }}, /* 16384 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 16392 */- {.type Here, {.p 16392 }}, /* 16392 360 */- {.type There, {.p 360 }}, /* 16392 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16400 */- {.type Here, {.p 16400 }}, /* 16400 360 */- {.type There, {.p 360 }}, /* 16400 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 16408 */- {.type Here, {.p 16408 }}, /* 16408 360 */- {.type There, {.p 360 }}, /* 16408 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16416 */- {.type Here, {.p 16416 }}, /* 16416 360 */- {.type There, {.p 360 }}, /* 16416 360 */- {.type Here, {.p 16416 }}, /* 16416 360 */- {.type There, {.p 360 }}, /* 16416 360 */- {.type Header, {.hdr { 1, ":", /* C_colon = 16432 */ colon }}}, /* CENTRY ":" colon 1 h 16440 */- {.type Here, {.p 16440 }}, /* 16440 360 */- {.type There, {.p 360 }}, /* 16440 360 */- {.type Here, {.p 16440 }}, /* 16440 360 */- {.type There, {.p 360 }}, /* 16440 360 */- {.type FromDictionary, {.p C_create}, .src = "dd C_create ; create a dictionary header with (variable) at cfa"}, /* dd C_create ; create a dictionary header with (variable) at cfa 16448 */- {.type Here, {.p 16448 }}, /* 16448 360 */- {.type There, {.p 360 }}, /* 16448 360 */- {.type FromDictionary, {.p C_smudge}, .src = "dd C_smudge"}, /* dd C_smudge 16456 */- {.type Here, {.p 16456 }}, /* 16456 360 */- {.type There, {.p 360 }}, /* 16456 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16464 */- {.type Here, {.p 16464 }}, /* 16464 360 */- {.type There, {.p 360 }}, /* 16464 360 */- {.type FromDictionary, {.p M_colon}, .src = "dd M_colon"}, /* dd M_colon 16472 */- {.type Here, {.p 16472 }}, /* 16472 360 */- {.type There, {.p 360 }}, /* 16472 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( Coloncfa -- (colon) ) fetches the cfa of M_colon"}, /* dd M_fetch ; ( Coloncfa -- (colon) ) fetches the cfa of M_colon 16480 */- {.type Here, {.p 16480 }}, /* 16480 360 */- {.type There, {.p 360 }}, /* 16480 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( (colon) -- (colon) here )"}, /* dd C_here ; ( (colon) -- (colon) here ) 16488 */- {.type Here, {.p 16488 }}, /* 16488 360 */- {.type There, {.p 360 }}, /* 16488 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16496 */- {.type Here, {.p 16496 }}, /* 16496 360 */- {.type There, {.p 360 }}, /* 16496 360 */- {.type Absolute, {.p 1}}, /* dd 1 16504 */- {.type Here, {.p 16504 }}, /* 16504 360 */- {.type There, {.p 360 }}, /* 16504 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 16512 */- {.type Here, {.p 16512 }}, /* 16512 360 */- {.type There, {.p 360 }}, /* 16512 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( (colon) here -- (colon) here-8 )"}, /* dd M_minus ; ( (colon) here -- (colon) here-8 ) 16520 */- {.type Here, {.p 16520 }}, /* 16520 360 */- {.type There, {.p 360 }}, /* 16520 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( (colon) here-8 -- ) change the cfa from (variable) to colon"}, /* dd M_store ; ( (colon) here-8 -- ) change the cfa from (variable) to colon 16528 */- {.type Here, {.p 16528 }}, /* 16528 360 */- {.type There, {.p 360 }}, /* 16528 360 */- {.type FromDictionary, {.p C_close_bracket}, .src = "dd C_close_bracket"}, /* dd C_close_bracket 16536 */- {.type Here, {.p 16536 }}, /* 16536 360 */- {.type There, {.p 360 }}, /* 16536 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16544 */- {.type Here, {.p 16544 }}, /* 16544 360 */- {.type There, {.p 360 }}, /* 16544 360 */- {.type Here, {.p 16544 }}, /* 16544 360 */- {.type There, {.p 360 }}, /* 16544 360 */- {.type IHeader, {.hdr { 1, ";", /* CI_semicolon = 16560 */ colon }}}, /* CIENTRY ";" semicolon 1 h 16568 */- {.type Here, {.p 16568 }}, /* 16568 360 */- {.type There, {.p 360 }}, /* 16568 360 */- {.type Here, {.p 16568 }}, /* 16568 360 */- {.type There, {.p 360 }}, /* 16568 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16576 */- {.type Here, {.p 16576 }}, /* 16576 360 */- {.type There, {.p 360 }}, /* 16576 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16584 */- {.type Here, {.p 16584 }}, /* 16584 360 */- {.type There, {.p 360 }}, /* 16584 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16592 */- {.type Here, {.p 16592 }}, /* 16592 360 */- {.type There, {.p 360 }}, /* 16592 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 16600 */- {.type Here, {.p 16600 }}, /* 16600 360 */- {.type There, {.p 360 }}, /* 16600 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off"}, /* dd C_off 16608 */- {.type Here, {.p 16608 }}, /* 16608 360 */- {.type There, {.p 360 }}, /* 16608 360 */- {.type FromDictionary, {.p C_reveal}, .src = "dd C_reveal"}, /* dd C_reveal 16616 */- {.type Here, {.p 16616 }}, /* 16616 360 */- {.type There, {.p 360 }}, /* 16616 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16624 */- {.type Here, {.p 16624 }}, /* 16624 360 */- {.type There, {.p 360 }}, /* 16624 360 */- {.type Here, {.p 16624 }}, /* 16624 360 */- {.type There, {.p 360 }}, /* 16624 360 */- {.type IHeader, {.hdr { 7, "recurse", /* CI_recurse = 16640 */ colon }}}, /* CIENTRY "recurse" recurse 7 h 16648 */- {.type Here, {.p 16648 }}, /* 16648 360 */- {.type There, {.p 360 }}, /* 16648 360 */- {.type Here, {.p 16648 }}, /* 16648 360 */- {.type There, {.p 360 }}, /* 16648 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16656 */- {.type Here, {.p 16656 }}, /* 16656 360 */- {.type There, {.p 360 }}, /* 16656 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16664 */- {.type Here, {.p 16664 }}, /* 16664 360 */- {.type There, {.p 360 }}, /* 16664 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16672 */- {.type Here, {.p 16672 }}, /* 16672 360 */- {.type There, {.p 360 }}, /* 16672 360 */- {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 16680 */- {.type Here, {.p 16680 }}, /* 16680 360 */- {.type There, {.p 360 }}, /* 16680 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16688 */- {.type Here, {.p 16688 }}, /* 16688 360 */- {.type There, {.p 360 }}, /* 16688 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16696 */- {.type Here, {.p 16696 }}, /* 16696 360 */- {.type There, {.p 360 }}, /* 16696 360 */- {.type Here, {.p 16696 }}, /* 16696 360 */- {.type There, {.p 360 }}, /* 16696 360 */- {.type Header, {.hdr { 4, "char", /* C_char = 16712 */ colon }}}, /* CENTRY "char" char 4 ; ( -- c ) fetch the first character of the next word from input h 16720 */- {.type Here, {.p 16720 }}, /* 16720 360 */- {.type There, {.p 360 }}, /* 16720 360 */- {.type Here, {.p 16720 }}, /* 16720 360 */- {.type There, {.p 360 }}, /* 16720 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word ; ( -- a ) puts the address of the counted string from the input on the stack"}, /* dd C_word ; ( -- a ) puts the address of the counted string from the input on the stack 16728 */- {.type Here, {.p 16728 }}, /* 16728 360 */- {.type There, {.p 360 }}, /* 16728 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; skip the count"}, /* dd C_1plus ; skip the count 16736 */- {.type Here, {.p 16736 }}, /* 16736 360 */- {.type There, {.p 360 }}, /* 16736 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; fetch the first character"}, /* dd M_cfetch ; fetch the first character 16744 */- {.type Here, {.p 16744 }}, /* 16744 360 */- {.type There, {.p 360 }}, /* 16744 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16752 */- {.type Here, {.p 16752 }}, /* 16752 360 */- {.type There, {.p 360 }}, /* 16752 360 */- {.type Here, {.p 16752 }}, /* 16752 360 */- {.type There, {.p 360 }}, /* 16752 360 */- {.type Header, {.hdr { 7, "literal", /* C_literal = 16768 */ colon }}}, /* CENTRY "literal" literal 7 ; ( n -- ) adds (literal) n to the dictionary h 16776 */- {.type Here, {.p 16776 }}, /* 16776 360 */- {.type There, {.p 360 }}, /* 16776 360 */- {.type Here, {.p 16776 }}, /* 16776 360 */- {.type There, {.p 360 }}, /* 16776 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16784 */- {.type Here, {.p 16784 }}, /* 16784 360 */- {.type There, {.p 360 }}, /* 16784 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16792 */- {.type Here, {.p 16792 }}, /* 16792 360 */- {.type There, {.p 360 }}, /* 16792 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16800 */- {.type Here, {.p 16800 }}, /* 16800 360 */- {.type There, {.p 360 }}, /* 16800 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16808 */- {.type Here, {.p 16808 }}, /* 16808 360 */- {.type There, {.p 360 }}, /* 16808 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16816 */- {.type Here, {.p 16816 }}, /* 16816 360 */- {.type There, {.p 360 }}, /* 16816 360 */- {.type Here, {.p 16816 }}, /* 16816 360 */- {.type There, {.p 360 }}, /* 16816 360 */- {.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 16840 */ colon }}}, /* CENTRY "sliteral" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary h 16848 */- {.type Here, {.p 16848 }}, /* 16848 360 */- {.type There, {.p 360 }}, /* 16848 360 */- {.type Here, {.p 16848 }}, /* 16848 360 */- {.type There, {.p 360 }}, /* 16848 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16856 */- {.type Here, {.p 16856 }}, /* 16856 360 */- {.type There, {.p 360 }}, /* 16856 360 */- {.type FromDictionary, {.p M_sliteral}, .src = "dd M_sliteral"}, /* dd M_sliteral 16864 */- {.type Here, {.p 16864 }}, /* 16864 360 */- {.type There, {.p 360 }}, /* 16864 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; adds (sliteral) to the dictionary"}, /* dd C_comma ; adds (sliteral) to the dictionary 16872 */- {.type Here, {.p 16872 }}, /* 16872 360 */- {.type There, {.p 360 }}, /* 16872 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 16880 */- {.type Here, {.p 16880 }}, /* 16880 360 */- {.type There, {.p 360 }}, /* 16880 360 */- {.type Here, {.p 16880 }}, /* 16880 360 */- {.type There, {.p 360 }}, /* 16880 360 */- {.type FromDictionary, {.p C_counted_doublequote}, .src = "dd C_counted_doublequote ; ( here 'Wordb ) Wordb has the counted string"}, /* dd C_counted_doublequote ; ( here 'Wordb ) Wordb has the counted string 16888 */- {.type Here, {.p 16888 }}, /* 16888 360 */- {.type There, {.p 360 }}, /* 16888 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( here 'Wordb 'Wordb )"}, /* dd M_dup ; ( here 'Wordb 'Wordb ) 16896 */- {.type Here, {.p 16896 }}, /* 16896 360 */- {.type There, {.p 360 }}, /* 16896 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( here 'Wordb count )"}, /* dd M_cfetch ; ( here 'Wordb count ) 16904 */- {.type Here, {.p 16904 }}, /* 16904 360 */- {.type There, {.p 360 }}, /* 16904 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( here 'Wordb count+1 )"}, /* dd C_1plus ; ( here 'Wordb count+1 ) 16912 */- {.type Here, {.p 16912 }}, /* 16912 360 */- {.type There, {.p 360 }}, /* 16912 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( here 'Wordb ) (R count+1 )"}, /* dd M_rpush ; ( here 'Wordb ) (R count+1 ) 16920 */- {.type Here, {.p 16920 }}, /* 16920 360 */- {.type There, {.p 360 }}, /* 16920 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Wordb here ) (R count+1 )"}, /* dd M_xswap ; ( 'Wordb here ) (R count+1 ) 16928 */- {.type Here, {.p 16928 }}, /* 16928 360 */- {.type There, {.p 360 }}, /* 16928 360 */- {.type FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch ; ( 'Wordb here count+1 ) (R count+1 )"}, /* dd M_rfetch ; ( 'Wordb here count+1 ) (R count+1 ) 16936 */- {.type Here, {.p 16936 }}, /* 16936 360 */- {.type There, {.p 360 }}, /* 16936 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; ( ) (R count+1 )"}, /* dd M_cmove ; ( ) (R count+1 ) 16944 */- {.type Here, {.p 16944 }}, /* 16944 360 */- {.type There, {.p 360 }}, /* 16944 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 16952 */- {.type Here, {.p 16952 }}, /* 16952 360 */- {.type There, {.p 360 }}, /* 16952 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; here = here+count+1"}, /* dd C_allot ; here = here+count+1 16960 */- {.type Here, {.p 16960 }}, /* 16960 360 */- {.type There, {.p 360 }}, /* 16960 360 */- {.type FromDictionary, {.p C_align}, .src = "dd C_align ; align here"}, /* dd C_align ; align here 16968 */- {.type Here, {.p 16968 }}, /* 16968 360 */- {.type There, {.p 360 }}, /* 16968 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16976 */- {.type Here, {.p 16976 }}, /* 16976 360 */- {.type There, {.p 360 }}, /* 16976 360 */- {.type Here, {.p 16976 }}, /* 16976 360 */- {.type There, {.p 360 }}, /* 16976 360 */- {.type Header, {.hdr { 6, "string", /* C_string = 16992 */ colon }}}, /* CENTRY "string" string 6 ; ( -- ) store the following word as a counted string onto the dictionary h 17000 */- {.type Here, {.p 17000 }}, /* 17000 360 */- {.type There, {.p 360 }}, /* 17000 360 */- {.type Here, {.p 17000 }}, /* 17000 360 */- {.type There, {.p 360 }}, /* 17000 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 17008 */- {.type Here, {.p 17008 }}, /* 17008 360 */- {.type There, {.p 360 }}, /* 17008 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 17016 */- {.type Here, {.p 17016 }}, /* 17016 360 */- {.type There, {.p 360 }}, /* 17016 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 17024 */- {.type Here, {.p 17024 }}, /* 17024 360 */- {.type There, {.p 360 }}, /* 17024 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 17032 */- {.type Here, {.p 17032 }}, /* 17032 360 */- {.type There, {.p 360 }}, /* 17032 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17040 */- {.type Here, {.p 17040 }}, /* 17040 360 */- {.type There, {.p 360 }}, /* 17040 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17048 */- {.type Here, {.p 17048 }}, /* 17048 360 */- {.type There, {.p 360 }}, /* 17048 360 */- {.type FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch"}, /* dd M_rfetch 17056 */- {.type Here, {.p 17056 }}, /* 17056 360 */- {.type There, {.p 360 }}, /* 17056 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17064 */- {.type Here, {.p 17064 }}, /* 17064 360 */- {.type There, {.p 360 }}, /* 17064 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 17072 */- {.type Here, {.p 17072 }}, /* 17072 360 */- {.type There, {.p 360 }}, /* 17072 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot"}, /* dd C_allot 17080 */- {.type Here, {.p 17080 }}, /* 17080 360 */- {.type There, {.p 360 }}, /* 17080 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17088 */- {.type Here, {.p 17088 }}, /* 17088 360 */- {.type There, {.p 360 }}, /* 17088 360 */- {.type Here, {.p 17088 }}, /* 17088 360 */- {.type There, {.p 360 }}, /* 17088 360 */- {.type IHeader, {.hdr { 6, "[char]", /* CI_char_brackets = 17104 */ colon }}}, /* CIENTRY "[char]" char_brackets 6 ; take the next character from the input stream during compilation h 17112 */- {.type Here, {.p 17112 }}, /* 17112 360 */- {.type There, {.p 360 }}, /* 17112 360 */- {.type Here, {.p 17112 }}, /* 17112 360 */- {.type There, {.p 360 }}, /* 17112 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word ; assuming that the character is a 1-byte word"}, /* dd C_word ; assuming that the character is a 1-byte word 17120 */- {.type Here, {.p 17120 }}, /* 17120 360 */- {.type There, {.p 360 }}, /* 17120 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 17128 */- {.type Here, {.p 17128 }}, /* 17128 360 */- {.type There, {.p 360 }}, /* 17128 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 17136 */- {.type Here, {.p 17136 }}, /* 17136 360 */- {.type There, {.p 360 }}, /* 17136 360 */- {.type FromDictionary, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 17144 */- {.type Here, {.p 17144 }}, /* 17144 360 */- {.type There, {.p 360 }}, /* 17144 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17152 */- {.type Here, {.p 17152 }}, /* 17152 360 */- {.type There, {.p 360 }}, /* 17152 360 */- {.type Here, {.p 17152 }}, /* 17152 360 */- {.type There, {.p 360 }}, /* 17152 360 */- {.type IHeader, {.hdr { 3, "[']", /* CI_quote_brackets = 17168 */ colon }}}, /* CIENTRY "[']" quote_brackets 3 ; take the address of next token from the input stream during compilation h 17176 */- {.type Here, {.p 17176 }}, /* 17176 360 */- {.type There, {.p 360 }}, /* 17176 360 */- {.type Here, {.p 17176 }}, /* 17176 360 */- {.type There, {.p 360 }}, /* 17176 360 */- {.type FromDictionary, {.p C_single_quote}, .src = "dd C_single_quote"}, /* dd C_single_quote 17184 */- {.type Here, {.p 17184 }}, /* 17184 360 */- {.type There, {.p 360 }}, /* 17184 360 */- {.type FromDictionary, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 17192 */- {.type Here, {.p 17192 }}, /* 17192 360 */- {.type There, {.p 360 }}, /* 17192 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17200 */- {.type Here, {.p 17200 }}, /* 17200 360 */- {.type There, {.p 360 }}, /* 17200 360 */- {.type Here, {.p 17200 }}, /* 17200 360 */- {.type There, {.p 360 }}, /* 17200 360 */- {.type IHeader, {.hdr { 1, "(", /* CI_openparen = 17216 */ colon }}}, /* CIENTRY "(" openparen 1 ; ignore until ) from the input stream during compilation h 17224 */- {.type Here, {.p 17224 }}, /* 17224 360 */- {.type There, {.p 360 }}, /* 17224 360 */- {.type Here, {.p 17224 }}, /* 17224 360 */- {.type There, {.p 360 }}, /* 17224 360 */- {.type FromDictionary, {.p C_closeparen}, .src = "dd C_closeparen"}, /* dd C_closeparen 17232 */- {.type Here, {.p 17232 }}, /* 17232 360 */- {.type There, {.p 360 }}, /* 17232 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 17240 */- {.type Here, {.p 17240 }}, /* 17240 360 */- {.type There, {.p 360 }}, /* 17240 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17248 */- {.type Here, {.p 17248 }}, /* 17248 360 */- {.type There, {.p 360 }}, /* 17248 360 */- {.type Here, {.p 17248 }}, /* 17248 360 */- {.type There, {.p 360 }}, /* 17248 360 */- {.type IHeader, {.hdr { 1, "\\", /* CI_backslash = 17264 */ colon }}}, /* CIENTRY "\\" backslash 1 ; if the line is longer than 4096, C_get throws an error h 17272 */- {.type Here, {.p 17272 }}, /* 17272 360 */- {.type There, {.p 360 }}, /* 17272 360 */- {.type Here, {.p 17272 }}, /* 17272 360 */- {.type There, {.p 360 }}, /* 17272 360 */- {.type FromDictionary, {.p C_line}, .src = "dd C_line"}, /* dd C_line 17280 */- {.type Here, {.p 17280 }}, /* 17280 360 */- {.type There, {.p 360 }}, /* 17280 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17288 */- {.type Here, {.p 17288 }}, /* 17288 360 */- {.type There, {.p 360 }}, /* 17288 360 */- {.type Here, {.p 17288 }}, /* 17288 360 */- {.type There, {.p 360 }}, /* 17288 360 */- {.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 17312 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 17320 */- {.type Here, {.p 17320 }}, /* 17320 360 */- {.type There, {.p 360 }}, /* 17320 360 */- {.type Here, {.p 17320 }}, /* 17320 360 */- {.type There, {.p 360 }}, /* 17320 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 17328 */- {.type Here, {.p 17328 }}, /* 17328 360 */- {.type There, {.p 360 }}, /* 17328 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17336 */- {.type Here, {.p 17336 }}, /* 17336 360 */- {.type There, {.p 360 }}, /* 17336 360 */- {.type FromDictionary, {.p L_C_qabort_parens}, .src = "dd L_C_qabort_parens"}, /* dd L_C_qabort_parens 17344 */- {.type Here, {.p 17344 }}, /* 17344 360 */- {.type There, {.p 360 }}, /* 17344 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 17352 */- {.type Here, {.p 17352 }}, /* 17352 360 */- {.type There, {.p 360 }}, /* 17352 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17360 */- {.type Here, {.p 17360 }}, /* 17360 360 */- {.type There, {.p 360 }}, /* 17360 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 17368 */- {.type Here, {.p 17368 }}, /* 17368 360 */- {.type There, {.p 360 }}, /* 17368 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 17376 */- {.type Here, {.p 17376 }}, /* 17376 360 */- {.type There, {.p 360 }}, /* 17376 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 17384 */- {.type Here, {.p 17384 }}, /* 17384 360 */- {.type There, {.p 360 }}, /* 17384 360 */- {.type FromDictionary, {.p L_C_qabort_parens_1}, .src = "dd L_C_qabort_parens_1"}, /* dd L_C_qabort_parens_1 17392 */- {.type Here, {.p 17392 }}, /* 17392 360 */- {.type There, {.p 360 }}, /* 17392 360 */- {.type Here, {.p 17392 }}, /* 17392 360 */- {.type There, {.p 360 }}, /* 17392 360 */- {.type FromDictionary, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 17400 */- {.type Here, {.p 17400 }}, /* 17400 360 */- {.type There, {.p 360 }}, /* 17400 360 */- {.type Here, {.p 17400 }}, /* 17400 360 */- {.type There, {.p 360 }}, /* 17400 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17408 */- {.type Here, {.p 17408 }}, /* 17408 360 */- {.type There, {.p 360 }}, /* 17408 360 */- {.type Here, {.p 17408 }}, /* 17408 360 */- {.type There, {.p 360 }}, /* 17408 360 */- {.type IHeader, {.hdr { 6, "abort\"", /* CI_abort_double_quote = 17424 */ colon }}}, /* CIENTRY "abort\"" abort_double_quote 6 h 17432 */- {.type Here, {.p 17432 }}, /* 17432 360 */- {.type There, {.p 360 }}, /* 17432 360 */- {.type Here, {.p 17432 }}, /* 17432 360 */- {.type There, {.p 360 }}, /* 17432 360 */- {.type FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17440 */- {.type Here, {.p 17440 }}, /* 17440 360 */- {.type There, {.p 360 }}, /* 17440 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17448 */- {.type Here, {.p 17448 }}, /* 17448 360 */- {.type There, {.p 360 }}, /* 17448 360 */- {.type FromDictionary, {.p C_qabort_parens}, .src = "dd C_qabort_parens"}, /* dd C_qabort_parens 17456 */- {.type Here, {.p 17456 }}, /* 17456 360 */- {.type There, {.p 360 }}, /* 17456 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17464 */- {.type Here, {.p 17464 }}, /* 17464 360 */- {.type There, {.p 360 }}, /* 17464 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17472 */- {.type Here, {.p 17472 }}, /* 17472 360 */- {.type There, {.p 360 }}, /* 17472 360 */- {.type Here, {.p 17472 }}, /* 17472 360 */- {.type There, {.p 360 }}, /* 17472 360 */-/* ; could make this work for strings longer than 256 bytes. */ {.type Here, {.p 17472 }}, /* 17472 360 */- {.type There, {.p 360 }}, /* 17472 360 */-/* ; But, for now, strings longer than 256 bytes are not supported by " or c" or s" or ." */ {.type Here, {.p 17472 }}, /* 17472 360 */- {.type There, {.p 360 }}, /* 17472 360 */-/* ; this does not store the count in the dictionary */ {.type Here, {.p 17472 }}, /* 17472 360 */- {.type There, {.p 360 }}, /* 17472 360 */- {.type Header, {.hdr { 1, "\"", /* C_double_quote = 17488 */ colon }}}, /* CENTRY "\"" 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 h 17496 */- {.type Here, {.p 17496 }}, /* 17496 360 */- {.type There, {.p 360 }}, /* 17496 360 */- {.type Here, {.p 17496 }}, /* 17496 360 */- {.type There, {.p 360 }}, /* 17496 360 */- {.type FromDictionary, {.p C_counted_doublequote}, .src = "dd C_counted_doublequote ; ( 'Wordb )"}, /* dd C_counted_doublequote ; ( 'Wordb ) 17504 */- {.type Here, {.p 17504 }}, /* 17504 360 */- {.type There, {.p 360 }}, /* 17504 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( 'Wordb+1 count )"}, /* dd C_count ; ( 'Wordb+1 count ) 17512 */- {.type Here, {.p 17512 }}, /* 17512 360 */- {.type There, {.p 360 }}, /* 17512 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'Wordb+1 ) (R count )"}, /* dd M_rpush ; ( 'Wordb+1 ) (R count ) 17520 */- {.type Here, {.p 17520 }}, /* 17520 360 */- {.type There, {.p 360 }}, /* 17520 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 'Wordb+1 here ) (R count )"}, /* dd C_here ; ( 'Wordb+1 here ) (R count ) 17528 */- {.type Here, {.p 17528 }}, /* 17528 360 */- {.type There, {.p 360 }}, /* 17528 360 */- {.type FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch ; ( 'Wordb+1 here count ) (R count )"}, /* dd M_rfetch ; ( 'Wordb+1 here count ) (R count ) 17536 */- {.type Here, {.p 17536 }}, /* 17536 360 */- {.type There, {.p 360 }}, /* 17536 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17544 */- {.type Here, {.p 17544 }}, /* 17544 360 */- {.type There, {.p 360 }}, /* 17544 360 */- {.type Here, {.p 17544 }}, /* 17544 360 */- {.type There, {.p 360 }}, /* 17544 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 17552 */- {.type Here, {.p 17552 }}, /* 17552 360 */- {.type There, {.p 360 }}, /* 17552 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( here count )"}, /* dd M_rpop ; ( here count ) 17560 */- {.type Here, {.p 17560 }}, /* 17560 360 */- {.type There, {.p 360 }}, /* 17560 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( here count count )"}, /* dd M_dup ; ( here count count ) 17568 */- {.type Here, {.p 17568 }}, /* 17568 360 */- {.type There, {.p 360 }}, /* 17568 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( here count ) here = here+count"}, /* dd C_allot ; ( here count ) here = here+count 17576 */- {.type Here, {.p 17576 }}, /* 17576 360 */- {.type There, {.p 360 }}, /* 17576 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17584 */- {.type Here, {.p 17584 }}, /* 17584 360 */- {.type There, {.p 360 }}, /* 17584 360 */- {.type Here, {.p 17584 }}, /* 17584 360 */- {.type There, {.p 360 }}, /* 17584 360 */- {.type Header, {.hdr { 2, "c\"", /* C_counted_double_quote = 17600 */ colon }}}, /* CENTRY "c\"" counted_double_quote 2 ; ( | ..." -- 'counted-string ) stores counted string in the dictionary. For use in interpretive mode. h 17608 */- {.type Here, {.p 17608 }}, /* 17608 360 */- {.type There, {.p 360 }}, /* 17608 360 */- {.type Here, {.p 17608 }}, /* 17608 360 */- {.type There, {.p 360 }}, /* 17608 360 */- {.type FromDictionary, {.p C_counted_doublequote}, .src = "dd C_counted_doublequote ; ( 'Wordb )"}, /* dd C_counted_doublequote ; ( 'Wordb ) 17616 */- {.type Here, {.p 17616 }}, /* 17616 360 */- {.type There, {.p 360 }}, /* 17616 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Wordb 'Wordb )"}, /* dd M_dup ; ( 'Wordb 'Wordb ) 17624 */- {.type Here, {.p 17624 }}, /* 17624 360 */- {.type There, {.p 360 }}, /* 17624 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'Wordb count )"}, /* dd M_cfetch ; ( 'Wordb count ) 17632 */- {.type Here, {.p 17632 }}, /* 17632 360 */- {.type There, {.p 360 }}, /* 17632 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( 'Wordb count+1 )"}, /* dd C_1plus ; ( 'Wordb count+1 ) 17640 */- {.type Here, {.p 17640 }}, /* 17640 360 */- {.type There, {.p 360 }}, /* 17640 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'Wordb ) (R count+1 )"}, /* dd M_rpush ; ( 'Wordb ) (R count+1 ) 17648 */- {.type Here, {.p 17648 }}, /* 17648 360 */- {.type There, {.p 360 }}, /* 17648 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 'Wordb here ) (R count+1 )"}, /* dd C_here ; ( 'Wordb here ) (R count+1 ) 17656 */- {.type Here, {.p 17656 }}, /* 17656 360 */- {.type There, {.p 360 }}, /* 17656 360 */- {.type FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch ; ( 'Wordb here count ) (R count+1 )"}, /* dd M_rfetch ; ( 'Wordb here count ) (R count+1 ) 17664 */- {.type Here, {.p 17664 }}, /* 17664 360 */- {.type There, {.p 360 }}, /* 17664 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17672 */- {.type Here, {.p 17672 }}, /* 17672 360 */- {.type There, {.p 360 }}, /* 17672 360 */- {.type Here, {.p 17672 }}, /* 17672 360 */- {.type There, {.p 360 }}, /* 17672 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 17680 */- {.type Here, {.p 17680 }}, /* 17680 360 */- {.type There, {.p 360 }}, /* 17680 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( here count+1 )"}, /* dd M_rpop ; ( here count+1 ) 17688 */- {.type Here, {.p 17688 }}, /* 17688 360 */- {.type There, {.p 360 }}, /* 17688 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( here ) here = here+count+1"}, /* dd C_allot ; ( here ) here = here+count+1 17696 */- {.type Here, {.p 17696 }}, /* 17696 360 */- {.type There, {.p 360 }}, /* 17696 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17704 */- {.type Here, {.p 17704 }}, /* 17704 360 */- {.type There, {.p 360 }}, /* 17704 360 */- {.type Here, {.p 17704 }}, /* 17704 360 */- {.type There, {.p 360 }}, /* 17704 360 */-/* ; for compiling counted strings into the definition. Puts the ( 'text count ) on the stack at run time */ {.type Here, {.p 17704 }}, /* 17704 360 */- {.type There, {.p 360 }}, /* 17704 360 */- {.type IHeader, {.hdr { 2, "s\"", /* CI_sdouble_quote = 17720 */ colon }}}, /* CIENTRY "s\"" 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. h 17728 */- {.type Here, {.p 17728 }}, /* 17728 360 */- {.type There, {.p 360 }}, /* 17728 360 */- {.type Here, {.p 17728 }}, /* 17728 360 */- {.type There, {.p 360 }}, /* 17728 360 */- {.type FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17736 */- {.type Here, {.p 17736 }}, /* 17736 360 */- {.type There, {.p 360 }}, /* 17736 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17744 */- {.type Here, {.p 17744 }}, /* 17744 360 */- {.type There, {.p 360 }}, /* 17744 360 */- {.type Here, {.p 17744 }}, /* 17744 360 */- {.type There, {.p 360 }}, /* 17744 360 */- {.type IHeader, {.hdr { 2, ".\"", /* CI_dotstr = 17760 */ colon }}}, /* CIENTRY ".\"" dotstr 2 ; ( | ..." -- ) ." = s" type h 17768 */- {.type Here, {.p 17768 }}, /* 17768 360 */- {.type There, {.p 360 }}, /* 17768 360 */- {.type Here, {.p 17768 }}, /* 17768 360 */- {.type There, {.p 360 }}, /* 17768 360 */- {.type FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17776 */- {.type Here, {.p 17776 }}, /* 17776 360 */- {.type There, {.p 360 }}, /* 17776 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17784 */- {.type Here, {.p 17784 }}, /* 17784 360 */- {.type There, {.p 360 }}, /* 17784 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17792 */- {.type Here, {.p 17792 }}, /* 17792 360 */- {.type There, {.p 360 }}, /* 17792 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17800 */- {.type Here, {.p 17800 }}, /* 17800 360 */- {.type There, {.p 360 }}, /* 17800 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17808 */- {.type Here, {.p 17808 }}, /* 17808 360 */- {.type There, {.p 360 }}, /* 17808 360 */- {.type Here, {.p 17808 }}, /* 17808 360 */- {.type There, {.p 360 }}, /* 17808 360 */- {.type IHeader, {.hdr { 2, "if", /* CI_if = 17824 */ colon }}}, /* CIENTRY "if" if 2 h 17832 */- {.type Here, {.p 17832 }}, /* 17832 360 */- {.type There, {.p 360 }}, /* 17832 360 */- {.type Here, {.p 17832 }}, /* 17832 360 */- {.type There, {.p 360 }}, /* 17832 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17840 */- {.type Here, {.p 17840 }}, /* 17840 360 */- {.type There, {.p 360 }}, /* 17840 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17848 */- {.type Here, {.p 17848 }}, /* 17848 360 */- {.type There, {.p 360 }}, /* 17848 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17856 */- {.type Here, {.p 17856 }}, /* 17856 360 */- {.type There, {.p 360 }}, /* 17856 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17864 */- {.type Here, {.p 17864 }}, /* 17864 360 */- {.type There, {.p 360 }}, /* 17864 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17872 */- {.type Here, {.p 17872 }}, /* 17872 360 */- {.type There, {.p 360 }}, /* 17872 360 */- {.type Absolute, {.p 0}}, /* dd 0 17880 */- {.type Here, {.p 17880 }}, /* 17880 360 */- {.type There, {.p 360 }}, /* 17880 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17888 */- {.type Here, {.p 17888 }}, /* 17888 360 */- {.type There, {.p 360 }}, /* 17888 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17896 */- {.type Here, {.p 17896 }}, /* 17896 360 */- {.type There, {.p 360 }}, /* 17896 360 */- {.type IHeader, {.hdr { 4, "else", /* CI_else = 17912 */ colon }}}, /* CIENTRY "else" else 4 h 17920 */- {.type Here, {.p 17920 }}, /* 17920 360 */- {.type There, {.p 360 }}, /* 17920 360 */- {.type Here, {.p 17920 }}, /* 17920 360 */- {.type There, {.p 360 }}, /* 17920 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17928 */- {.type Here, {.p 17928 }}, /* 17928 360 */- {.type There, {.p 360 }}, /* 17928 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 17936 */- {.type Here, {.p 17936 }}, /* 17936 360 */- {.type There, {.p 360 }}, /* 17936 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17944 */- {.type Here, {.p 17944 }}, /* 17944 360 */- {.type There, {.p 360 }}, /* 17944 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17952 */- {.type Here, {.p 17952 }}, /* 17952 360 */- {.type There, {.p 360 }}, /* 17952 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17960 */- {.type Here, {.p 17960 }}, /* 17960 360 */- {.type There, {.p 360 }}, /* 17960 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17968 */- {.type Here, {.p 17968 }}, /* 17968 360 */- {.type There, {.p 360 }}, /* 17968 360 */- {.type Absolute, {.p 0}}, /* dd 0 17976 */- {.type Here, {.p 17976 }}, /* 17976 360 */- {.type There, {.p 360 }}, /* 17976 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17984 */- {.type Here, {.p 17984 }}, /* 17984 360 */- {.type There, {.p 360 }}, /* 17984 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17992 */- {.type Here, {.p 17992 }}, /* 17992 360 */- {.type There, {.p 360 }}, /* 17992 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18000 */- {.type Here, {.p 18000 }}, /* 18000 360 */- {.type There, {.p 360 }}, /* 18000 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18008 */- {.type Here, {.p 18008 }}, /* 18008 360 */- {.type There, {.p 360 }}, /* 18008 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 18016 */- {.type Here, {.p 18016 }}, /* 18016 360 */- {.type There, {.p 360 }}, /* 18016 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18024 */- {.type Here, {.p 18024 }}, /* 18024 360 */- {.type There, {.p 360 }}, /* 18024 360 */- {.type IHeader, {.hdr { 4, "then", /* CI_then = 18040 */ colon }}}, /* CIENTRY "then" then 4 h 18048 */- {.type Here, {.p 18048 }}, /* 18048 360 */- {.type There, {.p 360 }}, /* 18048 360 */- {.type Here, {.p 18048 }}, /* 18048 360 */- {.type There, {.p 360 }}, /* 18048 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18056 */- {.type Here, {.p 18056 }}, /* 18056 360 */- {.type There, {.p 360 }}, /* 18056 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18064 */- {.type Here, {.p 18064 }}, /* 18064 360 */- {.type There, {.p 360 }}, /* 18064 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18072 */- {.type Here, {.p 18072 }}, /* 18072 360 */- {.type There, {.p 360 }}, /* 18072 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18080 */- {.type Here, {.p 18080 }}, /* 18080 360 */- {.type There, {.p 360 }}, /* 18080 360 */- {.type IHeader, {.hdr { 5, "begin", /* CI_begin = 18096 */ colon }}}, /* CIENTRY "begin" begin 5 h 18104 */- {.type Here, {.p 18104 }}, /* 18104 360 */- {.type There, {.p 360 }}, /* 18104 360 */- {.type Here, {.p 18104 }}, /* 18104 360 */- {.type There, {.p 360 }}, /* 18104 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18112 */- {.type Here, {.p 18112 }}, /* 18112 360 */- {.type There, {.p 360 }}, /* 18112 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18120 */- {.type Here, {.p 18120 }}, /* 18120 360 */- {.type There, {.p 360 }}, /* 18120 360 */- {.type IHeader, {.hdr { 5, "again", /* CI_again = 18136 */ colon }}}, /* CIENTRY "again" again 5 h 18144 */- {.type Here, {.p 18144 }}, /* 18144 360 */- {.type There, {.p 360 }}, /* 18144 360 */- {.type Here, {.p 18144 }}, /* 18144 360 */- {.type There, {.p 360 }}, /* 18144 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18152 */- {.type Here, {.p 18152 }}, /* 18152 360 */- {.type There, {.p 360 }}, /* 18152 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 18160 */- {.type Here, {.p 18160 }}, /* 18160 360 */- {.type There, {.p 360 }}, /* 18160 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18168 */- {.type Here, {.p 18168 }}, /* 18168 360 */- {.type There, {.p 360 }}, /* 18168 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18176 */- {.type Here, {.p 18176 }}, /* 18176 360 */- {.type There, {.p 360 }}, /* 18176 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18184 */- {.type Here, {.p 18184 }}, /* 18184 360 */- {.type There, {.p 360 }}, /* 18184 360 */- {.type IHeader, {.hdr { 5, "until", /* CI_until = 18200 */ colon }}}, /* CIENTRY "until" until 5 h 18208 */- {.type Here, {.p 18208 }}, /* 18208 360 */- {.type There, {.p 360 }}, /* 18208 360 */- {.type Here, {.p 18208 }}, /* 18208 360 */- {.type There, {.p 360 }}, /* 18208 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18216 */- {.type Here, {.p 18216 }}, /* 18216 360 */- {.type There, {.p 360 }}, /* 18216 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18224 */- {.type Here, {.p 18224 }}, /* 18224 360 */- {.type There, {.p 360 }}, /* 18224 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18232 */- {.type Here, {.p 18232 }}, /* 18232 360 */- {.type There, {.p 360 }}, /* 18232 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18240 */- {.type Here, {.p 18240 }}, /* 18240 360 */- {.type There, {.p 360 }}, /* 18240 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18248 */- {.type Here, {.p 18248 }}, /* 18248 360 */- {.type There, {.p 360 }}, /* 18248 360 */- {.type IHeader, {.hdr { 5, "while", /* CI_while = 18264 */ colon }}}, /* CIENTRY "while" while 5 h 18272 */- {.type Here, {.p 18272 }}, /* 18272 360 */- {.type There, {.p 360 }}, /* 18272 360 */- {.type Here, {.p 18272 }}, /* 18272 360 */- {.type There, {.p 360 }}, /* 18272 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18280 */- {.type Here, {.p 18280 }}, /* 18280 360 */- {.type There, {.p 360 }}, /* 18280 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18288 */- {.type Here, {.p 18288 }}, /* 18288 360 */- {.type There, {.p 360 }}, /* 18288 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18296 */- {.type Here, {.p 18296 }}, /* 18296 360 */- {.type There, {.p 360 }}, /* 18296 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18304 */- {.type Here, {.p 18304 }}, /* 18304 360 */- {.type There, {.p 360 }}, /* 18304 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18312 */- {.type Here, {.p 18312 }}, /* 18312 360 */- {.type There, {.p 360 }}, /* 18312 360 */- {.type Absolute, {.p 0}}, /* dd 0 18320 */- {.type Here, {.p 18320 }}, /* 18320 360 */- {.type There, {.p 360 }}, /* 18320 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18328 */- {.type Here, {.p 18328 }}, /* 18328 360 */- {.type There, {.p 360 }}, /* 18328 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18336 */- {.type Here, {.p 18336 }}, /* 18336 360 */- {.type There, {.p 360 }}, /* 18336 360 */- {.type IHeader, {.hdr { 6, "repeat", /* CI_repeat = 18352 */ colon }}}, /* CIENTRY "repeat" repeat 6 h 18360 */- {.type Here, {.p 18360 }}, /* 18360 360 */- {.type There, {.p 360 }}, /* 18360 360 */- {.type Here, {.p 18360 }}, /* 18360 360 */- {.type There, {.p 360 }}, /* 18360 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18368 */- {.type Here, {.p 18368 }}, /* 18368 360 */- {.type There, {.p 360 }}, /* 18368 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 18376 */- {.type Here, {.p 18376 }}, /* 18376 360 */- {.type There, {.p 360 }}, /* 18376 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18384 */- {.type Here, {.p 18384 }}, /* 18384 360 */- {.type There, {.p 360 }}, /* 18384 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18392 */- {.type Here, {.p 18392 }}, /* 18392 360 */- {.type There, {.p 360 }}, /* 18392 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18400 */- {.type Here, {.p 18400 }}, /* 18400 360 */- {.type There, {.p 360 }}, /* 18400 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18408 */- {.type Here, {.p 18408 }}, /* 18408 360 */- {.type There, {.p 360 }}, /* 18408 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18416 */- {.type Here, {.p 18416 }}, /* 18416 360 */- {.type There, {.p 360 }}, /* 18416 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18424 */- {.type Here, {.p 18424 }}, /* 18424 360 */- {.type There, {.p 360 }}, /* 18424 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18432 */- {.type Here, {.p 18432 }}, /* 18432 360 */- {.type There, {.p 360 }}, /* 18432 360 */- {.type IHeader, {.hdr { 2, "do", /* CI_do = 18448 */ colon }}}, /* CIENTRY "do" do 2 h 18456 */- {.type Here, {.p 18456 }}, /* 18456 360 */- {.type There, {.p 360 }}, /* 18456 360 */- {.type Here, {.p 18456 }}, /* 18456 360 */- {.type There, {.p 360 }}, /* 18456 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18464 */- {.type Here, {.p 18464 }}, /* 18464 360 */- {.type There, {.p 360 }}, /* 18464 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit ; compile this into the definition. Puts limit and index on the run stack at run time"}, /* dd M_doinit ; compile this into the definition. Puts limit and index on the run stack at run time 18472 */- {.type Here, {.p 18472 }}, /* 18472 360 */- {.type There, {.p 360 }}, /* 18472 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; puts (do) into the dictionary"}, /* dd C_comma ; puts (do) into the dictionary 18480 */- {.type Here, {.p 18480 }}, /* 18480 360 */- {.type There, {.p 360 }}, /* 18480 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18488 */- {.type Here, {.p 18488 }}, /* 18488 360 */- {.type There, {.p 360 }}, /* 18488 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( -- 0 ) 18496 */- {.type Here, {.p 18496 }}, /* 18496 360 */- {.type There, {.p 360 }}, /* 18496 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 0 -- 0 here1 )"}, /* dd C_here ; ( 0 -- 0 here1 ) 18504 */- {.type Here, {.p 18504 }}, /* 18504 360 */- {.type There, {.p 360 }}, /* 18504 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18512 */- {.type Here, {.p 18512 }}, /* 18512 360 */- {.type There, {.p 360 }}, /* 18512 360 */- {.type IHeader, {.hdr { 4, "loop", /* CI_loop = 18528 */ colon }}}, /* CIENTRY "loop" loop 4 ; ( 0 here1 -- ) h 18536 */- {.type Here, {.p 18536 }}, /* 18536 360 */- {.type There, {.p 360 }}, /* 18536 360 */- {.type Here, {.p 18536 }}, /* 18536 360 */- {.type There, {.p 360 }}, /* 18536 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18544 */- {.type Here, {.p 18544 }}, /* 18544 360 */- {.type There, {.p 360 }}, /* 18544 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop ; ( 0 here1 -- 0 here1 (loop) )"}, /* dd M_doloop ; ( 0 here1 -- 0 here1 (loop) ) 18552 */- {.type Here, {.p 18552 }}, /* 18552 360 */- {.type There, {.p 360 }}, /* 18552 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 )"}, /* dd C_comma ; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 ) 18560 */- {.type Here, {.p 18560 }}, /* 18560 360 */- {.type There, {.p 360 }}, /* 18560 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 )"}, /* dd C_comma ; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 ) 18568 */- {.type Here, {.p 18568 }}, /* 18568 360 */- {.type There, {.p 360 }}, /* 18568 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 18576 */- {.type Here, {.p 18576 }}, /* 18576 360 */- {.type There, {.p 360 }}, /* 18576 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18584 */- {.type Here, {.p 18584 }}, /* 18584 360 */- {.type There, {.p 360 }}, /* 18584 360 */- {.type FromDictionary, {.p L234}, .src = "dd L234"}, /* dd L234 18592 */- {.type Here, {.p 18592 }}, /* 18592 360 */- {.type There, {.p 360 }}, /* 18592 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18600 */- {.type Here, {.p 18600 }}, /* 18600 360 */- {.type There, {.p 360 }}, /* 18600 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18608 */- {.type Here, {.p 18608 }}, /* 18608 360 */- {.type There, {.p 360 }}, /* 18608 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18616 */- {.type Here, {.p 18616 }}, /* 18616 360 */- {.type There, {.p 360 }}, /* 18616 360 */- {.type Here, {.p 18616 }}, /* 18616 360 */- {.type There, {.p 360 }}, /* 18616 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18624 */- {.type Here, {.p 18624 }}, /* 18624 360 */- {.type There, {.p 360 }}, /* 18624 360 */- {.type IHeader, {.hdr { 5, "+loop", /* CI_ploop = 18640 */ colon }}}, /* CIENTRY "+loop" ploop 5 h 18648 */- {.type Here, {.p 18648 }}, /* 18648 360 */- {.type There, {.p 360 }}, /* 18648 360 */- {.type Here, {.p 18648 }}, /* 18648 360 */- {.type There, {.p 360 }}, /* 18648 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18656 */- {.type Here, {.p 18656 }}, /* 18656 360 */- {.type There, {.p 360 }}, /* 18656 360 */- {.type FromDictionary, {.p M_doploop}, .src = "dd M_doploop"}, /* dd M_doploop 18664 */- {.type Here, {.p 18664 }}, /* 18664 360 */- {.type There, {.p 360 }}, /* 18664 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18672 */- {.type Here, {.p 18672 }}, /* 18672 360 */- {.type There, {.p 360 }}, /* 18672 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18680 */- {.type Here, {.p 18680 }}, /* 18680 360 */- {.type There, {.p 360 }}, /* 18680 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 18688 */- {.type Here, {.p 18688 }}, /* 18688 360 */- {.type There, {.p 360 }}, /* 18688 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18696 */- {.type Here, {.p 18696 }}, /* 18696 360 */- {.type There, {.p 360 }}, /* 18696 360 */- {.type FromDictionary, {.p L236}, .src = "dd L236"}, /* dd L236 18704 */- {.type Here, {.p 18704 }}, /* 18704 360 */- {.type There, {.p 360 }}, /* 18704 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18712 */- {.type Here, {.p 18712 }}, /* 18712 360 */- {.type There, {.p 360 }}, /* 18712 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18720 */- {.type Here, {.p 18720 }}, /* 18720 360 */- {.type There, {.p 360 }}, /* 18720 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18728 */- {.type Here, {.p 18728 }}, /* 18728 360 */- {.type There, {.p 360 }}, /* 18728 360 */- {.type Here, {.p 18728 }}, /* 18728 360 */- {.type There, {.p 360 }}, /* 18728 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18736 */- {.type Here, {.p 18736 }}, /* 18736 360 */- {.type There, {.p 360 }}, /* 18736 360 */- {.type Header, {.hdr { 3, "w/o", /* C_wo = 18752 */ colon }}}, /* CENTRY "w/o" wo 3 h 18760 */- {.type Here, {.p 18760 }}, /* 18760 360 */- {.type There, {.p 360 }}, /* 18760 360 */- {.type Here, {.p 18760 }}, /* 18760 360 */- {.type There, {.p 360 }}, /* 18760 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18768 */- {.type Here, {.p 18768 }}, /* 18768 360 */- {.type There, {.p 360 }}, /* 18768 360 */- {.type Absolute, {.p 1}}, /* dd 1 18776 */- {.type Here, {.p 18776 }}, /* 18776 360 */- {.type There, {.p 360 }}, /* 18776 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18784 */- {.type Here, {.p 18784 }}, /* 18784 360 */- {.type There, {.p 360 }}, /* 18784 360 */- {.type Absolute, {.p 512}}, /* dd 512 18792 */- {.type Here, {.p 18792 }}, /* 18792 360 */- {.type There, {.p 360 }}, /* 18792 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 18800 */- {.type Here, {.p 18800 }}, /* 18800 360 */- {.type There, {.p 360 }}, /* 18800 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18808 */- {.type Here, {.p 18808 }}, /* 18808 360 */- {.type There, {.p 360 }}, /* 18808 360 */- {.type Absolute, {.p 64}}, /* dd 64 18816 */- {.type Here, {.p 18816 }}, /* 18816 360 */- {.type There, {.p 360 }}, /* 18816 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 18824 */- {.type Here, {.p 18824 }}, /* 18824 360 */- {.type There, {.p 360 }}, /* 18824 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18832 */- {.type Here, {.p 18832 }}, /* 18832 360 */- {.type There, {.p 360 }}, /* 18832 360 */- {.type Header, {.hdr { 3, "r/o", /* C_ro = 18848 */ colon }}}, /* CENTRY "r/o" ro 3 h 18856 */- {.type Here, {.p 18856 }}, /* 18856 360 */- {.type There, {.p 360 }}, /* 18856 360 */- {.type Here, {.p 18856 }}, /* 18856 360 */- {.type There, {.p 360 }}, /* 18856 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18864 */- {.type Here, {.p 18864 }}, /* 18864 360 */- {.type There, {.p 360 }}, /* 18864 360 */- {.type Absolute, {.p 0}}, /* dd 0 18872 */- {.type Here, {.p 18872 }}, /* 18872 360 */- {.type There, {.p 360 }}, /* 18872 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18880 */- {.type Here, {.p 18880 }}, /* 18880 360 */- {.type There, {.p 360 }}, /* 18880 360 */- {.type Header, {.hdr { 3, "r/w", /* C_rw = 18896 */ colon }}}, /* CENTRY "r/w" rw 3 h 18904 */- {.type Here, {.p 18904 }}, /* 18904 360 */- {.type There, {.p 360 }}, /* 18904 360 */- {.type Here, {.p 18904 }}, /* 18904 360 */- {.type There, {.p 360 }}, /* 18904 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18912 */- {.type Here, {.p 18912 }}, /* 18912 360 */- {.type There, {.p 360 }}, /* 18912 360 */- {.type Absolute, {.p 2}}, /* dd 2 18920 */- {.type Here, {.p 18920 }}, /* 18920 360 */- {.type There, {.p 360 }}, /* 18920 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18928 */- {.type Here, {.p 18928 }}, /* 18928 360 */- {.type There, {.p 360 }}, /* 18928 360 */- {.type Here, {.p 18928 }}, /* 18928 360 */- {.type There, {.p 360 }}, /* 18928 360 */- {.type Header, {.hdr { 7, "cstring", /* C_cstring = 18944 */ colon }}}, /* CENTRY "cstring" cstring 7 ; ( 'text count o -- o+'pad+1024 ) \ copy string to pad+o and add a null byte at the end h 18952 */- {.type Here, {.p 18952 }}, /* 18952 360 */- {.type There, {.p 360 }}, /* 18952 360 */- {.type Here, {.p 18952 }}, /* 18952 360 */- {.type There, {.p 360 }}, /* 18952 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 'text count o 'pad )"}, /* dd C_pad ; ( 'text count o 'pad ) 18960 */- {.type Here, {.p 18960 }}, /* 18960 360 */- {.type There, {.p 360 }}, /* 18960 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18968 */- {.type Here, {.p 18968 }}, /* 18968 360 */- {.type There, {.p 360 }}, /* 18968 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 'text count o 'pad 1024 ) 18976 */- {.type Here, {.p 18976 }}, /* 18976 360 */- {.type There, {.p 360 }}, /* 18976 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'text count o 'pad+1024 )"}, /* dd M_plus ; ( 'text count o 'pad+1024 ) 18984 */- {.type Here, {.p 18984 }}, /* 18984 360 */- {.type There, {.p 360 }}, /* 18984 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'text count o+'pad+1024 ) o=padoffset"}, /* dd M_plus ; ( 'text count o+'pad+1024 ) o=padoffset 18992 */- {.type Here, {.p 18992 }}, /* 18992 360 */- {.type There, {.p 360 }}, /* 18992 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19000 */- {.type Here, {.p 19000 }}, /* 19000 360 */- {.type There, {.p 360 }}, /* 19000 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'text count o+'pad+1024 ) (R o+'pad+1024 )"}, /* dd M_rpush ; ( 'text count o+'pad+1024 ) (R o+'pad+1024 ) 19008 */- {.type Here, {.p 19008 }}, /* 19008 360 */- {.type There, {.p 360 }}, /* 19008 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'text o+'pad+1024 count ) (R o+'pad+1024 )"}, /* dd M_xswap ; ( 'text o+'pad+1024 count ) (R o+'pad+1024 ) 19016 */- {.type Here, {.p 19016 }}, /* 19016 360 */- {.type There, {.p 360 }}, /* 19016 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'text o+'pad+1024 count count ) (R o+'pad+1024 )"}, /* dd M_dup ; ( 'text o+'pad+1024 count count ) (R o+'pad+1024 ) 19024 */- {.type Here, {.p 19024 }}, /* 19024 360 */- {.type There, {.p 360 }}, /* 19024 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'text o+'pad+1024 count ) (R o+'pad+1024 count )"}, /* dd M_rpush ; ( 'text o+'pad+1024 count ) (R o+'pad+1024 count ) 19032 */- {.type Here, {.p 19032 }}, /* 19032 360 */- {.type There, {.p 360 }}, /* 19032 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; moves the filename from 'text to o+'pad+1024"}, /* dd M_cmove ; moves the filename from 'text to o+'pad+1024 19040 */- {.type Here, {.p 19040 }}, /* 19040 360 */- {.type There, {.p 360 }}, /* 19040 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19048 */- {.type Here, {.p 19048 }}, /* 19048 360 */- {.type There, {.p 360 }}, /* 19048 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) (R o+'pad+1024 count ) 19056 */- {.type Here, {.p 19056 }}, /* 19056 360 */- {.type There, {.p 360 }}, /* 19056 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 0 count ) (R o+'pad+1024 )"}, /* dd M_rpop ; ( 0 count ) (R o+'pad+1024 ) 19064 */- {.type Here, {.p 19064 }}, /* 19064 360 */- {.type There, {.p 360 }}, /* 19064 360 */- {.type FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch ; ( 0 count o+'pad+1024 ) (R o+'pad+1024 )"}, /* dd M_rfetch ; ( 0 count o+'pad+1024 ) (R o+'pad+1024 ) 19072 */- {.type Here, {.p 19072 }}, /* 19072 360 */- {.type There, {.p 360 }}, /* 19072 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 0 count+o+'pad+1024 ) (R o+'pad+1024 )"}, /* dd M_plus ; ( 0 count+o+'pad+1024 ) (R o+'pad+1024 ) 19080 */- {.type Here, {.p 19080 }}, /* 19080 360 */- {.type There, {.p 360 }}, /* 19080 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; makes the filename to a null terminated string"}, /* dd M_cstore ; makes the filename to a null terminated string 19088 */- {.type Here, {.p 19088 }}, /* 19088 360 */- {.type There, {.p 360 }}, /* 19088 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( o+'pad+1024 )"}, /* dd M_rpop ; ( o+'pad+1024 ) 19096 */- {.type Here, {.p 19096 }}, /* 19096 360 */- {.type There, {.p 360 }}, /* 19096 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19104 */- {.type Here, {.p 19104 }}, /* 19104 360 */- {.type There, {.p 360 }}, /* 19104 360 */- {.type Here, {.p 19104 }}, /* 19104 360 */- {.type There, {.p 360 }}, /* 19104 360 */- {.type Header, {.hdr { 8, "cstring0", /* C_cstring0 = 19128 */ colon }}}, /* CENTRY "cstring0" cstring0 8 ; ( 'text count -- 'text ) \ copy string to pad+1024 and add a null byte at the end h 19136 */- {.type Here, {.p 19136 }}, /* 19136 360 */- {.type There, {.p 360 }}, /* 19136 360 */- {.type Here, {.p 19136 }}, /* 19136 360 */- {.type There, {.p 360 }}, /* 19136 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19144 */- {.type Here, {.p 19144 }}, /* 19144 360 */- {.type There, {.p 360 }}, /* 19144 360 */- {.type Absolute, {.p 0}}, /* dd 0 19152 */- {.type Here, {.p 19152 }}, /* 19152 360 */- {.type There, {.p 360 }}, /* 19152 360 */- {.type FromDictionary, {.p C_cstring}, .src = "dd C_cstring"}, /* dd C_cstring 19160 */- {.type Here, {.p 19160 }}, /* 19160 360 */- {.type There, {.p 360 }}, /* 19160 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19168 */- {.type Here, {.p 19168 }}, /* 19168 360 */- {.type There, {.p 360 }}, /* 19168 360 */- {.type Here, {.p 19168 }}, /* 19168 360 */- {.type There, {.p 360 }}, /* 19168 360 */- {.type Header, {.hdr { 8, "cstring1", /* C_cstring1 = 19192 */ colon }}}, /* CENTRY "cstring1" cstring1 8 ; ( 'text count -- 'text ) \ copy string to pad+1536 and add a null byte at the end h 19200 */- {.type Here, {.p 19200 }}, /* 19200 360 */- {.type There, {.p 360 }}, /* 19200 360 */- {.type Here, {.p 19200 }}, /* 19200 360 */- {.type There, {.p 360 }}, /* 19200 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19208 */- {.type Here, {.p 19208 }}, /* 19208 360 */- {.type There, {.p 360 }}, /* 19208 360 */- {.type Absolute, {.p 512}}, /* dd 512 19216 */- {.type Here, {.p 19216 }}, /* 19216 360 */- {.type There, {.p 360 }}, /* 19216 360 */- {.type FromDictionary, {.p C_cstring}, .src = "dd C_cstring"}, /* dd C_cstring 19224 */- {.type Here, {.p 19224 }}, /* 19224 360 */- {.type There, {.p 360 }}, /* 19224 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19232 */- {.type Here, {.p 19232 }}, /* 19232 360 */- {.type There, {.p 360 }}, /* 19232 360 */- {.type Here, {.p 19232 }}, /* 19232 360 */- {.type There, {.p 360 }}, /* 19232 360 */- {.type Header, {.hdr { 9, "open-file", /* C_open_file = 19256 */ colon }}}, /* CENTRY "open-file" open_file 9 ; ( 'text count mode -- fd ioresult ) h 19264 */- {.type Here, {.p 19264 }}, /* 19264 360 */- {.type There, {.p 360 }}, /* 19264 360 */- {.type Here, {.p 19264 }}, /* 19264 360 */- {.type There, {.p 360 }}, /* 19264 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'text count ) (R mode)"}, /* dd M_rpush ; ( 'text count ) (R mode) 19272 */- {.type Here, {.p 19272 }}, /* 19272 360 */- {.type There, {.p 360 }}, /* 19272 360 */- {.type FromDictionary, {.p C_cstring0}, .src = "dd C_cstring0 ; ( 'padtext ) (R mode )"}, /* dd C_cstring0 ; ( 'padtext ) (R mode ) 19280 */- {.type Here, {.p 19280 }}, /* 19280 360 */- {.type There, {.p 360 }}, /* 19280 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'padtext mode ) (R )"}, /* dd M_rpop ; ( 'padtext mode ) (R ) 19288 */- {.type Here, {.p 19288 }}, /* 19288 360 */- {.type There, {.p 360 }}, /* 19288 360 */- {.type FromDictionary, {.p M_sysopen}, .src = "dd M_sysopen"}, /* dd M_sysopen 19296 */- {.type Here, {.p 19296 }}, /* 19296 360 */- {.type There, {.p 360 }}, /* 19296 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19304 */- {.type Here, {.p 19304 }}, /* 19304 360 */- {.type There, {.p 360 }}, /* 19304 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19312 */- {.type Here, {.p 19312 }}, /* 19312 360 */- {.type There, {.p 360 }}, /* 19312 360 */- {.type Absolute, {.p -1}}, /* dd -1 19320 */- {.type Here, {.p 19320 }}, /* 19320 360 */- {.type There, {.p 360 }}, /* 19320 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 19328 */- {.type Here, {.p 19328 }}, /* 19328 360 */- {.type There, {.p 360 }}, /* 19328 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19336 */- {.type Here, {.p 19336 }}, /* 19336 360 */- {.type There, {.p 360 }}, /* 19336 360 */- {.type Here, {.p 19336 }}, /* 19336 360 */- {.type There, {.p 360 }}, /* 19336 360 */- {.type Header, {.hdr { 10, "close-file", /* C_close_file = 19360 */ colon }}}, /* CENTRY "close-file" close_file 10 ; ( fd -- ioresult ) h 19368 */- {.type Here, {.p 19368 }}, /* 19368 360 */- {.type There, {.p 360 }}, /* 19368 360 */- {.type Here, {.p 19368 }}, /* 19368 360 */- {.type There, {.p 360 }}, /* 19368 360 */- {.type FromDictionary, {.p M_sysclose}, .src = "dd M_sysclose"}, /* dd M_sysclose 19376 */- {.type Here, {.p 19376 }}, /* 19376 360 */- {.type There, {.p 360 }}, /* 19376 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 19384 */- {.type Here, {.p 19384 }}, /* 19384 360 */- {.type There, {.p 360 }}, /* 19384 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19392 */- {.type Here, {.p 19392 }}, /* 19392 360 */- {.type There, {.p 360 }}, /* 19392 360 */- {.type Here, {.p 19392 }}, /* 19392 360 */- {.type There, {.p 360 }}, /* 19392 360 */- {.type Header, {.hdr { 9, "read-file", /* C_read_file = 19416 */ colon }}}, /* CENTRY "read-file" read_file 9 ; ( fd 'text count -- count2 ioresult ) h 19424 */- {.type Here, {.p 19424 }}, /* 19424 360 */- {.type There, {.p 360 }}, /* 19424 360 */- {.type Here, {.p 19424 }}, /* 19424 360 */- {.type There, {.p 360 }}, /* 19424 360 */- {.type FromDictionary, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 19432 */- {.type Here, {.p 19432 }}, /* 19432 360 */- {.type There, {.p 360 }}, /* 19432 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19440 */- {.type Here, {.p 19440 }}, /* 19440 360 */- {.type There, {.p 360 }}, /* 19440 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19448 */- {.type Here, {.p 19448 }}, /* 19448 360 */- {.type There, {.p 360 }}, /* 19448 360 */- {.type Absolute, {.p -1}}, /* dd -1 19456 */- {.type Here, {.p 19456 }}, /* 19456 360 */- {.type There, {.p 360 }}, /* 19456 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19464 */- {.type Here, {.p 19464 }}, /* 19464 360 */- {.type There, {.p 360 }}, /* 19464 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19472 */- {.type Here, {.p 19472 }}, /* 19472 360 */- {.type There, {.p 360 }}, /* 19472 360 */- {.type Here, {.p 19472 }}, /* 19472 360 */- {.type There, {.p 360 }}, /* 19472 360 */- {.type Header, {.hdr { 10, "write-file", /* C_write_file = 19496 */ colon }}}, /* CENTRY "write-file" write_file 10 ; ( fd 'text count -- ioresult ) h 19504 */- {.type Here, {.p 19504 }}, /* 19504 360 */- {.type There, {.p 360 }}, /* 19504 360 */- {.type Here, {.p 19504 }}, /* 19504 360 */- {.type There, {.p 360 }}, /* 19504 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 19512 */- {.type Here, {.p 19512 }}, /* 19512 360 */- {.type There, {.p 360 }}, /* 19512 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19520 */- {.type Here, {.p 19520 }}, /* 19520 360 */- {.type There, {.p 360 }}, /* 19520 360 */- {.type Absolute, {.p -1}}, /* dd -1 19528 */- {.type Here, {.p 19528 }}, /* 19528 360 */- {.type There, {.p 360 }}, /* 19528 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19536 */- {.type Here, {.p 19536 }}, /* 19536 360 */- {.type There, {.p 360 }}, /* 19536 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19544 */- {.type Here, {.p 19544 }}, /* 19544 360 */- {.type There, {.p 360 }}, /* 19544 360 */- {.type Here, {.p 19544 }}, /* 19544 360 */- {.type There, {.p 360 }}, /* 19544 360 */- {.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 19568 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 ; ( fd n type -- ioresult ) h 19576 */- {.type Here, {.p 19576 }}, /* 19576 360 */- {.type There, {.p 360 }}, /* 19576 360 */- {.type Here, {.p 19576 }}, /* 19576 360 */- {.type There, {.p 360 }}, /* 19576 360 */- {.type FromDictionary, {.p M_sysseek}, .src = "dd M_sysseek"}, /* dd M_sysseek 19584 */- {.type Here, {.p 19584 }}, /* 19584 360 */- {.type There, {.p 360 }}, /* 19584 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19592 */- {.type Here, {.p 19592 }}, /* 19592 360 */- {.type There, {.p 360 }}, /* 19592 360 */- {.type Absolute, {.p -1}}, /* dd -1 19600 */- {.type Here, {.p 19600 }}, /* 19600 360 */- {.type There, {.p 360 }}, /* 19600 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19608 */- {.type Here, {.p 19608 }}, /* 19608 360 */- {.type There, {.p 360 }}, /* 19608 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19616 */- {.type Here, {.p 19616 }}, /* 19616 360 */- {.type There, {.p 360 }}, /* 19616 360 */- {.type Here, {.p 19616 }}, /* 19616 360 */- {.type There, {.p 360 }}, /* 19616 360 */- {.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 19632 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 19640 */- {.type Here, {.p 19640 }}, /* 19640 360 */- {.type There, {.p 360 }}, /* 19640 360 */- {.type Here, {.p 19640 }}, /* 19640 360 */- {.type There, {.p 360 }}, /* 19640 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 19648 */- {.type Here, {.p 19648 }}, /* 19648 360 */- {.type There, {.p 360 }}, /* 19648 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 19656 */- {.type Here, {.p 19656 }}, /* 19656 360 */- {.type There, {.p 360 }}, /* 19656 360 */- {.type FromDictionary, {.p L246}, .src = "dd L246"}, /* dd L246 19664 */- {.type Here, {.p 19664 }}, /* 19664 360 */- {.type There, {.p 360 }}, /* 19664 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 19672 */- {.type Here, {.p 19672 }}, /* 19672 360 */- {.type There, {.p 360 }}, /* 19672 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19680 */- {.type Here, {.p 19680 }}, /* 19680 360 */- {.type There, {.p 360 }}, /* 19680 360 */- {.type FromDictionary, {.p L247}, .src = "dd L247"}, /* dd L247 19688 */- {.type Here, {.p 19688 }}, /* 19688 360 */- {.type There, {.p 360 }}, /* 19688 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 19696 */- {.type Here, {.p 19696 }}, /* 19696 360 */- {.type There, {.p 360 }}, /* 19696 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 19704 */- {.type Here, {.p 19704 }}, /* 19704 360 */- {.type There, {.p 360 }}, /* 19704 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 19712 */- {.type Here, {.p 19712 }}, /* 19712 360 */- {.type There, {.p 360 }}, /* 19712 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 19720 */- {.type Here, {.p 19720 }}, /* 19720 360 */- {.type There, {.p 360 }}, /* 19720 360 */- {.type Here, {.p 19720 }}, /* 19720 360 */- {.type There, {.p 360 }}, /* 19720 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19728 */- {.type Here, {.p 19728 }}, /* 19728 360 */- {.type There, {.p 360 }}, /* 19728 360 */- {.type Header, {.hdr { 11, "create-file", /* C_create_file = 19752 */ colon }}}, /* CENTRY "create-file" create_file 11 ; ( a n mode perm -- fd ioresult ) not part of the original ff. could move this to a forth file. h 19760 */- {.type Here, {.p 19760 }}, /* 19760 360 */- {.type There, {.p 360 }}, /* 19760 360 */- {.type Here, {.p 19760 }}, /* 19760 360 */- {.type There, {.p 360 }}, /* 19760 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a n mode ) (R perm)"}, /* dd M_rpush ; ( a n mode ) (R perm) 19768 */- {.type Here, {.p 19768 }}, /* 19768 360 */- {.type There, {.p 360 }}, /* 19768 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a n ) (R perm mode)"}, /* dd M_rpush ; ( a n ) (R perm mode) 19776 */- {.type Here, {.p 19776 }}, /* 19776 360 */- {.type There, {.p 360 }}, /* 19776 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( a n padaddr)"}, /* dd C_pad ; ( a n padaddr) 19784 */- {.type Here, {.p 19784 }}, /* 19784 360 */- {.type There, {.p 360 }}, /* 19784 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19792 */- {.type Here, {.p 19792 }}, /* 19792 360 */- {.type There, {.p 360 }}, /* 19792 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( a n padaddr 1024 ) 19800 */- {.type Here, {.p 19800 }}, /* 19800 360 */- {.type There, {.p 360 }}, /* 19800 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( a n padaddr+1024 )"}, /* dd M_plus ; ( a n padaddr+1024 ) 19808 */- {.type Here, {.p 19808 }}, /* 19808 360 */- {.type There, {.p 360 }}, /* 19808 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( a padaddr+1024 n )"}, /* dd M_xswap ; ( a padaddr+1024 n ) 19816 */- {.type Here, {.p 19816 }}, /* 19816 360 */- {.type There, {.p 360 }}, /* 19816 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a padaddr+1024 n n )"}, /* dd M_dup ; ( a padaddr+1024 n n ) 19824 */- {.type Here, {.p 19824 }}, /* 19824 360 */- {.type There, {.p 360 }}, /* 19824 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a padaddr+1024 n ) (R perm mode n )"}, /* dd M_rpush ; ( a padaddr+1024 n ) (R perm mode n ) 19832 */- {.type Here, {.p 19832 }}, /* 19832 360 */- {.type There, {.p 360 }}, /* 19832 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; moves the filename from a to paddaddr+1024"}, /* dd M_cmove ; moves the filename from a to paddaddr+1024 19840 */- {.type Here, {.p 19840 }}, /* 19840 360 */- {.type There, {.p 360 }}, /* 19840 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19848 */- {.type Here, {.p 19848 }}, /* 19848 360 */- {.type There, {.p 360 }}, /* 19848 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) 19856 */- {.type Here, {.p 19856 }}, /* 19856 360 */- {.type There, {.p 360 }}, /* 19856 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 0 n ) (R perm mode)"}, /* dd M_rpop ; ( 0 n ) (R perm mode) 19864 */- {.type Here, {.p 19864 }}, /* 19864 360 */- {.type There, {.p 360 }}, /* 19864 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 0 n padaddr)"}, /* dd C_pad ; ( 0 n padaddr) 19872 */- {.type Here, {.p 19872 }}, /* 19872 360 */- {.type There, {.p 360 }}, /* 19872 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n )"}, /* dd M_plus ; ( 0 padaddr+n ) 19880 */- {.type Here, {.p 19880 }}, /* 19880 360 */- {.type There, {.p 360 }}, /* 19880 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19888 */- {.type Here, {.p 19888 }}, /* 19888 360 */- {.type There, {.p 360 }}, /* 19888 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 0 padaddr+n 1024 ) 19896 */- {.type Here, {.p 19896 }}, /* 19896 360 */- {.type There, {.p 360 }}, /* 19896 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n+1024 )"}, /* dd M_plus ; ( 0 padaddr+n+1024 ) 19904 */- {.type Here, {.p 19904 }}, /* 19904 360 */- {.type There, {.p 360 }}, /* 19904 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; ( ) makes the filename to a null terminated string"}, /* dd M_cstore ; ( ) makes the filename to a null terminated string 19912 */- {.type Here, {.p 19912 }}, /* 19912 360 */- {.type There, {.p 360 }}, /* 19912 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 19920 */- {.type Here, {.p 19920 }}, /* 19920 360 */- {.type There, {.p 360 }}, /* 19920 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19928 */- {.type Here, {.p 19928 }}, /* 19928 360 */- {.type There, {.p 360 }}, /* 19928 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( padaddr 1024 ) 19936 */- {.type Here, {.p 19936 }}, /* 19936 360 */- {.type There, {.p 360 }}, /* 19936 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( padaddr+1024 )"}, /* dd M_plus ; ( padaddr+1024 ) 19944 */- {.type Here, {.p 19944 }}, /* 19944 360 */- {.type There, {.p 360 }}, /* 19944 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode) (R perm )"}, /* dd M_rpop ; ( padaddr+1024 mode) (R perm ) 19952 */- {.type Here, {.p 19952 }}, /* 19952 360 */- {.type There, {.p 360 }}, /* 19952 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode perm ) (R )"}, /* dd M_rpop ; ( padaddr+1024 mode perm ) (R ) 19960 */- {.type Here, {.p 19960 }}, /* 19960 360 */- {.type There, {.p 360 }}, /* 19960 360 */- {.type FromDictionary, {.p M_syscreate}, .src = "dd M_syscreate"}, /* dd M_syscreate 19968 */- {.type Here, {.p 19968 }}, /* 19968 360 */- {.type There, {.p 360 }}, /* 19968 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19976 */- {.type Here, {.p 19976 }}, /* 19976 360 */- {.type There, {.p 360 }}, /* 19976 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19984 */- {.type Here, {.p 19984 }}, /* 19984 360 */- {.type There, {.p 360 }}, /* 19984 360 */- {.type Absolute, {.p -1}}, /* dd -1 19992 */- {.type Here, {.p 19992 }}, /* 19992 360 */- {.type There, {.p 360 }}, /* 19992 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 20000 */- {.type Here, {.p 20000 }}, /* 20000 360 */- {.type There, {.p 360 }}, /* 20000 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20008 */- {.type Here, {.p 20008 }}, /* 20008 360 */- {.type There, {.p 360 }}, /* 20008 360 */- {.type Here, {.p 20008 }}, /* 20008 360 */- {.type There, {.p 360 }}, /* 20008 360 */- {.type Header, {.hdr { 3, "bye", /* C_bye = 20024 */ colon }}}, /* CENTRY "bye" bye 3 h 20032 */- {.type Here, {.p 20032 }}, /* 20032 360 */- {.type There, {.p 360 }}, /* 20032 360 */- {.type Here, {.p 20032 }}, /* 20032 360 */- {.type There, {.p 360 }}, /* 20032 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20040 */- {.type Here, {.p 20040 }}, /* 20040 360 */- {.type There, {.p 360 }}, /* 20040 360 */- {.type Absolute, {.p 0}}, /* dd 0 20048 */- {.type Here, {.p 20048 }}, /* 20048 360 */- {.type There, {.p 360 }}, /* 20048 360 */- {.type FromDictionary, {.p M_terminate}, .src = "dd M_terminate"}, /* dd M_terminate 20056 */- {.type Here, {.p 20056 }}, /* 20056 360 */- {.type There, {.p 360 }}, /* 20056 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20064 */- {.type Here, {.p 20064 }}, /* 20064 360 */- {.type There, {.p 360 }}, /* 20064 360 */- {.type Here, {.p 20064 }}, /* 20064 360 */- {.type There, {.p 360 }}, /* 20064 360 */- {.type Header, {.hdr { 7, "include", /* C_include = 20080 */ colon }}}, /* CENTRY "include" include 7 ; this does not work h 20088 */- {.type Here, {.p 20088 }}, /* 20088 360 */- {.type There, {.p 360 }}, /* 20088 360 */- {.type Here, {.p 20088 }}, /* 20088 360 */- {.type There, {.p 360 }}, /* 20088 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 20096 */- {.type Here, {.p 20096 }}, /* 20096 360 */- {.type There, {.p 360 }}, /* 20096 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 20104 */- {.type Here, {.p 20104 }}, /* 20104 360 */- {.type There, {.p 360 }}, /* 20104 360 */- {.type Here, {.p 20104 }}, /* 20104 360 */- {.type There, {.p 360 }}, /* 20104 360 */- {.type FromDictionary, {.p C_input_fetch}, .src = "dd C_input_fetch ; save the old input onto the stack"}, /* dd C_input_fetch ; save the old input onto the stack 20112 */- {.type Here, {.p 20112 }}, /* 20112 360 */- {.type There, {.p 360 }}, /* 20112 360 */- {.type Here, {.p 20112 }}, /* 20112 360 */- {.type There, {.p 360 }}, /* 20112 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 20120 */- {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 20128 */- {.type Here, {.p 20128 }}, /* 20128 360 */- {.type There, {.p 360 }}, /* 20128 360 */- {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 20136 */- {.type Here, {.p 20136 }}, /* 20136 360 */- {.type There, {.p 360 }}, /* 20136 360 */- {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 20144 */- {.type Here, {.p 20144 }}, /* 20144 360 */- {.type There, {.p 360 }}, /* 20144 360 */- {.type FromDictionary, {.p C_qfcheck}, .src = "dd C_qfcheck"}, /* dd C_qfcheck 20152 */- {.type Here, {.p 20152 }}, /* 20152 360 */- {.type There, {.p 360 }}, /* 20152 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd ; open the new file"}, /* dd MV_Infd ; open the new file 20160 */- {.type Here, {.p 20160 }}, /* 20160 360 */- {.type There, {.p 360 }}, /* 20160 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20168 */- {.type Here, {.p 20168 }}, /* 20168 360 */- {.type There, {.p 360 }}, /* 20168 360 */- {.type Here, {.p 20168 }}, /* 20168 360 */- {.type There, {.p 360 }}, /* 20168 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20176 */- {.type Here, {.p 20176 }}, /* 20176 360 */- {.type There, {.p 360 }}, /* 20176 360 */- {.type Here, {.p 20176 }}, /* 20176 360 */- {.type There, {.p 360 }}, /* 20176 360 */- {.type Header, {.hdr { 5, "crash", /* C_crash = 20192 */ colon }}}, /* CENTRY "crash" crash 5 h 20200 */- {.type Here, {.p 20200 }}, /* 20200 360 */- {.type There, {.p 360 }}, /* 20200 360 */- {.type Here, {.p 20200 }}, /* 20200 360 */- {.type There, {.p 360 }}, /* 20200 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20208 */- {.type Here, {.p 20208 }}, /* 20208 360 */- {.type There, {.p 360 }}, /* 20208 360 */- {.type FromDictionary, {.p L251}, .src = "dd L251"}, /* dd L251 20216 */- {.type Here, {.p 20216 }}, /* 20216 360 */- {.type There, {.p 360 }}, /* 20216 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 20224 */- {.type Here, {.p 20224 }}, /* 20224 360 */- {.type There, {.p 360 }}, /* 20224 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 20232 */- {.type Here, {.p 20232 }}, /* 20232 360 */- {.type There, {.p 360 }}, /* 20232 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 20240 */- {.type Here, {.p 20240 }}, /* 20240 360 */- {.type There, {.p 360 }}, /* 20240 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 20248 */- {.type Here, {.p 20248 }}, /* 20248 360 */- {.type There, {.p 360 }}, /* 20248 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20256 */- {.type Here, {.p 20256 }}, /* 20256 360 */- {.type There, {.p 360 }}, /* 20256 360 */- {.type Here, {.p 20256 }}, /* 20256 360 */- {.type There, {.p 360 }}, /* 20256 360 */- {.type Header, {.hdr { 4, "quit", /* C_quit = 20272 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 20280 */- {.type Here, {.p 20280 }}, /* 20280 360 */- {.type There, {.p 360 }}, /* 20280 360 */- {.type Here, {.p 20280 }}, /* 20280 360 */- {.type There, {.p 360 }}, /* 20280 360 */- {.type FromDictionary, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 20288 */- {.type Here, {.p 20288 }}, /* 20288 360 */- {.type There, {.p 360 }}, /* 20288 360 */- {.type FromDictionary, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 20296 */- {.type Here, {.p 20296 }}, /* 20296 360 */- {.type There, {.p 360 }}, /* 20296 360 */- {.type Here, {.p 20296 }}, /* 20296 360 */- {.type There, {.p 360 }}, /* 20296 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 20304 */- {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */- {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd MV_toLimit ; show the line read, for debugging */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd M_fetch */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd MV_Tib */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd MC_STDOUT */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd M_fswrite */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd M_drop ; drop the return value of write */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd C_cr */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */-/* ; dd C_space */ {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */- {.type Here, {.p 20304 }}, /* 20304 360 */- {.type There, {.p 360 }}, /* 20304 360 */- {.type FromDictionary, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 20312 */- {.type Here, {.p 20312 }}, /* 20312 360 */- {.type There, {.p 360 }}, /* 20312 360 */- {.type Here, {.p 20312 }}, /* 20312 360 */- {.type There, {.p 360 }}, /* 20312 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 20320 */- {.type Here, {.p 20320 }}, /* 20320 360 */- {.type There, {.p 360 }}, /* 20320 360 */- {.type FromDictionary, {.p L_C_quit}, .src = "dd L_C_quit"}, /* dd L_C_quit 20328 */- {.type Here, {.p 20328 }}, /* 20328 360 */- {.type There, {.p 360 }}, /* 20328 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed?"}, /* dd M_exitcolon ; why is this needed? 20336 */- {.type Here, {.p 20336 }}, /* 20336 360 */- {.type There, {.p 360 }}, /* 20336 360 */- {.type Here, {.p 20336 }}, /* 20336 360 */- {.type There, {.p 360 }}, /* 20336 360 */- {.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 20352 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 20360 */- {.type Here, {.p 20360 }}, /* 20360 360 */- {.type There, {.p 360 }}, /* 20360 360 */- {.type Here, {.p 20360 }}, /* 20360 360 */- {.type There, {.p 360 }}, /* 20360 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State ; ( mv_State -- )"}, /* dd MV_State ; ( mv_State -- ) 20368 */- {.type Here, {.p 20368 }}, /* 20368 360 */- {.type There, {.p 360 }}, /* 20368 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; off sets variable state = 0"}, /* dd C_off ; off sets variable state = 0 20376 */- {.type Here, {.p 20376 }}, /* 20376 360 */- {.type There, {.p 360 }}, /* 20376 360 */- {.type Here, {.p 20376 }}, /* 20376 360 */- {.type There, {.p 360 }}, /* 20376 360 */- {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 20384 */- {.type Here, {.p 20384 }}, /* 20384 360 */- {.type There, {.p 360 }}, /* 20384 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 20392 */- {.type Here, {.p 20392 }}, /* 20392 360 */- {.type There, {.p 360 }}, /* 20392 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20400 */- {.type Here, {.p 20400 }}, /* 20400 360 */- {.type There, {.p 360 }}, /* 20400 360 */- {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 20408 */- {.type Here, {.p 20408 }}, /* 20408 360 */- {.type There, {.p 360 }}, /* 20408 360 */- {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 20416 */- {.type Here, {.p 20416 }}, /* 20416 360 */- {.type There, {.p 360 }}, /* 20416 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20424 */- {.type Here, {.p 20424 }}, /* 20424 360 */- {.type There, {.p 360 }}, /* 20424 360 */- {.type FromDictionary, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 20432 */- {.type Here, {.p 20432 }}, /* 20432 360 */- {.type There, {.p 360 }}, /* 20432 360 */- {.type FromDictionary, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 20440 */- {.type Here, {.p 20440 }}, /* 20440 360 */- {.type There, {.p 360 }}, /* 20440 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20448 */- {.type Here, {.p 20448 }}, /* 20448 360 */- {.type There, {.p 360 }}, /* 20448 360 */- {.type Here, {.p 20448 }}, /* 20448 360 */- {.type There, {.p 360 }}, /* 20448 360 */- {.type FromDictionary, {.p C_stdinput}, .src = "dd C_stdinput"}, /* dd C_stdinput 20456 */- {.type Here, {.p 20456 }}, /* 20456 360 */- {.type There, {.p 360 }}, /* 20456 360 */- {.type FromDictionary, {.p C_quit}, .src = "dd C_quit ; quit resets stacks and is the interpreter loop"}, /* dd C_quit ; quit resets stacks and is the interpreter loop 20464 */- {.type Here, {.p 20464 }}, /* 20464 360 */- {.type There, {.p 360 }}, /* 20464 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed? quit does not return unless it breaks"}, /* dd M_exitcolon ; why is this needed? quit does not return unless it breaks 20472 */- {.type Here, {.p 20472 }}, /* 20472 360 */- {.type There, {.p 360 }}, /* 20472 360 */- {.type Here, {.p 20472 }}, /* 20472 360 */- {.type There, {.p 360 }}, /* 20472 360 */- {.type Here, {.p 20472 }}, /* 20472 360 */- {.type There, {.p 360 }}, /* 20472 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal ; test code"}, /* dd M_literal ; test code 20480 */- {.type Here, {.p 20480 }}, /* 20480 360 */- {.type There, {.p 360 }}, /* 20480 360 */- {.type Absolute, {.p 66}}, /* dd 66 20488 */- {.type Here, {.p 20488 }}, /* 20488 360 */- {.type There, {.p 360 }}, /* 20488 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20496 */- {.type Here, {.p 20496 }}, /* 20496 360 */- {.type There, {.p 360 }}, /* 20496 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20504 */- {.type Here, {.p 20504 }}, /* 20504 360 */- {.type There, {.p 360 }}, /* 20504 360 */- {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 20512 */- {.type Here, {.p 20512 }}, /* 20512 360 */- {.type There, {.p 360 }}, /* 20512 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20520 */- {.type Here, {.p 20520 }}, /* 20520 360 */- {.type There, {.p 360 }}, /* 20520 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20528 */- {.type Here, {.p 20528 }}, /* 20528 360 */- {.type There, {.p 360 }}, /* 20528 360 */- {.type Absolute, {.p 1}}, /* dd 1 20536 */- {.type Here, {.p 20536 }}, /* 20536 360 */- {.type There, {.p 360 }}, /* 20536 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 20544 */- {.type Here, {.p 20544 }}, /* 20544 360 */- {.type There, {.p 360 }}, /* 20544 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 20552 */- {.type Here, {.p 20552 }}, /* 20552 360 */- {.type There, {.p 360 }}, /* 20552 360 */- {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 20560 */- {.type Here, {.p 20560 }}, /* 20560 360 */- {.type There, {.p 360 }}, /* 20560 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20568 */- {.type Here, {.p 20568 }}, /* 20568 360 */- {.type There, {.p 360 }}, /* 20568 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20576 */- {.type Here, {.p 20576 }}, /* 20576 360 */- {.type There, {.p 360 }}, /* 20576 360 */- {.type Absolute, {.p 1}}, /* dd 1 20584 */- {.type Here, {.p 20584 }}, /* 20584 360 */- {.type There, {.p 360 }}, /* 20584 360 */- {.type FromDictionary, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 20592 */- {.type Here, {.p 20592 }}, /* 20592 360 */- {.type There, {.p 360 }}, /* 20592 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of read"}, /* dd M_drop ; drop the return value of read 20600 */- {.type Here, {.p 20600 }}, /* 20600 360 */- {.type There, {.p 360 }}, /* 20600 360 */- {.type Here, {.p 20600 }}, /* 20600 360 */- {.type There, {.p 360 }}, /* 20600 360 */- {.type Header, {.hdr { 10, "initialize", /* C_initialize = 20624 */ colon }}}, /* CENTRY "initialize" initialize 10 ; initialize buffer file names and buffer fds, why not hard code this? h 20632 */- {.type Here, {.p 20632 }}, /* 20632 360 */- {.type There, {.p 360 }}, /* 20632 360 */- {.type Here, {.p 20632 }}, /* 20632 360 */- {.type There, {.p 360 }}, /* 20632 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 20640 */- {.type Here, {.p 20640 }}, /* 20640 360 */- {.type There, {.p 360 }}, /* 20640 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 20648 */- {.type Here, {.p 20648 }}, /* 20648 360 */- {.type There, {.p 360 }}, /* 20648 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20656 */- {.type Here, {.p 20656 }}, /* 20656 360 */- {.type There, {.p 360 }}, /* 20656 360 */- {.type Absolute, {.p 0}}, /* dd 0 20664 */- {.type Here, {.p 20664 }}, /* 20664 360 */- {.type There, {.p 360 }}, /* 20664 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 20672 */- {.type Here, {.p 20672 }}, /* 20672 360 */- {.type There, {.p 360 }}, /* 20672 360 */- {.type Here, {.p 20672 }}, /* 20672 360 */- {.type There, {.p 360 }}, /* 20672 360 */- {.type Here, {.p 20672 }}, /* 20672 360 */- {.type There, {.p 360 }}, /* 20672 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 20680 */- {.type Here, {.p 20680 }}, /* 20680 360 */- {.type There, {.p 360 }}, /* 20680 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20688 */- {.type Here, {.p 20688 }}, /* 20688 360 */- {.type There, {.p 360 }}, /* 20688 360 */- {.type Absolute, {.p -1}}, /* dd -1 20696 */- {.type Here, {.p 20696 }}, /* 20696 360 */- {.type There, {.p 360 }}, /* 20696 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 20704 */- {.type Here, {.p 20704 }}, /* 20704 360 */- {.type There, {.p 360 }}, /* 20704 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20712 */- {.type Here, {.p 20712 }}, /* 20712 360 */- {.type There, {.p 360 }}, /* 20712 360 */- {.type Here, {.p 20712 }}, /* 20712 360 */- {.type There, {.p 360 }}, /* 20712 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20720 */- {.type Here, {.p 20720 }}, /* 20720 360 */- {.type There, {.p 360 }}, /* 20720 360 */- {.type Absolute, {.p 1}}, /* dd 1 20728 */- {.type Here, {.p 20728 }}, /* 20728 360 */- {.type There, {.p 360 }}, /* 20728 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 20736 */- {.type Here, {.p 20736 }}, /* 20736 360 */- {.type There, {.p 360 }}, /* 20736 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 20744 */- {.type Here, {.p 20744 }}, /* 20744 360 */- {.type There, {.p 360 }}, /* 20744 360 */- {.type Here, {.p 20744 }}, /* 20744 360 */- {.type There, {.p 360 }}, /* 20744 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 20752 */- {.type Here, {.p 20752 }}, /* 20752 360 */- {.type There, {.p 360 }}, /* 20752 360 */- {.type FromDictionary, {.p L_C_initialize}, .src = "dd L_C_initialize"}, /* dd L_C_initialize 20760 */- {.type Here, {.p 20760 }}, /* 20760 360 */- {.type There, {.p 360 }}, /* 20760 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 20768 */- {.type Here, {.p 20768 }}, /* 20768 360 */- {.type There, {.p 360 }}, /* 20768 360 */- {.type Here, {.p 20768 }}, /* 20768 360 */- {.type There, {.p 360 }}, /* 20768 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 20776 */- {.type Here, {.p 20776 }}, /* 20776 360 */- {.type There, {.p 360 }}, /* 20776 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 20784 */- {.type Here, {.p 20784 }}, /* 20784 360 */- {.type There, {.p 360 }}, /* 20784 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20792 */- {.type Here, {.p 20792 }}, /* 20792 360 */- {.type There, {.p 360 }}, /* 20792 360 */- {.type Absolute, {.p 0}}, /* dd 0 20800 */- {.type Here, {.p 20800 }}, /* 20800 360 */- {.type There, {.p 360 }}, /* 20800 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 20808 */- {.type Here, {.p 20808 }}, /* 20808 360 */- {.type There, {.p 360 }}, /* 20808 360 */- {.type Here, {.p 20808 }}, /* 20808 360 */- {.type There, {.p 360 }}, /* 20808 360 */- {.type Here, {.p 20808 }}, /* 20808 360 */- {.type There, {.p 360 }}, /* 20808 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 20816 */- {.type Here, {.p 20816 }}, /* 20816 360 */- {.type There, {.p 360 }}, /* 20816 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20824 */- {.type Here, {.p 20824 }}, /* 20824 360 */- {.type There, {.p 360 }}, /* 20824 360 */- {.type Absolute, {.p 0}}, /* dd 0 20832 */- {.type Here, {.p 20832 }}, /* 20832 360 */- {.type There, {.p 360 }}, /* 20832 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 20840 */- {.type Here, {.p 20840 }}, /* 20840 360 */- {.type There, {.p 360 }}, /* 20840 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20848 */- {.type Here, {.p 20848 }}, /* 20848 360 */- {.type There, {.p 360 }}, /* 20848 360 */- {.type Here, {.p 20848 }}, /* 20848 360 */- {.type There, {.p 360 }}, /* 20848 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20856 */- {.type Here, {.p 20856 }}, /* 20856 360 */- {.type There, {.p 360 }}, /* 20856 360 */- {.type Absolute, {.p 1}}, /* dd 1 20864 */- {.type Here, {.p 20864 }}, /* 20864 360 */- {.type There, {.p 360 }}, /* 20864 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 20872 */- {.type Here, {.p 20872 }}, /* 20872 360 */- {.type There, {.p 360 }}, /* 20872 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 20880 */- {.type Here, {.p 20880 }}, /* 20880 360 */- {.type There, {.p 360 }}, /* 20880 360 */- {.type Here, {.p 20880 }}, /* 20880 360 */- {.type There, {.p 360 }}, /* 20880 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 20888 */- {.type Here, {.p 20888 }}, /* 20888 360 */- {.type There, {.p 360 }}, /* 20888 360 */- {.type FromDictionary, {.p L_C_initialize_1}, .src = "dd L_C_initialize_1"}, /* dd L_C_initialize_1 20896 */- {.type Here, {.p 20896 }}, /* 20896 360 */- {.type There, {.p 360 }}, /* 20896 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 20904 */- {.type Here, {.p 20904 }}, /* 20904 360 */- {.type There, {.p 360 }}, /* 20904 360 */- {.type Here, {.p 20904 }}, /* 20904 360 */- {.type There, {.p 360 }}, /* 20904 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20912 */- {.type Here, {.p 20912 }}, /* 20912 360 */- {.type There, {.p 360 }}, /* 20912 360 */- {.type FromDictionary, {.p L121}, .src = "dd L121"}, /* dd L121 20920 */- {.type Here, {.p 20920 }}, /* 20920 360 */- {.type There, {.p 360 }}, /* 20920 360 */- {.type FromDictionary, {.p C_wordfilename_store}, .src = "dd C_wordfilename_store"}, /* dd C_wordfilename_store 20928 */- {.type Here, {.p 20928 }}, /* 20928 360 */- {.type There, {.p 360 }}, /* 20928 360 */- {.type Here, {.p 20928 }}, /* 20928 360 */- {.type There, {.p 360 }}, /* 20928 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20936 */- {.type Here, {.p 20936 }}, /* 20936 360 */- {.type There, {.p 360 }}, /* 20936 360 */- {.type FromDictionary, {.p L122}, .src = "dd L122"}, /* dd L122 20944 */- {.type Here, {.p 20944 }}, /* 20944 360 */- {.type There, {.p 360 }}, /* 20944 360 */- {.type FromDictionary, {.p C_linefilename_store}, .src = "dd C_linefilename_store"}, /* dd C_linefilename_store 20952 */- {.type Here, {.p 20952 }}, /* 20952 360 */- {.type There, {.p 360 }}, /* 20952 360 */- {.type Here, {.p 20952 }}, /* 20952 360 */- {.type There, {.p 360 }}, /* 20952 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20960 */- {.type Here, {.p 20960 }}, /* 20960 360 */- {.type There, {.p 360 }}, /* 20960 360 */- {.type FromDictionary, {.p L123}, .src = "dd L123"}, /* dd L123 20968 */- {.type Here, {.p 20968 }}, /* 20968 360 */- {.type There, {.p 360 }}, /* 20968 360 */- {.type FromDictionary, {.p C_doublequotefilename_store}, .src = "dd C_doublequotefilename_store"}, /* dd C_doublequotefilename_store 20976 */- {.type Here, {.p 20976 }}, /* 20976 360 */- {.type There, {.p 360 }}, /* 20976 360 */- {.type Here, {.p 20976 }}, /* 20976 360 */- {.type There, {.p 360 }}, /* 20976 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20984 */- {.type Here, {.p 20984 }}, /* 20984 360 */- {.type There, {.p 360 }}, /* 20984 360 */- {.type FromDictionary, {.p L124}, .src = "dd L124"}, /* dd L124 20992 */- {.type Here, {.p 20992 }}, /* 20992 360 */- {.type There, {.p 360 }}, /* 20992 360 */- {.type FromDictionary, {.p C_closeparenfilename_store}, .src = "dd C_closeparenfilename_store"}, /* dd C_closeparenfilename_store 21000 */- {.type Here, {.p 21000 }}, /* 21000 360 */- {.type There, {.p 360 }}, /* 21000 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 21008 */- {.type Here, {.p 21008 }}, /* 21008 360 */- {.type There, {.p 360 }}, /* 21008 360 */- {.type Here, {.p 21008 }}, /* 21008 360 */- {.type There, {.p 360 }}, /* 21008 360 */- {.type Header, {.hdr { 4, "boot", /* C_boot = 21024 */ colon }}}, /* CENTRY "boot" boot 4 h 21032 */- {.type Here, {.p 21032 }}, /* 21032 360 */- {.type There, {.p 360 }}, /* 21032 360 */- {.type Here, {.p 21032 }}, /* 21032 360 */- {.type There, {.p 360 }}, /* 21032 360 */- {.type FromDictionary, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 21040 */- {.type Here, {.p 21040 }}, /* 21040 360 */- {.type There, {.p 360 }}, /* 21040 360 */- {.type FromDictionary, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 21048 */- {.type Here, {.p 21048 }}, /* 21048 360 */- {.type There, {.p 360 }}, /* 21048 360 */- {.type Here, {.p 21048 }}, /* 21048 360 */- {.type There, {.p 360 }}, /* 21048 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 21056 */- {.type Here, {.p 21056 }}, /* 21056 360 */- {.type There, {.p 360 }}, /* 21056 360 */- {.type FromDictionary, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"}, /* dd C_parenabort ; ( (abort) -- ) 21064 */- {.type Here, {.p 21064 }}, /* 21064 360 */- {.type There, {.p 360 }}, /* 21064 360 */- {.type FromDictionary, {.p MV_Abortvec}, .src = "dd MV_Abortvec ; variable that puts (abort) code address on the stack"}, /* dd MV_Abortvec ; variable that puts (abort) code address on the stack 21072 */- {.type Here, {.p 21072 }}, /* 21072 360 */- {.type There, {.p 360 }}, /* 21072 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; variable abortvec = (abort) code address"}, /* dd M_store ; variable abortvec = (abort) code address 21080 */- {.type Here, {.p 21080 }}, /* 21080 360 */- {.type There, {.p 360 }}, /* 21080 360 */- {.type Here, {.p 21080 }}, /* 21080 360 */- {.type There, {.p 360 }}, /* 21080 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 21088 */- {.type Here, {.p 21088 }}, /* 21088 360 */- {.type There, {.p 360 }}, /* 21088 360 */- {.type FromDictionary, {.p MV_H0}, .src = "dd MV_H0 ; H0 = here at startup"}, /* dd MV_H0 ; H0 = here at startup 21096 */- {.type Here, {.p 21096 }}, /* 21096 360 */- {.type There, {.p 360 }}, /* 21096 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 21104 */- {.type Here, {.p 21104 }}, /* 21104 360 */- {.type There, {.p 360 }}, /* 21104 360 */- {.type Here, {.p 21104 }}, /* 21104 360 */- {.type There, {.p 360 }}, /* 21104 360 */- {.type FromDictionary, {.p C_initialize}, .src = "dd C_initialize ; sets up the buffer filenames and buffer fd's"}, /* dd C_initialize ; sets up the buffer filenames and buffer fd's 21112 */- {.type Here, {.p 21112 }}, /* 21112 360 */- {.type There, {.p 360 }}, /* 21112 360 */- {.type Here, {.p 21112 }}, /* 21112 360 */- {.type There, {.p 360 }}, /* 21112 360 */- {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 21120 */- {.type Here, {.p 21120 }}, /* 21120 360 */- {.type There, {.p 360 }}, /* 21120 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd ; might be overwritten by args below"}, /* dd MV_Infd ; might be overwritten by args below 21128 */- {.type Here, {.p 21128 }}, /* 21128 360 */- {.type There, {.p 360 }}, /* 21128 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; stdin = 0"}, /* dd M_store ; stdin = 0 21136 */- {.type Here, {.p 21136 }}, /* 21136 360 */- {.type There, {.p 360 }}, /* 21136 360 */- {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 21144 */- {.type Here, {.p 21144 }}, /* 21144 360 */- {.type There, {.p 360 }}, /* 21144 360 */- {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 21152 */- {.type Here, {.p 21152 }}, /* 21152 360 */- {.type There, {.p 360 }}, /* 21152 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 21160 */- {.type Here, {.p 21160 }}, /* 21160 360 */- {.type There, {.p 360 }}, /* 21160 360 */- {.type FromDictionary, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 21168 */- {.type Here, {.p 21168 }}, /* 21168 360 */- {.type There, {.p 360 }}, /* 21168 360 */- {.type FromDictionary, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 21176 */- {.type Here, {.p 21176 }}, /* 21176 360 */- {.type There, {.p 360 }}, /* 21176 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 21184 */- {.type Here, {.p 21184 }}, /* 21184 360 */- {.type There, {.p 360 }}, /* 21184 360 */- {.type Here, {.p 21184 }}, /* 21184 360 */- {.type There, {.p 360 }}, /* 21184 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 21192 */- {.type Here, {.p 21192 }}, /* 21192 360 */- {.type There, {.p 360 }}, /* 21192 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; off stores 0 at state"}, /* dd C_off ; off stores 0 at state 21200 */- {.type Here, {.p 21200 }}, /* 21200 360 */- {.type There, {.p 360 }}, /* 21200 360 */- {.type FromDictionary, {.p C_decimal}, .src = "dd C_decimal ; decimal sets base = 10"}, /* dd C_decimal ; decimal sets base = 10 21208 */- {.type Here, {.p 21208 }}, /* 21208 360 */- {.type There, {.p 360 }}, /* 21208 360 */- {.type Here, {.p 21208 }}, /* 21208 360 */- {.type There, {.p 360 }}, /* 21208 360 */- {.type FromDictionary, {.p C_args}, .src = "dd C_args ; process args"}, /* dd C_args ; process args 21216 */- {.type Here, {.p 21216 }}, /* 21216 360 */- {.type There, {.p 360 }}, /* 21216 360 */- {.type FromDictionary, {.p C_close_input}, .src = "dd C_close_input ; if the args opened an input"}, /* dd C_close_input ; if the args opened an input 21224 */- {.type Here, {.p 21224 }}, /* 21224 360 */- {.type There, {.p 360 }}, /* 21224 360 */- {.type FromDictionary, {.p C_stdinput}, .src = "dd C_stdinput ; read lines from stdin, args can change it later"}, /* dd C_stdinput ; read lines from stdin, args can change it later 21232 */- {.type Here, {.p 21232 }}, /* 21232 360 */- {.type There, {.p 360 }}, /* 21232 360 */- {.type FromDictionary, {.p C_quit}, .src = "dd C_quit ; interpreter loop when there are no args or fall through after processing args"}, /* dd C_quit ; interpreter loop when there are no args or fall through after processing args 21240 */- {.type Here, {.p 21240 }}, /* 21240 360 */- {.type There, {.p 360 }}, /* 21240 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 21248 */- {.type Here, {.p 21248 }}, /* 21248 360 */- {.type There, {.p 360 }}, /* 21248 360 */- {.type Here, {.p 21248 }}, /* 21248 360 */- {.type There, {.p 360 }}, /* 21248 360 */- {.type Here, {.p 21248 }}, /* 21248 360 */- {.type There, {.p 360 }}, /* 21248 360 */- {.type Chars, {.str "#n/"}}, /* "#n/" 21252 */- {.type Here, {.p 21252 }}, /* 21252 360 */- {.type There, {.p 360 }}, /* 21252 360 */- {.type Here, {.p 21256 }}, /* 21256 360 */- {.type There, {.p 360 }}, /* 21256 360 */- {.type Chars, {.str "/word"}}, /* "/word" 21262 */- {.type Here, {.p 21262 }}, /* 21262 360 */- {.type There, {.p 360 }}, /* 21262 360 */- {.type Here, {.p 21264 }}, /* 21264 360 */- {.type There, {.p 360 }}, /* 21264 360 */- {.type Chars, {.str "/line"}}, /* "/line" 21270 */- {.type Here, {.p 21270 }}, /* 21270 360 */- {.type There, {.p 360 }}, /* 21270 360 */- {.type Here, {.p 21272 }}, /* 21272 360 */- {.type There, {.p 360 }}, /* 21272 360 */- {.type Chars, {.str "/doublequote"}}, /* "/doublequote" 21285 */- {.type Here, {.p 21285 }}, /* 21285 360 */- {.type There, {.p 360 }}, /* 21285 360 */- {.type Here, {.p 21288 }}, /* 21288 360 */- {.type There, {.p 360 }}, /* 21288 360 */- {.type Chars, {.str "/closeparen"}}, /* "/closeparen" 21300 */- {.type Here, {.p 21300 }}, /* 21300 360 */- {.type There, {.p 360 }}, /* 21300 360 */- {.type Here, {.p 21300 }}, /* 21300 360 */- {.type There, {.p 360 }}, /* 21300 360 */- {.type Here, {.p 21304 }}, /* 21304 360 */- {.type There, {.p 360 }}, /* 21304 360 */- {.type Chars, {.str "unable to restore input"}}, /* "unable to restore input" 21328 */- {.type Here, {.p 21328 }}, /* 21328 360 */- {.type There, {.p 360 }}, /* 21328 360 */- {.type Here, {.p 21328 }}, /* 21328 360 */- {.type There, {.p 360 }}, /* 21328 360 */- {.type Chars, {.str "open file failed"}}, /* "open file failed" 21345 */- {.type Here, {.p 21345 }}, /* 21345 360 */- {.type There, {.p 360 }}, /* 21345 360 */- {.type Here, {.p 21352 }}, /* 21352 360 */- {.type There, {.p 360 }}, /* 21352 360 */- {.type Chars, {.str "read file failed"}}, /* "read file failed" 21369 */- {.type Here, {.p 21369 }}, /* 21369 360 */- {.type There, {.p 360 }}, /* 21369 360 */- {.type Here, {.p 21376 }}, /* 21376 360 */- {.type There, {.p 360 }}, /* 21376 360 */- {.type Chars, {.str " Q?"}}, /* " Q?" 21380 */- {.type Here, {.p 21380 }}, /* 21380 360 */- {.type There, {.p 360 }}, /* 21380 360 */- {.type Here, {.p 21384 }}, /* 21384 360 */- {.type There, {.p 360 }}, /* 21384 360 */- {.type Chars, {.str " stack underflow"}}, /* " stack underflow" 21401 */- {.type Here, {.p 21401 }}, /* 21401 360 */- {.type There, {.p 360 }}, /* 21401 360 */- {.type Here, {.p 21408 }}, /* 21408 360 */- {.type There, {.p 360 }}, /* 21408 360 */- {.type Chars, {.str " I?"}}, /* " I?" 21412 */- {.type Here, {.p 21412 }}, /* 21412 360 */- {.type There, {.p 360 }}, /* 21412 360 */- {.type Here, {.p 21416 }}, /* 21416 360 */- {.type There, {.p 360 }}, /* 21416 360 */- {.type Chars, {.str " C?"}}, /* " C?" 21420 */- {.type Here, {.p 21420 }}, /* 21420 360 */- {.type There, {.p 360 }}, /* 21420 360 */- {.type Here, {.p 21424 }}, /* 21424 360 */- {.type There, {.p 360 }}, /* 21424 360 */- {.type Chars, {.str "I/O error"}}, /* "I/O error" 21434 */- {.type Here, {.p 21434 }}, /* 21434 360 */- {.type There, {.p 360 }}, /* 21434 360 */- {.type Here, {.p 21440 }}, /* 21440 360 */- {.type There, {.p 360 }}, /* 21440 360 */- {.type Chars, {.str "uninitialized execution vector"}}, /* "uninitialized execution vector" 21471 */- {.type Here, {.p 21471 }}, /* 21471 360 */- {.type There, {.p 360 }}, /* 21471 360 */- {.type Here, {.p 21472 }}, /* 21472 360 */- {.type There, {.p 360 }}, /* 21472 360 */- {.type Chars, {.str " ok"}}, /* " ok" 21476 */- {.type Here, {.p 21476 }}, /* 21476 360 */- {.type There, {.p 360 }}, /* 21476 360 */- {.type Here, {.p 21480 }}, /* 21480 360 */- {.type There, {.p 360 }}, /* 21480 360 */- {.type Chars, {.str "input is longer than 4096 bytes without a delimiter"}}, /* "input is longer than 4096 bytes without a delimiter" 21532 */- {.type Here, {.p 21532 }}, /* 21532 360 */- {.type There, {.p 360 }}, /* 21532 360 */- {.type Here, {.p 21536 }}, /* 21536 360 */- {.type There, {.p 360 }}, /* 21536 360 */- {.type Chars, {.str "read error"}}, /* "read error" 21547 */- {.type Here, {.p 21547 }}, /* 21547 360 */- {.type There, {.p 360 }}, /* 21547 360 */- {.type Here, {.p 21552 }}, /* 21552 360 */- {.type There, {.p 360 }}, /* 21552 360 */- {.type Chars, {.str "word is too long to be interpreted"}}, /* "word is too long to be interpreted" 21587 */- {.type Here, {.p 21587 }}, /* 21587 360 */- {.type There, {.p 360 }}, /* 21587 360 */- {.type Here, {.p 21592 }}, /* 21592 360 */- {.type There, {.p 360 }}, /* 21592 360 */+ {.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/forth.head.h
+++ b/os/pc64/forth.head.h
@@ -2,33 +2,32 @@
* Forth dictionary
*/
enum {- Header,
- IHeader, /* Immediate dictionary definition */
- Absolute,
- FromDictionary,
- FromH0,
- FromV0,
- Byte, /* obsolete, all are counted strings now */
- Chars,
+ 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 Hdr Hdr;
-struct Hdr {- int len;
- char name[64];
- void *cfa;
-};
typedef struct Fentry Fentry;
struct Fentry
{- int type;
- union {- Hdr hdr;
- intptr p;
- s8 b;
+ 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];
- };
- char src[128];
+ void *ptr;
+ /* }; */
};
--- a/os/pc64/main.c
+++ b/os/pc64/main.c
@@ -328,7 +328,7 @@
kopen("#c/cons", OWRITE);/* the space at the end is needed to recognize init.f as a word */
- up->args = "include init.f ";
+ up->args = " include init.f ";
up->nargs = strlen(up->args);
print("init0: args len %d: %s\n", up->nargs, up->args);goforth(up->fmem);
--- a/os/pc64/mem.h
+++ b/os/pc64/mem.h
@@ -229,19 +229,19 @@
#define FTHPARENTPID (RSTACK+(BY2WD*65))
#define ARGSFILENAME (RSTACK+(BY2WD*66)) /* counted string, 18 bytes is enough, 64 bytes */
-#define FORTHVARS (RSTACK+(BY2WD*74)) /* magic word here? */
/* storage for saving Forth registers when calling C */
-#define FORTHTOP (FORTHVARS+(BY2WD*0))
-#define FORTHPSP (FORTHVARS+(BY2WD*1))
-#define FORTHRSP (FORTHVARS+(BY2WD*2))
-#define FORTHIP (FORTHVARS+(BY2WD*3))
-#define FORTHW (FORTHVARS+(BY2WD*4))
-#define FORTHUP (FORTHVARS+(BY2WD*5))
-#define FORTHUPE (FORTHVARS+(BY2WD*6))
+#define FORTHTOP (RSTACK+(BY2WD*74))
+#define FORTHPSP (RSTACK+(BY2WD*75))
+#define FORTHRSP (RSTACK+(BY2WD*76))
+#define FORTHIP (RSTACK+(BY2WD*77))
+#define FORTHW (RSTACK+(BY2WD*78))
+#define FORTHUP (RSTACK+(BY2WD*79))
+#define FORTHUPE (RSTACK+(BY2WD*80))
+#define HERE (RSTACK+(BY2WD*81))
+#define DTOP (RSTACK+(BY2WD*82))
+#define THERE (RSTACK+(BY2WD*83)) /* store FORTHVARS here at boot */
-#define HERE (FORTHVARS+(BY2WD*7))
-#define DTOP (FORTHVARS+(BY2WD*8))
-#define THERE (FORTHVARS+(BY2WD*9)) /* store fmem+THERE here at boot */
+#define FORTHVARS (RSTACK+(BY2WD*84))
#define FORTHEND (HEAPSTART+(22*BY2PG))
#define FORTHHEAPSIZE FORTHEND
--- a/os/pc64/mkdict.awk
+++ b/os/pc64/mkdict.awk
@@ -3,6 +3,7 @@
# rc script to build amd64 9front forth words from words-nasm.s
# ./mkdict.awk primitives-nasm.s words-nassm.s
# watch -e 'mkdict.awk' 'cat primitives-nasm.s words-nasm.s | ./mkdict.awk'
+# watch -e 'mkdict.awk' 'echo start `{date}; ./mkdict.awk primitives-nasm.s words-nasm.s > forth.h && bell ; echo end `{date} ' BEGIN{last=""
@@ -14,6 +15,10 @@
literal = "^[+-]?[0-9]+$"
branchlabel = "^L[0-9a-zA-Z_]+:$"
fentries = "Fentry fentries[] = {\n";+ dtop = -1
+ t = " " # tab
+ t2 = t t # 2 tabs
+ nl = ",\n"
}
function align(here){@@ -22,22 +27,31 @@
here += 8- (here%8)
return here
}
+function sourceline(){+ gsub(/\\/,"backslash");
+ gsub(/\"/,"\\\"");
+ gsub(/\\\\\"/,"\\\"");
+ fentries = fentries t "{.what Sourceline, .desc \"" $0 "\"}" nl;+}
function header(len, name, prefix, label, cfa, immediate){h = align(h); # to align here if the string or byte un-aligned it
+
+ sourceline()
+ if(dtop == -1)
+ fentries = fentries t2 "{.what Here, .desc \"link\",.here " h ", .there " vh ",.type Absolute, .p 0 }" nl;+ else
+ fentries = fentries t2 "{.what Here, .desc \"link\",.here " h ", .there " vh ",.type Relativedictionary, .p " dtop " }" nl;+ dtop = h
h+=8; # for link
- h+=len+1;
+
+ fentries = fentries t2 "{.what Here, .desc \"len\", .here " h ", .there " vh ",.type Byte, .b " (immediate*128) " + " len " }" nl;+ h+=1;
+ fentries = fentries t2 "{.what Here, .desc \"name\",.here " h ", .there " vh ",.type Chars, .str " name " }" nl;h = align(h);
+ fentries = fentries t2 "{.what Here, .desc \"cfa\", .here " h ", .there " vh ",.type Absoluteptr, .ptr " cfa " }" nl;labels[nlabels++] = prefix label " = " h;
h+=8; # for cfa
cfas[cfa] = 1
- if(immediate == 1)
- type = "IHeader"
- else
- type = "Header"
- fentries = fentries " {.type " type ", {.hdr { " len ", " name ", /* " labels[nlabels-1] " */ " cfa " }}}, /* " $0 " h " h " */\n";- # print(prefix label " @ " labels[nlabels-1]);
- fentries = fentries " {.type Here, {.p " h " }}, /* " h " " vh " */\n"- fentries = fentries " {.type There, {.p " vh " }}, /* " h " " vh " */\n"}
$1 == "MENTRY" {name = $2
@@ -46,20 +60,20 @@
$1 == "MCENTRY" {name = $2
header($4, name, "MC_", $3, "constant")
+ fentries = fentries t2 "{.what Here, .desc \"constant\", .here " h ", .there " vh ",.type Absolute, .p " $5 " }" nl;h+=8;
- fentries = fentries " {.type Absolute, {.p " $5"}}, /* " h " */\n"}
-$1 == "MVDENTRY" {+$1 == "MVDENTRY" { # defined memory locations in user memoryname = $2
header($4, name, "MV_", $3, "variable")
+ fentries = fentries t2 "{.what Here, .desc \"pfa\", .here " h ", .there " vh ",.type Relative, .p " $5 " }" nl;h+=8; # for pfa
- fentries = fentries " {.type FromH0, {.p " $5 " }}, /* " h " " vh " */\n"}
$1 == "MVENTRY" {name = $2
header($4, name, "MV_", $3, "variable")
+ fentries = fentries t2 "{.what Here, .desc \"pfa\", .here " h ", .there " vh ",.type Relativevar, .p FORTHVARS + " vh " }" nl;h+=8; # for pfa
- fentries = fentries " {.type FromV0, {.p " vh " }}, /* " h " " vh " */\n"if(NF >= 5 && $5 != ";")
vh+=$5*8;
else
@@ -76,46 +90,48 @@
header($4, name, "CI_", $3, "colon", 1)
}
$1 == "dd" && $2 ~ literal {+ sourceline()
h = align(h); # to align here if the string or byte un-aligned it
+ fentries = fentries t2 "{.what Here, .desc \"value\", .here " h ", .there " vh ",.type Absolute, .p " $2 " }" nl;h+=8
- fentries = fentries " {.type Absolute, {.p " $2 "}}, /* " $0 " " h " */\n"}
$1 == "dd" && $2 ~ "^[M_|C_|CI_|(MC_)|(MV_)|L]" {+ sourceline()
h = align(h); # to align here if the string or byte un-aligned it
+ fentries = fentries t2 "{.what Here, .desc \"address\", .here " h ", .there " vh ",.type Relativedictionary, .p " $2 " }" nl;h+=8
- fentries = fentries " {.type FromDictionary, {.p " $2 "}, .src = \"" $0 "\"}, /* " $0 " " h " */\n"}
$1 ~ branchlabel {- h = align(h); # to align here if the string or byte un-aligned it
+ sourceline()
gsub(/:/,"", $1)
labels[nlabels++] = $1 " = " h;
}
$1 == "db" { # will leave h unaligned.+ sourceline()
if($2 ~ literal) { # obsolete, now all are counted strings- h += 1;
- fentries = fentries " {.type Byte, {.b " $2 "}}, /* " $0 " " h " */\n"+ fentries = fentries t2 "{.what Here, .desc \"byte\", .here " h ", .there " vh ",.type Byte, .b " $2 " }" nl;+ h+=1;
}else{gsub(/^db /,"", $0)
gsub(/[ ]*;.*/,"", $0)
- h += length($0)-2+1; # -2 for the quotes, +1 for the count that will be added by devforth
- fentries = fentries " {.type Chars, {.str " $0 "}}, /* " $0 " " h " */\n"+ gsub(/\\\"/,"\"");
+ fentries = fentries t2 "{.what Here, .desc \"len\", .here " h ", .there " vh ",.type Byte, .b " length($0)-2 " }" nl;+ h+=1;
+ fentries = fentries t2 "{.what Here, .desc \"name\",.here " h ", .there " vh ",.type Chars, .str " $0 " }" nl;+ h += length($0)-2; # -2 for the quotes
}
}
$0 ~ /^;/ || $1 == ";" {- fentries = fentries "/* " $0 " */"
+# sourceline()
}
$0 ~ /^$/ {- fentries = fentries $0
}
-{- fentries = fentries " {.type Here, {.p " h " }}, /* " h " " vh " */\n"- fentries = fentries " {.type There, {.p " vh " }}, /* " h " " vh " */\n"-}
END{h = align(h); # to align here if the string or byte un-aligned it
vh = align(vh); # does not need to be aligned as we are not assigning variable bytes
- fentries = fentries " {.type Here, {.p " h " }}, /* " h " " vh " */\n"- fentries = fentries " {.type There, {.p " vh " }}, /* " h " " vh " */\n"+ fentries = fentries t "{.what Here, .desc \"end here\", .here " h ", .there " vh ",.type End }" nl;+ fentries = fentries t "{.what There, .desc \"end there\", .here " h ", .there " vh ",.type End }" nl;+ fentries = fentries t "{.what Dtop, .desc \"end dtop\", .p " dtop " }" nl;fentries= fentries "};\n"
# print("here " h); print("enum {");--- a/os/pc64/trap.c
+++ b/os/pc64/trap.c
@@ -153,7 +153,7 @@
return;
print(" depth %zd\n", (h+PSTACK - psp)/sizeof(intptr)); for(i = h + PSTACK-8; i >= psp; i-=8){- print(" 0x%zx: 0x%zx", i, *(intptr*)i);+ print(" 0x%zX: 0x%zX", i, *(intptr*)i);l++;
if(l == 3){l = 0;
--- a/os/pc64/words-nasm.s
+++ b/os/pc64/words-nasm.s
@@ -843,7 +843,7 @@
dd M_store
dd M_exitcolon
-CENTRY ">line" C_toline 7 ; ( 'Bufferfds -- 'Wordfd )
+CENTRY ">line" C_toline 5 ; ( 'Bufferfds -- 'Wordfd )
dd MC_LINENUM
dd C_cells
dd M_plus
@@ -874,7 +874,7 @@
dd M_exitcolon
CENTRY ">doublequote" C_todoublequote 12 ; ( 'Bufferfds -- 'Doublequotefd )
-dd MC_LINENUM
+dd MC_DOUBLEQUOTENUM
dd C_cells
dd M_plus
dd M_exitcolon
@@ -904,7 +904,7 @@
dd M_exitcolon
CENTRY ">closeparen" C_tocloseparen 11 ; ( 'Bufferfds -- 'Closeparenfd )
-dd MC_LINENUM
+dd MC_CLOSEPARENNUM
dd C_cells
dd M_plus
dd M_exitcolon
@@ -1182,7 +1182,6 @@
; if (.) can return a counted string, this would be simpler
CENTRY "buffername" C_buffername 10 ; ( index -- 'counted_string ) build the buffer fd's filename
dd C_bufferfilename_fetch ; ( 'fcs ) fcs = filename counted string
-
dd M_literal
dd L_bin_prefix ; address of the counted string 3#n/
dd C_pad
@@ -1241,7 +1240,7 @@
dd L_open_failed ; open error
dd C_count
dd C_type
-dd C_emit ; show the index
+dd C_dot ; show the index
dd C_cr
dd C_abort ; abort on open error. How about terminate?
@@ -1271,13 +1270,13 @@
dd 4096
dd M_equal
dd M_cjump
-dd M_exitcolon ; ( read_count ) successful read, get out
+dd L_C_get_read_successful
dd M_literal
dd L_C_get_too_long ; could not find a delimiter in 4096 bytes, reevaluate
dd C_count
dd C_type
-dd C_emit ; show the read_count
+dd C_dot ; show the read_count
dd C_cr
dd C_abort ; abort on read error. How about terminate?
dd M_exitcolon
@@ -1287,7 +1286,7 @@
dd L_read_failed ; read error
dd C_count
dd C_type
-dd C_emit ; show the index
+dd C_dot ; show the index
dd C_cr
dd C_abort ; abort on read error. How about terminate?
dd M_exitcolon
@@ -1299,8 +1298,11 @@
dd C_restore_input
dd M_exitcolon
-CENTRY "parse" C_parse 4 ; ( read_count -- 'Wordb ) Wordb has a counted string. read_count number of bytes read into Tib
+L_C_get_read_successful:
+dd M_exitcolon ; ( read_count ) successful read, get out
+CENTRY "parse" C_parse 5 ; ( read_count -- 'Wordb ) Wordb has a counted string. read_count bytes read into Tib
+
dd M_dup ; ( read_count read_count ) check if count > 255 bytes, then invalid word
dd M_literal
dd 256
@@ -2224,19 +2226,19 @@
dd M_drop
dd M_literal
-dd L121
+dd L_line_filename
dd C_wordfilename_store
dd M_literal
-dd L122
+dd L_word_filename
dd C_linefilename_store
dd M_literal
-dd L123
+dd L_doublequote_filename
dd C_doublequotefilename_store
dd M_literal
-dd L124
+dd L_closeparen_filename
dd C_closeparenfilename_store
dd M_exitcolon
@@ -2275,15 +2277,16 @@
dd C_quit ; interpreter loop when there are no args or fall through after processing args
dd M_exitcolon
+; putting the strings at the bottom to not mess with cell alignment above
L_bin_prefix:
db "#n/"
-L121:
+L_line_filename:
db "/word"
-L122:
+L_word_filename:
db "/line"
-L123:
+L_doublequote_filename:
db "/doublequote"
-L124:
+L_closeparen_filename:
db "/closeparen"
L137:
--- a/os/port/devbin.c
+++ b/os/port/devbin.c
@@ -11,6 +11,8 @@
/*
An fd created here might be used by different processes at the same time
if the processes are sharing the Fgrp. Hence, the need for locks.
+ TODO
+ add a ctl file to add searchers at run time (format: name <end byte>\n)
*/
/*
len is the space available in the reader's buffer
@@ -21,7 +23,8 @@
{u32 whichfile;
char name[KNAMELEN];
- u8 *(*endfn)(u8 *startp, u8 *endp); /* function pointer returning a pointer to the location after the delimiter */
+ /* function pointer to identify the content to send */
+ s32 (*contentfn)(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp);
};
QLock lexlock;
@@ -57,21 +60,21 @@
Qcloseparen,
};
-static u8 *endofword(u8 *startp, u8 *endp);
-static u8 *endofnewline(u8 *startp, u8 *endp);
-static u8 *endofdoublequote(u8 *startp, u8 *endp);
-static u8 *endofcloseparen(u8 *startp, u8 *endp);
-static u8 *readuntil(u8 *startp, u8 *endp);
+static s32 wordfn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp);
+static s32 linefn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp);
+static s32 doublequotefn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp);
+static s32 closeparenfn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp);
+static s32 readmax(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp);
u16 bintype = 0;
Searcher searchers[] =
{- Qbufferlength, "bufferlength", readuntil,
- Qbuffer, "buffer", readuntil, /* to read contents without a delimiter, such as the last non-delimited content */
- Qword, "word", endofword,
- Qline, "line", endofnewline,
- Qdoublequote, "doublequote", endofdoublequote,
- Qcloseparen, "closeparen", endofcloseparen,
+ Qbufferlength, "bufferlength", readmax, /* irrelevant function, not used */
+ Qbuffer, "buffer", readmax, /* to read contents without a delimiter, such as the last non-delimited content */
+ Qword, "word", wordfn,
+ Qline, "line", linefn,
+ Qdoublequote, "doublequote", doublequotefn,
+ Qcloseparen, "closeparen", closeparenfn,
};
static Chan*
@@ -104,10 +107,11 @@
return -1;
nsourcefds = 0;
- for(nfd = 0; nfd < up->fgrp->maxfd; nfd++){+ for(nfd = 0; nfd <= up->fgrp->maxfd; nfd++){if(up->fgrp->fd[nfd] != nil &&
up->fgrp->fd[nfd]->type != bintype &&
- (up->fgrp->fd[nfd]->mode == OREAD || up->fgrp->fd[nfd]->mode == ORDWR)){+ (up->fgrp->fd[nfd]->mode == OREAD ||
+ up->fgrp->fd[nfd]->mode == ORDWR)){ if(nsourcefds == i){snprint(fdname,5,"%d",nfd);
mkqid(&q, Qfddir, nfd, QTDIR); /* source fd in qid.vers */
@@ -243,6 +247,7 @@
Bin *bin;
Binreader *l;
+print("binclose: chanpath(c) %s\n", chanpath(c));l = c->aux;
if(l != nil){bin = l->bin;
@@ -270,10 +275,12 @@
if(bin->readp == nil)
bin->readp = bin->buf;
- if(bin->readp > bin->buf){+ if(bin->readp == bin->writep){+ bin->readp = bin->writep = bin->buf;
+ }else if(bin->readp > bin->buf){n = bin->writep-bin->readp;
memmove(bin->buf, bin->readp, n);
- bin->writep -= n;
+ bin->writep = bin->buf+n;
bin->readp = bin->buf;
}
@@ -287,19 +294,24 @@
return nr;
}
+/*
+ end of file is not a delimiter
+ */
static s32
binread(Chan *c, void *va, s32 n, s64)
{Bin *bin;
Searcher *s;
- u8 *ep, *nextreadp;
+ u8 *startp, *nextreadp;
u32 rv, nremaining;
char nlenstr[10];
+ s32 nsend;
if(c->qid.type == QTDIR){return devdirread(c, va, n, nil, 0, bingen);
}
+ DBG("binread: chanpath(c) %s n %d\n", chanpath(c), n);rv = 0;
bin = ((Binreader*)c->aux)->bin;
s = ((Binreader*)c->aux)->searcher;
@@ -321,7 +333,7 @@
rv = 0;
else if(nremaining > 0){rv = nremaining > n ? n : nremaining;
- memmove(va, bin->readp, n);
+ memmove(va, bin->readp, rv);
bin->readp += rv;
}
goto Exit;
@@ -335,35 +347,17 @@
}
Search: /* doing this while holding a lock, not sure if it is smart */
- if(bin->writep-bin->readp > n)
- ep = bin->readp+n;
- else
- ep = bin->writep;
- /* s->endfn should not run for Qbufferlength, hence no nil check */
- nextreadp = s->endfn(bin->readp, ep);
- if(nextreadp == nil){- if(bin->writep-bin->readp > n){- /* delimiter not found, send n bytes */
- memmove(va, bin->readp, n);
- bin->readp += n;
- rv = n;
- goto Exit;
- }else{- /* BUG: what if this returns an eof? */
- if(bin->eof == 1){- rv = 0;
- goto Exit;
- }else
- refill(bin);
- goto Search;
- }
- }else{- /* delimiter found within n bytes */
- rv = nextreadp-bin->readp;
- memmove(va, bin->readp, rv);
- bin->readp = nextreadp;
- goto Exit;
+ DBG("binread: chanpath(c) %s %s readp 0x%p writep 0x%p maxn %d\n",+ chanpath(c), s->name, bin->readp, bin->writep, n);
+ nsend = s->contentfn(bin->readp, bin->writep, &startp, n, &nextreadp);
+ DBG("binread: nsend %d startp 0x%p nextreadp 0x%p\n", nsend, startp, nextreadp);+ if(nsend == 0 && bin->eof == 0){+ refill(bin);
+ goto Search;
}
+ memmove(va, startp, nsend);
+ bin->readp = nextreadp;
+ rv = nsend;
Exit:
qunlock(bin);
return rv;
@@ -410,60 +404,160 @@
return endp;
}
+static s32
+readmax(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp)
+{+ *startp = readp;
+ *nextreadp = writep;
+
+ /* nothing to send */
+ if(readp == writep)
+ return 0;
+
+ if(writep-readp > maxn){+ *nextreadp = readp+maxn;
+ return maxn;
+ }
+ return writep-readp;
+}
+
/*
without a blank line at the end, the last word without an ending
- word delimiter gets skipped.
+ word delimiter gets skipped. This is how all Plan9 apps are working.
+ Sticking to that policy.
Hence, the application should read the buffer for the last word
no, leave it alone. not worth the complexity.
\<carriage return> will skip the next line
- TODO
- at some point, have to remove leading blanks
*/
-static u8 *
-endofword(u8 *startp, u8 *endp)
+static s32
+wordfn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp)
{u8 *p;
+ s32 n;
- for(p = startp; p<endp; p++){+ *startp = *nextreadp = readp;
+
+ /* nothing to send */
+ if(readp == writep)
+ return 0;
+
+ /* skip starting delimiters */
+ for(p = readp; p<writep; p++){if(*p == ' ' || *p == ' ' || *p == '\n')
- return p+1;
+ continue;
+ else
+ break;
}
- return nil;
+
+ *startp = *nextreadp = p; /* disregard until p */
+
+ /* all content is delimiters */
+ if(p == writep){+ return 0;
+ }
+
+ /* find ending delimiter */
+ for(n=0; p<writep && n < maxn; p++){+ *nextreadp = p;
+ if(*p == ' ' || *p == ' ' || *p == '\n'){+ return n;
+ }
+ n++;
+ }
+
+ /* no delimiter found in maxn bytes, send maxn */
+ if(n == maxn)
+ return maxn;
+
+ /* no delimiter found before writep */
+ return 0;
}
-static u8 *
-endofnewline(u8 *startp, u8 *endp)
+static s32
+linefn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp)
{u8 *p;
+ s32 n;
- for(p = startp; p<endp; p++){+ *startp = *nextreadp = readp;
+
+ /* nothing to send */
+ if(readp == writep)
+ return 0;
+
+ /* skip starting delimiters */
+ for(p = readp; p<writep; p++){if(*p == '\n')
- return p+1;
+ continue;
+ else
+ break;
}
- return nil;
+
+ *startp = *nextreadp = p; /* disregard until p */
+
+ /* all content is delimiters */
+ if(p == writep){+ return 0;
+ }
+
+ /* find ending delimiter */
+ for(n=0; p<writep && n < maxn; p++){+ *nextreadp = p;
+ if(*p == '\n')
+ return n;
+ n++;
+ }
+
+ /* no delimiter found in maxn bytes, send maxn */
+ if(n == maxn)
+ return maxn;
+
+ /* no delimiter found before writep */
+ return 0;
}
-static u8 *
-endofdoublequote(u8 *startp, u8 *endp)
+/* read until c and skip c for the next read */
+static s32
+until(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp, u8 c)
{u8 *p;
+ s32 n;
- for(p = startp; p<endp; p++){- if(*p == 0x22) /* " = 0x22 = 34 */
- return p+1;
+ *startp = *nextreadp = readp;
+
+ /* nothing to send */
+ if(readp == writep)
+ return 0;
+
+ /* find ending delimiter */
+ for(n=0; p<writep && n < maxn; p++){+ *nextreadp = p;
+ if(*p == c){+ *nextreadp = p+1; /* skip this for the next read */
+ return n;
+ }
+ n++;
}
- return nil;
+
+ /* no delimiter found in maxn bytes, send maxn */
+ if(n == maxn)
+ return maxn;
+
+ return 0;
}
-static u8 *
-endofcloseparen(u8 *startp, u8 *endp)
+/* find a double quote */
+static s32
+doublequotefn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp)
{- u8 *p;
+ /* " = 0x22 = 34 */
+ return until(readp, writep, startp, maxn, nextreadp, 0x22);
+}
- for(p = startp; p<endp; p++){- if(*p == 0x29) /* ) = 0x29 = 41 */
- return p+1;
- }
- return nil;
+static s32
+closeparenfn(u8 *readp, u8 *writep, u8 **startp, s32 maxn, u8 **nextreadp)
+{+ /* ) = 0x29 = 41 */
+ return until(readp, writep, startp, maxn, nextreadp, 0x29);
}
--- a/os/port/devforth.c
+++ b/os/port/devforth.c
@@ -236,13 +236,13 @@
{intptr i;
Fentry *f;
- u8 *h, *dtop, *vh, nbytes;
- int n;
+ u8 *h, *dtop, *vh, nbytes, len;
Bhdr *b;
h = fmem+DICTIONARY;
dtop = nil;
- vh = fmem+THERE+8;
+ vh = fmem+FORTHVARS;
+debug = 1;
DBG("loadforthdictionary fmem 0x%p\n"" here 0x%p dtop 0x%p there 0x%p\n"
" (intptr*)(fmem + DTOP) 0x%p *(intptr*)(fmem + DTOP) 0x%zX\n"
@@ -256,73 +256,48 @@
FORTHEND, (intptr*)(fmem + FORTHEND));
for(i=0; i < nelem(fentries); i++){f = &fentries[i];
- if(f->type == Header){- *(intptr*)h = (intptr)dtop;
- DBG("Header 0x%p: 0x%zX 0x%p ", h, *(intptr*)h, dtop);- dtop = h;
- h += sizeof(intptr);
- *h = f->hdr.len;
- DBG("len 0x%p: 0x%d ", h, *h);- h++;
- strncpy((s8*)h, f->hdr.name, f->hdr.len);
- DBG("name 0x%p: ", h);- for(n = 0; n < f->hdr.len; n++){- DBG("%c", *(h+n));- }
- h += f->hdr.len;
- if((f->hdr.len+1)%8 > 0){- h += 8-((f->hdr.len+1)%8);
- }
- *(intptr*)h = (intptr)f->hdr.cfa;
- DBG(" cfa 0x%p: 0x%zX 0x%p\n", h, *(intptr*)h, f->hdr.cfa);- }else if(f->type == IHeader){- *(intptr*)h = (intptr)dtop;
- DBG("IHeader 0x%p: 0x%zX 0x%p ", h, *(intptr*)h, dtop);- dtop = h;
- h += sizeof(intptr);
- *h = f->hdr.len | (1<<7);
- DBG("len 0x%p: 0x%d ", h, *h);- h++;
- strncpy((s8*)h, f->hdr.name, f->hdr.len);
- DBG("name 0x%p: ", h);- for(n = 0; n < f->hdr.len; n++){- DBG("%c", *(h+n));- }
- h += f->hdr.len;
- if((f->hdr.len+1)%8 > 0){- h += 8-((f->hdr.len+1)%8);
- }
- *(intptr*)h = (intptr)f->hdr.cfa;
- DBG(" cfa 0x%p: 0x%zX 0x%p\n", h, *(intptr*)h, f->hdr.cfa);- }else if(f->type == Absolute){+ if(f->what == Sourceline){+ DBG("%s\n", f->desc);+ }else if(f->what == Here && f->type == Absolute){+ h = fmem+DICTIONARY+f->here;
*(intptr*)h = f->p;
- DBG(" 0x%p: 0x%zX 0x%zX\n", h, *(intptr*)h, f->p);- }else if(f->type == FromDictionary){+ DBG(" %s 0x%zX: 0x%zX %lld: %lld\n", f->desc, h, *(intptr*)h, h, *(intptr*)h);+ }else if(f->what == Here && f->type == Absoluteptr){+ h = fmem+DICTIONARY+f->here;
+ *(intptr*)h = (intptr)f->ptr;
+ DBG(" %s 0x%zX: 0x%zX %lld: %lld\n", f->desc, h, *(intptr*)h, h, *(intptr*)h);+ }else if(f->what == Here && f->type == Byte){+ h = fmem+DICTIONARY+f->here;
+ *(s8*)h = f->b;
+ DBG(" %s 0x%zX: 0x%d %lld: %d\n", f->desc, h, *(char*)h, h, *(char*)h);+ }else if(f->what == Here && f->type == Chars){+ h = fmem+DICTIONARY+f->here;
+ len = strlen(f->str);
+ strncpy((s8*)h, f->str, len);
+ DBG(" %s 0x%zX: %s %lld: %s\n", f->desc, h, (char*)h, h, (char*)h);+ }else if(f->what == Here && f->type == Relative){+ h = fmem+DICTIONARY+f->here;
+ *(intptr*)h = (intptr)fmem+f->p;
+ DBG(" %s 0x%zX: 0x%zX %lld: %lld\n", f->desc, h, *(intptr*)h, h, *(intptr*)h);+ }else if(f->what == Here && f->type == Relativedictionary){+ h = fmem+DICTIONARY+f->here;
*(intptr*)h = (intptr)fmem+DICTIONARY+f->p;
- DBG(" 0x%p: 0x%zX 0x%p src %s\n", h, *(intptr*)h, fmem+DICTIONARY+f->p, f->src);- }else if(f->type == FromH0){+ DBG(" %s 0x%zX: 0x%zX %lld: %lld\n", f->desc, h, *(intptr*)h, h, *(intptr*)h);+ }else if(f->what == Here && f->type == Relativevar){+ h = fmem+DICTIONARY+f->here;
*(intptr*)h = (intptr)fmem+f->p;
- DBG(" 0x%p: 0x%zX 0x%p src %s\n", h, *(intptr*)h, fmem+f->p, f->src);- }else if(f->type == FromV0){- *(intptr*)h = (intptr)fmem+THERE+8+f->p; /* pfa with the address where the value is */
- *(intptr*)vh = 0; /* actual value, not necessary as malloc zeroes it all */
- DBG(" 0x%p: 0x%zX 0x%p\n", h, *(intptr*)h, (intptr)fmem+THERE+8+f->p);- DBG(" 0x%p: 0x%zX 0\n", vh, *(intptr*)vh);- }else if(f->type == Chars){- *h = strlen(f->str); /* making this a counted string */
- strcpy((s8*)h+1, f->str);
- DBG(" 0x%p: %d %s\n", h, *h, (char*)h+1);- }else if(f->type == Byte){ /* obsolete, all are counted strings now */- *h = f->b;
- DBG(" 0x%p: 0x%ud 0x%ud\n", h, *h, f->b);- }else if(f->type == Here){- h = fmem+DICTIONARY+f->p;
- DBG(" h 0x%p\n", h);- }else if(f->type == There){- vh = fmem+THERE+8+f->p;
- DBG(" vh 0x%p\n", vh);+ DBG(" %s 0x%zX: 0x%zX %lld: %lld\n", f->desc, h, *(intptr*)h, h, *(intptr*)h);+ }else if(f->what == Here && f->type == End){+ h = fmem+DICTIONARY+f->here;
+ DBG(" %s 0x%zX %lld\n", f->desc, h, h);+ }else if(f->what == There && f->type == End){+ vh = fmem+FORTHVARS+f->there;
+ DBG(" %s 0x%zX %lld\n", f->desc, vh, vh);+ }else if(f->what == Dtop){+ dtop = (u8*)fmem+DICTIONARY+f->p;
+ DBG(" %s 0x%zX %lld\n", f->desc, (intptr)dtop, (intptr)dtop); } else {- panic("loadforthdictionary unknown Fentry\n");+ panic("loadforthdictionary unknown Fentry: %s\n", f->desc);}
}
*(intptr*)(fmem + HERE) = (intptr)h;
@@ -358,8 +333,7 @@
loadforthdictionary((u8*)fmem);
print("goforth pid %d forthmem 0x%zx end 0x%zx forthmem+RSTACK 0x%zx\n",up->pid, (intptr)fmem, ((intptr*)fmem)[1], (intptr)fmem+RSTACK);
- DBG("fentries[0].name %s\n", fentries[0].hdr.name);- DBG("fentries[1].name %s nfentries %d\n", fentries[1].hdr.name, nelem(fentries));+ DBG("nfentries %d\n", nelem(fentries)); DBG("up->kstack 0x%p\n", up->kstack); if(waserror()){ print("goforth error: %r\n");