ref: d54c1ad5f94c215f3aa8ec7745acd93a616cb645
parent: 98540c6b29cdeb659849f5b61e0b19c242b94365
author: 9ferno <gophone2015@gmail.com>
date: Sat Feb 12 17:14:23 EST 2022
opening buffer files working in forth
--- a/os/pc64/forth.h
+++ b/os/pc64/forth.h
@@ -215,189 +215,192 @@
C_hold = 7832,
C_sign = 7936,
L_C_sign = 7992,
- C_paren_dot_paren = 8016,
- C_dot = 8104,
- C_dotr = 8160,
- C_hex = 8320,
- C_decimal = 8384,
- C_digit = 8448,
- L_C_digit = 8560,
- L_C_digit_2 = 8664,
- L_C_digit_4 = 8768,
- L_C_digit_5 = 8792,
- L_C_digit_3 = 8792,
- L_C_digit_1 = 8792,
- L_C_digit_6 = 8864,
- L_C_digit_7 = 8880,
- C_number = 8904,
- L_C_number = 9040,
- L_C_number_1 = 9072,
- L_C_number_2 = 9136,
- L_C_number_3 = 9240,
- L_C_number_4 = 9296,
- C_abort = 9384,
- C_bufferfilename_store = 9448,
- C_toword = 9512,
- C_wordfd_fetch = 9568,
- C_wordfd_store = 9624,
- C_wordfilename_fetch = 9688,
- C_wordfilename_store = 9752,
- C_toline = 9808,
- C_linefd_fetch = 9864,
- C_linefd_store = 9920,
- C_linefilename_fetch = 9984,
- C_linefilename_store = 10048,
- C_todoublequote = 10112,
- C_doublequotefd_fetch = 10176,
- C_doublequotefd_store = 10240,
- C_doublequotefilename_fetch = 10312,
- C_doublequotefilename_store = 10384,
- C_tocloseparen = 10448,
- C_closeparenfd_fetch = 10512,
- C_closeparenfd_store = 10576,
- C_closeparenfilename_fetch = 10648,
- C_closeparenfilename_store = 10720,
- C_stdinput = 10784,
- L_C_stdinput = 10856,
- C_args = 10976,
- L_C_args_read = 11048,
- C_input_fetch = 11136,
- L_C_input_fetch = 11184,
- C_input_store = 11368,
- L_C_input_store = 11496,
- L_C_input_store_1 = 11584,
- C_close_input = 11624,
- L_C_close_input = 11672,
- C_restore_input = 11904,
- L_restore_input = 12032,
- C_buffername = 12064,
- C_get = 12416,
- L_C_get_store = 12672,
- L_C_get = 12720,
- L_C_get_1 = 12856,
- L_C_get_2 = 12952,
- L_C_get_3 = 13056,
- C_parse = 13080,
- L_C_parse_1 = 13240,
- C_word = 13312,
- C_line = 13368,
- C_doublequote = 13424,
- C_counted_doublequote = 13480,
- C_closeparen = 13544,
- C_findname = 13600,
- L_C_findname = 13640,
- L_C_findname_2 = 13752,
- L_C_findname_4 = 13880,
- L_C_findname_3 = 13888,
- L_C_findname_1 = 13904,
- C_find = 13952,
- L_C_find_1 = 14144,
- L_C_find_2 = 14160,
- L_C_find = 14184,
- L_C_find_3 = 14192,
- C_single_quote = 14216,
- L_C_single_quote = 14336,
- C_qstack = 14360,
- L_C_qstack = 14456,
- C_interpret = 14528,
- L_C_interpret = 14536,
- L_C_interpret_2 = 14600,
- L_C_interpret_4 = 14704,
- L_C_interpret_3 = 14704,
- C_create = 14744,
- C_variable = 14984,
- C_constant = 15080,
- C_immediate = 15208,
- C_tocfa = 15320,
- C_compile = 15400,
- L_C_compile_1 = 15528,
- L_C_compile_2 = 15544,
- L_C_compile = 15560,
- L_C_compile_4 = 15680,
- L_C_compile_6 = 15712,
- L_C_compile_3 = 15712,
- C_close_bracket = 15736,
- L_C_close_bracket = 15760,
- L_C_close_bracket_1 = 15840,
- L_C_close_bracket_2 = 15864,
- L_C_close_bracket_3 = 15896,
- CI_open_bracket = 15920,
- C_smudge = 15968,
- C_reveal = 16080,
- C_colon = 16200,
- CI_semicolon = 16328,
- CI_recurse = 16408,
- C_char = 16480,
- C_literal = 16536,
- C_sliteral = 16608,
- C_string = 16760,
- CI_char_brackets = 16872,
- CI_quote_brackets = 16936,
- CI_openparen = 16984,
- CI_backslash = 17032,
- C_qabort_parens = 17080,
- L_C_qabort_parens = 17160,
- L_C_qabort_parens_1 = 17168,
- CI_abort_double_quote = 17192,
- C_double_quote = 17256,
- C_cdouble_quote = 17368,
- CI_sdouble_quote = 17488,
- CI_dotstr = 17528,
- CI_if = 17592,
- CI_else = 17680,
- CI_then = 17808,
- CI_begin = 17864,
- CI_again = 17904,
- CI_until = 17968,
- CI_while = 18032,
- CI_repeat = 18120,
- CI_do = 18216,
- CI_loop = 18296,
- L234 = 18384,
- CI_ploop = 18408,
- L236 = 18496,
- C_wo = 18520,
- C_ro = 18616,
- C_rw = 18664,
- C_cstring = 18712,
- C_cstring0 = 18896,
- C_cstring1 = 18960,
- C_open_file = 19024,
- C_close_file = 19128,
- C_read_file = 19184,
- C_write_file = 19280,
- C_reposition_file = 19368,
- C_qfcheck = 19448,
- L246 = 19536,
- C_create_file = 19568,
- C_bye = 19840,
- C_include = 19896,
- C_crash = 20008,
- C_quit = 20088,
- L_C_quit = 20112,
- C_parenabort = 20168,
- C_initialize = 20440,
- L_C_initialize = 20488,
- L_C_initialize_1 = 20624,
- C_boot = 20840,
- L120 = 21064,
- L121 = 21072,
- L122 = 21080,
- L123 = 21088,
- L124 = 21104,
- L137 = 21120,
- L140 = 21144,
- L141 = 21168,
- L170 = 21192,
- L173 = 21200,
- L180 = 21224,
- L_C_compile_5 = 21232,
- L247 = 21240,
- L251 = 21256,
- L255 = 21288,
- L_C_get_too_long = 21296,
- L305 = 21352,
- L_C_long_word = 21368,
+ 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 = 11144,
+ L_C_args_read = 11216,
+ C_input_fetch = 11304,
+ L_C_input_fetch = 11352,
+ C_input_store = 11536,
+ L_C_input_store = 11664,
+ L_C_input_store_1 = 11752,
+ C_close_input = 11792,
+ L_C_close_input = 11840,
+ C_restore_input = 12072,
+ L_restore_input = 12200,
+ C_concat = 12224,
+ C_buffername = 12408,
+ C_get = 12584,
+ L_C_get_store = 12840,
+ L_C_get = 12888,
+ L_C_get_1 = 13024,
+ L_C_get_2 = 13120,
+ L_C_get_3 = 13224,
+ C_parse = 13248,
+ L_C_parse_1 = 13408,
+ C_word = 13480,
+ C_line = 13536,
+ C_doublequote = 13592,
+ C_counted_doublequote = 13648,
+ C_closeparen = 13712,
+ C_findname = 13768,
+ L_C_findname = 13808,
+ L_C_findname_2 = 13920,
+ L_C_findname_4 = 14048,
+ L_C_findname_3 = 14056,
+ L_C_findname_1 = 14072,
+ C_find = 14120,
+ L_C_find_1 = 14312,
+ L_C_find_2 = 14328,
+ L_C_find = 14352,
+ L_C_find_3 = 14360,
+ C_single_quote = 14384,
+ L_C_single_quote = 14504,
+ C_qstack = 14528,
+ L_C_qstack = 14624,
+ C_interpret = 14696,
+ L_C_interpret = 14704,
+ L_C_interpret_2 = 14768,
+ L_C_interpret_4 = 14872,
+ L_C_interpret_3 = 14872,
+ C_create = 14912,
+ C_variable = 15152,
+ C_constant = 15248,
+ C_immediate = 15376,
+ C_tocfa = 15488,
+ C_compile = 15568,
+ L_C_compile_1 = 15696,
+ L_C_compile_2 = 15712,
+ L_C_compile = 15728,
+ L_C_compile_4 = 15848,
+ L_C_compile_6 = 15880,
+ L_C_compile_3 = 15880,
+ C_close_bracket = 15904,
+ L_C_close_bracket = 15928,
+ L_C_close_bracket_1 = 16008,
+ L_C_close_bracket_2 = 16032,
+ L_C_close_bracket_3 = 16064,
+ CI_open_bracket = 16088,
+ C_smudge = 16136,
+ C_reveal = 16248,
+ C_colon = 16368,
+ CI_semicolon = 16496,
+ CI_recurse = 16576,
+ C_char = 16648,
+ C_literal = 16704,
+ C_sliteral = 16776,
+ C_string = 16928,
+ CI_char_brackets = 17040,
+ CI_quote_brackets = 17104,
+ CI_openparen = 17152,
+ CI_backslash = 17200,
+ C_qabort_parens = 17248,
+ L_C_qabort_parens = 17328,
+ L_C_qabort_parens_1 = 17336,
+ CI_abort_double_quote = 17360,
+ C_double_quote = 17424,
+ C_counted_double_quote = 17536,
+ CI_sdouble_quote = 17656,
+ CI_dotstr = 17696,
+ CI_if = 17760,
+ CI_else = 17848,
+ CI_then = 17976,
+ CI_begin = 18032,
+ CI_again = 18072,
+ CI_until = 18136,
+ CI_while = 18200,
+ CI_repeat = 18288,
+ CI_do = 18384,
+ CI_loop = 18464,
+ L234 = 18552,
+ CI_ploop = 18576,
+ L236 = 18664,
+ C_wo = 18688,
+ C_ro = 18784,
+ C_rw = 18832,
+ C_cstring = 18880,
+ C_cstring0 = 19064,
+ C_cstring1 = 19128,
+ C_open_file = 19192,
+ C_close_file = 19296,
+ C_read_file = 19352,
+ C_write_file = 19448,
+ C_reposition_file = 19536,
+ C_qfcheck = 19616,
+ L246 = 19704,
+ C_create_file = 19736,
+ C_bye = 20008,
+ C_include = 20064,
+ C_crash = 20176,
+ C_quit = 20256,
+ L_C_quit = 20280,
+ C_parenabort = 20336,
+ C_initialize = 20608,
+ L_C_initialize = 20656,
+ L_C_initialize_1 = 20792,
+ C_boot = 21008,
+ L_bin_prefix = 21232,
+ L121 = 21240,
+ L122 = 21248,
+ L123 = 21256,
+ L124 = 21272,
+ L137 = 21288,
+ L140 = 21312,
+ L141 = 21336,
+ L170 = 21360,
+ L173 = 21368,
+ L180 = 21392,
+ L_C_compile_5 = 21400,
+ L247 = 21408,
+ L251 = 21424,
+ L255 = 21456,
+ L_C_get_too_long = 21464,
+ L305 = 21520,
+ L_C_long_word = 21536,
};
extern void *sliteral(void);
extern void *syscreate(void);
@@ -2597,6 +2600,8 @@
{.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 */@@ -2862,322 +2867,314 @@
{.type There, {.p 360 }}, /* 8000 360 */ {.type Here, {.p 8000 }}, /* 8000 360 */ {.type There, {.p 360 }}, /* 8000 360 */- {.type Header, {.hdr { 3, "(.)", /* C_paren_dot_paren = 8016 */ colon }}}, /* CENTRY "(.)" paren_dot_paren 3 ; convert the top of stack to a string ( n1 -- 'text n2 ) h 8024 */+ {.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 M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 8032 */+ {.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 C_abs}, .src = "dd C_abs ; ( n n -- n u )"}, /* dd C_abs ; ( n n -- n u ) 8040 */+ {.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 C_fromhash}, .src = "dd C_fromhash ; pad = h+256; >num = pad+1024"}, /* dd C_fromhash ; pad = h+256; >num = pad+1024 8048 */+ {.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 FromDictionary, {.p C_hashs}, .src = "dd C_hashs ; ( n u1 -- n n2 )"}, /* dd C_hashs ; ( n u1 -- n n2 ) 8056 */+ {.type Absolute, {.p 1}}, /* dd 1 8056 */ {.type Here, {.p 8056 }}, /* 8056 360 */ {.type There, {.p 360 }}, /* 8056 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( n n2 -- n2 n )"}, /* dd M_xswap ; ( n n2 -- n2 n ) 8064 */+ {.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 C_sign}, .src = "dd C_sign ; ( n2 n -- n2 )"}, /* dd C_sign ; ( n2 n -- n2 ) 8072 */+ {.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 C_hashfrom}, .src = "dd C_hashfrom ; ( u1 -- a n )"}, /* dd C_hashfrom ; ( u1 -- a n ) 8080 */+ {.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_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8088 */- {.type Here, {.p 8088 }}, /* 8088 360 */- {.type There, {.p 360 }}, /* 8088 360 */- {.type Here, {.p 8088 }}, /* 8088 360 */- {.type There, {.p 360 }}, /* 8088 360 */- {.type Header, {.hdr { 1, ".", /* C_dot = 8104 */ colon }}}, /* CENTRY "." dot 1 ; print the top of stack ( n -- ) h 8112 */- {.type Here, {.p 8112 }}, /* 8112 360 */- {.type There, {.p 360 }}, /* 8112 360 */- {.type Here, {.p 8112 }}, /* 8112 360 */- {.type There, {.p 360 }}, /* 8112 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 ) 8120 */- {.type Here, {.p 8120 }}, /* 8120 360 */- {.type There, {.p 360 }}, /* 8120 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 8128 */- {.type Here, {.p 8128 }}, /* 8128 360 */- {.type There, {.p 360 }}, /* 8128 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 8136 */- {.type Here, {.p 8136 }}, /* 8136 360 */- {.type There, {.p 360 }}, /* 8136 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8144 */- {.type Here, {.p 8144 }}, /* 8144 360 */- {.type There, {.p 360 }}, /* 8144 360 */- {.type Here, {.p 8144 }}, /* 8144 360 */- {.type There, {.p 360 }}, /* 8144 360 */- {.type Header, {.hdr { 2, ".r", /* C_dotr = 8160 */ colon }}}, /* CENTRY ".r" dotr 2 h 8168 */- {.type Here, {.p 8168 }}, /* 8168 360 */- {.type There, {.p 360 }}, /* 8168 360 */- {.type Here, {.p 8168 }}, /* 8168 360 */- {.type There, {.p 360 }}, /* 8168 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 8176 */- {.type Here, {.p 8176 }}, /* 8176 360 */- {.type There, {.p 360 }}, /* 8176 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8184 */- {.type Here, {.p 8184 }}, /* 8184 360 */- {.type There, {.p 360 }}, /* 8184 360 */- {.type FromDictionary, {.p C_abs}, .src = "dd C_abs"}, /* dd C_abs 8192 */- {.type Here, {.p 8192 }}, /* 8192 360 */- {.type There, {.p 360 }}, /* 8192 360 */- {.type FromDictionary, {.p C_fromhash}, .src = "dd C_fromhash"}, /* dd C_fromhash 8200 */- {.type Here, {.p 8200 }}, /* 8200 360 */- {.type There, {.p 360 }}, /* 8200 360 */- {.type FromDictionary, {.p C_hashs}, .src = "dd C_hashs"}, /* dd C_hashs 8208 */- {.type Here, {.p 8208 }}, /* 8208 360 */- {.type There, {.p 360 }}, /* 8208 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 8216 */- {.type Here, {.p 8216 }}, /* 8216 360 */- {.type There, {.p 360 }}, /* 8216 360 */- {.type FromDictionary, {.p C_sign}, .src = "dd C_sign"}, /* dd C_sign 8224 */- {.type Here, {.p 8224 }}, /* 8224 360 */- {.type There, {.p 360 }}, /* 8224 360 */- {.type FromDictionary, {.p C_hashfrom}, .src = "dd C_hashfrom"}, /* dd C_hashfrom 8232 */- {.type Here, {.p 8232 }}, /* 8232 360 */- {.type There, {.p 360 }}, /* 8232 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 8240 */- {.type Here, {.p 8240 }}, /* 8240 360 */- {.type There, {.p 360 }}, /* 8240 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 8248 */- {.type Here, {.p 8248 }}, /* 8248 360 */- {.type There, {.p 360 }}, /* 8248 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8256 */- {.type Here, {.p 8256 }}, /* 8256 360 */- {.type There, {.p 360 }}, /* 8256 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8264 */- {.type Here, {.p 8264 }}, /* 8264 360 */- {.type There, {.p 360 }}, /* 8264 360 */- {.type Absolute, {.p 0}}, /* dd 0 8272 */- {.type Here, {.p 8272 }}, /* 8272 360 */- {.type There, {.p 360 }}, /* 8272 360 */- {.type FromDictionary, {.p C_max}, .src = "dd C_max"}, /* dd C_max 8280 */- {.type Here, {.p 8280 }}, /* 8280 360 */- {.type There, {.p 360 }}, /* 8280 360 */- {.type FromDictionary, {.p C_spaces}, .src = "dd C_spaces"}, /* dd C_spaces 8288 */- {.type Here, {.p 8288 }}, /* 8288 360 */- {.type There, {.p 360 }}, /* 8288 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 8296 */- {.type Here, {.p 8296 }}, /* 8296 360 */- {.type There, {.p 360 }}, /* 8296 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8304 */- {.type Here, {.p 8304 }}, /* 8304 360 */- {.type There, {.p 360 }}, /* 8304 360 */- {.type Header, {.hdr { 3, "hex", /* C_hex = 8320 */ colon }}}, /* CENTRY "hex" hex 3 h 8328 */- {.type Here, {.p 8328 }}, /* 8328 360 */- {.type There, {.p 360 }}, /* 8328 360 */- {.type Here, {.p 8328 }}, /* 8328 360 */- {.type There, {.p 360 }}, /* 8328 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8336 */- {.type Here, {.p 8336 }}, /* 8336 360 */- {.type There, {.p 360 }}, /* 8336 360 */- {.type Absolute, {.p 16}}, /* dd 16 8344 */- {.type Here, {.p 8344 }}, /* 8344 360 */- {.type There, {.p 360 }}, /* 8344 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8352 */- {.type Here, {.p 8352 }}, /* 8352 360 */- {.type There, {.p 360 }}, /* 8352 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8360 */- {.type Here, {.p 8360 }}, /* 8360 360 */- {.type There, {.p 360 }}, /* 8360 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8368 */- {.type Here, {.p 8368 }}, /* 8368 360 */- {.type There, {.p 360 }}, /* 8368 360 */- {.type Header, {.hdr { 7, "decimal", /* C_decimal = 8384 */ colon }}}, /* CENTRY "decimal" decimal 7 h 8392 */- {.type Here, {.p 8392 }}, /* 8392 360 */- {.type There, {.p 360 }}, /* 8392 360 */- {.type Here, {.p 8392 }}, /* 8392 360 */- {.type There, {.p 360 }}, /* 8392 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8400 */- {.type Here, {.p 8400 }}, /* 8400 360 */- {.type There, {.p 360 }}, /* 8400 360 */- {.type Absolute, {.p 10}}, /* dd 10 8408 */- {.type Here, {.p 8408 }}, /* 8408 360 */- {.type There, {.p 360 }}, /* 8408 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8416 */- {.type Here, {.p 8416 }}, /* 8416 360 */- {.type There, {.p 360 }}, /* 8416 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8424 */- {.type Here, {.p 8424 }}, /* 8424 360 */- {.type There, {.p 360 }}, /* 8424 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8432 */- {.type Here, {.p 8432 }}, /* 8432 360 */- {.type There, {.p 360 }}, /* 8432 360 */- {.type Here, {.p 8432 }}, /* 8432 360 */- {.type There, {.p 360 }}, /* 8432 360 */- {.type Header, {.hdr { 5, "digit", /* C_digit = 8448 */ colon }}}, /* CENTRY "digit" digit 5 ; ( c -- ) h 8456 */- {.type Here, {.p 8456 }}, /* 8456 360 */- {.type There, {.p 360 }}, /* 8456 360 */- {.type Here, {.p 8456 }}, /* 8456 360 */- {.type There, {.p 360 }}, /* 8456 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8464 */- {.type Here, {.p 8464 }}, /* 8464 360 */- {.type There, {.p 360 }}, /* 8464 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8472 */- {.type Here, {.p 8472 }}, /* 8472 360 */- {.type There, {.p 360 }}, /* 8472 360 */- {.type Absolute, {.p 65}}, /* dd 65 8480 */- {.type Here, {.p 8480 }}, /* 8480 360 */- {.type There, {.p 360 }}, /* 8480 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8488 */- {.type Here, {.p 8488 }}, /* 8488 360 */- {.type There, {.p 360 }}, /* 8488 360 */- {.type Absolute, {.p 91}}, /* dd 91 8496 */- {.type Here, {.p 8496 }}, /* 8496 360 */- {.type There, {.p 360 }}, /* 8496 360 */- {.type FromDictionary, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8504 */- {.type Here, {.p 8504 }}, /* 8504 360 */- {.type There, {.p 360 }}, /* 8504 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8512 */- {.type Here, {.p 8512 }}, /* 8512 360 */- {.type There, {.p 360 }}, /* 8512 360 */- {.type FromDictionary, {.p L_C_digit}, .src = "dd L_C_digit"}, /* dd L_C_digit 8520 */- {.type Here, {.p 8520 }}, /* 8520 360 */- {.type There, {.p 360 }}, /* 8520 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8528 */- {.type Here, {.p 8528 }}, /* 8528 360 */- {.type There, {.p 360 }}, /* 8528 360 */- {.type Absolute, {.p 55}}, /* dd 55 8536 */- {.type Here, {.p 8536 }}, /* 8536 360 */- {.type There, {.p 360 }}, /* 8536 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8544 */- {.type Here, {.p 8544 }}, /* 8544 360 */- {.type There, {.p 360 }}, /* 8544 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8552 */- {.type Here, {.p 8552 }}, /* 8552 360 */- {.type There, {.p 360 }}, /* 8552 360 */- {.type FromDictionary, {.p L_C_digit_1}, .src = "dd L_C_digit_1"}, /* dd L_C_digit_1 8560 */- {.type Here, {.p 8560 }}, /* 8560 360 */- {.type There, {.p 360 }}, /* 8560 360 */- {.type Here, {.p 8560 }}, /* 8560 360 */- {.type There, {.p 360 }}, /* 8560 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8568 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8576 */+ {.type Absolute, {.p 65}}, /* dd 65 8576 */ {.type Here, {.p 8576 }}, /* 8576 360 */ {.type There, {.p 360 }}, /* 8576 360 */- {.type Absolute, {.p 97}}, /* dd 97 8584 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8592 */+ {.type Absolute, {.p 91}}, /* dd 91 8592 */ {.type Here, {.p 8592 }}, /* 8592 360 */ {.type There, {.p 360 }}, /* 8592 360 */- {.type Absolute, {.p 123}}, /* dd 123 8600 */+ {.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 C_within}, .src = "dd C_within"}, /* dd C_within 8608 */+ {.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 M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8616 */+ {.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 L_C_digit_2}, .src = "dd L_C_digit_2"}, /* dd L_C_digit_2 8624 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8632 */+ {.type Absolute, {.p 55}}, /* dd 55 8632 */ {.type Here, {.p 8632 }}, /* 8632 360 */ {.type There, {.p 360 }}, /* 8632 360 */- {.type Absolute, {.p 87}}, /* dd 87 8640 */+ {.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_minus}, .src = "dd M_minus"}, /* dd M_minus 8648 */+ {.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 M_jump}, .src = "dd M_jump"}, /* dd M_jump 8656 */+ {.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 FromDictionary, {.p L_C_digit_3}, .src = "dd L_C_digit_3"}, /* dd L_C_digit_3 8664 */+ {.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 Here, {.p 8664 }}, /* 8664 360 */- {.type There, {.p 360 }}, /* 8664 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8672 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8680 */+ {.type Absolute, {.p 97}}, /* dd 97 8680 */ {.type Here, {.p 8680 }}, /* 8680 360 */ {.type There, {.p 360 }}, /* 8680 360 */- {.type Absolute, {.p 48}}, /* dd 48 8688 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8696 */+ {.type Absolute, {.p 123}}, /* dd 123 8696 */ {.type Here, {.p 8696 }}, /* 8696 360 */ {.type There, {.p 360 }}, /* 8696 360 */- {.type Absolute, {.p 58}}, /* dd 58 8704 */+ {.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 C_within}, .src = "dd C_within"}, /* dd C_within 8712 */+ {.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 M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8720 */+ {.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 L_C_digit_4}, .src = "dd L_C_digit_4"}, /* dd L_C_digit_4 8728 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8736 */+ {.type Absolute, {.p 87}}, /* dd 87 8736 */ {.type Here, {.p 8736 }}, /* 8736 360 */ {.type There, {.p 360 }}, /* 8736 360 */- {.type Absolute, {.p 48}}, /* dd 48 8744 */+ {.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_minus}, .src = "dd M_minus"}, /* dd M_minus 8752 */+ {.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 M_jump}, .src = "dd M_jump"}, /* dd M_jump 8760 */+ {.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 FromDictionary, {.p L_C_digit_5}, .src = "dd L_C_digit_5"}, /* dd L_C_digit_5 8768 */+ {.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 Here, {.p 8768 }}, /* 8768 360 */- {.type There, {.p 360 }}, /* 8768 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 8776 */+ {.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 FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 8784 */+ {.type Absolute, {.p 48}}, /* dd 48 8784 */ {.type Here, {.p 8784 }}, /* 8784 360 */ {.type There, {.p 360 }}, /* 8784 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8792 */+ {.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 Here, {.p 8792 }}, /* 8792 360 */- {.type There, {.p 360 }}, /* 8792 360 */- {.type Here, {.p 8792 }}, /* 8792 360 */- {.type There, {.p 360 }}, /* 8792 360 */- {.type Here, {.p 8792 }}, /* 8792 360 */- {.type There, {.p 360 }}, /* 8792 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8800 */+ {.type Absolute, {.p 58}}, /* dd 58 8800 */ {.type Here, {.p 8800 }}, /* 8800 360 */ {.type There, {.p 360 }}, /* 8800 360 */- {.type FromDictionary, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8808 */+ {.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_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 8816 */+ {.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 M_less}, .src = "dd M_less"}, /* dd M_less 8824 */+ {.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_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8832 */+ {.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 FromDictionary, {.p L_C_digit_6}, .src = "dd L_C_digit_6"}, /* dd L_C_digit_6 8840 */+ {.type Absolute, {.p 48}}, /* dd 48 8840 */ {.type Here, {.p 8840 }}, /* 8840 360 */ {.type There, {.p 360 }}, /* 8840 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true"}, /* dd C_true 8848 */+ {.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_7}, .src = "dd L_C_digit_7"}, /* dd L_C_digit_7 8864 */+ {.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 */@@ -3188,289 +3185,298 @@
{.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 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 Header, {.hdr { 6, "number", /* C_number = 8904 */ colon }}}, /* CENTRY "number" number 6 ; ( a n1 -- n2 -1 | a n1 0 ) h 8912 */+ {.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 Here, {.p 8912 }}, /* 8912 360 */- {.type There, {.p 360 }}, /* 8912 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( a n1 -- n1 a )"}, /* dd M_xswap ; ( a n1 -- n1 a ) 8920 */+ {.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_dup}, .src = "dd M_dup ; ( n1 a -- n1 a a )"}, /* dd M_dup ; ( n1 a -- n1 a a ) 8928 */+ {.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 M_cfetch}, .src = "dd M_cfetch ; ( n1 a a -- n1 a c )"}, /* dd M_cfetch ; ( n1 a a -- n1 a c ) 8936 */+ {.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 M_literal}, .src = "dd M_literal"}, /* dd M_literal 8944 */+ {.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 Absolute, {.p 45}}, /* dd 45 ; ( n1 a c -- n1 a c - ) 8952 */+ {.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 M_equal}, .src = "dd M_equal ; ( n1 a c -- n1 a f )"}, /* dd M_equal ; ( n1 a c -- n1 a f ) 8960 */+ {.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 FromDictionary, {.p M_cjump}, .src = "dd M_cjump ; ( n1 a c -- n1 a )"}, /* dd M_cjump ; ( n1 a c -- n1 a ) 8968 */+ {.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 L_C_number}, .src = "dd L_C_number ; c != -"}, /* dd L_C_number ; c != - 8976 */+ {.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 FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; c == - ( n1 a -- n1 a+1 )"}, /* dd C_1plus ; c == - ( n1 a -- n1 a+1 ) 8984 */+ {.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 FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 8992 */- {.type Here, {.p 8992 }}, /* 8992 360 */- {.type There, {.p 360 }}, /* 8992 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 ) 9000 */- {.type Here, {.p 9000 }}, /* 9000 360 */- {.type There, {.p 360 }}, /* 9000 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9008 */+ {.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 Absolute, {.p -1}}, /* dd -1 ; ( a+1 n1-1 -- a+1 n1-1 -1 ) 9016 */+ {.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_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) 9024 */+ {.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_jump}, .src = "dd M_jump"}, /* dd M_jump 9032 */+ {.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 L_C_number_1}, .src = "dd L_C_number_1"}, /* dd L_C_number_1 9040 */+ {.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 Here, {.p 9040 }}, /* 9040 360 */- {.type There, {.p 360 }}, /* 9040 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( n1 a -- a n1)"}, /* dd M_xswap ; ( n1 a -- a n1) 9048 */+ {.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_literal}, .src = "dd M_literal"}, /* dd M_literal 9056 */+ {.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 Absolute, {.p 1}}, /* dd 1 9064 */+ {.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 M_rpush}, .src = "dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1)"}, /* dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1) 9072 */+ {.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 Here, {.p 9072 }}, /* 9072 360 */- {.type There, {.p 360 }}, /* 9072 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) 9080 */+ {.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_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) 9088 */+ {.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 M_literal}, .src = "dd M_literal"}, /* dd M_literal 9096 */+ {.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 Absolute, {.p 0}}, /* dd 0 ; ( a n1 -- a n1 0) (R nr n1) 9104 */+ {.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 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) 9112 */+ {.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_literal}, .src = "dd M_literal"}, /* dd M_literal 9120 */+ {.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 Absolute, {.p 0}}, /* dd 0 ; ( a 0 n1 -- a 0 n1 0) (R nr n1) 9128 */+ {.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 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) 9136 */+ {.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 MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 9144 */+ {.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_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) 9152 */+ {.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 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) 9160 */+ {.type Absolute, {.p 1}}, /* dd 1 9160 */ {.type Here, {.p 9160 }}, /* 9160 360 */ {.type There, {.p 360 }}, /* 9160 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) 9168 */+ {.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 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) 9176 */+ {.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_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) 9184 */+ {.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_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) 9192 */+ {.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 FromDictionary, {.p C_digit}, .src = "dd C_digit"}, /* dd C_digit 9200 */+ {.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_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9208 */+ {.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 L_C_number_3}, .src = "dd L_C_number_3"}, /* dd L_C_number_3 9216 */+ {.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 FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9224 */+ {.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_jump}, .src = "dd M_jump"}, /* dd M_jump 9232 */+ {.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 FromDictionary, {.p L_C_number_4}, .src = "dd L_C_number_4"}, /* dd L_C_number_4 9240 */+ {.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 Here, {.p 9240 }}, /* 9240 360 */- {.type There, {.p 360 }}, /* 9240 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9248 */+ {.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_unloop}, .src = "dd M_unloop"}, /* dd M_unloop 9256 */+ {.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_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9264 */+ {.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_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9272 */+ {.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_drop}, .src = "dd M_drop"}, /* dd M_drop 9280 */+ {.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 C_false}, .src = "dd C_false"}, /* dd C_false 9288 */+ {.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 M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9296 */+ {.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 Here, {.p 9296 }}, /* 9296 360 */- {.type There, {.p 360 }}, /* 9296 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 9304 */+ {.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_2}, .src = "dd L_C_number_2"}, /* dd L_C_number_2 9312 */+ {.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_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9320 */+ {.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_drop}, .src = "dd M_drop"}, /* dd M_drop 9328 */+ {.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 C_nip}, .src = "dd C_nip"}, /* dd C_nip 9336 */+ {.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 FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9344 */+ {.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_multiply}, .src = "dd M_multiply"}, /* dd M_multiply 9352 */+ {.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 C_true}, .src = "dd C_true"}, /* dd C_true 9360 */+ {.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_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9368 */+ {.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 Here, {.p 9368 }}, /* 9368 360 */- {.type There, {.p 360 }}, /* 9368 360 */- {.type Header, {.hdr { 5, "abort", /* C_abort = 9384 */ colon }}}, /* CENTRY "abort" abort 5 h 9392 */+ {.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 MV_Abortvec}, .src = "dd MV_Abortvec"}, /* dd MV_Abortvec 9400 */+ {.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 M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9408 */- {.type Here, {.p 9408 }}, /* 9408 360 */- {.type There, {.p 360 }}, /* 9408 360 */- {.type FromDictionary, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 9416 */- {.type Here, {.p 9416 }}, /* 9416 360 */- {.type There, {.p 360 }}, /* 9416 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9424 */- {.type Here, {.p 9424 }}, /* 9424 360 */- {.type There, {.p 360 }}, /* 9424 360 */- {.type Here, {.p 9424 }}, /* 9424 360 */- {.type There, {.p 360 }}, /* 9424 360 */- {.type Header, {.hdr { 15, "bufferfilename!", /* C_bufferfilename_store = 9448 */ colon }}}, /* CENTRY "bufferfilename!" bufferfilename_store 15 ; ( 'text index -- ) store label h 9456 */- {.type Here, {.p 9456 }}, /* 9456 360 */- {.type There, {.p 360 }}, /* 9456 360 */- {.type Here, {.p 9456 }}, /* 9456 360 */- {.type There, {.p 360 }}, /* 9456 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 9464 */- {.type Here, {.p 9464 }}, /* 9464 360 */- {.type There, {.p 360 }}, /* 9464 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 9472 */- {.type Here, {.p 9472 }}, /* 9472 360 */- {.type There, {.p 360 }}, /* 9472 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9480 */- {.type Here, {.p 9480 }}, /* 9480 360 */- {.type There, {.p 360 }}, /* 9480 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9488 */- {.type Here, {.p 9488 }}, /* 9488 360 */- {.type There, {.p 360 }}, /* 9488 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9496 */- {.type Here, {.p 9496 }}, /* 9496 360 */- {.type There, {.p 360 }}, /* 9496 360 */- {.type Here, {.p 9496 }}, /* 9496 360 */- {.type There, {.p 360 }}, /* 9496 360 */- {.type Header, {.hdr { 7, ">word", /* C_toword = 9512 */ colon }}}, /* CENTRY ">word" toword 7 ; ( 'Bufferfds -- 'Wordfd ) h 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 FromDictionary, {.p MC_WORDNUM}, .src = "dd MC_WORDNUM"}, /* dd MC_WORDNUM 9528 */- {.type Here, {.p 9528 }}, /* 9528 360 */- {.type There, {.p 360 }}, /* 9528 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 9536 */- {.type Here, {.p 9536 }}, /* 9536 360 */- {.type There, {.p 360 }}, /* 9536 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9544 */- {.type Here, {.p 9544 }}, /* 9544 360 */- {.type There, {.p 360 }}, /* 9544 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 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 Header, {.hdr { 7, "wordfd@", /* C_wordfd_fetch = 9568 */ colon }}}, /* CENTRY "wordfd@" wordfd_fetch 7 h 9576 */- {.type Here, {.p 9576 }}, /* 9576 360 */- {.type There, {.p 360 }}, /* 9576 360 */- {.type Here, {.p 9576 }}, /* 9576 360 */- {.type There, {.p 360 }}, /* 9576 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 9584 */- {.type Here, {.p 9584 }}, /* 9584 360 */- {.type There, {.p 360 }}, /* 9584 360 */- {.type FromDictionary, {.p C_toword}, .src = "dd C_toword"}, /* dd C_toword 9592 */- {.type Here, {.p 9592 }}, /* 9592 360 */- {.type There, {.p 360 }}, /* 9592 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9600 */- {.type Here, {.p 9600 }}, /* 9600 360 */- {.type There, {.p 360 }}, /* 9600 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9608 */- {.type Here, {.p 9608 }}, /* 9608 360 */- {.type There, {.p 360 }}, /* 9608 360 */- {.type Here, {.p 9608 }}, /* 9608 360 */- {.type There, {.p 360 }}, /* 9608 360 */- {.type Header, {.hdr { 7, "wordfd!", /* C_wordfd_store = 9624 */ colon }}}, /* CENTRY "wordfd!" wordfd_store 7 h 9632 */- {.type Here, {.p 9632 }}, /* 9632 360 */- {.type There, {.p 360 }}, /* 9632 360 */- {.type Here, {.p 9632 }}, /* 9632 360 */- {.type There, {.p 360 }}, /* 9632 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 9640 */- {.type Here, {.p 9640 }}, /* 9640 360 */- {.type There, {.p 360 }}, /* 9640 360 */- {.type FromDictionary, {.p C_toword}, .src = "dd C_toword"}, /* dd C_toword 9648 */+ {.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 */@@ -3481,91 +3487,91 @@
{.type There, {.p 360 }}, /* 9664 360 */ {.type Here, {.p 9664 }}, /* 9664 360 */ {.type There, {.p 360 }}, /* 9664 360 */- {.type Header, {.hdr { 13, "wordfilename@", /* C_wordfilename_fetch = 9688 */ colon }}}, /* CENTRY "wordfilename@" wordfilename_fetch 13 h 9696 */+ {.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 Here, {.p 9696 }}, /* 9696 360 */- {.type There, {.p 360 }}, /* 9696 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 9704 */+ {.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 C_toword}, .src = "dd C_toword"}, /* dd C_toword 9712 */+ {.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_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9720 */+ {.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 FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9728 */- {.type Here, {.p 9728 }}, /* 9728 360 */- {.type There, {.p 360 }}, /* 9728 360 */- {.type Here, {.p 9728 }}, /* 9728 360 */- {.type There, {.p 360 }}, /* 9728 360 */- {.type Header, {.hdr { 13, "wordfilename!", /* C_wordfilename_store = 9752 */ colon }}}, /* CENTRY "wordfilename!" wordfilename_store 13 h 9760 */+ {.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 Here, {.p 9760 }}, /* 9760 360 */- {.type There, {.p 360 }}, /* 9760 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 9768 */+ {.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 C_toword}, .src = "dd C_toword"}, /* dd C_toword 9776 */+ {.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 FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9784 */- {.type Here, {.p 9784 }}, /* 9784 360 */- {.type There, {.p 360 }}, /* 9784 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9792 */- {.type Here, {.p 9792 }}, /* 9792 360 */- {.type There, {.p 360 }}, /* 9792 360 */- {.type Here, {.p 9792 }}, /* 9792 360 */- {.type There, {.p 360 }}, /* 9792 360 */- {.type Header, {.hdr { 7, ">line", /* C_toline = 9808 */ colon }}}, /* CENTRY ">line" toline 7 ; ( 'Bufferfds -- 'Wordfd ) h 9816 */+ {.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 Here, {.p 9816 }}, /* 9816 360 */- {.type There, {.p 360 }}, /* 9816 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 9824 */+ {.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 C_cells}, .src = "dd C_cells"}, /* dd C_cells 9832 */+ {.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 FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9840 */- {.type Here, {.p 9840 }}, /* 9840 360 */- {.type There, {.p 360 }}, /* 9840 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9848 */- {.type Here, {.p 9848 }}, /* 9848 360 */- {.type There, {.p 360 }}, /* 9848 360 */- {.type Here, {.p 9848 }}, /* 9848 360 */- {.type There, {.p 360 }}, /* 9848 360 */- {.type Header, {.hdr { 7, "linefd@", /* C_linefd_fetch = 9864 */ colon }}}, /* CENTRY "linefd@" linefd_fetch 7 h 9872 */+ {.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 Here, {.p 9872 }}, /* 9872 360 */- {.type There, {.p 360 }}, /* 9872 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 9880 */+ {.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 C_toline}, .src = "dd C_toline"}, /* dd C_toline 9888 */+ {.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_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9896 */+ {.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 FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9904 */- {.type Here, {.p 9904 }}, /* 9904 360 */- {.type There, {.p 360 }}, /* 9904 360 */- {.type Here, {.p 9904 }}, /* 9904 360 */- {.type There, {.p 360 }}, /* 9904 360 */- {.type Header, {.hdr { 7, "linefd!", /* C_linefd_store = 9920 */ colon }}}, /* CENTRY "linefd!" linefd_store 7 h 9928 */+ {.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_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 9936 */+ {.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_toline}, .src = "dd C_toline"}, /* dd C_toline 9944 */+ {.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 */@@ -3576,337 +3582,325 @@
{.type There, {.p 360 }}, /* 9960 360 */ {.type Here, {.p 9960 }}, /* 9960 360 */ {.type There, {.p 360 }}, /* 9960 360 */- {.type Header, {.hdr { 13, "linefilename@", /* C_linefilename_fetch = 9984 */ colon }}}, /* CENTRY "linefilename@" linefilename_fetch 13 h 9992 */+ {.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 Here, {.p 9992 }}, /* 9992 360 */- {.type There, {.p 360 }}, /* 9992 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10000 */+ {.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 C_toline}, .src = "dd C_toline"}, /* dd C_toline 10008 */+ {.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_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10016 */+ {.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 FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10024 */- {.type Here, {.p 10024 }}, /* 10024 360 */- {.type There, {.p 360 }}, /* 10024 360 */- {.type Here, {.p 10024 }}, /* 10024 360 */- {.type There, {.p 360 }}, /* 10024 360 */- {.type Header, {.hdr { 13, "linefilename!", /* C_linefilename_store = 10048 */ colon }}}, /* CENTRY "linefilename!" linefilename_store 13 h 10056 */+ {.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 Here, {.p 10056 }}, /* 10056 360 */- {.type There, {.p 360 }}, /* 10056 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10064 */+ {.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 C_toline}, .src = "dd C_toline"}, /* dd C_toline 10072 */+ {.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 FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10080 */- {.type Here, {.p 10080 }}, /* 10080 360 */- {.type There, {.p 360 }}, /* 10080 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10088 */- {.type Here, {.p 10088 }}, /* 10088 360 */- {.type There, {.p 360 }}, /* 10088 360 */- {.type Here, {.p 10088 }}, /* 10088 360 */- {.type There, {.p 360 }}, /* 10088 360 */- {.type Header, {.hdr { 12, ">doublequote", /* C_todoublequote = 10112 */ colon }}}, /* CENTRY ">doublequote" todoublequote 12 ; ( 'Bufferfds -- 'Doublequotefd ) h 10120 */- {.type Here, {.p 10120 }}, /* 10120 360 */- {.type There, {.p 360 }}, /* 10120 360 */- {.type Here, {.p 10120 }}, /* 10120 360 */- {.type There, {.p 360 }}, /* 10120 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 10128 */- {.type Here, {.p 10128 }}, /* 10128 360 */- {.type There, {.p 360 }}, /* 10128 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 10136 */- {.type Here, {.p 10136 }}, /* 10136 360 */- {.type There, {.p 360 }}, /* 10136 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 10144 */- {.type Here, {.p 10144 }}, /* 10144 360 */- {.type There, {.p 360 }}, /* 10144 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10152 */- {.type Here, {.p 10152 }}, /* 10152 360 */- {.type There, {.p 360 }}, /* 10152 360 */- {.type Here, {.p 10152 }}, /* 10152 360 */- {.type There, {.p 360 }}, /* 10152 360 */- {.type Header, {.hdr { 14, "doublequotefd@", /* C_doublequotefd_fetch = 10176 */ colon }}}, /* CENTRY "doublequotefd@" doublequotefd_fetch 14 h 10184 */- {.type Here, {.p 10184 }}, /* 10184 360 */- {.type There, {.p 360 }}, /* 10184 360 */- {.type Here, {.p 10184 }}, /* 10184 360 */- {.type There, {.p 360 }}, /* 10184 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10192 */- {.type Here, {.p 10192 }}, /* 10192 360 */- {.type There, {.p 360 }}, /* 10192 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10200 */- {.type Here, {.p 10200 }}, /* 10200 360 */- {.type There, {.p 360 }}, /* 10200 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10208 */- {.type Here, {.p 10208 }}, /* 10208 360 */- {.type There, {.p 360 }}, /* 10208 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10216 */- {.type Here, {.p 10216 }}, /* 10216 360 */- {.type There, {.p 360 }}, /* 10216 360 */- {.type Here, {.p 10216 }}, /* 10216 360 */- {.type There, {.p 360 }}, /* 10216 360 */- {.type Header, {.hdr { 14, "doublequotefd!", /* C_doublequotefd_store = 10240 */ colon }}}, /* CENTRY "doublequotefd!" doublequotefd_store 14 h 10248 */- {.type Here, {.p 10248 }}, /* 10248 360 */- {.type There, {.p 360 }}, /* 10248 360 */- {.type Here, {.p 10248 }}, /* 10248 360 */- {.type There, {.p 360 }}, /* 10248 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10256 */- {.type Here, {.p 10256 }}, /* 10256 360 */- {.type There, {.p 360 }}, /* 10256 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10264 */- {.type Here, {.p 10264 }}, /* 10264 360 */- {.type There, {.p 360 }}, /* 10264 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10272 */- {.type Here, {.p 10272 }}, /* 10272 360 */- {.type There, {.p 360 }}, /* 10272 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10280 */- {.type Here, {.p 10280 }}, /* 10280 360 */- {.type There, {.p 360 }}, /* 10280 360 */- {.type Here, {.p 10280 }}, /* 10280 360 */- {.type There, {.p 360 }}, /* 10280 360 */- {.type Header, {.hdr { 20, "doublequotefilename@", /* C_doublequotefilename_fetch = 10312 */ colon }}}, /* CENTRY "doublequotefilename@" doublequotefilename_fetch 20 h 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 FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10328 */- {.type Here, {.p 10328 }}, /* 10328 360 */- {.type There, {.p 360 }}, /* 10328 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10336 */- {.type Here, {.p 10336 }}, /* 10336 360 */- {.type There, {.p 360 }}, /* 10336 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10344 */- {.type Here, {.p 10344 }}, /* 10344 360 */- {.type There, {.p 360 }}, /* 10344 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 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 Header, {.hdr { 20, "doublequotefilename!", /* C_doublequotefilename_store = 10384 */ colon }}}, /* CENTRY "doublequotefilename!" doublequotefilename_store 20 h 10392 */- {.type Here, {.p 10392 }}, /* 10392 360 */- {.type There, {.p 360 }}, /* 10392 360 */- {.type Here, {.p 10392 }}, /* 10392 360 */- {.type There, {.p 360 }}, /* 10392 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10400 */- {.type Here, {.p 10400 }}, /* 10400 360 */- {.type There, {.p 360 }}, /* 10400 360 */- {.type FromDictionary, {.p C_todoublequote}, .src = "dd C_todoublequote"}, /* dd C_todoublequote 10408 */- {.type Here, {.p 10408 }}, /* 10408 360 */- {.type There, {.p 360 }}, /* 10408 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10416 */- {.type Here, {.p 10416 }}, /* 10416 360 */- {.type There, {.p 360 }}, /* 10416 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10424 */- {.type Here, {.p 10424 }}, /* 10424 360 */- {.type There, {.p 360 }}, /* 10424 360 */- {.type Here, {.p 10424 }}, /* 10424 360 */- {.type There, {.p 360 }}, /* 10424 360 */- {.type Header, {.hdr { 11, ">closeparen", /* C_tocloseparen = 10448 */ colon }}}, /* CENTRY ">closeparen" tocloseparen 11 ; ( 'Bufferfds -- 'Closeparenfd ) h 10456 */- {.type Here, {.p 10456 }}, /* 10456 360 */- {.type There, {.p 360 }}, /* 10456 360 */- {.type Here, {.p 10456 }}, /* 10456 360 */- {.type There, {.p 360 }}, /* 10456 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 10464 */- {.type Here, {.p 10464 }}, /* 10464 360 */- {.type There, {.p 360 }}, /* 10464 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 10472 */- {.type Here, {.p 10472 }}, /* 10472 360 */- {.type There, {.p 360 }}, /* 10472 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 10480 */- {.type Here, {.p 10480 }}, /* 10480 360 */- {.type There, {.p 360 }}, /* 10480 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10488 */+ {.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 Header, {.hdr { 13, "closeparenfd@", /* C_closeparenfd_fetch = 10512 */ colon }}}, /* CENTRY "closeparenfd@" closeparenfd_fetch 13 h 10520 */+ {.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 FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10528 */- {.type Here, {.p 10528 }}, /* 10528 360 */- {.type There, {.p 360 }}, /* 10528 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10536 */- {.type Here, {.p 10536 }}, /* 10536 360 */- {.type There, {.p 360 }}, /* 10536 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10544 */- {.type Here, {.p 10544 }}, /* 10544 360 */- {.type There, {.p 360 }}, /* 10544 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10552 */- {.type Here, {.p 10552 }}, /* 10552 360 */- {.type There, {.p 360 }}, /* 10552 360 */- {.type Here, {.p 10552 }}, /* 10552 360 */- {.type There, {.p 360 }}, /* 10552 360 */- {.type Header, {.hdr { 13, "closeparenfd!", /* C_closeparenfd_store = 10576 */ colon }}}, /* CENTRY "closeparenfd!" closeparenfd_store 13 h 10584 */- {.type Here, {.p 10584 }}, /* 10584 360 */- {.type There, {.p 360 }}, /* 10584 360 */- {.type Here, {.p 10584 }}, /* 10584 360 */- {.type There, {.p 360 }}, /* 10584 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10592 */- {.type Here, {.p 10592 }}, /* 10592 360 */- {.type There, {.p 360 }}, /* 10592 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10600 */- {.type Here, {.p 10600 }}, /* 10600 360 */- {.type There, {.p 360 }}, /* 10600 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10608 */- {.type Here, {.p 10608 }}, /* 10608 360 */- {.type There, {.p 360 }}, /* 10608 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10616 */- {.type Here, {.p 10616 }}, /* 10616 360 */- {.type There, {.p 360 }}, /* 10616 360 */- {.type Here, {.p 10616 }}, /* 10616 360 */- {.type There, {.p 360 }}, /* 10616 360 */- {.type Header, {.hdr { 19, "closeparenfilename@", /* C_closeparenfilename_fetch = 10648 */ colon }}}, /* CENTRY "closeparenfilename@" closeparenfilename_fetch 19 h 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 FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10664 */- {.type Here, {.p 10664 }}, /* 10664 360 */- {.type There, {.p 360 }}, /* 10664 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10672 */- {.type Here, {.p 10672 }}, /* 10672 360 */- {.type There, {.p 360 }}, /* 10672 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10680 */- {.type Here, {.p 10680 }}, /* 10680 360 */- {.type There, {.p 360 }}, /* 10680 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 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 Header, {.hdr { 19, "closeparenfilename!", /* C_closeparenfilename_store = 10720 */ colon }}}, /* CENTRY "closeparenfilename!" closeparenfilename_store 19 h 10728 */- {.type Here, {.p 10728 }}, /* 10728 360 */- {.type There, {.p 360 }}, /* 10728 360 */- {.type Here, {.p 10728 }}, /* 10728 360 */- {.type There, {.p 360 }}, /* 10728 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 10736 */- {.type Here, {.p 10736 }}, /* 10736 360 */- {.type There, {.p 360 }}, /* 10736 360 */- {.type FromDictionary, {.p C_tocloseparen}, .src = "dd C_tocloseparen"}, /* dd C_tocloseparen 10744 */- {.type Here, {.p 10744 }}, /* 10744 360 */- {.type There, {.p 360 }}, /* 10744 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10752 */- {.type Here, {.p 10752 }}, /* 10752 360 */- {.type There, {.p 360 }}, /* 10752 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10760 */- {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */- {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */-/* ; stdinput : set all buffer fd's to -1, Infd = stdin */ {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */-/* ; args : set all buffer fd's to -1, Infd = #p/<pid>/args */ {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */-/* ; input@ : buffer fds and Infd -> stack */ {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */-/* ; input! : stack -> buffer fds and Infd */ {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */-/* ; -input : close all buffer fds and Infd, set buffer fds to -1 */ {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */-/* ; buffer file names are setup in boot */ {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */- {.type Here, {.p 10760 }}, /* 10760 360 */- {.type There, {.p 360 }}, /* 10760 360 */- {.type Header, {.hdr { 8, "stdinput", /* C_stdinput = 10784 */ colon }}}, /* CENTRY "stdinput" stdinput 8 ; stream input from stdin into Text input buffer h 10792 */- {.type Here, {.p 10792 }}, /* 10792 360 */- {.type There, {.p 360 }}, /* 10792 360 */- {.type Here, {.p 10792 }}, /* 10792 360 */- {.type There, {.p 360 }}, /* 10792 360 */- {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 10800 */- {.type Here, {.p 10800 }}, /* 10800 360 */- {.type There, {.p 360 }}, /* 10800 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 10808 */- {.type Here, {.p 10808 }}, /* 10808 360 */- {.type There, {.p 360 }}, /* 10808 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 10816 */- {.type Here, {.p 10816 }}, /* 10816 360 */- {.type There, {.p 360 }}, /* 10816 360 */- {.type Here, {.p 10816 }}, /* 10816 360 */- {.type There, {.p 360 }}, /* 10816 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 10824 */- {.type Here, {.p 10824 }}, /* 10824 360 */- {.type There, {.p 360 }}, /* 10824 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 10832 */- {.type Here, {.p 10832 }}, /* 10832 360 */- {.type There, {.p 360 }}, /* 10832 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10840 */- {.type Here, {.p 10840 }}, /* 10840 360 */- {.type There, {.p 360 }}, /* 10840 360 */- {.type Absolute, {.p 0}}, /* dd 0 10848 */+ {.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_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 10856 */+ {.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 Here, {.p 10856 }}, /* 10856 360 */- {.type There, {.p 360 }}, /* 10856 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10864 */- {.type Here, {.p 10864 }}, /* 10864 360 */- {.type There, {.p 360 }}, /* 10864 360 */- {.type Absolute, {.p 1}}, /* dd 1 10872 */- {.type Here, {.p 10872 }}, /* 10872 360 */- {.type There, {.p 360 }}, /* 10872 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 10880 */- {.type Here, {.p 10880 }}, /* 10880 360 */- {.type There, {.p 360 }}, /* 10880 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 10888 */- {.type Here, {.p 10888 }}, /* 10888 360 */- {.type There, {.p 360 }}, /* 10888 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 10896 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10904 */+ {.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 Absolute, {.p -1}}, /* dd -1 10912 */+ {.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_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 10920 */+ {.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_store}, .src = "dd M_store"}, /* dd M_store 10928 */+ {.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 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 10936 */- {.type Here, {.p 10936 }}, /* 10936 360 */- {.type There, {.p 360 }}, /* 10936 360 */- {.type FromDictionary, {.p L_C_stdinput}, .src = "dd L_C_stdinput"}, /* dd L_C_stdinput 10944 */- {.type Here, {.p 10944 }}, /* 10944 360 */- {.type There, {.p 360 }}, /* 10944 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 10952 */- {.type Here, {.p 10952 }}, /* 10952 360 */- {.type There, {.p 360 }}, /* 10952 360 */- {.type Here, {.p 10952 }}, /* 10952 360 */- {.type There, {.p 360 }}, /* 10952 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10960 */+/* ; 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 Header, {.hdr { 4, "args", /* C_args = 10976 */ colon }}}, /* CENTRY "args" args 4 ; stream input from #p/<pid>/args into Text input buffer h 10984 */+ {.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_Argsfilename}, .src = "dd MV_Argsfilename ; ( 'args_filename_counted_string ) filled by the starter"}, /* dd MV_Argsfilename ; ( 'args_filename_counted_string ) filled by the starter 10992 */+ {.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 M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 11000 */+ {.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 */@@ -3915,1035 +3909,1057 @@
{.type Absolute, {.p 0}}, /* dd 0 11016 */ {.type Here, {.p 11016 }}, /* 11016 360 */ {.type There, {.p 360 }}, /* 11016 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 11024 */+ {.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 FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11032 */+ {.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 FromDictionary, {.p L_C_args_read}, .src = "dd L_C_args_read"}, /* dd L_C_args_read 11040 */+ {.type Absolute, {.p 1}}, /* dd 1 11040 */ {.type Here, {.p 11040 }}, /* 11040 360 */ {.type There, {.p 360 }}, /* 11040 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11048 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11048 */ {.type Here, {.p 11048 }}, /* 11048 360 */ {.type There, {.p 360 }}, /* 11048 360 */- {.type Here, {.p 11048 }}, /* 11048 360 */- {.type There, {.p 360 }}, /* 11048 360 */- {.type Here, {.p 11048 }}, /* 11048 360 */- {.type There, {.p 360 }}, /* 11048 360 */- {.type FromDictionary, {.p MV_Argsfilename}, .src = "dd MV_Argsfilename"}, /* dd MV_Argsfilename 11056 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11056 */ {.type Here, {.p 11056 }}, /* 11056 360 */ {.type There, {.p 360 }}, /* 11056 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 11064 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 11064 */ {.type Here, {.p 11064 }}, /* 11064 360 */ {.type There, {.p 360 }}, /* 11064 360 */- {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 11072 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11072 */ {.type Here, {.p 11072 }}, /* 11072 360 */ {.type There, {.p 360 }}, /* 11072 360 */- {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 11080 */+ {.type Absolute, {.p -1}}, /* dd -1 11080 */ {.type Here, {.p 11080 }}, /* 11080 360 */ {.type There, {.p 360 }}, /* 11080 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11088 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 11088 */ {.type Here, {.p 11088 }}, /* 11088 360 */ {.type There, {.p 360 }}, /* 11088 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11096 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11096 */ {.type Here, {.p 11096 }}, /* 11096 360 */ {.type There, {.p 360 }}, /* 11096 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11104 */+ {.type Here, {.p 11096 }}, /* 11096 360 */+ {.type There, {.p 360 }}, /* 11096 360 */+ {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11104 */ {.type Here, {.p 11104 }}, /* 11104 360 */ {.type There, {.p 360 }}, /* 11104 360 */- {.type Here, {.p 11104 }}, /* 11104 360 */- {.type There, {.p 360 }}, /* 11104 360 */- {.type FromDictionary, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 11112 */+ {.type FromDictionary, {.p L_C_stdinput}, .src = "dd L_C_stdinput"}, /* dd L_C_stdinput 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 FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 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 { 6, "input@", /* C_input_fetch = 11136 */ 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 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_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11152 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11128 */+ {.type Here, {.p 11128 }}, /* 11128 360 */+ {.type There, {.p 360 }}, /* 11128 360 */+ {.type Here, {.p 11128 }}, /* 11128 360 */+ {.type There, {.p 360 }}, /* 11128 360 */+ {.type Header, {.hdr { 4, "args", /* C_args = 11144 */ colon }}}, /* CENTRY "args" args 4 ; stream input from #p/<pid>/args into Text input buffer h 11152 */ {.type Here, {.p 11152 }}, /* 11152 360 */ {.type There, {.p 360 }}, /* 11152 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11160 */+ {.type Here, {.p 11152 }}, /* 11152 360 */+ {.type There, {.p 360 }}, /* 11152 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 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 FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 11168 */ {.type Here, {.p 11168 }}, /* 11168 360 */ {.type There, {.p 360 }}, /* 11168 360 */- {.type Absolute, {.p 0}}, /* dd 0 11176 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11176 */ {.type Here, {.p 11176 }}, /* 11176 360 */ {.type There, {.p 360 }}, /* 11176 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11184 */+ {.type Absolute, {.p 0}}, /* dd 0 11184 */ {.type Here, {.p 11184 }}, /* 11184 360 */ {.type There, {.p 360 }}, /* 11184 360 */- {.type Here, {.p 11184 }}, /* 11184 360 */- {.type There, {.p 360 }}, /* 11184 360 */- {.type Here, {.p 11184 }}, /* 11184 360 */- {.type There, {.p 360 }}, /* 11184 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11192 */+ {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 11192 */ {.type Here, {.p 11192 }}, /* 11192 360 */ {.type There, {.p 360 }}, /* 11192 360 */- {.type Absolute, {.p 1}}, /* dd 1 11200 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11200 */ {.type Here, {.p 11200 }}, /* 11200 360 */ {.type There, {.p 360 }}, /* 11200 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11208 */+ {.type FromDictionary, {.p L_C_args_read}, .src = "dd L_C_args_read"}, /* dd L_C_args_read 11208 */ {.type Here, {.p 11208 }}, /* 11208 360 */ {.type There, {.p 360 }}, /* 11208 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11216 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11216 */ {.type Here, {.p 11216 }}, /* 11216 360 */ {.type There, {.p 360 }}, /* 11216 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 11224 */+ {.type Here, {.p 11216 }}, /* 11216 360 */+ {.type There, {.p 360 }}, /* 11216 360 */+ {.type Here, {.p 11216 }}, /* 11216 360 */+ {.type There, {.p 360 }}, /* 11216 360 */+ {.type FromDictionary, {.p MV_Argsfilename}, .src = "dd MV_Argsfilename"}, /* dd MV_Argsfilename 11224 */ {.type Here, {.p 11224 }}, /* 11224 360 */ {.type There, {.p 360 }}, /* 11224 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11232 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 11232 */ {.type Here, {.p 11232 }}, /* 11232 360 */ {.type There, {.p 360 }}, /* 11232 360 */- {.type Here, {.p 11232 }}, /* 11232 360 */- {.type There, {.p 360 }}, /* 11232 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11240 */+ {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 11240 */ {.type Here, {.p 11240 }}, /* 11240 360 */ {.type There, {.p 360 }}, /* 11240 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11248 */+ {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 11248 */ {.type Here, {.p 11248 }}, /* 11248 360 */ {.type There, {.p 360 }}, /* 11248 360 */- {.type Absolute, {.p -1}}, /* dd -1 11256 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11256 */ {.type Here, {.p 11256 }}, /* 11256 360 */ {.type There, {.p 360 }}, /* 11256 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Bufferfd -1 'Bufferfd )"}, /* dd M_xswap ; ( 'Bufferfd -1 'Bufferfd ) 11264 */+ {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11264 */ {.type Here, {.p 11264 }}, /* 11264 360 */ {.type There, {.p 360 }}, /* 11264 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( 'Bufferfd )"}, /* dd M_store ; ( 'Bufferfd ) 11272 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11272 */ {.type Here, {.p 11272 }}, /* 11272 360 */ {.type There, {.p 360 }}, /* 11272 360 */ {.type Here, {.p 11272 }}, /* 11272 360 */ {.type There, {.p 360 }}, /* 11272 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11280 */+ {.type FromDictionary, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 11280 */ {.type Here, {.p 11280 }}, /* 11280 360 */ {.type There, {.p 360 }}, /* 11280 360 */- {.type FromDictionary, {.p L_C_input_fetch}, .src = "dd L_C_input_fetch"}, /* dd L_C_input_fetch 11288 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11288 */ {.type Here, {.p 11288 }}, /* 11288 360 */ {.type There, {.p 360 }}, /* 11288 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11296 */- {.type Here, {.p 11296 }}, /* 11296 360 */- {.type There, {.p 360 }}, /* 11296 360 */- {.type Here, {.p 11296 }}, /* 11296 360 */- {.type There, {.p 360 }}, /* 11296 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11304 */- {.type Here, {.p 11304 }}, /* 11304 360 */- {.type There, {.p 360 }}, /* 11304 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11312 */+ {.type Here, {.p 11288 }}, /* 11288 360 */+ {.type There, {.p 360 }}, /* 11288 360 */+ {.type Header, {.hdr { 6, "input@", /* C_input_fetch = 11304 */ 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 11312 */ {.type Here, {.p 11312 }}, /* 11312 360 */ {.type There, {.p 360 }}, /* 11312 360 */ {.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 FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 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 FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11328 */ {.type Here, {.p 11328 }}, /* 11328 360 */ {.type There, {.p 360 }}, /* 11328 360 */- {.type Absolute, {.p 1}}, /* dd 1 11336 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11336 */ {.type Here, {.p 11336 }}, /* 11336 360 */ {.type There, {.p 360 }}, /* 11336 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11344 */+ {.type Absolute, {.p 0}}, /* dd 0 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 FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11352 */+ {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11352 */ {.type Here, {.p 11352 }}, /* 11352 360 */ {.type There, {.p 360 }}, /* 11352 360 */ {.type Here, {.p 11352 }}, /* 11352 360 */ {.type There, {.p 360 }}, /* 11352 360 */- {.type Header, {.hdr { 6, "input!", /* C_input_store = 11368 */ colon }}}, /* CENTRY "input!" input_store 6 ; ( <input>|empty -- ) ; restore input stream from the stack or stdinput h 11376 */+ {.type Here, {.p 11352 }}, /* 11352 360 */+ {.type There, {.p 360 }}, /* 11352 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11360 */+ {.type Here, {.p 11360 }}, /* 11360 360 */+ {.type There, {.p 360 }}, /* 11360 360 */+ {.type Absolute, {.p 1}}, /* dd 1 11368 */+ {.type Here, {.p 11368 }}, /* 11368 360 */+ {.type There, {.p 360 }}, /* 11368 360 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11376 */ {.type Here, {.p 11376 }}, /* 11376 360 */ {.type There, {.p 360 }}, /* 11376 360 */- {.type Here, {.p 11376 }}, /* 11376 360 */- {.type There, {.p 360 }}, /* 11376 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 11384 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11384 */ {.type Here, {.p 11384 }}, /* 11384 360 */ {.type There, {.p 360 }}, /* 11384 360 */- {.type Here, {.p 11384 }}, /* 11384 360 */- {.type There, {.p 360 }}, /* 11384 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11392 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 11392 */ {.type Here, {.p 11392 }}, /* 11392 360 */ {.type There, {.p 360 }}, /* 11392 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11400 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11400 */ {.type Here, {.p 11400 }}, /* 11400 360 */ {.type There, {.p 360 }}, /* 11400 360 */- {.type Absolute, {.p 1}}, /* dd 1 11408 */+ {.type Here, {.p 11400 }}, /* 11400 360 */+ {.type There, {.p 360 }}, /* 11400 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11408 */ {.type Here, {.p 11408 }}, /* 11408 360 */ {.type There, {.p 360 }}, /* 11408 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11416 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11416 */ {.type Here, {.p 11416 }}, /* 11416 360 */ {.type There, {.p 360 }}, /* 11416 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 11424 */+ {.type Absolute, {.p -1}}, /* dd -1 11424 */ {.type Here, {.p 11424 }}, /* 11424 360 */ {.type There, {.p 360 }}, /* 11424 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11432 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Bufferfd -1 'Bufferfd )"}, /* dd M_xswap ; ( 'Bufferfd -1 'Bufferfd ) 11432 */ {.type Here, {.p 11432 }}, /* 11432 360 */ {.type There, {.p 360 }}, /* 11432 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 11440 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( 'Bufferfd )"}, /* dd M_store ; ( 'Bufferfd ) 11440 */ {.type Here, {.p 11440 }}, /* 11440 360 */ {.type There, {.p 360 }}, /* 11440 360 */ {.type Here, {.p 11440 }}, /* 11440 360 */ {.type There, {.p 360 }}, /* 11440 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 11448 */+ {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11448 */ {.type Here, {.p 11448 }}, /* 11448 360 */ {.type There, {.p 360 }}, /* 11448 360 */- {.type Here, {.p 11448 }}, /* 11448 360 */- {.type There, {.p 360 }}, /* 11448 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11456 */+ {.type FromDictionary, {.p L_C_input_fetch}, .src = "dd L_C_input_fetch"}, /* dd L_C_input_fetch 11456 */ {.type Here, {.p 11456 }}, /* 11456 360 */ {.type There, {.p 360 }}, /* 11456 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11464 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11464 */ {.type Here, {.p 11464 }}, /* 11464 360 */ {.type There, {.p 360 }}, /* 11464 360 */ {.type Here, {.p 11464 }}, /* 11464 360 */ {.type There, {.p 360 }}, /* 11464 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11472 */+ {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11472 */ {.type Here, {.p 11472 }}, /* 11472 360 */ {.type There, {.p 360 }}, /* 11472 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11480 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11480 */ {.type Here, {.p 11480 }}, /* 11480 360 */ {.type There, {.p 360 }}, /* 11480 360 */- {.type Absolute, {.p 0}}, /* dd 0 11488 */+ {.type Here, {.p 11480 }}, /* 11480 360 */+ {.type There, {.p 360 }}, /* 11480 360 */+ {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11488 */ {.type Here, {.p 11488 }}, /* 11488 360 */ {.type There, {.p 360 }}, /* 11488 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11496 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11496 */ {.type Here, {.p 11496 }}, /* 11496 360 */ {.type There, {.p 360 }}, /* 11496 360 */- {.type Here, {.p 11496 }}, /* 11496 360 */- {.type There, {.p 360 }}, /* 11496 360 */- {.type Here, {.p 11496 }}, /* 11496 360 */- {.type There, {.p 360 }}, /* 11496 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11504 */+ {.type Absolute, {.p 1}}, /* dd 1 11504 */ {.type Here, {.p 11504 }}, /* 11504 360 */ {.type There, {.p 360 }}, /* 11504 360 */- {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 11512 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11512 */ {.type Here, {.p 11512 }}, /* 11512 360 */ {.type There, {.p 360 }}, /* 11512 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11520 */+ {.type Here, {.p 11512 }}, /* 11512 360 */+ {.type There, {.p 360 }}, /* 11512 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11520 */ {.type Here, {.p 11520 }}, /* 11520 360 */ {.type There, {.p 360 }}, /* 11520 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11528 */- {.type Here, {.p 11528 }}, /* 11528 360 */- {.type There, {.p 360 }}, /* 11528 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 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_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11544 */+ {.type Here, {.p 11520 }}, /* 11520 360 */+ {.type There, {.p 360 }}, /* 11520 360 */+ {.type Header, {.hdr { 6, "input!", /* C_input_store = 11536 */ colon }}}, /* CENTRY "input!" input_store 6 ; ( <input>|empty -- ) ; restore input stream from the stack or stdinput h 11544 */ {.type Here, {.p 11544 }}, /* 11544 360 */ {.type There, {.p 360 }}, /* 11544 360 */- {.type FromDictionary, {.p L_C_input_store}, .src = "dd L_C_input_store"}, /* dd L_C_input_store 11552 */+ {.type Here, {.p 11544 }}, /* 11544 360 */+ {.type There, {.p 360 }}, /* 11544 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 11552 */ {.type Here, {.p 11552 }}, /* 11552 360 */ {.type There, {.p 360 }}, /* 11552 360 */ {.type Here, {.p 11552 }}, /* 11552 360 */ {.type There, {.p 360 }}, /* 11552 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11560 */+ {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11560 */ {.type Here, {.p 11560 }}, /* 11560 360 */ {.type There, {.p 360 }}, /* 11560 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; reset Eof back to 0"}, /* dd C_off ; reset Eof back to 0 11568 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11568 */ {.type Here, {.p 11568 }}, /* 11568 360 */ {.type There, {.p 360 }}, /* 11568 360 */- {.type Here, {.p 11568 }}, /* 11568 360 */- {.type There, {.p 360 }}, /* 11568 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true ; ( true )"}, /* dd C_true ; ( true ) 11576 */+ {.type Absolute, {.p 1}}, /* dd 1 11576 */ {.type Here, {.p 11576 }}, /* 11576 360 */ {.type There, {.p 360 }}, /* 11576 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11584 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11584 */ {.type Here, {.p 11584 }}, /* 11584 360 */ {.type There, {.p 360 }}, /* 11584 360 */- {.type Here, {.p 11584 }}, /* 11584 360 */- {.type There, {.p 360 }}, /* 11584 360 */- {.type Here, {.p 11584 }}, /* 11584 360 */- {.type There, {.p 360 }}, /* 11584 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 11592 */+ {.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 11592 */ {.type Here, {.p 11592 }}, /* 11592 360 */ {.type There, {.p 360 }}, /* 11592 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false ; ( 0 )"}, /* dd C_false ; ( 0 ) 11600 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11600 */ {.type Here, {.p 11600 }}, /* 11600 360 */ {.type There, {.p 360 }}, /* 11600 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11608 */+ {.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 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 */-/* ; closefds: close all buffer fds and Infd, set buffer fds and Infd to -1 */ {.type Here, {.p 11608 }}, /* 11608 360 */- {.type There, {.p 360 }}, /* 11608 360 */- {.type Header, {.hdr { 6, "-input", /* C_close_input = 11624 */ colon }}}, /* CENTRY "-input" close_input 6 ; ( <input>|empty -- ) ; restore input stream from the stack or stdinput h 11632 */+ {.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 11616 */+ {.type Here, {.p 11616 }}, /* 11616 360 */+ {.type There, {.p 360 }}, /* 11616 360 */+ {.type Here, {.p 11616 }}, /* 11616 360 */+ {.type There, {.p 360 }}, /* 11616 360 */+ {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 11624 */+ {.type Here, {.p 11624 }}, /* 11624 360 */+ {.type There, {.p 360 }}, /* 11624 360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11632 */ {.type Here, {.p 11632 }}, /* 11632 360 */ {.type There, {.p 360 }}, /* 11632 360 */ {.type Here, {.p 11632 }}, /* 11632 360 */ {.type There, {.p 360 }}, /* 11632 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11640 */+ {.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 MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11648 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11648 */ {.type Here, {.p 11648 }}, /* 11648 360 */ {.type There, {.p 360 }}, /* 11648 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11656 */+ {.type Absolute, {.p 0}}, /* dd 0 11656 */ {.type Here, {.p 11656 }}, /* 11656 360 */ {.type There, {.p 360 }}, /* 11656 360 */- {.type Absolute, {.p 0}}, /* dd 0 11664 */+ {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11664 */ {.type Here, {.p 11664 }}, /* 11664 360 */ {.type There, {.p 360 }}, /* 11664 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11672 */+ {.type Here, {.p 11664 }}, /* 11664 360 */+ {.type There, {.p 360 }}, /* 11664 360 */+ {.type Here, {.p 11664 }}, /* 11664 360 */+ {.type There, {.p 360 }}, /* 11664 360 */+ {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11672 */ {.type Here, {.p 11672 }}, /* 11672 360 */ {.type There, {.p 360 }}, /* 11672 360 */- {.type Here, {.p 11672 }}, /* 11672 360 */- {.type There, {.p 360 }}, /* 11672 360 */- {.type Here, {.p 11672 }}, /* 11672 360 */- {.type There, {.p 360 }}, /* 11672 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11680 */+ {.type FromDictionary, {.p M_i}, .src = "dd M_i"}, /* dd M_i 11680 */ {.type Here, {.p 11680 }}, /* 11680 360 */ {.type There, {.p 360 }}, /* 11680 360 */- {.type Absolute, {.p 1}}, /* dd 1 11688 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11688 */ {.type Here, {.p 11688 }}, /* 11688 360 */ {.type There, {.p 360 }}, /* 11688 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11696 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11696 */ {.type Here, {.p 11696 }}, /* 11696 360 */ {.type There, {.p 360 }}, /* 11696 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11704 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11704 */ {.type Here, {.p 11704 }}, /* 11704 360 */ {.type There, {.p 360 }}, /* 11704 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11712 */+ {.type Here, {.p 11704 }}, /* 11704 360 */+ {.type There, {.p 360 }}, /* 11704 360 */+ {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11712 */ {.type Here, {.p 11712 }}, /* 11712 360 */ {.type There, {.p 360 }}, /* 11712 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( 'Bufferfd fd )"}, /* dd M_fetch ; ( 'Bufferfd fd ) 11720 */+ {.type FromDictionary, {.p L_C_input_store}, .src = "dd L_C_input_store"}, /* dd L_C_input_store 11720 */ {.type Here, {.p 11720 }}, /* 11720 360 */ {.type There, {.p 360 }}, /* 11720 360 */- {.type FromDictionary, {.p C_close_file}, .src = "dd C_close_file ; ( 'Bufferfd ioresult )"}, /* dd C_close_file ; ( 'Bufferfd ioresult ) 11728 */+ {.type Here, {.p 11720 }}, /* 11720 360 */+ {.type There, {.p 360 }}, /* 11720 360 */+ {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11728 */ {.type Here, {.p 11728 }}, /* 11728 360 */ {.type There, {.p 360 }}, /* 11728 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( 'Bufferfd )"}, /* dd M_drop ; ( 'Bufferfd ) 11736 */+ {.type FromDictionary, {.p C_off}, .src = "dd C_off ; reset Eof back to 0"}, /* dd C_off ; reset Eof back to 0 11736 */ {.type Here, {.p 11736 }}, /* 11736 360 */ {.type There, {.p 360 }}, /* 11736 360 */ {.type Here, {.p 11736 }}, /* 11736 360 */ {.type There, {.p 360 }}, /* 11736 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11744 */+ {.type FromDictionary, {.p C_true}, .src = "dd C_true ; ( true )"}, /* dd C_true ; ( true ) 11744 */ {.type Here, {.p 11744 }}, /* 11744 360 */ {.type There, {.p 360 }}, /* 11744 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11752 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11752 */ {.type Here, {.p 11752 }}, /* 11752 360 */ {.type There, {.p 360 }}, /* 11752 360 */- {.type Absolute, {.p -1}}, /* dd -1 11760 */+ {.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 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 11760 */ {.type Here, {.p 11760 }}, /* 11760 360 */ {.type There, {.p 360 }}, /* 11760 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Bufferfd -1 'Bufferfd )"}, /* dd M_xswap ; ( 'Bufferfd -1 'Bufferfd ) 11768 */+ {.type FromDictionary, {.p C_false}, .src = "dd C_false ; ( 0 )"}, /* dd C_false ; ( 0 ) 11768 */ {.type Here, {.p 11768 }}, /* 11768 360 */ {.type There, {.p 360 }}, /* 11768 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( 'Bufferfd )"}, /* dd M_store ; ( 'Bufferfd ) 11776 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11776 */ {.type Here, {.p 11776 }}, /* 11776 360 */ {.type There, {.p 360 }}, /* 11776 360 */ {.type Here, {.p 11776 }}, /* 11776 360 */ {.type There, {.p 360 }}, /* 11776 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11784 */- {.type Here, {.p 11784 }}, /* 11784 360 */- {.type There, {.p 360 }}, /* 11784 360 */- {.type FromDictionary, {.p L_C_close_input}, .src = "dd L_C_close_input"}, /* dd L_C_close_input 11792 */- {.type Here, {.p 11792 }}, /* 11792 360 */- {.type There, {.p 360 }}, /* 11792 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11800 */+/* ; closefds: close all buffer fds and Infd, set buffer fds and Infd to -1 */ {.type Here, {.p 11776 }}, /* 11776 360 */+ {.type There, {.p 360 }}, /* 11776 360 */+ {.type Header, {.hdr { 6, "-input", /* C_close_input = 11792 */ colon }}}, /* CENTRY "-input" close_input 6 ; ( <input>|empty -- ) ; restore input stream from the stack or stdinput h 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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11808 */+ {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 11808 */ {.type Here, {.p 11808 }}, /* 11808 360 */ {.type There, {.p 360 }}, /* 11808 360 */- {.type Absolute, {.p -1}}, /* dd -1 11816 */+ {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 11816 */ {.type Here, {.p 11816 }}, /* 11816 360 */ {.type There, {.p 360 }}, /* 11816 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd ; ( -1 'Infd )"}, /* dd MV_Infd ; ( -1 'Infd ) 11824 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11824 */ {.type Here, {.p 11824 }}, /* 11824 360 */ {.type There, {.p 360 }}, /* 11824 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( -1 'Infd 'Infd )"}, /* dd M_dup ; ( -1 'Infd 'Infd ) 11832 */+ {.type Absolute, {.p 0}}, /* dd 0 11832 */ {.type Here, {.p 11832 }}, /* 11832 360 */ {.type There, {.p 360 }}, /* 11832 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( -1 'Infd fd )"}, /* dd M_fetch ; ( -1 'Infd fd ) 11840 */+ {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 11840 */ {.type Here, {.p 11840 }}, /* 11840 360 */ {.type There, {.p 360 }}, /* 11840 360 */- {.type FromDictionary, {.p C_close_file}, .src = "dd C_close_file ; ( -1 'Infd ioresult )"}, /* dd C_close_file ; ( -1 'Infd ioresult ) 11848 */+ {.type Here, {.p 11840 }}, /* 11840 360 */+ {.type There, {.p 360 }}, /* 11840 360 */+ {.type Here, {.p 11840 }}, /* 11840 360 */+ {.type There, {.p 360 }}, /* 11840 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11848 */ {.type Here, {.p 11848 }}, /* 11848 360 */ {.type There, {.p 360 }}, /* 11848 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( -1 'Infd )"}, /* dd M_drop ; ( -1 'Infd ) 11856 */+ {.type Absolute, {.p 1}}, /* dd 1 11856 */ {.type Here, {.p 11856 }}, /* 11856 360 */ {.type There, {.p 360 }}, /* 11856 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11864 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 11864 */ {.type Here, {.p 11864 }}, /* 11864 360 */ {.type There, {.p 360 }}, /* 11864 360 */- {.type Here, {.p 11864 }}, /* 11864 360 */- {.type There, {.p 360 }}, /* 11864 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11872 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11872 */ {.type Here, {.p 11872 }}, /* 11872 360 */ {.type There, {.p 360 }}, /* 11872 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; reset Eof back to 0"}, /* dd C_off ; reset Eof back to 0 11880 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11880 */ {.type Here, {.p 11880 }}, /* 11880 360 */ {.type There, {.p 360 }}, /* 11880 360 */- {.type Here, {.p 11880 }}, /* 11880 360 */- {.type There, {.p 360 }}, /* 11880 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11888 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( 'Bufferfd fd )"}, /* dd M_fetch ; ( 'Bufferfd fd ) 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 Header, {.hdr { 7, "-+input", /* C_restore_input = 11904 */ colon }}}, /* CENTRY "-+input" restore_input 7 ; ( <input> -- ) ; use the input stream on the stack or abort h 11912 */+ {.type FromDictionary, {.p C_close_file}, .src = "dd C_close_file ; ( 'Bufferfd ioresult )"}, /* dd C_close_file ; ( 'Bufferfd ioresult ) 11896 */+ {.type Here, {.p 11896 }}, /* 11896 360 */+ {.type There, {.p 360 }}, /* 11896 360 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( 'Bufferfd )"}, /* dd M_drop ; ( 'Bufferfd ) 11904 */+ {.type Here, {.p 11904 }}, /* 11904 360 */+ {.type There, {.p 360 }}, /* 11904 360 */+ {.type Here, {.p 11904 }}, /* 11904 360 */+ {.type There, {.p 360 }}, /* 11904 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Bufferfd 'Bufferfd )"}, /* dd M_dup ; ( 'Bufferfd 'Bufferfd ) 11912 */ {.type Here, {.p 11912 }}, /* 11912 360 */ {.type There, {.p 360 }}, /* 11912 360 */- {.type Here, {.p 11912 }}, /* 11912 360 */- {.type There, {.p 360 }}, /* 11912 360 */- {.type FromDictionary, {.p C_close_input}, .src = "dd C_close_input"}, /* dd C_close_input 11920 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11920 */ {.type Here, {.p 11920 }}, /* 11920 360 */ {.type There, {.p 360 }}, /* 11920 360 */- {.type Here, {.p 11920 }}, /* 11920 360 */- {.type There, {.p 360 }}, /* 11920 360 */- {.type FromDictionary, {.p C_input_store}, .src = "dd C_input_store"}, /* dd C_input_store 11928 */+ {.type Absolute, {.p -1}}, /* dd -1 11928 */ {.type Here, {.p 11928 }}, /* 11928 360 */ {.type There, {.p 360 }}, /* 11928 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 11936 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Bufferfd -1 'Bufferfd )"}, /* dd M_xswap ; ( 'Bufferfd -1 'Bufferfd ) 11936 */ {.type Here, {.p 11936 }}, /* 11936 360 */ {.type There, {.p 360 }}, /* 11936 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11944 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( 'Bufferfd )"}, /* dd M_store ; ( 'Bufferfd ) 11944 */ {.type Here, {.p 11944 }}, /* 11944 360 */ {.type There, {.p 360 }}, /* 11944 360 */- {.type FromDictionary, {.p L_restore_input}, .src = "dd L_restore_input ; input stream restored"}, /* dd L_restore_input ; input stream restored 11952 */+ {.type Here, {.p 11944 }}, /* 11944 360 */+ {.type There, {.p 360 }}, /* 11944 360 */+ {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 11952 */ {.type Here, {.p 11952 }}, /* 11952 360 */ {.type There, {.p 360 }}, /* 11952 360 */- {.type Here, {.p 11952 }}, /* 11952 360 */- {.type There, {.p 360 }}, /* 11952 360 */-/* ; no input stream on the stack to restore, show error and abort */ {.type Here, {.p 11952 }}, /* 11952 360 */- {.type There, {.p 360 }}, /* 11952 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 11960 */+ {.type FromDictionary, {.p L_C_close_input}, .src = "dd L_C_close_input"}, /* dd L_C_close_input 11960 */ {.type Here, {.p 11960 }}, /* 11960 360 */ {.type There, {.p 360 }}, /* 11960 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11968 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 11968 */ {.type Here, {.p 11968 }}, /* 11968 360 */ {.type There, {.p 360 }}, /* 11968 360 */- {.type FromDictionary, {.p L137}, .src = "dd L137"}, /* dd L137 11976 */+ {.type Here, {.p 11968 }}, /* 11968 360 */+ {.type There, {.p 360 }}, /* 11968 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11976 */ {.type Here, {.p 11976 }}, /* 11976 360 */ {.type There, {.p 360 }}, /* 11976 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 11984 */+ {.type Absolute, {.p -1}}, /* dd -1 11984 */ {.type Here, {.p 11984 }}, /* 11984 360 */ {.type There, {.p 360 }}, /* 11984 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 11992 */+ {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd ; ( -1 'Infd )"}, /* dd MV_Infd ; ( -1 'Infd ) 11992 */ {.type Here, {.p 11992 }}, /* 11992 360 */ {.type There, {.p 360 }}, /* 11992 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12000 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( -1 'Infd 'Infd )"}, /* dd M_dup ; ( -1 'Infd 'Infd ) 12000 */ {.type Here, {.p 12000 }}, /* 12000 360 */ {.type There, {.p 360 }}, /* 12000 360 */- {.type FromDictionary, {.p C_depth}, .src = "dd C_depth"}, /* dd C_depth 12008 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( -1 'Infd fd )"}, /* dd M_fetch ; ( -1 'Infd fd ) 12008 */ {.type Here, {.p 12008 }}, /* 12008 360 */ {.type There, {.p 360 }}, /* 12008 360 */- {.type FromDictionary, {.p C_dot}, .src = "dd C_dot"}, /* dd C_dot 12016 */+ {.type FromDictionary, {.p C_close_file}, .src = "dd C_close_file ; ( -1 'Infd ioresult )"}, /* dd C_close_file ; ( -1 'Infd ioresult ) 12016 */ {.type Here, {.p 12016 }}, /* 12016 360 */ {.type There, {.p 360 }}, /* 12016 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12024 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( -1 'Infd )"}, /* dd M_drop ; ( -1 'Infd ) 12024 */ {.type Here, {.p 12024 }}, /* 12024 360 */ {.type There, {.p 360 }}, /* 12024 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12032 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 12032 */ {.type Here, {.p 12032 }}, /* 12032 360 */ {.type There, {.p 360 }}, /* 12032 360 */ {.type Here, {.p 12032 }}, /* 12032 360 */ {.type There, {.p 360 }}, /* 12032 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12040 */+ {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 12040 */ {.type Here, {.p 12040 }}, /* 12040 360 */ {.type There, {.p 360 }}, /* 12040 360 */- {.type Here, {.p 12040 }}, /* 12040 360 */- {.type There, {.p 360 }}, /* 12040 360 */- {.type Header, {.hdr { 10, "buffername", /* C_buffername = 12064 */ colon }}}, /* CENTRY "buffername" buffername 10 ; ( index -- 'counted_string ) build the buffer fd's filename h 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 C_cells}, .src = "dd C_cells ; ( index*cellsize ) number of bytes"}, /* dd C_cells ; ( index*cellsize ) number of bytes 12080 */+ {.type FromDictionary, {.p C_off}, .src = "dd C_off ; reset Eof back to 0"}, /* dd C_off ; reset Eof back to 0 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_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12056 */+ {.type Here, {.p 12056 }}, /* 12056 360 */+ {.type There, {.p 360 }}, /* 12056 360 */+ {.type Here, {.p 12056 }}, /* 12056 360 */+ {.type There, {.p 360 }}, /* 12056 360 */+ {.type Header, {.hdr { 7, "-+input", /* C_restore_input = 12072 */ colon }}}, /* CENTRY "-+input" restore_input 7 ; ( <input> -- ) ; use the input stream on the stack or abort h 12080 */ {.type Here, {.p 12080 }}, /* 12080 360 */ {.type There, {.p 360 }}, /* 12080 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 12088 */+ {.type Here, {.p 12080 }}, /* 12080 360 */+ {.type There, {.p 360 }}, /* 12080 360 */+ {.type FromDictionary, {.p C_close_input}, .src = "dd C_close_input"}, /* dd C_close_input 12088 */ {.type Here, {.p 12088 }}, /* 12088 360 */ {.type There, {.p 360 }}, /* 12088 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( index*cellsize+'Bufferfilenames ) address of the filename's counted string"}, /* dd M_plus ; ( index*cellsize+'Bufferfilenames ) address of the filename's counted string 12096 */+ {.type Here, {.p 12088 }}, /* 12088 360 */+ {.type There, {.p 360 }}, /* 12088 360 */+ {.type FromDictionary, {.p C_input_store}, .src = "dd C_input_store"}, /* dd C_input_store 12096 */ {.type Here, {.p 12096 }}, /* 12096 360 */ {.type There, {.p 360 }}, /* 12096 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( 'filename_counted_string )"}, /* dd M_fetch ; ( 'filename_counted_string ) 12104 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 12104 */ {.type Here, {.p 12104 }}, /* 12104 360 */ {.type There, {.p 360 }}, /* 12104 360 */- {.type Here, {.p 12104 }}, /* 12104 360 */- {.type There, {.p 360 }}, /* 12104 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12112 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12112 */ {.type Here, {.p 12112 }}, /* 12112 360 */ {.type There, {.p 360 }}, /* 12112 360 */- {.type FromDictionary, {.p L120}, .src = "dd L120 ; address of the counted string 3#n/"}, /* dd L120 ; address of the counted string 3#n/ 12120 */+ {.type FromDictionary, {.p L_restore_input}, .src = "dd L_restore_input ; input stream restored"}, /* dd L_restore_input ; input stream restored 12120 */ {.type Here, {.p 12120 }}, /* 12120 360 */ {.type There, {.p 360 }}, /* 12120 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 12128 */+ {.type Here, {.p 12120 }}, /* 12120 360 */+ {.type There, {.p 360 }}, /* 12120 360 */+/* ; no input stream on the stack to restore, show error and abort */ {.type Here, {.p 12120 }}, /* 12120 360 */+ {.type There, {.p 360 }}, /* 12120 360 */+ {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12128 */ {.type Here, {.p 12128 }}, /* 12128 360 */ {.type There, {.p 360 }}, /* 12128 360 */ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12136 */ {.type Here, {.p 12136 }}, /* 12136 360 */ {.type There, {.p 360 }}, /* 12136 360 */- {.type Absolute, {.p 4}}, /* dd 4 12144 */+ {.type FromDictionary, {.p L137}, .src = "dd L137"}, /* dd L137 12144 */ {.type Here, {.p 12144 }}, /* 12144 360 */ {.type There, {.p 360 }}, /* 12144 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; pad has 3#n/"}, /* dd M_cmove ; pad has 3#n/ 12152 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 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 C_pad}, .src = "dd C_pad"}, /* dd C_pad 12160 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12160 */ {.type Here, {.p 12160 }}, /* 12160 360 */ {.type There, {.p 360 }}, /* 12160 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12168 */+ {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12168 */ {.type Here, {.p 12168 }}, /* 12168 360 */ {.type There, {.p 360 }}, /* 12168 360 */- {.type Absolute, {.p 4}}, /* dd 4 12176 */+ {.type FromDictionary, {.p C_depth}, .src = "dd C_depth"}, /* dd C_depth 12176 */ {.type Here, {.p 12176 }}, /* 12176 360 */ {.type There, {.p 360 }}, /* 12176 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'filename_counted_string pad+4 )"}, /* dd M_plus ; ( 'filename_counted_string pad+4 ) 12184 */+ {.type FromDictionary, {.p C_dot}, .src = "dd C_dot"}, /* dd C_dot 12184 */ {.type Here, {.p 12184 }}, /* 12184 360 */ {.type There, {.p 360 }}, /* 12184 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'filename_counted_string pad+4 ) (R pad+4 )"}, /* dd M_rpush ; ( 'filename_counted_string pad+4 ) (R pad+4 ) 12192 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12192 */ {.type Here, {.p 12192 }}, /* 12192 360 */ {.type There, {.p 360 }}, /* 12192 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 12200 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12200 */ {.type Here, {.p 12200 }}, /* 12200 360 */ {.type There, {.p 360 }}, /* 12200 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 12208 */+ {.type Here, {.p 12200 }}, /* 12200 360 */+ {.type There, {.p 360 }}, /* 12200 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12208 */ {.type Here, {.p 12208 }}, /* 12208 360 */ {.type There, {.p 360 }}, /* 12208 360 */- {.type FromDictionary, {.p C_paren_dot_paren}, .src = "dd C_paren_dot_paren ; ( 'filename_counted_string pad+4 'text fd_text_count ) ( R pad+4 )"}, /* dd C_paren_dot_paren ; ( 'filename_counted_string pad+4 'text fd_text_count ) ( R pad+4 ) 12216 */- {.type Here, {.p 12216 }}, /* 12216 360 */- {.type There, {.p 360 }}, /* 12216 360 */- {.type Here, {.p 12216 }}, /* 12216 360 */- {.type There, {.p 360 }}, /* 12216 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12224 */- {.type Here, {.p 12224 }}, /* 12224 360 */- {.type There, {.p 360 }}, /* 12224 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 12232 */+ {.type Here, {.p 12208 }}, /* 12208 360 */+ {.type There, {.p 360 }}, /* 12208 360 */+ {.type Header, {.hdr { 6, "concat", /* C_concat = 12224 */ colon }}}, /* CENTRY "concat" concat 6 ; ( 'cs1 'cs2 -- 'cs1+'cs2 ) concatenate counted string2 to counted-string1 h 12232 */ {.type Here, {.p 12232 }}, /* 12232 360 */ {.type There, {.p 360 }}, /* 12232 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 12240 */+ {.type Here, {.p 12232 }}, /* 12232 360 */+ {.type There, {.p 360 }}, /* 12232 360 */+ {.type Here, {.p 12232 }}, /* 12232 360 */+ {.type There, {.p 360 }}, /* 12232 360 */+/* ; move the contents of cs2 to cs1+1+count1. cs2+1 cs1+c1+1 c2 cmove */ {.type Here, {.p 12232 }}, /* 12232 360 */+ {.type There, {.p 360 }}, /* 12232 360 */+ {.type FromDictionary, {.p C_2dup}, .src = "dd C_2dup ; ( 'cs1 'cs2 'cs1 'cs2 )"}, /* dd C_2dup ; ( 'cs1 'cs2 'cs1 'cs2 ) 12240 */ {.type Here, {.p 12240 }}, /* 12240 360 */ {.type There, {.p 360 }}, /* 12240 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'filename_counted_string pad+4 'text fd_text_count ) ( R pad+4+fd_text_count )"}, /* dd M_rpush ; ( 'filename_counted_string pad+4 'text fd_text_count ) ( R pad+4+fd_text_count ) 12248 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2 'cs2 )"}, /* dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2 'cs2 ) 12248 */ {.type Here, {.p 12248 }}, /* 12248 360 */ {.type There, {.p 360 }}, /* 12248 360 */- {.type Here, {.p 12248 }}, /* 12248 360 */- {.type There, {.p 360 }}, /* 12248 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; now, pad has #n/<infd> ( 'filename_counted_string ) ( R pad+4+fd_text_count )"}, /* dd M_cmove ; now, pad has #n/<infd> ( 'filename_counted_string ) ( R pad+4+fd_text_count ) 12256 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2 c2 )"}, /* dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2 c2 ) 12256 */ {.type Here, {.p 12256 }}, /* 12256 360 */ {.type There, {.p 360 }}, /* 12256 360 */- {.type Here, {.p 12256 }}, /* 12256 360 */- {.type There, {.p 360 }}, /* 12256 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'filename_counted_string pad+4+fd_text_count )"}, /* dd M_rpop ; ( 'filename_counted_string pad+4+fd_text_count ) 12264 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'cs1 'cs2 'cs1 'cs2 ) (R c2 )"}, /* dd M_rpush ; ( 'cs1 'cs2 'cs1 'cs2 ) (R c2 ) 12264 */ {.type Here, {.p 12264 }}, /* 12264 360 */ {.type There, {.p 360 }}, /* 12264 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( 'filename_counted_string pad+4+fd_text_count 'filename_counted_string )"}, /* dd M_over ; ( 'filename_counted_string pad+4+fd_text_count 'filename_counted_string ) 12272 */+ {.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 ) 12272 */ {.type Here, {.p 12272 }}, /* 12272 360 */ {.type There, {.p 360 }}, /* 12272 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'filename_counted_string pad+4+fd_text_count filename_count )"}, /* dd M_cfetch ; ( 'filename_counted_string pad+4+fd_text_count filename_count ) 12280 */+ {.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 ) 12280 */ {.type Here, {.p 12280 }}, /* 12280 360 */ {.type There, {.p 360 }}, /* 12280 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'filename_counted_string pad+4+fd_text_count ) (R filename_count )"}, /* dd M_rpush ; ( 'filename_counted_string pad+4+fd_text_count ) (R filename_count ) 12288 */+ {.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 ) 12288 */ {.type Here, {.p 12288 }}, /* 12288 360 */ {.type There, {.p 360 }}, /* 12288 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12296 */+ {.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 ) 12296 */ {.type Here, {.p 12296 }}, /* 12296 360 */ {.type There, {.p 360 }}, /* 12296 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'filename_counted_string pad+4+fd_text_count ) (R filename_count pad+4+fd_text_count )"}, /* dd M_rpush ; ( 'filename_counted_string pad+4+fd_text_count ) (R filename_count pad+4+fd_text_count ) 12304 */+ {.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 ) 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_xswap}, .src = "dd M_xswap ; ( pad+4+fd_text_count 'filename_counted_string ) (R filename_count pad+4+fd_text_count )"}, /* dd M_xswap ; ( pad+4+fd_text_count 'filename_counted_string ) (R filename_count pad+4+fd_text_count ) 12312 */+ {.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 ) 12312 */ {.type Here, {.p 12312 }}, /* 12312 360 */ {.type There, {.p 360 }}, /* 12312 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( pad+4+fd_text_count 'filename count ) (R filename_count pad+4+fd_text_count )"}, /* dd C_count ; ( pad+4+fd_text_count 'filename count ) (R filename_count pad+4+fd_text_count ) 12320 */+ {.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 ) 12320 */ {.type Here, {.p 12320 }}, /* 12320 360 */ {.type There, {.p 360 }}, /* 12320 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; now, pad has the whole filename ( ) (R filename_count pad+4+fd_text_count )"}, /* dd M_cmove ; now, pad has the whole filename ( ) (R filename_count pad+4+fd_text_count ) 12328 */+ {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; ( 'cs1 'cs2 'cs1 )"}, /* dd M_cmove ; ( 'cs1 'cs2 'cs1 ) 12328 */ {.type Here, {.p 12328 }}, /* 12328 360 */ {.type There, {.p 360 }}, /* 12328 360 */ {.type Here, {.p 12328 }}, /* 12328 360 */ {.type There, {.p 360 }}, /* 12328 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 12336 */+/* ; update the count in cs1. c1 = c1+c2 */ {.type Here, {.p 12328 }}, /* 12328 360 */+ {.type There, {.p 360 }}, /* 12328 360 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'cs1 'cs2 c1 )"}, /* dd M_cfetch ; ( 'cs1 'cs2 c1 ) 12336 */ {.type Here, {.p 12336 }}, /* 12336 360 */ {.type There, {.p 360 }}, /* 12336 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 12344 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'cs1 c1 'cs2 )"}, /* dd M_xswap ; ( 'cs1 c1 'cs2 ) 12344 */ {.type Here, {.p 12344 }}, /* 12344 360 */ {.type There, {.p 360 }}, /* 12344 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( pad+4+fd_text_count+filename_count )"}, /* dd M_plus ; ( pad+4+fd_text_count+filename_count ) 12352 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'cs1 c1 c2 )"}, /* dd M_cfetch ; ( 'cs1 c1 c2 ) 12352 */ {.type Here, {.p 12352 }}, /* 12352 360 */ {.type There, {.p 360 }}, /* 12352 360 */- {.type Here, {.p 12352 }}, /* 12352 360 */- {.type There, {.p 360 }}, /* 12352 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 12360 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'cs1 c1+c2 )"}, /* dd M_plus ; ( 'cs1 c1+c2 ) 12360 */ {.type Here, {.p 12360 }}, /* 12360 360 */ {.type There, {.p 360 }}, /* 12360 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 12368 */+ {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( 'cs1 c1+c2 'cs1 )"}, /* dd M_over ; ( 'cs1 c1+c2 'cs1 ) 12368 */ {.type Here, {.p 12368 }}, /* 12368 360 */ {.type There, {.p 360 }}, /* 12368 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( pad+4+fd_text_count+filename_count-pad-1 )"}, /* dd M_minus ; ( pad+4+fd_text_count+filename_count-pad-1 ) 12376 */+ {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; ( 'cs1 )"}, /* dd M_cstore ; ( 'cs1 ) 12376 */ {.type Here, {.p 12376 }}, /* 12376 360 */ {.type There, {.p 360 }}, /* 12376 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 12384 */+ {.type Here, {.p 12376 }}, /* 12376 360 */+ {.type There, {.p 360 }}, /* 12376 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12384 */ {.type Here, {.p 12384 }}, /* 12384 360 */ {.type There, {.p 360 }}, /* 12384 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; Now, pad has a proper counted string"}, /* dd M_store ; Now, pad has a proper counted string 12392 */- {.type Here, {.p 12392 }}, /* 12392 360 */- {.type There, {.p 360 }}, /* 12392 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12400 */- {.type Here, {.p 12400 }}, /* 12400 360 */- {.type There, {.p 360 }}, /* 12400 360 */- {.type Here, {.p 12400 }}, /* 12400 360 */- {.type There, {.p 360 }}, /* 12400 360 */-/* ; max of a counted string is 256 bytes. Hence, cannot use it. */ {.type Here, {.p 12400 }}, /* 12400 360 */- {.type There, {.p 360 }}, /* 12400 360 */- {.type Header, {.hdr { 3, "get", /* C_get = 12416 */ colon }}}, /* CENTRY "get" get 3 ; ( index -- read_count ) read from the indexed Fd in Bufferfds into Tib h 12424 */+ {.type Here, {.p 12384 }}, /* 12384 360 */+ {.type There, {.p 360 }}, /* 12384 360 */+/* ; if (.) can return a counted string, this would be simpler */ {.type Here, {.p 12384 }}, /* 12384 360 */+ {.type There, {.p 360 }}, /* 12384 360 */+ {.type Header, {.hdr { 10, "buffername", /* C_buffername = 12408 */ colon }}}, /* CENTRY "buffername" buffername 10 ; ( index -- 'counted_string ) build the buffer fd's filename h 12416 */+ {.type Here, {.p 12416 }}, /* 12416 360 */+ {.type There, {.p 360 }}, /* 12416 360 */+ {.type Here, {.p 12416 }}, /* 12416 360 */+ {.type There, {.p 360 }}, /* 12416 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 12424 */ {.type Here, {.p 12424 }}, /* 12424 360 */ {.type There, {.p 360 }}, /* 12424 360 */ {.type Here, {.p 12424 }}, /* 12424 360 */ {.type There, {.p 360 }}, /* 12424 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 12432 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12432 */ {.type Here, {.p 12432 }}, /* 12432 360 */ {.type There, {.p 360 }}, /* 12432 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; clear EOF flag"}, /* dd C_off ; clear EOF flag 12440 */+ {.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/ 12440 */ {.type Here, {.p 12440 }}, /* 12440 360 */ {.type There, {.p 360 }}, /* 12440 360 */- {.type Here, {.p 12440 }}, /* 12440 360 */- {.type There, {.p 360 }}, /* 12440 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12448 */+ {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 12448 */ {.type Here, {.p 12448 }}, /* 12448 360 */ {.type There, {.p 360 }}, /* 12448 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 12456 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12456 */ {.type Here, {.p 12456 }}, /* 12456 360 */ {.type There, {.p 360 }}, /* 12456 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 12464 */+ {.type Absolute, {.p 4}}, /* dd 4 12464 */ {.type Here, {.p 12464 }}, /* 12464 360 */ {.type There, {.p 360 }}, /* 12464 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 12472 */+ {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; pad has 3#n/"}, /* dd M_cmove ; pad has 3#n/ 12472 */ {.type Here, {.p 12472 }}, /* 12472 360 */ {.type There, {.p 360 }}, /* 12472 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( index fd )"}, /* dd M_fetch ; ( index fd ) 12480 */+ {.type Here, {.p 12472 }}, /* 12472 360 */+ {.type There, {.p 360 }}, /* 12472 360 */+ {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 'fcs pad )"}, /* dd C_pad ; ( 'fcs pad ) 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_dup}, .src = "dd M_dup ; ( index fd fd )"}, /* dd M_dup ; ( index fd fd ) 12488 */+ {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 12488 */ {.type Here, {.p 12488 }}, /* 12488 360 */ {.type There, {.p 360 }}, /* 12488 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12496 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 12496 */ {.type Here, {.p 12496 }}, /* 12496 360 */ {.type There, {.p 360 }}, /* 12496 360 */- {.type Absolute, {.p -1}}, /* dd -1 12504 */+ {.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 ) 12504 */ {.type Here, {.p 12504 }}, /* 12504 360 */ {.type There, {.p 360 }}, /* 12504 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 12512 */+ {.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 ) 12512 */ {.type Here, {.p 12512 }}, /* 12512 360 */ {.type There, {.p 360 }}, /* 12512 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump ; if fd == -1 ( index fd )"}, /* dd M_cjump ; if fd == -1 ( index fd ) 12520 */+ {.type Here, {.p 12512 }}, /* 12512 360 */+ {.type There, {.p 360 }}, /* 12512 360 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( pad 'fcs )"}, /* dd M_xswap ; ( pad 'fcs ) 12520 */ {.type Here, {.p 12520 }}, /* 12520 360 */ {.type There, {.p 360 }}, /* 12520 360 */- {.type FromDictionary, {.p L_C_get}, .src = "dd L_C_get ; when not -1"}, /* dd L_C_get ; when not -1 12528 */+ {.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 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_drop}, .src = "dd M_drop ; when fd == -1 ( index )"}, /* dd M_drop ; when fd == -1 ( index ) 12536 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12536 */ {.type Here, {.p 12536 }}, /* 12536 360 */ {.type There, {.p 360 }}, /* 12536 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12544 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12544 */ {.type Here, {.p 12544 }}, /* 12544 360 */ {.type There, {.p 360 }}, /* 12544 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12552 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12552 */ {.type Here, {.p 12552 }}, /* 12552 360 */ {.type There, {.p 360 }}, /* 12552 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( index index ) (R index )"}, /* dd M_rpush ; ( index index ) (R index ) 12560 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12560 */ {.type Here, {.p 12560 }}, /* 12560 360 */ {.type There, {.p 360 }}, /* 12560 360 */- {.type FromDictionary, {.p C_buffername}, .src = "dd C_buffername"}, /* dd C_buffername 12568 */+ {.type Here, {.p 12560 }}, /* 12560 360 */+ {.type There, {.p 360 }}, /* 12560 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12568 */ {.type Here, {.p 12568 }}, /* 12568 360 */ {.type There, {.p 360 }}, /* 12568 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( index 'filename-counted-string -- 'text count )"}, /* dd C_count ; ( index 'filename-counted-string -- 'text count ) 12576 */- {.type Here, {.p 12576 }}, /* 12576 360 */- {.type There, {.p 360 }}, /* 12576 360 */- {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 12584 */- {.type Here, {.p 12584 }}, /* 12584 360 */- {.type There, {.p 360 }}, /* 12584 360 */- {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file ; ( index fd ioresult )"}, /* dd C_open_file ; ( index fd ioresult ) 12592 */+ {.type Here, {.p 12568 }}, /* 12568 360 */+ {.type There, {.p 360 }}, /* 12568 360 */+/* ; max of a counted string is 256 bytes. Hence, cannot use it. */ {.type Here, {.p 12568 }}, /* 12568 360 */+ {.type There, {.p 360 }}, /* 12568 360 */+ {.type Header, {.hdr { 3, "get", /* C_get = 12584 */ colon }}}, /* CENTRY "get" get 3 ; ( index -- read_count ) read from the indexed Fd in Bufferfds into Tib h 12592 */ {.type Here, {.p 12592 }}, /* 12592 360 */ {.type There, {.p 360 }}, /* 12592 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12600 */+ {.type Here, {.p 12592 }}, /* 12592 360 */+ {.type There, {.p 360 }}, /* 12592 360 */+ {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 12600 */ {.type Here, {.p 12600 }}, /* 12600 360 */ {.type There, {.p 360 }}, /* 12600 360 */- {.type FromDictionary, {.p L_C_get_store}, .src = "dd L_C_get_store"}, /* dd L_C_get_store 12608 */+ {.type FromDictionary, {.p C_off}, .src = "dd C_off ; clear EOF flag"}, /* dd C_off ; clear EOF flag 12608 */ {.type Here, {.p 12608 }}, /* 12608 360 */ {.type There, {.p 360 }}, /* 12608 360 */ {.type Here, {.p 12608 }}, /* 12608 360 */ {.type There, {.p 360 }}, /* 12608 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 12616 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12616 */ {.type Here, {.p 12616 }}, /* 12616 360 */ {.type There, {.p 360 }}, /* 12616 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12624 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells ; ( index index*cellsize ) number of bytes"}, /* dd C_cells ; ( index index*cellsize ) number of bytes 12624 */ {.type Here, {.p 12624 }}, /* 12624 360 */ {.type There, {.p 360 }}, /* 12624 360 */- {.type FromDictionary, {.p L140}, .src = "dd L140 ; open error"}, /* dd L140 ; open error 12632 */+ {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 12632 */ {.type Here, {.p 12632 }}, /* 12632 360 */ {.type There, {.p 360 }}, /* 12632 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12640 */+ {.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 12640 */ {.type Here, {.p 12640 }}, /* 12640 360 */ {.type There, {.p 360 }}, /* 12640 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12648 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( index fd )"}, /* dd M_fetch ; ( index fd ) 12648 */ {.type Here, {.p 12648 }}, /* 12648 360 */ {.type There, {.p 360 }}, /* 12648 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the index"}, /* dd C_emit ; show the index 12656 */+ {.type Here, {.p 12648 }}, /* 12648 360 */+ {.type There, {.p 360 }}, /* 12648 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( index fd fd )"}, /* dd M_dup ; ( index fd fd ) 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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12664 */ {.type Here, {.p 12664 }}, /* 12664 360 */ {.type There, {.p 360 }}, /* 12664 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? 12672 */+ {.type Absolute, {.p -1}}, /* dd -1 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 */- {.type Here, {.p 12672 }}, /* 12672 360 */- {.type There, {.p 360 }}, /* 12672 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( index fd fd )"}, /* dd M_dup ; ( index fd fd ) 12680 */+ {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 12680 */ {.type Here, {.p 12680 }}, /* 12680 360 */ {.type There, {.p 360 }}, /* 12680 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( index fd fd index )"}, /* dd M_rpop ; ( index fd fd index ) 12688 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump ; if fd == -1 ( index fd )"}, /* dd M_cjump ; if fd == -1 ( index fd ) 12688 */ {.type Here, {.p 12688 }}, /* 12688 360 */ {.type There, {.p 360 }}, /* 12688 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 12696 */+ {.type FromDictionary, {.p L_C_get}, .src = "dd L_C_get ; when not -1"}, /* dd L_C_get ; when not -1 12696 */ {.type Here, {.p 12696 }}, /* 12696 360 */ {.type There, {.p 360 }}, /* 12696 360 */- {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 12704 */+ {.type Here, {.p 12696 }}, /* 12696 360 */+ {.type There, {.p 360 }}, /* 12696 360 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; when fd == -1 ( index )"}, /* dd M_drop ; when fd == -1 ( index ) 12704 */ {.type Here, {.p 12704 }}, /* 12704 360 */ {.type There, {.p 360 }}, /* 12704 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 12712 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12712 */ {.type Here, {.p 12712 }}, /* 12712 360 */ {.type There, {.p 360 }}, /* 12712 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( index fd )"}, /* dd M_store ; ( index fd ) 12720 */+ {.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 Here, {.p 12720 }}, /* 12720 360 */- {.type There, {.p 360 }}, /* 12720 360 */- {.type Here, {.p 12720 }}, /* 12720 360 */- {.type There, {.p 360 }}, /* 12720 360 */- {.type FromDictionary, {.p MV_Tib}, .src = "dd MV_Tib"}, /* dd MV_Tib 12728 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( index index ) (R index )"}, /* dd M_rpush ; ( index index ) (R index ) 12728 */ {.type Here, {.p 12728 }}, /* 12728 360 */ {.type There, {.p 360 }}, /* 12728 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12736 */+ {.type FromDictionary, {.p C_buffername}, .src = "dd C_buffername"}, /* dd C_buffername 12736 */ {.type Here, {.p 12736 }}, /* 12736 360 */ {.type There, {.p 360 }}, /* 12736 360 */- {.type Absolute, {.p 4096}}, /* dd 4096 ; ( index fd Tib 4096 ) 12744 */+ {.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 ) 12744 */ {.type Here, {.p 12744 }}, /* 12744 360 */ {.type There, {.p 360 }}, /* 12744 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( index Tib 4096 fd )"}, /* dd C_rot ; ( index Tib 4096 fd ) 12752 */+ {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 12752 */ {.type Here, {.p 12752 }}, /* 12752 360 */ {.type There, {.p 360 }}, /* 12752 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 12760 */+ {.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 ) 12760 */ {.type Here, {.p 12760 }}, /* 12760 360 */ {.type There, {.p 360 }}, /* 12760 360 */- {.type Here, {.p 12760 }}, /* 12760 360 */- {.type There, {.p 360 }}, /* 12760 360 */- {.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 FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12768 */ {.type Here, {.p 12768 }}, /* 12768 360 */ {.type There, {.p 360 }}, /* 12768 360 */- {.type Absolute, {.p -1}}, /* dd -1 12776 */+ {.type FromDictionary, {.p L_C_get_store}, .src = "dd L_C_get_store"}, /* dd L_C_get_store 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 12776 }}, /* 12776 360 */+ {.type There, {.p 360 }}, /* 12776 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 12784 */ {.type Here, {.p 12784 }}, /* 12784 360 */ {.type There, {.p 360 }}, /* 12784 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12792 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12792 */ {.type Here, {.p 12792 }}, /* 12792 360 */ {.type There, {.p 360 }}, /* 12792 360 */- {.type FromDictionary, {.p L_C_get_1}, .src = "dd L_C_get_1"}, /* dd L_C_get_1 12800 */+ {.type FromDictionary, {.p L140}, .src = "dd L140 ; open error"}, /* dd L140 ; open error 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_literal}, .src = "dd M_literal"}, /* dd M_literal 12808 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12808 */ {.type Here, {.p 12808 }}, /* 12808 360 */ {.type There, {.p 360 }}, /* 12808 360 */- {.type FromDictionary, {.p L141}, .src = "dd L141 ; read error"}, /* dd L141 ; read error 12816 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12816 */ {.type Here, {.p 12816 }}, /* 12816 360 */ {.type There, {.p 360 }}, /* 12816 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12824 */+ {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the index"}, /* dd C_emit ; show the index 12824 */ {.type Here, {.p 12824 }}, /* 12824 360 */ {.type There, {.p 360 }}, /* 12824 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12832 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12832 */ {.type Here, {.p 12832 }}, /* 12832 360 */ {.type There, {.p 360 }}, /* 12832 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the index"}, /* dd C_emit ; show the index 12840 */+ {.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? 12840 */ {.type Here, {.p 12840 }}, /* 12840 360 */ {.type There, {.p 360 }}, /* 12840 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12848 */+ {.type Here, {.p 12840 }}, /* 12840 360 */+ {.type There, {.p 360 }}, /* 12840 360 */+ {.type Here, {.p 12840 }}, /* 12840 360 */+ {.type There, {.p 360 }}, /* 12840 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( index fd fd )"}, /* dd M_dup ; ( index fd fd ) 12848 */ {.type Here, {.p 12848 }}, /* 12848 360 */ {.type There, {.p 360 }}, /* 12848 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? 12856 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( index fd fd index )"}, /* dd M_rpop ; ( index fd fd index ) 12856 */ {.type Here, {.p 12856 }}, /* 12856 360 */ {.type There, {.p 360 }}, /* 12856 360 */- {.type Here, {.p 12856 }}, /* 12856 360 */- {.type There, {.p 360 }}, /* 12856 360 */- {.type Here, {.p 12856 }}, /* 12856 360 */- {.type There, {.p 360 }}, /* 12856 360 */- {.type FromDictionary, {.p C_nip}, .src = "dd C_nip ; ( read_count )"}, /* dd C_nip ; ( read_count ) 12864 */+ {.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 12864 */ {.type Here, {.p 12864 }}, /* 12864 360 */ {.type There, {.p 360 }}, /* 12864 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( read_count read_count )"}, /* dd M_dup ; ( read_count read_count ) 12872 */+ {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 12872 */ {.type Here, {.p 12872 }}, /* 12872 360 */ {.type There, {.p 360 }}, /* 12872 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12880 */+ {.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 12880 */ {.type Here, {.p 12880 }}, /* 12880 360 */ {.type There, {.p 360 }}, /* 12880 360 */- {.type Absolute, {.p 0}}, /* dd 0 12888 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store ; ( index fd )"}, /* dd M_store ; ( index fd ) 12888 */ {.type Here, {.p 12888 }}, /* 12888 360 */ {.type There, {.p 360 }}, /* 12888 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 12896 */+ {.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 MV_Tib}, .src = "dd MV_Tib"}, /* dd MV_Tib 12896 */ {.type Here, {.p 12896 }}, /* 12896 360 */ {.type There, {.p 360 }}, /* 12896 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12904 */+ {.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_C_get_2}, .src = "dd L_C_get_2"}, /* dd L_C_get_2 12912 */+ {.type Absolute, {.p 4096}}, /* dd 4096 ; ( index fd Tib 4096 ) 12912 */ {.type Here, {.p 12912 }}, /* 12912 360 */ {.type There, {.p 360 }}, /* 12912 360 */- {.type Here, {.p 12912 }}, /* 12912 360 */- {.type There, {.p 360 }}, /* 12912 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; ( ) read_count == 0"}, /* dd M_drop ; ( ) read_count == 0 12920 */+ {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( index Tib 4096 fd )"}, /* dd C_rot ; ( index Tib 4096 fd ) 12920 */ {.type Here, {.p 12920 }}, /* 12920 360 */ {.type There, {.p 360 }}, /* 12920 360 */- {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 12928 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 12928 */ {.type Here, {.p 12928 }}, /* 12928 360 */ {.type There, {.p 360 }}, /* 12928 360 */- {.type FromDictionary, {.p C_on}, .src = "dd C_on ; end of file, qrestore_input"}, /* dd C_on ; end of file, qrestore_input 12936 */+ {.type Here, {.p 12928 }}, /* 12928 360 */+ {.type There, {.p 360 }}, /* 12928 360 */+ {.type Here, {.p 12928 }}, /* 12928 360 */+ {.type There, {.p 360 }}, /* 12928 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12936 */ {.type Here, {.p 12936 }}, /* 12936 360 */ {.type There, {.p 360 }}, /* 12936 360 */- {.type FromDictionary, {.p C_restore_input}, .src = "dd C_restore_input"}, /* dd C_restore_input 12944 */+ {.type Absolute, {.p -1}}, /* dd -1 12944 */ {.type Here, {.p 12944 }}, /* 12944 360 */ {.type There, {.p 360 }}, /* 12944 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12952 */+ {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 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"}, /* dd M_dup 12960 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12960 */ {.type Here, {.p 12960 }}, /* 12960 360 */ {.type There, {.p 360 }}, /* 12960 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12968 */+ {.type FromDictionary, {.p L_C_get_1}, .src = "dd L_C_get_1"}, /* dd L_C_get_1 12968 */ {.type Here, {.p 12968 }}, /* 12968 360 */ {.type There, {.p 360 }}, /* 12968 360 */- {.type Absolute, {.p 4096}}, /* dd 4096 12976 */+ {.type Here, {.p 12968 }}, /* 12968 360 */+ {.type There, {.p 360 }}, /* 12968 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12976 */ {.type Here, {.p 12976 }}, /* 12976 360 */ {.type There, {.p 360 }}, /* 12976 360 */- {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 12984 */+ {.type FromDictionary, {.p L141}, .src = "dd L141 ; read error"}, /* dd L141 ; read error 12984 */ {.type Here, {.p 12984 }}, /* 12984 360 */ {.type There, {.p 360 }}, /* 12984 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12992 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12992 */ {.type Here, {.p 12992 }}, /* 12992 360 */ {.type There, {.p 360 }}, /* 12992 360 */- {.type FromDictionary, {.p L_C_get_3}, .src = "dd L_C_get_3"}, /* dd L_C_get_3 13000 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13008 */+ {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the index"}, /* dd C_emit ; show the index 13008 */ {.type Here, {.p 13008 }}, /* 13008 360 */ {.type There, {.p 360 }}, /* 13008 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 13016 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13016 */ {.type Here, {.p 13016 }}, /* 13016 360 */ {.type There, {.p 360 }}, /* 13016 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13024 */+ {.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? 13024 */ {.type Here, {.p 13024 }}, /* 13024 360 */ {.type There, {.p 360 }}, /* 13024 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13032 */+ {.type Here, {.p 13024 }}, /* 13024 360 */+ {.type There, {.p 360 }}, /* 13024 360 */+ {.type Here, {.p 13024 }}, /* 13024 360 */+ {.type There, {.p 360 }}, /* 13024 360 */+ {.type FromDictionary, {.p C_nip}, .src = "dd C_nip ; ( read_count )"}, /* dd C_nip ; ( read_count ) 13032 */ {.type Here, {.p 13032 }}, /* 13032 360 */ {.type There, {.p 360 }}, /* 13032 360 */- {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the read_count"}, /* dd C_emit ; show the read_count 13040 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( read_count read_count )"}, /* dd M_dup ; ( read_count read_count ) 13040 */ {.type Here, {.p 13040 }}, /* 13040 360 */ {.type There, {.p 360 }}, /* 13040 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13048 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13048 */ {.type Here, {.p 13048 }}, /* 13048 360 */ {.type There, {.p 360 }}, /* 13048 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? 13056 */+ {.type Absolute, {.p 0}}, /* dd 0 13056 */ {.type Here, {.p 13056 }}, /* 13056 360 */ {.type There, {.p 360 }}, /* 13056 360 */- {.type Here, {.p 13056 }}, /* 13056 360 */- {.type There, {.p 360 }}, /* 13056 360 */- {.type Here, {.p 13056 }}, /* 13056 360 */- {.type There, {.p 360 }}, /* 13056 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; ( read_count )"}, /* dd M_exitcolon ; ( read_count ) 13064 */+ {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 13064 */ {.type Here, {.p 13064 }}, /* 13064 360 */ {.type There, {.p 360 }}, /* 13064 360 */- {.type Here, {.p 13064 }}, /* 13064 360 */- {.type There, {.p 360 }}, /* 13064 360 */- {.type Header, {.hdr { 4, "parse", /* C_parse = 13080 */ colon }}}, /* CENTRY "parse" parse 4 ; ( read_count -- 'Wordb ) Wordb has a counted string. read_count number of bytes read into Tib h 13088 */+ {.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_2}, .src = "dd L_C_get_2"}, /* dd L_C_get_2 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_drop}, .src = "dd M_drop ; ( ) read_count == 0"}, /* dd M_drop ; ( ) read_count == 0 13088 */ {.type Here, {.p 13088 }}, /* 13088 360 */ {.type There, {.p 360 }}, /* 13088 360 */- {.type Here, {.p 13088 }}, /* 13088 360 */- {.type There, {.p 360 }}, /* 13088 360 */- {.type Here, {.p 13088 }}, /* 13088 360 */- {.type There, {.p 360 }}, /* 13088 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 13096 */+ {.type FromDictionary, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 13096 */ {.type Here, {.p 13096 }}, /* 13096 360 */ {.type There, {.p 360 }}, /* 13096 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13104 */+ {.type FromDictionary, {.p C_on}, .src = "dd C_on ; end of file, qrestore_input"}, /* dd C_on ; end of file, qrestore_input 13104 */ {.type Here, {.p 13104 }}, /* 13104 360 */ {.type There, {.p 360 }}, /* 13104 360 */- {.type Absolute, {.p 256}}, /* dd 256 13112 */+ {.type FromDictionary, {.p C_restore_input}, .src = "dd C_restore_input"}, /* dd C_restore_input 13112 */ {.type Here, {.p 13112 }}, /* 13112 360 */ {.type There, {.p 360 }}, /* 13112 360 */- {.type FromDictionary, {.p M_less}, .src = "dd M_less"}, /* dd M_less 13120 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13120 */ {.type Here, {.p 13120 }}, /* 13120 360 */ {.type There, {.p 360 }}, /* 13120 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13128 */+ {.type Here, {.p 13120 }}, /* 13120 360 */+ {.type There, {.p 360 }}, /* 13120 360 */+ {.type Here, {.p 13120 }}, /* 13120 360 */+ {.type There, {.p 360 }}, /* 13120 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13128 */ {.type Here, {.p 13128 }}, /* 13128 360 */ {.type There, {.p 360 }}, /* 13128 360 */- {.type FromDictionary, {.p L_C_parse_1}, .src = "dd L_C_parse_1"}, /* dd L_C_parse_1 13136 */+ {.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 Here, {.p 13136 }}, /* 13136 360 */- {.type There, {.p 360 }}, /* 13136 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( read_count read_count )"}, /* dd M_dup ; ( read_count read_count ) 13144 */+ {.type Absolute, {.p 4096}}, /* dd 4096 13144 */ {.type Here, {.p 13144 }}, /* 13144 360 */ {.type There, {.p 360 }}, /* 13144 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13152 */+ {.type FromDictionary, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 13152 */ {.type Here, {.p 13152 }}, /* 13152 360 */ {.type There, {.p 360 }}, /* 13152 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] ) 13160 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13160 */ {.type Here, {.p 13160 }}, /* 13160 360 */ {.type There, {.p 360 }}, /* 13160 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 13168 */+ {.type FromDictionary, {.p L_C_get_3}, .src = "dd L_C_get_3"}, /* dd L_C_get_3 13168 */ {.type Here, {.p 13168 }}, /* 13168 360 */ {.type There, {.p 360 }}, /* 13168 360 */- {.type FromDictionary, {.p MV_Tib}, .src = "dd MV_Tib"}, /* dd MV_Tib 13176 */+ {.type Here, {.p 13168 }}, /* 13168 360 */+ {.type There, {.p 360 }}, /* 13168 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13176 */ {.type Here, {.p 13176 }}, /* 13176 360 */ {.type There, {.p 360 }}, /* 13176 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13184 */+ {.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 13184 */ {.type Here, {.p 13184 }}, /* 13184 360 */ {.type There, {.p 360 }}, /* 13184 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13192 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13192 */ {.type Here, {.p 13192 }}, /* 13192 360 */ {.type There, {.p 360 }}, /* 13192 360 */- {.type Absolute, {.p 1}}, /* dd 1 13200 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13200 */ {.type Here, {.p 13200 }}, /* 13200 360 */ {.type There, {.p 360 }}, /* 13200 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 ) 13208 */+ {.type FromDictionary, {.p C_emit}, .src = "dd C_emit ; show the read_count"}, /* dd C_emit ; show the read_count 13208 */ {.type Here, {.p 13208 }}, /* 13208 360 */ {.type There, {.p 360 }}, /* 13208 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'Tib 'Wordb+1 read_count )"}, /* dd M_rpop ; ( 'Tib 'Wordb+1 read_count ) 13216 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13216 */ {.type Here, {.p 13216 }}, /* 13216 360 */ {.type There, {.p 360 }}, /* 13216 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 13224 */+ {.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? 13224 */ {.type Here, {.p 13224 }}, /* 13224 360 */ {.type There, {.p 360 }}, /* 13224 360 */ {.type Here, {.p 13224 }}, /* 13224 360 */ {.type There, {.p 360 }}, /* 13224 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13232 */+ {.type Here, {.p 13224 }}, /* 13224 360 */+ {.type There, {.p 360 }}, /* 13224 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; ( read_count )"}, /* dd M_exitcolon ; ( read_count ) 13232 */ {.type Here, {.p 13232 }}, /* 13232 360 */ {.type There, {.p 360 }}, /* 13232 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 13240 */- {.type Here, {.p 13240 }}, /* 13240 360 */- {.type There, {.p 360 }}, /* 13240 360 */- {.type Here, {.p 13240 }}, /* 13240 360 */- {.type There, {.p 360 }}, /* 13240 360 */- {.type Here, {.p 13240 }}, /* 13240 360 */- {.type There, {.p 360 }}, /* 13240 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13248 */- {.type Here, {.p 13248 }}, /* 13248 360 */- {.type There, {.p 360 }}, /* 13248 360 */- {.type FromDictionary, {.p L_C_long_word}, .src = "dd L_C_long_word"}, /* dd L_C_long_word 13256 */+ {.type Here, {.p 13232 }}, /* 13232 360 */+ {.type There, {.p 360 }}, /* 13232 360 */+ {.type Header, {.hdr { 4, "parse", /* C_parse = 13248 */ colon }}}, /* CENTRY "parse" parse 4 ; ( read_count -- 'Wordb ) Wordb has a counted string. read_count number of bytes read into Tib h 13256 */ {.type Here, {.p 13256 }}, /* 13256 360 */ {.type There, {.p 360 }}, /* 13256 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13264 */+ {.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_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 13264 */ {.type Here, {.p 13264 }}, /* 13264 360 */ {.type There, {.p 360 }}, /* 13264 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13272 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13272 */ {.type Here, {.p 13272 }}, /* 13272 360 */ {.type There, {.p 360 }}, /* 13272 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13280 */+ {.type Absolute, {.p 256}}, /* dd 256 13280 */ {.type Here, {.p 13280 }}, /* 13280 360 */ {.type There, {.p 360 }}, /* 13280 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 13288 */+ {.type FromDictionary, {.p M_less}, .src = "dd M_less"}, /* dd M_less 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 FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 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, "word", /* C_word = 13312 */ colon }}}, /* CENTRY "word" word 4 ; ( -- 'Wordb ) read from #n/Infd/word into Tib and then parse to a counted string in Wordb h 13320 */+ {.type FromDictionary, {.p L_C_parse_1}, .src = "dd L_C_parse_1"}, /* dd L_C_parse_1 13304 */+ {.type Here, {.p 13304 }}, /* 13304 360 */+ {.type There, {.p 360 }}, /* 13304 360 */+ {.type Here, {.p 13304 }}, /* 13304 360 */+ {.type There, {.p 360 }}, /* 13304 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( read_count read_count )"}, /* dd M_dup ; ( read_count read_count ) 13312 */+ {.type Here, {.p 13312 }}, /* 13312 360 */+ {.type There, {.p 360 }}, /* 13312 360 */+ {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 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 FromDictionary, {.p MC_WORDNUM}, .src = "dd MC_WORDNUM"}, /* dd MC_WORDNUM 13328 */+ {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore ; ( store read_count at Wordb[0] )"}, /* dd M_cstore ; ( store read_count at Wordb[0] ) 13328 */ {.type Here, {.p 13328 }}, /* 13328 360 */ {.type There, {.p 360 }}, /* 13328 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13336 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 13336 */ {.type Here, {.p 13336 }}, /* 13336 360 */ {.type There, {.p 360 }}, /* 13336 360 */- {.type FromDictionary, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 13344 */+ {.type FromDictionary, {.p MV_Tib}, .src = "dd MV_Tib"}, /* dd MV_Tib 13344 */ {.type Here, {.p 13344 }}, /* 13344 360 */ {.type There, {.p 360 }}, /* 13344 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13352 */+ {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13352 */ {.type Here, {.p 13352 }}, /* 13352 360 */ {.type There, {.p 360 }}, /* 13352 360 */- {.type Here, {.p 13352 }}, /* 13352 360 */- {.type There, {.p 360 }}, /* 13352 360 */- {.type Header, {.hdr { 4, "line", /* C_line = 13368 */ colon }}}, /* CENTRY "line" line 4 ; ( -- count ) read from #n/Infd/line into Tib h 13376 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13360 */+ {.type Here, {.p 13360 }}, /* 13360 360 */+ {.type There, {.p 360 }}, /* 13360 360 */+ {.type Absolute, {.p 1}}, /* dd 1 13368 */+ {.type Here, {.p 13368 }}, /* 13368 360 */+ {.type There, {.p 360 }}, /* 13368 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 ) 13376 */ {.type Here, {.p 13376 }}, /* 13376 360 */ {.type There, {.p 360 }}, /* 13376 360 */- {.type Here, {.p 13376 }}, /* 13376 360 */- {.type There, {.p 360 }}, /* 13376 360 */- {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 13384 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'Tib 'Wordb+1 read_count )"}, /* dd M_rpop ; ( 'Tib 'Wordb+1 read_count ) 13384 */ {.type Here, {.p 13384 }}, /* 13384 360 */ {.type There, {.p 360 }}, /* 13384 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13392 */+ {.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 13392 */ {.type Here, {.p 13392 }}, /* 13392 360 */ {.type There, {.p 360 }}, /* 13392 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13400 */+ {.type Here, {.p 13392 }}, /* 13392 360 */+ {.type There, {.p 360 }}, /* 13392 360 */+ {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 13400 */ {.type Here, {.p 13400 }}, /* 13400 360 */ {.type There, {.p 360 }}, /* 13400 360 */- {.type Here, {.p 13400 }}, /* 13400 360 */- {.type There, {.p 360 }}, /* 13400 360 */- {.type Header, {.hdr { 11, "doublequote", /* C_doublequote = 13424 */ colon }}}, /* CENTRY "doublequote" doublequote 11 ; ( -- count ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb h 13432 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; ( 'Wordb ) Wordb has the counted string"}, /* dd M_exitcolon ; ( 'Wordb ) Wordb has the counted string 13408 */+ {.type Here, {.p 13408 }}, /* 13408 360 */+ {.type There, {.p 360 }}, /* 13408 360 */+ {.type Here, {.p 13408 }}, /* 13408 360 */+ {.type There, {.p 360 }}, /* 13408 360 */+ {.type Here, {.p 13408 }}, /* 13408 360 */+ {.type There, {.p 360 }}, /* 13408 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13416 */+ {.type Here, {.p 13416 }}, /* 13416 360 */+ {.type There, {.p 360 }}, /* 13416 360 */+ {.type FromDictionary, {.p L_C_long_word}, .src = "dd L_C_long_word"}, /* dd L_C_long_word 13424 */+ {.type Here, {.p 13424 }}, /* 13424 360 */+ {.type There, {.p 360 }}, /* 13424 360 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13432 */ {.type Here, {.p 13432 }}, /* 13432 360 */ {.type There, {.p 360 }}, /* 13432 360 */- {.type Here, {.p 13432 }}, /* 13432 360 */- {.type There, {.p 360 }}, /* 13432 360 */- {.type FromDictionary, {.p MC_DOUBLEQUOTENUM}, .src = "dd MC_DOUBLEQUOTENUM"}, /* dd MC_DOUBLEQUOTENUM 13440 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13440 */ {.type Here, {.p 13440 }}, /* 13440 360 */ {.type There, {.p 360 }}, /* 13440 360 */- {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13448 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13448 */ {.type Here, {.p 13448 }}, /* 13448 360 */ {.type There, {.p 360 }}, /* 13448 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13456 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 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 Header, {.hdr { 11, "cdoublequote", /* C_counted_doublequote = 13480 */ colon }}}, /* CENTRY "cdoublequote" counted_doublequote 11 ; ( -- 'Wordb ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb h 13488 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13464 */+ {.type Here, {.p 13464 }}, /* 13464 360 */+ {.type There, {.p 360 }}, /* 13464 360 */+ {.type Here, {.p 13464 }}, /* 13464 360 */+ {.type There, {.p 360 }}, /* 13464 360 */+ {.type Header, {.hdr { 4, "word", /* C_word = 13480 */ colon }}}, /* CENTRY "word" word 4 ; ( -- 'Wordb ) read from #n/Infd/word into Tib and then parse to a counted string in Wordb h 13488 */ {.type Here, {.p 13488 }}, /* 13488 360 */ {.type There, {.p 360 }}, /* 13488 360 */ {.type Here, {.p 13488 }}, /* 13488 360 */ {.type There, {.p 360 }}, /* 13488 360 */- {.type FromDictionary, {.p MC_DOUBLEQUOTENUM}, .src = "dd MC_DOUBLEQUOTENUM"}, /* dd MC_DOUBLEQUOTENUM 13496 */+ {.type FromDictionary, {.p MC_WORDNUM}, .src = "dd MC_WORDNUM"}, /* dd MC_WORDNUM 13496 */ {.type Here, {.p 13496 }}, /* 13496 360 */ {.type There, {.p 360 }}, /* 13496 360 */ {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13504 */@@ -4957,461 +4973,435 @@
{.type There, {.p 360 }}, /* 13520 360 */ {.type Here, {.p 13520 }}, /* 13520 360 */ {.type There, {.p 360 }}, /* 13520 360 */- {.type Header, {.hdr { 10, "closeparen", /* C_closeparen = 13544 */ colon }}}, /* CENTRY "closeparen" closeparen 10 ; ( -- count ) read from #n/Infd/closeparen h 13552 */+ {.type Header, {.hdr { 4, "line", /* C_line = 13536 */ colon }}}, /* CENTRY "line" line 4 ; ( -- count ) read from #n/Infd/line into Tib h 13544 */+ {.type Here, {.p 13544 }}, /* 13544 360 */+ {.type There, {.p 360 }}, /* 13544 360 */+ {.type Here, {.p 13544 }}, /* 13544 360 */+ {.type There, {.p 360 }}, /* 13544 360 */+ {.type FromDictionary, {.p MC_LINENUM}, .src = "dd MC_LINENUM"}, /* dd MC_LINENUM 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_CLOSEPARENNUM}, .src = "dd MC_CLOSEPARENNUM"}, /* dd MC_CLOSEPARENNUM 13560 */+ {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 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 FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13568 */ {.type Here, {.p 13568 }}, /* 13568 360 */ {.type There, {.p 360 }}, /* 13568 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13576 */- {.type Here, {.p 13576 }}, /* 13576 360 */- {.type There, {.p 360 }}, /* 13576 360 */- {.type Here, {.p 13576 }}, /* 13576 360 */- {.type There, {.p 360 }}, /* 13576 360 */- {.type Header, {.hdr { 8, "findname", /* C_findname = 13600 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 13608 */+ {.type Here, {.p 13568 }}, /* 13568 360 */+ {.type There, {.p 360 }}, /* 13568 360 */+ {.type Header, {.hdr { 11, "doublequote", /* C_doublequote = 13592 */ colon }}}, /* CENTRY "doublequote" doublequote 11 ; ( -- count ) read from #n/Infd/doublequote into Tib h 13600 */+ {.type Here, {.p 13600 }}, /* 13600 360 */+ {.type There, {.p 360 }}, /* 13600 360 */+ {.type Here, {.p 13600 }}, /* 13600 360 */+ {.type There, {.p 360 }}, /* 13600 360 */+ {.type FromDictionary, {.p MC_DOUBLEQUOTENUM}, .src = "dd MC_DOUBLEQUOTENUM"}, /* dd MC_DOUBLEQUOTENUM 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 MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 13616 */+ {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13616 */ {.type Here, {.p 13616 }}, /* 13616 360 */ {.type There, {.p 360 }}, /* 13616 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 13624 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13624 */ {.type Here, {.p 13624 }}, /* 13624 360 */ {.type There, {.p 360 }}, /* 13624 360 */- {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop"}, /* dd MV_Dtop 13632 */- {.type Here, {.p 13632 }}, /* 13632 360 */- {.type There, {.p 360 }}, /* 13632 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; get latest dictionary link"}, /* dd M_fetch ; get latest dictionary link 13640 */- {.type Here, {.p 13640 }}, /* 13640 360 */- {.type There, {.p 360 }}, /* 13640 360 */- {.type Here, {.p 13640 }}, /* 13640 360 */- {.type There, {.p 360 }}, /* 13640 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 13648 */- {.type Here, {.p 13648 }}, /* 13648 360 */- {.type There, {.p 360 }}, /* 13648 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13656 */+ {.type Here, {.p 13624 }}, /* 13624 360 */+ {.type There, {.p 360 }}, /* 13624 360 */+ {.type Header, {.hdr { 11, "cdoublequote", /* C_counted_doublequote = 13648 */ colon }}}, /* CENTRY "cdoublequote" counted_doublequote 11 ; ( -- 'Wordb ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb h 13656 */ {.type Here, {.p 13656 }}, /* 13656 360 */ {.type There, {.p 360 }}, /* 13656 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 13664 */+ {.type Here, {.p 13656 }}, /* 13656 360 */+ {.type There, {.p 360 }}, /* 13656 360 */+ {.type FromDictionary, {.p MC_DOUBLEQUOTENUM}, .src = "dd MC_DOUBLEQUOTENUM"}, /* dd MC_DOUBLEQUOTENUM 13664 */ {.type Here, {.p 13664 }}, /* 13664 360 */ {.type There, {.p 360 }}, /* 13664 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a -- a a )"}, /* dd M_dup ; ( a -- a a ) 13672 */+ {.type FromDictionary, {.p C_get}, .src = "dd C_get"}, /* dd C_get 13672 */ {.type Here, {.p 13672 }}, /* 13672 360 */ {.type There, {.p 360 }}, /* 13672 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 13680 */+ {.type FromDictionary, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 13680 */ {.type Here, {.p 13680 }}, /* 13680 360 */ {.type There, {.p 360 }}, /* 13680 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 13688 */+ {.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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13696 */- {.type Here, {.p 13696 }}, /* 13696 360 */- {.type There, {.p 360 }}, /* 13696 360 */- {.type Absolute, {.p 64}}, /* dd 64 ; check the reveal'ed flag 1=hidden, 0=reveal 13704 */- {.type Here, {.p 13704 }}, /* 13704 360 */- {.type There, {.p 360 }}, /* 13704 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 13712 */- {.type Here, {.p 13712 }}, /* 13712 360 */- {.type There, {.p 360 }}, /* 13712 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13720 */+ {.type Here, {.p 13688 }}, /* 13688 360 */+ {.type There, {.p 360 }}, /* 13688 360 */+ {.type Header, {.hdr { 10, "closeparen", /* C_closeparen = 13712 */ colon }}}, /* CENTRY "closeparen" closeparen 10 ; ( -- count ) read from #n/Infd/closeparen h 13720 */ {.type Here, {.p 13720 }}, /* 13720 360 */ {.type There, {.p 360 }}, /* 13720 360 */- {.type FromDictionary, {.p L_C_findname_2}, .src = "dd L_C_findname_2"}, /* dd L_C_findname_2 13728 */+ {.type Here, {.p 13720 }}, /* 13720 360 */+ {.type There, {.p 360 }}, /* 13720 360 */+ {.type FromDictionary, {.p MC_CLOSEPARENNUM}, .src = "dd MC_CLOSEPARENNUM"}, /* dd MC_CLOSEPARENNUM 13728 */ {.type Here, {.p 13728 }}, /* 13728 360 */ {.type There, {.p 360 }}, /* 13728 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 13736 */+ {.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 M_jump}, .src = "dd M_jump"}, /* dd M_jump 13744 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13744 */ {.type Here, {.p 13744 }}, /* 13744 360 */ {.type There, {.p 360 }}, /* 13744 360 */- {.type FromDictionary, {.p L_C_findname_3}, .src = "dd L_C_findname_3"}, /* dd L_C_findname_3 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 FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a1 -- a1 a1)"}, /* dd M_dup ; ( a1 -- a1 a1) 13760 */- {.type Here, {.p 13760 }}, /* 13760 360 */- {.type There, {.p 360 }}, /* 13760 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) 13768 */- {.type Here, {.p 13768 }}, /* 13768 360 */- {.type There, {.p 360 }}, /* 13768 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 ) 13776 */+ {.type Here, {.p 13744 }}, /* 13744 360 */+ {.type There, {.p 360 }}, /* 13744 360 */+ {.type Header, {.hdr { 8, "findname", /* C_findname = 13768 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 13776 */ {.type Here, {.p 13776 }}, /* 13776 360 */ {.type There, {.p 360 }}, /* 13776 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13784 */+ {.type Here, {.p 13776 }}, /* 13776 360 */+ {.type There, {.p 360 }}, /* 13776 360 */+ {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 13784 */ {.type Here, {.p 13784 }}, /* 13784 360 */ {.type There, {.p 360 }}, /* 13784 360 */- {.type Absolute, {.p 63}}, /* dd 63 13792 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 13792 */ {.type Here, {.p 13792 }}, /* 13792 360 */ {.type There, {.p 360 }}, /* 13792 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 ) 13800 */+ {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop"}, /* dd MV_Dtop 13800 */ {.type Here, {.p 13800 }}, /* 13800 360 */ {.type There, {.p 360 }}, /* 13800 360 */- {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 13808 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; get latest dictionary link"}, /* dd M_fetch ; get latest dictionary link 13808 */ {.type Here, {.p 13808 }}, /* 13808 360 */ {.type There, {.p 360 }}, /* 13808 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13816 */+ {.type Here, {.p 13808 }}, /* 13808 360 */+ {.type There, {.p 360 }}, /* 13808 360 */+ {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 13816 */ {.type Here, {.p 13816 }}, /* 13816 360 */ {.type There, {.p 360 }}, /* 13816 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 ) 13824 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13824 */ {.type Here, {.p 13824 }}, /* 13824 360 */ {.type There, {.p 360 }}, /* 13824 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 13832 */+ {.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 13832 */ {.type Here, {.p 13832 }}, /* 13832 360 */ {.type There, {.p 360 }}, /* 13832 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq ; found a match?"}, /* dd C_0eq ; found a match? 13840 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a -- a a )"}, /* dd M_dup ; ( a -- a a ) 13840 */ {.type Here, {.p 13840 }}, /* 13840 360 */ {.type There, {.p 360 }}, /* 13840 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13848 */+ {.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 13848 */ {.type Here, {.p 13848 }}, /* 13848 360 */ {.type There, {.p 360 }}, /* 13848 360 */- {.type FromDictionary, {.p L_C_findname_4}, .src = "dd L_C_findname_4 ; no match"}, /* dd L_C_findname_4 ; no match 13856 */+ {.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 13856 */ {.type Here, {.p 13856 }}, /* 13856 360 */ {.type There, {.p 360 }}, /* 13856 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus ; match found"}, /* dd C_cell_plus ; match found 13864 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13864 */ {.type Here, {.p 13864 }}, /* 13864 360 */ {.type There, {.p 360 }}, /* 13864 360 */- {.type FromDictionary, {.p C_true}, .src = "dd C_true"}, /* dd C_true 13872 */+ {.type Absolute, {.p 64}}, /* dd 64 ; check the reveal'ed flag 1=hidden, 0=reveal 13872 */ {.type Here, {.p 13872 }}, /* 13872 360 */ {.type There, {.p 360 }}, /* 13872 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13880 */+ {.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 13880 */ {.type Here, {.p 13880 }}, /* 13880 360 */ {.type There, {.p 360 }}, /* 13880 360 */- {.type Here, {.p 13880 }}, /* 13880 360 */- {.type There, {.p 360 }}, /* 13880 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13888 */+ {.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 Here, {.p 13888 }}, /* 13888 360 */- {.type There, {.p 360 }}, /* 13888 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13896 */+ {.type FromDictionary, {.p L_C_findname_2}, .src = "dd L_C_findname_2"}, /* dd L_C_findname_2 13896 */ {.type Here, {.p 13896 }}, /* 13896 360 */ {.type There, {.p 360 }}, /* 13896 360 */- {.type FromDictionary, {.p L_C_findname}, .src = "dd L_C_findname"}, /* dd L_C_findname 13904 */+ {.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 13904 */ {.type Here, {.p 13904 }}, /* 13904 360 */ {.type There, {.p 360 }}, /* 13904 360 */- {.type Here, {.p 13904 }}, /* 13904 360 */- {.type There, {.p 360 }}, /* 13904 360 */- {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 13912 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13912 */ {.type Here, {.p 13912 }}, /* 13912 360 */ {.type There, {.p 360 }}, /* 13912 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13920 */+ {.type FromDictionary, {.p L_C_findname_3}, .src = "dd L_C_findname_3"}, /* dd L_C_findname_3 13920 */ {.type Here, {.p 13920 }}, /* 13920 360 */ {.type There, {.p 360 }}, /* 13920 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 13928 */+ {.type Here, {.p 13920 }}, /* 13920 360 */+ {.type There, {.p 360 }}, /* 13920 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a1 -- a1 a1)"}, /* dd M_dup ; ( a1 -- a1 a1) 13928 */ {.type Here, {.p 13928 }}, /* 13928 360 */ {.type There, {.p 360 }}, /* 13928 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13936 */+ {.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) 13936 */ {.type Here, {.p 13936 }}, /* 13936 360 */ {.type There, {.p 360 }}, /* 13936 360 */- {.type Here, {.p 13936 }}, /* 13936 360 */- {.type There, {.p 360 }}, /* 13936 360 */- {.type Header, {.hdr { 4, "find", /* C_find = 13952 */ colon }}}, /* CENTRY "find" find 4 ; ( a1 -- a2 f )? h 13960 */+ {.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 ) 13944 */+ {.type Here, {.p 13944 }}, /* 13944 360 */+ {.type There, {.p 360 }}, /* 13944 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13952 */+ {.type Here, {.p 13952 }}, /* 13952 360 */+ {.type There, {.p 360 }}, /* 13952 360 */+ {.type Absolute, {.p 63}}, /* dd 63 13960 */ {.type Here, {.p 13960 }}, /* 13960 360 */ {.type There, {.p 360 }}, /* 13960 360 */- {.type Here, {.p 13960 }}, /* 13960 360 */- {.type There, {.p 360 }}, /* 13960 360 */- {.type FromDictionary, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 13968 */+ {.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 ) 13968 */ {.type Here, {.p 13968 }}, /* 13968 360 */ {.type There, {.p 360 }}, /* 13968 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13976 */+ {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 13976 */ {.type Here, {.p 13976 }}, /* 13976 360 */ {.type There, {.p 360 }}, /* 13976 360 */- {.type FromDictionary, {.p L_C_find}, .src = "dd L_C_find"}, /* dd L_C_find 13984 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13984 */ {.type Here, {.p 13984 }}, /* 13984 360 */ {.type There, {.p 360 }}, /* 13984 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13992 */+ {.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 ) 13992 */ {.type Here, {.p 13992 }}, /* 13992 360 */ {.type There, {.p 360 }}, /* 13992 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14000 */+ {.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 14000 */ {.type Here, {.p 14000 }}, /* 14000 360 */ {.type There, {.p 360 }}, /* 14000 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 14008 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq ; found a match?"}, /* dd C_0eq ; found a match? 14008 */ {.type Here, {.p 14008 }}, /* 14008 360 */ {.type There, {.p 360 }}, /* 14008 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 14016 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14016 */ {.type Here, {.p 14016 }}, /* 14016 360 */ {.type There, {.p 360 }}, /* 14016 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14024 */+ {.type FromDictionary, {.p L_C_findname_4}, .src = "dd L_C_findname_4 ; no match"}, /* dd L_C_findname_4 ; no match 14024 */ {.type Here, {.p 14024 }}, /* 14024 360 */ {.type There, {.p 360 }}, /* 14024 360 */- {.type Absolute, {.p 63}}, /* dd 63 14032 */+ {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus ; match found"}, /* dd C_cell_plus ; match found 14032 */ {.type Here, {.p 14032 }}, /* 14032 360 */ {.type There, {.p 360 }}, /* 14032 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14040 */+ {.type FromDictionary, {.p C_true}, .src = "dd C_true"}, /* dd C_true 14040 */ {.type Here, {.p 14040 }}, /* 14040 360 */ {.type There, {.p 360 }}, /* 14040 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 14048 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14048 */ {.type Here, {.p 14048 }}, /* 14048 360 */ {.type There, {.p 360 }}, /* 14048 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 14056 */+ {.type Here, {.p 14048 }}, /* 14048 360 */+ {.type There, {.p 360 }}, /* 14048 360 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14056 */ {.type Here, {.p 14056 }}, /* 14056 360 */ {.type There, {.p 360 }}, /* 14056 360 */- {.type FromDictionary, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 14064 */+ {.type Here, {.p 14056 }}, /* 14056 360 */+ {.type There, {.p 360 }}, /* 14056 360 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14064 */ {.type Here, {.p 14064 }}, /* 14064 360 */ {.type There, {.p 360 }}, /* 14064 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 14072 */+ {.type FromDictionary, {.p L_C_findname}, .src = "dd L_C_findname"}, /* dd L_C_findname 14072 */ {.type Here, {.p 14072 }}, /* 14072 360 */ {.type There, {.p 360 }}, /* 14072 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14080 */+ {.type Here, {.p 14072 }}, /* 14072 360 */+ {.type There, {.p 360 }}, /* 14072 360 */+ {.type FromDictionary, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 14080 */ {.type Here, {.p 14080 }}, /* 14080 360 */ {.type There, {.p 360 }}, /* 14080 360 */- {.type Absolute, {.p 128}}, /* dd 128 14088 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14088 */ {.type Here, {.p 14088 }}, /* 14088 360 */ {.type There, {.p 360 }}, /* 14088 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14096 */+ {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 14096 */ {.type Here, {.p 14096 }}, /* 14096 360 */ {.type There, {.p 360 }}, /* 14096 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14104 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14104 */ {.type Here, {.p 14104 }}, /* 14104 360 */ {.type There, {.p 360 }}, /* 14104 360 */- {.type FromDictionary, {.p L_C_find_1}, .src = "dd L_C_find_1"}, /* dd L_C_find_1 14112 */- {.type Here, {.p 14112 }}, /* 14112 360 */- {.type There, {.p 360 }}, /* 14112 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14120 */- {.type Here, {.p 14120 }}, /* 14120 360 */- {.type There, {.p 360 }}, /* 14120 360 */- {.type Absolute, {.p 1}}, /* dd 1 14128 */+ {.type Here, {.p 14104 }}, /* 14104 360 */+ {.type There, {.p 360 }}, /* 14104 360 */+ {.type Header, {.hdr { 4, "find", /* C_find = 14120 */ colon }}}, /* CENTRY "find" find 4 ; ( a1 -- a2 f )? h 14128 */ {.type Here, {.p 14128 }}, /* 14128 360 */ {.type There, {.p 360 }}, /* 14128 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14136 */+ {.type Here, {.p 14128 }}, /* 14128 360 */+ {.type There, {.p 360 }}, /* 14128 360 */+ {.type FromDictionary, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 14136 */ {.type Here, {.p 14136 }}, /* 14136 360 */ {.type There, {.p 360 }}, /* 14136 360 */- {.type FromDictionary, {.p L_C_find_2}, .src = "dd L_C_find_2"}, /* dd L_C_find_2 14144 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14144 */ {.type Here, {.p 14144 }}, /* 14144 360 */ {.type There, {.p 360 }}, /* 14144 360 */- {.type Here, {.p 14144 }}, /* 14144 360 */- {.type There, {.p 360 }}, /* 14144 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14152 */+ {.type FromDictionary, {.p L_C_find}, .src = "dd L_C_find"}, /* dd L_C_find 14152 */ {.type Here, {.p 14152 }}, /* 14152 360 */ {.type There, {.p 360 }}, /* 14152 360 */- {.type Absolute, {.p -1}}, /* dd -1 14160 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 14160 */ {.type Here, {.p 14160 }}, /* 14160 360 */ {.type There, {.p 360 }}, /* 14160 360 */- {.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 FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14168 */ {.type Here, {.p 14168 }}, /* 14168 360 */ {.type There, {.p 360 }}, /* 14168 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14176 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 14176 */ {.type Here, {.p 14176 }}, /* 14176 360 */ {.type There, {.p 360 }}, /* 14176 360 */- {.type FromDictionary, {.p L_C_find_3}, .src = "dd L_C_find_3"}, /* dd L_C_find_3 14184 */+ {.type FromDictionary, {.p M_over}, .src = "dd M_over"}, /* dd M_over 14184 */ {.type Here, {.p 14184 }}, /* 14184 360 */ {.type There, {.p 360 }}, /* 14184 360 */- {.type Here, {.p 14184 }}, /* 14184 360 */- {.type There, {.p 360 }}, /* 14184 360 */- {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 14192 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 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 M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14200 */+ {.type Absolute, {.p 63}}, /* dd 63 14200 */ {.type Here, {.p 14200 }}, /* 14200 360 */ {.type There, {.p 360 }}, /* 14200 360 */- {.type Here, {.p 14200 }}, /* 14200 360 */- {.type There, {.p 360 }}, /* 14200 360 */- {.type Header, {.hdr { 1, "'", /* C_single_quote = 14216 */ colon }}}, /* CENTRY "'" single_quote 1 h 14224 */+ {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14208 */+ {.type Here, {.p 14208 }}, /* 14208 360 */+ {.type There, {.p 360 }}, /* 14208 360 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 14216 */+ {.type Here, {.p 14216 }}, /* 14216 360 */+ {.type There, {.p 360 }}, /* 14216 360 */+ {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 14224 */ {.type Here, {.p 14224 }}, /* 14224 360 */ {.type There, {.p 360 }}, /* 14224 360 */- {.type Here, {.p 14224 }}, /* 14224 360 */- {.type There, {.p 360 }}, /* 14224 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 14232 */+ {.type FromDictionary, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 14232 */ {.type Here, {.p 14232 }}, /* 14232 360 */ {.type There, {.p 360 }}, /* 14232 360 */- {.type FromDictionary, {.p C_find}, .src = "dd C_find"}, /* dd C_find 14240 */+ {.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 C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 14248 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14248 */ {.type Here, {.p 14248 }}, /* 14248 360 */ {.type There, {.p 360 }}, /* 14248 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14256 */+ {.type Absolute, {.p 128}}, /* dd 128 14256 */ {.type Here, {.p 14256 }}, /* 14256 360 */ {.type There, {.p 360 }}, /* 14256 360 */- {.type FromDictionary, {.p L_C_single_quote}, .src = "dd L_C_single_quote"}, /* dd L_C_single_quote 14264 */+ {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14264 */ {.type Here, {.p 14264 }}, /* 14264 360 */ {.type There, {.p 360 }}, /* 14264 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 14272 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14272 */ {.type Here, {.p 14272 }}, /* 14272 360 */ {.type There, {.p 360 }}, /* 14272 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14280 */+ {.type FromDictionary, {.p L_C_find_1}, .src = "dd L_C_find_1"}, /* dd L_C_find_1 14280 */ {.type Here, {.p 14280 }}, /* 14280 360 */ {.type There, {.p 360 }}, /* 14280 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14288 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14288 */ {.type Here, {.p 14288 }}, /* 14288 360 */ {.type There, {.p 360 }}, /* 14288 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14296 */+ {.type Absolute, {.p 1}}, /* dd 1 14296 */ {.type Here, {.p 14296 }}, /* 14296 360 */ {.type There, {.p 360 }}, /* 14296 360 */- {.type FromDictionary, {.p L170}, .src = "dd L170"}, /* dd L170 14304 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14304 */ {.type Here, {.p 14304 }}, /* 14304 360 */ {.type There, {.p 360 }}, /* 14304 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14312 */+ {.type FromDictionary, {.p L_C_find_2}, .src = "dd L_C_find_2"}, /* dd L_C_find_2 14312 */ {.type Here, {.p 14312 }}, /* 14312 360 */ {.type There, {.p 360 }}, /* 14312 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14320 */+ {.type Here, {.p 14312 }}, /* 14312 360 */+ {.type There, {.p 360 }}, /* 14312 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14320 */ {.type Here, {.p 14320 }}, /* 14320 360 */ {.type There, {.p 360 }}, /* 14320 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14328 */+ {.type Absolute, {.p -1}}, /* dd -1 14328 */ {.type Here, {.p 14328 }}, /* 14328 360 */ {.type There, {.p 360 }}, /* 14328 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14336 */+ {.type Here, {.p 14328 }}, /* 14328 360 */+ {.type There, {.p 360 }}, /* 14328 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14336 */ {.type Here, {.p 14336 }}, /* 14336 360 */ {.type There, {.p 360 }}, /* 14336 360 */- {.type Here, {.p 14336 }}, /* 14336 360 */- {.type There, {.p 360 }}, /* 14336 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14344 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14344 */ {.type Here, {.p 14344 }}, /* 14344 360 */ {.type There, {.p 360 }}, /* 14344 360 */- {.type Here, {.p 14344 }}, /* 14344 360 */- {.type There, {.p 360 }}, /* 14344 360 */- {.type Header, {.hdr { 6, "?stack", /* C_qstack = 14360 */ colon }}}, /* CENTRY "?stack" qstack 6 h 14368 */+ {.type FromDictionary, {.p L_C_find_3}, .src = "dd L_C_find_3"}, /* dd L_C_find_3 14352 */+ {.type Here, {.p 14352 }}, /* 14352 360 */+ {.type There, {.p 360 }}, /* 14352 360 */+ {.type Here, {.p 14352 }}, /* 14352 360 */+ {.type There, {.p 360 }}, /* 14352 360 */+ {.type FromDictionary, {.p C_false}, .src = "dd C_false"}, /* dd C_false 14360 */+ {.type Here, {.p 14360 }}, /* 14360 360 */+ {.type There, {.p 360 }}, /* 14360 360 */+ {.type Here, {.p 14360 }}, /* 14360 360 */+ {.type There, {.p 360 }}, /* 14360 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14368 */ {.type Here, {.p 14368 }}, /* 14368 360 */ {.type There, {.p 360 }}, /* 14368 360 */ {.type Here, {.p 14368 }}, /* 14368 360 */ {.type There, {.p 360 }}, /* 14368 360 */- {.type FromDictionary, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 14376 */- {.type Here, {.p 14376 }}, /* 14376 360 */- {.type There, {.p 360 }}, /* 14376 360 */- {.type FromDictionary, {.p MV_S0}, .src = "dd MV_S0"}, /* dd MV_S0 14384 */- {.type Here, {.p 14384 }}, /* 14384 360 */- {.type There, {.p 360 }}, /* 14384 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 14392 */+ {.type Header, {.hdr { 1, "'", /* C_single_quote = 14384 */ colon }}}, /* CENTRY "'" single_quote 1 h 14392 */ {.type Here, {.p 14392 }}, /* 14392 360 */ {.type There, {.p 360 }}, /* 14392 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14400 */+ {.type Here, {.p 14392 }}, /* 14392 360 */+ {.type There, {.p 360 }}, /* 14392 360 */+ {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 14400 */ {.type Here, {.p 14400 }}, /* 14400 360 */ {.type There, {.p 360 }}, /* 14400 360 */- {.type FromDictionary, {.p L_C_qstack}, .src = "dd L_C_qstack"}, /* dd L_C_qstack 14408 */+ {.type FromDictionary, {.p C_find}, .src = "dd C_find"}, /* dd C_find 14408 */ {.type Here, {.p 14408 }}, /* 14408 360 */ {.type There, {.p 360 }}, /* 14408 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14416 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 14416 */ {.type Here, {.p 14416 }}, /* 14416 360 */ {.type There, {.p 360 }}, /* 14416 360 */- {.type FromDictionary, {.p L173}, .src = "dd L173"}, /* dd L173 14424 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14424 */ {.type Here, {.p 14424 }}, /* 14424 360 */ {.type There, {.p 360 }}, /* 14424 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14432 */+ {.type FromDictionary, {.p L_C_single_quote}, .src = "dd L_C_single_quote"}, /* dd L_C_single_quote 14432 */ {.type Here, {.p 14432 }}, /* 14432 360 */ {.type There, {.p 360 }}, /* 14432 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14440 */+ {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 14440 */ {.type Here, {.p 14440 }}, /* 14440 360 */ {.type There, {.p 360 }}, /* 14440 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14448 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14448 */ {.type Here, {.p 14448 }}, /* 14448 360 */ {.type There, {.p 360 }}, /* 14448 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14456 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 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 M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14464 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14464 */ {.type Here, {.p 14464 }}, /* 14464 360 */ {.type There, {.p 360 }}, /* 14464 360 */- {.type Here, {.p 14464 }}, /* 14464 360 */- {.type There, {.p 360 }}, /* 14464 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 14472 */+ {.type FromDictionary, {.p L170}, .src = "dd L170"}, /* dd L170 14472 */ {.type Here, {.p 14472 }}, /* 14472 360 */ {.type There, {.p 360 }}, /* 14472 360 */- {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( str 1 str )"}, /* dd M_over ; ( str 1 str ) 14480 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14480 */ {.type Here, {.p 14480 }}, /* 14480 360 */ {.type There, {.p 360 }}, /* 14480 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( str 1 a n)"}, /* dd C_count ; ( str 1 a n) 14488 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14488 */ {.type Here, {.p 14488 }}, /* 14488 360 */ {.type There, {.p 360 }}, /* 14488 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 14496 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14496 */ {.type Here, {.p 14496 }}, /* 14496 360 */ {.type There, {.p 360 }}, /* 14496 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 14504 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14504 */ {.type Here, {.p 14504 }}, /* 14504 360 */ {.type There, {.p 360 }}, /* 14504 360 */ {.type Here, {.p 14504 }}, /* 14504 360 */ {.type There, {.p 360 }}, /* 14504 360 */- {.type Header, {.hdr { 9, "interpret", /* C_interpret = 14528 */ colon }}}, /* CENTRY "interpret" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set h 14536 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14512 */+ {.type Here, {.p 14512 }}, /* 14512 360 */+ {.type There, {.p 360 }}, /* 14512 360 */+ {.type Here, {.p 14512 }}, /* 14512 360 */+ {.type There, {.p 360 }}, /* 14512 360 */+ {.type Header, {.hdr { 6, "?stack", /* C_qstack = 14528 */ colon }}}, /* CENTRY "?stack" qstack 6 h 14536 */ {.type Here, {.p 14536 }}, /* 14536 360 */ {.type There, {.p 360 }}, /* 14536 360 */ {.type Here, {.p 14536 }}, /* 14536 360 */ {.type There, {.p 360 }}, /* 14536 360 */- {.type Here, {.p 14536 }}, /* 14536 360 */- {.type There, {.p 360 }}, /* 14536 360 */- {.type Here, {.p 14536 }}, /* 14536 360 */- {.type There, {.p 360 }}, /* 14536 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 14544 */+ {.type FromDictionary, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 14544 */ {.type Here, {.p 14544 }}, /* 14544 360 */ {.type There, {.p 360 }}, /* 14544 360 */- {.type FromDictionary, {.p C_find}, .src = "dd C_find ; ( 'Wordb -- a1 f )"}, /* dd C_find ; ( 'Wordb -- a1 f ) 14552 */+ {.type FromDictionary, {.p MV_S0}, .src = "dd MV_S0"}, /* dd MV_S0 14552 */ {.type Here, {.p 14552 }}, /* 14552 360 */ {.type There, {.p 360 }}, /* 14552 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14560 */+ {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 14560 */ {.type Here, {.p 14560 }}, /* 14560 360 */ {.type There, {.p 360 }}, /* 14560 360 */- {.type FromDictionary, {.p L_C_interpret_2}, .src = "dd L_C_interpret_2"}, /* dd L_C_interpret_2 14568 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 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_execute}, .src = "dd M_execute ; found in dictionary, execute"}, /* dd M_execute ; found in dictionary, execute 14576 */+ {.type FromDictionary, {.p L_C_qstack}, .src = "dd L_C_qstack"}, /* dd L_C_qstack 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 FromDictionary, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 14584 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14584 */ {.type Here, {.p 14584 }}, /* 14584 360 */ {.type There, {.p 360 }}, /* 14584 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14592 */+ {.type FromDictionary, {.p L173}, .src = "dd L173"}, /* dd L173 14592 */ {.type Here, {.p 14592 }}, /* 14592 360 */ {.type There, {.p 360 }}, /* 14592 360 */- {.type FromDictionary, {.p L_C_interpret_3}, .src = "dd L_C_interpret_3"}, /* dd L_C_interpret_3 14600 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 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 Here, {.p 14600 }}, /* 14600 360 */- {.type There, {.p 360 }}, /* 14600 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14608 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14608 */ {.type Here, {.p 14608 }}, /* 14608 360 */ {.type There, {.p 360 }}, /* 14608 360 */- {.type FromDictionary, {.p C_number}, .src = "dd C_number"}, /* dd C_number 14616 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14616 */ {.type Here, {.p 14616 }}, /* 14616 360 */ {.type There, {.p 360 }}, /* 14616 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 14624 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 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 14624 }}, /* 14624 360 */+ {.type There, {.p 360 }}, /* 14624 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14632 */ {.type Here, {.p 14632 }}, /* 14632 360 */ {.type There, {.p 360 }}, /* 14632 360 */- {.type FromDictionary, {.p L_C_interpret_4}, .src = "dd L_C_interpret_4"}, /* dd L_C_interpret_4 14640 */+ {.type Here, {.p 14632 }}, /* 14632 360 */+ {.type There, {.p 360 }}, /* 14632 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 14640 */ {.type Here, {.p 14640 }}, /* 14640 360 */ {.type There, {.p 360 }}, /* 14640 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 14648 */+ {.type FromDictionary, {.p M_over}, .src = "dd M_over ; ( str 1 str )"}, /* dd M_over ; ( str 1 str ) 14648 */ {.type Here, {.p 14648 }}, /* 14648 360 */ {.type There, {.p 360 }}, /* 14648 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type ; show the word"}, /* dd C_type ; show the word 14656 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( str 1 a n)"}, /* dd C_count ; ( str 1 a n) 14656 */ {.type Here, {.p 14656 }}, /* 14656 360 */ {.type There, {.p 360 }}, /* 14656 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14664 */+ {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 14664 */ {.type Here, {.p 14664 }}, /* 14664 360 */ {.type There, {.p 360 }}, /* 14664 360 */- {.type FromDictionary, {.p L180}, .src = "dd L180 ; error I?"}, /* dd L180 ; error I? 14672 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 14672 */ {.type Here, {.p 14672 }}, /* 14672 360 */ {.type There, {.p 360 }}, /* 14672 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14680 */- {.type Here, {.p 14680 }}, /* 14680 360 */- {.type There, {.p 360 }}, /* 14680 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14688 */- {.type Here, {.p 14688 }}, /* 14688 360 */- {.type There, {.p 360 }}, /* 14688 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14696 */- {.type Here, {.p 14696 }}, /* 14696 360 */- {.type There, {.p 360 }}, /* 14696 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14704 */+ {.type Here, {.p 14672 }}, /* 14672 360 */+ {.type There, {.p 360 }}, /* 14672 360 */+ {.type Header, {.hdr { 9, "interpret", /* C_interpret = 14696 */ colon }}}, /* CENTRY "interpret" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set h 14704 */ {.type Here, {.p 14704 }}, /* 14704 360 */ {.type There, {.p 360 }}, /* 14704 360 */ {.type Here, {.p 14704 }}, /* 14704 360 */@@ -5420,366 +5410,374 @@
{.type There, {.p 360 }}, /* 14704 360 */ {.type Here, {.p 14704 }}, /* 14704 360 */ {.type There, {.p 360 }}, /* 14704 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14712 */+ {.type FromDictionary, {.p C_word}, .src = "dd C_word ; ( -- 'Wordb ) Wordb has the counted string"}, /* dd C_word ; ( -- 'Wordb ) Wordb has the counted string 14712 */ {.type Here, {.p 14712 }}, /* 14712 360 */ {.type There, {.p 360 }}, /* 14712 360 */- {.type FromDictionary, {.p L_C_interpret}, .src = "dd L_C_interpret"}, /* dd L_C_interpret 14720 */+ {.type FromDictionary, {.p C_find}, .src = "dd C_find ; ( 'Wordb -- a1 f )"}, /* dd C_find ; ( 'Wordb -- a1 f ) 14720 */ {.type Here, {.p 14720 }}, /* 14720 360 */ {.type There, {.p 360 }}, /* 14720 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14728 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14728 */ {.type Here, {.p 14728 }}, /* 14728 360 */ {.type There, {.p 360 }}, /* 14728 360 */- {.type Here, {.p 14728 }}, /* 14728 360 */- {.type There, {.p 360 }}, /* 14728 360 */- {.type Header, {.hdr { 6, "create", /* C_create = 14744 */ colon }}}, /* CENTRY "create" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa) h 14752 */+ {.type FromDictionary, {.p L_C_interpret_2}, .src = "dd L_C_interpret_2"}, /* dd L_C_interpret_2 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 FromDictionary, {.p M_execute}, .src = "dd M_execute ; found in dictionary, execute"}, /* dd M_execute ; found in dictionary, execute 14744 */+ {.type Here, {.p 14744 }}, /* 14744 360 */+ {.type There, {.p 360 }}, /* 14744 360 */+ {.type Here, {.p 14744 }}, /* 14744 360 */+ {.type There, {.p 360 }}, /* 14744 360 */+ {.type FromDictionary, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 14752 */ {.type Here, {.p 14752 }}, /* 14752 360 */ {.type There, {.p 360 }}, /* 14752 360 */- {.type Here, {.p 14752 }}, /* 14752 360 */- {.type There, {.p 360 }}, /* 14752 360 */- {.type FromDictionary, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 14760 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14760 */ {.type Here, {.p 14760 }}, /* 14760 360 */ {.type There, {.p 360 }}, /* 14760 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( -- here )"}, /* dd C_here ; ( -- here ) 14768 */+ {.type FromDictionary, {.p L_C_interpret_3}, .src = "dd L_C_interpret_3"}, /* dd L_C_interpret_3 14768 */ {.type Here, {.p 14768 }}, /* 14768 360 */ {.type There, {.p 360 }}, /* 14768 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( -- ) (R -- linkaddr )"}, /* dd M_rpush ; ( -- ) (R -- linkaddr ) 14776 */+ {.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_count}, .src = "dd C_count"}, /* dd C_count 14776 */ {.type Here, {.p 14776 }}, /* 14776 360 */ {.type There, {.p 360 }}, /* 14776 360 */- {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop ; ( -- Dtop ) (R -- linkaddr )"}, /* dd MV_Dtop ; ( -- Dtop ) (R -- linkaddr ) 14784 */+ {.type FromDictionary, {.p C_number}, .src = "dd C_number"}, /* dd C_number 14784 */ {.type Here, {.p 14784 }}, /* 14784 360 */ {.type There, {.p 360 }}, /* 14784 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr )"}, /* dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr ) 14792 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 14792 */ {.type Here, {.p 14792 }}, /* 14792 360 */ {.type There, {.p 360 }}, /* 14792 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; ( dtop -- ) (R -- linkaddr )"}, /* dd C_comma ; ( dtop -- ) (R -- linkaddr ) 14800 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14800 */ {.type Here, {.p 14800 }}, /* 14800 360 */ {.type There, {.p 360 }}, /* 14800 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 14808 */+ {.type FromDictionary, {.p L_C_interpret_4}, .src = "dd L_C_interpret_4"}, /* dd L_C_interpret_4 14808 */ {.type Here, {.p 14808 }}, /* 14808 360 */ {.type There, {.p 360 }}, /* 14808 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a -- a a ) (R -- linkaddr )"}, /* dd M_dup ; ( a -- a a ) (R -- linkaddr ) 14816 */+ {.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 14816 */ {.type Here, {.p 14816 }}, /* 14816 360 */ {.type There, {.p 360 }}, /* 14816 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 ) 14824 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type ; show the word"}, /* dd C_type ; show the word 14824 */ {.type Here, {.p 14824 }}, /* 14824 360 */ {.type There, {.p 360 }}, /* 14824 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 ) 14832 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14832 */ {.type Here, {.p 14832 }}, /* 14832 360 */ {.type There, {.p 360 }}, /* 14832 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 ) 14840 */+ {.type FromDictionary, {.p L180}, .src = "dd L180 ; error I?"}, /* dd L180 ; error I? 14840 */ {.type Here, {.p 14840 }}, /* 14840 360 */ {.type There, {.p 360 }}, /* 14840 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 14848 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 14848 */ {.type Here, {.p 14848 }}, /* 14848 360 */ {.type There, {.p 360 }}, /* 14848 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 ) 14856 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 14856 */ {.type Here, {.p 14856 }}, /* 14856 360 */ {.type There, {.p 360 }}, /* 14856 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 ) 14864 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 14864 */ {.type Here, {.p 14864 }}, /* 14864 360 */ {.type There, {.p 360 }}, /* 14864 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 ) 14872 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 14872 */ {.type Here, {.p 14872 }}, /* 14872 360 */ {.type There, {.p 360 }}, /* 14872 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( -- len+1 ) (R -- linkaddr )"}, /* dd M_rpop ; ( -- len+1 ) (R -- linkaddr ) 14880 */+ {.type Here, {.p 14872 }}, /* 14872 360 */+ {.type There, {.p 360 }}, /* 14872 360 */+ {.type Here, {.p 14872 }}, /* 14872 360 */+ {.type There, {.p 360 }}, /* 14872 360 */+ {.type Here, {.p 14872 }}, /* 14872 360 */+ {.type There, {.p 360 }}, /* 14872 360 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 14880 */ {.type Here, {.p 14880 }}, /* 14880 360 */ {.type There, {.p 360 }}, /* 14880 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 14888 */+ {.type FromDictionary, {.p L_C_interpret}, .src = "dd L_C_interpret"}, /* dd L_C_interpret 14888 */ {.type Here, {.p 14888 }}, /* 14888 360 */ {.type There, {.p 360 }}, /* 14888 360 */- {.type FromDictionary, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 14896 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14896 */ {.type Here, {.p 14896 }}, /* 14896 360 */ {.type There, {.p 360 }}, /* 14896 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14904 */- {.type Here, {.p 14904 }}, /* 14904 360 */- {.type There, {.p 360 }}, /* 14904 360 */- {.type FromDictionary, {.p M_variable}, .src = "dd M_variable"}, /* dd M_variable 14912 */- {.type Here, {.p 14912 }}, /* 14912 360 */- {.type There, {.p 360 }}, /* 14912 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( -- variablecfa) (R -- linkaddr )"}, /* dd M_fetch ; ( -- variablecfa) (R -- linkaddr ) 14920 */+ {.type Here, {.p 14896 }}, /* 14896 360 */+ {.type There, {.p 360 }}, /* 14896 360 */+ {.type Header, {.hdr { 6, "create", /* C_create = 14912 */ colon }}}, /* CENTRY "create" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa) h 14920 */ {.type Here, {.p 14920 }}, /* 14920 360 */ {.type There, {.p 360 }}, /* 14920 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 14928 */+ {.type Here, {.p 14920 }}, /* 14920 360 */+ {.type There, {.p 360 }}, /* 14920 360 */+ {.type FromDictionary, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 14928 */ {.type Here, {.p 14928 }}, /* 14928 360 */ {.type There, {.p 360 }}, /* 14928 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( -- linkaddr) (R -- )"}, /* dd M_rpop ; ( -- linkaddr) (R -- ) 14936 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( -- here )"}, /* dd C_here ; ( -- here ) 14936 */ {.type Here, {.p 14936 }}, /* 14936 360 */ {.type There, {.p 360 }}, /* 14936 360 */- {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop"}, /* dd MV_Dtop 14944 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( -- ) (R -- linkaddr )"}, /* dd M_rpush ; ( -- ) (R -- linkaddr ) 14944 */ {.type Here, {.p 14944 }}, /* 14944 360 */ {.type There, {.p 360 }}, /* 14944 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; Dtop = just created link address"}, /* dd M_store ; Dtop = just created link address 14952 */+ {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop ; ( -- Dtop ) (R -- linkaddr )"}, /* dd MV_Dtop ; ( -- Dtop ) (R -- linkaddr ) 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 FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr )"}, /* dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr ) 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 { 8, "variable", /* C_variable = 14984 */ colon }}}, /* CENTRY "variable" variable 8 ; compile to put the there then on the stack h 14992 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; ( dtop -- ) (R -- linkaddr )"}, /* dd C_comma ; ( dtop -- ) (R -- linkaddr ) 14968 */+ {.type Here, {.p 14968 }}, /* 14968 360 */+ {.type There, {.p 360 }}, /* 14968 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 14976 */+ {.type Here, {.p 14976 }}, /* 14976 360 */+ {.type There, {.p 360 }}, /* 14976 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a -- a a ) (R -- linkaddr )"}, /* dd M_dup ; ( a -- a a ) (R -- linkaddr ) 14984 */+ {.type Here, {.p 14984 }}, /* 14984 360 */+ {.type There, {.p 360 }}, /* 14984 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 ) 14992 */ {.type Here, {.p 14992 }}, /* 14992 360 */ {.type There, {.p 360 }}, /* 14992 360 */- {.type Here, {.p 14992 }}, /* 14992 360 */- {.type There, {.p 360 }}, /* 14992 360 */- {.type FromDictionary, {.p C_create}, .src = "dd C_create"}, /* dd C_create 15000 */+ {.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 ) 15000 */ {.type Here, {.p 15000 }}, /* 15000 360 */ {.type There, {.p 360 }}, /* 15000 360 */- {.type FromDictionary, {.p C_there}, .src = "dd C_there"}, /* dd C_there 15008 */+ {.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 ) 15008 */ {.type Here, {.p 15008 }}, /* 15008 360 */ {.type There, {.p 360 }}, /* 15008 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 15016 */+ {.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 15016 */ {.type Here, {.p 15016 }}, /* 15016 360 */ {.type There, {.p 360 }}, /* 15016 360 */- {.type Here, {.p 15016 }}, /* 15016 360 */- {.type There, {.p 360 }}, /* 15016 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15024 */+ {.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 ) 15024 */ {.type Here, {.p 15024 }}, /* 15024 360 */ {.type There, {.p 360 }}, /* 15024 360 */- {.type Absolute, {.p 1}}, /* dd 1 15032 */+ {.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 ) 15032 */ {.type Here, {.p 15032 }}, /* 15032 360 */ {.type There, {.p 360 }}, /* 15032 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 15040 */+ {.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 ) 15040 */ {.type Here, {.p 15040 }}, /* 15040 360 */ {.type There, {.p 360 }}, /* 15040 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 15048 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( -- len+1 ) (R -- linkaddr )"}, /* dd M_rpop ; ( -- len+1 ) (R -- linkaddr ) 15048 */ {.type Here, {.p 15048 }}, /* 15048 360 */ {.type There, {.p 360 }}, /* 15048 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15056 */+ {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1"}, /* dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1 15056 */ {.type Here, {.p 15056 }}, /* 15056 360 */ {.type There, {.p 360 }}, /* 15056 360 */- {.type Here, {.p 15056 }}, /* 15056 360 */- {.type There, {.p 360 }}, /* 15056 360 */- {.type Header, {.hdr { 8, "constant", /* C_constant = 15080 */ colon }}}, /* CENTRY "constant" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant) h 15088 */+ {.type FromDictionary, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 15064 */+ {.type Here, {.p 15064 }}, /* 15064 360 */+ {.type There, {.p 360 }}, /* 15064 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15072 */+ {.type Here, {.p 15072 }}, /* 15072 360 */+ {.type There, {.p 360 }}, /* 15072 360 */+ {.type FromDictionary, {.p M_variable}, .src = "dd M_variable"}, /* dd M_variable 15080 */+ {.type Here, {.p 15080 }}, /* 15080 360 */+ {.type There, {.p 360 }}, /* 15080 360 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( -- variablecfa) (R -- linkaddr )"}, /* dd M_fetch ; ( -- variablecfa) (R -- linkaddr ) 15088 */ {.type Here, {.p 15088 }}, /* 15088 360 */ {.type There, {.p 360 }}, /* 15088 360 */- {.type Here, {.p 15088 }}, /* 15088 360 */- {.type There, {.p 360 }}, /* 15088 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 15096 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; ( -- ) put the variablecfa into the cfa"}, /* dd C_comma ; ( -- ) put the variablecfa into the cfa 15096 */ {.type Here, {.p 15096 }}, /* 15096 360 */ {.type There, {.p 360 }}, /* 15096 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15104 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( -- linkaddr) (R -- )"}, /* dd M_rpop ; ( -- linkaddr) (R -- ) 15104 */ {.type Here, {.p 15104 }}, /* 15104 360 */ {.type There, {.p 360 }}, /* 15104 360 */- {.type FromDictionary, {.p M_constant}, .src = "dd M_constant"}, /* dd M_constant 15112 */+ {.type FromDictionary, {.p MV_Dtop}, .src = "dd MV_Dtop"}, /* dd MV_Dtop 15112 */ {.type Here, {.p 15112 }}, /* 15112 360 */ {.type There, {.p 360 }}, /* 15112 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( Contstantcfa -- (constant) )"}, /* dd M_fetch ; ( Contstantcfa -- (constant) ) 15120 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store ; Dtop = just created link address"}, /* dd M_store ; Dtop = just created link address 15120 */ {.type Here, {.p 15120 }}, /* 15120 360 */ {.type There, {.p 360 }}, /* 15120 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( (constant) -- (constant) here )"}, /* dd C_here ; ( (constant) -- (constant) here ) 15128 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 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 Absolute, {.p 1}}, /* dd 1 15144 */- {.type Here, {.p 15144 }}, /* 15144 360 */- {.type There, {.p 360 }}, /* 15144 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells ; ( (constant) here -- (constant) here 8 )"}, /* dd C_cells ; ( (constant) here -- (constant) here 8 ) 15152 */- {.type Here, {.p 15152 }}, /* 15152 360 */- {.type There, {.p 360 }}, /* 15152 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 ) 15160 */+ {.type Here, {.p 15128 }}, /* 15128 360 */+ {.type There, {.p 360 }}, /* 15128 360 */+ {.type Header, {.hdr { 8, "variable", /* C_variable = 15152 */ colon }}}, /* CENTRY "variable" variable 8 ; compile to put the there then on the stack h 15160 */ {.type Here, {.p 15160 }}, /* 15160 360 */ {.type There, {.p 360 }}, /* 15160 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) 15168 */+ {.type Here, {.p 15160 }}, /* 15160 360 */+ {.type There, {.p 360 }}, /* 15160 360 */+ {.type FromDictionary, {.p C_create}, .src = "dd C_create"}, /* dd C_create 15168 */ {.type Here, {.p 15168 }}, /* 15168 360 */ {.type There, {.p 360 }}, /* 15168 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; store n into the dictionary"}, /* dd C_comma ; store n into the dictionary 15176 */+ {.type FromDictionary, {.p C_there}, .src = "dd C_there"}, /* dd C_there 15176 */ {.type Here, {.p 15176 }}, /* 15176 360 */ {.type There, {.p 360 }}, /* 15176 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15184 */+ {.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 15184 */ {.type Here, {.p 15184 }}, /* 15184 360 */ {.type There, {.p 360 }}, /* 15184 360 */ {.type Here, {.p 15184 }}, /* 15184 360 */ {.type There, {.p 360 }}, /* 15184 360 */- {.type Header, {.hdr { 9, "immediate", /* C_immediate = 15208 */ colon }}}, /* CENTRY "immediate" immediate 9 h 15216 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15192 */+ {.type Here, {.p 15192 }}, /* 15192 360 */+ {.type There, {.p 360 }}, /* 15192 360 */+ {.type Absolute, {.p 1}}, /* dd 1 15200 */+ {.type Here, {.p 15200 }}, /* 15200 360 */+ {.type There, {.p 360 }}, /* 15200 360 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 15208 */+ {.type Here, {.p 15208 }}, /* 15208 360 */+ {.type There, {.p 360 }}, /* 15208 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 15216 */ {.type Here, {.p 15216 }}, /* 15216 360 */ {.type There, {.p 360 }}, /* 15216 360 */- {.type Here, {.p 15216 }}, /* 15216 360 */- {.type There, {.p 360 }}, /* 15216 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 15224 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15224 */ {.type Here, {.p 15224 }}, /* 15224 360 */ {.type There, {.p 360 }}, /* 15224 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15232 */- {.type Here, {.p 15232 }}, /* 15232 360 */- {.type There, {.p 360 }}, /* 15232 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 15240 */- {.type Here, {.p 15240 }}, /* 15240 360 */- {.type There, {.p 360 }}, /* 15240 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15248 */- {.type Here, {.p 15248 }}, /* 15248 360 */- {.type There, {.p 360 }}, /* 15248 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15256 */+ {.type Here, {.p 15224 }}, /* 15224 360 */+ {.type There, {.p 360 }}, /* 15224 360 */+ {.type Header, {.hdr { 8, "constant", /* C_constant = 15248 */ colon }}}, /* CENTRY "constant" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant) h 15256 */ {.type Here, {.p 15256 }}, /* 15256 360 */ {.type There, {.p 360 }}, /* 15256 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15264 */+ {.type Here, {.p 15256 }}, /* 15256 360 */+ {.type There, {.p 360 }}, /* 15256 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 15264 */ {.type Here, {.p 15264 }}, /* 15264 360 */ {.type There, {.p 360 }}, /* 15264 360 */- {.type Absolute, {.p 128}}, /* dd 128 15272 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15272 */ {.type Here, {.p 15272 }}, /* 15272 360 */ {.type There, {.p 360 }}, /* 15272 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 15280 */+ {.type FromDictionary, {.p M_constant}, .src = "dd M_constant"}, /* dd M_constant 15280 */ {.type Here, {.p 15280 }}, /* 15280 360 */ {.type There, {.p 360 }}, /* 15280 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 15288 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch ; ( Contstantcfa -- (constant) )"}, /* dd M_fetch ; ( Contstantcfa -- (constant) ) 15288 */ {.type Here, {.p 15288 }}, /* 15288 360 */ {.type There, {.p 360 }}, /* 15288 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 15296 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( (constant) -- (constant) here )"}, /* dd C_here ; ( (constant) -- (constant) here ) 15296 */ {.type Here, {.p 15296 }}, /* 15296 360 */ {.type There, {.p 360 }}, /* 15296 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15304 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15304 */ {.type Here, {.p 15304 }}, /* 15304 360 */ {.type There, {.p 360 }}, /* 15304 360 */- {.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 15320 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 15328 */+ {.type Absolute, {.p 1}}, /* dd 1 15312 */+ {.type Here, {.p 15312 }}, /* 15312 360 */+ {.type There, {.p 360 }}, /* 15312 360 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells ; ( (constant) here -- (constant) here 8 )"}, /* dd C_cells ; ( (constant) here -- (constant) here 8 ) 15320 */+ {.type Here, {.p 15320 }}, /* 15320 360 */+ {.type There, {.p 360 }}, /* 15320 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 ) 15328 */ {.type Here, {.p 15328 }}, /* 15328 360 */ {.type There, {.p 360 }}, /* 15328 360 */- {.type Here, {.p 15328 }}, /* 15328 360 */- {.type There, {.p 360 }}, /* 15328 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15336 */+ {.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) 15336 */ {.type Here, {.p 15336 }}, /* 15336 360 */ {.type There, {.p 360 }}, /* 15336 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15344 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; store n into the dictionary"}, /* dd C_comma ; store n into the dictionary 15344 */ {.type Here, {.p 15344 }}, /* 15344 360 */ {.type There, {.p 360 }}, /* 15344 360 */- {.type Absolute, {.p 63}}, /* dd 63 15352 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15352 */ {.type Here, {.p 15352 }}, /* 15352 360 */ {.type There, {.p 360 }}, /* 15352 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15360 */- {.type Here, {.p 15360 }}, /* 15360 360 */- {.type There, {.p 360 }}, /* 15360 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 15368 */- {.type Here, {.p 15368 }}, /* 15368 360 */- {.type There, {.p 360 }}, /* 15368 360 */- {.type FromDictionary, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 15376 */- {.type Here, {.p 15376 }}, /* 15376 360 */- {.type There, {.p 360 }}, /* 15376 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15384 */+ {.type Here, {.p 15352 }}, /* 15352 360 */+ {.type There, {.p 360 }}, /* 15352 360 */+ {.type Header, {.hdr { 9, "immediate", /* C_immediate = 15376 */ colon }}}, /* CENTRY "immediate" immediate 9 h 15384 */ {.type Here, {.p 15384 }}, /* 15384 360 */ {.type There, {.p 360 }}, /* 15384 360 */ {.type Here, {.p 15384 }}, /* 15384 360 */ {.type There, {.p 360 }}, /* 15384 360 */- {.type Header, {.hdr { 7, "compile", /* C_compile = 15400 */ colon }}}, /* CENTRY "compile" compile 7 h 15408 */+ {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 15392 */+ {.type Here, {.p 15392 }}, /* 15392 360 */+ {.type There, {.p 360 }}, /* 15392 360 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15400 */+ {.type Here, {.p 15400 }}, /* 15400 360 */+ {.type There, {.p 360 }}, /* 15400 360 */+ {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 15408 */ {.type Here, {.p 15408 }}, /* 15408 360 */ {.type There, {.p 360 }}, /* 15408 360 */- {.type Here, {.p 15408 }}, /* 15408 360 */- {.type There, {.p 360 }}, /* 15408 360 */- {.type FromDictionary, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 15416 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15416 */ {.type Here, {.p 15416 }}, /* 15416 360 */ {.type There, {.p 360 }}, /* 15416 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15424 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15424 */ {.type Here, {.p 15424 }}, /* 15424 360 */ {.type There, {.p 360 }}, /* 15424 360 */- {.type FromDictionary, {.p L_C_compile}, .src = "dd L_C_compile"}, /* dd L_C_compile 15432 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15432 */ {.type Here, {.p 15432 }}, /* 15432 360 */ {.type There, {.p 360 }}, /* 15432 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15440 */+ {.type Absolute, {.p 128}}, /* dd 128 15440 */ {.type Here, {.p 15440 }}, /* 15440 360 */ {.type There, {.p 360 }}, /* 15440 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15448 */+ {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 15448 */ {.type Here, {.p 15448 }}, /* 15448 360 */ {.type There, {.p 360 }}, /* 15448 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15456 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 15456 */ {.type Here, {.p 15456 }}, /* 15456 360 */ {.type There, {.p 360 }}, /* 15456 360 */- {.type Absolute, {.p 128}}, /* dd 128 15464 */+ {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 15464 */ {.type Here, {.p 15464 }}, /* 15464 360 */ {.type There, {.p 360 }}, /* 15464 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15472 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15472 */ {.type Here, {.p 15472 }}, /* 15472 360 */ {.type There, {.p 360 }}, /* 15472 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15480 */- {.type Here, {.p 15480 }}, /* 15480 360 */- {.type There, {.p 360 }}, /* 15480 360 */- {.type FromDictionary, {.p L_C_compile_1}, .src = "dd L_C_compile_1"}, /* dd L_C_compile_1 15488 */- {.type Here, {.p 15488 }}, /* 15488 360 */- {.type There, {.p 360 }}, /* 15488 360 */- {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa ; immediate"}, /* dd C_tocfa ; immediate 15496 */+ {.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 15488 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 15496 */ {.type Here, {.p 15496 }}, /* 15496 360 */ {.type There, {.p 360 }}, /* 15496 360 */- {.type FromDictionary, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 15504 */+ {.type Here, {.p 15496 }}, /* 15496 360 */+ {.type There, {.p 360 }}, /* 15496 360 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15504 */ {.type Here, {.p 15504 }}, /* 15504 360 */ {.type There, {.p 360 }}, /* 15504 360 */- {.type FromDictionary, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 15512 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15512 */ {.type Here, {.p 15512 }}, /* 15512 360 */ {.type There, {.p 360 }}, /* 15512 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15520 */+ {.type Absolute, {.p 63}}, /* dd 63 15520 */ {.type Here, {.p 15520 }}, /* 15520 360 */ {.type There, {.p 360 }}, /* 15520 360 */- {.type FromDictionary, {.p L_C_compile_2}, .src = "dd L_C_compile_2"}, /* dd L_C_compile_2 15528 */+ {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15528 */ {.type Here, {.p 15528 }}, /* 15528 360 */ {.type There, {.p 360 }}, /* 15528 360 */- {.type Here, {.p 15528 }}, /* 15528 360 */- {.type There, {.p 360 }}, /* 15528 360 */- {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 15536 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 15536 */ {.type Here, {.p 15536 }}, /* 15536 360 */ {.type There, {.p 360 }}, /* 15536 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15544 */+ {.type FromDictionary, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 15544 */ {.type Here, {.p 15544 }}, /* 15544 360 */ {.type There, {.p 360 }}, /* 15544 360 */- {.type Here, {.p 15544 }}, /* 15544 360 */- {.type There, {.p 360 }}, /* 15544 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15552 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15552 */ {.type Here, {.p 15552 }}, /* 15552 360 */ {.type There, {.p 360 }}, /* 15552 360 */- {.type FromDictionary, {.p L_C_compile_3}, .src = "dd L_C_compile_3"}, /* dd L_C_compile_3 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 C_number}, .src = "dd C_number"}, /* dd C_number 15576 */+ {.type Here, {.p 15552 }}, /* 15552 360 */+ {.type There, {.p 360 }}, /* 15552 360 */+ {.type Header, {.hdr { 7, "compile", /* C_compile = 15568 */ colon }}}, /* CENTRY "compile" compile 7 h 15576 */ {.type Here, {.p 15576 }}, /* 15576 360 */ {.type There, {.p 360 }}, /* 15576 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 15584 */+ {.type Here, {.p 15576 }}, /* 15576 360 */+ {.type There, {.p 360 }}, /* 15576 360 */+ {.type FromDictionary, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 15584 */ {.type Here, {.p 15584 }}, /* 15584 360 */ {.type There, {.p 360 }}, /* 15584 360 */ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15592 */ {.type Here, {.p 15592 }}, /* 15592 360 */ {.type There, {.p 360 }}, /* 15592 360 */- {.type FromDictionary, {.p L_C_compile_4}, .src = "dd L_C_compile_4"}, /* dd L_C_compile_4 15600 */+ {.type FromDictionary, {.p L_C_compile}, .src = "dd L_C_compile"}, /* dd L_C_compile 15600 */ {.type Here, {.p 15600 }}, /* 15600 360 */ {.type There, {.p 360 }}, /* 15600 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 15608 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15608 */ {.type Here, {.p 15608 }}, /* 15608 360 */ {.type There, {.p 360 }}, /* 15608 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15616 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15616 */ {.type Here, {.p 15616 }}, /* 15616 360 */ {.type There, {.p 360 }}, /* 15616 360 */ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15624 */ {.type Here, {.p 15624 }}, /* 15624 360 */ {.type There, {.p 360 }}, /* 15624 360 */- {.type FromDictionary, {.p L_C_compile_5}, .src = "dd L_C_compile_5"}, /* dd L_C_compile_5 15632 */+ {.type Absolute, {.p 128}}, /* dd 128 15632 */ {.type Here, {.p 15632 }}, /* 15632 360 */ {.type There, {.p 360 }}, /* 15632 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15640 */+ {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15640 */ {.type Here, {.p 15640 }}, /* 15640 360 */ {.type There, {.p 360 }}, /* 15640 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15648 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15648 */ {.type Here, {.p 15648 }}, /* 15648 360 */ {.type There, {.p 360 }}, /* 15648 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 15656 */+ {.type FromDictionary, {.p L_C_compile_1}, .src = "dd L_C_compile_1"}, /* dd L_C_compile_1 15656 */ {.type Here, {.p 15656 }}, /* 15656 360 */ {.type There, {.p 360 }}, /* 15656 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 15664 */+ {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa ; immediate"}, /* dd C_tocfa ; immediate 15664 */ {.type Here, {.p 15664 }}, /* 15664 360 */ {.type There, {.p 360 }}, /* 15664 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15672 */+ {.type FromDictionary, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 15672 */ {.type Here, {.p 15672 }}, /* 15672 360 */ {.type There, {.p 360 }}, /* 15672 360 */- {.type FromDictionary, {.p L_C_compile_6}, .src = "dd L_C_compile_6"}, /* dd L_C_compile_6 15680 */+ {.type FromDictionary, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 15680 */ {.type Here, {.p 15680 }}, /* 15680 360 */ {.type There, {.p 360 }}, /* 15680 360 */- {.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 FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15688 */ {.type Here, {.p 15688 }}, /* 15688 360 */ {.type There, {.p 360 }}, /* 15688 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15696 */+ {.type FromDictionary, {.p L_C_compile_2}, .src = "dd L_C_compile_2"}, /* dd L_C_compile_2 15696 */ {.type Here, {.p 15696 }}, /* 15696 360 */ {.type There, {.p 360 }}, /* 15696 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15704 */+ {.type Here, {.p 15696 }}, /* 15696 360 */+ {.type There, {.p 360 }}, /* 15696 360 */+ {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 15704 */ {.type Here, {.p 15704 }}, /* 15704 360 */ {.type There, {.p 360 }}, /* 15704 360 */ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15712 */@@ -5787,1182 +5785,1198 @@
{.type There, {.p 360 }}, /* 15712 360 */ {.type Here, {.p 15712 }}, /* 15712 360 */ {.type There, {.p 360 }}, /* 15712 360 */- {.type Here, {.p 15712 }}, /* 15712 360 */- {.type There, {.p 360 }}, /* 15712 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15720 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15720 */ {.type Here, {.p 15720 }}, /* 15720 360 */ {.type There, {.p 360 }}, /* 15720 360 */- {.type Here, {.p 15720 }}, /* 15720 360 */- {.type There, {.p 360 }}, /* 15720 360 */- {.type Header, {.hdr { 1, "]", /* C_close_bracket = 15736 */ colon }}}, /* CENTRY "]" close_bracket 1 h 15744 */+ {.type FromDictionary, {.p L_C_compile_3}, .src = "dd L_C_compile_3"}, /* dd L_C_compile_3 15728 */+ {.type Here, {.p 15728 }}, /* 15728 360 */+ {.type There, {.p 360 }}, /* 15728 360 */+ {.type Here, {.p 15728 }}, /* 15728 360 */+ {.type There, {.p 360 }}, /* 15728 360 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15736 */+ {.type Here, {.p 15736 }}, /* 15736 360 */+ {.type There, {.p 360 }}, /* 15736 360 */+ {.type FromDictionary, {.p C_number}, .src = "dd C_number"}, /* dd C_number 15744 */ {.type Here, {.p 15744 }}, /* 15744 360 */ {.type There, {.p 360 }}, /* 15744 360 */- {.type Here, {.p 15744 }}, /* 15744 360 */- {.type There, {.p 360 }}, /* 15744 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 15752 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 15752 */ {.type Here, {.p 15752 }}, /* 15752 360 */ {.type There, {.p 360 }}, /* 15752 360 */- {.type FromDictionary, {.p C_on}, .src = "dd C_on"}, /* dd C_on 15760 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 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_word}, .src = "dd C_word"}, /* dd C_word 15768 */+ {.type FromDictionary, {.p L_C_compile_4}, .src = "dd L_C_compile_4"}, /* dd L_C_compile_4 15768 */ {.type Here, {.p 15768 }}, /* 15768 360 */ {.type There, {.p 360 }}, /* 15768 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15776 */+ {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 15776 */ {.type Here, {.p 15776 }}, /* 15776 360 */ {.type There, {.p 360 }}, /* 15776 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15784 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15784 */ {.type Here, {.p 15784 }}, /* 15784 360 */ {.type There, {.p 360 }}, /* 15784 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 15792 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15792 */ {.type Here, {.p 15792 }}, /* 15792 360 */ {.type There, {.p 360 }}, /* 15792 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15800 */+ {.type FromDictionary, {.p L_C_compile_5}, .src = "dd L_C_compile_5"}, /* dd L_C_compile_5 15800 */ {.type Here, {.p 15800 }}, /* 15800 360 */ {.type There, {.p 360 }}, /* 15800 360 */- {.type FromDictionary, {.p L_C_close_bracket_1}, .src = "dd L_C_close_bracket_1"}, /* dd L_C_close_bracket_1 15808 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15808 */ {.type Here, {.p 15808 }}, /* 15808 360 */ {.type There, {.p 360 }}, /* 15808 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 15816 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15816 */ {.type Here, {.p 15816 }}, /* 15816 360 */ {.type There, {.p 360 }}, /* 15816 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 15824 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 15824 */ {.type Here, {.p 15824 }}, /* 15824 360 */ {.type There, {.p 360 }}, /* 15824 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15832 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 15832 */ {.type Here, {.p 15832 }}, /* 15832 360 */ {.type There, {.p 360 }}, /* 15832 360 */- {.type FromDictionary, {.p L_C_close_bracket_2}, .src = "dd L_C_close_bracket_2"}, /* dd L_C_close_bracket_2 15840 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15840 */ {.type Here, {.p 15840 }}, /* 15840 360 */ {.type There, {.p 360 }}, /* 15840 360 */- {.type Here, {.p 15840 }}, /* 15840 360 */- {.type There, {.p 360 }}, /* 15840 360 */- {.type FromDictionary, {.p C_compile}, .src = "dd C_compile"}, /* dd C_compile 15848 */+ {.type FromDictionary, {.p L_C_compile_6}, .src = "dd L_C_compile_6"}, /* dd L_C_compile_6 15848 */ {.type Here, {.p 15848 }}, /* 15848 360 */ {.type There, {.p 360 }}, /* 15848 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 15856 */+ {.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 M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15864 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15864 */ {.type Here, {.p 15864 }}, /* 15864 360 */ {.type There, {.p 360 }}, /* 15864 360 */- {.type Here, {.p 15864 }}, /* 15864 360 */- {.type There, {.p 360 }}, /* 15864 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15872 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15872 */ {.type Here, {.p 15872 }}, /* 15872 360 */ {.type There, {.p 360 }}, /* 15872 360 */- {.type FromDictionary, {.p L_C_close_bracket_3}, .src = "dd L_C_close_bracket_3"}, /* dd L_C_close_bracket_3 15880 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15880 */ {.type Here, {.p 15880 }}, /* 15880 360 */ {.type There, {.p 360 }}, /* 15880 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15888 */+ {.type Here, {.p 15880 }}, /* 15880 360 */+ {.type There, {.p 360 }}, /* 15880 360 */+ {.type Here, {.p 15880 }}, /* 15880 360 */+ {.type There, {.p 360 }}, /* 15880 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15888 */ {.type Here, {.p 15888 }}, /* 15888 360 */ {.type There, {.p 360 }}, /* 15888 360 */- {.type FromDictionary, {.p L_C_close_bracket}, .src = "dd L_C_close_bracket"}, /* dd L_C_close_bracket 15896 */- {.type Here, {.p 15896 }}, /* 15896 360 */- {.type There, {.p 360 }}, /* 15896 360 */- {.type Here, {.p 15896 }}, /* 15896 360 */- {.type There, {.p 360 }}, /* 15896 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15904 */- {.type Here, {.p 15904 }}, /* 15904 360 */- {.type There, {.p 360 }}, /* 15904 360 */- {.type Here, {.p 15904 }}, /* 15904 360 */- {.type There, {.p 360 }}, /* 15904 360 */- {.type IHeader, {.hdr { 1, "[", /* CI_open_bracket = 15920 */ colon }}}, /* CIENTRY "[" open_bracket 1 h 15928 */+ {.type Here, {.p 15888 }}, /* 15888 360 */+ {.type There, {.p 360 }}, /* 15888 360 */+ {.type Header, {.hdr { 1, "]", /* C_close_bracket = 15904 */ colon }}}, /* CENTRY "]" close_bracket 1 h 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 MV_State}, .src = "dd MV_State"}, /* dd MV_State 15920 */+ {.type Here, {.p 15920 }}, /* 15920 360 */+ {.type There, {.p 360 }}, /* 15920 360 */+ {.type FromDictionary, {.p C_on}, .src = "dd C_on"}, /* dd C_on 15928 */ {.type Here, {.p 15928 }}, /* 15928 360 */ {.type There, {.p 360 }}, /* 15928 360 */ {.type Here, {.p 15928 }}, /* 15928 360 */ {.type There, {.p 360 }}, /* 15928 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 15936 */+ {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 15936 */ {.type Here, {.p 15936 }}, /* 15936 360 */ {.type There, {.p 360 }}, /* 15936 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off"}, /* dd C_off 15944 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15944 */ {.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 FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 15952 */ {.type Here, {.p 15952 }}, /* 15952 360 */ {.type There, {.p 360 }}, /* 15952 360 */- {.type Header, {.hdr { 6, "smudge", /* C_smudge = 15968 */ colon }}}, /* CENTRY "smudge" smudge 6 h 15976 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 15960 */+ {.type Here, {.p 15960 }}, /* 15960 360 */+ {.type There, {.p 360 }}, /* 15960 360 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15968 */+ {.type Here, {.p 15968 }}, /* 15968 360 */+ {.type There, {.p 360 }}, /* 15968 360 */+ {.type FromDictionary, {.p L_C_close_bracket_1}, .src = "dd L_C_close_bracket_1"}, /* dd L_C_close_bracket_1 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_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 15984 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 15984 */ {.type Here, {.p 15984 }}, /* 15984 360 */ {.type There, {.p 360 }}, /* 15984 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15992 */+ {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 15992 */ {.type Here, {.p 15992 }}, /* 15992 360 */ {.type There, {.p 360 }}, /* 15992 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16000 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 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 FromDictionary, {.p L_C_close_bracket_2}, .src = "dd L_C_close_bracket_2"}, /* dd L_C_close_bracket_2 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 16008 }}, /* 16008 360 */+ {.type There, {.p 360 }}, /* 16008 360 */+ {.type FromDictionary, {.p C_compile}, .src = "dd C_compile"}, /* dd C_compile 16016 */ {.type Here, {.p 16016 }}, /* 16016 360 */ {.type There, {.p 360 }}, /* 16016 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16024 */+ {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 16024 */ {.type Here, {.p 16024 }}, /* 16024 360 */ {.type There, {.p 360 }}, /* 16024 360 */- {.type Absolute, {.p 64}}, /* dd 64 16032 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16032 */ {.type Here, {.p 16032 }}, /* 16032 360 */ {.type There, {.p 360 }}, /* 16032 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 16040 */+ {.type Here, {.p 16032 }}, /* 16032 360 */+ {.type There, {.p 360 }}, /* 16032 360 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16040 */ {.type Here, {.p 16040 }}, /* 16040 360 */ {.type There, {.p 360 }}, /* 16040 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16048 */+ {.type FromDictionary, {.p L_C_close_bracket_3}, .src = "dd L_C_close_bracket_3"}, /* dd L_C_close_bracket_3 16048 */ {.type Here, {.p 16048 }}, /* 16048 360 */ {.type There, {.p 360 }}, /* 16048 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 16056 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 16056 */ {.type Here, {.p 16056 }}, /* 16056 360 */ {.type There, {.p 360 }}, /* 16056 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16064 */+ {.type FromDictionary, {.p L_C_close_bracket}, .src = "dd L_C_close_bracket"}, /* dd L_C_close_bracket 16064 */ {.type Here, {.p 16064 }}, /* 16064 360 */ {.type There, {.p 360 }}, /* 16064 360 */- {.type Header, {.hdr { 6, "reveal", /* C_reveal = 16080 */ colon }}}, /* CENTRY "reveal" reveal 6 h 16088 */- {.type Here, {.p 16088 }}, /* 16088 360 */- {.type There, {.p 360 }}, /* 16088 360 */- {.type Here, {.p 16088 }}, /* 16088 360 */- {.type There, {.p 360 }}, /* 16088 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16096 */+ {.type Here, {.p 16064 }}, /* 16064 360 */+ {.type There, {.p 360 }}, /* 16064 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 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 IHeader, {.hdr { 1, "[", /* CI_open_bracket = 16088 */ colon }}}, /* CIENTRY "[" open_bracket 1 h 16096 */ {.type Here, {.p 16096 }}, /* 16096 360 */ {.type There, {.p 360 }}, /* 16096 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16104 */+ {.type Here, {.p 16096 }}, /* 16096 360 */+ {.type There, {.p 360 }}, /* 16096 360 */+ {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 16104 */ {.type Here, {.p 16104 }}, /* 16104 360 */ {.type There, {.p 360 }}, /* 16104 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16112 */+ {.type FromDictionary, {.p C_off}, .src = "dd C_off"}, /* dd C_off 16112 */ {.type Here, {.p 16112 }}, /* 16112 360 */ {.type There, {.p 360 }}, /* 16112 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 16120 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16120 */ {.type Here, {.p 16120 }}, /* 16120 360 */ {.type There, {.p 360 }}, /* 16120 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16128 */- {.type Here, {.p 16128 }}, /* 16128 360 */- {.type There, {.p 360 }}, /* 16128 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16136 */- {.type Here, {.p 16136 }}, /* 16136 360 */- {.type There, {.p 360 }}, /* 16136 360 */- {.type Absolute, {.p 64}}, /* dd 64 16144 */+ {.type Header, {.hdr { 6, "smudge", /* C_smudge = 16136 */ colon }}}, /* CENTRY "smudge" smudge 6 h 16144 */ {.type Here, {.p 16144 }}, /* 16144 360 */ {.type There, {.p 360 }}, /* 16144 360 */- {.type FromDictionary, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 16152 */+ {.type Here, {.p 16144 }}, /* 16144 360 */+ {.type There, {.p 360 }}, /* 16144 360 */+ {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16152 */ {.type Here, {.p 16152 }}, /* 16152 360 */ {.type There, {.p 360 }}, /* 16152 360 */- {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 16160 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16160 */ {.type Here, {.p 16160 }}, /* 16160 360 */ {.type There, {.p 360 }}, /* 16160 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16168 */+ {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16168 */ {.type Here, {.p 16168 }}, /* 16168 360 */ {.type There, {.p 360 }}, /* 16168 360 */- {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 16176 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 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 FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16184 */ {.type Here, {.p 16184 }}, /* 16184 360 */ {.type There, {.p 360 }}, /* 16184 360 */- {.type Here, {.p 16184 }}, /* 16184 360 */- {.type There, {.p 360 }}, /* 16184 360 */- {.type Header, {.hdr { 1, ":", /* C_colon = 16200 */ colon }}}, /* CENTRY ":" colon 1 h 16208 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16192 */+ {.type Here, {.p 16192 }}, /* 16192 360 */+ {.type There, {.p 360 }}, /* 16192 360 */+ {.type Absolute, {.p 64}}, /* dd 64 16200 */+ {.type Here, {.p 16200 }}, /* 16200 360 */+ {.type There, {.p 360 }}, /* 16200 360 */+ {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 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 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 16216 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16216 */ {.type Here, {.p 16216 }}, /* 16216 360 */ {.type There, {.p 360 }}, /* 16216 360 */- {.type FromDictionary, {.p C_smudge}, .src = "dd C_smudge"}, /* dd C_smudge 16224 */+ {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 16224 */ {.type Here, {.p 16224 }}, /* 16224 360 */ {.type There, {.p 360 }}, /* 16224 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16232 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16232 */ {.type Here, {.p 16232 }}, /* 16232 360 */ {.type There, {.p 360 }}, /* 16232 360 */- {.type FromDictionary, {.p M_colon}, .src = "dd M_colon"}, /* dd M_colon 16240 */- {.type Here, {.p 16240 }}, /* 16240 360 */- {.type There, {.p 360 }}, /* 16240 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 16248 */- {.type Here, {.p 16248 }}, /* 16248 360 */- {.type There, {.p 360 }}, /* 16248 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( (colon) -- (colon) here )"}, /* dd C_here ; ( (colon) -- (colon) here ) 16256 */+ {.type Header, {.hdr { 6, "reveal", /* C_reveal = 16248 */ colon }}}, /* CENTRY "reveal" reveal 6 h 16256 */ {.type Here, {.p 16256 }}, /* 16256 360 */ {.type There, {.p 360 }}, /* 16256 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16264 */+ {.type Here, {.p 16256 }}, /* 16256 360 */+ {.type There, {.p 360 }}, /* 16256 360 */+ {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16264 */ {.type Here, {.p 16264 }}, /* 16264 360 */ {.type There, {.p 360 }}, /* 16264 360 */- {.type Absolute, {.p 1}}, /* dd 1 16272 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16272 */ {.type Here, {.p 16272 }}, /* 16272 360 */ {.type There, {.p 360 }}, /* 16272 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 16280 */+ {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16280 */ {.type Here, {.p 16280 }}, /* 16280 360 */ {.type There, {.p 360 }}, /* 16280 360 */- {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( (colon) here -- (colon) here-8 )"}, /* dd M_minus ; ( (colon) here -- (colon) here-8 ) 16288 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 16288 */ {.type Here, {.p 16288 }}, /* 16288 360 */ {.type There, {.p 360 }}, /* 16288 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 16296 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16296 */ {.type Here, {.p 16296 }}, /* 16296 360 */ {.type There, {.p 360 }}, /* 16296 360 */- {.type FromDictionary, {.p C_close_bracket}, .src = "dd C_close_bracket"}, /* dd C_close_bracket 16304 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16304 */ {.type Here, {.p 16304 }}, /* 16304 360 */ {.type There, {.p 360 }}, /* 16304 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16312 */+ {.type Absolute, {.p 64}}, /* dd 64 16312 */ {.type Here, {.p 16312 }}, /* 16312 360 */ {.type There, {.p 360 }}, /* 16312 360 */- {.type Here, {.p 16312 }}, /* 16312 360 */- {.type There, {.p 360 }}, /* 16312 360 */- {.type IHeader, {.hdr { 1, ";", /* CI_semicolon = 16328 */ colon }}}, /* CIENTRY ";" semicolon 1 h 16336 */+ {.type FromDictionary, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 16320 */+ {.type Here, {.p 16320 }}, /* 16320 360 */+ {.type There, {.p 360 }}, /* 16320 360 */+ {.type FromDictionary, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 16328 */+ {.type Here, {.p 16328 }}, /* 16328 360 */+ {.type There, {.p 360 }}, /* 16328 360 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16336 */ {.type Here, {.p 16336 }}, /* 16336 360 */ {.type There, {.p 360 }}, /* 16336 360 */- {.type Here, {.p 16336 }}, /* 16336 360 */- {.type There, {.p 360 }}, /* 16336 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16344 */+ {.type FromDictionary, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 16344 */ {.type Here, {.p 16344 }}, /* 16344 360 */ {.type There, {.p 360 }}, /* 16344 360 */ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16352 */ {.type Here, {.p 16352 }}, /* 16352 360 */ {.type There, {.p 360 }}, /* 16352 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16360 */- {.type Here, {.p 16360 }}, /* 16360 360 */- {.type There, {.p 360 }}, /* 16360 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 16368 */- {.type Here, {.p 16368 }}, /* 16368 360 */- {.type There, {.p 360 }}, /* 16368 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off"}, /* dd C_off 16376 */+ {.type Here, {.p 16352 }}, /* 16352 360 */+ {.type There, {.p 360 }}, /* 16352 360 */+ {.type Header, {.hdr { 1, ":", /* C_colon = 16368 */ colon }}}, /* CENTRY ":" colon 1 h 16376 */ {.type Here, {.p 16376 }}, /* 16376 360 */ {.type There, {.p 360 }}, /* 16376 360 */- {.type FromDictionary, {.p C_reveal}, .src = "dd C_reveal"}, /* dd C_reveal 16384 */+ {.type Here, {.p 16376 }}, /* 16376 360 */+ {.type There, {.p 360 }}, /* 16376 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 16384 */ {.type Here, {.p 16384 }}, /* 16384 360 */ {.type There, {.p 360 }}, /* 16384 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16392 */+ {.type FromDictionary, {.p C_smudge}, .src = "dd C_smudge"}, /* dd C_smudge 16392 */ {.type Here, {.p 16392 }}, /* 16392 360 */ {.type There, {.p 360 }}, /* 16392 360 */- {.type Here, {.p 16392 }}, /* 16392 360 */- {.type There, {.p 360 }}, /* 16392 360 */- {.type IHeader, {.hdr { 7, "recurse", /* CI_recurse = 16408 */ colon }}}, /* CIENTRY "recurse" recurse 7 h 16416 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16400 */+ {.type Here, {.p 16400 }}, /* 16400 360 */+ {.type There, {.p 360 }}, /* 16400 360 */+ {.type FromDictionary, {.p M_colon}, .src = "dd M_colon"}, /* dd M_colon 16408 */+ {.type Here, {.p 16408 }}, /* 16408 360 */+ {.type There, {.p 360 }}, /* 16408 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 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 FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16424 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( (colon) -- (colon) here )"}, /* dd C_here ; ( (colon) -- (colon) here ) 16424 */ {.type Here, {.p 16424 }}, /* 16424 360 */ {.type There, {.p 360 }}, /* 16424 360 */- {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16432 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16432 */ {.type Here, {.p 16432 }}, /* 16432 360 */ {.type There, {.p 360 }}, /* 16432 360 */- {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16440 */+ {.type Absolute, {.p 1}}, /* dd 1 16440 */ {.type Here, {.p 16440 }}, /* 16440 360 */ {.type There, {.p 360 }}, /* 16440 360 */- {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 16448 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 16448 */ {.type Here, {.p 16448 }}, /* 16448 360 */ {.type There, {.p 360 }}, /* 16448 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16456 */+ {.type FromDictionary, {.p M_minus}, .src = "dd M_minus ; ( (colon) here -- (colon) here-8 )"}, /* dd M_minus ; ( (colon) here -- (colon) here-8 ) 16456 */ {.type Here, {.p 16456 }}, /* 16456 360 */ {.type There, {.p 360 }}, /* 16456 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16464 */+ {.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 16464 */ {.type Here, {.p 16464 }}, /* 16464 360 */ {.type There, {.p 360 }}, /* 16464 360 */- {.type Here, {.p 16464 }}, /* 16464 360 */- {.type There, {.p 360 }}, /* 16464 360 */- {.type Header, {.hdr { 4, "char", /* C_char = 16480 */ colon }}}, /* CENTRY "char" char 4 ; ( -- c ) fetch the first character of the next word from input h 16488 */- {.type Here, {.p 16488 }}, /* 16488 360 */- {.type There, {.p 360 }}, /* 16488 360 */- {.type Here, {.p 16488 }}, /* 16488 360 */- {.type There, {.p 360 }}, /* 16488 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 16496 */- {.type Here, {.p 16496 }}, /* 16496 360 */- {.type There, {.p 360 }}, /* 16496 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; skip the count"}, /* dd C_1plus ; skip the count 16504 */+ {.type FromDictionary, {.p C_close_bracket}, .src = "dd C_close_bracket"}, /* dd C_close_bracket 16472 */+ {.type Here, {.p 16472 }}, /* 16472 360 */+ {.type There, {.p 360 }}, /* 16472 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16480 */+ {.type Here, {.p 16480 }}, /* 16480 360 */+ {.type There, {.p 360 }}, /* 16480 360 */+ {.type Here, {.p 16480 }}, /* 16480 360 */+ {.type There, {.p 360 }}, /* 16480 360 */+ {.type IHeader, {.hdr { 1, ";", /* CI_semicolon = 16496 */ colon }}}, /* CIENTRY ";" semicolon 1 h 16504 */ {.type Here, {.p 16504 }}, /* 16504 360 */ {.type There, {.p 360 }}, /* 16504 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; fetch the first character"}, /* dd M_cfetch ; fetch the first character 16512 */+ {.type Here, {.p 16504 }}, /* 16504 360 */+ {.type There, {.p 360 }}, /* 16504 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16512 */ {.type Here, {.p 16512 }}, /* 16512 360 */ {.type There, {.p 360 }}, /* 16512 360 */ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16520 */ {.type Here, {.p 16520 }}, /* 16520 360 */ {.type There, {.p 360 }}, /* 16520 360 */- {.type Here, {.p 16520 }}, /* 16520 360 */- {.type There, {.p 360 }}, /* 16520 360 */- {.type Header, {.hdr { 7, "literal", /* C_literal = 16536 */ colon }}}, /* CENTRY "literal" literal 7 ; ( n -- ) adds (literal) n to the dictionary h 16544 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16528 */+ {.type Here, {.p 16528 }}, /* 16528 360 */+ {.type There, {.p 360 }}, /* 16528 360 */+ {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 16536 */+ {.type Here, {.p 16536 }}, /* 16536 360 */+ {.type There, {.p 360 }}, /* 16536 360 */+ {.type FromDictionary, {.p C_off}, .src = "dd C_off"}, /* dd C_off 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 FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16552 */+ {.type FromDictionary, {.p C_reveal}, .src = "dd C_reveal"}, /* dd C_reveal 16552 */ {.type Here, {.p 16552 }}, /* 16552 360 */ {.type There, {.p 360 }}, /* 16552 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16560 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16560 */ {.type Here, {.p 16560 }}, /* 16560 360 */ {.type There, {.p 360 }}, /* 16560 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16568 */- {.type Here, {.p 16568 }}, /* 16568 360 */- {.type There, {.p 360 }}, /* 16568 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 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 16560 }}, /* 16560 360 */+ {.type There, {.p 360 }}, /* 16560 360 */+ {.type IHeader, {.hdr { 7, "recurse", /* CI_recurse = 16576 */ colon }}}, /* CIENTRY "recurse" recurse 7 h 16584 */ {.type Here, {.p 16584 }}, /* 16584 360 */ {.type There, {.p 360 }}, /* 16584 360 */ {.type Here, {.p 16584 }}, /* 16584 360 */ {.type There, {.p 360 }}, /* 16584 360 */- {.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 16608 */ colon }}}, /* CENTRY "sliteral" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary h 16616 */+ {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 16592 */+ {.type Here, {.p 16592 }}, /* 16592 360 */+ {.type There, {.p 360 }}, /* 16592 360 */+ {.type FromDictionary, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 16600 */+ {.type Here, {.p 16600 }}, /* 16600 360 */+ {.type There, {.p 360 }}, /* 16600 360 */+ {.type FromDictionary, {.p C_cell_plus}, .src = "dd C_cell_plus"}, /* dd C_cell_plus 16608 */+ {.type Here, {.p 16608 }}, /* 16608 360 */+ {.type There, {.p 360 }}, /* 16608 360 */+ {.type FromDictionary, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 16616 */ {.type Here, {.p 16616 }}, /* 16616 360 */ {.type There, {.p 360 }}, /* 16616 360 */- {.type Here, {.p 16616 }}, /* 16616 360 */- {.type There, {.p 360 }}, /* 16616 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16624 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16624 */ {.type Here, {.p 16624 }}, /* 16624 360 */ {.type There, {.p 360 }}, /* 16624 360 */- {.type FromDictionary, {.p M_sliteral}, .src = "dd M_sliteral"}, /* dd M_sliteral 16632 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16632 */ {.type Here, {.p 16632 }}, /* 16632 360 */ {.type There, {.p 360 }}, /* 16632 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; adds (sliteral) to the dictionary"}, /* dd C_comma ; adds (sliteral) to the dictionary 16640 */- {.type Here, {.p 16640 }}, /* 16640 360 */- {.type There, {.p 360 }}, /* 16640 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 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 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 16656 */+ {.type Here, {.p 16632 }}, /* 16632 360 */+ {.type There, {.p 360 }}, /* 16632 360 */+ {.type Header, {.hdr { 4, "char", /* C_char = 16648 */ colon }}}, /* CENTRY "char" char 4 ; ( -- c ) fetch the first character of the next word from input h 16656 */ {.type Here, {.p 16656 }}, /* 16656 360 */ {.type There, {.p 360 }}, /* 16656 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( here 'Wordb 'Wordb )"}, /* dd M_dup ; ( here 'Wordb 'Wordb ) 16664 */+ {.type Here, {.p 16656 }}, /* 16656 360 */+ {.type There, {.p 360 }}, /* 16656 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 16664 */ {.type Here, {.p 16664 }}, /* 16664 360 */ {.type There, {.p 360 }}, /* 16664 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( here 'Wordb count )"}, /* dd M_cfetch ; ( here 'Wordb count ) 16672 */+ {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; skip the count"}, /* dd C_1plus ; skip the count 16672 */ {.type Here, {.p 16672 }}, /* 16672 360 */ {.type There, {.p 360 }}, /* 16672 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( here 'Wordb count+1 )"}, /* dd C_1plus ; ( here 'Wordb count+1 ) 16680 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; fetch the first character"}, /* dd M_cfetch ; fetch the first character 16680 */ {.type Here, {.p 16680 }}, /* 16680 360 */ {.type There, {.p 360 }}, /* 16680 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( here 'Wordb ) (R count+1 )"}, /* dd M_rpush ; ( here 'Wordb ) (R count+1 ) 16688 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16688 */ {.type Here, {.p 16688 }}, /* 16688 360 */ {.type There, {.p 360 }}, /* 16688 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Wordb here ) (R count+1 )"}, /* dd M_xswap ; ( 'Wordb here ) (R count+1 ) 16696 */- {.type Here, {.p 16696 }}, /* 16696 360 */- {.type There, {.p 360 }}, /* 16696 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 ) 16704 */- {.type Here, {.p 16704 }}, /* 16704 360 */- {.type There, {.p 360 }}, /* 16704 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; ( ) (R count+1 )"}, /* dd M_cmove ; ( ) (R count+1 ) 16712 */+ {.type Here, {.p 16688 }}, /* 16688 360 */+ {.type There, {.p 360 }}, /* 16688 360 */+ {.type Header, {.hdr { 7, "literal", /* C_literal = 16704 */ colon }}}, /* CENTRY "literal" literal 7 ; ( n -- ) adds (literal) n to the dictionary h 16712 */ {.type Here, {.p 16712 }}, /* 16712 360 */ {.type There, {.p 360 }}, /* 16712 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 16720 */+ {.type Here, {.p 16712 }}, /* 16712 360 */+ {.type There, {.p 360 }}, /* 16712 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16720 */ {.type Here, {.p 16720 }}, /* 16720 360 */ {.type There, {.p 360 }}, /* 16720 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; here = here+count+1"}, /* dd C_allot ; here = here+count+1 16728 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16728 */ {.type Here, {.p 16728 }}, /* 16728 360 */ {.type There, {.p 360 }}, /* 16728 360 */- {.type FromDictionary, {.p C_align}, .src = "dd C_align ; align here"}, /* dd C_align ; align here 16736 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16736 */ {.type Here, {.p 16736 }}, /* 16736 360 */ {.type There, {.p 360 }}, /* 16736 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16744 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16744 */ {.type Here, {.p 16744 }}, /* 16744 360 */ {.type There, {.p 360 }}, /* 16744 360 */- {.type Here, {.p 16744 }}, /* 16744 360 */- {.type There, {.p 360 }}, /* 16744 360 */- {.type Header, {.hdr { 6, "string", /* C_string = 16760 */ colon }}}, /* CENTRY "string" string 6 ; ( -- ) store the following word as a counted string onto the dictionary h 16768 */- {.type Here, {.p 16768 }}, /* 16768 360 */- {.type There, {.p 360 }}, /* 16768 360 */- {.type Here, {.p 16768 }}, /* 16768 360 */- {.type There, {.p 360 }}, /* 16768 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 16776 */- {.type Here, {.p 16776 }}, /* 16776 360 */- {.type There, {.p 360 }}, /* 16776 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 16784 */+ {.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 { 8, "sliteral", /* C_sliteral = 16776 */ colon }}}, /* CENTRY "sliteral" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary h 16784 */ {.type Here, {.p 16784 }}, /* 16784 360 */ {.type There, {.p 360 }}, /* 16784 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16792 */+ {.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_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 16800 */+ {.type FromDictionary, {.p M_sliteral}, .src = "dd M_sliteral"}, /* dd M_sliteral 16800 */ {.type Here, {.p 16800 }}, /* 16800 360 */ {.type There, {.p 360 }}, /* 16800 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 16808 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; adds (sliteral) to the dictionary"}, /* dd C_comma ; adds (sliteral) to the dictionary 16808 */ {.type Here, {.p 16808 }}, /* 16808 360 */ {.type There, {.p 360 }}, /* 16808 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16816 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 16816 */ {.type Here, {.p 16816 }}, /* 16816 360 */ {.type There, {.p 360 }}, /* 16816 360 */- {.type FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch"}, /* dd M_rfetch 16824 */+ {.type Here, {.p 16816 }}, /* 16816 360 */+ {.type There, {.p 360 }}, /* 16816 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 16824 */ {.type Here, {.p 16824 }}, /* 16824 360 */ {.type There, {.p 360 }}, /* 16824 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 16832 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( here 'Wordb 'Wordb )"}, /* dd M_dup ; ( here 'Wordb 'Wordb ) 16832 */ {.type Here, {.p 16832 }}, /* 16832 360 */ {.type There, {.p 360 }}, /* 16832 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 16840 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( here 'Wordb count )"}, /* dd M_cfetch ; ( here 'Wordb count ) 16840 */ {.type Here, {.p 16840 }}, /* 16840 360 */ {.type There, {.p 360 }}, /* 16840 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot"}, /* dd C_allot 16848 */+ {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( here 'Wordb count+1 )"}, /* dd C_1plus ; ( here 'Wordb count+1 ) 16848 */ {.type Here, {.p 16848 }}, /* 16848 360 */ {.type There, {.p 360 }}, /* 16848 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16856 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( here 'Wordb ) (R count+1 )"}, /* dd M_rpush ; ( here 'Wordb ) (R count+1 ) 16856 */ {.type Here, {.p 16856 }}, /* 16856 360 */ {.type There, {.p 360 }}, /* 16856 360 */- {.type Here, {.p 16856 }}, /* 16856 360 */- {.type There, {.p 360 }}, /* 16856 360 */- {.type IHeader, {.hdr { 6, "[char]", /* CI_char_brackets = 16872 */ colon }}}, /* CIENTRY "[char]" char_brackets 6 ; take the next character from the input stream during compilation h 16880 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( 'Wordb here ) (R count+1 )"}, /* dd M_xswap ; ( 'Wordb here ) (R count+1 ) 16864 */+ {.type Here, {.p 16864 }}, /* 16864 360 */+ {.type There, {.p 360 }}, /* 16864 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 ) 16872 */+ {.type Here, {.p 16872 }}, /* 16872 360 */+ {.type There, {.p 360 }}, /* 16872 360 */+ {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove ; ( ) (R count+1 )"}, /* dd M_cmove ; ( ) (R count+1 ) 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_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 16888 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 16888 */ {.type Here, {.p 16888 }}, /* 16888 360 */ {.type There, {.p 360 }}, /* 16888 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 16896 */+ {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; here = here+count+1"}, /* dd C_allot ; here = here+count+1 16896 */ {.type Here, {.p 16896 }}, /* 16896 360 */ {.type There, {.p 360 }}, /* 16896 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16904 */+ {.type FromDictionary, {.p C_align}, .src = "dd C_align ; align here"}, /* dd C_align ; align here 16904 */ {.type Here, {.p 16904 }}, /* 16904 360 */ {.type There, {.p 360 }}, /* 16904 360 */- {.type FromDictionary, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 16912 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16912 */ {.type Here, {.p 16912 }}, /* 16912 360 */ {.type There, {.p 360 }}, /* 16912 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16920 */- {.type Here, {.p 16920 }}, /* 16920 360 */- {.type There, {.p 360 }}, /* 16920 360 */- {.type Here, {.p 16920 }}, /* 16920 360 */- {.type There, {.p 360 }}, /* 16920 360 */- {.type IHeader, {.hdr { 3, "[']", /* CI_quote_brackets = 16936 */ colon }}}, /* CIENTRY "[']" quote_brackets 3 ; take the address of next token from the input stream during compilation h 16944 */+ {.type Here, {.p 16912 }}, /* 16912 360 */+ {.type There, {.p 360 }}, /* 16912 360 */+ {.type Header, {.hdr { 6, "string", /* C_string = 16928 */ colon }}}, /* CENTRY "string" string 6 ; ( -- ) store the following word as a counted string onto the dictionary h 16936 */+ {.type Here, {.p 16936 }}, /* 16936 360 */+ {.type There, {.p 360 }}, /* 16936 360 */+ {.type Here, {.p 16936 }}, /* 16936 360 */+ {.type There, {.p 360 }}, /* 16936 360 */+ {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 16944 */ {.type Here, {.p 16944 }}, /* 16944 360 */ {.type There, {.p 360 }}, /* 16944 360 */- {.type Here, {.p 16944 }}, /* 16944 360 */- {.type There, {.p 360 }}, /* 16944 360 */- {.type FromDictionary, {.p C_single_quote}, .src = "dd C_single_quote"}, /* dd C_single_quote 16952 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 16952 */ {.type Here, {.p 16952 }}, /* 16952 360 */ {.type There, {.p 360 }}, /* 16952 360 */- {.type FromDictionary, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 16960 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 16960 */ {.type Here, {.p 16960 }}, /* 16960 360 */ {.type There, {.p 360 }}, /* 16960 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16968 */+ {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 16968 */ {.type Here, {.p 16968 }}, /* 16968 360 */ {.type There, {.p 360 }}, /* 16968 360 */- {.type Here, {.p 16968 }}, /* 16968 360 */- {.type There, {.p 360 }}, /* 16968 360 */- {.type IHeader, {.hdr { 1, "(", /* CI_openparen = 16984 */ colon }}}, /* CIENTRY "(" openparen 1 ; ignore until ) from the input stream during compilation h 16992 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 16976 */+ {.type Here, {.p 16976 }}, /* 16976 360 */+ {.type There, {.p 360 }}, /* 16976 360 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16984 */+ {.type Here, {.p 16984 }}, /* 16984 360 */+ {.type There, {.p 360 }}, /* 16984 360 */+ {.type FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch"}, /* dd M_rfetch 16992 */ {.type Here, {.p 16992 }}, /* 16992 360 */ {.type There, {.p 360 }}, /* 16992 360 */- {.type Here, {.p 16992 }}, /* 16992 360 */- {.type There, {.p 360 }}, /* 16992 360 */- {.type FromDictionary, {.p C_closeparen}, .src = "dd C_closeparen"}, /* dd C_closeparen 17000 */+ {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17000 */ {.type Here, {.p 17000 }}, /* 17000 360 */ {.type There, {.p 360 }}, /* 17000 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 17008 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 17008 */ {.type Here, {.p 17008 }}, /* 17008 360 */ {.type There, {.p 360 }}, /* 17008 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17016 */+ {.type FromDictionary, {.p C_allot}, .src = "dd C_allot"}, /* dd C_allot 17016 */ {.type Here, {.p 17016 }}, /* 17016 360 */ {.type There, {.p 360 }}, /* 17016 360 */- {.type Here, {.p 17016 }}, /* 17016 360 */- {.type There, {.p 360 }}, /* 17016 360 */- {.type IHeader, {.hdr { 1, "\\", /* CI_backslash = 17032 */ colon }}}, /* CIENTRY "\\" backslash 1 ; if the line is longer than 4096, C_get throws an error h 17040 */- {.type Here, {.p 17040 }}, /* 17040 360 */- {.type There, {.p 360 }}, /* 17040 360 */- {.type Here, {.p 17040 }}, /* 17040 360 */- {.type There, {.p 360 }}, /* 17040 360 */- {.type FromDictionary, {.p C_line}, .src = "dd C_line"}, /* dd C_line 17048 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17024 */+ {.type Here, {.p 17024 }}, /* 17024 360 */+ {.type There, {.p 360 }}, /* 17024 360 */+ {.type Here, {.p 17024 }}, /* 17024 360 */+ {.type There, {.p 360 }}, /* 17024 360 */+ {.type IHeader, {.hdr { 6, "[char]", /* CI_char_brackets = 17040 */ colon }}}, /* CIENTRY "[char]" char_brackets 6 ; take the next character from the input stream during compilation h 17048 */ {.type Here, {.p 17048 }}, /* 17048 360 */ {.type There, {.p 360 }}, /* 17048 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17056 */+ {.type Here, {.p 17048 }}, /* 17048 360 */+ {.type There, {.p 360 }}, /* 17048 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 17056 */ {.type Here, {.p 17056 }}, /* 17056 360 */ {.type There, {.p 360 }}, /* 17056 360 */- {.type Here, {.p 17056 }}, /* 17056 360 */- {.type There, {.p 360 }}, /* 17056 360 */- {.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 17080 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 17088 */+ {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 17064 */+ {.type Here, {.p 17064 }}, /* 17064 360 */+ {.type There, {.p 360 }}, /* 17064 360 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 17072 */+ {.type Here, {.p 17072 }}, /* 17072 360 */+ {.type There, {.p 360 }}, /* 17072 360 */+ {.type FromDictionary, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 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 FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 17096 */- {.type Here, {.p 17096 }}, /* 17096 360 */- {.type There, {.p 360 }}, /* 17096 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17104 */- {.type Here, {.p 17104 }}, /* 17104 360 */- {.type There, {.p 360 }}, /* 17104 360 */- {.type FromDictionary, {.p L_C_qabort_parens}, .src = "dd L_C_qabort_parens"}, /* dd L_C_qabort_parens 17112 */+ {.type IHeader, {.hdr { 3, "[']", /* CI_quote_brackets = 17104 */ colon }}}, /* CIENTRY "[']" quote_brackets 3 ; take the address of next token from the input stream during compilation h 17112 */ {.type Here, {.p 17112 }}, /* 17112 360 */ {.type There, {.p 360 }}, /* 17112 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 17120 */+ {.type Here, {.p 17112 }}, /* 17112 360 */+ {.type There, {.p 360 }}, /* 17112 360 */+ {.type FromDictionary, {.p C_single_quote}, .src = "dd C_single_quote"}, /* dd C_single_quote 17120 */ {.type Here, {.p 17120 }}, /* 17120 360 */ {.type There, {.p 360 }}, /* 17120 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17128 */+ {.type FromDictionary, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 17128 */ {.type Here, {.p 17128 }}, /* 17128 360 */ {.type There, {.p 360 }}, /* 17128 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 17136 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17136 */ {.type Here, {.p 17136 }}, /* 17136 360 */ {.type There, {.p 360 }}, /* 17136 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 17144 */- {.type Here, {.p 17144 }}, /* 17144 360 */- {.type There, {.p 360 }}, /* 17144 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 17152 */- {.type Here, {.p 17152 }}, /* 17152 360 */- {.type There, {.p 360 }}, /* 17152 360 */- {.type FromDictionary, {.p L_C_qabort_parens_1}, .src = "dd L_C_qabort_parens_1"}, /* dd L_C_qabort_parens_1 17160 */+ {.type Here, {.p 17136 }}, /* 17136 360 */+ {.type There, {.p 360 }}, /* 17136 360 */+ {.type IHeader, {.hdr { 1, "(", /* CI_openparen = 17152 */ colon }}}, /* CIENTRY "(" openparen 1 ; ignore until ) from the input stream during compilation h 17160 */ {.type Here, {.p 17160 }}, /* 17160 360 */ {.type There, {.p 360 }}, /* 17160 360 */ {.type Here, {.p 17160 }}, /* 17160 360 */ {.type There, {.p 360 }}, /* 17160 360 */- {.type FromDictionary, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 17168 */+ {.type FromDictionary, {.p C_closeparen}, .src = "dd C_closeparen"}, /* dd C_closeparen 17168 */ {.type Here, {.p 17168 }}, /* 17168 360 */ {.type There, {.p 360 }}, /* 17168 360 */- {.type Here, {.p 17168 }}, /* 17168 360 */- {.type There, {.p 360 }}, /* 17168 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17176 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 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 IHeader, {.hdr { 6, "abort\"", /* CI_abort_double_quote = 17192 */ colon }}}, /* CIENTRY "abort\"" abort_double_quote 6 h 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 FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17208 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17184 */+ {.type Here, {.p 17184 }}, /* 17184 360 */+ {.type There, {.p 360 }}, /* 17184 360 */+ {.type Here, {.p 17184 }}, /* 17184 360 */+ {.type There, {.p 360 }}, /* 17184 360 */+ {.type IHeader, {.hdr { 1, "\\", /* CI_backslash = 17200 */ colon }}}, /* CIENTRY "\\" backslash 1 ; if the line is longer than 4096, C_get throws an error h 17208 */ {.type Here, {.p 17208 }}, /* 17208 360 */ {.type There, {.p 360 }}, /* 17208 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17216 */+ {.type Here, {.p 17208 }}, /* 17208 360 */+ {.type There, {.p 360 }}, /* 17208 360 */+ {.type FromDictionary, {.p C_line}, .src = "dd C_line"}, /* dd C_line 17216 */ {.type Here, {.p 17216 }}, /* 17216 360 */ {.type There, {.p 360 }}, /* 17216 360 */- {.type FromDictionary, {.p C_qabort_parens}, .src = "dd C_qabort_parens"}, /* dd C_qabort_parens 17224 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17224 */ {.type Here, {.p 17224 }}, /* 17224 360 */ {.type There, {.p 360 }}, /* 17224 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17232 */- {.type Here, {.p 17232 }}, /* 17232 360 */- {.type There, {.p 360 }}, /* 17232 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17240 */- {.type Here, {.p 17240 }}, /* 17240 360 */- {.type There, {.p 360 }}, /* 17240 360 */- {.type Here, {.p 17240 }}, /* 17240 360 */- {.type There, {.p 360 }}, /* 17240 360 */-/* ; could make this work for strings longer than 256 bytes. */ {.type Here, {.p 17240 }}, /* 17240 360 */- {.type There, {.p 360 }}, /* 17240 360 */-/* ; But, for now, strings longer than 256 bytes are not supported by " or c" or s" or ." */ {.type Here, {.p 17240 }}, /* 17240 360 */- {.type There, {.p 360 }}, /* 17240 360 */-/* ; this does not store the count in the dictionary */ {.type Here, {.p 17240 }}, /* 17240 360 */- {.type There, {.p 360 }}, /* 17240 360 */- {.type Header, {.hdr { 1, "\"", /* C_double_quote = 17256 */ 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 17264 */+ {.type Here, {.p 17224 }}, /* 17224 360 */+ {.type There, {.p 360 }}, /* 17224 360 */+ {.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 17248 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 17256 */+ {.type Here, {.p 17256 }}, /* 17256 360 */+ {.type There, {.p 360 }}, /* 17256 360 */+ {.type Here, {.p 17256 }}, /* 17256 360 */+ {.type There, {.p 360 }}, /* 17256 360 */+ {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 17264 */ {.type Here, {.p 17264 }}, /* 17264 360 */ {.type There, {.p 360 }}, /* 17264 360 */- {.type Here, {.p 17264 }}, /* 17264 360 */- {.type There, {.p 360 }}, /* 17264 360 */- {.type FromDictionary, {.p C_counted_doublequote}, .src = "dd C_counted_doublequote ; ( 'Wordb )"}, /* dd C_counted_doublequote ; ( 'Wordb ) 17272 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17272 */ {.type Here, {.p 17272 }}, /* 17272 360 */ {.type There, {.p 360 }}, /* 17272 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( 'Wordb+1 count )"}, /* dd C_count ; ( 'Wordb+1 count ) 17280 */+ {.type FromDictionary, {.p L_C_qabort_parens}, .src = "dd L_C_qabort_parens"}, /* dd L_C_qabort_parens 17280 */ {.type Here, {.p 17280 }}, /* 17280 360 */ {.type There, {.p 360 }}, /* 17280 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'Wordb+1 ) (R count )"}, /* dd M_rpush ; ( 'Wordb+1 ) (R count ) 17288 */+ {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 17288 */ {.type Here, {.p 17288 }}, /* 17288 360 */ {.type There, {.p 360 }}, /* 17288 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 'Wordb+1 here ) (R count )"}, /* dd C_here ; ( 'Wordb+1 here ) (R count ) 17296 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17296 */ {.type Here, {.p 17296 }}, /* 17296 360 */ {.type There, {.p 360 }}, /* 17296 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 ) 17304 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 17304 */ {.type Here, {.p 17304 }}, /* 17304 360 */ {.type There, {.p 360 }}, /* 17304 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17312 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 17312 */ {.type Here, {.p 17312 }}, /* 17312 360 */ {.type There, {.p 360 }}, /* 17312 360 */- {.type Here, {.p 17312 }}, /* 17312 360 */- {.type There, {.p 360 }}, /* 17312 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 17320 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 17320 */ {.type Here, {.p 17320 }}, /* 17320 360 */ {.type There, {.p 360 }}, /* 17320 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( here count )"}, /* dd M_rpop ; ( here count ) 17328 */+ {.type FromDictionary, {.p L_C_qabort_parens_1}, .src = "dd L_C_qabort_parens_1"}, /* dd L_C_qabort_parens_1 17328 */ {.type Here, {.p 17328 }}, /* 17328 360 */ {.type There, {.p 360 }}, /* 17328 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( here count count )"}, /* dd M_dup ; ( here count count ) 17336 */+ {.type Here, {.p 17328 }}, /* 17328 360 */+ {.type There, {.p 360 }}, /* 17328 360 */+ {.type FromDictionary, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 17336 */ {.type Here, {.p 17336 }}, /* 17336 360 */ {.type There, {.p 360 }}, /* 17336 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( here count ) here = here+count"}, /* dd C_allot ; ( here count ) here = here+count 17344 */+ {.type Here, {.p 17336 }}, /* 17336 360 */+ {.type There, {.p 360 }}, /* 17336 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17344 */ {.type Here, {.p 17344 }}, /* 17344 360 */ {.type There, {.p 360 }}, /* 17344 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17352 */- {.type Here, {.p 17352 }}, /* 17352 360 */- {.type There, {.p 360 }}, /* 17352 360 */- {.type Here, {.p 17352 }}, /* 17352 360 */- {.type There, {.p 360 }}, /* 17352 360 */- {.type Header, {.hdr { 2, "c\"", /* C_cdouble_quote = 17368 */ colon }}}, /* CENTRY "c\"" cdouble_quote 2 ; ( | ..." -- 'counted-string ) stores counted string in the dictionary. For use in interpretive mode. h 17376 */+ {.type Here, {.p 17344 }}, /* 17344 360 */+ {.type There, {.p 360 }}, /* 17344 360 */+ {.type IHeader, {.hdr { 6, "abort\"", /* CI_abort_double_quote = 17360 */ colon }}}, /* CIENTRY "abort\"" abort_double_quote 6 h 17368 */+ {.type Here, {.p 17368 }}, /* 17368 360 */+ {.type There, {.p 360 }}, /* 17368 360 */+ {.type Here, {.p 17368 }}, /* 17368 360 */+ {.type There, {.p 360 }}, /* 17368 360 */+ {.type FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17376 */ {.type Here, {.p 17376 }}, /* 17376 360 */ {.type There, {.p 360 }}, /* 17376 360 */- {.type Here, {.p 17376 }}, /* 17376 360 */- {.type There, {.p 360 }}, /* 17376 360 */- {.type FromDictionary, {.p C_counted_doublequote}, .src = "dd C_counted_doublequote ; ( 'Wordb )"}, /* dd C_counted_doublequote ; ( 'Wordb ) 17384 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17384 */ {.type Here, {.p 17384 }}, /* 17384 360 */ {.type There, {.p 360 }}, /* 17384 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Wordb 'Wordb )"}, /* dd M_dup ; ( 'Wordb 'Wordb ) 17392 */+ {.type FromDictionary, {.p C_qabort_parens}, .src = "dd C_qabort_parens"}, /* dd C_qabort_parens 17392 */ {.type Here, {.p 17392 }}, /* 17392 360 */ {.type There, {.p 360 }}, /* 17392 360 */- {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'Wordb count )"}, /* dd M_cfetch ; ( 'Wordb count ) 17400 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17400 */ {.type Here, {.p 17400 }}, /* 17400 360 */ {.type There, {.p 360 }}, /* 17400 360 */- {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( 'Wordb count+1 )"}, /* dd C_1plus ; ( 'Wordb count+1 ) 17408 */+ {.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 FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'Wordb ) (R count+1 )"}, /* dd M_rpush ; ( 'Wordb ) (R count+1 ) 17416 */- {.type Here, {.p 17416 }}, /* 17416 360 */- {.type There, {.p 360 }}, /* 17416 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 'Wordb here ) (R count+1 )"}, /* dd C_here ; ( 'Wordb here ) (R count+1 ) 17424 */- {.type Here, {.p 17424 }}, /* 17424 360 */- {.type There, {.p 360 }}, /* 17424 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 ) 17432 */+ {.type Here, {.p 17408 }}, /* 17408 360 */+ {.type There, {.p 360 }}, /* 17408 360 */+/* ; could make this work for strings longer than 256 bytes. */ {.type Here, {.p 17408 }}, /* 17408 360 */+ {.type There, {.p 360 }}, /* 17408 360 */+/* ; But, for now, strings longer than 256 bytes are not supported by " or c" or s" or ." */ {.type Here, {.p 17408 }}, /* 17408 360 */+ {.type There, {.p 360 }}, /* 17408 360 */+/* ; this does not store the count in the dictionary */ {.type Here, {.p 17408 }}, /* 17408 360 */+ {.type There, {.p 360 }}, /* 17408 360 */+ {.type Header, {.hdr { 1, "\"", /* C_double_quote = 17424 */ 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 17432 */ {.type Here, {.p 17432 }}, /* 17432 360 */ {.type There, {.p 360 }}, /* 17432 360 */- {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17440 */+ {.type Here, {.p 17432 }}, /* 17432 360 */+ {.type There, {.p 360 }}, /* 17432 360 */+ {.type FromDictionary, {.p C_counted_doublequote}, .src = "dd C_counted_doublequote ; ( 'Wordb )"}, /* dd C_counted_doublequote ; ( 'Wordb ) 17440 */ {.type Here, {.p 17440 }}, /* 17440 360 */ {.type There, {.p 360 }}, /* 17440 360 */- {.type Here, {.p 17440 }}, /* 17440 360 */- {.type There, {.p 360 }}, /* 17440 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 17448 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count ; ( 'Wordb+1 count )"}, /* dd C_count ; ( 'Wordb+1 count ) 17448 */ {.type Here, {.p 17448 }}, /* 17448 360 */ {.type There, {.p 360 }}, /* 17448 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( here count+1 )"}, /* dd M_rpop ; ( here count+1 ) 17456 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'Wordb+1 ) (R count )"}, /* dd M_rpush ; ( 'Wordb+1 ) (R count ) 17456 */ {.type Here, {.p 17456 }}, /* 17456 360 */ {.type There, {.p 360 }}, /* 17456 360 */- {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( here ) here = here+count+1"}, /* dd C_allot ; ( here ) here = here+count+1 17464 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 'Wordb+1 here ) (R count )"}, /* dd C_here ; ( 'Wordb+1 here ) (R count ) 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 FromDictionary, {.p M_rfetch}, .src = "dd M_rfetch ; ( 'Wordb+1 here count ) (R count )"}, /* dd M_rfetch ; ( 'Wordb+1 here count ) (R count ) 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 */-/* ; for compiling counted strings into the definition. Puts the ( 'text count ) on the stack at run time */ {.type Here, {.p 17472 }}, /* 17472 360 */- {.type There, {.p 360 }}, /* 17472 360 */- {.type IHeader, {.hdr { 2, "s\"", /* CI_sdouble_quote = 17488 */ 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 17496 */+ {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17480 */+ {.type Here, {.p 17480 }}, /* 17480 360 */+ {.type There, {.p 360 }}, /* 17480 360 */+ {.type Here, {.p 17480 }}, /* 17480 360 */+ {.type There, {.p 360 }}, /* 17480 360 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 17488 */+ {.type Here, {.p 17488 }}, /* 17488 360 */+ {.type There, {.p 360 }}, /* 17488 360 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( here count )"}, /* dd M_rpop ; ( here count ) 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_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17504 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( here count count )"}, /* dd M_dup ; ( here count count ) 17504 */ {.type Here, {.p 17504 }}, /* 17504 360 */ {.type There, {.p 360 }}, /* 17504 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17512 */+ {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( here count ) here = here+count"}, /* dd C_allot ; ( here count ) here = here+count 17512 */ {.type Here, {.p 17512 }}, /* 17512 360 */ {.type There, {.p 360 }}, /* 17512 360 */- {.type Here, {.p 17512 }}, /* 17512 360 */- {.type There, {.p 360 }}, /* 17512 360 */- {.type IHeader, {.hdr { 2, ".\"", /* CI_dotstr = 17528 */ colon }}}, /* CIENTRY ".\"" dotstr 2 ; ( | ..." -- ) ." = s" type h 17536 */- {.type Here, {.p 17536 }}, /* 17536 360 */- {.type There, {.p 360 }}, /* 17536 360 */- {.type Here, {.p 17536 }}, /* 17536 360 */- {.type There, {.p 360 }}, /* 17536 360 */- {.type FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17544 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17520 */+ {.type Here, {.p 17520 }}, /* 17520 360 */+ {.type There, {.p 360 }}, /* 17520 360 */+ {.type Here, {.p 17520 }}, /* 17520 360 */+ {.type There, {.p 360 }}, /* 17520 360 */+ {.type Header, {.hdr { 2, "c\"", /* C_counted_double_quote = 17536 */ colon }}}, /* CENTRY "c\"" counted_double_quote 2 ; ( | ..." -- 'counted-string ) stores counted string in the dictionary. For use in interpretive mode. h 17544 */ {.type Here, {.p 17544 }}, /* 17544 360 */ {.type There, {.p 360 }}, /* 17544 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17552 */+ {.type Here, {.p 17544 }}, /* 17544 360 */+ {.type There, {.p 360 }}, /* 17544 360 */+ {.type FromDictionary, {.p C_counted_doublequote}, .src = "dd C_counted_doublequote ; ( 'Wordb )"}, /* dd C_counted_doublequote ; ( 'Wordb ) 17552 */ {.type Here, {.p 17552 }}, /* 17552 360 */ {.type There, {.p 360 }}, /* 17552 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17560 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( 'Wordb 'Wordb )"}, /* dd M_dup ; ( 'Wordb 'Wordb ) 17560 */ {.type Here, {.p 17560 }}, /* 17560 360 */ {.type There, {.p 360 }}, /* 17560 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17568 */+ {.type FromDictionary, {.p M_cfetch}, .src = "dd M_cfetch ; ( 'Wordb count )"}, /* dd M_cfetch ; ( 'Wordb count ) 17568 */ {.type Here, {.p 17568 }}, /* 17568 360 */ {.type There, {.p 360 }}, /* 17568 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17576 */+ {.type FromDictionary, {.p C_1plus}, .src = "dd C_1plus ; ( 'Wordb count+1 )"}, /* dd C_1plus ; ( 'Wordb count+1 ) 17576 */ {.type Here, {.p 17576 }}, /* 17576 360 */ {.type There, {.p 360 }}, /* 17576 360 */- {.type Here, {.p 17576 }}, /* 17576 360 */- {.type There, {.p 360 }}, /* 17576 360 */- {.type IHeader, {.hdr { 2, "if", /* CI_if = 17592 */ colon }}}, /* CIENTRY "if" if 2 h 17600 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'Wordb ) (R count+1 )"}, /* dd M_rpush ; ( 'Wordb ) (R count+1 ) 17584 */+ {.type Here, {.p 17584 }}, /* 17584 360 */+ {.type There, {.p 360 }}, /* 17584 360 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 'Wordb here ) (R count+1 )"}, /* dd C_here ; ( 'Wordb here ) (R count+1 ) 17592 */+ {.type Here, {.p 17592 }}, /* 17592 360 */+ {.type There, {.p 360 }}, /* 17592 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 ) 17600 */ {.type Here, {.p 17600 }}, /* 17600 360 */ {.type There, {.p 360 }}, /* 17600 360 */- {.type Here, {.p 17600 }}, /* 17600 360 */- {.type There, {.p 360 }}, /* 17600 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17608 */+ {.type FromDictionary, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 17608 */ {.type Here, {.p 17608 }}, /* 17608 360 */ {.type There, {.p 360 }}, /* 17608 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17616 */+ {.type Here, {.p 17608 }}, /* 17608 360 */+ {.type There, {.p 360 }}, /* 17608 360 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( here )"}, /* dd C_here ; ( here ) 17616 */ {.type Here, {.p 17616 }}, /* 17616 360 */ {.type There, {.p 360 }}, /* 17616 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17624 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( here count+1 )"}, /* dd M_rpop ; ( here count+1 ) 17624 */ {.type Here, {.p 17624 }}, /* 17624 360 */ {.type There, {.p 360 }}, /* 17624 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17632 */+ {.type FromDictionary, {.p C_allot}, .src = "dd C_allot ; ( here ) here = here+count+1"}, /* dd C_allot ; ( here ) here = here+count+1 17632 */ {.type Here, {.p 17632 }}, /* 17632 360 */ {.type There, {.p 360 }}, /* 17632 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17640 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17640 */ {.type Here, {.p 17640 }}, /* 17640 360 */ {.type There, {.p 360 }}, /* 17640 360 */- {.type Absolute, {.p 0}}, /* dd 0 17648 */- {.type Here, {.p 17648 }}, /* 17648 360 */- {.type There, {.p 360 }}, /* 17648 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17656 */- {.type Here, {.p 17656 }}, /* 17656 360 */- {.type There, {.p 360 }}, /* 17656 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17664 */+ {.type Here, {.p 17640 }}, /* 17640 360 */+ {.type There, {.p 360 }}, /* 17640 360 */+/* ; for compiling counted strings into the definition. Puts the ( 'text count ) on the stack at run time */ {.type Here, {.p 17640 }}, /* 17640 360 */+ {.type There, {.p 360 }}, /* 17640 360 */+ {.type IHeader, {.hdr { 2, "s\"", /* CI_sdouble_quote = 17656 */ 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 17664 */ {.type Here, {.p 17664 }}, /* 17664 360 */ {.type There, {.p 360 }}, /* 17664 360 */- {.type IHeader, {.hdr { 4, "else", /* CI_else = 17680 */ colon }}}, /* CIENTRY "else" else 4 h 17688 */- {.type Here, {.p 17688 }}, /* 17688 360 */- {.type There, {.p 360 }}, /* 17688 360 */- {.type Here, {.p 17688 }}, /* 17688 360 */- {.type There, {.p 360 }}, /* 17688 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17696 */- {.type Here, {.p 17696 }}, /* 17696 360 */- {.type There, {.p 360 }}, /* 17696 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 17704 */+ {.type Here, {.p 17664 }}, /* 17664 360 */+ {.type There, {.p 360 }}, /* 17664 360 */+ {.type FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17672 */+ {.type Here, {.p 17672 }}, /* 17672 360 */+ {.type There, {.p 360 }}, /* 17672 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17680 */+ {.type Here, {.p 17680 }}, /* 17680 360 */+ {.type There, {.p 360 }}, /* 17680 360 */+ {.type Here, {.p 17680 }}, /* 17680 360 */+ {.type There, {.p 360 }}, /* 17680 360 */+ {.type IHeader, {.hdr { 2, ".\"", /* CI_dotstr = 17696 */ colon }}}, /* CIENTRY ".\"" dotstr 2 ; ( | ..." -- ) ." = s" type h 17704 */ {.type Here, {.p 17704 }}, /* 17704 360 */ {.type There, {.p 360 }}, /* 17704 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17712 */+ {.type Here, {.p 17704 }}, /* 17704 360 */+ {.type There, {.p 360 }}, /* 17704 360 */+ {.type FromDictionary, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 17712 */ {.type Here, {.p 17712 }}, /* 17712 360 */ {.type There, {.p 360 }}, /* 17712 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17720 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17720 */ {.type Here, {.p 17720 }}, /* 17720 360 */ {.type There, {.p 360 }}, /* 17720 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17728 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17728 */ {.type Here, {.p 17728 }}, /* 17728 360 */ {.type There, {.p 360 }}, /* 17728 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17736 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17736 */ {.type Here, {.p 17736 }}, /* 17736 360 */ {.type There, {.p 360 }}, /* 17736 360 */- {.type Absolute, {.p 0}}, /* dd 0 17744 */+ {.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 FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17752 */- {.type Here, {.p 17752 }}, /* 17752 360 */- {.type There, {.p 360 }}, /* 17752 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17760 */- {.type Here, {.p 17760 }}, /* 17760 360 */- {.type There, {.p 360 }}, /* 17760 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 17768 */+ {.type Here, {.p 17744 }}, /* 17744 360 */+ {.type There, {.p 360 }}, /* 17744 360 */+ {.type IHeader, {.hdr { 2, "if", /* CI_if = 17760 */ colon }}}, /* CIENTRY "if" if 2 h 17768 */ {.type Here, {.p 17768 }}, /* 17768 360 */ {.type There, {.p 360 }}, /* 17768 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 17776 */+ {.type Here, {.p 17768 }}, /* 17768 360 */+ {.type There, {.p 360 }}, /* 17768 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17776 */ {.type Here, {.p 17776 }}, /* 17776 360 */ {.type There, {.p 360 }}, /* 17776 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 17784 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17784 */ {.type Here, {.p 17784 }}, /* 17784 360 */ {.type There, {.p 360 }}, /* 17784 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17792 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17792 */ {.type Here, {.p 17792 }}, /* 17792 360 */ {.type There, {.p 360 }}, /* 17792 360 */- {.type IHeader, {.hdr { 4, "then", /* CI_then = 17808 */ colon }}}, /* CIENTRY "then" then 4 h 17816 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17800 */+ {.type Here, {.p 17800 }}, /* 17800 360 */+ {.type There, {.p 360 }}, /* 17800 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17808 */+ {.type Here, {.p 17808 }}, /* 17808 360 */+ {.type There, {.p 360 }}, /* 17808 360 */+ {.type Absolute, {.p 0}}, /* dd 0 17816 */ {.type Here, {.p 17816 }}, /* 17816 360 */ {.type There, {.p 360 }}, /* 17816 360 */- {.type Here, {.p 17816 }}, /* 17816 360 */- {.type There, {.p 360 }}, /* 17816 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17824 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17824 */ {.type Here, {.p 17824 }}, /* 17824 360 */ {.type There, {.p 360 }}, /* 17824 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 17832 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17832 */ {.type Here, {.p 17832 }}, /* 17832 360 */ {.type There, {.p 360 }}, /* 17832 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 17840 */- {.type Here, {.p 17840 }}, /* 17840 360 */- {.type There, {.p 360 }}, /* 17840 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17848 */- {.type Here, {.p 17848 }}, /* 17848 360 */- {.type There, {.p 360 }}, /* 17848 360 */- {.type IHeader, {.hdr { 5, "begin", /* CI_begin = 17864 */ colon }}}, /* CIENTRY "begin" begin 5 h 17872 */+ {.type IHeader, {.hdr { 4, "else", /* CI_else = 17848 */ colon }}}, /* CIENTRY "else" else 4 h 17856 */+ {.type Here, {.p 17856 }}, /* 17856 360 */+ {.type There, {.p 360 }}, /* 17856 360 */+ {.type Here, {.p 17856 }}, /* 17856 360 */+ {.type There, {.p 360 }}, /* 17856 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17864 */+ {.type Here, {.p 17864 }}, /* 17864 360 */+ {.type There, {.p 360 }}, /* 17864 360 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 17872 */ {.type Here, {.p 17872 }}, /* 17872 360 */ {.type There, {.p 360 }}, /* 17872 360 */- {.type Here, {.p 17872 }}, /* 17872 360 */- {.type There, {.p 360 }}, /* 17872 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17880 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17880 */ {.type Here, {.p 17880 }}, /* 17880 360 */ {.type There, {.p 360 }}, /* 17880 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17888 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17888 */ {.type Here, {.p 17888 }}, /* 17888 360 */ {.type There, {.p 360 }}, /* 17888 360 */- {.type IHeader, {.hdr { 5, "again", /* CI_again = 17904 */ colon }}}, /* CIENTRY "again" again 5 h 17912 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17896 */+ {.type Here, {.p 17896 }}, /* 17896 360 */+ {.type There, {.p 360 }}, /* 17896 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17904 */+ {.type Here, {.p 17904 }}, /* 17904 360 */+ {.type There, {.p 360 }}, /* 17904 360 */+ {.type Absolute, {.p 0}}, /* dd 0 17912 */ {.type Here, {.p 17912 }}, /* 17912 360 */ {.type There, {.p 360 }}, /* 17912 360 */- {.type Here, {.p 17912 }}, /* 17912 360 */- {.type There, {.p 360 }}, /* 17912 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17920 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17920 */ {.type Here, {.p 17920 }}, /* 17920 360 */ {.type There, {.p 360 }}, /* 17920 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 17928 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 17928 */ {.type Here, {.p 17928 }}, /* 17928 360 */ {.type There, {.p 360 }}, /* 17928 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 17936 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 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 FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 17944 */ {.type Here, {.p 17944 }}, /* 17944 360 */ {.type There, {.p 360 }}, /* 17944 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17952 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 17952 */ {.type Here, {.p 17952 }}, /* 17952 360 */ {.type There, {.p 360 }}, /* 17952 360 */- {.type IHeader, {.hdr { 5, "until", /* CI_until = 17968 */ colon }}}, /* CIENTRY "until" until 5 h 17976 */- {.type Here, {.p 17976 }}, /* 17976 360 */- {.type There, {.p 360 }}, /* 17976 360 */- {.type Here, {.p 17976 }}, /* 17976 360 */- {.type There, {.p 360 }}, /* 17976 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17984 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17960 */+ {.type Here, {.p 17960 }}, /* 17960 360 */+ {.type There, {.p 360 }}, /* 17960 360 */+ {.type IHeader, {.hdr { 4, "then", /* CI_then = 17976 */ colon }}}, /* CIENTRY "then" then 4 h 17984 */ {.type Here, {.p 17984 }}, /* 17984 360 */ {.type There, {.p 360 }}, /* 17984 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17992 */+ {.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 C_comma}, .src = "dd C_comma"}, /* dd C_comma 18000 */+ {.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 C_comma}, .src = "dd C_comma"}, /* dd C_comma 18008 */+ {.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_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18016 */ {.type Here, {.p 18016 }}, /* 18016 360 */ {.type There, {.p 360 }}, /* 18016 360 */- {.type IHeader, {.hdr { 5, "while", /* CI_while = 18032 */ colon }}}, /* CIENTRY "while" while 5 h 18040 */+ {.type IHeader, {.hdr { 5, "begin", /* CI_begin = 18032 */ colon }}}, /* CIENTRY "begin" begin 5 h 18040 */ {.type Here, {.p 18040 }}, /* 18040 360 */ {.type There, {.p 360 }}, /* 18040 360 */ {.type Here, {.p 18040 }}, /* 18040 360 */ {.type There, {.p 360 }}, /* 18040 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18048 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18048 */ {.type Here, {.p 18048 }}, /* 18048 360 */ {.type There, {.p 360 }}, /* 18048 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18056 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18056 */ {.type Here, {.p 18056 }}, /* 18056 360 */ {.type There, {.p 360 }}, /* 18056 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18064 */- {.type Here, {.p 18064 }}, /* 18064 360 */- {.type There, {.p 360 }}, /* 18064 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18072 */- {.type Here, {.p 18072 }}, /* 18072 360 */- {.type There, {.p 360 }}, /* 18072 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18080 */+ {.type IHeader, {.hdr { 5, "again", /* CI_again = 18072 */ colon }}}, /* CIENTRY "again" again 5 h 18080 */ {.type Here, {.p 18080 }}, /* 18080 360 */ {.type There, {.p 360 }}, /* 18080 360 */- {.type Absolute, {.p 0}}, /* dd 0 18088 */+ {.type Here, {.p 18080 }}, /* 18080 360 */+ {.type There, {.p 360 }}, /* 18080 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18088 */ {.type Here, {.p 18088 }}, /* 18088 360 */ {.type There, {.p 360 }}, /* 18088 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18096 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 18096 */ {.type Here, {.p 18096 }}, /* 18096 360 */ {.type There, {.p 360 }}, /* 18096 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18104 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18104 */ {.type Here, {.p 18104 }}, /* 18104 360 */ {.type There, {.p 360 }}, /* 18104 360 */- {.type IHeader, {.hdr { 6, "repeat", /* CI_repeat = 18120 */ colon }}}, /* CIENTRY "repeat" repeat 6 h 18128 */- {.type Here, {.p 18128 }}, /* 18128 360 */- {.type There, {.p 360 }}, /* 18128 360 */- {.type Here, {.p 18128 }}, /* 18128 360 */- {.type There, {.p 360 }}, /* 18128 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18136 */- {.type Here, {.p 18136 }}, /* 18136 360 */- {.type There, {.p 360 }}, /* 18136 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 18144 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 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, "until", /* CI_until = 18136 */ colon }}}, /* CIENTRY "until" until 5 h 18144 */ {.type Here, {.p 18144 }}, /* 18144 360 */ {.type There, {.p 360 }}, /* 18144 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18152 */+ {.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_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18160 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 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_here}, .src = "dd C_here"}, /* dd C_here 18176 */+ {.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_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18184 */+ {.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 FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18192 */- {.type Here, {.p 18192 }}, /* 18192 360 */- {.type There, {.p 360 }}, /* 18192 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18200 */- {.type Here, {.p 18200 }}, /* 18200 360 */- {.type There, {.p 360 }}, /* 18200 360 */- {.type IHeader, {.hdr { 2, "do", /* CI_do = 18216 */ colon }}}, /* CIENTRY "do" do 2 h 18224 */+ {.type IHeader, {.hdr { 5, "while", /* CI_while = 18200 */ colon }}}, /* CIENTRY "while" while 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 Here, {.p 18224 }}, /* 18224 360 */- {.type There, {.p 360 }}, /* 18224 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18232 */+ {.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 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 18240 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18240 */ {.type Here, {.p 18240 }}, /* 18240 360 */ {.type There, {.p 360 }}, /* 18240 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; puts (do) into the dictionary"}, /* dd C_comma ; puts (do) into the dictionary 18248 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18248 */ {.type Here, {.p 18248 }}, /* 18248 360 */ {.type There, {.p 360 }}, /* 18248 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18256 */+ {.type Absolute, {.p 0}}, /* dd 0 18256 */ {.type Here, {.p 18256 }}, /* 18256 360 */ {.type There, {.p 360 }}, /* 18256 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( -- 0 ) 18264 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18264 */ {.type Here, {.p 18264 }}, /* 18264 360 */ {.type There, {.p 360 }}, /* 18264 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 0 -- 0 here1 )"}, /* dd C_here ; ( 0 -- 0 here1 ) 18272 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18272 */ {.type Here, {.p 18272 }}, /* 18272 360 */ {.type There, {.p 360 }}, /* 18272 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18280 */- {.type Here, {.p 18280 }}, /* 18280 360 */- {.type There, {.p 360 }}, /* 18280 360 */- {.type IHeader, {.hdr { 4, "loop", /* CI_loop = 18296 */ colon }}}, /* CIENTRY "loop" loop 4 ; ( 0 here1 -- ) h 18304 */+ {.type IHeader, {.hdr { 6, "repeat", /* CI_repeat = 18288 */ colon }}}, /* CIENTRY "repeat" repeat 6 h 18296 */+ {.type Here, {.p 18296 }}, /* 18296 360 */+ {.type There, {.p 360 }}, /* 18296 360 */+ {.type Here, {.p 18296 }}, /* 18296 360 */+ {.type There, {.p 360 }}, /* 18296 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18304 */ {.type Here, {.p 18304 }}, /* 18304 360 */ {.type There, {.p 360 }}, /* 18304 360 */- {.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 FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 18312 */ {.type Here, {.p 18312 }}, /* 18312 360 */ {.type There, {.p 360 }}, /* 18312 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop ; ( 0 here1 -- 0 here1 (loop) )"}, /* dd M_doloop ; ( 0 here1 -- 0 here1 (loop) ) 18320 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18320 */ {.type Here, {.p 18320 }}, /* 18320 360 */ {.type There, {.p 360 }}, /* 18320 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 ) 18328 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18328 */ {.type Here, {.p 18328 }}, /* 18328 360 */ {.type There, {.p 360 }}, /* 18328 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 ) 18336 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18336 */ {.type Here, {.p 18336 }}, /* 18336 360 */ {.type There, {.p 360 }}, /* 18336 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 18344 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18344 */ {.type Here, {.p 18344 }}, /* 18344 360 */ {.type There, {.p 360 }}, /* 18344 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18352 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18352 */ {.type Here, {.p 18352 }}, /* 18352 360 */ {.type There, {.p 360 }}, /* 18352 360 */- {.type FromDictionary, {.p L234}, .src = "dd L234"}, /* dd L234 18360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18360 */ {.type Here, {.p 18360 }}, /* 18360 360 */ {.type There, {.p 360 }}, /* 18360 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18368 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18368 */ {.type Here, {.p 18368 }}, /* 18368 360 */ {.type There, {.p 360 }}, /* 18368 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18376 */- {.type Here, {.p 18376 }}, /* 18376 360 */- {.type There, {.p 360 }}, /* 18376 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18384 */- {.type Here, {.p 18384 }}, /* 18384 360 */- {.type There, {.p 360 }}, /* 18384 360 */- {.type Here, {.p 18384 }}, /* 18384 360 */- {.type There, {.p 360 }}, /* 18384 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18392 */+ {.type IHeader, {.hdr { 2, "do", /* CI_do = 18384 */ colon }}}, /* CIENTRY "do" do 2 h 18392 */ {.type Here, {.p 18392 }}, /* 18392 360 */ {.type There, {.p 360 }}, /* 18392 360 */- {.type IHeader, {.hdr { 5, "+loop", /* CI_ploop = 18408 */ colon }}}, /* CIENTRY "+loop" ploop 5 h 18416 */+ {.type Here, {.p 18392 }}, /* 18392 360 */+ {.type There, {.p 360 }}, /* 18392 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18400 */+ {.type Here, {.p 18400 }}, /* 18400 360 */+ {.type There, {.p 360 }}, /* 18400 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 18408 */+ {.type Here, {.p 18408 }}, /* 18408 360 */+ {.type There, {.p 360 }}, /* 18408 360 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma ; puts (do) into the dictionary"}, /* dd C_comma ; puts (do) into the dictionary 18416 */ {.type Here, {.p 18416 }}, /* 18416 360 */ {.type There, {.p 360 }}, /* 18416 360 */- {.type Here, {.p 18416 }}, /* 18416 360 */- {.type There, {.p 360 }}, /* 18416 360 */ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18424 */ {.type Here, {.p 18424 }}, /* 18424 360 */ {.type There, {.p 360 }}, /* 18424 360 */- {.type FromDictionary, {.p M_doploop}, .src = "dd M_doploop"}, /* dd M_doploop 18432 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( -- 0 ) 18432 */ {.type Here, {.p 18432 }}, /* 18432 360 */ {.type There, {.p 360 }}, /* 18432 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18440 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here ; ( 0 -- 0 here1 )"}, /* dd C_here ; ( 0 -- 0 here1 ) 18440 */ {.type Here, {.p 18440 }}, /* 18440 360 */ {.type There, {.p 360 }}, /* 18440 360 */- {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18448 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18448 */ {.type Here, {.p 18448 }}, /* 18448 360 */ {.type There, {.p 360 }}, /* 18448 360 */- {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 18456 */- {.type Here, {.p 18456 }}, /* 18456 360 */- {.type There, {.p 360 }}, /* 18456 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18464 */- {.type Here, {.p 18464 }}, /* 18464 360 */- {.type There, {.p 360 }}, /* 18464 360 */- {.type FromDictionary, {.p L236}, .src = "dd L236"}, /* dd L236 18472 */+ {.type IHeader, {.hdr { 4, "loop", /* CI_loop = 18464 */ colon }}}, /* CIENTRY "loop" loop 4 ; ( 0 here1 -- ) h 18472 */ {.type Here, {.p 18472 }}, /* 18472 360 */ {.type There, {.p 360 }}, /* 18472 360 */- {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18480 */+ {.type Here, {.p 18472 }}, /* 18472 360 */+ {.type There, {.p 360 }}, /* 18472 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18480 */ {.type Here, {.p 18480 }}, /* 18480 360 */ {.type There, {.p 360 }}, /* 18480 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18488 */+ {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop ; ( 0 here1 -- 0 here1 (loop) )"}, /* dd M_doloop ; ( 0 here1 -- 0 here1 (loop) ) 18488 */ {.type Here, {.p 18488 }}, /* 18488 360 */ {.type There, {.p 360 }}, /* 18488 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18496 */+ {.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 ) 18496 */ {.type Here, {.p 18496 }}, /* 18496 360 */ {.type There, {.p 360 }}, /* 18496 360 */- {.type Here, {.p 18496 }}, /* 18496 360 */- {.type There, {.p 360 }}, /* 18496 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18504 */+ {.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 ) 18504 */ {.type Here, {.p 18504 }}, /* 18504 360 */ {.type There, {.p 360 }}, /* 18504 360 */- {.type Header, {.hdr { 3, "w/o", /* C_wo = 18520 */ colon }}}, /* CENTRY "w/o" wo 3 h 18528 */+ {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 18512 */+ {.type Here, {.p 18512 }}, /* 18512 360 */+ {.type There, {.p 360 }}, /* 18512 360 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18520 */+ {.type Here, {.p 18520 }}, /* 18520 360 */+ {.type There, {.p 360 }}, /* 18520 360 */+ {.type FromDictionary, {.p L234}, .src = "dd L234"}, /* dd L234 18528 */ {.type Here, {.p 18528 }}, /* 18528 360 */ {.type There, {.p 360 }}, /* 18528 360 */- {.type Here, {.p 18528 }}, /* 18528 360 */- {.type There, {.p 360 }}, /* 18528 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18536 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18536 */ {.type Here, {.p 18536 }}, /* 18536 360 */ {.type There, {.p 360 }}, /* 18536 360 */- {.type Absolute, {.p 1}}, /* dd 1 18544 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18544 */ {.type Here, {.p 18544 }}, /* 18544 360 */ {.type There, {.p 360 }}, /* 18544 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18552 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18552 */ {.type Here, {.p 18552 }}, /* 18552 360 */ {.type There, {.p 360 }}, /* 18552 360 */- {.type Absolute, {.p 512}}, /* dd 512 18560 */+ {.type Here, {.p 18552 }}, /* 18552 360 */+ {.type There, {.p 360 }}, /* 18552 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18560 */ {.type Here, {.p 18560 }}, /* 18560 360 */ {.type There, {.p 360 }}, /* 18560 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 18568 */- {.type Here, {.p 18568 }}, /* 18568 360 */- {.type There, {.p 360 }}, /* 18568 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18576 */- {.type Here, {.p 18576 }}, /* 18576 360 */- {.type There, {.p 360 }}, /* 18576 360 */- {.type Absolute, {.p 64}}, /* dd 64 18584 */+ {.type IHeader, {.hdr { 5, "+loop", /* CI_ploop = 18576 */ colon }}}, /* CIENTRY "+loop" ploop 5 h 18584 */ {.type Here, {.p 18584 }}, /* 18584 360 */ {.type There, {.p 360 }}, /* 18584 360 */- {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 18592 */+ {.type Here, {.p 18584 }}, /* 18584 360 */+ {.type There, {.p 360 }}, /* 18584 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18592 */ {.type Here, {.p 18592 }}, /* 18592 360 */ {.type There, {.p 360 }}, /* 18592 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18600 */+ {.type FromDictionary, {.p M_doploop}, .src = "dd M_doploop"}, /* dd M_doploop 18600 */ {.type Here, {.p 18600 }}, /* 18600 360 */ {.type There, {.p 360 }}, /* 18600 360 */- {.type Header, {.hdr { 3, "r/o", /* C_ro = 18616 */ colon }}}, /* CENTRY "r/o" ro 3 h 18624 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18608 */+ {.type Here, {.p 18608 }}, /* 18608 360 */+ {.type There, {.p 360 }}, /* 18608 360 */+ {.type FromDictionary, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 18616 */+ {.type Here, {.p 18616 }}, /* 18616 360 */+ {.type There, {.p 360 }}, /* 18616 360 */+ {.type FromDictionary, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 18624 */ {.type Here, {.p 18624 }}, /* 18624 360 */ {.type There, {.p 360 }}, /* 18624 360 */- {.type Here, {.p 18624 }}, /* 18624 360 */- {.type There, {.p 360 }}, /* 18624 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18632 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 18632 */ {.type Here, {.p 18632 }}, /* 18632 360 */ {.type There, {.p 360 }}, /* 18632 360 */- {.type Absolute, {.p 0}}, /* dd 0 18640 */+ {.type FromDictionary, {.p L236}, .src = "dd L236"}, /* dd L236 18640 */ {.type Here, {.p 18640 }}, /* 18640 360 */ {.type There, {.p 360 }}, /* 18640 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18648 */+ {.type FromDictionary, {.p C_here}, .src = "dd C_here"}, /* dd C_here 18648 */ {.type Here, {.p 18648 }}, /* 18648 360 */ {.type There, {.p 360 }}, /* 18648 360 */- {.type Header, {.hdr { 3, "r/w", /* C_rw = 18664 */ colon }}}, /* CENTRY "r/w" rw 3 h 18672 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 18656 */+ {.type Here, {.p 18656 }}, /* 18656 360 */+ {.type There, {.p 360 }}, /* 18656 360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18664 */+ {.type Here, {.p 18664 }}, /* 18664 360 */+ {.type There, {.p 360 }}, /* 18664 360 */+ {.type Here, {.p 18664 }}, /* 18664 360 */+ {.type There, {.p 360 }}, /* 18664 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18672 */ {.type Here, {.p 18672 }}, /* 18672 360 */ {.type There, {.p 360 }}, /* 18672 360 */- {.type Here, {.p 18672 }}, /* 18672 360 */- {.type There, {.p 360 }}, /* 18672 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18680 */- {.type Here, {.p 18680 }}, /* 18680 360 */- {.type There, {.p 360 }}, /* 18680 360 */- {.type Absolute, {.p 2}}, /* dd 2 18688 */- {.type Here, {.p 18688 }}, /* 18688 360 */- {.type There, {.p 360 }}, /* 18688 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18696 */+ {.type Header, {.hdr { 3, "w/o", /* C_wo = 18688 */ colon }}}, /* CENTRY "w/o" wo 3 h 18696 */ {.type Here, {.p 18696 }}, /* 18696 360 */ {.type There, {.p 360 }}, /* 18696 360 */ {.type Here, {.p 18696 }}, /* 18696 360 */ {.type There, {.p 360 }}, /* 18696 360 */- {.type Header, {.hdr { 7, "cstring", /* C_cstring = 18712 */ 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 18720 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18704 */+ {.type Here, {.p 18704 }}, /* 18704 360 */+ {.type There, {.p 360 }}, /* 18704 360 */+ {.type Absolute, {.p 1}}, /* dd 1 18712 */+ {.type Here, {.p 18712 }}, /* 18712 360 */+ {.type There, {.p 360 }}, /* 18712 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18720 */ {.type Here, {.p 18720 }}, /* 18720 360 */ {.type There, {.p 360 }}, /* 18720 360 */- {.type Here, {.p 18720 }}, /* 18720 360 */- {.type There, {.p 360 }}, /* 18720 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 'text count o 'pad )"}, /* dd C_pad ; ( 'text count o 'pad ) 18728 */+ {.type Absolute, {.p 512}}, /* dd 512 18728 */ {.type Here, {.p 18728 }}, /* 18728 360 */ {.type There, {.p 360 }}, /* 18728 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18736 */+ {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 18736 */ {.type Here, {.p 18736 }}, /* 18736 360 */ {.type There, {.p 360 }}, /* 18736 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 'text count o 'pad 1024 ) 18744 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18744 */ {.type Here, {.p 18744 }}, /* 18744 360 */ {.type There, {.p 360 }}, /* 18744 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'text count o 'pad+1024 )"}, /* dd M_plus ; ( 'text count o 'pad+1024 ) 18752 */+ {.type Absolute, {.p 64}}, /* dd 64 18752 */ {.type Here, {.p 18752 }}, /* 18752 360 */ {.type There, {.p 360 }}, /* 18752 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 18760 */+ {.type FromDictionary, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 18760 */ {.type Here, {.p 18760 }}, /* 18760 360 */ {.type There, {.p 360 }}, /* 18760 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 18768 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18768 */ {.type Here, {.p 18768 }}, /* 18768 360 */ {.type There, {.p 360 }}, /* 18768 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 ) 18776 */- {.type Here, {.p 18776 }}, /* 18776 360 */- {.type There, {.p 360 }}, /* 18776 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 ) 18784 */- {.type Here, {.p 18784 }}, /* 18784 360 */- {.type There, {.p 360 }}, /* 18784 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 ) 18792 */+ {.type Header, {.hdr { 3, "r/o", /* C_ro = 18784 */ colon }}}, /* CENTRY "r/o" ro 3 h 18792 */ {.type Here, {.p 18792 }}, /* 18792 360 */ {.type There, {.p 360 }}, /* 18792 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 ) 18800 */+ {.type Here, {.p 18792 }}, /* 18792 360 */+ {.type There, {.p 360 }}, /* 18792 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18800 */ {.type Here, {.p 18800 }}, /* 18800 360 */ {.type There, {.p 360 }}, /* 18800 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 18808 */+ {.type Absolute, {.p 0}}, /* dd 0 18808 */ {.type Here, {.p 18808 }}, /* 18808 360 */ {.type There, {.p 360 }}, /* 18808 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18816 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18816 */ {.type Here, {.p 18816 }}, /* 18816 360 */ {.type There, {.p 360 }}, /* 18816 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) (R o+'pad+1024 count ) 18824 */- {.type Here, {.p 18824 }}, /* 18824 360 */- {.type There, {.p 360 }}, /* 18824 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 ) 18832 */- {.type Here, {.p 18832 }}, /* 18832 360 */- {.type There, {.p 360 }}, /* 18832 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 ) 18840 */+ {.type Header, {.hdr { 3, "r/w", /* C_rw = 18832 */ colon }}}, /* CENTRY "r/w" rw 3 h 18840 */ {.type Here, {.p 18840 }}, /* 18840 360 */ {.type There, {.p 360 }}, /* 18840 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 ) 18848 */+ {.type Here, {.p 18840 }}, /* 18840 360 */+ {.type There, {.p 360 }}, /* 18840 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18848 */ {.type Here, {.p 18848 }}, /* 18848 360 */ {.type There, {.p 360 }}, /* 18848 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 18856 */+ {.type Absolute, {.p 2}}, /* dd 2 18856 */ {.type Here, {.p 18856 }}, /* 18856 360 */ {.type There, {.p 360 }}, /* 18856 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( o+'pad+1024 )"}, /* dd M_rpop ; ( o+'pad+1024 ) 18864 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18864 */ {.type Here, {.p 18864 }}, /* 18864 360 */ {.type There, {.p 360 }}, /* 18864 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18872 */- {.type Here, {.p 18872 }}, /* 18872 360 */- {.type There, {.p 360 }}, /* 18872 360 */- {.type Here, {.p 18872 }}, /* 18872 360 */- {.type There, {.p 360 }}, /* 18872 360 */- {.type Header, {.hdr { 8, "cstring0", /* C_cstring0 = 18896 */ colon }}}, /* CENTRY "cstring0" cstring0 8 ; ( 'text count -- 'text ) \ copy string to pad+1024 and add a null byte at the end h 18904 */+ {.type Here, {.p 18864 }}, /* 18864 360 */+ {.type There, {.p 360 }}, /* 18864 360 */+ {.type Header, {.hdr { 7, "cstring", /* C_cstring = 18880 */ 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 18888 */+ {.type Here, {.p 18888 }}, /* 18888 360 */+ {.type There, {.p 360 }}, /* 18888 360 */+ {.type Here, {.p 18888 }}, /* 18888 360 */+ {.type There, {.p 360 }}, /* 18888 360 */+ {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 'text count o 'pad )"}, /* dd C_pad ; ( 'text count o 'pad ) 18896 */+ {.type Here, {.p 18896 }}, /* 18896 360 */+ {.type There, {.p 360 }}, /* 18896 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 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 Absolute, {.p 1024}}, /* dd 1024 ; ( 'text count o 'pad 1024 ) 18912 */ {.type Here, {.p 18912 }}, /* 18912 360 */ {.type There, {.p 360 }}, /* 18912 360 */- {.type Absolute, {.p 0}}, /* dd 0 18920 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 'text count o 'pad+1024 )"}, /* dd M_plus ; ( 'text count o 'pad+1024 ) 18920 */ {.type Here, {.p 18920 }}, /* 18920 360 */ {.type There, {.p 360 }}, /* 18920 360 */- {.type FromDictionary, {.p C_cstring}, .src = "dd C_cstring"}, /* dd C_cstring 18928 */+ {.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 18928 */ {.type Here, {.p 18928 }}, /* 18928 360 */ {.type There, {.p 360 }}, /* 18928 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18936 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 18936 */ {.type Here, {.p 18936 }}, /* 18936 360 */ {.type There, {.p 360 }}, /* 18936 360 */- {.type Here, {.p 18936 }}, /* 18936 360 */- {.type There, {.p 360 }}, /* 18936 360 */- {.type Header, {.hdr { 8, "cstring1", /* C_cstring1 = 18960 */ colon }}}, /* CENTRY "cstring1" cstring1 8 ; ( 'text count -- 'text ) \ copy string to pad+1536 and add a null byte at the end h 18968 */+ {.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 ) 18944 */+ {.type Here, {.p 18944 }}, /* 18944 360 */+ {.type There, {.p 360 }}, /* 18944 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 ) 18952 */+ {.type Here, {.p 18952 }}, /* 18952 360 */+ {.type There, {.p 360 }}, /* 18952 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 ) 18960 */+ {.type Here, {.p 18960 }}, /* 18960 360 */+ {.type There, {.p 360 }}, /* 18960 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 ) 18968 */ {.type Here, {.p 18968 }}, /* 18968 360 */ {.type There, {.p 360 }}, /* 18968 360 */- {.type Here, {.p 18968 }}, /* 18968 360 */- {.type There, {.p 360 }}, /* 18968 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18976 */+ {.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 18976 */ {.type Here, {.p 18976 }}, /* 18976 360 */ {.type There, {.p 360 }}, /* 18976 360 */- {.type Absolute, {.p 512}}, /* dd 512 18984 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18984 */ {.type Here, {.p 18984 }}, /* 18984 360 */ {.type There, {.p 360 }}, /* 18984 360 */- {.type FromDictionary, {.p C_cstring}, .src = "dd C_cstring"}, /* dd C_cstring 18992 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) (R o+'pad+1024 count ) 18992 */ {.type Here, {.p 18992 }}, /* 18992 360 */ {.type There, {.p 360 }}, /* 18992 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19000 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 0 count ) (R o+'pad+1024 )"}, /* dd M_rpop ; ( 0 count ) (R o+'pad+1024 ) 19000 */ {.type Here, {.p 19000 }}, /* 19000 360 */ {.type There, {.p 360 }}, /* 19000 360 */- {.type Here, {.p 19000 }}, /* 19000 360 */- {.type There, {.p 360 }}, /* 19000 360 */- {.type Header, {.hdr { 9, "open-file", /* C_open_file = 19024 */ colon }}}, /* CENTRY "open-file" open_file 9 ; ( 'text count mode -- fd ioresult ) h 19032 */+ {.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 ) 19008 */+ {.type Here, {.p 19008 }}, /* 19008 360 */+ {.type There, {.p 360 }}, /* 19008 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 ) 19016 */+ {.type Here, {.p 19016 }}, /* 19016 360 */+ {.type There, {.p 360 }}, /* 19016 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 19024 */+ {.type Here, {.p 19024 }}, /* 19024 360 */+ {.type There, {.p 360 }}, /* 19024 360 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( o+'pad+1024 )"}, /* dd M_rpop ; ( o+'pad+1024 ) 19032 */ {.type Here, {.p 19032 }}, /* 19032 360 */ {.type There, {.p 360 }}, /* 19032 360 */- {.type Here, {.p 19032 }}, /* 19032 360 */- {.type There, {.p 360 }}, /* 19032 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'text count ) (R mode)"}, /* dd M_rpush ; ( 'text count ) (R mode) 19040 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19040 */ {.type Here, {.p 19040 }}, /* 19040 360 */ {.type There, {.p 360 }}, /* 19040 360 */- {.type FromDictionary, {.p C_cstring0}, .src = "dd C_cstring0 ; ( 'padtext ) (R mode )"}, /* dd C_cstring0 ; ( 'padtext ) (R mode ) 19048 */- {.type Here, {.p 19048 }}, /* 19048 360 */- {.type There, {.p 360 }}, /* 19048 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'padtext mode ) (R )"}, /* dd M_rpop ; ( 'padtext mode ) (R ) 19056 */- {.type Here, {.p 19056 }}, /* 19056 360 */- {.type There, {.p 360 }}, /* 19056 360 */- {.type FromDictionary, {.p M_sysopen}, .src = "dd M_sysopen"}, /* dd M_sysopen 19064 */- {.type Here, {.p 19064 }}, /* 19064 360 */- {.type There, {.p 360 }}, /* 19064 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19072 */+ {.type Here, {.p 19040 }}, /* 19040 360 */+ {.type There, {.p 360 }}, /* 19040 360 */+ {.type Header, {.hdr { 8, "cstring0", /* C_cstring0 = 19064 */ colon }}}, /* CENTRY "cstring0" cstring0 8 ; ( 'text count -- 'text ) \ copy string to pad+1024 and add a null byte at the end h 19072 */ {.type Here, {.p 19072 }}, /* 19072 360 */ {.type There, {.p 360 }}, /* 19072 360 */+ {.type Here, {.p 19072 }}, /* 19072 360 */+ {.type There, {.p 360 }}, /* 19072 360 */ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19080 */ {.type Here, {.p 19080 }}, /* 19080 360 */ {.type There, {.p 360 }}, /* 19080 360 */- {.type Absolute, {.p -1}}, /* dd -1 19088 */+ {.type Absolute, {.p 0}}, /* dd 0 19088 */ {.type Here, {.p 19088 }}, /* 19088 360 */ {.type There, {.p 360 }}, /* 19088 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 19096 */+ {.type FromDictionary, {.p C_cstring}, .src = "dd C_cstring"}, /* dd C_cstring 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 */@@ -6970,307 +6984,295 @@
{.type There, {.p 360 }}, /* 19104 360 */ {.type Here, {.p 19104 }}, /* 19104 360 */ {.type There, {.p 360 }}, /* 19104 360 */- {.type Header, {.hdr { 10, "close-file", /* C_close_file = 19128 */ colon }}}, /* CENTRY "close-file" close_file 10 ; ( fd -- ioresult ) h 19136 */+ {.type Header, {.hdr { 8, "cstring1", /* C_cstring1 = 19128 */ colon }}}, /* CENTRY "cstring1" cstring1 8 ; ( 'text count -- 'text ) \ copy string to pad+1536 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_sysclose}, .src = "dd M_sysclose"}, /* dd M_sysclose 19144 */+ {.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 FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 19152 */+ {.type Absolute, {.p 512}}, /* dd 512 19152 */ {.type Here, {.p 19152 }}, /* 19152 360 */ {.type There, {.p 360 }}, /* 19152 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19160 */+ {.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 Header, {.hdr { 9, "read-file", /* C_read_file = 19184 */ colon }}}, /* CENTRY "read-file" read_file 9 ; ( 'text count fd -- count2 ioresult ) h 19192 */- {.type Here, {.p 19192 }}, /* 19192 360 */- {.type There, {.p 360 }}, /* 19192 360 */- {.type Here, {.p 19192 }}, /* 19192 360 */- {.type There, {.p 360 }}, /* 19192 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( n fd a )"}, /* dd C_rot ; ( n fd a ) 19200 */+ {.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 { 9, "open-file", /* C_open_file = 19192 */ colon }}}, /* CENTRY "open-file" open_file 9 ; ( 'text count mode -- fd ioresult ) h 19200 */ {.type Here, {.p 19200 }}, /* 19200 360 */ {.type There, {.p 360 }}, /* 19200 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( fd a n )"}, /* dd C_rot ; ( fd a n ) 19208 */+ {.type Here, {.p 19200 }}, /* 19200 360 */+ {.type There, {.p 360 }}, /* 19200 360 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( 'text count ) (R mode)"}, /* dd M_rpush ; ( 'text count ) (R mode) 19208 */ {.type Here, {.p 19208 }}, /* 19208 360 */ {.type There, {.p 360 }}, /* 19208 360 */- {.type FromDictionary, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 19216 */+ {.type FromDictionary, {.p C_cstring0}, .src = "dd C_cstring0 ; ( 'padtext ) (R mode )"}, /* dd C_cstring0 ; ( 'padtext ) (R mode ) 19216 */ {.type Here, {.p 19216 }}, /* 19216 360 */ {.type There, {.p 360 }}, /* 19216 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19224 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 'padtext mode ) (R )"}, /* dd M_rpop ; ( 'padtext mode ) (R ) 19224 */ {.type Here, {.p 19224 }}, /* 19224 360 */ {.type There, {.p 360 }}, /* 19224 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19232 */+ {.type FromDictionary, {.p M_sysopen}, .src = "dd M_sysopen"}, /* dd M_sysopen 19232 */ {.type Here, {.p 19232 }}, /* 19232 360 */ {.type There, {.p 360 }}, /* 19232 360 */- {.type Absolute, {.p -1}}, /* dd -1 19240 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19240 */ {.type Here, {.p 19240 }}, /* 19240 360 */ {.type There, {.p 360 }}, /* 19240 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19248 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19248 */ {.type Here, {.p 19248 }}, /* 19248 360 */ {.type There, {.p 360 }}, /* 19248 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19256 */+ {.type Absolute, {.p -1}}, /* dd -1 19256 */ {.type Here, {.p 19256 }}, /* 19256 360 */ {.type There, {.p 360 }}, /* 19256 360 */- {.type Header, {.hdr { 10, "write-file", /* C_write_file = 19280 */ colon }}}, /* CENTRY "write-file" write_file 10 ; ( 'text count fd -- ioresult ) h 19288 */- {.type Here, {.p 19288 }}, /* 19288 360 */- {.type There, {.p 360 }}, /* 19288 360 */- {.type Here, {.p 19288 }}, /* 19288 360 */- {.type There, {.p 360 }}, /* 19288 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( n fd a )"}, /* dd C_rot ; ( n fd a ) 19296 */- {.type Here, {.p 19296 }}, /* 19296 360 */- {.type There, {.p 360 }}, /* 19296 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( fd a n )"}, /* dd C_rot ; ( fd a n ) 19304 */+ {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 19264 */+ {.type Here, {.p 19264 }}, /* 19264 360 */+ {.type There, {.p 360 }}, /* 19264 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19272 */+ {.type Here, {.p 19272 }}, /* 19272 360 */+ {.type There, {.p 360 }}, /* 19272 360 */+ {.type Here, {.p 19272 }}, /* 19272 360 */+ {.type There, {.p 360 }}, /* 19272 360 */+ {.type Header, {.hdr { 10, "close-file", /* C_close_file = 19296 */ colon }}}, /* CENTRY "close-file" close_file 10 ; ( fd -- ioresult ) h 19304 */ {.type Here, {.p 19304 }}, /* 19304 360 */ {.type There, {.p 360 }}, /* 19304 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 19312 */+ {.type Here, {.p 19304 }}, /* 19304 360 */+ {.type There, {.p 360 }}, /* 19304 360 */+ {.type FromDictionary, {.p M_sysclose}, .src = "dd M_sysclose"}, /* dd M_sysclose 19312 */ {.type Here, {.p 19312 }}, /* 19312 360 */ {.type There, {.p 360 }}, /* 19312 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19320 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 19320 */ {.type Here, {.p 19320 }}, /* 19320 360 */ {.type There, {.p 360 }}, /* 19320 360 */- {.type Absolute, {.p -1}}, /* dd -1 19328 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19328 */ {.type Here, {.p 19328 }}, /* 19328 360 */ {.type There, {.p 360 }}, /* 19328 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19336 */- {.type Here, {.p 19336 }}, /* 19336 360 */- {.type There, {.p 360 }}, /* 19336 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19344 */- {.type Here, {.p 19344 }}, /* 19344 360 */- {.type There, {.p 360 }}, /* 19344 360 */- {.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 19368 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 ; ( type n fd -- ioresult ) h 19376 */+ {.type Header, {.hdr { 9, "read-file", /* C_read_file = 19352 */ colon }}}, /* CENTRY "read-file" read_file 9 ; ( 'text count fd -- count2 ioresult ) h 19360 */+ {.type Here, {.p 19360 }}, /* 19360 360 */+ {.type There, {.p 360 }}, /* 19360 360 */+ {.type Here, {.p 19360 }}, /* 19360 360 */+ {.type There, {.p 360 }}, /* 19360 360 */+ {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( n fd a )"}, /* dd C_rot ; ( n fd a ) 19368 */+ {.type Here, {.p 19368 }}, /* 19368 360 */+ {.type There, {.p 360 }}, /* 19368 360 */+ {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( fd a n )"}, /* dd C_rot ; ( fd a n ) 19376 */ {.type Here, {.p 19376 }}, /* 19376 360 */ {.type There, {.p 360 }}, /* 19376 360 */- {.type Here, {.p 19376 }}, /* 19376 360 */- {.type There, {.p 360 }}, /* 19376 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( type fd n )"}, /* dd M_xswap ; ( type fd n ) 19384 */+ {.type FromDictionary, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 19384 */ {.type Here, {.p 19384 }}, /* 19384 360 */ {.type There, {.p 360 }}, /* 19384 360 */- {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( fd n type )"}, /* dd C_rot ; ( fd n type ) 19392 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19392 */ {.type Here, {.p 19392 }}, /* 19392 360 */ {.type There, {.p 360 }}, /* 19392 360 */- {.type FromDictionary, {.p M_sysseek}, .src = "dd M_sysseek"}, /* dd M_sysseek 19400 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19400 */ {.type Here, {.p 19400 }}, /* 19400 360 */ {.type There, {.p 360 }}, /* 19400 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19408 */+ {.type Absolute, {.p -1}}, /* dd -1 19408 */ {.type Here, {.p 19408 }}, /* 19408 360 */ {.type There, {.p 360 }}, /* 19408 360 */- {.type Absolute, {.p -1}}, /* dd -1 19416 */+ {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19416 */ {.type Here, {.p 19416 }}, /* 19416 360 */ {.type There, {.p 360 }}, /* 19416 360 */- {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19424 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19424 */ {.type Here, {.p 19424 }}, /* 19424 360 */ {.type There, {.p 360 }}, /* 19424 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19432 */- {.type Here, {.p 19432 }}, /* 19432 360 */- {.type There, {.p 360 }}, /* 19432 360 */- {.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 19448 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 19456 */+ {.type Header, {.hdr { 10, "write-file", /* C_write_file = 19448 */ colon }}}, /* CENTRY "write-file" write_file 10 ; ( 'text count fd -- ioresult ) h 19456 */ {.type Here, {.p 19456 }}, /* 19456 360 */ {.type There, {.p 360 }}, /* 19456 360 */ {.type Here, {.p 19456 }}, /* 19456 360 */ {.type There, {.p 360 }}, /* 19456 360 */- {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 19464 */+ {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( n fd a )"}, /* dd C_rot ; ( n fd a ) 19464 */ {.type Here, {.p 19464 }}, /* 19464 360 */ {.type There, {.p 360 }}, /* 19464 360 */- {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 19472 */+ {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( fd a n )"}, /* dd C_rot ; ( fd a n ) 19472 */ {.type Here, {.p 19472 }}, /* 19472 360 */ {.type There, {.p 360 }}, /* 19472 360 */- {.type FromDictionary, {.p L246}, .src = "dd L246"}, /* dd L246 19480 */+ {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 19480 */ {.type Here, {.p 19480 }}, /* 19480 360 */ {.type There, {.p 360 }}, /* 19480 360 */- {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 19488 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19488 */ {.type Here, {.p 19488 }}, /* 19488 360 */ {.type There, {.p 360 }}, /* 19488 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19496 */+ {.type Absolute, {.p -1}}, /* dd -1 19496 */ {.type Here, {.p 19496 }}, /* 19496 360 */ {.type There, {.p 360 }}, /* 19496 360 */- {.type FromDictionary, {.p L247}, .src = "dd L247"}, /* dd L247 19504 */+ {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19504 */ {.type Here, {.p 19504 }}, /* 19504 360 */ {.type There, {.p 360 }}, /* 19504 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 19512 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19512 */ {.type Here, {.p 19512 }}, /* 19512 360 */ {.type There, {.p 360 }}, /* 19512 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 19520 */- {.type Here, {.p 19520 }}, /* 19520 360 */- {.type There, {.p 360 }}, /* 19520 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 19528 */- {.type Here, {.p 19528 }}, /* 19528 360 */- {.type There, {.p 360 }}, /* 19528 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 19536 */- {.type Here, {.p 19536 }}, /* 19536 360 */- {.type There, {.p 360 }}, /* 19536 360 */- {.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 Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 19536 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 ; ( type n fd -- ioresult ) h 19544 */ {.type Here, {.p 19544 }}, /* 19544 360 */ {.type There, {.p 360 }}, /* 19544 360 */- {.type Header, {.hdr { 11, "create-file", /* C_create_file = 19568 */ 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 19576 */+ {.type Here, {.p 19544 }}, /* 19544 360 */+ {.type There, {.p 360 }}, /* 19544 360 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( type fd n )"}, /* dd M_xswap ; ( type fd n ) 19552 */+ {.type Here, {.p 19552 }}, /* 19552 360 */+ {.type There, {.p 360 }}, /* 19552 360 */+ {.type FromDictionary, {.p C_rot}, .src = "dd C_rot ; ( fd n type )"}, /* dd C_rot ; ( fd n type ) 19560 */+ {.type Here, {.p 19560 }}, /* 19560 360 */+ {.type There, {.p 360 }}, /* 19560 360 */+ {.type FromDictionary, {.p M_sysseek}, .src = "dd M_sysseek"}, /* dd M_sysseek 19568 */+ {.type Here, {.p 19568 }}, /* 19568 360 */+ {.type There, {.p 360 }}, /* 19568 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 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_rpush}, .src = "dd M_rpush ; ( a n mode ) (R perm)"}, /* dd M_rpush ; ( a n mode ) (R perm) 19584 */+ {.type Absolute, {.p -1}}, /* dd -1 19584 */ {.type Here, {.p 19584 }}, /* 19584 360 */ {.type There, {.p 360 }}, /* 19584 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a n ) (R perm mode)"}, /* dd M_rpush ; ( a n ) (R perm mode) 19592 */+ {.type FromDictionary, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 19592 */ {.type Here, {.p 19592 }}, /* 19592 360 */ {.type There, {.p 360 }}, /* 19592 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( a n padaddr)"}, /* dd C_pad ; ( a n padaddr) 19600 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19600 */ {.type Here, {.p 19600 }}, /* 19600 360 */ {.type There, {.p 360 }}, /* 19600 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19608 */- {.type Here, {.p 19608 }}, /* 19608 360 */- {.type There, {.p 360 }}, /* 19608 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( a n padaddr 1024 ) 19616 */- {.type Here, {.p 19616 }}, /* 19616 360 */- {.type There, {.p 360 }}, /* 19616 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( a n padaddr+1024 )"}, /* dd M_plus ; ( a n padaddr+1024 ) 19624 */+ {.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 19616 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 19624 */ {.type Here, {.p 19624 }}, /* 19624 360 */ {.type There, {.p 360 }}, /* 19624 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( a padaddr+1024 n )"}, /* dd M_xswap ; ( a padaddr+1024 n ) 19632 */+ {.type Here, {.p 19624 }}, /* 19624 360 */+ {.type There, {.p 360 }}, /* 19624 360 */+ {.type FromDictionary, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 19632 */ {.type Here, {.p 19632 }}, /* 19632 360 */ {.type There, {.p 360 }}, /* 19632 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a padaddr+1024 n n )"}, /* dd M_dup ; ( a padaddr+1024 n n ) 19640 */+ {.type FromDictionary, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 19640 */ {.type Here, {.p 19640 }}, /* 19640 360 */ {.type There, {.p 360 }}, /* 19640 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 ) 19648 */+ {.type FromDictionary, {.p L246}, .src = "dd L246"}, /* dd L246 19648 */ {.type Here, {.p 19648 }}, /* 19648 360 */ {.type There, {.p 360 }}, /* 19648 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 19656 */+ {.type FromDictionary, {.p C_space}, .src = "dd C_space"}, /* dd C_space 19656 */ {.type Here, {.p 19656 }}, /* 19656 360 */ {.type There, {.p 360 }}, /* 19656 360 */ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19664 */ {.type Here, {.p 19664 }}, /* 19664 360 */ {.type There, {.p 360 }}, /* 19664 360 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) 19672 */+ {.type FromDictionary, {.p L247}, .src = "dd L247"}, /* dd L247 19672 */ {.type Here, {.p 19672 }}, /* 19672 360 */ {.type There, {.p 360 }}, /* 19672 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 0 n ) (R perm mode)"}, /* dd M_rpop ; ( 0 n ) (R perm mode) 19680 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 19680 */ {.type Here, {.p 19680 }}, /* 19680 360 */ {.type There, {.p 360 }}, /* 19680 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 0 n padaddr)"}, /* dd C_pad ; ( 0 n padaddr) 19688 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 19688 */ {.type Here, {.p 19688 }}, /* 19688 360 */ {.type There, {.p 360 }}, /* 19688 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n )"}, /* dd M_plus ; ( 0 padaddr+n ) 19696 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 19696 */ {.type Here, {.p 19696 }}, /* 19696 360 */ {.type There, {.p 360 }}, /* 19696 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19704 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 19704 */ {.type Here, {.p 19704 }}, /* 19704 360 */ {.type There, {.p 360 }}, /* 19704 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 0 padaddr+n 1024 ) 19712 */+ {.type Here, {.p 19704 }}, /* 19704 360 */+ {.type There, {.p 360 }}, /* 19704 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19712 */ {.type Here, {.p 19712 }}, /* 19712 360 */ {.type There, {.p 360 }}, /* 19712 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n+1024 )"}, /* dd M_plus ; ( 0 padaddr+n+1024 ) 19720 */- {.type Here, {.p 19720 }}, /* 19720 360 */- {.type There, {.p 360 }}, /* 19720 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 19728 */- {.type Here, {.p 19728 }}, /* 19728 360 */- {.type There, {.p 360 }}, /* 19728 360 */- {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 19736 */- {.type Here, {.p 19736 }}, /* 19736 360 */- {.type There, {.p 360 }}, /* 19736 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19744 */+ {.type Header, {.hdr { 11, "create-file", /* C_create_file = 19736 */ 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 19744 */ {.type Here, {.p 19744 }}, /* 19744 360 */ {.type There, {.p 360 }}, /* 19744 360 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( padaddr 1024 ) 19752 */+ {.type Here, {.p 19744 }}, /* 19744 360 */+ {.type There, {.p 360 }}, /* 19744 360 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a n mode ) (R perm)"}, /* dd M_rpush ; ( a n mode ) (R perm) 19752 */ {.type Here, {.p 19752 }}, /* 19752 360 */ {.type There, {.p 360 }}, /* 19752 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( padaddr+1024 )"}, /* dd M_plus ; ( padaddr+1024 ) 19760 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush ; ( a n ) (R perm mode)"}, /* dd M_rpush ; ( a n ) (R perm mode) 19760 */ {.type Here, {.p 19760 }}, /* 19760 360 */ {.type There, {.p 360 }}, /* 19760 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode) (R perm )"}, /* dd M_rpop ; ( padaddr+1024 mode) (R perm ) 19768 */+ {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( a n padaddr)"}, /* dd C_pad ; ( a n padaddr) 19768 */ {.type Here, {.p 19768 }}, /* 19768 360 */ {.type There, {.p 360 }}, /* 19768 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode perm ) (R )"}, /* dd M_rpop ; ( padaddr+1024 mode perm ) (R ) 19776 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19776 */ {.type Here, {.p 19776 }}, /* 19776 360 */ {.type There, {.p 360 }}, /* 19776 360 */- {.type FromDictionary, {.p M_syscreate}, .src = "dd M_syscreate"}, /* dd M_syscreate 19784 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( a n padaddr 1024 ) 19784 */ {.type Here, {.p 19784 }}, /* 19784 360 */ {.type There, {.p 360 }}, /* 19784 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19792 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( a n padaddr+1024 )"}, /* dd M_plus ; ( a n padaddr+1024 ) 19792 */ {.type Here, {.p 19792 }}, /* 19792 360 */ {.type There, {.p 360 }}, /* 19792 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19800 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap ; ( a padaddr+1024 n )"}, /* dd M_xswap ; ( a padaddr+1024 n ) 19800 */ {.type Here, {.p 19800 }}, /* 19800 360 */ {.type There, {.p 360 }}, /* 19800 360 */- {.type Absolute, {.p -1}}, /* dd -1 19808 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup ; ( a padaddr+1024 n n )"}, /* dd M_dup ; ( a padaddr+1024 n n ) 19808 */ {.type Here, {.p 19808 }}, /* 19808 360 */ {.type There, {.p 360 }}, /* 19808 360 */- {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 19816 */+ {.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 ) 19816 */ {.type Here, {.p 19816 }}, /* 19816 360 */ {.type There, {.p 360 }}, /* 19816 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19824 */+ {.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 19824 */ {.type Here, {.p 19824 }}, /* 19824 360 */ {.type There, {.p 360 }}, /* 19824 360 */- {.type Here, {.p 19824 }}, /* 19824 360 */- {.type There, {.p 360 }}, /* 19824 360 */- {.type Header, {.hdr { 3, "bye", /* C_bye = 19840 */ colon }}}, /* CENTRY "bye" bye 3 h 19848 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19832 */+ {.type Here, {.p 19832 }}, /* 19832 360 */+ {.type There, {.p 360 }}, /* 19832 360 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) 19840 */+ {.type Here, {.p 19840 }}, /* 19840 360 */+ {.type There, {.p 360 }}, /* 19840 360 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( 0 n ) (R perm mode)"}, /* dd M_rpop ; ( 0 n ) (R perm mode) 19848 */ {.type Here, {.p 19848 }}, /* 19848 360 */ {.type There, {.p 360 }}, /* 19848 360 */- {.type Here, {.p 19848 }}, /* 19848 360 */- {.type There, {.p 360 }}, /* 19848 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19856 */+ {.type FromDictionary, {.p C_pad}, .src = "dd C_pad ; ( 0 n padaddr)"}, /* dd C_pad ; ( 0 n padaddr) 19856 */ {.type Here, {.p 19856 }}, /* 19856 360 */ {.type There, {.p 360 }}, /* 19856 360 */- {.type Absolute, {.p 0}}, /* dd 0 19864 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n )"}, /* dd M_plus ; ( 0 padaddr+n ) 19864 */ {.type Here, {.p 19864 }}, /* 19864 360 */ {.type There, {.p 360 }}, /* 19864 360 */- {.type FromDictionary, {.p M_terminate}, .src = "dd M_terminate"}, /* dd M_terminate 19872 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19872 */ {.type Here, {.p 19872 }}, /* 19872 360 */ {.type There, {.p 360 }}, /* 19872 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19880 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 0 padaddr+n 1024 ) 19880 */ {.type Here, {.p 19880 }}, /* 19880 360 */ {.type There, {.p 360 }}, /* 19880 360 */- {.type Here, {.p 19880 }}, /* 19880 360 */- {.type There, {.p 360 }}, /* 19880 360 */- {.type Header, {.hdr { 7, "include", /* C_include = 19896 */ colon }}}, /* CENTRY "include" include 7 ; this does not work h 19904 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n+1024 )"}, /* dd M_plus ; ( 0 padaddr+n+1024 ) 19888 */+ {.type Here, {.p 19888 }}, /* 19888 360 */+ {.type There, {.p 360 }}, /* 19888 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 19896 */+ {.type Here, {.p 19896 }}, /* 19896 360 */+ {.type There, {.p 360 }}, /* 19896 360 */+ {.type FromDictionary, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 19904 */ {.type Here, {.p 19904 }}, /* 19904 360 */ {.type There, {.p 360 }}, /* 19904 360 */- {.type Here, {.p 19904 }}, /* 19904 360 */- {.type There, {.p 360 }}, /* 19904 360 */- {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 19912 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19912 */ {.type Here, {.p 19912 }}, /* 19912 360 */ {.type There, {.p 360 }}, /* 19912 360 */- {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 19920 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( padaddr 1024 ) 19920 */ {.type Here, {.p 19920 }}, /* 19920 360 */ {.type There, {.p 360 }}, /* 19920 360 */- {.type Here, {.p 19920 }}, /* 19920 360 */- {.type There, {.p 360 }}, /* 19920 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 19928 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus ; ( padaddr+1024 )"}, /* dd M_plus ; ( padaddr+1024 ) 19928 */ {.type Here, {.p 19928 }}, /* 19928 360 */ {.type There, {.p 360 }}, /* 19928 360 */- {.type Here, {.p 19928 }}, /* 19928 360 */- {.type There, {.p 360 }}, /* 19928 360 */- {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 19936 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode) (R perm )"}, /* dd M_rpop ; ( padaddr+1024 mode) (R perm ) 19936 */ {.type Here, {.p 19936 }}, /* 19936 360 */ {.type There, {.p 360 }}, /* 19936 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 19944 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode perm ) (R )"}, /* dd M_rpop ; ( padaddr+1024 mode perm ) (R ) 19944 */ {.type Here, {.p 19944 }}, /* 19944 360 */ {.type There, {.p 360 }}, /* 19944 360 */- {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 19952 */+ {.type FromDictionary, {.p M_syscreate}, .src = "dd M_syscreate"}, /* dd M_syscreate 19952 */ {.type Here, {.p 19952 }}, /* 19952 360 */ {.type There, {.p 360 }}, /* 19952 360 */- {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 19960 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 19960 */ {.type Here, {.p 19960 }}, /* 19960 360 */ {.type There, {.p 360 }}, /* 19960 360 */- {.type FromDictionary, {.p C_qfcheck}, .src = "dd C_qfcheck"}, /* dd C_qfcheck 19968 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 19968 */ {.type Here, {.p 19968 }}, /* 19968 360 */ {.type There, {.p 360 }}, /* 19968 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd ; open the new file"}, /* dd MV_Infd ; open the new file 19976 */+ {.type Absolute, {.p -1}}, /* dd -1 19976 */ {.type Here, {.p 19976 }}, /* 19976 360 */ {.type There, {.p 360 }}, /* 19976 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 19984 */+ {.type FromDictionary, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 19984 */ {.type Here, {.p 19984 }}, /* 19984 360 */ {.type There, {.p 360 }}, /* 19984 360 */- {.type Here, {.p 19984 }}, /* 19984 360 */- {.type There, {.p 360 }}, /* 19984 360 */ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19992 */ {.type Here, {.p 19992 }}, /* 19992 360 */ {.type There, {.p 360 }}, /* 19992 360 */ {.type Here, {.p 19992 }}, /* 19992 360 */ {.type There, {.p 360 }}, /* 19992 360 */- {.type Header, {.hdr { 5, "crash", /* C_crash = 20008 */ colon }}}, /* CENTRY "crash" crash 5 h 20016 */+ {.type Header, {.hdr { 3, "bye", /* C_bye = 20008 */ colon }}}, /* CENTRY "bye" bye 3 h 20016 */ {.type Here, {.p 20016 }}, /* 20016 360 */ {.type There, {.p 360 }}, /* 20016 360 */ {.type Here, {.p 20016 }}, /* 20016 360 */@@ -7278,269 +7280,257 @@
{.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20024 */ {.type Here, {.p 20024 }}, /* 20024 360 */ {.type There, {.p 360 }}, /* 20024 360 */- {.type FromDictionary, {.p L251}, .src = "dd L251"}, /* dd L251 20032 */+ {.type Absolute, {.p 0}}, /* dd 0 20032 */ {.type Here, {.p 20032 }}, /* 20032 360 */ {.type There, {.p 360 }}, /* 20032 360 */- {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 20040 */+ {.type FromDictionary, {.p M_terminate}, .src = "dd M_terminate"}, /* dd M_terminate 20040 */ {.type Here, {.p 20040 }}, /* 20040 360 */ {.type There, {.p 360 }}, /* 20040 360 */- {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 20048 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20048 */ {.type Here, {.p 20048 }}, /* 20048 360 */ {.type There, {.p 360 }}, /* 20048 360 */- {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 20056 */- {.type Here, {.p 20056 }}, /* 20056 360 */- {.type There, {.p 360 }}, /* 20056 360 */- {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 20064 */- {.type Here, {.p 20064 }}, /* 20064 360 */- {.type There, {.p 360 }}, /* 20064 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20072 */+ {.type Here, {.p 20048 }}, /* 20048 360 */+ {.type There, {.p 360 }}, /* 20048 360 */+ {.type Header, {.hdr { 7, "include", /* C_include = 20064 */ colon }}}, /* CENTRY "include" include 7 ; this does not work h 20072 */ {.type Here, {.p 20072 }}, /* 20072 360 */ {.type There, {.p 360 }}, /* 20072 360 */ {.type Here, {.p 20072 }}, /* 20072 360 */ {.type There, {.p 360 }}, /* 20072 360 */- {.type Header, {.hdr { 4, "quit", /* C_quit = 20088 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 20096 */+ {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 20080 */+ {.type Here, {.p 20080 }}, /* 20080 360 */+ {.type There, {.p 360 }}, /* 20080 360 */+ {.type FromDictionary, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 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_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 20096 */ {.type Here, {.p 20096 }}, /* 20096 360 */ {.type There, {.p 360 }}, /* 20096 360 */ {.type Here, {.p 20096 }}, /* 20096 360 */ {.type There, {.p 360 }}, /* 20096 360 */- {.type FromDictionary, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 20104 */+ {.type FromDictionary, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 20104 */ {.type Here, {.p 20104 }}, /* 20104 360 */ {.type There, {.p 360 }}, /* 20104 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 20112 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 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 C_word}, .src = "dd C_word"}, /* dd C_word 20120 */+ {.type FromDictionary, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 20120 */ {.type Here, {.p 20120 }}, /* 20120 360 */ {.type There, {.p 360 }}, /* 20120 360 */- {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd MV_toLimit ; show the line read, for debugging */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd M_fetch */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd MV_Tib */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd MC_STDOUT */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd M_fswrite */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd M_drop ; drop the return value of write */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd C_cr */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */-/* ; dd C_space */ {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */- {.type Here, {.p 20120 }}, /* 20120 360 */- {.type There, {.p 360 }}, /* 20120 360 */- {.type FromDictionary, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 20128 */+ {.type FromDictionary, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 20128 */ {.type Here, {.p 20128 }}, /* 20128 360 */ {.type There, {.p 360 }}, /* 20128 360 */- {.type Here, {.p 20128 }}, /* 20128 360 */- {.type There, {.p 360 }}, /* 20128 360 */- {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 20136 */+ {.type FromDictionary, {.p C_qfcheck}, .src = "dd C_qfcheck"}, /* dd C_qfcheck 20136 */ {.type Here, {.p 20136 }}, /* 20136 360 */ {.type There, {.p 360 }}, /* 20136 360 */- {.type FromDictionary, {.p L_C_quit}, .src = "dd L_C_quit"}, /* dd L_C_quit 20144 */+ {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd ; open the new file"}, /* dd MV_Infd ; open the new file 20144 */ {.type Here, {.p 20144 }}, /* 20144 360 */ {.type There, {.p 360 }}, /* 20144 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed?"}, /* dd M_exitcolon ; why is this needed? 20152 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20152 */ {.type Here, {.p 20152 }}, /* 20152 360 */ {.type There, {.p 360 }}, /* 20152 360 */ {.type Here, {.p 20152 }}, /* 20152 360 */ {.type There, {.p 360 }}, /* 20152 360 */- {.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 20168 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 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 FromDictionary, {.p MV_State}, .src = "dd MV_State ; ( mv_State -- )"}, /* dd MV_State ; ( mv_State -- ) 20184 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20160 */+ {.type Here, {.p 20160 }}, /* 20160 360 */+ {.type There, {.p 360 }}, /* 20160 360 */+ {.type Here, {.p 20160 }}, /* 20160 360 */+ {.type There, {.p 360 }}, /* 20160 360 */+ {.type Header, {.hdr { 5, "crash", /* C_crash = 20176 */ colon }}}, /* CENTRY "crash" crash 5 h 20184 */ {.type Here, {.p 20184 }}, /* 20184 360 */ {.type There, {.p 360 }}, /* 20184 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; off sets variable state = 0"}, /* dd C_off ; off sets variable state = 0 20192 */+ {.type Here, {.p 20184 }}, /* 20184 360 */+ {.type There, {.p 360 }}, /* 20184 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20192 */ {.type Here, {.p 20192 }}, /* 20192 360 */ {.type There, {.p 360 }}, /* 20192 360 */- {.type Here, {.p 20192 }}, /* 20192 360 */- {.type There, {.p 360 }}, /* 20192 360 */- {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 20200 */+ {.type FromDictionary, {.p L251}, .src = "dd L251"}, /* dd L251 20200 */ {.type Here, {.p 20200 }}, /* 20200 360 */ {.type There, {.p 360 }}, /* 20200 360 */- {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 20208 */+ {.type FromDictionary, {.p C_count}, .src = "dd C_count"}, /* dd C_count 20208 */ {.type Here, {.p 20208 }}, /* 20208 360 */ {.type There, {.p 360 }}, /* 20208 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20216 */+ {.type FromDictionary, {.p C_type}, .src = "dd C_type"}, /* dd C_type 20216 */ {.type Here, {.p 20216 }}, /* 20216 360 */ {.type There, {.p 360 }}, /* 20216 360 */- {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 20224 */+ {.type FromDictionary, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 20224 */ {.type Here, {.p 20224 }}, /* 20224 360 */ {.type There, {.p 360 }}, /* 20224 360 */- {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 20232 */+ {.type FromDictionary, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 20232 */ {.type Here, {.p 20232 }}, /* 20232 360 */ {.type There, {.p 360 }}, /* 20232 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20240 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20240 */ {.type Here, {.p 20240 }}, /* 20240 360 */ {.type There, {.p 360 }}, /* 20240 360 */- {.type FromDictionary, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 20248 */- {.type Here, {.p 20248 }}, /* 20248 360 */- {.type There, {.p 360 }}, /* 20248 360 */- {.type FromDictionary, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 20256 */- {.type Here, {.p 20256 }}, /* 20256 360 */- {.type There, {.p 360 }}, /* 20256 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20264 */+ {.type Here, {.p 20240 }}, /* 20240 360 */+ {.type There, {.p 360 }}, /* 20240 360 */+ {.type Header, {.hdr { 4, "quit", /* C_quit = 20256 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 20264 */ {.type Here, {.p 20264 }}, /* 20264 360 */ {.type There, {.p 360 }}, /* 20264 360 */ {.type Here, {.p 20264 }}, /* 20264 360 */ {.type There, {.p 360 }}, /* 20264 360 */- {.type FromDictionary, {.p C_stdinput}, .src = "dd C_stdinput"}, /* dd C_stdinput 20272 */+ {.type FromDictionary, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 20272 */ {.type Here, {.p 20272 }}, /* 20272 360 */ {.type There, {.p 360 }}, /* 20272 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 20280 */+ {.type FromDictionary, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 20280 */ {.type Here, {.p 20280 }}, /* 20280 360 */ {.type There, {.p 360 }}, /* 20280 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 20288 */+ {.type Here, {.p 20280 }}, /* 20280 360 */+ {.type There, {.p 360 }}, /* 20280 360 */+ {.type FromDictionary, {.p C_word}, .src = "dd C_word"}, /* dd C_word 20288 */ {.type Here, {.p 20288 }}, /* 20288 360 */ {.type There, {.p 360 }}, /* 20288 360 */ {.type Here, {.p 20288 }}, /* 20288 360 */ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd MV_toLimit ; show the line read, for debugging */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd M_fetch */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd MV_Tib */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd MC_STDOUT */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd M_fswrite */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd M_drop ; drop the return value of write */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd C_cr */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */+/* ; dd C_space */ {.type Here, {.p 20288 }}, /* 20288 360 */+ {.type There, {.p 360 }}, /* 20288 360 */ {.type Here, {.p 20288 }}, /* 20288 360 */ {.type There, {.p 360 }}, /* 20288 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal ; test code"}, /* dd M_literal ; test code 20296 */+ {.type FromDictionary, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 20296 */ {.type Here, {.p 20296 }}, /* 20296 360 */ {.type There, {.p 360 }}, /* 20296 360 */- {.type Absolute, {.p 66}}, /* dd 66 20304 */+ {.type Here, {.p 20296 }}, /* 20296 360 */+ {.type There, {.p 360 }}, /* 20296 360 */+ {.type FromDictionary, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 20304 */ {.type Here, {.p 20304 }}, /* 20304 360 */ {.type There, {.p 360 }}, /* 20304 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20312 */+ {.type FromDictionary, {.p L_C_quit}, .src = "dd L_C_quit"}, /* dd L_C_quit 20312 */ {.type Here, {.p 20312 }}, /* 20312 360 */ {.type There, {.p 360 }}, /* 20312 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20320 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed?"}, /* dd M_exitcolon ; why is this needed? 20320 */ {.type Here, {.p 20320 }}, /* 20320 360 */ {.type There, {.p 360 }}, /* 20320 360 */- {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 20328 */- {.type Here, {.p 20328 }}, /* 20328 360 */- {.type There, {.p 360 }}, /* 20328 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20336 */- {.type Here, {.p 20336 }}, /* 20336 360 */- {.type There, {.p 360 }}, /* 20336 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20344 */+ {.type Here, {.p 20320 }}, /* 20320 360 */+ {.type There, {.p 360 }}, /* 20320 360 */+ {.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 20336 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 20344 */ {.type Here, {.p 20344 }}, /* 20344 360 */ {.type There, {.p 360 }}, /* 20344 360 */- {.type Absolute, {.p 1}}, /* dd 1 20352 */+ {.type Here, {.p 20344 }}, /* 20344 360 */+ {.type There, {.p 360 }}, /* 20344 360 */+ {.type FromDictionary, {.p MV_State}, .src = "dd MV_State ; ( mv_State -- )"}, /* dd MV_State ; ( mv_State -- ) 20352 */ {.type Here, {.p 20352 }}, /* 20352 360 */ {.type There, {.p 360 }}, /* 20352 360 */- {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 20360 */+ {.type FromDictionary, {.p C_off}, .src = "dd C_off ; off sets variable state = 0"}, /* dd C_off ; off sets variable state = 0 20360 */ {.type Here, {.p 20360 }}, /* 20360 360 */ {.type There, {.p 360 }}, /* 20360 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 20368 */+ {.type Here, {.p 20360 }}, /* 20360 360 */+ {.type There, {.p 360 }}, /* 20360 360 */+ {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 20368 */ {.type Here, {.p 20368 }}, /* 20368 360 */ {.type There, {.p 360 }}, /* 20368 360 */- {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 20376 */+ {.type FromDictionary, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 20376 */ {.type Here, {.p 20376 }}, /* 20376 360 */ {.type There, {.p 360 }}, /* 20376 360 */- {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20384 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20384 */ {.type Here, {.p 20384 }}, /* 20384 360 */ {.type There, {.p 360 }}, /* 20384 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20392 */+ {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 20392 */ {.type Here, {.p 20392 }}, /* 20392 360 */ {.type There, {.p 360 }}, /* 20392 360 */- {.type Absolute, {.p 1}}, /* dd 1 20400 */+ {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 20400 */ {.type Here, {.p 20400 }}, /* 20400 360 */ {.type There, {.p 360 }}, /* 20400 360 */- {.type FromDictionary, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 20408 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20408 */ {.type Here, {.p 20408 }}, /* 20408 360 */ {.type There, {.p 360 }}, /* 20408 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 20416 */+ {.type FromDictionary, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 20416 */ {.type Here, {.p 20416 }}, /* 20416 360 */ {.type There, {.p 360 }}, /* 20416 360 */- {.type Here, {.p 20416 }}, /* 20416 360 */- {.type There, {.p 360 }}, /* 20416 360 */- {.type Header, {.hdr { 10, "initialize", /* C_initialize = 20440 */ colon }}}, /* CENTRY "initialize" initialize 10 ; initialize buffer file names and buffer fds, why not hard code this? h 20448 */+ {.type FromDictionary, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 20424 */+ {.type Here, {.p 20424 }}, /* 20424 360 */+ {.type There, {.p 360 }}, /* 20424 360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20432 */+ {.type Here, {.p 20432 }}, /* 20432 360 */+ {.type There, {.p 360 }}, /* 20432 360 */+ {.type Here, {.p 20432 }}, /* 20432 360 */+ {.type There, {.p 360 }}, /* 20432 360 */+ {.type FromDictionary, {.p C_stdinput}, .src = "dd C_stdinput"}, /* dd C_stdinput 20440 */+ {.type Here, {.p 20440 }}, /* 20440 360 */+ {.type There, {.p 360 }}, /* 20440 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 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 MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 20456 */+ {.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 20456 */ {.type Here, {.p 20456 }}, /* 20456 360 */ {.type There, {.p 360 }}, /* 20456 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 20464 */+ {.type Here, {.p 20456 }}, /* 20456 360 */+ {.type There, {.p 360 }}, /* 20456 360 */+ {.type Here, {.p 20456 }}, /* 20456 360 */+ {.type There, {.p 360 }}, /* 20456 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal ; test code"}, /* dd M_literal ; test code 20464 */ {.type Here, {.p 20464 }}, /* 20464 360 */ {.type There, {.p 360 }}, /* 20464 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20472 */+ {.type Absolute, {.p 66}}, /* dd 66 20472 */ {.type Here, {.p 20472 }}, /* 20472 360 */ {.type There, {.p 360 }}, /* 20472 360 */- {.type Absolute, {.p 0}}, /* dd 0 20480 */+ {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20480 */ {.type Here, {.p 20480 }}, /* 20480 360 */ {.type There, {.p 360 }}, /* 20480 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 20488 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20488 */ {.type Here, {.p 20488 }}, /* 20488 360 */ {.type There, {.p 360 }}, /* 20488 360 */- {.type Here, {.p 20488 }}, /* 20488 360 */- {.type There, {.p 360 }}, /* 20488 360 */- {.type Here, {.p 20488 }}, /* 20488 360 */- {.type There, {.p 360 }}, /* 20488 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 20496 */+ {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 20496 */ {.type Here, {.p 20496 }}, /* 20496 360 */ {.type There, {.p 360 }}, /* 20496 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20504 */+ {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20504 */ {.type Here, {.p 20504 }}, /* 20504 360 */ {.type There, {.p 360 }}, /* 20504 360 */- {.type Absolute, {.p -1}}, /* dd -1 20512 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20512 */ {.type Here, {.p 20512 }}, /* 20512 360 */ {.type There, {.p 360 }}, /* 20512 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 20520 */+ {.type Absolute, {.p 1}}, /* dd 1 20520 */ {.type Here, {.p 20520 }}, /* 20520 360 */ {.type There, {.p 360 }}, /* 20520 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20528 */+ {.type FromDictionary, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 20528 */ {.type Here, {.p 20528 }}, /* 20528 360 */ {.type There, {.p 360 }}, /* 20528 360 */- {.type Here, {.p 20528 }}, /* 20528 360 */- {.type There, {.p 360 }}, /* 20528 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20536 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 20536 */ {.type Here, {.p 20536 }}, /* 20536 360 */ {.type There, {.p 360 }}, /* 20536 360 */- {.type Absolute, {.p 1}}, /* dd 1 20544 */+ {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 20544 */ {.type Here, {.p 20544 }}, /* 20544 360 */ {.type There, {.p 360 }}, /* 20544 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 20552 */+ {.type FromDictionary, {.p MV_Wordb}, .src = "dd MV_Wordb"}, /* dd MV_Wordb 20552 */ {.type Here, {.p 20552 }}, /* 20552 360 */ {.type There, {.p 360 }}, /* 20552 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 20560 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20560 */ {.type Here, {.p 20560 }}, /* 20560 360 */ {.type There, {.p 360 }}, /* 20560 360 */- {.type Here, {.p 20560 }}, /* 20560 360 */- {.type There, {.p 360 }}, /* 20560 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 20568 */+ {.type Absolute, {.p 1}}, /* dd 1 20568 */ {.type Here, {.p 20568 }}, /* 20568 360 */ {.type There, {.p 360 }}, /* 20568 360 */- {.type FromDictionary, {.p L_C_initialize}, .src = "dd L_C_initialize"}, /* dd L_C_initialize 20576 */+ {.type FromDictionary, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 20576 */ {.type Here, {.p 20576 }}, /* 20576 360 */ {.type There, {.p 360 }}, /* 20576 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 20584 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop ; drop the return value of read"}, /* dd M_drop ; drop the return value of read 20584 */ {.type Here, {.p 20584 }}, /* 20584 360 */ {.type There, {.p 360 }}, /* 20584 360 */ {.type Here, {.p 20584 }}, /* 20584 360 */ {.type There, {.p 360 }}, /* 20584 360 */- {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 20592 */- {.type Here, {.p 20592 }}, /* 20592 360 */- {.type There, {.p 360 }}, /* 20592 360 */- {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 20600 */- {.type Here, {.p 20600 }}, /* 20600 360 */- {.type There, {.p 360 }}, /* 20600 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20608 */- {.type Here, {.p 20608 }}, /* 20608 360 */- {.type There, {.p 360 }}, /* 20608 360 */- {.type Absolute, {.p 0}}, /* dd 0 20616 */+ {.type Header, {.hdr { 10, "initialize", /* C_initialize = 20608 */ colon }}}, /* CENTRY "initialize" initialize 10 ; initialize buffer file names and buffer fds, why not hard code this? h 20616 */ {.type Here, {.p 20616 }}, /* 20616 360 */ {.type There, {.p 360 }}, /* 20616 360 */- {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 20624 */+ {.type Here, {.p 20616 }}, /* 20616 360 */+ {.type There, {.p 360 }}, /* 20616 360 */+ {.type FromDictionary, {.p MV_Bufferfds}, .src = "dd MV_Bufferfds"}, /* dd MV_Bufferfds 20624 */ {.type Here, {.p 20624 }}, /* 20624 360 */ {.type There, {.p 360 }}, /* 20624 360 */- {.type Here, {.p 20624 }}, /* 20624 360 */- {.type There, {.p 360 }}, /* 20624 360 */- {.type Here, {.p 20624 }}, /* 20624 360 */- {.type There, {.p 360 }}, /* 20624 360 */- {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 20632 */+ {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 20632 */ {.type Here, {.p 20632 }}, /* 20632 360 */ {.type There, {.p 360 }}, /* 20632 360 */ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20640 */@@ -7549,279 +7539,356 @@
{.type Absolute, {.p 0}}, /* dd 0 20648 */ {.type Here, {.p 20648 }}, /* 20648 360 */ {.type There, {.p 360 }}, /* 20648 360 */- {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 20656 */+ {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 20656 */ {.type Here, {.p 20656 }}, /* 20656 360 */ {.type There, {.p 360 }}, /* 20656 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20664 */+ {.type Here, {.p 20656 }}, /* 20656 360 */+ {.type There, {.p 360 }}, /* 20656 360 */+ {.type Here, {.p 20656 }}, /* 20656 360 */+ {.type There, {.p 360 }}, /* 20656 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 20664 */ {.type Here, {.p 20664 }}, /* 20664 360 */ {.type There, {.p 360 }}, /* 20664 360 */- {.type Here, {.p 20664 }}, /* 20664 360 */- {.type There, {.p 360 }}, /* 20664 360 */ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20672 */ {.type Here, {.p 20672 }}, /* 20672 360 */ {.type There, {.p 360 }}, /* 20672 360 */- {.type Absolute, {.p 1}}, /* dd 1 20680 */+ {.type Absolute, {.p -1}}, /* dd -1 20680 */ {.type Here, {.p 20680 }}, /* 20680 360 */ {.type There, {.p 360 }}, /* 20680 360 */- {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 20688 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 20688 */ {.type Here, {.p 20688 }}, /* 20688 360 */ {.type There, {.p 360 }}, /* 20688 360 */- {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 20696 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20696 */ {.type Here, {.p 20696 }}, /* 20696 360 */ {.type There, {.p 360 }}, /* 20696 360 */ {.type Here, {.p 20696 }}, /* 20696 360 */ {.type There, {.p 360 }}, /* 20696 360 */- {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 20704 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20704 */ {.type Here, {.p 20704 }}, /* 20704 360 */ {.type There, {.p 360 }}, /* 20704 360 */- {.type FromDictionary, {.p L_C_initialize_1}, .src = "dd L_C_initialize_1"}, /* dd L_C_initialize_1 20712 */+ {.type Absolute, {.p 1}}, /* dd 1 20712 */ {.type Here, {.p 20712 }}, /* 20712 360 */ {.type There, {.p 360 }}, /* 20712 360 */- {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 20720 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 20720 */ {.type Here, {.p 20720 }}, /* 20720 360 */ {.type There, {.p 360 }}, /* 20720 360 */- {.type Here, {.p 20720 }}, /* 20720 360 */- {.type There, {.p 360 }}, /* 20720 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20728 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 20728 */ {.type Here, {.p 20728 }}, /* 20728 360 */ {.type There, {.p 360 }}, /* 20728 360 */- {.type FromDictionary, {.p L121}, .src = "dd L121"}, /* dd L121 20736 */+ {.type Here, {.p 20728 }}, /* 20728 360 */+ {.type There, {.p 360 }}, /* 20728 360 */+ {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 20736 */ {.type Here, {.p 20736 }}, /* 20736 360 */ {.type There, {.p 360 }}, /* 20736 360 */- {.type FromDictionary, {.p C_wordfilename_store}, .src = "dd C_wordfilename_store"}, /* dd C_wordfilename_store 20744 */+ {.type FromDictionary, {.p L_C_initialize}, .src = "dd L_C_initialize"}, /* dd L_C_initialize 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_literal}, .src = "dd M_literal"}, /* dd M_literal 20752 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 20752 */ {.type Here, {.p 20752 }}, /* 20752 360 */ {.type There, {.p 360 }}, /* 20752 360 */- {.type FromDictionary, {.p L122}, .src = "dd L122"}, /* dd L122 20760 */+ {.type Here, {.p 20752 }}, /* 20752 360 */+ {.type There, {.p 360 }}, /* 20752 360 */+ {.type FromDictionary, {.p MV_Bufferfilenames}, .src = "dd MV_Bufferfilenames"}, /* dd MV_Bufferfilenames 20760 */ {.type Here, {.p 20760 }}, /* 20760 360 */ {.type There, {.p 360 }}, /* 20760 360 */- {.type FromDictionary, {.p C_linefilename_store}, .src = "dd C_linefilename_store"}, /* dd C_linefilename_store 20768 */+ {.type FromDictionary, {.p MC_NBUFFERS}, .src = "dd MC_NBUFFERS"}, /* dd MC_NBUFFERS 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 M_literal}, .src = "dd M_literal"}, /* dd M_literal 20776 */ {.type Here, {.p 20776 }}, /* 20776 360 */ {.type There, {.p 360 }}, /* 20776 360 */- {.type FromDictionary, {.p L123}, .src = "dd L123"}, /* dd L123 20784 */+ {.type Absolute, {.p 0}}, /* dd 0 20784 */ {.type Here, {.p 20784 }}, /* 20784 360 */ {.type There, {.p 360 }}, /* 20784 360 */- {.type FromDictionary, {.p C_doublequotefilename_store}, .src = "dd C_doublequotefilename_store"}, /* dd C_doublequotefilename_store 20792 */+ {.type FromDictionary, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 20792 */ {.type Here, {.p 20792 }}, /* 20792 360 */ {.type There, {.p 360 }}, /* 20792 360 */ {.type Here, {.p 20792 }}, /* 20792 360 */ {.type There, {.p 360 }}, /* 20792 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20800 */+ {.type Here, {.p 20792 }}, /* 20792 360 */+ {.type There, {.p 360 }}, /* 20792 360 */+ {.type FromDictionary, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 20800 */ {.type Here, {.p 20800 }}, /* 20800 360 */ {.type There, {.p 360 }}, /* 20800 360 */- {.type FromDictionary, {.p L124}, .src = "dd L124"}, /* dd L124 20808 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20808 */ {.type Here, {.p 20808 }}, /* 20808 360 */ {.type There, {.p 360 }}, /* 20808 360 */- {.type FromDictionary, {.p C_closeparenfilename_store}, .src = "dd C_closeparenfilename_store"}, /* dd C_closeparenfilename_store 20816 */+ {.type Absolute, {.p 0}}, /* dd 0 20816 */ {.type Here, {.p 20816 }}, /* 20816 360 */ {.type There, {.p 360 }}, /* 20816 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20824 */+ {.type FromDictionary, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 20824 */ {.type Here, {.p 20824 }}, /* 20824 360 */ {.type There, {.p 360 }}, /* 20824 360 */- {.type Here, {.p 20824 }}, /* 20824 360 */- {.type There, {.p 360 }}, /* 20824 360 */- {.type Header, {.hdr { 4, "boot", /* C_boot = 20840 */ colon }}}, /* CENTRY "boot" boot 4 h 20848 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20832 */+ {.type Here, {.p 20832 }}, /* 20832 360 */+ {.type There, {.p 360 }}, /* 20832 360 */+ {.type Here, {.p 20832 }}, /* 20832 360 */+ {.type There, {.p 360 }}, /* 20832 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20840 */+ {.type Here, {.p 20840 }}, /* 20840 360 */+ {.type There, {.p 360 }}, /* 20840 360 */+ {.type Absolute, {.p 1}}, /* dd 1 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_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 20856 */+ {.type FromDictionary, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 20856 */ {.type Here, {.p 20856 }}, /* 20856 360 */ {.type There, {.p 360 }}, /* 20856 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 20864 */+ {.type FromDictionary, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 20864 */ {.type Here, {.p 20864 }}, /* 20864 360 */ {.type There, {.p 360 }}, /* 20864 360 */ {.type Here, {.p 20864 }}, /* 20864 360 */ {.type There, {.p 360 }}, /* 20864 360 */- {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20872 */+ {.type FromDictionary, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 20872 */ {.type Here, {.p 20872 }}, /* 20872 360 */ {.type There, {.p 360 }}, /* 20872 360 */- {.type FromDictionary, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"}, /* dd C_parenabort ; ( (abort) -- ) 20880 */+ {.type FromDictionary, {.p L_C_initialize_1}, .src = "dd L_C_initialize_1"}, /* dd L_C_initialize_1 20880 */ {.type Here, {.p 20880 }}, /* 20880 360 */ {.type There, {.p 360 }}, /* 20880 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 20888 */+ {.type FromDictionary, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 20888 */ {.type Here, {.p 20888 }}, /* 20888 360 */ {.type There, {.p 360 }}, /* 20888 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; variable abortvec = (abort) code address"}, /* dd M_store ; variable abortvec = (abort) code address 20896 */+ {.type Here, {.p 20888 }}, /* 20888 360 */+ {.type There, {.p 360 }}, /* 20888 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20896 */ {.type Here, {.p 20896 }}, /* 20896 360 */ {.type There, {.p 360 }}, /* 20896 360 */- {.type Here, {.p 20896 }}, /* 20896 360 */- {.type There, {.p 360 }}, /* 20896 360 */- {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 20904 */+ {.type FromDictionary, {.p L121}, .src = "dd L121"}, /* dd L121 20904 */ {.type Here, {.p 20904 }}, /* 20904 360 */ {.type There, {.p 360 }}, /* 20904 360 */- {.type FromDictionary, {.p MV_H0}, .src = "dd MV_H0 ; H0 = here at startup"}, /* dd MV_H0 ; H0 = here at startup 20912 */+ {.type FromDictionary, {.p C_wordfilename_store}, .src = "dd C_wordfilename_store"}, /* dd C_wordfilename_store 20912 */ {.type Here, {.p 20912 }}, /* 20912 360 */ {.type There, {.p 360 }}, /* 20912 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20920 */+ {.type Here, {.p 20912 }}, /* 20912 360 */+ {.type There, {.p 360 }}, /* 20912 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20920 */ {.type Here, {.p 20920 }}, /* 20920 360 */ {.type There, {.p 360 }}, /* 20920 360 */- {.type Here, {.p 20920 }}, /* 20920 360 */- {.type There, {.p 360 }}, /* 20920 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 20928 */+ {.type FromDictionary, {.p L122}, .src = "dd L122"}, /* dd L122 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 MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 20936 */+ {.type FromDictionary, {.p C_linefilename_store}, .src = "dd C_linefilename_store"}, /* dd C_linefilename_store 20936 */ {.type Here, {.p 20936 }}, /* 20936 360 */ {.type There, {.p 360 }}, /* 20936 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 20944 */+ {.type Here, {.p 20936 }}, /* 20936 360 */+ {.type There, {.p 360 }}, /* 20936 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20944 */ {.type Here, {.p 20944 }}, /* 20944 360 */ {.type There, {.p 360 }}, /* 20944 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store ; stdin = 0"}, /* dd M_store ; stdin = 0 20952 */+ {.type FromDictionary, {.p L123}, .src = "dd L123"}, /* dd L123 20952 */ {.type Here, {.p 20952 }}, /* 20952 360 */ {.type There, {.p 360 }}, /* 20952 360 */- {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 20960 */+ {.type FromDictionary, {.p C_doublequotefilename_store}, .src = "dd C_doublequotefilename_store"}, /* dd C_doublequotefilename_store 20960 */ {.type Here, {.p 20960 }}, /* 20960 360 */ {.type There, {.p 360 }}, /* 20960 360 */- {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 20968 */+ {.type Here, {.p 20960 }}, /* 20960 360 */+ {.type There, {.p 360 }}, /* 20960 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 20968 */ {.type Here, {.p 20968 }}, /* 20968 360 */ {.type There, {.p 360 }}, /* 20968 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 20976 */+ {.type FromDictionary, {.p L124}, .src = "dd L124"}, /* dd L124 20976 */ {.type Here, {.p 20976 }}, /* 20976 360 */ {.type There, {.p 360 }}, /* 20976 360 */- {.type FromDictionary, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 20984 */+ {.type FromDictionary, {.p C_closeparenfilename_store}, .src = "dd C_closeparenfilename_store"}, /* dd C_closeparenfilename_store 20984 */ {.type Here, {.p 20984 }}, /* 20984 360 */ {.type There, {.p 360 }}, /* 20984 360 */- {.type FromDictionary, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 20992 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 20992 */ {.type Here, {.p 20992 }}, /* 20992 360 */ {.type There, {.p 360 }}, /* 20992 360 */- {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 21000 */- {.type Here, {.p 21000 }}, /* 21000 360 */- {.type There, {.p 360 }}, /* 21000 360 */- {.type Here, {.p 21000 }}, /* 21000 360 */- {.type There, {.p 360 }}, /* 21000 360 */- {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 21008 */- {.type Here, {.p 21008 }}, /* 21008 360 */- {.type There, {.p 360 }}, /* 21008 360 */- {.type FromDictionary, {.p C_off}, .src = "dd C_off ; off stores 0 at state"}, /* dd C_off ; off stores 0 at state 21016 */+ {.type Here, {.p 20992 }}, /* 20992 360 */+ {.type There, {.p 360 }}, /* 20992 360 */+ {.type Header, {.hdr { 4, "boot", /* C_boot = 21008 */ colon }}}, /* CENTRY "boot" boot 4 h 21016 */ {.type Here, {.p 21016 }}, /* 21016 360 */ {.type There, {.p 360 }}, /* 21016 360 */- {.type FromDictionary, {.p C_decimal}, .src = "dd C_decimal ; decimal sets base = 10"}, /* dd C_decimal ; decimal sets base = 10 21024 */+ {.type Here, {.p 21016 }}, /* 21016 360 */+ {.type There, {.p 360 }}, /* 21016 360 */+ {.type FromDictionary, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 21024 */ {.type Here, {.p 21024 }}, /* 21024 360 */ {.type There, {.p 360 }}, /* 21024 360 */- {.type Here, {.p 21024 }}, /* 21024 360 */- {.type There, {.p 360 }}, /* 21024 360 */- {.type FromDictionary, {.p C_args}, .src = "dd C_args ; process args"}, /* dd C_args ; process args 21032 */+ {.type FromDictionary, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 21032 */ {.type Here, {.p 21032 }}, /* 21032 360 */ {.type There, {.p 360 }}, /* 21032 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 21040 */+ {.type Here, {.p 21032 }}, /* 21032 360 */+ {.type There, {.p 360 }}, /* 21032 360 */+ {.type FromDictionary, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 21040 */ {.type Here, {.p 21040 }}, /* 21040 360 */ {.type There, {.p 360 }}, /* 21040 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 21048 */+ {.type FromDictionary, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"}, /* dd C_parenabort ; ( (abort) -- ) 21048 */ {.type Here, {.p 21048 }}, /* 21048 360 */ {.type There, {.p 360 }}, /* 21048 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 21056 */+ {.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 21056 */ {.type Here, {.p 21056 }}, /* 21056 360 */ {.type There, {.p 360 }}, /* 21056 360 */- {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 21064 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store ; variable abortvec = (abort) code address"}, /* dd M_store ; variable abortvec = (abort) code address 21064 */ {.type Here, {.p 21064 }}, /* 21064 360 */ {.type There, {.p 360 }}, /* 21064 360 */ {.type Here, {.p 21064 }}, /* 21064 360 */ {.type There, {.p 360 }}, /* 21064 360 */- {.type Here, {.p 21064 }}, /* 21064 360 */- {.type There, {.p 360 }}, /* 21064 360 */- {.type Chars, {.str "#n/"}}, /* "#n/" 21068 */- {.type Here, {.p 21068 }}, /* 21068 360 */- {.type There, {.p 360 }}, /* 21068 360 */+ {.type FromDictionary, {.p MV_Dp}, .src = "dd MV_Dp"}, /* dd MV_Dp 21072 */ {.type Here, {.p 21072 }}, /* 21072 360 */ {.type There, {.p 360 }}, /* 21072 360 */- {.type Chars, {.str "/word"}}, /* "/word" 21078 */- {.type Here, {.p 21078 }}, /* 21078 360 */- {.type There, {.p 360 }}, /* 21078 360 */+ {.type FromDictionary, {.p MV_H0}, .src = "dd MV_H0 ; H0 = here at startup"}, /* dd MV_H0 ; H0 = here at startup 21080 */ {.type Here, {.p 21080 }}, /* 21080 360 */ {.type There, {.p 360 }}, /* 21080 360 */- {.type Chars, {.str "/line"}}, /* "/line" 21086 */- {.type Here, {.p 21086 }}, /* 21086 360 */- {.type There, {.p 360 }}, /* 21086 360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 21088 */ {.type Here, {.p 21088 }}, /* 21088 360 */ {.type There, {.p 360 }}, /* 21088 360 */- {.type Chars, {.str "/doublequote"}}, /* "/doublequote" 21101 */- {.type Here, {.p 21101 }}, /* 21101 360 */- {.type There, {.p 360 }}, /* 21101 360 */+ {.type Here, {.p 21088 }}, /* 21088 360 */+ {.type There, {.p 360 }}, /* 21088 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 21096 */+ {.type Here, {.p 21096 }}, /* 21096 360 */+ {.type There, {.p 360 }}, /* 21096 360 */+ {.type Here, {.p 21096 }}, /* 21096 360 */+ {.type There, {.p 360 }}, /* 21096 360 */+ {.type FromDictionary, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 21104 */ {.type Here, {.p 21104 }}, /* 21104 360 */ {.type There, {.p 360 }}, /* 21104 360 */- {.type Chars, {.str "/closeparen"}}, /* "/closeparen" 21116 */- {.type Here, {.p 21116 }}, /* 21116 360 */- {.type There, {.p 360 }}, /* 21116 360 */- {.type Here, {.p 21116 }}, /* 21116 360 */- {.type There, {.p 360 }}, /* 21116 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 21112 */+ {.type Here, {.p 21112 }}, /* 21112 360 */+ {.type There, {.p 360 }}, /* 21112 360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store ; stdin = 0"}, /* dd M_store ; stdin = 0 21120 */ {.type Here, {.p 21120 }}, /* 21120 360 */ {.type There, {.p 360 }}, /* 21120 360 */- {.type Chars, {.str "unable to restore input"}}, /* "unable to restore input" 21144 */+ {.type FromDictionary, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 21128 */+ {.type Here, {.p 21128 }}, /* 21128 360 */+ {.type There, {.p 360 }}, /* 21128 360 */+ {.type FromDictionary, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 21136 */+ {.type Here, {.p 21136 }}, /* 21136 360 */+ {.type There, {.p 360 }}, /* 21136 360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 21144 */ {.type Here, {.p 21144 }}, /* 21144 360 */ {.type There, {.p 360 }}, /* 21144 360 */- {.type Here, {.p 21144 }}, /* 21144 360 */- {.type There, {.p 360 }}, /* 21144 360 */- {.type Chars, {.str "open file failed"}}, /* "open file failed" 21161 */- {.type Here, {.p 21161 }}, /* 21161 360 */- {.type There, {.p 360 }}, /* 21161 360 */+ {.type FromDictionary, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 21152 */+ {.type Here, {.p 21152 }}, /* 21152 360 */+ {.type There, {.p 360 }}, /* 21152 360 */+ {.type FromDictionary, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 21160 */+ {.type Here, {.p 21160 }}, /* 21160 360 */+ {.type There, {.p 360 }}, /* 21160 360 */+ {.type FromDictionary, {.p M_store}, .src = "dd M_store"}, /* dd M_store 21168 */ {.type Here, {.p 21168 }}, /* 21168 360 */ {.type There, {.p 360 }}, /* 21168 360 */- {.type Chars, {.str "read file failed"}}, /* "read file failed" 21185 */- {.type Here, {.p 21185 }}, /* 21185 360 */- {.type There, {.p 360 }}, /* 21185 360 */+ {.type Here, {.p 21168 }}, /* 21168 360 */+ {.type There, {.p 360 }}, /* 21168 360 */+ {.type FromDictionary, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 21176 */+ {.type Here, {.p 21176 }}, /* 21176 360 */+ {.type There, {.p 360 }}, /* 21176 360 */+ {.type FromDictionary, {.p C_off}, .src = "dd C_off ; off stores 0 at state"}, /* dd C_off ; off stores 0 at state 21184 */+ {.type Here, {.p 21184 }}, /* 21184 360 */+ {.type There, {.p 360 }}, /* 21184 360 */+ {.type FromDictionary, {.p C_decimal}, .src = "dd C_decimal ; decimal sets base = 10"}, /* dd C_decimal ; decimal sets base = 10 21192 */ {.type Here, {.p 21192 }}, /* 21192 360 */ {.type There, {.p 360 }}, /* 21192 360 */- {.type Chars, {.str " Q?"}}, /* " Q?" 21196 */- {.type Here, {.p 21196 }}, /* 21196 360 */- {.type There, {.p 360 }}, /* 21196 360 */+ {.type Here, {.p 21192 }}, /* 21192 360 */+ {.type There, {.p 360 }}, /* 21192 360 */+ {.type FromDictionary, {.p C_args}, .src = "dd C_args ; process args"}, /* dd C_args ; process args 21200 */ {.type Here, {.p 21200 }}, /* 21200 360 */ {.type There, {.p 360 }}, /* 21200 360 */- {.type Chars, {.str " stack underflow"}}, /* " stack underflow" 21217 */- {.type Here, {.p 21217 }}, /* 21217 360 */- {.type There, {.p 360 }}, /* 21217 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 21208 */+ {.type Here, {.p 21208 }}, /* 21208 360 */+ {.type There, {.p 360 }}, /* 21208 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 21216 */+ {.type Here, {.p 21216 }}, /* 21216 360 */+ {.type There, {.p 360 }}, /* 21216 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 21224 */ {.type Here, {.p 21224 }}, /* 21224 360 */ {.type There, {.p 360 }}, /* 21224 360 */- {.type Chars, {.str " I?"}}, /* " I?" 21228 */- {.type Here, {.p 21228 }}, /* 21228 360 */- {.type There, {.p 360 }}, /* 21228 360 */+ {.type FromDictionary, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 21232 */ {.type Here, {.p 21232 }}, /* 21232 360 */ {.type There, {.p 360 }}, /* 21232 360 */- {.type Chars, {.str " C?"}}, /* " C?" 21236 */+ {.type Here, {.p 21232 }}, /* 21232 360 */+ {.type There, {.p 360 }}, /* 21232 360 */+ {.type Here, {.p 21232 }}, /* 21232 360 */+ {.type There, {.p 360 }}, /* 21232 360 */+ {.type Chars, {.str "#n/"}}, /* "#n/" 21236 */ {.type Here, {.p 21236 }}, /* 21236 360 */ {.type There, {.p 360 }}, /* 21236 360 */ {.type Here, {.p 21240 }}, /* 21240 360 */ {.type There, {.p 360 }}, /* 21240 360 */- {.type Chars, {.str "I/O error"}}, /* "I/O error" 21250 */- {.type Here, {.p 21250 }}, /* 21250 360 */- {.type There, {.p 360 }}, /* 21250 360 */+ {.type Chars, {.str "/word"}}, /* "/word" 21246 */+ {.type Here, {.p 21246 }}, /* 21246 360 */+ {.type There, {.p 360 }}, /* 21246 360 */+ {.type Here, {.p 21248 }}, /* 21248 360 */+ {.type There, {.p 360 }}, /* 21248 360 */+ {.type Chars, {.str "/line"}}, /* "/line" 21254 */+ {.type Here, {.p 21254 }}, /* 21254 360 */+ {.type There, {.p 360 }}, /* 21254 360 */ {.type Here, {.p 21256 }}, /* 21256 360 */ {.type There, {.p 360 }}, /* 21256 360 */- {.type Chars, {.str "uninitialized execution vector"}}, /* "uninitialized execution vector" 21287 */- {.type Here, {.p 21287 }}, /* 21287 360 */- {.type There, {.p 360 }}, /* 21287 360 */+ {.type Chars, {.str "/doublequote"}}, /* "/doublequote" 21269 */+ {.type Here, {.p 21269 }}, /* 21269 360 */+ {.type There, {.p 360 }}, /* 21269 360 */+ {.type Here, {.p 21272 }}, /* 21272 360 */+ {.type There, {.p 360 }}, /* 21272 360 */+ {.type Chars, {.str "/closeparen"}}, /* "/closeparen" 21284 */+ {.type Here, {.p 21284 }}, /* 21284 360 */+ {.type There, {.p 360 }}, /* 21284 360 */+ {.type Here, {.p 21284 }}, /* 21284 360 */+ {.type There, {.p 360 }}, /* 21284 360 */ {.type Here, {.p 21288 }}, /* 21288 360 */ {.type There, {.p 360 }}, /* 21288 360 */- {.type Chars, {.str " ok"}}, /* " ok" 21292 */- {.type Here, {.p 21292 }}, /* 21292 360 */- {.type There, {.p 360 }}, /* 21292 360 */- {.type Here, {.p 21296 }}, /* 21296 360 */- {.type There, {.p 360 }}, /* 21296 360 */- {.type Chars, {.str "input is longer than 4096 bytes without a delimiter"}}, /* "input is longer than 4096 bytes without a delimiter" 21348 */- {.type Here, {.p 21348 }}, /* 21348 360 */- {.type There, {.p 360 }}, /* 21348 360 */- {.type Here, {.p 21352 }}, /* 21352 360 */- {.type There, {.p 360 }}, /* 21352 360 */- {.type Chars, {.str "read error"}}, /* "read error" 21363 */- {.type Here, {.p 21363 }}, /* 21363 360 */- {.type There, {.p 360 }}, /* 21363 360 */+ {.type Chars, {.str "unable to restore input"}}, /* "unable to restore input" 21312 */+ {.type Here, {.p 21312 }}, /* 21312 360 */+ {.type There, {.p 360 }}, /* 21312 360 */+ {.type Here, {.p 21312 }}, /* 21312 360 */+ {.type There, {.p 360 }}, /* 21312 360 */+ {.type Chars, {.str "open file failed"}}, /* "open file failed" 21329 */+ {.type Here, {.p 21329 }}, /* 21329 360 */+ {.type There, {.p 360 }}, /* 21329 360 */+ {.type Here, {.p 21336 }}, /* 21336 360 */+ {.type There, {.p 360 }}, /* 21336 360 */+ {.type Chars, {.str "read file failed"}}, /* "read file failed" 21353 */+ {.type Here, {.p 21353 }}, /* 21353 360 */+ {.type There, {.p 360 }}, /* 21353 360 */+ {.type Here, {.p 21360 }}, /* 21360 360 */+ {.type There, {.p 360 }}, /* 21360 360 */+ {.type Chars, {.str " Q?"}}, /* " Q?" 21364 */+ {.type Here, {.p 21364 }}, /* 21364 360 */+ {.type There, {.p 360 }}, /* 21364 360 */ {.type Here, {.p 21368 }}, /* 21368 360 */ {.type There, {.p 360 }}, /* 21368 360 */- {.type Chars, {.str "word is too long to be interpreted"}}, /* "word is too long to be interpreted" 21403 */- {.type Here, {.p 21403 }}, /* 21403 360 */- {.type There, {.p 360 }}, /* 21403 360 */+ {.type Chars, {.str " stack underflow"}}, /* " stack underflow" 21385 */+ {.type Here, {.p 21385 }}, /* 21385 360 */+ {.type There, {.p 360 }}, /* 21385 360 */+ {.type Here, {.p 21392 }}, /* 21392 360 */+ {.type There, {.p 360 }}, /* 21392 360 */+ {.type Chars, {.str " I?"}}, /* " I?" 21396 */+ {.type Here, {.p 21396 }}, /* 21396 360 */+ {.type There, {.p 360 }}, /* 21396 360 */+ {.type Here, {.p 21400 }}, /* 21400 360 */+ {.type There, {.p 360 }}, /* 21400 360 */+ {.type Chars, {.str " C?"}}, /* " C?" 21404 */+ {.type Here, {.p 21404 }}, /* 21404 360 */+ {.type There, {.p 360 }}, /* 21404 360 */ {.type Here, {.p 21408 }}, /* 21408 360 */ {.type There, {.p 360 }}, /* 21408 360 */+ {.type Chars, {.str "I/O error"}}, /* "I/O error" 21418 */+ {.type Here, {.p 21418 }}, /* 21418 360 */+ {.type There, {.p 360 }}, /* 21418 360 */+ {.type Here, {.p 21424 }}, /* 21424 360 */+ {.type There, {.p 360 }}, /* 21424 360 */+ {.type Chars, {.str "uninitialized execution vector"}}, /* "uninitialized execution vector" 21455 */+ {.type Here, {.p 21455 }}, /* 21455 360 */+ {.type There, {.p 360 }}, /* 21455 360 */+ {.type Here, {.p 21456 }}, /* 21456 360 */+ {.type There, {.p 360 }}, /* 21456 360 */+ {.type Chars, {.str " ok"}}, /* " ok" 21460 */+ {.type Here, {.p 21460 }}, /* 21460 360 */+ {.type There, {.p 360 }}, /* 21460 360 */+ {.type Here, {.p 21464 }}, /* 21464 360 */+ {.type There, {.p 360 }}, /* 21464 360 */+ {.type Chars, {.str "input is longer than 4096 bytes without a delimiter"}}, /* "input is longer than 4096 bytes without a delimiter" 21516 */+ {.type Here, {.p 21516 }}, /* 21516 360 */+ {.type There, {.p 360 }}, /* 21516 360 */+ {.type Here, {.p 21520 }}, /* 21520 360 */+ {.type There, {.p 360 }}, /* 21520 360 */+ {.type Chars, {.str "read error"}}, /* "read error" 21531 */+ {.type Here, {.p 21531 }}, /* 21531 360 */+ {.type There, {.p 360 }}, /* 21531 360 */+ {.type Here, {.p 21536 }}, /* 21536 360 */+ {.type There, {.p 360 }}, /* 21536 360 */+ {.type Chars, {.str "word is too long to be interpreted"}}, /* "word is too long to be interpreted" 21571 */+ {.type Here, {.p 21571 }}, /* 21571 360 */+ {.type There, {.p 360 }}, /* 21571 360 */+ {.type Here, {.p 21576 }}, /* 21576 360 */+ {.type There, {.p 360 }}, /* 21576 360 */};
--- a/os/pc64/forth.s
+++ b/os/pc64/forth.s
@@ -117,6 +117,11 @@
such as:
[char] a - does something with a. a's location is in IP
char - does something with the next input word
+
+ stack notations
+ cs counted-string
+ 'text address of text
+ n number
*/
/* HEAPSTART, HEAPEND, HERE, DTOP, VHERE are loaded by the caller */
--- a/os/pc64/words-nasm.s
+++ b/os/pc64/words-nasm.s
@@ -517,6 +517,7 @@
dd C_here
dd M_minus
dd M_exitcolon
+
CENTRY "<#" C_fromhash 2
dd C_pad
dd M_literal
@@ -605,6 +606,17 @@
L_C_sign:
dd M_exitcolon
+CENTRY "c(.)" C_counted_paren_dot_paren 4 ; convert the top of stack to a counted string ( n1 -- 'cs )
+dd C_paren_dot_paren ; ( 'text n2 )
+dd M_xswap ; ( n2 'text )
+dd M_literal
+dd 1
+dd M_minus ; ( n2 'text-1 )
+dd M_xswap
+dd M_over ; ( 'text-1 n2 'text-1 )
+dd M_cstore ; ( 'text-1 )
+dd M_exitcolon
+
CENTRY "(.)" C_paren_dot_paren 3 ; convert the top of stack to a string ( n1 -- 'text n2 )
dd M_dup ; ( n -- n n )
dd C_abs ; ( n n -- n u )
@@ -639,6 +651,7 @@
dd C_spaces
dd C_type
dd M_exitcolon
+
CENTRY "hex" C_hex 3
dd M_literal
dd 16
@@ -786,6 +799,13 @@
dd M_execute
dd M_exitcolon
+CENTRY "bufferfilename@" C_bufferfilename_fetch 15 ; ( index -- 'counted-string ) fetch label
+dd C_cells
+dd MV_Bufferfilenames
+dd M_plus
+dd M_fetch
+dd M_exitcolon
+
CENTRY "bufferfilename!" C_bufferfilename_store 15 ; ( 'text index -- ) store label
dd C_cells
dd MV_Bufferfilenames
@@ -1111,55 +1131,57 @@
L_restore_input: ; input stream restored, get out
dd M_exitcolon
+CENTRY "concat" C_concat 6 ; ( 'cs1 'cs2 -- 'cs1+'cs2 ) concatenate counted string2 to counted-string1
+
+; move the contents of cs2 to cs1+1+count1. cs2+1 cs1+c1+1 c2 cmove
+dd C_2dup ; ( 'cs1 'cs2 'cs1 'cs2 )
+dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2 'cs2 )
+dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2 c2 )
+dd M_rpush ; ( 'cs1 'cs2 'cs1 'cs2 ) (R c2 )
+dd C_1plus ; ( 'cs1 'cs2 'cs1 'cs2+1 ) (R c2 )
+dd M_over ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 ) (R c2 )
+dd M_dup ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 'cs1 ) (R c2 )
+dd M_cfetch ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1 c1 ) (R c2 )
+dd M_plus ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1 ) (R c2 )
+dd C_1plus ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 ) (R c2 )
+dd M_rpop ; ( 'cs1 'cs2 'cs1 'cs2+1 'cs1+c1+1 c2 ) (R )
+dd M_cmove ; ( 'cs1 'cs2 'cs1 )
+
+; update the count in cs1. c1 = c1+c2
+dd M_cfetch ; ( 'cs1 'cs2 c1 )
+dd M_xswap ; ( 'cs1 c1 'cs2 )
+dd M_cfetch ; ( 'cs1 c1 c2 )
+dd M_plus ; ( 'cs1 c1+c2 )
+dd M_over ; ( 'cs1 c1+c2 'cs1 )
+dd M_cstore ; ( 'cs1 )
+
+dd M_exitcolon
+
+; 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_cells ; ( index*cellsize ) number of bytes
-dd MV_Bufferfilenames
-dd M_plus ; ( index*cellsize+'Bufferfilenames ) address of the filename's counted string
-dd M_fetch ; ( 'filename_counted_string )
+dd C_bufferfilename_fetch ; ( 'fcs ) fcs = filename counted string
dd M_literal
-dd L120 ; address of the counted string 3#n/
+dd L_bin_prefix ; address of the counted string 3#n/
dd C_pad
dd M_literal
dd 4
dd M_cmove ; pad has 3#n/
-dd C_pad
-dd M_literal
-dd 4
-dd M_plus ; ( 'filename_counted_string pad+4 )
-dd M_rpush ; ( 'filename_counted_string pad+4 ) (R pad+4 )
+dd C_pad ; ( 'fcs pad )
dd MV_Infd
dd M_fetch
-dd C_paren_dot_paren ; ( 'filename_counted_string pad+4 'text fd_text_count ) ( R pad+4 )
+dd C_counted_paren_dot_paren ; ( 'fcs pad 'cs )
+dd C_concat ; Now, pad has 4#n/0 ( 'fcs pad )
-dd M_dup
-dd M_rpop
-dd M_plus
-dd M_rpush ; ( 'filename_counted_string pad+4 'text fd_text_count ) ( R pad+4+fd_text_count )
+dd M_xswap ; ( pad 'fcs )
+dd C_concat ; Now, pad has a proper counted string
-dd M_cmove ; now, pad has #n/<infd> ( 'filename_counted_string ) ( R pad+4+fd_text_count )
-
-dd M_rpop ; ( 'filename_counted_string pad+4+fd_text_count )
-dd M_over ; ( 'filename_counted_string pad+4+fd_text_count 'filename_counted_string )
-dd M_cfetch ; ( 'filename_counted_string pad+4+fd_text_count filename_count )
-dd M_rpush ; ( 'filename_counted_string pad+4+fd_text_count ) (R filename_count )
dd M_dup
-dd M_rpush ; ( 'filename_counted_string pad+4+fd_text_count ) (R filename_count pad+4+fd_text_count )
+dd C_count
+dd C_type
+dd C_cr
-dd M_xswap ; ( pad+4+fd_text_count 'filename_counted_string ) (R filename_count pad+4+fd_text_count )
-dd C_count ; ( pad+4+fd_text_count 'filename count ) (R filename_count pad+4+fd_text_count )
-dd M_cmove ; now, pad has the whole filename ( ) (R filename_count pad+4+fd_text_count )
-
-dd M_rpop
-dd M_rpop
-dd M_plus ; ( pad+4+fd_text_count+filename_count )
-
-dd C_pad
-dd C_1plus
-dd M_minus ; ( pad+4+fd_text_count+filename_count-pad-1 )
-dd C_pad
-dd M_store ; Now, pad has a proper counted string
dd M_exitcolon
; max of a counted string is 256 bytes. Hence, cannot use it.
@@ -1185,9 +1207,9 @@
dd M_dup
dd M_rpush ; ( index index ) (R index )
dd C_buffername
-dd C_count ; ( index 'filename-counted-string -- 'text count )
+dd C_count ; ( index 'filename-counted-string -- 'text count ) (R index )
dd C_ro
-dd C_open_file ; ( index fd ioresult )
+dd C_open_file ; ( index fd ioresult ) (R index )
dd M_cjump
dd L_C_get_store
@@ -1308,7 +1330,7 @@
dd C_get
dd M_exitcolon
-CENTRY "doublequote" C_doublequote 11 ; ( -- count ) read from #n/Infd/doublequote into Tib and then parse to a counted string in Wordb
+CENTRY "doublequote" C_doublequote 11 ; ( -- count ) read from #n/Infd/doublequote into Tib
dd MC_DOUBLEQUOTENUM
dd C_get
dd M_exitcolon
@@ -1796,7 +1818,7 @@
dd C_allot ; ( here count ) here = here+count
dd M_exitcolon
-CENTRY "c\"" C_cdouble_quote 2 ; ( | ..." -- 'counted-string ) stores counted string in the dictionary. For use in interpretive mode.
+CENTRY "c\"" C_counted_double_quote 2 ; ( | ..." -- 'counted-string ) stores counted string in the dictionary. For use in interpretive mode.
dd C_counted_doublequote ; ( 'Wordb )
dd M_dup ; ( 'Wordb 'Wordb )
dd M_cfetch ; ( 'Wordb count )
@@ -2242,7 +2264,7 @@
dd C_quit ; interpreter loop when there are no args or fall through after processing args
dd M_exitcolon
-L120:
+L_bin_prefix:
db "#n/"
L121:
db "/word"
--- a/os/port/devforth.c
+++ b/os/port/devforth.c
@@ -240,7 +240,6 @@
int n;
Bhdr *b;
-debug = 1;
h = fmem+DICTIONARY;
dtop = nil;
vh = fmem+THERE+8;
@@ -335,7 +334,7 @@
nbytes = snprint((char*)fmem + ARGSFILENAME+1, 32, "#p/%d/args", up->pid);
*(u8*)(fmem + ARGSFILENAME) = nbytes;
- DBG("loadforthdictionary fmem 0x%p\n"+ print("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"
" PSTACK 0x%p (intptr*)(fmem + PSTACK) 0x%p\n"
@@ -349,7 +348,6 @@
D2B(b, fmem);
DBG("Bhdr b 0x%p b->magic 0x%x b->size %zd b->allocpc 0x%zX\n",b, b->magic, b->size, b->allocpc);
-debug = 0;
}
/* also called by init0 for the init forth proc */