ref: 2a3a8ae0c8cfdc57e4c6055493cc83d60dbfdf1b
parent: 99993f0d2c9b49a70a095235d90a7d0c01936d2e
author: 9ferno <[email protected]>
date: Mon Jan 24 17:18:48 EST 2022
changed the bindings to have the same order of arguments as the underlying calls
--- a/os/pc64/bindings.s
+++ b/os/pc64/bindings.s
@@ -36,7 +36,7 @@
#define STORE(x,y) \
MOVQ $y, CX; \
- ADDQ UP, CX; \
+ ADDQ UM, CX; \
MOVQ x, 0(CX);
#define STOREFORTH \
@@ -45,12 +45,12 @@
STORE(RSP,FORTHRSP);\
STORE(IP,FORTHIP);\
STORE(W,FORTHW);\
- STORE(UP,FORTHUP);\
- STORE(UPE,FORTHUPE);
+ STORE(UM,FORTHUM);\
+ STORE(UME,FORTHUME);
#define RESTORE(x,y) \
MOVQ $x, CX; \
- ADDQ UP, CX; \
+ ADDQ UM, CX; \
MOVQ 0(CX), y;
#define RESTOREFORTH \
@@ -59,8 +59,8 @@
RESTORE(FORTHRSP,RSP);\
RESTORE(FORTHIP,IP);\
RESTORE(FORTHW,W);\
- RESTORE(FORTHUP,UP);\
- RESTORE(FORTHUPE,UPE);
+ RESTORE(FORTHUM,UM);\
+ RESTORE(FORTHUME,UME);
#define C_TO_F_0 \
RESTOREFORTH;
@@ -71,19 +71,19 @@
MOVQ AX, TOP; /* C puts the return value in AX */\
#define F_TO_C_3 \
- MOVQ TOP, RARG;\
+ MOVQ TOP, 16(SP);\
POP(TOP);\
MOVQ TOP, 8(SP);\
POP(TOP);\
- MOVQ TOP, 16(SP);\
+ MOVQ TOP, RARG;\
POP(TOP);\
STOREFORTH;
#define F_TO_C_2 \
- MOVQ TOP, RARG;\
- POP(TOP);\
MOVQ TOP, 8(SP);\
POP(TOP);\
+ MOVQ TOP, RARG;\
+ POP(TOP);\
STOREFORTH;
#define F_TO_C_1 \
@@ -91,20 +91,20 @@
POP(TOP);\
STOREFORTH;
-TEXT fsopen(SB), 1, $24 /* ( mode cstr -- fd ) */
- MOVQ UP, 16(SP)
+TEXT sysopen(SB), 1, $24 /* ( cstr mode -- fd ) */
+ MOVQ UM, 16(SP)
F_TO_C_2
CALL kopen(SB)
- MOVQ 16(SP), UP
+ MOVQ 16(SP), UM
C_TO_F_1
ADDQ $24, SP
NEXT
-TEXT fsclose(SB), 1, $16 /* ( fd -- n ) */
- MOVQ UP, 8(SP)
+TEXT sysclose(SB), 1, $16 /* ( fd -- n ) */
+ MOVQ UM, 8(SP)
F_TO_C_1
CALL kclose(SB)
- MOVQ 24(SP), UP
+ MOVQ 24(SP), UM
C_TO_F_1
ADDQ $16, SP
NEXT
@@ -112,26 +112,25 @@
/*
* no link register in amd64
* 3 arguments for kwrite = 24 bytes
- * 1 local for storing UP = 8 bytes
+ * 1 local for storing UM = 8 bytes
* 1 local for storing fd
* Hence, need 40 bytes on the stack
* if fd == 0 and read return value == 0 == End of file, terminate
*/
-TEXT fsread(SB), 1, $40 /* ( n a fd -- n2 ) */
+TEXT sysread(SB), 1, $40 /* ( fd a n -- n2 ) */
- PUSH(TOP)
- MOVQ 16(PSP), TOP
- MOVQ 8(PSP), CX
- PUSH(TOP)
- MOVQ CX, TOP /* ( n a fd -- n a fd n a ) */
+ PUSH(TOP) /* ( fd a n n ) */
+ MOVQ 8(PSP), CX /* CX = a ( fd a n n ) */
+ PUSH(CX) /* ( fd a n a n ) */
- CALL validatebuffer(SB) /* ( n a fd ) */
+ CALL validatebuffer(SB) /* ( fd a n a n -- fd a n ) */
- MOVQ TOP, 32(SP) /* storing the fd to double check later */
- MOVQ UP, 24(SP)
+ MOVQ 8(PSP), CX
+ MOVQ CX, 32(SP) /* storing the fd to double check later */
+ MOVQ UM, 24(SP)
F_TO_C_3
CALL kread(SB)
- MOVQ 24(SP), UP
+ MOVQ 24(SP), UM
C_TO_F_1
CMPQ TOP, $-1 /* return value == -1? */
@@ -154,40 +153,69 @@
/*
* no link register in amd64
* 3 arguments for kwrite = 24 bytes
- * 1 local for storing UP = 8 bytes
+ * 1 local for storing UM = 8 bytes
* Hence, need 32 bytes on the stack
*/
-TEXT fswrite(SB), 1, $32 /* ( n a fd -- n2|-1 ) */
- PUSH(TOP) /* ( -- n a fd fd ) */
- MOVQ 16(PSP), TOP /* TOP = n */
- MOVQ 8(PSP), CX /* CX = a */
- PUSH(TOP) /* ( -- n a fd n n ) */
- MOVQ CX, TOP /* ( n a fd -- n a fd n a ) */
+TEXT syswrite(SB), 1, $32 /* ( fd a n -- n2|-1 ) */
+ PUSH(TOP) /* ( fd a n n ) */
+ MOVQ 8(PSP), CX /* CX = a ( fd a n n ) */
+ PUSH(CX) /* ( fd a n a n ) */
- CALL validatebuffer(SB) /* ( n a fd n a -- n a fd ) */
+ CALL validatebuffer(SB) /* ( fd a n a n -- fd a n ) */
- MOVQ UP, 24(SP)
+ MOVQ UM, 24(SP)
F_TO_C_3
CALL kwrite(SB)
- MOVQ 24(SP), UP
+ MOVQ 24(SP), UM
C_TO_F_1
ADDQ $32, SP
NEXT
-TEXT fsseek(SB), 1, $32 /* ( type pos fd -- n ) */
- MOVQ UP, 24(SP)
+TEXT sysseek(SB), 1, $32 /* ( fd pos type -- n ) */
+ MOVQ UM, 24(SP)
F_TO_C_3
CALL kseek(SB)
- MOVQ 24(SP), UP
+ MOVQ 24(SP), UM
C_TO_F_1
ADDQ $32, SP
NEXT
-TEXT fscreate(SB), 1, $32 /* ( perm mode cstr -- fd ) */
- MOVQ UP, 24(SP)
+TEXT syscreate(SB), 1, $32 /* ( cstr mode perm -- fd ) */
+ MOVQ UM, 24(SP)
F_TO_C_3
CALL kcreate(SB)
- MOVQ 24(SP), UP
+ MOVQ 24(SP), UM
C_TO_F_1
ADDQ $32, SP
+ NEXT
+
+TEXT sysbind(SB), 1, $32 /* ( cstrold cstrnew flags -- int ) */
+ MOVQ UM, 24(SP)
+ F_TO_C_3
+ CALL kbind(SB)
+ MOVQ 24(SP), UM
+ C_TO_F_1
+ ADDQ $32, SP
+ NEXT
+
+#define F_TO_C_5 \
+ MOVQ TOP, 32(SP);\
+ POP(TOP);\
+ MOVQ TOP, 24(SP);\
+ POP(TOP);\
+ MOVQ TOP, 16(SP);\
+ POP(TOP);\
+ MOVQ TOP, 8(SP);\
+ POP(TOP);\
+ MOVQ TOP, RARG;\
+ POP(TOP);\
+ STOREFORTH;
+
+TEXT sysmount(SB), 1, $48 /* ( fd afd cstrold flags spec -- int ) */
+ MOVQ UM, 40(SP)
+ F_TO_C_5
+ CALL kmount(SB)
+ MOVQ 40(SP), UM
+ C_TO_F_1
+ ADDQ $48, SP
NEXT
--- a/os/pc64/forth.h
+++ b/os/pc64/forth.h
@@ -32,345 +32,346 @@
M_store = 40,
M_cfetch = 64,
M_cstore = 88,
- M_fsread = 112,
- M_fswrite = 136,
- M_fsseek = 160,
- M_fsopen = 184,
- M_fsclose = 208,
- M_fscreate = 232,
- M_mmap = 256,
- M_terminate = 280,
- M_fthdump = 304,
- M_clear = 328,
- M_reset = 352,
- M_exitcolon = 376,
- M_literal = 408,
- M_sliteral = 440,
- M_doinit = 464,
- M_doloop = 488,
- M_doploop = 512,
- M_rfetch = 536,
- M_rpop = 560,
- M_rpush = 584,
- M_i = 608,
- M_j = 632,
- M_plus = 656,
- M_minus = 680,
- M_multiply = 704,
- M_cjump = 728,
- M_jump = 752,
- M_slashmod = 776,
- M_uslashmod = 800,
- M_binand = 824,
- M_binor = 848,
- M_binxor = 872,
- M_xswap = 896,
- M_drop = 920,
- M_dup = 944,
- M_over = 968,
- M_equal = 992,
- M_greater = 1016,
- M_less = 1040,
- M_lshift = 1064,
- M_rshift = 1088,
- M_rshifta = 1112,
- M_execute = 1136,
- M_unloop = 1160,
- M_cmove = 1184,
- M_cmoveb = 1208,
- M_variable = 1240,
- M_constant = 1272,
- M_colon = 1296,
- M_dodoes = 1320,
- M_cas = 1344,
- M_deferred = 1376,
- MC_STDIN = 1400,
- MC_STDOUT = 1432,
- MC_STDERR = 1464,
- MV_Iobuf = 1496,
- MV_Sourcebuf = 1536,
- MV_Wordbuf = 1568,
- MV_toIn = 1600,
- MV_toLimit = 1632,
- MV_Findadr = 1664,
- MV_Blk = 1696,
- MV_Searchlen = 1736,
- MV_Base = 1768,
- MV_toNum = 1800,
- MV_State = 1832,
- MV_Abortvec = 1872,
- MV_Infd = 1904,
- MV_Outfd = 1936,
- MV_Errfd = 1968,
- MV_Eof = 2000,
- MV_Ninputs = 2032,
- MV_H0 = 2064,
- M_Dp = 2096,
- M_Dtop = 2120,
- M_Vp = 2144,
- M_S0 = 2168,
- M_stackptr = 2192,
- M_Wordb = 2216,
- M_Tib = 2240,
- M_Args = 2264,
- C_false = 2288,
- C_true = 2336,
- C_bl = 2384,
- C_on = 2432,
- C_off = 2496,
- C_tobody = 2560,
- C_aligned = 2616,
- C_cells = 2696,
- C_cellplus = 2752,
- C_depth = 2816,
- C_nip = 2920,
- C_rot = 2968,
- C_2drop = 3032,
- C_2dup = 3080,
- C_2nip = 3128,
- C_2swap = 3176,
- C_qdup = 3240,
- L20 = 3312,
- C_pick = 3336,
- L22 = 3440,
- L23 = 3448,
- C_tuck = 3472,
- C_divides = 3536,
- C_plusstore = 3584,
- C_invert = 3664,
- C_mod = 3720,
- C_1plus = 3768,
- C_1minus = 3824,
- C_negate = 3880,
- C_2multiplies = 3944,
- C_2divides = 4000,
- C_0eq = 4056,
- C_0lt = 4112,
- C_0gt = 4168,
- C_neq = 4224,
- C_0neq = 4272,
- C_max = 4328,
- L40 = 4392,
- L41 = 4400,
- C_min = 4424,
- L43 = 4488,
- L44 = 4496,
- C_signum = 4520,
- L46 = 4600,
- L48 = 4656,
- L49 = 4672,
- L47 = 4672,
- C_within = 4696,
- C_abs = 4800,
- L52 = 4848,
- C_key = 4872,
- L78 = 5000,
- L79 = 5016,
- C_emit = 5040,
- C_type = 5152,
- C_cr = 5224,
- C_space = 5280,
- C_emits = 5328,
- L85 = 5336,
- L86 = 5400,
- C_spaces = 5432,
- C_count = 5488,
- C_compare = 5632,
- L55 = 5704,
- L56 = 5840,
- C_erase = 5920,
- L58 = 5952,
- C_fill = 6040,
- L60 = 6080,
- C_blank = 6168,
- C_search = 6216,
- L64 = 6320,
- L65 = 6504,
- C_here = 6568,
- C_vhere = 6616,
- C_comma = 6664,
- C_c = 6744,
- C_allot = 6824,
- C_vallot = 6872,
- C_pad = 6920,
- C_align = 6984,
- C_unused = 7048,
- C_fromhash = 7112,
- C_hash = 7192,
- L92 = 7344,
- L93 = 7368,
- C_hashs = 7448,
- L95 = 7456,
- L96 = 7504,
- C_hashfrom = 7528,
- C_hold = 7640,
- C_sign = 7744,
- L100 = 7800,
- C_dot = 7824,
- C_dotr = 7928,
- C_hex = 8088,
- C_decimal = 8152,
- C_digit = 8216,
- L106 = 8328,
- L108 = 8432,
- L110 = 8536,
- L111 = 8560,
- L109 = 8560,
- L107 = 8560,
- L112 = 8632,
- L113 = 8648,
- C_number = 8672,
- L115 = 8808,
- L116 = 8840,
- L117 = 8904,
- L118 = 9008,
- L119 = 9064,
- C_abort = 9152,
- C_source = 9208,
- C_current_input = 9264,
- C_save_input = 9344,
- C_default_input = 9488,
- C_restore_input = 9608,
- L300 = 9712,
- L301 = 9728,
- L133 = 9816,
- L134 = 9904,
- C_qrestore_input = 9936,
- L136 = 10064,
- C_next_input = 10096,
- L139 = 10192,
- L140 = 10216,
- C_parse = 10240,
- L142 = 10280,
- L143 = 10408,
- C_word = 10552,
- L145 = 10568,
- L146 = 10664,
- C_accept = 10704,
- L148 = 10744,
- L150 = 10904,
- L149 = 10968,
- C_query = 11016,
- L152 = 11160,
- L153 = 11192,
- C_refill = 11216,
- L155 = 11280,
- L156 = 11296,
- C_findname = 11328,
- L158 = 11368,
- L160 = 11480,
- L162 = 11608,
- L161 = 11616,
- L159 = 11632,
- C_find = 11680,
- L165 = 11872,
- L166 = 11888,
- L164 = 11912,
- L167 = 11920,
- C_single_quote = 11944,
- L169 = 12080,
- C_qstack = 12104,
- L172 = 12208,
- C_interpret = 12288,
- L175 = 12296,
- L177 = 12408,
- L179 = 12520,
- L178 = 12520,
- L176 = 12536,
- C_create = 12568,
- C_variable = 12816,
- C_constant = 12912,
- C_immediate = 13040,
- C_tocfa = 13152,
- C_compile = 13232,
- L189 = 13360,
- L190 = 13376,
- L188 = 13392,
- L192 = 13520,
- L194 = 13552,
- L191 = 13552,
- C_close_bracket = 13576,
- L196 = 13600,
- L197 = 13688,
- L198 = 13712,
- L199 = 13744,
- CI_open_bracket = 13768,
- C_smudge = 13816,
- C_reveal = 13928,
- C_colon = 14048,
- CI_semicolon = 14176,
- CI_recurse = 14256,
- C_char = 14328,
- C_literal = 14392,
- C_sliteral = 14464,
- C_string = 14632,
- CI_char_brackets = 14744,
- CI_quote_brackets = 14816,
- CI_openparen = 14864,
- CI_backslash = 14928,
- L214 = 15072,
- L215 = 15104,
- C_qabort_parens = 15136,
- L217 = 15216,
- L218 = 15224,
- CI_abort_double_quote = 15248,
- C_double_quote = 15312,
- C_cdouble_quote = 15440,
- CI_sdouble_quote = 15576,
- CI_dotstr = 15616,
- CI_if = 15680,
- CI_else = 15768,
- CI_then = 15896,
- CI_begin = 15952,
- CI_again = 15992,
- CI_until = 16056,
- CI_while = 16120,
- CI_repeat = 16208,
- CI_do = 16304,
- CI_loop = 16384,
- L234 = 16472,
- CI_ploop = 16496,
- L236 = 16584,
- C_wo = 16608,
- C_ro = 16704,
- C_rw = 16752,
- C_open_file = 16808,
- C_close_file = 17080,
- C_read_file = 17136,
- C_write_file = 17240,
- C_reposition_file = 17336,
- C_qfcheck = 17400,
- L246 = 17496,
- C_create_file = 17528,
- C_bye = 17816,
- C_include = 17872,
- C_crash = 18024,
- C_quit = 18112,
- L253 = 18136,
- C_parenabort = 18192,
- C_oldboot = 18360,
- C_boot = 18808,
- L137 = 19048,
- L170 = 19072,
- L173 = 19076,
- L180 = 19093,
- L193 = 19097,
- L247 = 19101,
- L251 = 19111,
- L255 = 19142,
+ M_sysread = 112,
+ M_syswrite = 144,
+ M_sysseek = 168,
+ M_sysopen = 192,
+ M_sysclose = 224,
+ M_syscreate = 256,
+ M_mmap = 280,
+ M_terminate = 304,
+ M_fthdump = 328,
+ M_clear = 352,
+ M_reset = 376,
+ M_exitcolon = 400,
+ M_literal = 432,
+ M_sliteral = 464,
+ M_doinit = 488,
+ M_doloop = 512,
+ M_doploop = 536,
+ M_rfetch = 560,
+ M_rpop = 584,
+ M_rpush = 608,
+ M_i = 632,
+ M_j = 656,
+ M_plus = 680,
+ M_minus = 704,
+ M_multiply = 728,
+ M_cjump = 752,
+ M_jump = 776,
+ M_slashmod = 800,
+ M_uslashmod = 824,
+ M_binand = 848,
+ M_binor = 872,
+ M_binxor = 896,
+ M_xswap = 920,
+ M_drop = 944,
+ M_dup = 968,
+ M_over = 992,
+ M_equal = 1016,
+ M_greater = 1040,
+ M_less = 1064,
+ M_lshift = 1088,
+ M_rshift = 1112,
+ M_rshifta = 1136,
+ M_execute = 1160,
+ M_unloop = 1184,
+ M_cmove = 1208,
+ M_cmoveb = 1232,
+ M_variable = 1264,
+ M_constant = 1296,
+ M_colon = 1320,
+ M_dodoes = 1344,
+ M_cas = 1368,
+ M_deferred = 1400,
+ MC_STDIN = 1424,
+ MC_STDOUT = 1456,
+ MC_STDERR = 1488,
+ MV_Iobuf = 1520,
+ MV_Sourcebuf = 1560,
+ MV_Wordbuf = 1592,
+ MV_toIn = 1624,
+ MV_toLimit = 1656,
+ MV_Findadr = 1688,
+ MV_Blk = 1720,
+ MV_Searchlen = 1760,
+ MV_Base = 1792,
+ MV_toNum = 1824,
+ MV_State = 1856,
+ MV_Abortvec = 1896,
+ MV_Infd = 1928,
+ MV_Outfd = 1960,
+ MV_Errfd = 1992,
+ MV_Eof = 2024,
+ MV_Ninputs = 2056,
+ MV_H0 = 2088,
+ M_Dp = 2120,
+ M_Dtop = 2144,
+ M_Vp = 2168,
+ M_S0 = 2192,
+ M_stackptr = 2216,
+ M_Wordb = 2240,
+ M_Tib = 2264,
+ M_Args = 2288,
+ C_false = 2312,
+ C_true = 2360,
+ C_bl = 2408,
+ C_on = 2456,
+ C_off = 2520,
+ C_tobody = 2584,
+ C_aligned = 2640,
+ C_cells = 2720,
+ C_cellplus = 2776,
+ C_depth = 2840,
+ C_nip = 2944,
+ C_rot = 2992,
+ C_2drop = 3056,
+ C_2dup = 3104,
+ C_2nip = 3152,
+ C_2swap = 3200,
+ C_qdup = 3264,
+ L20 = 3336,
+ C_pick = 3360,
+ L22 = 3464,
+ L23 = 3472,
+ C_tuck = 3496,
+ C_divides = 3560,
+ C_plusstore = 3608,
+ C_invert = 3688,
+ C_mod = 3744,
+ C_1plus = 3792,
+ C_1minus = 3848,
+ C_negate = 3904,
+ C_2multiplies = 3968,
+ C_2divides = 4024,
+ C_0eq = 4080,
+ C_0lt = 4136,
+ C_0gt = 4192,
+ C_neq = 4248,
+ C_0neq = 4296,
+ C_max = 4352,
+ L40 = 4416,
+ L41 = 4424,
+ C_min = 4448,
+ L43 = 4512,
+ L44 = 4520,
+ C_signum = 4544,
+ L46 = 4624,
+ L48 = 4680,
+ L49 = 4696,
+ L47 = 4696,
+ C_within = 4720,
+ C_abs = 4824,
+ L52 = 4872,
+ C_key = 4896,
+ L78 = 5024,
+ L79 = 5040,
+ C_emit = 5064,
+ C_type = 5168,
+ C_cr = 5264,
+ C_space = 5320,
+ C_emits = 5368,
+ L85 = 5376,
+ L86 = 5440,
+ C_spaces = 5472,
+ C_count = 5528,
+ C_compare = 5672,
+ L55 = 5744,
+ L56 = 5880,
+ C_erase = 5960,
+ L58 = 5992,
+ C_fill = 6080,
+ L60 = 6120,
+ C_blank = 6208,
+ C_search = 6256,
+ L64 = 6360,
+ L65 = 6544,
+ C_here = 6608,
+ C_vhere = 6656,
+ C_comma = 6704,
+ C_c = 6784,
+ C_allot = 6864,
+ C_vallot = 6912,
+ C_pad = 6960,
+ C_align = 7024,
+ C_unused = 7088,
+ C_fromhash = 7152,
+ C_hash = 7232,
+ L92 = 7384,
+ L93 = 7408,
+ C_hashs = 7488,
+ L95 = 7496,
+ L96 = 7544,
+ C_hashfrom = 7568,
+ C_hold = 7680,
+ C_sign = 7784,
+ L100 = 7840,
+ C_dot = 7864,
+ C_dotr = 7968,
+ C_hex = 8128,
+ C_decimal = 8192,
+ C_digit = 8256,
+ L106 = 8368,
+ L108 = 8472,
+ L110 = 8576,
+ L111 = 8600,
+ L109 = 8600,
+ L107 = 8600,
+ L112 = 8672,
+ L113 = 8688,
+ C_number = 8712,
+ L115 = 8848,
+ L116 = 8880,
+ L117 = 8944,
+ L118 = 9048,
+ L119 = 9104,
+ C_abort = 9192,
+ C_source = 9248,
+ C_current_input = 9304,
+ C_save_input = 9384,
+ C_default_input = 9528,
+ C_restore_input = 9648,
+ L300 = 9752,
+ L301 = 9768,
+ L133 = 9856,
+ L134 = 9944,
+ C_qrestore_input = 9976,
+ L136 = 10104,
+ C_next_input = 10136,
+ L139 = 10232,
+ L140 = 10256,
+ C_parse = 10280,
+ L142 = 10320,
+ L143 = 10448,
+ C_word = 10592,
+ L145 = 10608,
+ L146 = 10704,
+ C_accept = 10744,
+ L148 = 10784,
+ L150 = 10944,
+ L149 = 11008,
+ C_query = 11056,
+ L152 = 11200,
+ L153 = 11232,
+ C_refill = 11256,
+ L155 = 11320,
+ L156 = 11336,
+ C_findname = 11368,
+ L158 = 11408,
+ L160 = 11520,
+ L162 = 11648,
+ L161 = 11656,
+ L159 = 11672,
+ C_find = 11720,
+ L165 = 11912,
+ L166 = 11928,
+ L164 = 11952,
+ L167 = 11960,
+ C_single_quote = 11984,
+ L169 = 12120,
+ C_qstack = 12144,
+ L172 = 12248,
+ C_interpret = 12320,
+ L175 = 12328,
+ L177 = 12440,
+ L179 = 12552,
+ L178 = 12552,
+ L176 = 12568,
+ C_create = 12600,
+ C_variable = 12848,
+ C_constant = 12944,
+ C_immediate = 13072,
+ C_tocfa = 13184,
+ C_compile = 13264,
+ L189 = 13392,
+ L190 = 13408,
+ L188 = 13424,
+ L192 = 13552,
+ L194 = 13584,
+ L191 = 13584,
+ C_close_bracket = 13608,
+ L196 = 13632,
+ L197 = 13720,
+ L198 = 13744,
+ L199 = 13776,
+ CI_open_bracket = 13800,
+ C_smudge = 13848,
+ C_reveal = 13960,
+ C_colon = 14080,
+ CI_semicolon = 14208,
+ CI_recurse = 14288,
+ C_char = 14360,
+ C_literal = 14424,
+ C_sliteral = 14496,
+ C_string = 14664,
+ CI_char_brackets = 14776,
+ CI_quote_brackets = 14848,
+ CI_openparen = 14896,
+ CI_backslash = 14960,
+ L214 = 15104,
+ L215 = 15136,
+ C_qabort_parens = 15168,
+ L217 = 15248,
+ L218 = 15256,
+ CI_abort_double_quote = 15280,
+ C_double_quote = 15344,
+ C_cdouble_quote = 15472,
+ CI_sdouble_quote = 15608,
+ CI_dotstr = 15648,
+ CI_if = 15712,
+ CI_else = 15800,
+ CI_then = 15928,
+ CI_begin = 15984,
+ CI_again = 16024,
+ CI_until = 16088,
+ CI_while = 16152,
+ CI_repeat = 16240,
+ CI_do = 16336,
+ CI_loop = 16416,
+ L234 = 16504,
+ CI_ploop = 16528,
+ L236 = 16616,
+ C_wo = 16640,
+ C_ro = 16736,
+ C_rw = 16784,
+ C_open_file = 16840,
+ C_close_file = 17104,
+ C_read_file = 17160,
+ C_write_file = 17256,
+ C_reposition_file = 17344,
+ C_qfcheck = 17424,
+ L246 = 17520,
+ C_create_file = 17552,
+ C_bye = 17824,
+ C_include = 17880,
+ C_crash = 18032,
+ C_quit = 18120,
+ L253 = 18144,
+ C_parenabort = 18200,
+ C_oldboot = 18368,
+ C_boot = 18816,
+ L137 = 19056,
+ L170 = 19080,
+ L173 = 19084,
+ L180 = 19101,
+ L193 = 19105,
+ L247 = 19109,
+ L251 = 19119,
+ L255 = 19150,
};
extern void *sliteral(void);
extern void *cjump(void);
+extern void *syscreate(void);
+extern void *syswrite(void);
extern void *i(void);
-extern void *fsclose(void);
extern void *equal(void);
extern void *j(void);
extern void *drop(void);
extern void *rpop(void);
-extern void *fsread(void);
extern void *stackptr(void);
extern void *deferred(void);
extern void *cas(void);
+extern void *sysseek(void);
extern void *xswap(void);
extern void *terminate(void);
extern void *greater(void);
@@ -384,7 +385,9 @@
extern void *Dp(void);
extern void *lshift(void);
extern void *S0(void);
+extern void *sysopen(void);
extern void *plus(void);
+extern void *sysclose(void);
extern void *jump(void);
extern void *fthdump(void);
extern void *rshift(void);
@@ -397,23 +400,20 @@
extern void *binor(void);
extern void *unloop(void);
extern void *Wordb(void);
-extern void *fsseek(void);
extern void *cfetch(void);
extern void *constant(void);
extern void *variable(void);
extern void *fetch(void);
extern void *doloop(void);
-extern void *fswrite(void);
extern void *mmap(void);
extern void *binxor(void);
extern void *dup(void);
extern void *exitcolon(void);
extern void *clear(void);
+extern void *sysread(void);
extern void *binand(void);
extern void *literal(void);
-extern void *fsopen(void);
extern void *rpush(void);
-extern void *fscreate(void);
extern void *over(void);
extern void *minus(void);
extern void *rfetch(void);
@@ -428,1903 +428,1901 @@
{.type Header, {.hdr { 1, "!", /* M_store = 40 */ store }}}, /* MENTRY "!" store 1 h 48 */ {.type Header, {.hdr { 2, "c@", /* M_cfetch = 64 */ cfetch }}}, /* MENTRY "c@" cfetch 2 h 72 */ {.type Header, {.hdr { 2, "c!", /* M_cstore = 88 */ cstore }}}, /* MENTRY "c!" cstore 2 h 96 */- {.type Header, {.hdr { 4, "read", /* M_fsread = 112 */ fsread }}}, /* MENTRY "read" fsread 4 h 120 */- {.type Header, {.hdr { 5, "write", /* M_fswrite = 136 */ fswrite }}}, /* MENTRY "write" fswrite 5 h 144 */- {.type Header, {.hdr { 4, "seek", /* M_fsseek = 160 */ fsseek }}}, /* MENTRY "seek" fsseek 4 h 168 */- {.type Header, {.hdr { 4, "open", /* M_fsopen = 184 */ fsopen }}}, /* MENTRY "open" fsopen 4 h 192 */- {.type Header, {.hdr { 5, "close", /* M_fsclose = 208 */ fsclose }}}, /* MENTRY "close" fsclose 5 h 216 */- {.type Header, {.hdr { 6, "create", /* M_fscreate = 232 */ fscreate }}}, /* MENTRY "create" fscreate 6 h 240 */- {.type Header, {.hdr { 4, "mmap", /* M_mmap = 256 */ mmap }}}, /* MENTRY "mmap" mmap 4 h 264 */- {.type Header, {.hdr { 4, "halt", /* M_terminate = 280 */ terminate }}}, /* MENTRY "halt" terminate 4 h 288 */- {.type Header, {.hdr { 4, "dump", /* M_fthdump = 304 */ fthdump }}}, /* MENTRY "dump" fthdump 4 h 312 */- {.type Header, {.hdr { 5, "clear", /* M_clear = 328 */ clear }}}, /* MENTRY "clear" clear 5 h 336 */- {.type Header, {.hdr { 5, "reset", /* M_reset = 352 */ reset }}}, /* MENTRY "reset" reset 5 h 360 */- {.type Header, {.hdr { 4, "exitcolon", /* M_exitcolon = 376 */ exitcolon }}}, /* MENTRY "exitcolon" exitcolon 4 h 384 */- {.type Header, {.hdr { 9, "(literal)", /* M_literal = 408 */ literal }}}, /* MENTRY "(literal)" literal 9 h 416 */- {.type Header, {.hdr { 10, "(sliteral)", /* M_sliteral = 440 */ sliteral }}}, /* MENTRY "(sliteral)" sliteral 10 h 448 */- {.type Header, {.hdr { 4, "(do)", /* M_doinit = 464 */ doinit }}}, /* MENTRY "(do)" doinit 4 h 472 */- {.type Header, {.hdr { 6, "(loop)", /* M_doloop = 488 */ doloop }}}, /* MENTRY "(loop)" doloop 6 h 496 */- {.type Header, {.hdr { 7, "(+loop)", /* M_doploop = 512 */ doploop }}}, /* MENTRY "(+loop)" doploop 7 h 520 */- {.type Header, {.hdr { 2, "r@", /* M_rfetch = 536 */ rfetch }}}, /* MENTRY "r@" rfetch 2 h 544 */- {.type Header, {.hdr { 2, "r>", /* M_rpop = 560 */ rpop }}}, /* MENTRY "r>" rpop 2 h 568 */- {.type Header, {.hdr { 2, ">r", /* M_rpush = 584 */ rpush }}}, /* MENTRY ">r" rpush 2 h 592 */- {.type Header, {.hdr { 1, "i", /* M_i = 608 */ i }}}, /* MENTRY "i" i 1 h 616 */- {.type Header, {.hdr { 1, "j", /* M_j = 632 */ j }}}, /* MENTRY "j" j 1 h 640 */- {.type Header, {.hdr { 1, "+", /* M_plus = 656 */ plus }}}, /* MENTRY "+" plus 1 h 664 */- {.type Header, {.hdr { 1, "-", /* M_minus = 680 */ minus }}}, /* MENTRY "-" minus 1 h 688 */- {.type Header, {.hdr { 1, "*", /* M_multiply = 704 */ multiply }}}, /* MENTRY "*" multiply 1 h 712 */- {.type Header, {.hdr { 4, "(if)", /* M_cjump = 728 */ cjump }}}, /* MENTRY "(if)" cjump 4 h 736 */- {.type Header, {.hdr { 6, "(else)", /* M_jump = 752 */ jump }}}, /* MENTRY "(else)" jump 6 h 760 */- {.type Header, {.hdr { 4, "/mod", /* M_slashmod = 776 */ slashmod }}}, /* MENTRY "/mod" slashmod 4 h 784 */- {.type Header, {.hdr { 5, "u/mod", /* M_uslashmod = 800 */ uslashmod }}}, /* MENTRY "u/mod" uslashmod 5 h 808 */- {.type Header, {.hdr { 3, "and", /* M_binand = 824 */ binand }}}, /* MENTRY "and" binand 3 h 832 */- {.type Header, {.hdr { 2, "or", /* M_binor = 848 */ binor }}}, /* MENTRY "or" binor 2 h 856 */- {.type Header, {.hdr { 3, "xor", /* M_binxor = 872 */ binxor }}}, /* MENTRY "xor" binxor 3 h 880 */- {.type Header, {.hdr { 4, "swap", /* M_xswap = 896 */ xswap }}}, /* MENTRY "swap" xswap 4 h 904 */- {.type Header, {.hdr { 4, "drop", /* M_drop = 920 */ drop }}}, /* MENTRY "drop" drop 4 h 928 */- {.type Header, {.hdr { 3, "dup", /* M_dup = 944 */ dup }}}, /* MENTRY "dup" dup 3 h 952 */- {.type Header, {.hdr { 4, "over", /* M_over = 968 */ over }}}, /* MENTRY "over" over 4 h 976 */- {.type Header, {.hdr { 1, "=", /* M_equal = 992 */ equal }}}, /* MENTRY "=" equal 1 h 1000 */- {.type Header, {.hdr { 1, ">", /* M_greater = 1016 */ greater }}}, /* MENTRY ">" greater 1 h 1024 */- {.type Header, {.hdr { 1, "<", /* M_less = 1040 */ less }}}, /* MENTRY "<" less 1 h 1048 */- {.type Header, {.hdr { 6, "lshift", /* M_lshift = 1064 */ lshift }}}, /* MENTRY "lshift" lshift 6 h 1072 */- {.type Header, {.hdr { 6, "rshift", /* M_rshift = 1088 */ rshift }}}, /* MENTRY "rshift" rshift 6 h 1096 */- {.type Header, {.hdr { 7, "rshifta", /* M_rshifta = 1112 */ rshifta }}}, /* MENTRY "rshifta" rshifta 7 h 1120 */- {.type Header, {.hdr { 7, "execute", /* M_execute = 1136 */ execute }}}, /* MENTRY "execute" execute 7 h 1144 */- {.type Header, {.hdr { 6, "unloop", /* M_unloop = 1160 */ unloop }}}, /* MENTRY "unloop" unloop 6 h 1168 */- {.type Header, {.hdr { 5, "cmove", /* M_cmove = 1184 */ cmove }}}, /* MENTRY "cmove" cmove 5 h 1192 */- {.type Header, {.hdr { 6, "cmove>", /* M_cmoveb = 1208 */ cmoveb }}}, /* MENTRY "cmove>" cmoveb 6 h 1216 */- {.type Header, {.hdr { 10, "(variable)", /* M_variable = 1240 */ variable }}}, /* MENTRY "(variable)" variable 10 h 1248 */- {.type Header, {.hdr { 10, "(constant)", /* M_constant = 1272 */ constant }}}, /* MENTRY "(constant)" constant 10 h 1280 */- {.type Header, {.hdr { 3, "(:)", /* M_colon = 1296 */ colon }}}, /* MENTRY "(:)" colon 3 h 1304 */- {.type Header, {.hdr { 6, "(does)", /* M_dodoes = 1320 */ dodoes }}}, /* MENTRY "(does)" dodoes 6 h 1328 */- {.type Header, {.hdr { 3, "cas", /* M_cas = 1344 */ cas }}}, /* MENTRY "cas" cas 3 h 1352 */- {.type Header, {.hdr { 10, "(deferred)", /* M_deferred = 1376 */ deferred }}}, /* MENTRY "(deferred)" deferred 10 h 1384 */- {.type Header, {.hdr { 5, "STDIN", /* MC_STDIN = 1400 */ constant }}}, /* MCENTRY "STDIN" STDIN 0 5 ; 3 constants from here CAPITALS h 1408 */- {.type Absolute, {.p 0}}, /* 1416 */- {.type Header, {.hdr { 6, "STDOUT", /* MC_STDOUT = 1432 */ constant }}}, /* MCENTRY "STDOUT" STDOUT 1 6 h 1440 */- {.type Absolute, {.p 1}}, /* 1448 */- {.type Header, {.hdr { 6, "STDERR", /* MC_STDERR = 1464 */ constant }}}, /* MCENTRY "STDERR" STDERR 2 6 h 1472 */- {.type Absolute, {.p 2}}, /* 1480 */- {.type Header, {.hdr { 5, "Iobuf", /* MV_Iobuf = 1496 */ variable }}}, /* MVENTRY "Iobuf" Iobuf 0 5 ; the values are not being used from the definition. All are initialized to 0. h 1504 */- {.type FromV0, {.p 0 }}, /* 1512 0 */- {.type Header, {.hdr { 9, "Sourcebuf", /* MV_Sourcebuf = 1536 */ variable }}}, /* MVENTRY "Sourcebuf" Sourcebuf 0 9 ; is there a need for this? h 1544 */- {.type FromV0, {.p 8 }}, /* 1552 8 */- {.type Header, {.hdr { 7, "Wordbuf", /* MV_Wordbuf = 1568 */ variable }}}, /* MVENTRY "Wordbuf" Wordbuf 0 7 ; is there a need for this? h 1576 */- {.type FromV0, {.p 16 }}, /* 1584 16 */- {.type Header, {.hdr { 3, ">In", /* MV_toIn = 1600 */ variable }}}, /* MVENTRY ">In" toIn 0 3 h 1608 */- {.type FromV0, {.p 24 }}, /* 1616 24 */- {.type Header, {.hdr { 6, ">Limit", /* MV_toLimit = 1632 */ variable }}}, /* MVENTRY ">Limit" toLimit 0 6 h 1640 */- {.type FromV0, {.p 32 }}, /* 1648 32 */- {.type Header, {.hdr { 7, "Findadr", /* MV_Findadr = 1664 */ variable }}}, /* MVENTRY "Findadr" Findadr 0 7 h 1672 */- {.type FromV0, {.p 40 }}, /* 1680 40 */- {.type Header, {.hdr { 3, "Blk", /* MV_Blk = 1696 */ variable }}}, /* MVENTRY "Blk" Blk 0 3 h 1704 */- {.type FromV0, {.p 48 }}, /* 1712 48 */- {.type Header, {.hdr { 9, "Searchlen", /* MV_Searchlen = 1736 */ variable }}}, /* MVENTRY "Searchlen" Searchlen 0 9 h 1744 */- {.type FromV0, {.p 56 }}, /* 1752 56 */- {.type Header, {.hdr { 4, "Base", /* MV_Base = 1768 */ variable }}}, /* MVENTRY "Base" Base 0 4 h 1776 */- {.type FromV0, {.p 64 }}, /* 1784 64 */- {.type Header, {.hdr { 4, ">Num", /* MV_toNum = 1800 */ variable }}}, /* MVENTRY ">Num" toNum 0 4 h 1808 */- {.type FromV0, {.p 72 }}, /* 1816 72 */- {.type Header, {.hdr { 5, "State", /* MV_State = 1832 */ variable }}}, /* MVENTRY "State" State 0 5 h 1840 */- {.type FromV0, {.p 80 }}, /* 1848 80 */- {.type Header, {.hdr { 8, "Abortvec", /* MV_Abortvec = 1872 */ variable }}}, /* MVENTRY "Abortvec" Abortvec 0 8 ; not sure if these 3 can be constants instead? h 1880 */- {.type FromV0, {.p 88 }}, /* 1888 88 */- {.type Header, {.hdr { 4, "Infd", /* MV_Infd = 1904 */ variable }}}, /* MVENTRY "Infd" Infd 0 4 h 1912 */- {.type FromV0, {.p 96 }}, /* 1920 96 */- {.type Header, {.hdr { 5, "Outfd", /* MV_Outfd = 1936 */ variable }}}, /* MVENTRY "Outfd" Outfd 0 5 h 1944 */- {.type FromV0, {.p 104 }}, /* 1952 104 */- {.type Header, {.hdr { 5, "Errfd", /* MV_Errfd = 1968 */ variable }}}, /* MVENTRY "Errfd" Errfd 0 5 h 1976 */- {.type FromV0, {.p 112 }}, /* 1984 112 */- {.type Header, {.hdr { 3, "Eof", /* MV_Eof = 2000 */ variable }}}, /* MVENTRY "Eof" Eof 0 3 h 2008 */- {.type FromV0, {.p 120 }}, /* 2016 120 */- {.type Header, {.hdr { 7, "Ninputs", /* MV_Ninputs = 2032 */ variable }}}, /* MVENTRY "Ninputs" Ninputs 0 7 h 2040 */- {.type FromV0, {.p 128 }}, /* 2048 128 */- {.type Header, {.hdr { 2, "H0", /* MV_H0 = 2064 */ variable }}}, /* MVENTRY "H0" H0 0 2 ; here at startup h 2072 */- {.type FromV0, {.p 136 }}, /* 2080 136 */-/* ; cannot use H as it is nil in inferno, address where here (next available dictionary cell location) is stored *//* ; here = Dp @ */ {.type Header, {.hdr { 2, "Dp", /* M_Dp = 2096 */ Dp }}}, /* MENTRY "Dp" Dp 2 ; here h 2104 */- {.type Header, {.hdr { 4, "Dtop", /* M_Dtop = 2120 */ Dtop }}}, /* MENTRY "Dtop" Dtop 4 ; last defined header h 2128 */- {.type Header, {.hdr { 2, "Vp", /* M_Vp = 2144 */ Vp }}}, /* MENTRY "Vp" Vp 2 ; here of the variables space h 2152 */- {.type Header, {.hdr { 2, "S0", /* M_S0 = 2168 */ S0 }}}, /* MENTRY "S0" S0 2 h 2176 */- {.type Header, {.hdr { 2, "s@", /* M_stackptr = 2192 */ stackptr }}}, /* MENTRY "s@" stackptr 2 ; puts PSP on stack. Not a variable hence lower case. h 2200 */- {.type Header, {.hdr { 5, "Wordb", /* M_Wordb = 2216 */ Wordb }}}, /* MENTRY "Wordb" Wordb 5 h 2224 */- {.type Header, {.hdr { 3, "Tib", /* M_Tib = 2240 */ Tib }}}, /* MENTRY "Tib" Tib 3 h 2248 */- {.type Header, {.hdr { 4, "Args", /* M_Args = 2264 */ Args }}}, /* MENTRY "Args" Args 4 h 2272 */- {.type Header, {.hdr { 5, "false", /* C_false = 2288 */ colon }}}, /* CENTRY "false" false 5 h 2296 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2304 */- {.type Absolute, {.p 0}}, /* dd 0 2312 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2320 */- {.type Header, {.hdr { 4, "true", /* C_true = 2336 */ colon }}}, /* CENTRY "true" true 4 h 2344 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2352 */- {.type Absolute, {.p -1}}, /* dd -1 2360 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2368 */- {.type Header, {.hdr { 2, "bl", /* C_bl = 2384 */ colon }}}, /* CENTRY "bl" bl 2 h 2392 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2400 */- {.type Absolute, {.p 32}}, /* dd 32 2408 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2416 */- {.type Header, {.hdr { 2, "on", /* C_on = 2432 */ colon }}}, /* CENTRY "on" on 2 ; ( a -- ) (G stores -1 at a ) h 2440 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2448 */- {.type Absolute, {.p -1}}, /* dd -1 2456 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2464 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 2472 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2480 */- {.type Header, {.hdr { 3, "off", /* C_off = 2496 */ colon }}}, /* CENTRY "off" off 3 ; ( a -- ) (G stores 0 at a ) h 2504 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2512 */- {.type Absolute, {.p 0}}, /* dd 0 2520 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2528 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 2536 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2544 */- {.type Header, {.hdr { 5, ">body", /* C_tobody = 2560 */ colon }}}, /* CENTRY ">body" tobody 5 h 2568 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2576 */- {.type Absolute, {.p 8}}, /* dd 8 2584 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2592 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2600 */- {.type Header, {.hdr { 7, "aligned", /* C_aligned = 2616 */ colon }}}, /* CENTRY "aligned" aligned 7 ; align a number to a multiple of 8 h 2624 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2632 */- {.type Absolute, {.p 7}}, /* dd 7 2640 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2648 */+ {.type Header, {.hdr { 7, "sysread", /* M_sysread = 112 */ sysread }}}, /* MENTRY "sysread" sysread 7 h 120 */+ {.type Header, {.hdr { 8, "syswrite", /* M_syswrite = 144 */ syswrite }}}, /* MENTRY "syswrite" syswrite 8 h 152 */+ {.type Header, {.hdr { 7, "sysseek", /* M_sysseek = 168 */ sysseek }}}, /* MENTRY "sysseek" sysseek 7 h 176 */+ {.type Header, {.hdr { 7, "sysopen", /* M_sysopen = 192 */ sysopen }}}, /* MENTRY "sysopen" sysopen 7 h 200 */+ {.type Header, {.hdr { 8, "sysclose", /* M_sysclose = 224 */ sysclose }}}, /* MENTRY "sysclose" sysclose 8 h 232 */+ {.type Header, {.hdr { 9, "syscreate", /* M_syscreate = 256 */ syscreate }}}, /* MENTRY "syscreate" syscreate 9 h 264 */+ {.type Header, {.hdr { 4, "mmap", /* M_mmap = 280 */ mmap }}}, /* MENTRY "mmap" mmap 4 h 288 */+ {.type Header, {.hdr { 4, "halt", /* M_terminate = 304 */ terminate }}}, /* MENTRY "halt" terminate 4 h 312 */+ {.type Header, {.hdr { 4, "dump", /* M_fthdump = 328 */ fthdump }}}, /* MENTRY "dump" fthdump 4 h 336 */+ {.type Header, {.hdr { 5, "clear", /* M_clear = 352 */ clear }}}, /* MENTRY "clear" clear 5 h 360 */+ {.type Header, {.hdr { 5, "reset", /* M_reset = 376 */ reset }}}, /* MENTRY "reset" reset 5 h 384 */+ {.type Header, {.hdr { 4, "exitcolon", /* M_exitcolon = 400 */ exitcolon }}}, /* MENTRY "exitcolon" exitcolon 4 h 408 */+ {.type Header, {.hdr { 9, "(literal)", /* M_literal = 432 */ literal }}}, /* MENTRY "(literal)" literal 9 h 440 */+ {.type Header, {.hdr { 10, "(sliteral)", /* M_sliteral = 464 */ sliteral }}}, /* MENTRY "(sliteral)" sliteral 10 h 472 */+ {.type Header, {.hdr { 4, "(do)", /* M_doinit = 488 */ doinit }}}, /* MENTRY "(do)" doinit 4 h 496 */+ {.type Header, {.hdr { 6, "(loop)", /* M_doloop = 512 */ doloop }}}, /* MENTRY "(loop)" doloop 6 h 520 */+ {.type Header, {.hdr { 7, "(+loop)", /* M_doploop = 536 */ doploop }}}, /* MENTRY "(+loop)" doploop 7 h 544 */+ {.type Header, {.hdr { 2, "r@", /* M_rfetch = 560 */ rfetch }}}, /* MENTRY "r@" rfetch 2 h 568 */+ {.type Header, {.hdr { 2, "r>", /* M_rpop = 584 */ rpop }}}, /* MENTRY "r>" rpop 2 h 592 */+ {.type Header, {.hdr { 2, ">r", /* M_rpush = 608 */ rpush }}}, /* MENTRY ">r" rpush 2 h 616 */+ {.type Header, {.hdr { 1, "i", /* M_i = 632 */ i }}}, /* MENTRY "i" i 1 h 640 */+ {.type Header, {.hdr { 1, "j", /* M_j = 656 */ j }}}, /* MENTRY "j" j 1 h 664 */+ {.type Header, {.hdr { 1, "+", /* M_plus = 680 */ plus }}}, /* MENTRY "+" plus 1 h 688 */+ {.type Header, {.hdr { 1, "-", /* M_minus = 704 */ minus }}}, /* MENTRY "-" minus 1 h 712 */+ {.type Header, {.hdr { 1, "*", /* M_multiply = 728 */ multiply }}}, /* MENTRY "*" multiply 1 h 736 */+ {.type Header, {.hdr { 4, "(if)", /* M_cjump = 752 */ cjump }}}, /* MENTRY "(if)" cjump 4 h 760 */+ {.type Header, {.hdr { 6, "(else)", /* M_jump = 776 */ jump }}}, /* MENTRY "(else)" jump 6 h 784 */+ {.type Header, {.hdr { 4, "/mod", /* M_slashmod = 800 */ slashmod }}}, /* MENTRY "/mod" slashmod 4 h 808 */+ {.type Header, {.hdr { 5, "u/mod", /* M_uslashmod = 824 */ uslashmod }}}, /* MENTRY "u/mod" uslashmod 5 h 832 */+ {.type Header, {.hdr { 3, "and", /* M_binand = 848 */ binand }}}, /* MENTRY "and" binand 3 h 856 */+ {.type Header, {.hdr { 2, "or", /* M_binor = 872 */ binor }}}, /* MENTRY "or" binor 2 h 880 */+ {.type Header, {.hdr { 3, "xor", /* M_binxor = 896 */ binxor }}}, /* MENTRY "xor" binxor 3 h 904 */+ {.type Header, {.hdr { 4, "swap", /* M_xswap = 920 */ xswap }}}, /* MENTRY "swap" xswap 4 h 928 */+ {.type Header, {.hdr { 4, "drop", /* M_drop = 944 */ drop }}}, /* MENTRY "drop" drop 4 h 952 */+ {.type Header, {.hdr { 3, "dup", /* M_dup = 968 */ dup }}}, /* MENTRY "dup" dup 3 h 976 */+ {.type Header, {.hdr { 4, "over", /* M_over = 992 */ over }}}, /* MENTRY "over" over 4 h 1000 */+ {.type Header, {.hdr { 1, "=", /* M_equal = 1016 */ equal }}}, /* MENTRY "=" equal 1 h 1024 */+ {.type Header, {.hdr { 1, ">", /* M_greater = 1040 */ greater }}}, /* MENTRY ">" greater 1 h 1048 */+ {.type Header, {.hdr { 1, "<", /* M_less = 1064 */ less }}}, /* MENTRY "<" less 1 h 1072 */+ {.type Header, {.hdr { 6, "lshift", /* M_lshift = 1088 */ lshift }}}, /* MENTRY "lshift" lshift 6 h 1096 */+ {.type Header, {.hdr { 6, "rshift", /* M_rshift = 1112 */ rshift }}}, /* MENTRY "rshift" rshift 6 h 1120 */+ {.type Header, {.hdr { 7, "rshifta", /* M_rshifta = 1136 */ rshifta }}}, /* MENTRY "rshifta" rshifta 7 h 1144 */+ {.type Header, {.hdr { 7, "execute", /* M_execute = 1160 */ execute }}}, /* MENTRY "execute" execute 7 h 1168 */+ {.type Header, {.hdr { 6, "unloop", /* M_unloop = 1184 */ unloop }}}, /* MENTRY "unloop" unloop 6 h 1192 */+ {.type Header, {.hdr { 5, "cmove", /* M_cmove = 1208 */ cmove }}}, /* MENTRY "cmove" cmove 5 h 1216 */+ {.type Header, {.hdr { 6, "cmove>", /* M_cmoveb = 1232 */ cmoveb }}}, /* MENTRY "cmove>" cmoveb 6 h 1240 */+ {.type Header, {.hdr { 10, "(variable)", /* M_variable = 1264 */ variable }}}, /* MENTRY "(variable)" variable 10 h 1272 */+ {.type Header, {.hdr { 10, "(constant)", /* M_constant = 1296 */ constant }}}, /* MENTRY "(constant)" constant 10 h 1304 */+ {.type Header, {.hdr { 3, "(:)", /* M_colon = 1320 */ colon }}}, /* MENTRY "(:)" colon 3 h 1328 */+ {.type Header, {.hdr { 6, "(does)", /* M_dodoes = 1344 */ dodoes }}}, /* MENTRY "(does)" dodoes 6 h 1352 */+ {.type Header, {.hdr { 3, "cas", /* M_cas = 1368 */ cas }}}, /* MENTRY "cas" cas 3 h 1376 */+ {.type Header, {.hdr { 10, "(deferred)", /* M_deferred = 1400 */ deferred }}}, /* MENTRY "(deferred)" deferred 10 h 1408 */+ {.type Header, {.hdr { 5, "STDIN", /* MC_STDIN = 1424 */ constant }}}, /* MCENTRY "STDIN" STDIN 0 5 ; 3 constants from here CAPITALS h 1432 */+ {.type Absolute, {.p 0}}, /* 1440 */+ {.type Header, {.hdr { 6, "STDOUT", /* MC_STDOUT = 1456 */ constant }}}, /* MCENTRY "STDOUT" STDOUT 1 6 h 1464 */+ {.type Absolute, {.p 1}}, /* 1472 */+ {.type Header, {.hdr { 6, "STDERR", /* MC_STDERR = 1488 */ constant }}}, /* MCENTRY "STDERR" STDERR 2 6 h 1496 */+ {.type Absolute, {.p 2}}, /* 1504 */+ {.type Header, {.hdr { 5, "Iobuf", /* MV_Iobuf = 1520 */ variable }}}, /* MVENTRY "Iobuf" Iobuf 0 5 ; the values are not being used from the definition. All are initialized to 0. h 1528 */+ {.type FromV0, {.p 0 }}, /* 1536 0 */+ {.type Header, {.hdr { 9, "Sourcebuf", /* MV_Sourcebuf = 1560 */ variable }}}, /* MVENTRY "Sourcebuf" Sourcebuf 0 9 ; is there a need for this? h 1568 */+ {.type FromV0, {.p 8 }}, /* 1576 8 */+ {.type Header, {.hdr { 7, "Wordbuf", /* MV_Wordbuf = 1592 */ variable }}}, /* MVENTRY "Wordbuf" Wordbuf 0 7 ; is there a need for this? h 1600 */+ {.type FromV0, {.p 16 }}, /* 1608 16 */+ {.type Header, {.hdr { 3, ">In", /* MV_toIn = 1624 */ variable }}}, /* MVENTRY ">In" toIn 0 3 h 1632 */+ {.type FromV0, {.p 24 }}, /* 1640 24 */+ {.type Header, {.hdr { 6, ">Limit", /* MV_toLimit = 1656 */ variable }}}, /* MVENTRY ">Limit" toLimit 0 6 h 1664 */+ {.type FromV0, {.p 32 }}, /* 1672 32 */+ {.type Header, {.hdr { 7, "Findadr", /* MV_Findadr = 1688 */ variable }}}, /* MVENTRY "Findadr" Findadr 0 7 h 1696 */+ {.type FromV0, {.p 40 }}, /* 1704 40 */+ {.type Header, {.hdr { 3, "Blk", /* MV_Blk = 1720 */ variable }}}, /* MVENTRY "Blk" Blk 0 3 h 1728 */+ {.type FromV0, {.p 48 }}, /* 1736 48 */+ {.type Header, {.hdr { 9, "Searchlen", /* MV_Searchlen = 1760 */ variable }}}, /* MVENTRY "Searchlen" Searchlen 0 9 h 1768 */+ {.type FromV0, {.p 56 }}, /* 1776 56 */+ {.type Header, {.hdr { 4, "Base", /* MV_Base = 1792 */ variable }}}, /* MVENTRY "Base" Base 0 4 h 1800 */+ {.type FromV0, {.p 64 }}, /* 1808 64 */+ {.type Header, {.hdr { 4, ">Num", /* MV_toNum = 1824 */ variable }}}, /* MVENTRY ">Num" toNum 0 4 h 1832 */+ {.type FromV0, {.p 72 }}, /* 1840 72 */+ {.type Header, {.hdr { 5, "State", /* MV_State = 1856 */ variable }}}, /* MVENTRY "State" State 0 5 h 1864 */+ {.type FromV0, {.p 80 }}, /* 1872 80 */+ {.type Header, {.hdr { 8, "Abortvec", /* MV_Abortvec = 1896 */ variable }}}, /* MVENTRY "Abortvec" Abortvec 0 8 ; not sure if these 3 can be constants instead? h 1904 */+ {.type FromV0, {.p 88 }}, /* 1912 88 */+ {.type Header, {.hdr { 4, "Infd", /* MV_Infd = 1928 */ variable }}}, /* MVENTRY "Infd" Infd 0 4 h 1936 */+ {.type FromV0, {.p 96 }}, /* 1944 96 */+ {.type Header, {.hdr { 5, "Outfd", /* MV_Outfd = 1960 */ variable }}}, /* MVENTRY "Outfd" Outfd 0 5 h 1968 */+ {.type FromV0, {.p 104 }}, /* 1976 104 */+ {.type Header, {.hdr { 5, "Errfd", /* MV_Errfd = 1992 */ variable }}}, /* MVENTRY "Errfd" Errfd 0 5 h 2000 */+ {.type FromV0, {.p 112 }}, /* 2008 112 */+ {.type Header, {.hdr { 3, "Eof", /* MV_Eof = 2024 */ variable }}}, /* MVENTRY "Eof" Eof 0 3 h 2032 */+ {.type FromV0, {.p 120 }}, /* 2040 120 */+ {.type Header, {.hdr { 7, "Ninputs", /* MV_Ninputs = 2056 */ variable }}}, /* MVENTRY "Ninputs" Ninputs 0 7 h 2064 */+ {.type FromV0, {.p 128 }}, /* 2072 128 */+ {.type Header, {.hdr { 2, "H0", /* MV_H0 = 2088 */ variable }}}, /* MVENTRY "H0" H0 0 2 ; here at startup h 2096 */+ {.type FromV0, {.p 136 }}, /* 2104 136 */+/* ; cannot use H as it is nil in inferno, address where here (next available dictionary cell location) is stored *//* ; here = Dp @ */ {.type Header, {.hdr { 2, "Dp", /* M_Dp = 2120 */ Dp }}}, /* MENTRY "Dp" Dp 2 ; here h 2128 */+ {.type Header, {.hdr { 4, "Dtop", /* M_Dtop = 2144 */ Dtop }}}, /* MENTRY "Dtop" Dtop 4 ; last defined header h 2152 */+ {.type Header, {.hdr { 2, "Vp", /* M_Vp = 2168 */ Vp }}}, /* MENTRY "Vp" Vp 2 ; here of the variables space h 2176 */+ {.type Header, {.hdr { 2, "S0", /* M_S0 = 2192 */ S0 }}}, /* MENTRY "S0" S0 2 h 2200 */+ {.type Header, {.hdr { 2, "s@", /* M_stackptr = 2216 */ stackptr }}}, /* MENTRY "s@" stackptr 2 ; puts PSP on stack. Not a variable hence lower case. h 2224 */+ {.type Header, {.hdr { 5, "Wordb", /* M_Wordb = 2240 */ Wordb }}}, /* MENTRY "Wordb" Wordb 5 h 2248 */+ {.type Header, {.hdr { 3, "Tib", /* M_Tib = 2264 */ Tib }}}, /* MENTRY "Tib" Tib 3 h 2272 */+ {.type Header, {.hdr { 4, "Args", /* M_Args = 2288 */ Args }}}, /* MENTRY "Args" Args 4 h 2296 */+ {.type Header, {.hdr { 5, "false", /* C_false = 2312 */ colon }}}, /* CENTRY "false" false 5 h 2320 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2328 */+ {.type Absolute, {.p 0}}, /* dd 0 2336 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2344 */+ {.type Header, {.hdr { 4, "true", /* C_true = 2360 */ colon }}}, /* CENTRY "true" true 4 h 2368 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2376 */+ {.type Absolute, {.p -1}}, /* dd -1 2384 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2392 */+ {.type Header, {.hdr { 2, "bl", /* C_bl = 2408 */ colon }}}, /* CENTRY "bl" bl 2 h 2416 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2424 */+ {.type Absolute, {.p 32}}, /* dd 32 2432 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2440 */+ {.type Header, {.hdr { 2, "on", /* C_on = 2456 */ colon }}}, /* CENTRY "on" on 2 ; ( a -- ) (G stores -1 at a ) h 2464 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2472 */+ {.type Absolute, {.p -1}}, /* dd -1 2480 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2488 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 2496 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2504 */+ {.type Header, {.hdr { 3, "off", /* C_off = 2520 */ colon }}}, /* CENTRY "off" off 3 ; ( a -- ) (G stores 0 at a ) h 2528 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2536 */+ {.type Absolute, {.p 0}}, /* dd 0 2544 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2552 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 2560 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2568 */+ {.type Header, {.hdr { 5, ">body", /* C_tobody = 2584 */ colon }}}, /* CENTRY ">body" tobody 5 h 2592 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2600 */+ {.type Absolute, {.p 8}}, /* dd 8 2608 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2616 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2624 */+ {.type Header, {.hdr { 7, "aligned", /* C_aligned = 2640 */ colon }}}, /* CENTRY "aligned" aligned 7 ; align a number to a multiple of 8 h 2648 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2656 */- {.type Absolute, {.p -8}}, /* dd -8 2664 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 2672 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2680 */- {.type Header, {.hdr { 5, "cells", /* C_cells = 2696 */ colon }}}, /* CENTRY "cells" cells 5 h 2704 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2712 */- {.type Absolute, {.p 3}}, /* dd 3 ; (index << 2) -> (index << 3) for amd64 2720 */- {.type FromH0, {.p M_lshift}, .src = "dd M_lshift"}, /* dd M_lshift 2728 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2736 */- {.type Header, {.hdr { 5, "cell+", /* C_cellplus = 2752 */ colon }}}, /* CENTRY "cell+" cellplus 5 h 2760 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2768 */- {.type Absolute, {.p 1}}, /* dd 1 2776 */- {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 2784 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2792 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2800 */- {.type Header, {.hdr { 5, "depth", /* C_depth = 2816 */ colon }}}, /* CENTRY "depth" depth 5 h 2824 */- {.type FromH0, {.p M_S0}, .src = "dd M_S0"}, /* dd M_S0 2832 */- {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 2840 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 2848 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2856 */- {.type Absolute, {.p 3}}, /* dd 3 2864 */- {.type FromH0, {.p M_rshift}, .src = "dd M_rshift"}, /* dd M_rshift 2872 */+ {.type Absolute, {.p 7}}, /* dd 7 2664 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2672 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2680 */+ {.type Absolute, {.p -8}}, /* dd -8 2688 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 2696 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2704 */+ {.type Header, {.hdr { 5, "cells", /* C_cells = 2720 */ colon }}}, /* CENTRY "cells" cells 5 h 2728 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2736 */+ {.type Absolute, {.p 3}}, /* dd 3 ; (index << 2) -> (index << 3) for amd64 2744 */+ {.type FromH0, {.p M_lshift}, .src = "dd M_lshift"}, /* dd M_lshift 2752 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2760 */+ {.type Header, {.hdr { 5, "cell+", /* C_cellplus = 2776 */ colon }}}, /* CENTRY "cell+" cellplus 5 h 2784 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2792 */+ {.type Absolute, {.p 1}}, /* dd 1 2800 */+ {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 2808 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 2816 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2824 */+ {.type Header, {.hdr { 5, "depth", /* C_depth = 2840 */ colon }}}, /* CENTRY "depth" depth 5 h 2848 */+ {.type FromH0, {.p M_S0}, .src = "dd M_S0"}, /* dd M_S0 2856 */+ {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 2864 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 2872 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2880 */- {.type Absolute, {.p 1}}, /* dd 1 2888 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 2896 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2904 */- {.type Header, {.hdr { 3, "nip", /* C_nip = 2920 */ colon }}}, /* CENTRY "nip" nip 3 h 2928 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2936 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 2944 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2952 */- {.type Header, {.hdr { 3, "rot", /* C_rot = 2968 */ colon }}}, /* CENTRY "rot" rot 3 h 2976 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 2984 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2992 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3000 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3008 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3016 */- {.type Header, {.hdr { 5, "2drop", /* C_2drop = 3032 */ colon }}}, /* CENTRY "2drop" 2drop 5 h 3040 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3048 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3056 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3064 */- {.type Header, {.hdr { 4, "2dup", /* C_2dup = 3080 */ colon }}}, /* CENTRY "2dup" 2dup 4 h 3088 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 3096 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 3104 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3112 */- {.type Header, {.hdr { 4, "2nip", /* C_2nip = 3128 */ colon }}}, /* CENTRY "2nip" 2nip 4 h 3136 */- {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3144 */- {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3152 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3160 */- {.type Header, {.hdr { 5, "2swap", /* C_2swap = 3176 */ colon }}}, /* CENTRY "2swap" 2swap 5 h 3184 */- {.type FromH0, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3192 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3200 */- {.type FromH0, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3208 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3216 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3224 */- {.type Header, {.hdr { 4, "?dup", /* C_qdup = 3240 */ colon }}}, /* CENTRY "?dup" qdup 4 ; if (n != 0) ( n -- n n) else ( n -- n ) h 3248 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 3256 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n n -- n n n )"}, /* dd M_dup ; ( n n -- n n n ) 3264 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3272 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( n n n -- n n n 0 ) 3280 */- {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( n n n 0 -- n n f )"}, /* dd M_equal ; ( n n n 0 -- n n f ) 3288 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; ( n n f -- n n )"}, /* dd M_cjump ; ( n n f -- n n ) 3296 */- {.type FromH0, {.p L20}, .src = "dd L20 ; when n != 0, go to L20"}, /* dd L20 ; when n != 0, go to L20 3304 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; when n == 0 ( n n -- n)"}, /* dd M_drop ; when n == 0 ( n n -- n) 3312 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3320 */- {.type Header, {.hdr { 4, "pick", /* C_pick = 3336 */ colon }}}, /* CENTRY "pick" pick 4 h 3344 */- {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 3352 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 3360 */- {.type FromH0, {.p L22}, .src = "dd L22"}, /* dd L22 3368 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3376 */- {.type Absolute, {.p 1}}, /* dd 1 3384 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3392 */- {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 3400 */- {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 3408 */+ {.type Absolute, {.p 3}}, /* dd 3 2888 */+ {.type FromH0, {.p M_rshift}, .src = "dd M_rshift"}, /* dd M_rshift 2896 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 2904 */+ {.type Absolute, {.p 1}}, /* dd 1 2912 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 2920 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2928 */+ {.type Header, {.hdr { 3, "nip", /* C_nip = 2944 */ colon }}}, /* CENTRY "nip" nip 3 h 2952 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 2960 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 2968 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 2976 */+ {.type Header, {.hdr { 3, "rot", /* C_rot = 2992 */ colon }}}, /* CENTRY "rot" rot 3 h 3000 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3008 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3016 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3024 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3032 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3040 */+ {.type Header, {.hdr { 5, "2drop", /* C_2drop = 3056 */ colon }}}, /* CENTRY "2drop" 2drop 5 h 3064 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3072 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3080 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3088 */+ {.type Header, {.hdr { 4, "2dup", /* C_2dup = 3104 */ colon }}}, /* CENTRY "2dup" 2dup 4 h 3112 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 3120 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 3128 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3136 */+ {.type Header, {.hdr { 4, "2nip", /* C_2nip = 3152 */ colon }}}, /* CENTRY "2nip" 2nip 4 h 3160 */+ {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3168 */+ {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3176 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3184 */+ {.type Header, {.hdr { 5, "2swap", /* C_2swap = 3200 */ colon }}}, /* CENTRY "2swap" 2swap 5 h 3208 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3216 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3224 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3232 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3240 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3248 */+ {.type Header, {.hdr { 4, "?dup", /* C_qdup = 3264 */ colon }}}, /* CENTRY "?dup" qdup 4 ; if (n != 0) ( n -- n n) else ( n -- n ) h 3272 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 3280 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n n -- n n n )"}, /* dd M_dup ; ( n n -- n n n ) 3288 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3296 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( n n n -- n n n 0 ) 3304 */+ {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( n n n 0 -- n n f )"}, /* dd M_equal ; ( n n n 0 -- n n f ) 3312 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; ( n n f -- n n )"}, /* dd M_cjump ; ( n n f -- n n ) 3320 */+ {.type FromH0, {.p L20}, .src = "dd L20 ; when n != 0, go to L20"}, /* dd L20 ; when n != 0, go to L20 3328 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; when n == 0 ( n n -- n)"}, /* dd M_drop ; when n == 0 ( n n -- n) 3336 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3344 */+ {.type Header, {.hdr { 4, "pick", /* C_pick = 3360 */ colon }}}, /* CENTRY "pick" pick 4 h 3368 */+ {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 3376 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 3384 */+ {.type FromH0, {.p L22}, .src = "dd L22"}, /* dd L22 3392 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3400 */+ {.type Absolute, {.p 1}}, /* dd 1 3408 */ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3416 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 3424 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 3432 */- {.type FromH0, {.p L23}, .src = "dd L23"}, /* dd L23 3440 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3448 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3456 */- {.type Header, {.hdr { 4, "tuck", /* C_tuck = 3472 */ colon }}}, /* CENTRY "tuck" tuck 4 h 3480 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3488 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3496 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3504 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3512 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3520 */- {.type Header, {.hdr { 1, "/", /* C_divides = 3536 */ colon }}}, /* CENTRY "/" divides 1 h 3544 */- {.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"}, /* dd M_slashmod 3552 */- {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3560 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3568 */- {.type Header, {.hdr { 2, "+!", /* C_plusstore = 3584 */ colon }}}, /* CENTRY "+!" plusstore 2 h 3592 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3600 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 3608 */- {.type FromH0, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3616 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3624 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3632 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 3640 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3648 */- {.type Header, {.hdr { 6, "invert", /* C_invert = 3664 */ colon }}}, /* CENTRY "invert" invert 6 h 3672 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3680 */- {.type Absolute, {.p -1}}, /* dd -1 3688 */- {.type FromH0, {.p M_binxor}, .src = "dd M_binxor"}, /* dd M_binxor 3696 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3704 */- {.type Header, {.hdr { 3, "mod", /* C_mod = 3720 */ colon }}}, /* CENTRY "mod" mod 3 h 3728 */- {.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"}, /* dd M_slashmod 3736 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3744 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3752 */- {.type Header, {.hdr { 2, "1+", /* C_1plus = 3768 */ colon }}}, /* CENTRY "1+" 1plus 2 h 3776 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3784 */- {.type Absolute, {.p 1}}, /* dd 1 3792 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3800 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3808 */- {.type Header, {.hdr { 2, "1-", /* C_1minus = 3824 */ colon }}}, /* CENTRY "1-" 1minus 2 h 3832 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3840 */- {.type Absolute, {.p 1}}, /* dd 1 3848 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 3856 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3864 */- {.type Header, {.hdr { 6, "negate", /* C_negate = 3880 */ colon }}}, /* CENTRY "negate" negate 6 h 3888 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3896 */- {.type Absolute, {.p 0}}, /* dd 0 3904 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3912 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 3920 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3928 */- {.type Header, {.hdr { 2, "2*", /* C_2multiplies = 3944 */ colon }}}, /* CENTRY "2*" 2multiplies 2 h 3952 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3960 */- {.type Absolute, {.p 1}}, /* dd 1 3968 */- {.type FromH0, {.p M_lshift}, .src = "dd M_lshift"}, /* dd M_lshift 3976 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3984 */- {.type Header, {.hdr { 2, "2/", /* C_2divides = 4000 */ colon }}}, /* CENTRY "2/" 2divides 2 h 4008 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4016 */- {.type Absolute, {.p 1}}, /* dd 1 4024 */- {.type FromH0, {.p M_rshifta}, .src = "dd M_rshifta"}, /* dd M_rshifta 4032 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4040 */- {.type Header, {.hdr { 2, "0=", /* C_0eq = 4056 */ colon }}}, /* CENTRY "0=" 0eq 2 h 4064 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4072 */- {.type Absolute, {.p 0}}, /* dd 0 4080 */- {.type FromH0, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 4088 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4096 */- {.type Header, {.hdr { 2, "0<", /* C_0lt = 4112 */ colon }}}, /* CENTRY "0<" 0lt 2 h 4120 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4128 */- {.type Absolute, {.p 0}}, /* dd 0 4136 */- {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 4144 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4152 */- {.type Header, {.hdr { 2, "0>", /* C_0gt = 4168 */ colon }}}, /* CENTRY "0>" 0gt 2 h 4176 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4184 */- {.type Absolute, {.p 0}}, /* dd 0 4192 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4200 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4208 */- {.type Header, {.hdr { 2, "<>", /* C_neq = 4224 */ colon }}}, /* CENTRY "<>" neq 2 h 4232 */- {.type FromH0, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 4240 */- {.type FromH0, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 4248 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4256 */- {.type Header, {.hdr { 3, "0<>", /* C_0neq = 4272 */ colon }}}, /* CENTRY "0<>" 0neq 3 h 4280 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4288 */- {.type Absolute, {.p 0}}, /* dd 0 4296 */- {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 4304 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4312 */- {.type Header, {.hdr { 3, "max", /* C_max = 4328 */ colon }}}, /* CENTRY "max" max 3 h 4336 */- {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 4344 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4352 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4360 */- {.type FromH0, {.p L40}, .src = "dd L40"}, /* dd L40 4368 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4376 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4384 */- {.type FromH0, {.p L41}, .src = "dd L41"}, /* dd L41 4392 */- {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 4400 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4408 */- {.type Header, {.hdr { 3, "min", /* C_min = 4424 */ colon }}}, /* CENTRY "min" min 3 h 4432 */- {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 4440 */- {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 4448 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4456 */- {.type FromH0, {.p L43}, .src = "dd L43"}, /* dd L43 4464 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4472 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4480 */- {.type FromH0, {.p L44}, .src = "dd L44"}, /* dd L44 4488 */- {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 4496 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4504 */- {.type Header, {.hdr { 6, "signum", /* C_signum = 4520 */ colon }}}, /* CENTRY "signum" signum 6 h 4528 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 4536 */- {.type FromH0, {.p C_0gt}, .src = "dd C_0gt"}, /* dd C_0gt 4544 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4552 */- {.type FromH0, {.p L46}, .src = "dd L46"}, /* dd L46 4560 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4568 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4576 */- {.type Absolute, {.p 1}}, /* dd 1 4584 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4592 */- {.type FromH0, {.p L47}, .src = "dd L47"}, /* dd L47 4600 */- {.type FromH0, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 4608 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4616 */- {.type FromH0, {.p L48}, .src = "dd L48"}, /* dd L48 4624 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4632 */- {.type Absolute, {.p -1}}, /* dd -1 4640 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4648 */- {.type FromH0, {.p L49}, .src = "dd L49"}, /* dd L49 4656 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4664 */- {.type Absolute, {.p 0}}, /* dd 0 4672 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4680 */- {.type Header, {.hdr { 6, "within", /* C_within = 4696 */ colon }}}, /* CENTRY "within" within 6 h 4704 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 4712 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 4720 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4728 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 4736 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 4744 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 4752 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4760 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 4768 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 4776 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4784 */- {.type Header, {.hdr { 3, "abs", /* C_abs = 4800 */ colon }}}, /* CENTRY "abs" abs 3 h 4808 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 4816 */- {.type FromH0, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 4824 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4832 */- {.type FromH0, {.p L52}, .src = "dd L52"}, /* dd L52 4840 */- {.type FromH0, {.p C_negate}, .src = "dd C_negate"}, /* dd C_negate 4848 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4856 */- {.type Header, {.hdr { 3, "key", /* C_key = 4872 */ colon }}}, /* CENTRY "key" key 3 ; ( -- c ) (G read a single character from the input onto the stack ) h 4880 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4888 */- {.type Absolute, {.p 1}}, /* dd 1 ; ( 1 -- ) 4896 */- {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf to store the character read"}, /* dd MV_Iobuf ; variable iobuf to store the character read 4904 */+ {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 3424 */+ {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 3432 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3440 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 3448 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 3456 */+ {.type FromH0, {.p L23}, .src = "dd L23"}, /* dd L23 3464 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3472 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3480 */+ {.type Header, {.hdr { 4, "tuck", /* C_tuck = 3496 */ colon }}}, /* CENTRY "tuck" tuck 4 h 3504 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3512 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 3520 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3528 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 3536 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3544 */+ {.type Header, {.hdr { 1, "/", /* C_divides = 3560 */ colon }}}, /* CENTRY "/" divides 1 h 3568 */+ {.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"}, /* dd M_slashmod 3576 */+ {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 3584 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3592 */+ {.type Header, {.hdr { 2, "+!", /* C_plusstore = 3608 */ colon }}}, /* CENTRY "+!" plusstore 2 h 3616 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 3624 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 3632 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot"}, /* dd C_rot 3640 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3648 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3656 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 3664 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3672 */+ {.type Header, {.hdr { 6, "invert", /* C_invert = 3688 */ colon }}}, /* CENTRY "invert" invert 6 h 3696 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3704 */+ {.type Absolute, {.p -1}}, /* dd -1 3712 */+ {.type FromH0, {.p M_binxor}, .src = "dd M_binxor"}, /* dd M_binxor 3720 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3728 */+ {.type Header, {.hdr { 3, "mod", /* C_mod = 3744 */ colon }}}, /* CENTRY "mod" mod 3 h 3752 */+ {.type FromH0, {.p M_slashmod}, .src = "dd M_slashmod"}, /* dd M_slashmod 3760 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 3768 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3776 */+ {.type Header, {.hdr { 2, "1+", /* C_1plus = 3792 */ colon }}}, /* CENTRY "1+" 1plus 2 h 3800 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3808 */+ {.type Absolute, {.p 1}}, /* dd 1 3816 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 3824 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3832 */+ {.type Header, {.hdr { 2, "1-", /* C_1minus = 3848 */ colon }}}, /* CENTRY "1-" 1minus 2 h 3856 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3864 */+ {.type Absolute, {.p 1}}, /* dd 1 3872 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 3880 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3888 */+ {.type Header, {.hdr { 6, "negate", /* C_negate = 3904 */ colon }}}, /* CENTRY "negate" negate 6 h 3912 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3920 */+ {.type Absolute, {.p 0}}, /* dd 0 3928 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 3936 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 3944 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 3952 */+ {.type Header, {.hdr { 2, "2*", /* C_2multiplies = 3968 */ colon }}}, /* CENTRY "2*" 2multiplies 2 h 3976 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 3984 */+ {.type Absolute, {.p 1}}, /* dd 1 3992 */+ {.type FromH0, {.p M_lshift}, .src = "dd M_lshift"}, /* dd M_lshift 4000 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4008 */+ {.type Header, {.hdr { 2, "2/", /* C_2divides = 4024 */ colon }}}, /* CENTRY "2/" 2divides 2 h 4032 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4040 */+ {.type Absolute, {.p 1}}, /* dd 1 4048 */+ {.type FromH0, {.p M_rshifta}, .src = "dd M_rshifta"}, /* dd M_rshifta 4056 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4064 */+ {.type Header, {.hdr { 2, "0=", /* C_0eq = 4080 */ colon }}}, /* CENTRY "0=" 0eq 2 h 4088 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4096 */+ {.type Absolute, {.p 0}}, /* dd 0 4104 */+ {.type FromH0, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 4112 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4120 */+ {.type Header, {.hdr { 2, "0<", /* C_0lt = 4136 */ colon }}}, /* CENTRY "0<" 0lt 2 h 4144 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4152 */+ {.type Absolute, {.p 0}}, /* dd 0 4160 */+ {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 4168 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4176 */+ {.type Header, {.hdr { 2, "0>", /* C_0gt = 4192 */ colon }}}, /* CENTRY "0>" 0gt 2 h 4200 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4208 */+ {.type Absolute, {.p 0}}, /* dd 0 4216 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4224 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4232 */+ {.type Header, {.hdr { 2, "<>", /* C_neq = 4248 */ colon }}}, /* CENTRY "<>" neq 2 h 4256 */+ {.type FromH0, {.p M_equal}, .src = "dd M_equal"}, /* dd M_equal 4264 */+ {.type FromH0, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 4272 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4280 */+ {.type Header, {.hdr { 3, "0<>", /* C_0neq = 4296 */ colon }}}, /* CENTRY "0<>" 0neq 3 h 4304 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4312 */+ {.type Absolute, {.p 0}}, /* dd 0 4320 */+ {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 4328 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4336 */+ {.type Header, {.hdr { 3, "max", /* C_max = 4352 */ colon }}}, /* CENTRY "max" max 3 h 4360 */+ {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 4368 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4376 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4384 */+ {.type FromH0, {.p L40}, .src = "dd L40"}, /* dd L40 4392 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4400 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4408 */+ {.type FromH0, {.p L41}, .src = "dd L41"}, /* dd L41 4416 */+ {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 4424 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4432 */+ {.type Header, {.hdr { 3, "min", /* C_min = 4448 */ colon }}}, /* CENTRY "min" min 3 h 4456 */+ {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 4464 */+ {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 4472 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4480 */+ {.type FromH0, {.p L43}, .src = "dd L43"}, /* dd L43 4488 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4496 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4504 */+ {.type FromH0, {.p L44}, .src = "dd L44"}, /* dd L44 4512 */+ {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 4520 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4528 */+ {.type Header, {.hdr { 6, "signum", /* C_signum = 4544 */ colon }}}, /* CENTRY "signum" signum 6 h 4552 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 4560 */+ {.type FromH0, {.p C_0gt}, .src = "dd C_0gt"}, /* dd C_0gt 4568 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4576 */+ {.type FromH0, {.p L46}, .src = "dd L46"}, /* dd L46 4584 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 4592 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4600 */+ {.type Absolute, {.p 1}}, /* dd 1 4608 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4616 */+ {.type FromH0, {.p L47}, .src = "dd L47"}, /* dd L47 4624 */+ {.type FromH0, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 4632 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4640 */+ {.type FromH0, {.p L48}, .src = "dd L48"}, /* dd L48 4648 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4656 */+ {.type Absolute, {.p -1}}, /* dd -1 4664 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4672 */+ {.type FromH0, {.p L49}, .src = "dd L49"}, /* dd L49 4680 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4688 */+ {.type Absolute, {.p 0}}, /* dd 0 4696 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4704 */+ {.type Header, {.hdr { 6, "within", /* C_within = 4720 */ colon }}}, /* CENTRY "within" within 6 h 4728 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 4736 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 4744 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4752 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 4760 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 4768 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 4776 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 4784 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 4792 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 4800 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4808 */+ {.type Header, {.hdr { 3, "abs", /* C_abs = 4824 */ colon }}}, /* CENTRY "abs" abs 3 h 4832 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 4840 */+ {.type FromH0, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 4848 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 4856 */+ {.type FromH0, {.p L52}, .src = "dd L52"}, /* dd L52 4864 */+ {.type FromH0, {.p C_negate}, .src = "dd C_negate"}, /* dd C_negate 4872 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 4880 */+ {.type Header, {.hdr { 3, "key", /* C_key = 4896 */ colon }}}, /* CENTRY "key" key 3 ; ( -- c ) (G read a single character from the input onto the stack ) h 4904 */ {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 4912 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( 1 Iobuf -- 1 Iobuf infd )"}, /* dd M_fetch ; ( 1 Iobuf -- 1 Iobuf infd ) 4920 */- {.type FromH0, {.p M_fsread}, .src = "dd M_fsread ; ( 1 Iobuf infd -- n )"}, /* dd M_fsread ; ( 1 Iobuf infd -- n ) 4928 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 4936 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; if 0 characters read"}, /* dd M_cjump ; if 0 characters read 4944 */- {.type FromH0, {.p L78}, .src = "dd L78 ; if qread n != 0 jump to L78. If n == 0 jump over"}, /* dd L78 ; if qread n != 0 jump to L78. If n == 0 jump over 4952 */- {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 4960 */- {.type FromH0, {.p C_on}, .src = "dd C_on ; EOF"}, /* dd C_on ; EOF 4968 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4976 */- {.type Absolute, {.p -1}}, /* dd -1 ; return -1 when EOF 4984 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 4992 */- {.type FromH0, {.p L79}, .src = "dd L79"}, /* dd L79 5000 */- {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; get the character from Iobuf to stack"}, /* dd MV_Iobuf ; get the character from Iobuf to stack 5008 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( -- c ) return the character read if not EOF"}, /* dd M_cfetch ; ( -- c ) return the character read if not EOF 5016 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5024 */- {.type Header, {.hdr { 4, "emit", /* C_emit = 5040 */ colon }}}, /* CENTRY "emit" emit 4 ; ( character -- ) h 5048 */- {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf address"}, /* dd MV_Iobuf ; variable iobuf address 5056 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; variable iobuf has character"}, /* dd M_cstore ; variable iobuf has character 5064 */- {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf address"}, /* dd MV_Iobuf ; variable iobuf address 5072 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5080 */- {.type Absolute, {.p 1}}, /* dd 1 5088 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( iobuf 1 -- 1 iobuf )"}, /* dd M_xswap ; ( iobuf 1 -- 1 iobuf ) 5096 */- {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 5104 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; outfd"}, /* dd M_fetch ; outfd 5112 */- {.type FromH0, {.p M_fswrite}, .src = "dd M_fswrite ; ( 1 iobuf outfd -- )"}, /* dd M_fswrite ; ( 1 iobuf outfd -- ) 5120 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 5128 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5136 */- {.type Header, {.hdr { 4, "type", /* C_type = 5152 */ colon }}}, /* CENTRY "type" type 4 ; ( addr n -- ) h 5160 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( addr n -- n addr )"}, /* dd M_xswap ; ( addr n -- n addr ) 5168 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5176 */- {.type Absolute, {.p 1}}, /* dd 1 ; stdout 5184 */- {.type FromH0, {.p M_fswrite}, .src = "dd M_fswrite ; ( n addr 1 -- )"}, /* dd M_fswrite ; ( n addr 1 -- ) 5192 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 5200 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5208 */- {.type Header, {.hdr { 2, "cr", /* C_cr = 5224 */ colon }}}, /* CENTRY "cr" cr 2 h 5232 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5240 */- {.type Absolute, {.p 10}}, /* dd 10 ; ascii value of carriage return 5248 */- {.type FromH0, {.p C_emit}, .src = "dd C_emit ; emit"}, /* dd C_emit ; emit 5256 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5264 */- {.type Header, {.hdr { 5, "space", /* C_space = 5280 */ colon }}}, /* CENTRY "space" space 5 h 5288 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 5296 */- {.type FromH0, {.p C_emit}, .src = "dd C_emit"}, /* dd C_emit 5304 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5312 */- {.type Header, {.hdr { 5, "emits", /* C_emits = 5328 */ colon }}}, /* CENTRY "emits" emits 5 h 5336 */- {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 5344 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 5352 */- {.type FromH0, {.p L86}, .src = "dd L86"}, /* dd L86 5360 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5368 */- {.type FromH0, {.p C_emit}, .src = "dd C_emit"}, /* dd C_emit 5376 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 5384 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 5392 */- {.type FromH0, {.p L85}, .src = "dd L85"}, /* dd L85 5400 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 5408 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5416 */- {.type Header, {.hdr { 6, "spaces", /* C_spaces = 5432 */ colon }}}, /* CENTRY "spaces" spaces 6 h 5440 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 5448 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 5456 */- {.type FromH0, {.p C_emits}, .src = "dd C_emits"}, /* dd C_emits 5464 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5472 */- {.type Header, {.hdr { 5, "count", /* C_count = 5488 */ colon }}}, /* CENTRY "count" count 5 ; ( a -- a+1 n ) a = address of counted string ( a - a+1 a[0]) h 5496 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 5504 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 5512 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 5520 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5528 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5536 */- {.type FromH0, {.p C_2dup}, .src = "dd C_2dup ; debug show the word name to search"}, /* dd C_2dup ; debug show the word name to search 5544 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 5552 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 5560 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; debug show the dictionary entry"}, /* dd M_rpush ; debug show the dictionary entry 5568 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 5576 */- {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 5584 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( infd )"}, /* dd M_fetch ; ( infd ) 4920 */+ {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf to store the character read"}, /* dd MV_Iobuf ; variable iobuf to store the character read 4928 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 4936 */+ {.type Absolute, {.p 1}}, /* dd 1 ; ( infd Iobuf 1 ) 4944 */+ {.type FromH0, {.p M_sysread}, .src = "dd M_sysread ; ( infd Iobuf 1 -- n )"}, /* dd M_sysread ; ( infd Iobuf 1 -- n ) 4952 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 4960 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; if 0 characters read"}, /* dd M_cjump ; if 0 characters read 4968 */+ {.type FromH0, {.p L78}, .src = "dd L78 ; if qread n != 0 jump to L78. If n == 0 jump over"}, /* dd L78 ; if qread n != 0 jump to L78. If n == 0 jump over 4976 */+ {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 4984 */+ {.type FromH0, {.p C_on}, .src = "dd C_on ; EOF"}, /* dd C_on ; EOF 4992 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5000 */+ {.type Absolute, {.p -1}}, /* dd -1 ; return -1 when EOF 5008 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 5016 */+ {.type FromH0, {.p L79}, .src = "dd L79"}, /* dd L79 5024 */+ {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; get the character from Iobuf to stack"}, /* dd MV_Iobuf ; get the character from Iobuf to stack 5032 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( -- c ) return the character read if not EOF"}, /* dd M_cfetch ; ( -- c ) return the character read if not EOF 5040 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5048 */+ {.type Header, {.hdr { 4, "emit", /* C_emit = 5064 */ colon }}}, /* CENTRY "emit" emit 4 ; ( character -- ) h 5072 */+ {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf address"}, /* dd MV_Iobuf ; variable iobuf address 5080 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; variable iobuf has character"}, /* dd M_cstore ; variable iobuf has character 5088 */+ {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 5096 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; outfd"}, /* dd M_fetch ; outfd 5104 */+ {.type FromH0, {.p MV_Iobuf}, .src = "dd MV_Iobuf ; variable iobuf address"}, /* dd MV_Iobuf ; variable iobuf address 5112 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5120 */+ {.type Absolute, {.p 1}}, /* dd 1 ; ( outfd iobuf 1 ) 5128 */+ {.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite ; ( 1 iobuf outfd -- )"}, /* dd M_syswrite ; ( 1 iobuf outfd -- ) 5136 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 5144 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5152 */+ {.type Header, {.hdr { 4, "type", /* C_type = 5168 */ colon }}}, /* CENTRY "type" type 4 ; ( addr n -- ) h 5176 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( addr ) (R n )"}, /* dd M_rpush ; ( addr ) (R n ) 5184 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( ) (R n addr )"}, /* dd M_rpush ; ( ) (R n addr ) 5192 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5200 */+ {.type Absolute, {.p 1}}, /* dd 1 ; stdout 5208 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( stdout addr ) (R n )"}, /* dd M_rpop ; ( stdout addr ) (R n ) 5216 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( stdout addr n ) (R )"}, /* dd M_rpop ; ( stdout addr n ) (R ) 5224 */+ {.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite ; ( 1 addr n -- )"}, /* dd M_syswrite ; ( 1 addr n -- ) 5232 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 5240 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5248 */+ {.type Header, {.hdr { 2, "cr", /* C_cr = 5264 */ colon }}}, /* CENTRY "cr" cr 2 h 5272 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5280 */+ {.type Absolute, {.p 10}}, /* dd 10 ; ascii value of carriage return 5288 */+ {.type FromH0, {.p C_emit}, .src = "dd C_emit ; emit"}, /* dd C_emit ; emit 5296 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5304 */+ {.type Header, {.hdr { 5, "space", /* C_space = 5320 */ colon }}}, /* CENTRY "space" space 5 h 5328 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 5336 */+ {.type FromH0, {.p C_emit}, .src = "dd C_emit"}, /* dd C_emit 5344 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5352 */+ {.type Header, {.hdr { 5, "emits", /* C_emits = 5368 */ colon }}}, /* CENTRY "emits" emits 5 h 5376 */+ {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 5384 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 5392 */+ {.type FromH0, {.p L86}, .src = "dd L86"}, /* dd L86 5400 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5408 */+ {.type FromH0, {.p C_emit}, .src = "dd C_emit"}, /* dd C_emit 5416 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 5424 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 5432 */+ {.type FromH0, {.p L85}, .src = "dd L85"}, /* dd L85 5440 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 5448 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5456 */+ {.type Header, {.hdr { 6, "spaces", /* C_spaces = 5472 */ colon }}}, /* CENTRY "spaces" spaces 6 h 5480 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 5488 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 5496 */+ {.type FromH0, {.p C_emits}, .src = "dd C_emits"}, /* dd C_emits 5504 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5512 */+ {.type Header, {.hdr { 5, "count", /* C_count = 5528 */ colon }}}, /* CENTRY "count" count 5 ; ( a -- a+1 n ) a = address of counted string ( a - a+1 a[0]) h 5536 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 5544 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 5552 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 5560 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5568 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5576 */+ {.type FromH0, {.p C_2dup}, .src = "dd C_2dup ; debug show the word name to search"}, /* dd C_2dup ; debug show the word name to search 5584 */ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 5592 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5600 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5608 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 5616 */- {.type Header, {.hdr { 7, "compare", /* C_compare = 5632 */ colon }}}, /* CENTRY "compare" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search h 5640 */- {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 )"}, /* dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 ) 5648 */- {.type FromH0, {.p C_2dup}, .src = "dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 )"}, /* dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 ) 5656 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- )"}, /* dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- ) 5664 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- )"}, /* dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- ) 5672 */- {.type FromH0, {.p C_min}, .src = "dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- )"}, /* dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- ) 5680 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5688 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( -- a1 a2 nmin 0 ) (R n1 n2 -- ) 5696 */- {.type FromH0, {.p M_doinit}, .src = "dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- )"}, /* dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- ) 5704 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5712 */- {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 5720 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 5728 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5736 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5744 */- {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 5752 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 5760 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5768 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 5776 */- {.type FromH0, {.p C_signum}, .src = "dd C_signum"}, /* dd C_signum 5784 */- {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 5792 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 5800 */- {.type FromH0, {.p L56}, .src = "dd L56 ; matches"}, /* dd L56 ; matches 5808 */- {.type FromH0, {.p C_2nip}, .src = "dd C_2nip ; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- )"}, /* dd C_2nip ; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- ) 5816 */- {.type FromH0, {.p M_unloop}, .src = "dd M_unloop ; ( f -- f ) (R n1 n2 0 nmin -- n1 n2)"}, /* dd M_unloop ; ( f -- f ) (R n1 n2 0 nmin -- n1 n2) 5824 */- {.type FromH0, {.p M_unloop}, .src = "dd M_unloop ; ( f -- f ) (R n1 n2 -- )"}, /* dd M_unloop ; ( f -- f ) (R n1 n2 -- ) 5832 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5840 */- {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 5848 */- {.type FromH0, {.p L55}, .src = "dd L55"}, /* dd L55 5856 */- {.type FromH0, {.p C_2drop}, .src = "dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- )"}, /* dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- ) 5864 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5872 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( n2 n1 -- ) (R -- )"}, /* dd M_rpop ; ( n2 n1 -- ) (R -- ) 5880 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( -- n1-n2 )"}, /* dd M_minus ; ( -- n1-n2 ) 5888 */- {.type FromH0, {.p C_signum}, .src = "dd C_signum"}, /* dd C_signum 5896 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5904 */- {.type Header, {.hdr { 5, "erase", /* C_erase = 5920 */ colon }}}, /* CENTRY "erase" erase 5 h 5928 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5936 */- {.type Absolute, {.p 0}}, /* dd 0 5944 */- {.type FromH0, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 5952 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5960 */- {.type Absolute, {.p 0}}, /* dd 0 5968 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5976 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 5984 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 5992 */- {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6000 */- {.type FromH0, {.p L58}, .src = "dd L58"}, /* dd L58 6008 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6016 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6024 */- {.type Header, {.hdr { 4, "fill", /* C_fill = 6040 */ colon }}}, /* CENTRY "fill" fill 4 h 6048 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6056 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6064 */- {.type Absolute, {.p 0}}, /* dd 0 6072 */- {.type FromH0, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 6080 */- {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 6088 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6096 */- {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6104 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6112 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6120 */- {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6128 */- {.type FromH0, {.p L60}, .src = "dd L60"}, /* dd L60 6136 */- {.type FromH0, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 6144 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6152 */- {.type Header, {.hdr { 5, "blank", /* C_blank = 6168 */ colon }}}, /* CENTRY "blank" blank 5 h 6176 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 6184 */- {.type FromH0, {.p C_fill}, .src = "dd C_fill"}, /* dd C_fill 6192 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6200 */- {.type Header, {.hdr { 6, "search", /* C_search = 6216 */ colon }}}, /* CENTRY "search" search 6 h 6224 */- {.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6232 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 6240 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6248 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 6256 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 6264 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 5600 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; debug show the dictionary entry"}, /* dd M_rpush ; debug show the dictionary entry 5608 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 5616 */+ {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 5624 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 5632 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5640 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5648 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 5656 */+ {.type Header, {.hdr { 7, "compare", /* C_compare = 5672 */ colon }}}, /* CENTRY "compare" compare 7 ; ( a1 n1 a2 n2 -- f ) a1 = dictionary entry a2 = word name to search h 5680 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 )"}, /* dd C_rot ; ( a1 n1 a2 n2 -- a1 a2 n2 n1 ) 5688 */+ {.type FromH0, {.p C_2dup}, .src = "dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 )"}, /* dd C_2dup ; ( -- a1 a2 n2 n1 n2 n1 ) 5696 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- )"}, /* dd M_rpush ; ( -- a1 a2 n2 n1 n2 ) (R n1 -- ) 5704 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- )"}, /* dd M_rpush ; ( -- a1 a2 n2 n1 ) (R n1 n2 -- ) 5712 */+ {.type FromH0, {.p C_min}, .src = "dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- )"}, /* dd C_min ; ( -- a1 a2 nmin ) (R n1 n2 -- ) 5720 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5728 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( -- a1 a2 nmin 0 ) (R n1 n2 -- ) 5736 */+ {.type FromH0, {.p M_doinit}, .src = "dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- )"}, /* dd M_doinit ; ( -- a1 a2 ) (R n1 n2 0 nmin -- ) 5744 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5752 */+ {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 5760 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 5768 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5776 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 5784 */+ {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 5792 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 5800 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 5808 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 5816 */+ {.type FromH0, {.p C_signum}, .src = "dd C_signum"}, /* dd C_signum 5824 */+ {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 5832 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 5840 */+ {.type FromH0, {.p L56}, .src = "dd L56 ; matches"}, /* dd L56 ; matches 5848 */+ {.type FromH0, {.p C_2nip}, .src = "dd C_2nip ; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- )"}, /* dd C_2nip ; does not match ( a1 a2 f -- f ) (R n1 n2 0 nmin -- ) 5856 */+ {.type FromH0, {.p M_unloop}, .src = "dd M_unloop ; ( f -- f ) (R n1 n2 0 nmin -- n1 n2)"}, /* dd M_unloop ; ( f -- f ) (R n1 n2 0 nmin -- n1 n2) 5864 */+ {.type FromH0, {.p M_unloop}, .src = "dd M_unloop ; ( f -- f ) (R n1 n2 -- )"}, /* dd M_unloop ; ( f -- f ) (R n1 n2 -- ) 5872 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5880 */+ {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 5888 */+ {.type FromH0, {.p L55}, .src = "dd L55"}, /* dd L55 5896 */+ {.type FromH0, {.p C_2drop}, .src = "dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- )"}, /* dd C_2drop ; ( a1 a2 -- ) (R n1 n2 -- ) 5904 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 5912 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( n2 n1 -- ) (R -- )"}, /* dd M_rpop ; ( n2 n1 -- ) (R -- ) 5920 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( -- n1-n2 )"}, /* dd M_minus ; ( -- n1-n2 ) 5928 */+ {.type FromH0, {.p C_signum}, .src = "dd C_signum"}, /* dd C_signum 5936 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 5944 */+ {.type Header, {.hdr { 5, "erase", /* C_erase = 5960 */ colon }}}, /* CENTRY "erase" erase 5 h 5968 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 5976 */+ {.type Absolute, {.p 0}}, /* dd 0 5984 */+ {.type FromH0, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 5992 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6000 */+ {.type Absolute, {.p 0}}, /* dd 0 6008 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6016 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6024 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 6032 */+ {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6040 */+ {.type FromH0, {.p L58}, .src = "dd L58"}, /* dd L58 6048 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6056 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6064 */+ {.type Header, {.hdr { 4, "fill", /* C_fill = 6080 */ colon }}}, /* CENTRY "fill" fill 4 h 6088 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6096 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6104 */+ {.type Absolute, {.p 0}}, /* dd 0 6112 */+ {.type FromH0, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 6120 */+ {.type FromH0, {.p C_2dup}, .src = "dd C_2dup"}, /* dd C_2dup 6128 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6136 */+ {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6144 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6152 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6160 */+ {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6168 */+ {.type FromH0, {.p L60}, .src = "dd L60"}, /* dd L60 6176 */+ {.type FromH0, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 6184 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6192 */+ {.type Header, {.hdr { 5, "blank", /* C_blank = 6208 */ colon }}}, /* CENTRY "blank" blank 5 h 6216 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 6224 */+ {.type FromH0, {.p C_fill}, .src = "dd C_fill"}, /* dd C_fill 6232 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6240 */+ {.type Header, {.hdr { 6, "search", /* C_search = 6256 */ colon }}}, /* CENTRY "search" search 6 h 6264 */ {.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6272 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6280 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 6288 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 6296 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6304 */- {.type Absolute, {.p 0}}, /* dd 0 6312 */- {.type FromH0, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 6320 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6328 */- {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6336 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6344 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6352 */- {.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6360 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6368 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6376 */- {.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6384 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6392 */- {.type FromH0, {.p C_compare}, .src = "dd C_compare"}, /* dd C_compare 6400 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 6408 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 6416 */- {.type FromH0, {.p L65}, .src = "dd L65"}, /* dd L65 6424 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6432 */- {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6440 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6448 */- {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6456 */- {.type FromH0, {.p M_unloop}, .src = "dd M_unloop"}, /* dd M_unloop 6464 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 6472 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6480 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 6488 */- {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 6496 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6504 */- {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6512 */- {.type FromH0, {.p L64}, .src = "dd L64"}, /* dd L64 6520 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6528 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 6536 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 6544 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6552 */- {.type Header, {.hdr { 4, "here", /* C_here = 6568 */ colon }}}, /* CENTRY "here" here 4 h 6576 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6584 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6592 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6600 */- {.type Header, {.hdr { 4, "vhere", /* C_vhere = 6616 */ colon }}}, /* CENTRY "vhere" vhere 4 h 6624 */- {.type FromH0, {.p M_Vp}, .src = "dd M_Vp"}, /* dd M_Vp 6632 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6640 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6648 */- {.type Header, {.hdr { 1, ",", /* C_comma = 6664 */ colon }}}, /* CENTRY "," comma 1 h 6672 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6680 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 6688 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6696 */- {.type Absolute, {.p 8}}, /* dd 8 6704 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6712 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6720 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6728 */- {.type Header, {.hdr { 2, "c,", /* C_c = 6744 */ colon }}}, /* CENTRY "c," c 2 h 6752 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6760 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6768 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6776 */- {.type Absolute, {.p 1}}, /* dd 1 6784 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6792 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6800 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6808 */- {.type Header, {.hdr { 5, "allot", /* C_allot = 6824 */ colon }}}, /* CENTRY "allot" allot 5 ; ( n -- ) here = here+n h 6832 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6840 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6848 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6856 */- {.type Header, {.hdr { 6, "vallot", /* C_vallot = 6872 */ colon }}}, /* CENTRY "vallot" vallot 6 ; allot on the variable space ( n -- ) vhere = vhere+n h 6880 */- {.type FromH0, {.p M_Vp}, .src = "dd M_Vp"}, /* dd M_Vp 6888 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6896 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6904 */- {.type Header, {.hdr { 3, "pad", /* C_pad = 6920 */ colon }}}, /* CENTRY "pad" pad 3 h 6928 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6936 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6944 */- {.type Absolute, {.p 256}}, /* dd 256 6952 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6960 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6968 */- {.type Header, {.hdr { 5, "align", /* C_align = 6984 */ colon }}}, /* CENTRY "align" align 5 ; ( -- ) align here to a cell boundary h 6992 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; Dp @"}, /* dd C_here ; Dp @ 7000 */- {.type FromH0, {.p C_aligned}, .src = "dd C_aligned ; here is aligned to a multiple of 8"}, /* dd C_aligned ; here is aligned to a multiple of 8 7008 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp ; store the aligned here at Dp"}, /* dd M_Dp ; store the aligned here at Dp 7016 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; Dp contains aligned_here"}, /* dd M_store ; Dp contains aligned_here 7024 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7032 */- {.type Header, {.hdr { 6, "unused", /* C_unused = 7048 */ colon }}}, /* CENTRY "unused" unused 6 h 7056 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 7064 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7072 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 7080 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7088 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7096 */- {.type Header, {.hdr { 2, "<#", /* C_fromhash = 7112 */ colon }}}, /* CENTRY "<#" fromhash 2 h 7120 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 7128 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7136 */- {.type Absolute, {.p 1024}}, /* dd 1024 7144 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7152 */- {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7160 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7168 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7176 */- {.type Header, {.hdr { 1, "#", /* C_hash = 7192 */ colon }}}, /* CENTRY "#" hash 1 h 7200 */- {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 7208 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7216 */- {.type FromH0, {.p M_uslashmod}, .src = "dd M_uslashmod"}, /* dd M_uslashmod 7224 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 7232 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7240 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7248 */- {.type Absolute, {.p 9}}, /* dd 9 7256 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 7264 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7272 */- {.type FromH0, {.p L92}, .src = "dd L92"}, /* dd L92 7280 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 6280 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6288 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 6296 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 6304 */+ {.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6312 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6320 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 6328 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 6336 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6344 */+ {.type Absolute, {.p 0}}, /* dd 0 6352 */+ {.type FromH0, {.p M_doinit}, .src = "dd M_doinit"}, /* dd M_doinit 6360 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6368 */+ {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6376 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6384 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 6392 */+ {.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6400 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6408 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6416 */+ {.type FromH0, {.p MV_Searchlen}, .src = "dd MV_Searchlen"}, /* dd MV_Searchlen 6424 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6432 */+ {.type FromH0, {.p C_compare}, .src = "dd C_compare"}, /* dd C_compare 6440 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 6448 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 6456 */+ {.type FromH0, {.p L65}, .src = "dd L65"}, /* dd L65 6464 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6472 */+ {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6480 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 6488 */+ {.type FromH0, {.p M_i}, .src = "dd M_i"}, /* dd M_i 6496 */+ {.type FromH0, {.p M_unloop}, .src = "dd M_unloop"}, /* dd M_unloop 6504 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 6512 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 6520 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 6528 */+ {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 6536 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6544 */+ {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 6552 */+ {.type FromH0, {.p L64}, .src = "dd L64"}, /* dd L64 6560 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 6568 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 6576 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 6584 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6592 */+ {.type Header, {.hdr { 4, "here", /* C_here = 6608 */ colon }}}, /* CENTRY "here" here 4 h 6616 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6624 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6632 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6640 */+ {.type Header, {.hdr { 4, "vhere", /* C_vhere = 6656 */ colon }}}, /* CENTRY "vhere" vhere 4 h 6664 */+ {.type FromH0, {.p M_Vp}, .src = "dd M_Vp"}, /* dd M_Vp 6672 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 6680 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6688 */+ {.type Header, {.hdr { 1, ",", /* C_comma = 6704 */ colon }}}, /* CENTRY "," comma 1 h 6712 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6720 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 6728 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6736 */+ {.type Absolute, {.p 8}}, /* dd 8 6744 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6752 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6760 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6768 */+ {.type Header, {.hdr { 2, "c,", /* C_c = 6784 */ colon }}}, /* CENTRY "c," c 2 h 6792 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6800 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 6808 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6816 */+ {.type Absolute, {.p 1}}, /* dd 1 6824 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6832 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6840 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6848 */+ {.type Header, {.hdr { 5, "allot", /* C_allot = 6864 */ colon }}}, /* CENTRY "allot" allot 5 ; ( n -- ) here = here+n h 6872 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 6880 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6888 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6896 */+ {.type Header, {.hdr { 6, "vallot", /* C_vallot = 6912 */ colon }}}, /* CENTRY "vallot" vallot 6 ; allot on the variable space ( n -- ) vhere = vhere+n h 6920 */+ {.type FromH0, {.p M_Vp}, .src = "dd M_Vp"}, /* dd M_Vp 6928 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore"}, /* dd C_plusstore 6936 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 6944 */+ {.type Header, {.hdr { 3, "pad", /* C_pad = 6960 */ colon }}}, /* CENTRY "pad" pad 3 h 6968 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 6976 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 6984 */+ {.type Absolute, {.p 256}}, /* dd 256 6992 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7000 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7008 */+ {.type Header, {.hdr { 5, "align", /* C_align = 7024 */ colon }}}, /* CENTRY "align" align 5 ; ( -- ) align here to a cell boundary h 7032 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; Dp @"}, /* dd C_here ; Dp @ 7040 */+ {.type FromH0, {.p C_aligned}, .src = "dd C_aligned ; here is aligned to a multiple of 8"}, /* dd C_aligned ; here is aligned to a multiple of 8 7048 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp ; store the aligned here at Dp"}, /* dd M_Dp ; store the aligned here at Dp 7056 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; Dp contains aligned_here"}, /* dd M_store ; Dp contains aligned_here 7064 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7072 */+ {.type Header, {.hdr { 6, "unused", /* C_unused = 7088 */ colon }}}, /* CENTRY "unused" unused 6 h 7096 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 7104 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7112 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 7120 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7128 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7136 */+ {.type Header, {.hdr { 2, "<#", /* C_fromhash = 7152 */ colon }}}, /* CENTRY "<#" fromhash 2 h 7160 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 7168 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7176 */+ {.type Absolute, {.p 1024}}, /* dd 1024 7184 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7192 */+ {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7200 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7208 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7216 */+ {.type Header, {.hdr { 1, "#", /* C_hash = 7232 */ colon }}}, /* CENTRY "#" hash 1 h 7240 */+ {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 7248 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7256 */+ {.type FromH0, {.p M_uslashmod}, .src = "dd M_uslashmod"}, /* dd M_uslashmod 7264 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 7272 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7280 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7288 */- {.type Absolute, {.p 97}}, /* dd 97 7296 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7304 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7312 */- {.type Absolute, {.p 10}}, /* dd 10 7320 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7328 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 7336 */- {.type FromH0, {.p L93}, .src = "dd L93"}, /* dd L93 7344 */+ {.type Absolute, {.p 9}}, /* dd 9 7296 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 7304 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7312 */+ {.type FromH0, {.p L92}, .src = "dd L92"}, /* dd L92 7320 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7328 */+ {.type Absolute, {.p 97}}, /* dd 97 7336 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7344 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7352 */- {.type Absolute, {.p 48}}, /* dd 48 7360 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7368 */- {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7376 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7384 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 7392 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7400 */- {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7408 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7416 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 7424 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7432 */- {.type Header, {.hdr { 2, "#s", /* C_hashs = 7448 */ colon }}}, /* CENTRY "#s" hashs 2 h 7456 */- {.type FromH0, {.p C_hash}, .src = "dd C_hash"}, /* dd C_hash 7464 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7472 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7480 */- {.type FromH0, {.p L96}, .src = "dd L96"}, /* dd L96 7488 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 7496 */- {.type FromH0, {.p L95}, .src = "dd L95"}, /* dd L95 7504 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7512 */- {.type Header, {.hdr { 2, "#>", /* C_hashfrom = 7528 */ colon }}}, /* CENTRY "#>" hashfrom 2 h 7536 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 7544 */- {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7552 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7560 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7568 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 7576 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7584 */- {.type Absolute, {.p 1024}}, /* dd 1024 7592 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7600 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 7608 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7616 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7624 */- {.type Header, {.hdr { 4, "hold", /* C_hold = 7640 */ colon }}}, /* CENTRY "hold" hold 4 h 7648 */- {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7656 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7664 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 7672 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7680 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 7688 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 7696 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 7704 */- {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7712 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7720 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7728 */- {.type Header, {.hdr { 4, "sign", /* C_sign = 7744 */ colon }}}, /* CENTRY "sign" sign 4 h 7752 */- {.type FromH0, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 7760 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7768 */- {.type FromH0, {.p L100}, .src = "dd L100"}, /* dd L100 7776 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7784 */- {.type Absolute, {.p 45}}, /* dd 45 7792 */- {.type FromH0, {.p C_hold}, .src = "dd C_hold"}, /* dd C_hold 7800 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7808 */- {.type Header, {.hdr { 1, ".", /* C_dot = 7824 */ colon }}}, /* CENTRY "." dot 1 ; print the top of stack ( n -- ) h 7832 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 7840 */- {.type FromH0, {.p C_abs}, .src = "dd C_abs ; ( n n -- n u )"}, /* dd C_abs ; ( n n -- n u ) 7848 */- {.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash ; pad = h+256; >num = pad+1024"}, /* dd C_fromhash ; pad = h+256; >num = pad+1024 7856 */- {.type FromH0, {.p C_hashs}, .src = "dd C_hashs ; ( n u1 -- n n2 )"}, /* dd C_hashs ; ( n u1 -- n n2 ) 7864 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( n n2 -- n2 n )"}, /* dd M_xswap ; ( n n2 -- n2 n ) 7872 */- {.type FromH0, {.p C_sign}, .src = "dd C_sign ; ( n2 n -- n2 )"}, /* dd C_sign ; ( n2 n -- n2 ) 7880 */- {.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom ; ( u1 -- a n )"}, /* dd C_hashfrom ; ( u1 -- a n ) 7888 */- {.type FromH0, {.p C_type}, .src = "dd C_type ; ( a n -- )"}, /* dd C_type ; ( a n -- ) 7896 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 7904 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7912 */- {.type Header, {.hdr { 2, ".r", /* C_dotr = 7928 */ colon }}}, /* CENTRY ".r" dotr 2 h 7936 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 7944 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7952 */- {.type FromH0, {.p C_abs}, .src = "dd C_abs"}, /* dd C_abs 7960 */- {.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash"}, /* dd C_fromhash 7968 */- {.type FromH0, {.p C_hashs}, .src = "dd C_hashs"}, /* dd C_hashs 7976 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 7984 */- {.type FromH0, {.p C_sign}, .src = "dd C_sign"}, /* dd C_sign 7992 */- {.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom"}, /* dd C_hashfrom 8000 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 8008 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 8016 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8024 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8032 */- {.type Absolute, {.p 0}}, /* dd 0 8040 */- {.type FromH0, {.p C_max}, .src = "dd C_max"}, /* dd C_max 8048 */- {.type FromH0, {.p C_spaces}, .src = "dd C_spaces"}, /* dd C_spaces 8056 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 8064 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8072 */- {.type Header, {.hdr { 3, "hex", /* C_hex = 8088 */ colon }}}, /* CENTRY "hex" hex 3 h 8096 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8104 */- {.type Absolute, {.p 16}}, /* dd 16 8112 */- {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8120 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8128 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8136 */- {.type Header, {.hdr { 7, "decimal", /* C_decimal = 8152 */ colon }}}, /* CENTRY "decimal" decimal 7 h 8160 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8168 */- {.type Absolute, {.p 10}}, /* dd 10 8176 */- {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8184 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8192 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8200 */- {.type Header, {.hdr { 5, "digit", /* C_digit = 8216 */ colon }}}, /* CENTRY "digit" digit 5 ; ( c -- ) h 8224 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8232 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8240 */- {.type Absolute, {.p 65}}, /* dd 65 8248 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8256 */- {.type Absolute, {.p 91}}, /* dd 91 8264 */- {.type FromH0, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8272 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8280 */- {.type FromH0, {.p L106}, .src = "dd L106"}, /* dd L106 8288 */+ {.type Absolute, {.p 10}}, /* dd 10 7360 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7368 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 7376 */+ {.type FromH0, {.p L93}, .src = "dd L93"}, /* dd L93 7384 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7392 */+ {.type Absolute, {.p 48}}, /* dd 48 7400 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7408 */+ {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7416 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7424 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 7432 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7440 */+ {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7448 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7456 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 7464 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7472 */+ {.type Header, {.hdr { 2, "#s", /* C_hashs = 7488 */ colon }}}, /* CENTRY "#s" hashs 2 h 7496 */+ {.type FromH0, {.p C_hash}, .src = "dd C_hash"}, /* dd C_hash 7504 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7512 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7520 */+ {.type FromH0, {.p L96}, .src = "dd L96"}, /* dd L96 7528 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 7536 */+ {.type FromH0, {.p L95}, .src = "dd L95"}, /* dd L95 7544 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7552 */+ {.type Header, {.hdr { 2, "#>", /* C_hashfrom = 7568 */ colon }}}, /* CENTRY "#>" hashfrom 2 h 7576 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 7584 */+ {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7592 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7600 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7608 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 7616 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7624 */+ {.type Absolute, {.p 1024}}, /* dd 1024 7632 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 7640 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 7648 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 7656 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7664 */+ {.type Header, {.hdr { 4, "hold", /* C_hold = 7680 */ colon }}}, /* CENTRY "hold" hold 4 h 7688 */+ {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7696 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 7704 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 7712 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7720 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 7728 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 7736 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 7744 */+ {.type FromH0, {.p MV_toNum}, .src = "dd MV_toNum"}, /* dd MV_toNum 7752 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 7760 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7768 */+ {.type Header, {.hdr { 4, "sign", /* C_sign = 7784 */ colon }}}, /* CENTRY "sign" sign 4 h 7792 */+ {.type FromH0, {.p C_0lt}, .src = "dd C_0lt"}, /* dd C_0lt 7800 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 7808 */+ {.type FromH0, {.p L100}, .src = "dd L100"}, /* dd L100 7816 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 7824 */+ {.type Absolute, {.p 45}}, /* dd 45 7832 */+ {.type FromH0, {.p C_hold}, .src = "dd C_hold"}, /* dd C_hold 7840 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7848 */+ {.type Header, {.hdr { 1, ".", /* C_dot = 7864 */ colon }}}, /* CENTRY "." dot 1 ; print the top of stack ( n -- ) h 7872 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 7880 */+ {.type FromH0, {.p C_abs}, .src = "dd C_abs ; ( n n -- n u )"}, /* dd C_abs ; ( n n -- n u ) 7888 */+ {.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash ; pad = h+256; >num = pad+1024"}, /* dd C_fromhash ; pad = h+256; >num = pad+1024 7896 */+ {.type FromH0, {.p C_hashs}, .src = "dd C_hashs ; ( n u1 -- n n2 )"}, /* dd C_hashs ; ( n u1 -- n n2 ) 7904 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( n n2 -- n2 n )"}, /* dd M_xswap ; ( n n2 -- n2 n ) 7912 */+ {.type FromH0, {.p C_sign}, .src = "dd C_sign ; ( n2 n -- n2 )"}, /* dd C_sign ; ( n2 n -- n2 ) 7920 */+ {.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom ; ( u1 -- a n )"}, /* dd C_hashfrom ; ( u1 -- a n ) 7928 */+ {.type FromH0, {.p C_type}, .src = "dd C_type ; ( a n -- )"}, /* dd C_type ; ( a n -- ) 7936 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 7944 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 7952 */+ {.type Header, {.hdr { 2, ".r", /* C_dotr = 7968 */ colon }}}, /* CENTRY ".r" dotr 2 h 7976 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 7984 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 7992 */+ {.type FromH0, {.p C_abs}, .src = "dd C_abs"}, /* dd C_abs 8000 */+ {.type FromH0, {.p C_fromhash}, .src = "dd C_fromhash"}, /* dd C_fromhash 8008 */+ {.type FromH0, {.p C_hashs}, .src = "dd C_hashs"}, /* dd C_hashs 8016 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 8024 */+ {.type FromH0, {.p C_sign}, .src = "dd C_sign"}, /* dd C_sign 8032 */+ {.type FromH0, {.p C_hashfrom}, .src = "dd C_hashfrom"}, /* dd C_hashfrom 8040 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 8048 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 8056 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8064 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8072 */+ {.type Absolute, {.p 0}}, /* dd 0 8080 */+ {.type FromH0, {.p C_max}, .src = "dd C_max"}, /* dd C_max 8088 */+ {.type FromH0, {.p C_spaces}, .src = "dd C_spaces"}, /* dd C_spaces 8096 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 8104 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8112 */+ {.type Header, {.hdr { 3, "hex", /* C_hex = 8128 */ colon }}}, /* CENTRY "hex" hex 3 h 8136 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8144 */+ {.type Absolute, {.p 16}}, /* dd 16 8152 */+ {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8160 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8168 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8176 */+ {.type Header, {.hdr { 7, "decimal", /* C_decimal = 8192 */ colon }}}, /* CENTRY "decimal" decimal 7 h 8200 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8208 */+ {.type Absolute, {.p 10}}, /* dd 10 8216 */+ {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8224 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 8232 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8240 */+ {.type Header, {.hdr { 5, "digit", /* C_digit = 8256 */ colon }}}, /* CENTRY "digit" digit 5 ; ( c -- ) h 8264 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8272 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8280 */+ {.type Absolute, {.p 65}}, /* dd 65 8288 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8296 */- {.type Absolute, {.p 55}}, /* dd 55 8304 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8312 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8320 */- {.type FromH0, {.p L107}, .src = "dd L107"}, /* dd L107 8328 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8336 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8344 */- {.type Absolute, {.p 97}}, /* dd 97 8352 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8360 */- {.type Absolute, {.p 123}}, /* dd 123 8368 */- {.type FromH0, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8376 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8384 */- {.type FromH0, {.p L108}, .src = "dd L108"}, /* dd L108 8392 */+ {.type Absolute, {.p 91}}, /* dd 91 8304 */+ {.type FromH0, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8312 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8320 */+ {.type FromH0, {.p L106}, .src = "dd L106"}, /* dd L106 8328 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8336 */+ {.type Absolute, {.p 55}}, /* dd 55 8344 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8352 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8360 */+ {.type FromH0, {.p L107}, .src = "dd L107"}, /* dd L107 8368 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8376 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8384 */+ {.type Absolute, {.p 97}}, /* dd 97 8392 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8400 */- {.type Absolute, {.p 87}}, /* dd 87 8408 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8416 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8424 */- {.type FromH0, {.p L109}, .src = "dd L109"}, /* dd L109 8432 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8440 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8448 */- {.type Absolute, {.p 48}}, /* dd 48 8456 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8464 */- {.type Absolute, {.p 58}}, /* dd 58 8472 */- {.type FromH0, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8480 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8488 */- {.type FromH0, {.p L110}, .src = "dd L110"}, /* dd L110 8496 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8504 */- {.type Absolute, {.p 48}}, /* dd 48 8512 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8520 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8528 */- {.type FromH0, {.p L111}, .src = "dd L111"}, /* dd L111 8536 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 8544 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 8552 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8560 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8568 */- {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8576 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 8584 */- {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 8592 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8600 */- {.type FromH0, {.p L112}, .src = "dd L112"}, /* dd L112 8608 */- {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 8616 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8624 */- {.type FromH0, {.p L113}, .src = "dd L113"}, /* dd L113 8632 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 8640 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 8648 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8656 */- {.type Header, {.hdr { 6, "number", /* C_number = 8672 */ colon }}}, /* CENTRY "number" number 6 ; ( a n1 -- n2 -1 | a n1 0 ) h 8680 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a n1 -- n1 a )"}, /* dd M_xswap ; ( a n1 -- n1 a ) 8688 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n1 a -- n1 a a )"}, /* dd M_dup ; ( n1 a -- n1 a a ) 8696 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( n1 a a -- n1 a c )"}, /* dd M_cfetch ; ( n1 a a -- n1 a c ) 8704 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8712 */- {.type Absolute, {.p 45}}, /* dd 45 ; ( n1 a c -- n1 a c - ) 8720 */- {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( n1 a c -- n1 a f )"}, /* dd M_equal ; ( n1 a c -- n1 a f ) 8728 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; ( n1 a c -- n1 a )"}, /* dd M_cjump ; ( n1 a c -- n1 a ) 8736 */- {.type FromH0, {.p L115}, .src = "dd L115 ; c != -"}, /* dd L115 ; c != - 8744 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; c == - ( n1 a -- n1 a+1 )"}, /* dd C_1plus ; c == - ( n1 a -- n1 a+1 ) 8752 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 8760 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus ; c == - ( a+1 n1 -- a+1 n1-1 )"}, /* dd C_1minus ; c == - ( a+1 n1 -- a+1 n1-1 ) 8768 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8776 */- {.type Absolute, {.p -1}}, /* dd -1 ; ( a+1 n1-1 -- a+1 n1-1 -1 ) 8784 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1)"}, /* dd M_rpush ; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1) 8792 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8800 */- {.type FromH0, {.p L116}, .src = "dd L116"}, /* dd L116 8808 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( n1 a -- a n1)"}, /* dd M_xswap ; ( n1 a -- a n1) 8816 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8824 */- {.type Absolute, {.p 1}}, /* dd 1 8832 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1)"}, /* dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1) 8840 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a n1 -- a n1 n1 ) (R nr)"}, /* dd M_dup ; ( a n1 -- a n1 n1 ) (R nr) 8848 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n1 n1 -- a n1 ) (R nr -- nr n1)"}, /* dd M_rpush ; ( a n1 n1 -- a n1 ) (R nr -- nr n1) 8856 */+ {.type Absolute, {.p 123}}, /* dd 123 8408 */+ {.type FromH0, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8416 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8424 */+ {.type FromH0, {.p L108}, .src = "dd L108"}, /* dd L108 8432 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8440 */+ {.type Absolute, {.p 87}}, /* dd 87 8448 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8456 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8464 */+ {.type FromH0, {.p L109}, .src = "dd L109"}, /* dd L109 8472 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8480 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8488 */+ {.type Absolute, {.p 48}}, /* dd 48 8496 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8504 */+ {.type Absolute, {.p 58}}, /* dd 58 8512 */+ {.type FromH0, {.p C_within}, .src = "dd C_within"}, /* dd C_within 8520 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8528 */+ {.type FromH0, {.p L110}, .src = "dd L110"}, /* dd L110 8536 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8544 */+ {.type Absolute, {.p 48}}, /* dd 48 8552 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus"}, /* dd M_minus 8560 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8568 */+ {.type FromH0, {.p L111}, .src = "dd L111"}, /* dd L111 8576 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 8584 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 8592 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8600 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 8608 */+ {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8616 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 8624 */+ {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 8632 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8640 */+ {.type FromH0, {.p L112}, .src = "dd L112"}, /* dd L112 8648 */+ {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 8656 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8664 */+ {.type FromH0, {.p L113}, .src = "dd L113"}, /* dd L113 8672 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 8680 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 8688 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 8696 */+ {.type Header, {.hdr { 6, "number", /* C_number = 8712 */ colon }}}, /* CENTRY "number" number 6 ; ( a n1 -- n2 -1 | a n1 0 ) h 8720 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a n1 -- n1 a )"}, /* dd M_xswap ; ( a n1 -- n1 a ) 8728 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n1 a -- n1 a a )"}, /* dd M_dup ; ( n1 a -- n1 a a ) 8736 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( n1 a a -- n1 a c )"}, /* dd M_cfetch ; ( n1 a a -- n1 a c ) 8744 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8752 */+ {.type Absolute, {.p 45}}, /* dd 45 ; ( n1 a c -- n1 a c - ) 8760 */+ {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( n1 a c -- n1 a f )"}, /* dd M_equal ; ( n1 a c -- n1 a f ) 8768 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; ( n1 a c -- n1 a )"}, /* dd M_cjump ; ( n1 a c -- n1 a ) 8776 */+ {.type FromH0, {.p L115}, .src = "dd L115 ; c != -"}, /* dd L115 ; c != - 8784 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; c == - ( n1 a -- n1 a+1 )"}, /* dd C_1plus ; c == - ( n1 a -- n1 a+1 ) 8792 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 8800 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus ; c == - ( a+1 n1 -- a+1 n1-1 )"}, /* dd C_1minus ; c == - ( a+1 n1 -- a+1 n1-1 ) 8808 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8816 */+ {.type Absolute, {.p -1}}, /* dd -1 ; ( a+1 n1-1 -- a+1 n1-1 -1 ) 8824 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1)"}, /* dd M_rpush ; ( a+1 n1-1 -- a+1 n1-1 ) (R -- -1) 8832 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 8840 */+ {.type FromH0, {.p L116}, .src = "dd L116"}, /* dd L116 8848 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( n1 a -- a n1)"}, /* dd M_xswap ; ( n1 a -- a n1) 8856 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8864 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( a n1 -- a n1 0) (R nr n1) 8872 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a n1 0 -- a 0 n1) (R nr n1)"}, /* dd M_xswap ; ( a n1 0 -- a 0 n1) (R nr n1) 8880 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8888 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( a 0 n1 -- a 0 n1 0) (R nr n1) 8896 */- {.type FromH0, {.p M_doinit}, .src = "dd M_doinit ; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_doinit ; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8904 */- {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8912 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_fetch ; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1) 8920 */- {.type FromH0, {.p M_multiply}, .src = "dd M_multiply ; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_multiply ; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8928 */- {.type FromH0, {.p M_over}, .src = "dd M_over ; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1)"}, /* dd M_over ; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1) 8936 */- {.type FromH0, {.p M_i}, .src = "dd M_i ; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1)"}, /* dd M_i ; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1) 8944 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1)"}, /* dd M_plus ; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1) 8952 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1)"}, /* dd M_cfetch ; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1) 8960 */- {.type FromH0, {.p C_digit}, .src = "dd C_digit"}, /* dd C_digit 8968 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 8976 */- {.type FromH0, {.p L118}, .src = "dd L118"}, /* dd L118 8984 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 8992 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9000 */- {.type FromH0, {.p L119}, .src = "dd L119"}, /* dd L119 9008 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9016 */- {.type FromH0, {.p M_unloop}, .src = "dd M_unloop"}, /* dd M_unloop 9024 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9032 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9040 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9048 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 9056 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9064 */- {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 9072 */- {.type FromH0, {.p L117}, .src = "dd L117"}, /* dd L117 9080 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9088 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9096 */- {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 9104 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9112 */- {.type FromH0, {.p M_multiply}, .src = "dd M_multiply"}, /* dd M_multiply 9120 */- {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 9128 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9136 */- {.type Header, {.hdr { 5, "abort", /* C_abort = 9152 */ colon }}}, /* CENTRY "abort" abort 5 h 9160 */- {.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec"}, /* dd MV_Abortvec 9168 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9176 */- {.type FromH0, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 9184 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9192 */- {.type Header, {.hdr { 6, "source", /* C_source = 9208 */ colon }}}, /* CENTRY "source" source 6 h 9216 */- {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9224 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9232 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9240 */- {.type Header, {.hdr { 13, "current-input", /* C_current_input = 9264 */ colon }}}, /* CENTRY "current-input" current_input 13 ; ( -- c ) read the next character from the location in Sourcebuf h 9272 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9280 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9288 */- {.type FromH0, {.p C_source}, .src = "dd C_source"}, /* dd C_source 9296 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; Sourcebuf + >In"}, /* dd M_plus ; Sourcebuf + >In 9304 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 9312 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9320 */- {.type Header, {.hdr { 10, "save-input", /* C_save_input = 9344 */ colon }}}, /* CENTRY "save-input" save_input 10 h 9352 */- {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 9360 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9368 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9376 */- {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 9384 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9392 */- {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9400 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9408 */- {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 9416 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9424 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9432 */- {.type Absolute, {.p 5}}, /* dd 5 9440 */- {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs"}, /* dd MV_Ninputs 9448 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; Ninputs++"}, /* dd C_plusstore ; Ninputs++ 9456 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9464 */- {.type Header, {.hdr { 13, "default-input", /* C_default_input = 9488 */ colon }}}, /* CENTRY "default-input" default_input 13 h 9496 */- {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 9504 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9512 */- {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 9520 */- {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 9528 */- {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 9536 */- {.type FromH0, {.p M_Tib}, .src = "dd M_Tib"}, /* dd M_Tib 9544 */- {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9552 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9560 */- {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 9568 */+ {.type Absolute, {.p 1}}, /* dd 1 8872 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1)"}, /* dd M_rpush ; ( a n1 1 -- a n1 ) (R -- 1) 8880 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a n1 -- a n1 n1 ) (R nr)"}, /* dd M_dup ; ( a n1 -- a n1 n1 ) (R nr) 8888 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n1 n1 -- a n1 ) (R nr -- nr n1)"}, /* dd M_rpush ; ( a n1 n1 -- a n1 ) (R nr -- nr n1) 8896 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8904 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( a n1 -- a n1 0) (R nr n1) 8912 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a n1 0 -- a 0 n1) (R nr n1)"}, /* dd M_xswap ; ( a n1 0 -- a 0 n1) (R nr n1) 8920 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 8928 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( a 0 n1 -- a 0 n1 0) (R nr n1) 8936 */+ {.type FromH0, {.p M_doinit}, .src = "dd M_doinit ; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_doinit ; ( a 0 n1 0 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8944 */+ {.type FromH0, {.p MV_Base}, .src = "dd MV_Base"}, /* dd MV_Base 8952 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_fetch ; ( a 0 Base -- a 0 10 ) (R nr n1 -- nr n1 0 n1) 8960 */+ {.type FromH0, {.p M_multiply}, .src = "dd M_multiply ; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1)"}, /* dd M_multiply ; ( a 0 10 -- a 0 ) (R nr n1 -- nr n1 0 n1) 8968 */+ {.type FromH0, {.p M_over}, .src = "dd M_over ; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1)"}, /* dd M_over ; ( a 0 -- a 0 a) (R nr n1 -- nr n1 0 n1) 8976 */+ {.type FromH0, {.p M_i}, .src = "dd M_i ; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1)"}, /* dd M_i ; ( a 0 a -- a 0 a n1) (R nr n1 -- nr n1 0 n1) 8984 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1)"}, /* dd M_plus ; ( a 0 a n1 -- a 0 a+n1) (R nr n1 -- nr n1 0 n1) 8992 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1)"}, /* dd M_cfetch ; ( a 0 a+n1 -- a 0 c) (R nr n1 -- nr n1 0 n1) 9000 */+ {.type FromH0, {.p C_digit}, .src = "dd C_digit"}, /* dd C_digit 9008 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9016 */+ {.type FromH0, {.p L118}, .src = "dd L118"}, /* dd L118 9024 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 9032 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9040 */+ {.type FromH0, {.p L119}, .src = "dd L119"}, /* dd L119 9048 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9056 */+ {.type FromH0, {.p M_unloop}, .src = "dd M_unloop"}, /* dd M_unloop 9064 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9072 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9080 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9088 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 9096 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9104 */+ {.type FromH0, {.p M_doloop}, .src = "dd M_doloop"}, /* dd M_doloop 9112 */+ {.type FromH0, {.p L117}, .src = "dd L117"}, /* dd L117 9120 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9128 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 9136 */+ {.type FromH0, {.p C_nip}, .src = "dd C_nip"}, /* dd C_nip 9144 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 9152 */+ {.type FromH0, {.p M_multiply}, .src = "dd M_multiply"}, /* dd M_multiply 9160 */+ {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 9168 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9176 */+ {.type Header, {.hdr { 5, "abort", /* C_abort = 9192 */ colon }}}, /* CENTRY "abort" abort 5 h 9200 */+ {.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec"}, /* dd MV_Abortvec 9208 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9216 */+ {.type FromH0, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 9224 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9232 */+ {.type Header, {.hdr { 6, "source", /* C_source = 9248 */ colon }}}, /* CENTRY "source" source 6 h 9256 */+ {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9264 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9272 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9280 */+ {.type Header, {.hdr { 13, "current-input", /* C_current_input = 9304 */ colon }}}, /* CENTRY "current-input" current_input 13 ; ( -- c ) read the next character from the location in Sourcebuf h 9312 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9320 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9328 */+ {.type FromH0, {.p C_source}, .src = "dd C_source"}, /* dd C_source 9336 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; Sourcebuf + >In"}, /* dd M_plus ; Sourcebuf + >In 9344 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 9352 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9360 */+ {.type Header, {.hdr { 10, "save-input", /* C_save_input = 9384 */ colon }}}, /* CENTRY "save-input" save_input 10 h 9392 */+ {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 9400 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9408 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9416 */+ {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 9424 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9432 */+ {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9440 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9448 */+ {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 9456 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9464 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9472 */+ {.type Absolute, {.p 5}}, /* dd 5 9480 */+ {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs"}, /* dd MV_Ninputs 9488 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; Ninputs++"}, /* dd C_plusstore ; Ninputs++ 9496 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9504 */+ {.type Header, {.hdr { 13, "default-input", /* C_default_input = 9528 */ colon }}}, /* CENTRY "default-input" default_input 13 h 9536 */+ {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 9544 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9552 */+ {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 9560 */+ {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 9568 */ {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 9576 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9584 */- {.type Header, {.hdr { 13, "restore-input", /* C_restore_input = 9608 */ colon }}}, /* CENTRY "restore-input" restore_input 13 ; ( <input>|empty -- f ) h 9616 */- {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs ; if Ninputs == 0, leave 0 on the stack. Or, Ninputs--"}, /* dd MV_Ninputs ; if Ninputs == 0, leave 0 on the stack. Or, Ninputs-- 9624 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9632 */- {.type FromH0, {.p C_0neq}, .src = "dd C_0neq"}, /* dd C_0neq 9640 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9648 */- {.type FromH0, {.p L300}, .src = "dd L300"}, /* dd L300 9656 */- {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs ; there are <input>'s pending on the stack"}, /* dd MV_Ninputs ; there are <input>'s pending on the stack 9664 */+ {.type FromH0, {.p M_Tib}, .src = "dd M_Tib"}, /* dd M_Tib 9584 */+ {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9592 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9600 */+ {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 9608 */+ {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 9616 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9624 */+ {.type Header, {.hdr { 13, "restore-input", /* C_restore_input = 9648 */ colon }}}, /* CENTRY "restore-input" restore_input 13 ; ( <input>|empty -- f ) h 9656 */+ {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs ; if Ninputs == 0, leave 0 on the stack. Or, Ninputs--"}, /* dd MV_Ninputs ; if Ninputs == 0, leave 0 on the stack. Or, Ninputs-- 9664 */ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9672 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 9680 */- {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs"}, /* dd MV_Ninputs 9688 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9696 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9704 */- {.type FromH0, {.p L301}, .src = "dd L301 ; ( <input> -- <input>)"}, /* dd L301 ; ( <input> -- <input>) 9712 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9720 */- {.type Absolute, {.p 0}}, /* dd 0 9728 */- {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 9736 */- {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 9744 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9752 */- {.type Absolute, {.p 5}}, /* dd 5 9760 */- {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 9768 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9776 */- {.type FromH0, {.p L133}, .src = "dd L133"}, /* dd L133 9784 */- {.type FromH0, {.p C_default_input}, .src = "dd C_default_input"}, /* dd C_default_input 9792 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 9800 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9808 */- {.type FromH0, {.p L134}, .src = "dd L134"}, /* dd L134 9816 */- {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 9824 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9832 */- {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9840 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9848 */- {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 9856 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9864 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9872 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9880 */- {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 9888 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9896 */- {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 9904 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9912 */- {.type Header, {.hdr { 14, "?restore-input", /* C_qrestore_input = 9936 */ colon }}}, /* CENTRY "?restore-input" qrestore_input 14 ; ( <input> -- f ) h 9944 */- {.type FromH0, {.p C_restore_input}, .src = "dd C_restore_input"}, /* dd C_restore_input 9952 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 9960 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9968 */- {.type FromH0, {.p L136}, .src = "dd L136"}, /* dd L136 9976 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 9984 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9992 */- {.type FromH0, {.p L137}, .src = "dd L137"}, /* dd L137 10000 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10008 */- {.type Absolute, {.p 23}}, /* dd 23 10016 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 10024 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 10032 */- {.type FromH0, {.p C_depth}, .src = "dd C_depth"}, /* dd C_depth 10040 */- {.type FromH0, {.p C_dot}, .src = "dd C_dot"}, /* dd C_dot 10048 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 10056 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 10064 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10072 */- {.type Header, {.hdr { 10, "next-input", /* C_next_input = 10096 */ colon }}}, /* CENTRY "next-input" next_input 10 ; when >In < >Limit ( -- true c ). ( -- 0 false ) otherwise h 10104 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10112 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10120 */- {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 10128 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10136 */- {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 10144 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10152 */- {.type FromH0, {.p L139}, .src = "dd L139 ; >In >= >Limit"}, /* dd L139 ; >In >= >Limit 10160 */- {.type FromH0, {.p C_true}, .src = "dd C_true ; >In < >Limit"}, /* dd C_true ; >In < >Limit 10168 */- {.type FromH0, {.p C_current_input}, .src = "dd C_current_input ; ( -- c )"}, /* dd C_current_input ; ( -- c ) 10176 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 10184 */- {.type FromH0, {.p L140}, .src = "dd L140"}, /* dd L140 10192 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10200 */- {.type Absolute, {.p 0}}, /* dd 0 10208 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 10216 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10224 */- {.type Header, {.hdr { 5, "parse", /* C_parse = 10240 */ colon }}}, /* CENTRY "parse" parse 5 ; ( c -- a ) Place the counted string in the address in Wordbuf and return that address. c = word delimiter. h 10248 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( c -- ) (R -- c )"}, /* dd M_rpush ; ( c -- ) (R -- c ) 10256 */- {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"}, /* dd MV_Wordbuf 10264 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( -- Wordb )"}, /* dd M_fetch ; ( -- Wordb ) 10272 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( Wordb -- Wordb+1 )"}, /* dd C_1plus ; ( Wordb -- Wordb+1 ) 10280 */- {.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( Wordb+1 -- Wordb+1 f c )"}, /* dd C_next_input ; ( Wordb+1 -- Wordb+1 f c ) 10288 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( Wordb+1 f c -- Wordb+1 f cinitial ) (R c -- c )"}, /* dd M_rfetch ; ( Wordb+1 f c -- Wordb+1 f cinitial ) (R c -- c ) 10296 */- {.type FromH0, {.p C_neq}, .src = "dd C_neq ; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) )"}, /* dd C_neq ; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) ) 10304 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 10312 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10320 */- {.type FromH0, {.p L143}, .src = "dd L143 ; ( Wordb+1 ) >In >= >Limit || cinitial == cnew"}, /* dd L143 ; ( Wordb+1 ) >In >= >Limit || cinitial == cnew 10328 */- {.type FromH0, {.p C_current_input}, .src = "dd C_current_input ; ( Wordb+1 -- Wordb+1 c )"}, /* dd C_current_input ; ( Wordb+1 -- Wordb+1 c ) 10336 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 10344 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1"}, /* dd M_cstore ; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1 10352 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( Wordb+1 -- Wordb+2 )"}, /* dd C_1plus ; ( Wordb+1 -- Wordb+2 ) 10360 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10368 */- {.type Absolute, {.p 1}}, /* dd 1 10376 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10384 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; >In++"}, /* dd C_plusstore ; >In++ 10392 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 10400 */- {.type FromH0, {.p L142}, .src = "dd L142 ; ( Wordb+2 ) repeat"}, /* dd L142 ; ( Wordb+2 ) repeat 10408 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10416 */- {.type Absolute, {.p 1}}, /* dd 1 10424 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10432 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; >In++"}, /* dd C_plusstore ; >In++ 10440 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; (Wordb+1 -- Wordb+1 c) (R c -- )"}, /* dd M_rpop ; (Wordb+1 -- Wordb+1 c) (R c -- ) 10448 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; (Wordb+1 c -- Wordb+1)"}, /* dd M_drop ; (Wordb+1 c -- Wordb+1) 10456 */- {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"}, /* dd MV_Wordbuf 10464 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; (Wordb+1 -- Wordb+1 Wordb)"}, /* dd M_fetch ; (Wordb+1 -- Wordb+1 Wordb) 10472 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb)"}, /* dd M_dup ; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb) 10480 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb)"}, /* dd M_rpush ; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb) 10488 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus ; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb)"}, /* dd M_minus ; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb) 10496 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus ; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb)"}, /* dd C_1minus ; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb) 10504 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb)"}, /* dd M_rfetch ; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb) 10512 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; store the length of the string found at Wordb[0]. Counted string at Wordb now."}, /* dd M_cstore ; store the length of the string found at Wordb[0]. Counted string at Wordb now. 10520 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- Wordb) (R Wordb -- )"}, /* dd M_rpop ; ( -- Wordb) (R Wordb -- ) 10528 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10536 */- {.type Header, {.hdr { 4, "word", /* C_word = 10552 */ colon }}}, /* CENTRY "word" word 4 ; ( c -- a ) skip the c"s. Placed the counted string in a (as in Wordbuf) h 10560 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- ) (R -- c )"}, /* dd M_rpush ; ( -- ) (R -- c ) 10568 */- {.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( -- f c2 ) (R c1 -- )"}, /* dd C_next_input ; ( -- f c2 ) (R c1 -- ) 10576 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial )"}, /* dd M_rfetch ; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial ) 10584 */- {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial )"}, /* dd M_equal ; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial ) 10592 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand ; ( f f2 -- f&&f2 ) (R cinitial -- cinitial )"}, /* dd M_binand ; ( f f2 -- f&&f2 ) (R cinitial -- cinitial ) 10600 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10608 */- {.type FromH0, {.p L146}, .src = "dd L146 ; >In >= >Limit || cinitial != cnew"}, /* dd L146 ; >In >= >Limit || cinitial != cnew 10616 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal ; >In < >Limit && cinitial == cnew"}, /* dd M_literal ; >In < >Limit && cinitial == cnew 10624 */- {.type Absolute, {.p 1}}, /* dd 1 10632 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10640 */- {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; >In++"}, /* dd C_plusstore ; >In++ 10648 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump ; repeat"}, /* dd M_jump ; repeat 10656 */- {.type FromH0, {.p L145}, .src = "dd L145"}, /* dd L145 10664 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- cinitial ) Sourcebuf+>In = location of first non-matching character"}, /* dd M_rpop ; ( -- cinitial ) Sourcebuf+>In = location of first non-matching character 10672 */- {.type FromH0, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 10680 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10688 */- {.type Header, {.hdr { 6, "accept", /* C_accept = 10704 */ colon }}}, /* CENTRY "accept" accept 6 ; ( a n -- n ) get line or n chars or EOF from input and store at a h 10712 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( n a -- )"}, /* dd M_xswap ; ( n a -- ) 10720 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n a a -- )"}, /* dd M_dup ; ( n a a -- ) 10728 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 10736 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( n -- ) (R a a -- )"}, /* dd M_rpush ; ( n -- ) (R a a -- ) 10744 */- {.type FromH0, {.p C_qdup}, .src = "dd C_qdup ; ( n n -- ) (R a a -- )"}, /* dd C_qdup ; ( n n -- ) (R a a -- ) 10752 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; (if)"}, /* dd M_cjump ; (if) 10760 */- {.type FromH0, {.p L149}, .src = "dd L149 ; n == 0"}, /* dd L149 ; n == 0 10768 */- {.type FromH0, {.p C_key}, .src = "dd C_key ; n > 0 ( n -- n c )"}, /* dd C_key ; n > 0 ( n -- n c ) 10776 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( -- n c c )"}, /* dd M_dup ; ( -- n c c ) 10784 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10792 */- {.type Absolute, {.p 10}}, /* dd 10 ; ( -- n c c 10 ) 10800 */- {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( n c c 10 -- n c f ) checking for newline"}, /* dd M_equal ; ( n c c 10 -- n c f ) checking for newline 10808 */- {.type FromH0, {.p M_over}, .src = "dd M_over ; ( -- n c f c )"}, /* dd M_over ; ( -- n c f c ) 10816 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10824 */- {.type Absolute, {.p -1}}, /* dd -1 ; ( -- n c f c -1 ) 10832 */- {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( -- n c f1 f2 )"}, /* dd M_equal ; ( -- n c f1 f2 ) 10840 */- {.type FromH0, {.p M_binor}, .src = "dd M_binor ; ( -- n c f )"}, /* dd M_binor ; ( -- n c f ) 10848 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10856 */- {.type FromH0, {.p L150}, .src = "dd L150"}, /* dd L150 10864 */- {.type FromH0, {.p C_2drop}, .src = "dd C_2drop ; n == -1 || n == 10 ( -- )"}, /* dd C_2drop ; n == -1 || n == 10 ( -- ) 10872 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 10880 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 10888 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( -- a2-a1 )"}, /* dd M_minus ; ( -- a2-a1 ) 10896 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon ; ( -- n ) (R -- )"}, /* dd M_exitcolon ; ( -- n ) (R -- ) 10904 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( n c a -- ) (R a a -- )"}, /* dd M_rfetch ; ( n c a -- ) (R a a -- ) 10912 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; store the character at a"}, /* dd M_cstore ; store the character at a 10920 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( n a -- ) (R a -- )"}, /* dd M_rpop ; ( n a -- ) (R a -- ) 10928 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 10936 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address"}, /* dd M_rpush ; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address 10944 */- {.type FromH0, {.p C_1minus}, .src = "dd C_1minus ; ( n -- n-1 )"}, /* dd C_1minus ; ( n -- n-1 ) 10952 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 10960 */- {.type FromH0, {.p L148}, .src = "dd L148 ; loop again for the next character"}, /* dd L148 ; loop again for the next character 10968 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- a2 ) (R a1 a2 -- a1 )"}, /* dd M_rpop ; ( -- a2 ) (R a1 a2 -- a1 ) 10976 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( a2 a1 -- ) (R a1 -- )"}, /* dd M_rpop ; ( a2 a1 -- ) (R a1 -- ) 10984 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( a2 a1 -- a2-a1 )"}, /* dd M_minus ; ( a2 a1 -- a2-a1 ) 10992 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11000 */- {.type Header, {.hdr { 5, "query", /* C_query = 11016 */ colon }}}, /* CENTRY "query" query 5 ; read from input stream into the Text Input Buffer h 11024 */- {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11032 */- {.type FromH0, {.p C_off}, .src = "dd C_off ; clear EOF flag"}, /* dd C_off ; clear EOF flag 11040 */- {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top"}, /* dd M_Tib ; constant puts address of tibuffer on the top 11048 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11056 */- {.type Absolute, {.p 4096}}, /* dd 4096 ; ( tibuffer -- tibuffer 4096 ) 11064 */- {.type FromH0, {.p C_accept}, .src = "dd C_accept ; ( tibuffer 4096 -- n )"}, /* dd C_accept ; ( tibuffer 4096 -- n ) 11072 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 11080 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq ; ( n n -- n f )"}, /* dd C_0eq ; ( n n -- n f ) 11088 */- {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11096 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11104 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand ; n == 0 && EOF"}, /* dd M_binand ; n == 0 && EOF 11112 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11120 */- {.type FromH0, {.p L152}, .src = "dd L152 ; false condition"}, /* dd L152 ; false condition 11128 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; n == 0 && EOF ( n -- )"}, /* dd M_drop ; n == 0 && EOF ( n -- ) 11136 */- {.type FromH0, {.p C_qrestore_input}, .src = "dd C_qrestore_input"}, /* dd C_qrestore_input 11144 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11152 */- {.type FromH0, {.p L153}, .src = "dd L153"}, /* dd L153 11160 */- {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 11168 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; number of characters to read >Limit = n"}, /* dd M_store ; number of characters to read >Limit = n 11176 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 11184 */- {.type FromH0, {.p C_off}, .src = "dd C_off ; start from 0 >In = 0"}, /* dd C_off ; start from 0 >In = 0 11192 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11200 */- {.type Header, {.hdr { 6, "refill", /* C_refill = 11216 */ colon }}}, /* CENTRY "refill" refill 6 h 11224 */- {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 11232 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11240 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11248 */- {.type FromH0, {.p L155}, .src = "dd L155"}, /* dd L155 11256 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 11264 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11272 */- {.type FromH0, {.p L156}, .src = "dd L156"}, /* dd L156 11280 */- {.type FromH0, {.p C_query}, .src = "dd C_query"}, /* dd C_query 11288 */- {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 11296 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11304 */- {.type Header, {.hdr { 8, "findname", /* C_findname = 11328 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 11336 */- {.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 11344 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11352 */- {.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"}, /* dd M_Dtop 11360 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; get latest dictionary link"}, /* dd M_fetch ; get latest dictionary link 11368 */- {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 11376 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11384 */- {.type FromH0, {.p L159}, .src = "dd L159 ; seached until the first dictionary entry get out"}, /* dd L159 ; seached until the first dictionary entry get out 11392 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a -- a a )"}, /* dd M_dup ; ( a -- a a ) 11400 */- {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus ; ( a a -- a a+8) lenth + initial name address"}, /* dd C_cellplus ; ( a a -- a a+8) lenth + initial name address 11408 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a+8 -- a immediate|hidden|len) length + initial name"}, /* dd M_cfetch ; ( a a+8 -- a immediate|hidden|len) length + initial name 11416 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11424 */- {.type Absolute, {.p 64}}, /* dd 64 ; check the reveal'ed flag 1=hidden, 0=reveal 11432 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand ; if hidden, goto L161 else L160"}, /* dd M_binand ; if hidden, goto L161 else L160 11440 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11448 */- {.type FromH0, {.p L160}, .src = "dd L160"}, /* dd L160 11456 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; smudge'd dictionary entry, get the previous entry"}, /* dd M_fetch ; smudge'd dictionary entry, get the previous entry 11464 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11472 */- {.type FromH0, {.p L161}, .src = "dd L161"}, /* dd L161 11480 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a1 -- a1 a1)"}, /* dd M_dup ; ( a1 -- a1 a1) 11488 */- {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus ; ( a1 a1 -- a1 a1+8)"}, /* dd C_cellplus ; ( a1 a1 -- a1 a1+8) 11496 */- {.type FromH0, {.p C_count}, .src = "dd C_count ; ( a1 a1+8 -- a1 a1+8+1 n )"}, /* dd C_count ; ( a1 a1+8 -- a1 a1+8+1 n ) 11504 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11512 */- {.type Absolute, {.p 63}}, /* dd 63 11520 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand ; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len )"}, /* dd M_binand ; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len ) 11528 */- {.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 11536 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11544 */- {.type FromH0, {.p C_count}, .src = "dd C_count ; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 )"}, /* dd C_count ; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 ) 11552 */- {.type FromH0, {.p C_compare}, .src = "dd C_compare ; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name"}, /* dd C_compare ; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name 11560 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq ; found a match?"}, /* dd C_0eq ; found a match? 11568 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11576 */- {.type FromH0, {.p L162}, .src = "dd L162 ; no match"}, /* dd L162 ; no match 11584 */- {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus ; match found"}, /* dd C_cellplus ; match found 11592 */- {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 11600 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11608 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11616 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11624 */- {.type FromH0, {.p L158}, .src = "dd L158"}, /* dd L158 11632 */- {.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 11640 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11648 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 11656 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11664 */- {.type Header, {.hdr { 4, "find", /* C_find = 11680 */ colon }}}, /* CENTRY "find" find 4 ; ( a1 -- a2 f )? h 11688 */- {.type FromH0, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 11696 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11704 */- {.type FromH0, {.p L164}, .src = "dd L164"}, /* dd L164 11712 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 11720 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 11728 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 11736 */- {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 11744 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11752 */- {.type Absolute, {.p 63}}, /* dd 63 11760 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 11768 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11776 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 11784 */- {.type FromH0, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 11792 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 11800 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11808 */- {.type Absolute, {.p 128}}, /* dd 128 11816 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 11824 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11832 */- {.type FromH0, {.p L165}, .src = "dd L165"}, /* dd L165 11840 */+ {.type FromH0, {.p C_0neq}, .src = "dd C_0neq"}, /* dd C_0neq 9680 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9688 */+ {.type FromH0, {.p L300}, .src = "dd L300"}, /* dd L300 9696 */+ {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs ; there are <input>'s pending on the stack"}, /* dd MV_Ninputs ; there are <input>'s pending on the stack 9704 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 9712 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus"}, /* dd C_1minus 9720 */+ {.type FromH0, {.p MV_Ninputs}, .src = "dd MV_Ninputs"}, /* dd MV_Ninputs 9728 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9736 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9744 */+ {.type FromH0, {.p L301}, .src = "dd L301 ; ( <input> -- <input>)"}, /* dd L301 ; ( <input> -- <input>) 9752 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9760 */+ {.type Absolute, {.p 0}}, /* dd 0 9768 */+ {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 9776 */+ {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 9784 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 9792 */+ {.type Absolute, {.p 5}}, /* dd 5 9800 */+ {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 9808 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 9816 */+ {.type FromH0, {.p L133}, .src = "dd L133"}, /* dd L133 9824 */+ {.type FromH0, {.p C_default_input}, .src = "dd C_default_input"}, /* dd C_default_input 9832 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 9840 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 9848 */+ {.type FromH0, {.p L134}, .src = "dd L134"}, /* dd L134 9856 */+ {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 9864 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9872 */+ {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf"}, /* dd MV_Sourcebuf 9880 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9888 */+ {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 9896 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9904 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 9912 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9920 */+ {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 9928 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 9936 */+ {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 9944 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 9952 */+ {.type Header, {.hdr { 14, "?restore-input", /* C_qrestore_input = 9976 */ colon }}}, /* CENTRY "?restore-input" qrestore_input 14 ; ( <input> -- f ) h 9984 */+ {.type FromH0, {.p C_restore_input}, .src = "dd C_restore_input"}, /* dd C_restore_input 9992 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 10000 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10008 */+ {.type FromH0, {.p L136}, .src = "dd L136"}, /* dd L136 10016 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 10024 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10032 */+ {.type FromH0, {.p L137}, .src = "dd L137"}, /* dd L137 10040 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10048 */+ {.type Absolute, {.p 23}}, /* dd 23 10056 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 10064 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 10072 */+ {.type FromH0, {.p C_depth}, .src = "dd C_depth"}, /* dd C_depth 10080 */+ {.type FromH0, {.p C_dot}, .src = "dd C_dot"}, /* dd C_dot 10088 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 10096 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 10104 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10112 */+ {.type Header, {.hdr { 10, "next-input", /* C_next_input = 10136 */ colon }}}, /* CENTRY "next-input" next_input 10 ; when >In < >Limit ( -- true c ). ( -- 0 false ) otherwise h 10144 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10152 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10160 */+ {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 10168 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 10176 */+ {.type FromH0, {.p M_less}, .src = "dd M_less"}, /* dd M_less 10184 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10192 */+ {.type FromH0, {.p L139}, .src = "dd L139 ; >In >= >Limit"}, /* dd L139 ; >In >= >Limit 10200 */+ {.type FromH0, {.p C_true}, .src = "dd C_true ; >In < >Limit"}, /* dd C_true ; >In < >Limit 10208 */+ {.type FromH0, {.p C_current_input}, .src = "dd C_current_input ; ( -- c )"}, /* dd C_current_input ; ( -- c ) 10216 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 10224 */+ {.type FromH0, {.p L140}, .src = "dd L140"}, /* dd L140 10232 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10240 */+ {.type Absolute, {.p 0}}, /* dd 0 10248 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 10256 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10264 */+ {.type Header, {.hdr { 5, "parse", /* C_parse = 10280 */ colon }}}, /* CENTRY "parse" parse 5 ; ( c -- a ) Place the counted string in the address in Wordbuf and return that address. c = word delimiter. h 10288 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( c -- ) (R -- c )"}, /* dd M_rpush ; ( c -- ) (R -- c ) 10296 */+ {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"}, /* dd MV_Wordbuf 10304 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( -- Wordb )"}, /* dd M_fetch ; ( -- Wordb ) 10312 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( Wordb -- Wordb+1 )"}, /* dd C_1plus ; ( Wordb -- Wordb+1 ) 10320 */+ {.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( Wordb+1 -- Wordb+1 f c )"}, /* dd C_next_input ; ( Wordb+1 -- Wordb+1 f c ) 10328 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( Wordb+1 f c -- Wordb+1 f cinitial ) (R c -- c )"}, /* dd M_rfetch ; ( Wordb+1 f c -- Wordb+1 f cinitial ) (R c -- c ) 10336 */+ {.type FromH0, {.p C_neq}, .src = "dd C_neq ; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) )"}, /* dd C_neq ; ( Wordb+1 f c cinitial -- Wordb+1 f f(c!=cinitial) ) 10344 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 10352 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10360 */+ {.type FromH0, {.p L143}, .src = "dd L143 ; ( Wordb+1 ) >In >= >Limit || cinitial == cnew"}, /* dd L143 ; ( Wordb+1 ) >In >= >Limit || cinitial == cnew 10368 */+ {.type FromH0, {.p C_current_input}, .src = "dd C_current_input ; ( Wordb+1 -- Wordb+1 c )"}, /* dd C_current_input ; ( Wordb+1 -- Wordb+1 c ) 10376 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 10384 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1"}, /* dd M_cstore ; ( Wordb+1 c Wordb+1 -- Wordb+1 ) store c at Wordb+1 10392 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( Wordb+1 -- Wordb+2 )"}, /* dd C_1plus ; ( Wordb+1 -- Wordb+2 ) 10400 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10408 */+ {.type Absolute, {.p 1}}, /* dd 1 10416 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10424 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; >In++"}, /* dd C_plusstore ; >In++ 10432 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 10440 */+ {.type FromH0, {.p L142}, .src = "dd L142 ; ( Wordb+2 ) repeat"}, /* dd L142 ; ( Wordb+2 ) repeat 10448 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10456 */+ {.type Absolute, {.p 1}}, /* dd 1 10464 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10472 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; >In++"}, /* dd C_plusstore ; >In++ 10480 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; (Wordb+1 -- Wordb+1 c) (R c -- )"}, /* dd M_rpop ; (Wordb+1 -- Wordb+1 c) (R c -- ) 10488 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; (Wordb+1 c -- Wordb+1)"}, /* dd M_drop ; (Wordb+1 c -- Wordb+1) 10496 */+ {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf"}, /* dd MV_Wordbuf 10504 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; (Wordb+1 -- Wordb+1 Wordb)"}, /* dd M_fetch ; (Wordb+1 -- Wordb+1 Wordb) 10512 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb)"}, /* dd M_dup ; (Wordb+1 Wordb -- Wordb+1 Wordb Wordb) 10520 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb)"}, /* dd M_rpush ; (Wordb+1 Wordb Wordb -- Wordb+1 Wordb) (R -- Wordb) 10528 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus ; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb)"}, /* dd M_minus ; (Wordb+1 Wordb -- Wordb+1-Wordb) (R -- Wordb) 10536 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus ; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb)"}, /* dd C_1minus ; (Wordb+1-Wordb -- Wordb+1-Wordb-1) (R -- Wordb) 10544 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb)"}, /* dd M_rfetch ; (Wordb+1-Wordb-1 Wordb -- Wordb+1-Wordb-1 Wordb) (R -- Wordb) 10552 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; store the length of the string found at Wordb[0]. Counted string at Wordb now."}, /* dd M_cstore ; store the length of the string found at Wordb[0]. Counted string at Wordb now. 10560 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- Wordb) (R Wordb -- )"}, /* dd M_rpop ; ( -- Wordb) (R Wordb -- ) 10568 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10576 */+ {.type Header, {.hdr { 4, "word", /* C_word = 10592 */ colon }}}, /* CENTRY "word" word 4 ; ( c -- a ) skip the c"s. Placed the counted string in a (as in Wordbuf) h 10600 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- ) (R -- c )"}, /* dd M_rpush ; ( -- ) (R -- c ) 10608 */+ {.type FromH0, {.p C_next_input}, .src = "dd C_next_input ; ( -- f c2 ) (R c1 -- )"}, /* dd C_next_input ; ( -- f c2 ) (R c1 -- ) 10616 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial )"}, /* dd M_rfetch ; ( f cnew -- f cnew cinitial ) (R cinitial -- cinitial ) 10624 */+ {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial )"}, /* dd M_equal ; ( f cnew cinitial -- f f(cnew==cinitial) ) (R cinitial -- cinitial ) 10632 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand ; ( f f2 -- f&&f2 ) (R cinitial -- cinitial )"}, /* dd M_binand ; ( f f2 -- f&&f2 ) (R cinitial -- cinitial ) 10640 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10648 */+ {.type FromH0, {.p L146}, .src = "dd L146 ; >In >= >Limit || cinitial != cnew"}, /* dd L146 ; >In >= >Limit || cinitial != cnew 10656 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal ; >In < >Limit && cinitial == cnew"}, /* dd M_literal ; >In < >Limit && cinitial == cnew 10664 */+ {.type Absolute, {.p 1}}, /* dd 1 10672 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 10680 */+ {.type FromH0, {.p C_plusstore}, .src = "dd C_plusstore ; >In++"}, /* dd C_plusstore ; >In++ 10688 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump ; repeat"}, /* dd M_jump ; repeat 10696 */+ {.type FromH0, {.p L145}, .src = "dd L145"}, /* dd L145 10704 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- cinitial ) Sourcebuf+>In = location of first non-matching character"}, /* dd M_rpop ; ( -- cinitial ) Sourcebuf+>In = location of first non-matching character 10712 */+ {.type FromH0, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 10720 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 10728 */+ {.type Header, {.hdr { 6, "accept", /* C_accept = 10744 */ colon }}}, /* CENTRY "accept" accept 6 ; ( a n -- n ) get line or n chars or EOF from input and store at a h 10752 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( n a -- )"}, /* dd M_xswap ; ( n a -- ) 10760 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n a a -- )"}, /* dd M_dup ; ( n a a -- ) 10768 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 10776 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( n -- ) (R a a -- )"}, /* dd M_rpush ; ( n -- ) (R a a -- ) 10784 */+ {.type FromH0, {.p C_qdup}, .src = "dd C_qdup ; ( n n -- ) (R a a -- )"}, /* dd C_qdup ; ( n n -- ) (R a a -- ) 10792 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump ; (if)"}, /* dd M_cjump ; (if) 10800 */+ {.type FromH0, {.p L149}, .src = "dd L149 ; n == 0"}, /* dd L149 ; n == 0 10808 */+ {.type FromH0, {.p C_key}, .src = "dd C_key ; n > 0 ( n -- n c )"}, /* dd C_key ; n > 0 ( n -- n c ) 10816 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( -- n c c )"}, /* dd M_dup ; ( -- n c c ) 10824 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10832 */+ {.type Absolute, {.p 10}}, /* dd 10 ; ( -- n c c 10 ) 10840 */+ {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( n c c 10 -- n c f ) checking for newline"}, /* dd M_equal ; ( n c c 10 -- n c f ) checking for newline 10848 */+ {.type FromH0, {.p M_over}, .src = "dd M_over ; ( -- n c f c )"}, /* dd M_over ; ( -- n c f c ) 10856 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 10864 */+ {.type Absolute, {.p -1}}, /* dd -1 ; ( -- n c f c -1 ) 10872 */+ {.type FromH0, {.p M_equal}, .src = "dd M_equal ; ( -- n c f1 f2 )"}, /* dd M_equal ; ( -- n c f1 f2 ) 10880 */+ {.type FromH0, {.p M_binor}, .src = "dd M_binor ; ( -- n c f )"}, /* dd M_binor ; ( -- n c f ) 10888 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 10896 */+ {.type FromH0, {.p L150}, .src = "dd L150"}, /* dd L150 10904 */+ {.type FromH0, {.p C_2drop}, .src = "dd C_2drop ; n == -1 || n == 10 ( -- )"}, /* dd C_2drop ; n == -1 || n == 10 ( -- ) 10912 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 10920 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 10928 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( -- a2-a1 )"}, /* dd M_minus ; ( -- a2-a1 ) 10936 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon ; ( -- n ) (R -- )"}, /* dd M_exitcolon ; ( -- n ) (R -- ) 10944 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( n c a -- ) (R a a -- )"}, /* dd M_rfetch ; ( n c a -- ) (R a a -- ) 10952 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; store the character at a"}, /* dd M_cstore ; store the character at a 10960 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( n a -- ) (R a -- )"}, /* dd M_rpop ; ( n a -- ) (R a -- ) 10968 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 10976 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address"}, /* dd M_rpush ; ( n -- ) (R a1 -- a1 a2 ) a1 = begin address a2 = current address 10984 */+ {.type FromH0, {.p C_1minus}, .src = "dd C_1minus ; ( n -- n-1 )"}, /* dd C_1minus ; ( n -- n-1 ) 10992 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11000 */+ {.type FromH0, {.p L148}, .src = "dd L148 ; loop again for the next character"}, /* dd L148 ; loop again for the next character 11008 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- a2 ) (R a1 a2 -- a1 )"}, /* dd M_rpop ; ( -- a2 ) (R a1 a2 -- a1 ) 11016 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( a2 a1 -- ) (R a1 -- )"}, /* dd M_rpop ; ( a2 a1 -- ) (R a1 -- ) 11024 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( a2 a1 -- a2-a1 )"}, /* dd M_minus ; ( a2 a1 -- a2-a1 ) 11032 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11040 */+ {.type Header, {.hdr { 5, "query", /* C_query = 11056 */ colon }}}, /* CENTRY "query" query 5 ; read from input stream into the Text Input Buffer h 11064 */+ {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11072 */+ {.type FromH0, {.p C_off}, .src = "dd C_off ; clear EOF flag"}, /* dd C_off ; clear EOF flag 11080 */+ {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top"}, /* dd M_Tib ; constant puts address of tibuffer on the top 11088 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11096 */+ {.type Absolute, {.p 4096}}, /* dd 4096 ; ( tibuffer -- tibuffer 4096 ) 11104 */+ {.type FromH0, {.p C_accept}, .src = "dd C_accept ; ( tibuffer 4096 -- n )"}, /* dd C_accept ; ( tibuffer 4096 -- n ) 11112 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( n -- n n )"}, /* dd M_dup ; ( n -- n n ) 11120 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq ; ( n n -- n f )"}, /* dd C_0eq ; ( n n -- n f ) 11128 */+ {.type FromH0, {.p MV_Eof}, .src = "dd MV_Eof"}, /* dd MV_Eof 11136 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11144 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand ; n == 0 && EOF"}, /* dd M_binand ; n == 0 && EOF 11152 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11160 */+ {.type FromH0, {.p L152}, .src = "dd L152 ; false condition"}, /* dd L152 ; false condition 11168 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; n == 0 && EOF ( n -- )"}, /* dd M_drop ; n == 0 && EOF ( n -- ) 11176 */+ {.type FromH0, {.p C_qrestore_input}, .src = "dd C_qrestore_input"}, /* dd C_qrestore_input 11184 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11192 */+ {.type FromH0, {.p L153}, .src = "dd L153"}, /* dd L153 11200 */+ {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 11208 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; number of characters to read >Limit = n"}, /* dd M_store ; number of characters to read >Limit = n 11216 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 11224 */+ {.type FromH0, {.p C_off}, .src = "dd C_off ; start from 0 >In = 0"}, /* dd C_off ; start from 0 >In = 0 11232 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11240 */+ {.type Header, {.hdr { 6, "refill", /* C_refill = 11256 */ colon }}}, /* CENTRY "refill" refill 6 h 11264 */+ {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 11272 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11280 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11288 */+ {.type FromH0, {.p L155}, .src = "dd L155"}, /* dd L155 11296 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 11304 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11312 */+ {.type FromH0, {.p L156}, .src = "dd L156"}, /* dd L156 11320 */+ {.type FromH0, {.p C_query}, .src = "dd C_query"}, /* dd C_query 11328 */+ {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 11336 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11344 */+ {.type Header, {.hdr { 8, "findname", /* C_findname = 11368 */ colon }}}, /* CENTRY "findname" findname 8 ; ( a1 -- a2 f ) ; loop through the dictionary names h 11376 */+ {.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 11384 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 11392 */+ {.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"}, /* dd M_Dtop 11400 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; get latest dictionary link"}, /* dd M_fetch ; get latest dictionary link 11408 */+ {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 11416 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11424 */+ {.type FromH0, {.p L159}, .src = "dd L159 ; seached until the first dictionary entry get out"}, /* dd L159 ; seached until the first dictionary entry get out 11432 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a -- a a )"}, /* dd M_dup ; ( a -- a a ) 11440 */+ {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus ; ( a a -- a a+8) lenth + initial name address"}, /* dd C_cellplus ; ( a a -- a a+8) lenth + initial name address 11448 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a+8 -- a immediate|hidden|len) length + initial name"}, /* dd M_cfetch ; ( a a+8 -- a immediate|hidden|len) length + initial name 11456 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11464 */+ {.type Absolute, {.p 64}}, /* dd 64 ; check the reveal'ed flag 1=hidden, 0=reveal 11472 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand ; if hidden, goto L161 else L160"}, /* dd M_binand ; if hidden, goto L161 else L160 11480 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11488 */+ {.type FromH0, {.p L160}, .src = "dd L160"}, /* dd L160 11496 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; smudge'd dictionary entry, get the previous entry"}, /* dd M_fetch ; smudge'd dictionary entry, get the previous entry 11504 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11512 */+ {.type FromH0, {.p L161}, .src = "dd L161"}, /* dd L161 11520 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a1 -- a1 a1)"}, /* dd M_dup ; ( a1 -- a1 a1) 11528 */+ {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus ; ( a1 a1 -- a1 a1+8)"}, /* dd C_cellplus ; ( a1 a1 -- a1 a1+8) 11536 */+ {.type FromH0, {.p C_count}, .src = "dd C_count ; ( a1 a1+8 -- a1 a1+8+1 n )"}, /* dd C_count ; ( a1 a1+8 -- a1 a1+8+1 n ) 11544 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11552 */+ {.type Absolute, {.p 63}}, /* dd 63 11560 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand ; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len )"}, /* dd M_binand ; ( a1 a1+8+1 n 63 -- a1 a1+8+1 n&63=len ) 11568 */+ {.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 11576 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11584 */+ {.type FromH0, {.p C_count}, .src = "dd C_count ; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 )"}, /* dd C_count ; ( a1 a1+8+1 len=n&63 a2 -- a1 a1+8+1 n&63 a2+1 n2 ) 11592 */+ {.type FromH0, {.p C_compare}, .src = "dd C_compare ; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name"}, /* dd C_compare ; ( a1 a1+8+1 len=n&63 a2+1 n2 -- a1 f ) compare dictionary entry with name 11600 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq ; found a match?"}, /* dd C_0eq ; found a match? 11608 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11616 */+ {.type FromH0, {.p L162}, .src = "dd L162 ; no match"}, /* dd L162 ; no match 11624 */+ {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus ; match found"}, /* dd C_cellplus ; match found 11632 */+ {.type FromH0, {.p C_true}, .src = "dd C_true"}, /* dd C_true 11640 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11648 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11656 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11664 */+ {.type FromH0, {.p L158}, .src = "dd L158"}, /* dd L158 11672 */+ {.type FromH0, {.p MV_Findadr}, .src = "dd MV_Findadr"}, /* dd MV_Findadr 11680 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 11688 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 11696 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11704 */+ {.type Header, {.hdr { 4, "find", /* C_find = 11720 */ colon }}}, /* CENTRY "find" find 4 ; ( a1 -- a2 f )? h 11728 */+ {.type FromH0, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 11736 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11744 */+ {.type FromH0, {.p L164}, .src = "dd L164"}, /* dd L164 11752 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 11760 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 11768 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 11776 */+ {.type FromH0, {.p M_over}, .src = "dd M_over"}, /* dd M_over 11784 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11792 */+ {.type Absolute, {.p 63}}, /* dd 63 11800 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 11808 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 11816 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 11824 */+ {.type FromH0, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 11832 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 11840 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11848 */- {.type Absolute, {.p 1}}, /* dd 1 11856 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11864 */- {.type FromH0, {.p L166}, .src = "dd L166"}, /* dd L166 11872 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11880 */- {.type Absolute, {.p -1}}, /* dd -1 11888 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11896 */+ {.type Absolute, {.p 128}}, /* dd 128 11856 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 11864 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11872 */+ {.type FromH0, {.p L165}, .src = "dd L165"}, /* dd L165 11880 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11888 */+ {.type Absolute, {.p 1}}, /* dd 1 11896 */ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11904 */- {.type FromH0, {.p L167}, .src = "dd L167"}, /* dd L167 11912 */- {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 11920 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11928 */- {.type Header, {.hdr { 1, "'", /* C_single_quote = 11944 */ colon }}}, /* CENTRY "'" single_quote 1 h 11952 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 11960 */- {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 11968 */- {.type FromH0, {.p C_find}, .src = "dd C_find"}, /* dd C_find 11976 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 11984 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 11992 */- {.type FromH0, {.p L169}, .src = "dd L169"}, /* dd L169 12000 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12008 */- {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12016 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12024 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12032 */- {.type FromH0, {.p L170}, .src = "dd L170"}, /* dd L170 12040 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12048 */- {.type Absolute, {.p 3}}, /* dd 3 12056 */+ {.type FromH0, {.p L166}, .src = "dd L166"}, /* dd L166 11912 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 11920 */+ {.type Absolute, {.p -1}}, /* dd -1 11928 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11936 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 11944 */+ {.type FromH0, {.p L167}, .src = "dd L167"}, /* dd L167 11952 */+ {.type FromH0, {.p C_false}, .src = "dd C_false"}, /* dd C_false 11960 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 11968 */+ {.type Header, {.hdr { 1, "'", /* C_single_quote = 11984 */ colon }}}, /* CENTRY "'" single_quote 1 h 11992 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 12000 */+ {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 12008 */+ {.type FromH0, {.p C_find}, .src = "dd C_find"}, /* dd C_find 12016 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 12024 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12032 */+ {.type FromH0, {.p L169}, .src = "dd L169"}, /* dd L169 12040 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12048 */+ {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12056 */ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12064 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12072 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12080 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12088 */- {.type Header, {.hdr { 6, "?stack", /* C_qstack = 12104 */ colon }}}, /* CENTRY "?stack" qstack 6 h 12112 */- {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 12120 */- {.type FromH0, {.p M_S0}, .src = "dd M_S0"}, /* dd M_S0 12128 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 12136 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12144 */- {.type FromH0, {.p L172}, .src = "dd L172"}, /* dd L172 12152 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12160 */- {.type FromH0, {.p L173}, .src = "dd L173"}, /* dd L173 12168 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12176 */- {.type Absolute, {.p 16}}, /* dd 16 12184 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12192 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12200 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12208 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12216 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; debug code to show the word found"}, /* dd M_dup ; debug code to show the word found 12224 */- {.type FromH0, {.p C_count}, .src = "dd C_count ; ( -- a n)"}, /* dd C_count ; ( -- a n) 12232 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( -- n a)"}, /* dd M_xswap ; ( -- n a) 12240 */- {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 12248 */- {.type FromH0, {.p M_fswrite}, .src = "dd M_fswrite"}, /* dd M_fswrite 12256 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 12264 */- {.type Header, {.hdr { 9, "interpret", /* C_interpret = 12288 */ colon }}}, /* CENTRY "interpret" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set h 12296 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 12304 */- {.type FromH0, {.p C_word}, .src = "dd C_word ; ( bl -- a ) a = address of counted string"}, /* dd C_word ; ( bl -- a ) a = address of counted string 12312 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12320 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 12328 */- {.type FromH0, {.p C_0neq}, .src = "dd C_0neq"}, /* dd C_0neq 12336 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12344 */- {.type FromH0, {.p L176}, .src = "dd L176 ; count at a = 0"}, /* dd L176 ; count at a = 0 12352 */- {.type FromH0, {.p C_find}, .src = "dd C_find ; ( a -- a1 f ) a = address of counted string"}, /* dd C_find ; ( a -- a1 f ) a = address of counted string 12360 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12368 */- {.type FromH0, {.p L177}, .src = "dd L177"}, /* dd L177 12376 */- {.type FromH0, {.p M_execute}, .src = "dd M_execute ; found in dictionary, execute"}, /* dd M_execute ; found in dictionary, execute 12384 */- {.type FromH0, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 12392 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 12400 */- {.type FromH0, {.p L178}, .src = "dd L178"}, /* dd L178 12408 */- {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12416 */- {.type FromH0, {.p C_number}, .src = "dd C_number"}, /* dd C_number 12424 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 12432 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12440 */- {.type FromH0, {.p L179}, .src = "dd L179"}, /* dd L179 12448 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12456 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12464 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12472 */- {.type FromH0, {.p L180}, .src = "dd L180 ; error I?"}, /* dd L180 ; error I? 12480 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12488 */- {.type Absolute, {.p 3}}, /* dd 3 12496 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12504 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12512 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12520 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 12528 */- {.type FromH0, {.p L175}, .src = "dd L175"}, /* dd L175 12536 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; count at a = 0 ( a -- )"}, /* dd M_drop ; count at a = 0 ( a -- ) 12544 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12552 */- {.type Header, {.hdr { 6, "create", /* C_create = 12568 */ colon }}}, /* CENTRY "create" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa) h 12576 */- {.type FromH0, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 12584 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( -- here )"}, /* dd C_here ; ( -- here ) 12592 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- ) (R -- linkaddr )"}, /* dd M_rpush ; ( -- ) (R -- linkaddr ) 12600 */- {.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop ; ( -- Dtop ) (R -- linkaddr )"}, /* dd M_Dtop ; ( -- Dtop ) (R -- linkaddr ) 12608 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr )"}, /* dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr ) 12616 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; ( dtop -- ) (R -- linkaddr )"}, /* dd C_comma ; ( dtop -- ) (R -- linkaddr ) 12624 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 12632 */- {.type FromH0, {.p C_word}, .src = "dd C_word ; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf)"}, /* dd C_word ; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf) 12640 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a -- a a ) (R -- linkaddr )"}, /* dd M_dup ; ( a -- a a ) (R -- linkaddr ) 12648 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a -- a len ) (R -- linkaddr )"}, /* dd M_cfetch ; ( a a -- a len ) (R -- linkaddr ) 12656 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( a len -- a len here ) (R -- linkaddr )"}, /* dd C_here ; ( a len -- a len here ) (R -- linkaddr ) 12664 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a len here -- a here len ) (R -- linkaddr )"}, /* dd M_xswap ; ( a len here -- a here len ) (R -- linkaddr ) 12672 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte"}, /* dd C_1plus ; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte 12680 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr )"}, /* dd M_dup ; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr ) 12688 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 )"}, /* dd M_rpush ; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 ) 12696 */- {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; ( a here len+1 -- ) (R -- linkaddr len+1 )"}, /* dd M_cmove ; ( a here len+1 -- ) (R -- linkaddr len+1 ) 12704 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- len+1 ) (R -- linkaddr )"}, /* dd M_rpop ; ( -- len+1 ) (R -- linkaddr ) 12712 */- {.type FromH0, {.p C_allot}, .src = "dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1"}, /* dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1 12720 */- {.type FromH0, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 12728 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12736 */- {.type FromH0, {.p M_variable}, .src = "dd M_variable"}, /* dd M_variable 12744 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( -- variablecfa) (R -- linkaddr )"}, /* dd M_fetch ; ( -- variablecfa) (R -- linkaddr ) 12752 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; ( -- ) put the variablecfa into the cfa"}, /* dd C_comma ; ( -- ) put the variablecfa into the cfa 12760 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- linkaddr) (R -- )"}, /* dd M_rpop ; ( -- linkaddr) (R -- ) 12768 */- {.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"}, /* dd M_Dtop 12776 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; Dtop = just created link address"}, /* dd M_store ; Dtop = just created link address 12784 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12792 */- {.type Header, {.hdr { 8, "variable", /* C_variable = 12816 */ colon }}}, /* CENTRY "variable" variable 8 ; compile to put the vhere then on the stack h 12824 */- {.type FromH0, {.p C_create}, .src = "dd C_create"}, /* dd C_create 12832 */- {.type FromH0, {.p C_vhere}, .src = "dd C_vhere"}, /* dd C_vhere 12840 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; put the next available variable location in pfa"}, /* dd C_comma ; put the next available variable location in pfa 12848 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12856 */- {.type Absolute, {.p 1}}, /* dd 1 12864 */- {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 12872 */- {.type FromH0, {.p C_vallot}, .src = "dd C_vallot ; vhere = vhere+8, stored at Vp"}, /* dd C_vallot ; vhere = vhere+8, stored at Vp 12880 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12888 */- {.type Header, {.hdr { 8, "constant", /* C_constant = 12912 */ colon }}}, /* CENTRY "constant" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant) h 12920 */- {.type FromH0, {.p C_create}, .src = "dd C_create ; create dictionary header upto the cfa"}, /* dd C_create ; create dictionary header upto the cfa 12928 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12936 */- {.type FromH0, {.p M_constant}, .src = "dd M_constant"}, /* dd M_constant 12944 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( Contstantcfa -- (constant) )"}, /* dd M_fetch ; ( Contstantcfa -- (constant) ) 12952 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( (constant) -- (constant) here )"}, /* dd C_here ; ( (constant) -- (constant) here ) 12960 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12968 */- {.type Absolute, {.p 1}}, /* dd 1 12976 */- {.type FromH0, {.p C_cells}, .src = "dd C_cells ; ( (constant) here -- (constant) here 8 )"}, /* dd C_cells ; ( (constant) here -- (constant) here 8 ) 12984 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( (constant) here 8 -- (constant) here-8 )"}, /* dd M_minus ; ( (constant) here 8 -- (constant) here-8 ) 12992 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) "}, /* dd M_store ; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) 13000 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; store n into the dictionary"}, /* dd C_comma ; store n into the dictionary 13008 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13016 */- {.type Header, {.hdr { 9, "immediate", /* C_immediate = 13040 */ colon }}}, /* CENTRY "immediate" immediate 9 h 13048 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 13056 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13064 */- {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 13072 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13080 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13088 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13096 */- {.type Absolute, {.p 128}}, /* dd 128 13104 */- {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 13112 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 13120 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 13128 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13136 */- {.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 13152 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 13160 */- {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13168 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13176 */- {.type Absolute, {.p 63}}, /* dd 63 13184 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 13192 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 13200 */- {.type FromH0, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 13208 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13216 */- {.type Header, {.hdr { 7, "compile", /* C_compile = 13232 */ colon }}}, /* CENTRY "compile" compile 7 h 13240 */- {.type FromH0, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 13248 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13256 */- {.type FromH0, {.p L188}, .src = "dd L188"}, /* dd L188 13264 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13272 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13280 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13288 */- {.type Absolute, {.p 128}}, /* dd 128 13296 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 13304 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13312 */- {.type FromH0, {.p L189}, .src = "dd L189"}, /* dd L189 13320 */- {.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa ; immediate"}, /* dd C_tocfa ; immediate 13328 */- {.type FromH0, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 13336 */- {.type FromH0, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 13344 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13352 */- {.type FromH0, {.p L190}, .src = "dd L190"}, /* dd L190 13360 */- {.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 13368 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 13376 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12072 */+ {.type FromH0, {.p L170}, .src = "dd L170"}, /* dd L170 12080 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12088 */+ {.type Absolute, {.p 3}}, /* dd 3 12096 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12104 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12112 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12120 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12128 */+ {.type Header, {.hdr { 6, "?stack", /* C_qstack = 12144 */ colon }}}, /* CENTRY "?stack" qstack 6 h 12152 */+ {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr"}, /* dd M_stackptr 12160 */+ {.type FromH0, {.p M_S0}, .src = "dd M_S0"}, /* dd M_S0 12168 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 12176 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12184 */+ {.type FromH0, {.p L172}, .src = "dd L172"}, /* dd L172 12192 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12200 */+ {.type FromH0, {.p L173}, .src = "dd L173"}, /* dd L173 12208 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12216 */+ {.type Absolute, {.p 16}}, /* dd 16 12224 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12232 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12240 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12248 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12256 */+ {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT ; ( str -- str 1) ; debug code to show the word found"}, /* dd MC_STDOUT ; ( str -- str 1) ; debug code to show the word found 12264 */+ {.type FromH0, {.p M_over}, .src = "dd M_over ; ( str 1 str )"}, /* dd M_over ; ( str 1 str ) 12272 */+ {.type FromH0, {.p C_count}, .src = "dd C_count ; ( str 1 a n)"}, /* dd C_count ; ( str 1 a n) 12280 */+ {.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 12288 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 12296 */+ {.type Header, {.hdr { 9, "interpret", /* C_interpret = 12320 */ colon }}}, /* CENTRY "interpret" interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set h 12328 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 12336 */+ {.type FromH0, {.p C_word}, .src = "dd C_word ; ( bl -- a ) a = address of counted string"}, /* dd C_word ; ( bl -- a ) a = address of counted string 12344 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 12352 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 12360 */+ {.type FromH0, {.p C_0neq}, .src = "dd C_0neq"}, /* dd C_0neq 12368 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12376 */+ {.type FromH0, {.p L176}, .src = "dd L176 ; count at a = 0"}, /* dd L176 ; count at a = 0 12384 */+ {.type FromH0, {.p C_find}, .src = "dd C_find ; ( a -- a1 f ) a = address of counted string"}, /* dd C_find ; ( a -- a1 f ) a = address of counted string 12392 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12400 */+ {.type FromH0, {.p L177}, .src = "dd L177"}, /* dd L177 12408 */+ {.type FromH0, {.p M_execute}, .src = "dd M_execute ; found in dictionary, execute"}, /* dd M_execute ; found in dictionary, execute 12416 */+ {.type FromH0, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 12424 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 12432 */+ {.type FromH0, {.p L178}, .src = "dd L178"}, /* dd L178 12440 */+ {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 12448 */+ {.type FromH0, {.p C_number}, .src = "dd C_number"}, /* dd C_number 12456 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 12464 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 12472 */+ {.type FromH0, {.p L179}, .src = "dd L179"}, /* dd L179 12480 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 12488 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12496 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12504 */+ {.type FromH0, {.p L180}, .src = "dd L180 ; error I?"}, /* dd L180 ; error I? 12512 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12520 */+ {.type Absolute, {.p 3}}, /* dd 3 12528 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 12536 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 12544 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 12552 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 12560 */+ {.type FromH0, {.p L175}, .src = "dd L175"}, /* dd L175 12568 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; count at a = 0 ( a -- )"}, /* dd M_drop ; count at a = 0 ( a -- ) 12576 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12584 */+ {.type Header, {.hdr { 6, "create", /* C_create = 12600 */ colon }}}, /* CENTRY "create" create 6 ; compiles dictionary header until the pfa (link, len, name, cfa) h 12608 */+ {.type FromH0, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 12616 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( -- here )"}, /* dd C_here ; ( -- here ) 12624 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( -- ) (R -- linkaddr )"}, /* dd M_rpush ; ( -- ) (R -- linkaddr ) 12632 */+ {.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop ; ( -- Dtop ) (R -- linkaddr )"}, /* dd M_Dtop ; ( -- Dtop ) (R -- linkaddr ) 12640 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr )"}, /* dd M_fetch ; ( Dtop -- dtop ) (R -- linkaddr ) 12648 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; ( dtop -- ) (R -- linkaddr )"}, /* dd C_comma ; ( dtop -- ) (R -- linkaddr ) 12656 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 12664 */+ {.type FromH0, {.p C_word}, .src = "dd C_word ; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf)"}, /* dd C_word ; get the word from the input stream ( c -- a ) skip any c. Placed the counted string in a (as in Wordbuf) 12672 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a -- a a ) (R -- linkaddr )"}, /* dd M_dup ; ( a -- a a ) (R -- linkaddr ) 12680 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a -- a len ) (R -- linkaddr )"}, /* dd M_cfetch ; ( a a -- a len ) (R -- linkaddr ) 12688 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( a len -- a len here ) (R -- linkaddr )"}, /* dd C_here ; ( a len -- a len here ) (R -- linkaddr ) 12696 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a len here -- a here len ) (R -- linkaddr )"}, /* dd M_xswap ; ( a len here -- a here len ) (R -- linkaddr ) 12704 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte"}, /* dd C_1plus ; ( a here len -- a here len+1 ) (R -- linkaddr ) using len+1 to copy even the length byte 12712 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr )"}, /* dd M_dup ; ( a here len+1 -- a here len+1 len+1 ) (R -- linkaddr ) 12720 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 )"}, /* dd M_rpush ; ( a here len+1 len+1 -- a here len+1 ) (R -- linkaddr len+1 ) 12728 */+ {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; ( a here len+1 -- ) (R -- linkaddr len+1 )"}, /* dd M_cmove ; ( a here len+1 -- ) (R -- linkaddr len+1 ) 12736 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- len+1 ) (R -- linkaddr )"}, /* dd M_rpop ; ( -- len+1 ) (R -- linkaddr ) 12744 */+ {.type FromH0, {.p C_allot}, .src = "dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1"}, /* dd C_allot ; ( -- ) (R -- linkaddr ) here = here+len+1 12752 */+ {.type FromH0, {.p C_align}, .src = "dd C_align ; sets Dp = aligned here"}, /* dd C_align ; sets Dp = aligned here 12760 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12768 */+ {.type FromH0, {.p M_variable}, .src = "dd M_variable"}, /* dd M_variable 12776 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( -- variablecfa) (R -- linkaddr )"}, /* dd M_fetch ; ( -- variablecfa) (R -- linkaddr ) 12784 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; ( -- ) put the variablecfa into the cfa"}, /* dd C_comma ; ( -- ) put the variablecfa into the cfa 12792 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- linkaddr) (R -- )"}, /* dd M_rpop ; ( -- linkaddr) (R -- ) 12800 */+ {.type FromH0, {.p M_Dtop}, .src = "dd M_Dtop"}, /* dd M_Dtop 12808 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; Dtop = just created link address"}, /* dd M_store ; Dtop = just created link address 12816 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12824 */+ {.type Header, {.hdr { 8, "variable", /* C_variable = 12848 */ colon }}}, /* CENTRY "variable" variable 8 ; compile to put the vhere then on the stack h 12856 */+ {.type FromH0, {.p C_create}, .src = "dd C_create"}, /* dd C_create 12864 */+ {.type FromH0, {.p C_vhere}, .src = "dd C_vhere"}, /* dd C_vhere 12872 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; put the next available variable location in pfa"}, /* dd C_comma ; put the next available variable location in pfa 12880 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12888 */+ {.type Absolute, {.p 1}}, /* dd 1 12896 */+ {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 12904 */+ {.type FromH0, {.p C_vallot}, .src = "dd C_vallot ; vhere = vhere+8, stored at Vp"}, /* dd C_vallot ; vhere = vhere+8, stored at Vp 12912 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 12920 */+ {.type Header, {.hdr { 8, "constant", /* C_constant = 12944 */ colon }}}, /* CENTRY "constant" constant 8 ; ( n -- ) do the same as variable but change the cfa to (constant) h 12952 */+ {.type FromH0, {.p C_create}, .src = "dd C_create ; create dictionary header upto the cfa"}, /* dd C_create ; create dictionary header upto the cfa 12960 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 12968 */+ {.type FromH0, {.p M_constant}, .src = "dd M_constant"}, /* dd M_constant 12976 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( Contstantcfa -- (constant) )"}, /* dd M_fetch ; ( Contstantcfa -- (constant) ) 12984 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( (constant) -- (constant) here )"}, /* dd C_here ; ( (constant) -- (constant) here ) 12992 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13000 */+ {.type Absolute, {.p 1}}, /* dd 1 13008 */+ {.type FromH0, {.p C_cells}, .src = "dd C_cells ; ( (constant) here -- (constant) here 8 )"}, /* dd C_cells ; ( (constant) here -- (constant) here 8 ) 13016 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( (constant) here 8 -- (constant) here-8 )"}, /* dd M_minus ; ( (constant) here 8 -- (constant) here-8 ) 13024 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) "}, /* dd M_store ; ( (constant) here-8 -- ) changed cfa from (variable) to (constant) 13032 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; store n into the dictionary"}, /* dd C_comma ; store n into the dictionary 13040 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13048 */+ {.type Header, {.hdr { 9, "immediate", /* C_immediate = 13072 */ colon }}}, /* CENTRY "immediate" immediate 9 h 13080 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 13088 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13096 */+ {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 13104 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13112 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13120 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13128 */+ {.type Absolute, {.p 128}}, /* dd 128 13136 */+ {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 13144 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 13152 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 13160 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13168 */+ {.type Header, {.hdr { 4, ">cfa", /* C_tocfa = 13184 */ colon }}}, /* CENTRY ">cfa" tocfa 4 h 13192 */+ {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13200 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13208 */+ {.type Absolute, {.p 63}}, /* dd 63 13216 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 13224 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 13232 */+ {.type FromH0, {.p C_aligned}, .src = "dd C_aligned"}, /* dd C_aligned 13240 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13248 */+ {.type Header, {.hdr { 7, "compile", /* C_compile = 13264 */ colon }}}, /* CENTRY "compile" compile 7 h 13272 */+ {.type FromH0, {.p C_findname}, .src = "dd C_findname"}, /* dd C_findname 13280 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13288 */+ {.type FromH0, {.p L188}, .src = "dd L188"}, /* dd L188 13296 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13304 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13312 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13320 */+ {.type Absolute, {.p 128}}, /* dd 128 13328 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 13336 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13344 */+ {.type FromH0, {.p L189}, .src = "dd L189"}, /* dd L189 13352 */+ {.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa ; immediate"}, /* dd C_tocfa ; immediate 13360 */+ {.type FromH0, {.p M_execute}, .src = "dd M_execute"}, /* dd M_execute 13368 */+ {.type FromH0, {.p C_qstack}, .src = "dd C_qstack"}, /* dd C_qstack 13376 */ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13384 */- {.type FromH0, {.p L191}, .src = "dd L191"}, /* dd L191 13392 */- {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13400 */- {.type FromH0, {.p C_number}, .src = "dd C_number"}, /* dd C_number 13408 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 13416 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13424 */- {.type FromH0, {.p L192}, .src = "dd L192"}, /* dd L192 13432 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 13440 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13448 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13456 */- {.type FromH0, {.p L193}, .src = "dd L193"}, /* dd L193 13464 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13472 */- {.type Absolute, {.p 3}}, /* dd 3 13480 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13488 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13496 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 13504 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13512 */- {.type FromH0, {.p L194}, .src = "dd L194"}, /* dd L194 13520 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13528 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13536 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 13544 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 13552 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13560 */- {.type Header, {.hdr { 1, "]", /* C_close_bracket = 13576 */ colon }}}, /* CENTRY "]" close_bracket 1 h 13584 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 13592 */- {.type FromH0, {.p C_on}, .src = "dd C_on"}, /* dd C_on 13600 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 13608 */- {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 13616 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13624 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13632 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 13640 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13648 */- {.type FromH0, {.p L197}, .src = "dd L197"}, /* dd L197 13656 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 13664 */- {.type FromH0, {.p C_refill}, .src = "dd C_refill"}, /* dd C_refill 13672 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13680 */- {.type FromH0, {.p L198}, .src = "dd L198"}, /* dd L198 13688 */- {.type FromH0, {.p C_compile}, .src = "dd C_compile"}, /* dd C_compile 13696 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 13704 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13712 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13720 */- {.type FromH0, {.p L199}, .src = "dd L199"}, /* dd L199 13728 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13736 */- {.type FromH0, {.p L196}, .src = "dd L196"}, /* dd L196 13744 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13752 */- {.type IHeader, {.hdr { 1, "[", /* CI_open_bracket = 13768 */ colon }}}, /* CIENTRY "[" open_bracket 1 h 13776 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 13784 */- {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 13792 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13800 */- {.type Header, {.hdr { 6, "smudge", /* C_smudge = 13816 */ colon }}}, /* CENTRY "smudge" smudge 6 h 13824 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 13832 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13840 */- {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 13848 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13856 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13864 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13872 */- {.type Absolute, {.p 64}}, /* dd 64 13880 */- {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 13888 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 13896 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 13904 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13912 */- {.type Header, {.hdr { 6, "reveal", /* C_reveal = 13928 */ colon }}}, /* CENTRY "reveal" reveal 6 h 13936 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 13944 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13952 */- {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 13960 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13968 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13976 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13984 */- {.type Absolute, {.p 64}}, /* dd 64 13992 */- {.type FromH0, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 14000 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14008 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 14016 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 14024 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14032 */- {.type Header, {.hdr { 1, ":", /* C_colon = 14048 */ colon }}}, /* CENTRY ":" colon 1 h 14056 */- {.type FromH0, {.p C_create}, .src = "dd C_create ; create a dictionary header with (variable) at cfa"}, /* dd C_create ; create a dictionary header with (variable) at cfa 14064 */- {.type FromH0, {.p C_smudge}, .src = "dd C_smudge"}, /* dd C_smudge 14072 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14080 */- {.type FromH0, {.p M_colon}, .src = "dd M_colon"}, /* dd M_colon 14088 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( Coloncfa -- (colon) ) fetches the cfa of M_colon"}, /* dd M_fetch ; ( Coloncfa -- (colon) ) fetches the cfa of M_colon 14096 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( (colon) -- (colon) here )"}, /* dd C_here ; ( (colon) -- (colon) here ) 14104 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14112 */- {.type Absolute, {.p 1}}, /* dd 1 14120 */- {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 14128 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( (colon) here -- (colon) here-8 )"}, /* dd M_minus ; ( (colon) here -- (colon) here-8 ) 14136 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; ( (colon) here-8 -- ) change the cfa from (variable) to colon"}, /* dd M_store ; ( (colon) here-8 -- ) change the cfa from (variable) to colon 14144 */- {.type FromH0, {.p C_close_bracket}, .src = "dd C_close_bracket"}, /* dd C_close_bracket 14152 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14160 */- {.type IHeader, {.hdr { 1, ";", /* CI_semicolon = 14176 */ colon }}}, /* CIENTRY ";" semicolon 1 h 14184 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14192 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14200 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14208 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 14216 */- {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 14224 */- {.type FromH0, {.p C_reveal}, .src = "dd C_reveal"}, /* dd C_reveal 14232 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14240 */- {.type IHeader, {.hdr { 7, "recurse", /* CI_recurse = 14256 */ colon }}}, /* CIENTRY "recurse" recurse 7 h 14264 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 14272 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14280 */- {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 14288 */- {.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 14296 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14304 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14312 */- {.type Header, {.hdr { 4, "char", /* C_char = 14328 */ colon }}}, /* CENTRY "char" char 4 ; ( -- c ) fetch the first character of the next word from input h 14336 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 14344 */- {.type FromH0, {.p C_word}, .src = "dd C_word ; ( c -- a ) puts the address of the counted string from the input on the stack"}, /* dd C_word ; ( c -- a ) puts the address of the counted string from the input on the stack 14352 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; skip the count"}, /* dd C_1plus ; skip the count 14360 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; fetch the first character"}, /* dd M_cfetch ; fetch the first character 14368 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14376 */- {.type Header, {.hdr { 7, "literal", /* C_literal = 14392 */ colon }}}, /* CENTRY "literal" literal 7 ; ( n -- ) adds (literal) n to the dictionary h 14400 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14408 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14416 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14424 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14432 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14440 */- {.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 14464 */ colon }}}, /* CENTRY "sliteral" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary h 14472 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14480 */- {.type FromH0, {.p M_sliteral}, .src = "dd M_sliteral"}, /* dd M_sliteral 14488 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; adds (sliteral) to the dictionary"}, /* dd C_comma ; adds (sliteral) to the dictionary 14496 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( -- here)"}, /* dd C_here ; ( -- here) 14504 */+ {.type FromH0, {.p L190}, .src = "dd L190"}, /* dd L190 13392 */+ {.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 13400 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 13408 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13416 */+ {.type FromH0, {.p L191}, .src = "dd L191"}, /* dd L191 13424 */+ {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 13432 */+ {.type FromH0, {.p C_number}, .src = "dd C_number"}, /* dd C_number 13440 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 13448 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13456 */+ {.type FromH0, {.p L192}, .src = "dd L192"}, /* dd L192 13464 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 13472 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13480 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13488 */+ {.type FromH0, {.p L193}, .src = "dd L193"}, /* dd L193 13496 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13504 */+ {.type Absolute, {.p 3}}, /* dd 3 13512 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 13520 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 13528 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 13536 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13544 */+ {.type FromH0, {.p L194}, .src = "dd L194"}, /* dd L194 13552 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13560 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13568 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 13576 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 13584 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13592 */+ {.type Header, {.hdr { 1, "]", /* C_close_bracket = 13608 */ colon }}}, /* CENTRY "]" close_bracket 1 h 13616 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 13624 */+ {.type FromH0, {.p C_on}, .src = "dd C_on"}, /* dd C_on 13632 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 13640 */+ {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 13648 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13656 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13664 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 13672 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13680 */+ {.type FromH0, {.p L197}, .src = "dd L197"}, /* dd L197 13688 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 13696 */+ {.type FromH0, {.p C_refill}, .src = "dd C_refill"}, /* dd C_refill 13704 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13712 */+ {.type FromH0, {.p L198}, .src = "dd L198"}, /* dd L198 13720 */+ {.type FromH0, {.p C_compile}, .src = "dd C_compile"}, /* dd C_compile 13728 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 13736 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13744 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 13752 */+ {.type FromH0, {.p L199}, .src = "dd L199"}, /* dd L199 13760 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 13768 */+ {.type FromH0, {.p L196}, .src = "dd L196"}, /* dd L196 13776 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13784 */+ {.type IHeader, {.hdr { 1, "[", /* CI_open_bracket = 13800 */ colon }}}, /* CIENTRY "[" open_bracket 1 h 13808 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 13816 */+ {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 13824 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13832 */+ {.type Header, {.hdr { 6, "smudge", /* C_smudge = 13848 */ colon }}}, /* CENTRY "smudge" smudge 6 h 13856 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 13864 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13872 */+ {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 13880 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 13888 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 13896 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 13904 */+ {.type Absolute, {.p 64}}, /* dd 64 13912 */+ {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 13920 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 13928 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 13936 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 13944 */+ {.type Header, {.hdr { 6, "reveal", /* C_reveal = 13960 */ colon }}}, /* CENTRY "reveal" reveal 6 h 13968 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 13976 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 13984 */+ {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 13992 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 14000 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14008 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14016 */+ {.type Absolute, {.p 64}}, /* dd 64 14024 */+ {.type FromH0, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 14032 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 14040 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 14048 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore"}, /* dd M_cstore 14056 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14064 */+ {.type Header, {.hdr { 1, ":", /* C_colon = 14080 */ colon }}}, /* CENTRY ":" colon 1 h 14088 */+ {.type FromH0, {.p C_create}, .src = "dd C_create ; create a dictionary header with (variable) at cfa"}, /* dd C_create ; create a dictionary header with (variable) at cfa 14096 */+ {.type FromH0, {.p C_smudge}, .src = "dd C_smudge"}, /* dd C_smudge 14104 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14112 */+ {.type FromH0, {.p M_colon}, .src = "dd M_colon"}, /* dd M_colon 14120 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( Coloncfa -- (colon) ) fetches the cfa of M_colon"}, /* dd M_fetch ; ( Coloncfa -- (colon) ) fetches the cfa of M_colon 14128 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( (colon) -- (colon) here )"}, /* dd C_here ; ( (colon) -- (colon) here ) 14136 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14144 */+ {.type Absolute, {.p 1}}, /* dd 1 14152 */+ {.type FromH0, {.p C_cells}, .src = "dd C_cells"}, /* dd C_cells 14160 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( (colon) here -- (colon) here-8 )"}, /* dd M_minus ; ( (colon) here -- (colon) here-8 ) 14168 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; ( (colon) here-8 -- ) change the cfa from (variable) to colon"}, /* dd M_store ; ( (colon) here-8 -- ) change the cfa from (variable) to colon 14176 */+ {.type FromH0, {.p C_close_bracket}, .src = "dd C_close_bracket"}, /* dd C_close_bracket 14184 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14192 */+ {.type IHeader, {.hdr { 1, ";", /* CI_semicolon = 14208 */ colon }}}, /* CIENTRY ";" semicolon 1 h 14216 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14224 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14232 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14240 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 14248 */+ {.type FromH0, {.p C_off}, .src = "dd C_off"}, /* dd C_off 14256 */+ {.type FromH0, {.p C_reveal}, .src = "dd C_reveal"}, /* dd C_reveal 14264 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14272 */+ {.type IHeader, {.hdr { 7, "recurse", /* CI_recurse = 14288 */ colon }}}, /* CIENTRY "recurse" recurse 7 h 14296 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 14304 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14312 */+ {.type FromH0, {.p C_cellplus}, .src = "dd C_cellplus"}, /* dd C_cellplus 14320 */+ {.type FromH0, {.p C_tocfa}, .src = "dd C_tocfa"}, /* dd C_tocfa 14328 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14336 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14344 */+ {.type Header, {.hdr { 4, "char", /* C_char = 14360 */ colon }}}, /* CENTRY "char" char 4 ; ( -- c ) fetch the first character of the next word from input h 14368 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 14376 */+ {.type FromH0, {.p C_word}, .src = "dd C_word ; ( c -- a ) puts the address of the counted string from the input on the stack"}, /* dd C_word ; ( c -- a ) puts the address of the counted string from the input on the stack 14384 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; skip the count"}, /* dd C_1plus ; skip the count 14392 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; fetch the first character"}, /* dd M_cfetch ; fetch the first character 14400 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14408 */+ {.type Header, {.hdr { 7, "literal", /* C_literal = 14424 */ colon }}}, /* CENTRY "literal" literal 7 ; ( n -- ) adds (literal) n to the dictionary h 14432 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14440 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14448 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14456 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 14464 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14472 */+ {.type Header, {.hdr { 8, "sliteral", /* C_sliteral = 14496 */ colon }}}, /* CENTRY "sliteral" sliteral 8 ; ( -- ) adds (sliteral) a n to the dictionary h 14504 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14512 */- {.type Absolute, {.p 34}}, /* dd 34 ; ascii value of " 14520 */- {.type FromH0, {.p C_parse}, .src = "dd C_parse ; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf)."}, /* dd C_parse ; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf). 14528 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( here a -- here a a )"}, /* dd M_dup ; ( here a -- here a a ) 14536 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( here a a -- here a n )"}, /* dd M_cfetch ; ( here a a -- here a n ) 14544 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string"}, /* dd C_1plus ; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string 14552 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( here a n+1 -- here a ) (R -- n+1)"}, /* dd M_rpush ; ( here a n+1 -- here a ) (R -- n+1) 14560 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( here a -- a here ) (R -- n+1)"}, /* dd M_xswap ; ( here a -- a here ) (R -- n+1) 14568 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( a here -- a here n+1 ) (R -- n+1 )"}, /* dd M_rfetch ; ( a here -- a here n+1 ) (R -- n+1 ) 14576 */- {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; ( a here n+1 -- ) moves n+1 from a to here"}, /* dd M_cmove ; ( a here n+1 -- ) moves n+1 from a to here 14584 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- n+1 ) (R -- )"}, /* dd M_rpop ; ( -- n+1 ) (R -- ) 14592 */- {.type FromH0, {.p C_allot}, .src = "dd C_allot ; ( n+1 -- ) here = here+n+1"}, /* dd C_allot ; ( n+1 -- ) here = here+n+1 14600 */- {.type FromH0, {.p C_align}, .src = "dd C_align ; align here"}, /* dd C_align ; align here 14608 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14616 */- {.type Header, {.hdr { 6, "string", /* C_string = 14632 */ colon }}}, /* CENTRY "string" string 6 ; ( c -- ) h 14640 */- {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 14648 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 14656 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14664 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 14672 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 14680 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 14688 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"}, /* dd M_rfetch 14696 */- {.type FromH0, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 14704 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 14712 */- {.type FromH0, {.p C_allot}, .src = "dd C_allot"}, /* dd C_allot 14720 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14728 */- {.type IHeader, {.hdr { 6, "[char]", /* CI_char_brackets = 14744 */ colon }}}, /* CIENTRY "[char]" char_brackets 6 ; take the next character from the input stream during compilation h 14752 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 14760 */- {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 14768 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 14776 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14784 */- {.type FromH0, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 14792 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14800 */- {.type IHeader, {.hdr { 3, "[']", /* CI_quote_brackets = 14816 */ colon }}}, /* CIENTRY "[']" quote_brackets 3 ; take the address of next token from the input stream during compilation h 14824 */- {.type FromH0, {.p C_single_quote}, .src = "dd C_single_quote"}, /* dd C_single_quote 14832 */- {.type FromH0, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 14840 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14848 */- {.type IHeader, {.hdr { 1, "(", /* CI_openparen = 14864 */ colon }}}, /* CIENTRY "(" openparen 1 ; ignore until ) from the input stream during compilation h 14872 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14880 */- {.type Absolute, {.p 41}}, /* dd 41 14888 */- {.type FromH0, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 14896 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 14904 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14912 */- {.type IHeader, {.hdr { 1, "\\", /* CI_backslash = 14928 */ colon }}}, /* CIENTRY "\\" backslash 1 h 14936 */- {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 14944 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14952 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14960 */- {.type FromH0, {.p L214}, .src = "dd L214"}, /* dd L214 14968 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 14976 */+ {.type FromH0, {.p M_sliteral}, .src = "dd M_sliteral"}, /* dd M_sliteral 14520 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; adds (sliteral) to the dictionary"}, /* dd C_comma ; adds (sliteral) to the dictionary 14528 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( -- here)"}, /* dd C_here ; ( -- here) 14536 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14544 */+ {.type Absolute, {.p 34}}, /* dd 34 ; ascii value of " 14552 */+ {.type FromH0, {.p C_parse}, .src = "dd C_parse ; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf)."}, /* dd C_parse ; ( here \" -- here a ) \" = word delimiter. a = address of counted string (in Wordbuf). 14560 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( here a -- here a a )"}, /* dd M_dup ; ( here a -- here a a ) 14568 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( here a a -- here a n )"}, /* dd M_cfetch ; ( here a a -- here a n ) 14576 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string"}, /* dd C_1plus ; ( here a n -- here a n+1 ) n+1 as 1 for the count and n for the length of the string 14584 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( here a n+1 -- here a ) (R -- n+1)"}, /* dd M_rpush ; ( here a n+1 -- here a ) (R -- n+1) 14592 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( here a -- a here ) (R -- n+1)"}, /* dd M_xswap ; ( here a -- a here ) (R -- n+1) 14600 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( a here -- a here n+1 ) (R -- n+1 )"}, /* dd M_rfetch ; ( a here -- a here n+1 ) (R -- n+1 ) 14608 */+ {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; ( a here n+1 -- ) moves n+1 from a to here"}, /* dd M_cmove ; ( a here n+1 -- ) moves n+1 from a to here 14616 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( -- n+1 ) (R -- )"}, /* dd M_rpop ; ( -- n+1 ) (R -- ) 14624 */+ {.type FromH0, {.p C_allot}, .src = "dd C_allot ; ( n+1 -- ) here = here+n+1"}, /* dd C_allot ; ( n+1 -- ) here = here+n+1 14632 */+ {.type FromH0, {.p C_align}, .src = "dd C_align ; align here"}, /* dd C_align ; align here 14640 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14648 */+ {.type Header, {.hdr { 6, "string", /* C_string = 14664 */ colon }}}, /* CENTRY "string" string 6 ; ( c -- ) h 14672 */+ {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 14680 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 14688 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14696 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 14704 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 14712 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 14720 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"}, /* dd M_rfetch 14728 */+ {.type FromH0, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 14736 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 14744 */+ {.type FromH0, {.p C_allot}, .src = "dd C_allot"}, /* dd C_allot 14752 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14760 */+ {.type IHeader, {.hdr { 6, "[char]", /* CI_char_brackets = 14776 */ colon }}}, /* CIENTRY "[char]" char_brackets 6 ; take the next character from the input stream during compilation h 14784 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 14792 */+ {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 14800 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus"}, /* dd C_1plus 14808 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch"}, /* dd M_cfetch 14816 */+ {.type FromH0, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 14824 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14832 */+ {.type IHeader, {.hdr { 3, "[']", /* CI_quote_brackets = 14848 */ colon }}}, /* CIENTRY "[']" quote_brackets 3 ; take the address of next token from the input stream during compilation h 14856 */+ {.type FromH0, {.p C_single_quote}, .src = "dd C_single_quote"}, /* dd C_single_quote 14864 */+ {.type FromH0, {.p C_literal}, .src = "dd C_literal"}, /* dd C_literal 14872 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14880 */+ {.type IHeader, {.hdr { 1, "(", /* CI_openparen = 14896 */ colon }}}, /* CIENTRY "(" openparen 1 ; ignore until ) from the input stream during compilation h 14904 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14912 */+ {.type Absolute, {.p 41}}, /* dd 41 14920 */+ {.type FromH0, {.p C_parse}, .src = "dd C_parse"}, /* dd C_parse 14928 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop"}, /* dd M_drop 14936 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 14944 */+ {.type IHeader, {.hdr { 1, "\\", /* CI_backslash = 14960 */ colon }}}, /* CIENTRY "\\" backslash 1 h 14968 */+ {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk"}, /* dd MV_Blk 14976 */ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 14984 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 14992 */- {.type Absolute, {.p 63}}, /* dd 63 15000 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 15008 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15016 */- {.type Absolute, {.p 63}}, /* dd 63 15024 */- {.type FromH0, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 15032 */- {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15040 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 15048 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15056 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15064 */- {.type FromH0, {.p L215}, .src = "dd L215"}, /* dd L215 15072 */- {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 15080 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15088 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 15096 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15104 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15112 */- {.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 15136 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 15144 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 15152 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15160 */- {.type FromH0, {.p L217}, .src = "dd L217"}, /* dd L217 15168 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 15176 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15184 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 15192 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 15200 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15208 */- {.type FromH0, {.p L218}, .src = "dd L218"}, /* dd L218 15216 */- {.type FromH0, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 15224 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15232 */- {.type IHeader, {.hdr { 6, "abort\"", /* CI_abort_double_quote = 15248 */ colon }}}, /* CIENTRY "abort\"" abort_double_quote 6 h 15256 */- {.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 15264 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15272 */- {.type FromH0, {.p C_qabort_parens}, .src = "dd C_qabort_parens"}, /* dd C_qabort_parens 15280 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15288 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15296 */- {.type Header, {.hdr { 1, "\"", /* C_double_quote = 15312 */ colon }}}, /* CENTRY "\"" double_quote 1 ; stores counted string in the dictionary and also leaves the address count of the string on the stack - used to use strings at the interpreter prompt h 15320 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15328 */- {.type Absolute, {.p 34}}, /* dd 34 15336 */- {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 15344 */- {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15352 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 15360 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15368 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"}, /* dd M_rfetch 15376 */- {.type FromH0, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 15384 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15392 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 15400 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15408 */- {.type FromH0, {.p C_allot}, .src = "dd C_allot"}, /* dd C_allot 15416 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15424 */- {.type Header, {.hdr { 2, "c\"", /* C_cdouble_quote = 15440 */ colon }}}, /* CENTRY "c\"" cdouble_quote 2 ; stores counted string in the dictionary and also leaves the address of the counted string on the stack h 15448 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15456 */- {.type Absolute, {.p 34}}, /* dd 34 ; ( -- \" ) 15464 */- {.type FromH0, {.p C_word}, .src = "dd C_word ; ( \" -- a ) a = counted string address. a will be in Wordbuf"}, /* dd C_word ; ( \" -- a ) a = counted string address. a will be in Wordbuf 15472 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a -- a a)"}, /* dd M_dup ; ( a -- a a) 15480 */- {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a -- a n )"}, /* dd M_cfetch ; ( a a -- a n ) 15488 */- {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( a n -- a n+1 )"}, /* dd C_1plus ; ( a n -- a n+1 ) 15496 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n -- a ) (R -- n+1)"}, /* dd M_rpush ; ( a n -- a ) (R -- n+1) 15504 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( a -- a here ) (R -- n+1)"}, /* dd C_here ; ( a -- a here ) (R -- n+1) 15512 */- {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( a here -- a here n+1) (R -- n+1)"}, /* dd M_rfetch ; ( a here -- a here n+1) (R -- n+1) 15520 */- {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; move counted string from a to here"}, /* dd M_cmove ; move counted string from a to here 15528 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( -- here )"}, /* dd C_here ; ( -- here ) 15536 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( here -- here n+1 )(R -- )"}, /* dd M_rpop ; ( here -- here n+1 )(R -- ) 15544 */- {.type FromH0, {.p C_allot}, .src = "dd C_allot ; ( here n+1 -- here) here += n+1"}, /* dd C_allot ; ( here n+1 -- here) here += n+1 15552 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15560 */- {.type IHeader, {.hdr { 2, "s\"", /* CI_sdouble_quote = 15576 */ colon }}}, /* CIENTRY "s\"" sdouble_quote 2 ; add the string from the input stream to the dictionary as (sliteral) count string - at run-time puts the ( -- addr n) of the counted string on the stack. h 15584 */- {.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 15592 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15600 */- {.type IHeader, {.hdr { 2, ".\"", /* CI_dotstr = 15616 */ colon }}}, /* CIENTRY ".\"" dotstr 2 ; do what s" does and then add a type word to the dictionary to print that string h 15624 */- {.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 15632 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15640 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15648 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15656 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15664 */- {.type IHeader, {.hdr { 2, "if", /* CI_if = 15680 */ colon }}}, /* CIENTRY "if" if 2 h 15688 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15696 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15704 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15712 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15720 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 14992 */+ {.type FromH0, {.p L214}, .src = "dd L214"}, /* dd L214 15000 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 15008 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15016 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15024 */+ {.type Absolute, {.p 63}}, /* dd 63 15032 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus"}, /* dd M_plus 15040 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15048 */+ {.type Absolute, {.p 63}}, /* dd 63 15056 */+ {.type FromH0, {.p C_invert}, .src = "dd C_invert"}, /* dd C_invert 15064 */+ {.type FromH0, {.p M_binand}, .src = "dd M_binand"}, /* dd M_binand 15072 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 15080 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15088 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15096 */+ {.type FromH0, {.p L215}, .src = "dd L215"}, /* dd L215 15104 */+ {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 15112 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 15120 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 15128 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15136 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15144 */+ {.type Header, {.hdr { 8, "(?abort)", /* C_qabort_parens = 15168 */ colon }}}, /* CENTRY "(?abort)" qabort_parens 8 h 15176 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 15184 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15192 */+ {.type FromH0, {.p L217}, .src = "dd L217"}, /* dd L217 15200 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 15208 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15216 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 15224 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 15232 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15240 */+ {.type FromH0, {.p L218}, .src = "dd L218"}, /* dd L218 15248 */+ {.type FromH0, {.p C_2drop}, .src = "dd C_2drop"}, /* dd C_2drop 15256 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15264 */+ {.type IHeader, {.hdr { 6, "abort\"", /* CI_abort_double_quote = 15280 */ colon }}}, /* CIENTRY "abort\"" abort_double_quote 6 h 15288 */+ {.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 15296 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15304 */+ {.type FromH0, {.p C_qabort_parens}, .src = "dd C_qabort_parens"}, /* dd C_qabort_parens 15312 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15320 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15328 */+ {.type Header, {.hdr { 1, "\"", /* C_double_quote = 15344 */ colon }}}, /* CENTRY "\"" double_quote 1 ; stores counted string in the dictionary and also leaves the address count of the string on the stack - used to use strings at the interpreter prompt h 15352 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15360 */+ {.type Absolute, {.p 34}}, /* dd 34 15368 */+ {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 15376 */+ {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 15384 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 15392 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15400 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch"}, /* dd M_rfetch 15408 */+ {.type FromH0, {.p M_cmove}, .src = "dd M_cmove"}, /* dd M_cmove 15416 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15424 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 15432 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 15440 */+ {.type FromH0, {.p C_allot}, .src = "dd C_allot"}, /* dd C_allot 15448 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15456 */+ {.type Header, {.hdr { 2, "c\"", /* C_cdouble_quote = 15472 */ colon }}}, /* CENTRY "c\"" cdouble_quote 2 ; stores counted string in the dictionary and also leaves the address of the counted string on the stack h 15480 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15488 */+ {.type Absolute, {.p 34}}, /* dd 34 ; ( -- \" ) 15496 */+ {.type FromH0, {.p C_word}, .src = "dd C_word ; ( \" -- a ) a = counted string address. a will be in Wordbuf"}, /* dd C_word ; ( \" -- a ) a = counted string address. a will be in Wordbuf 15504 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a -- a a)"}, /* dd M_dup ; ( a -- a a) 15512 */+ {.type FromH0, {.p M_cfetch}, .src = "dd M_cfetch ; ( a a -- a n )"}, /* dd M_cfetch ; ( a a -- a n ) 15520 */+ {.type FromH0, {.p C_1plus}, .src = "dd C_1plus ; ( a n -- a n+1 )"}, /* dd C_1plus ; ( a n -- a n+1 ) 15528 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n -- a ) (R -- n+1)"}, /* dd M_rpush ; ( a n -- a ) (R -- n+1) 15536 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( a -- a here ) (R -- n+1)"}, /* dd C_here ; ( a -- a here ) (R -- n+1) 15544 */+ {.type FromH0, {.p M_rfetch}, .src = "dd M_rfetch ; ( a here -- a here n+1) (R -- n+1)"}, /* dd M_rfetch ; ( a here -- a here n+1) (R -- n+1) 15552 */+ {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; move counted string from a to here"}, /* dd M_cmove ; move counted string from a to here 15560 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( -- here )"}, /* dd C_here ; ( -- here ) 15568 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( here -- here n+1 )(R -- )"}, /* dd M_rpop ; ( here -- here n+1 )(R -- ) 15576 */+ {.type FromH0, {.p C_allot}, .src = "dd C_allot ; ( here n+1 -- here) here += n+1"}, /* dd C_allot ; ( here n+1 -- here) here += n+1 15584 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15592 */+ {.type IHeader, {.hdr { 2, "s\"", /* CI_sdouble_quote = 15608 */ colon }}}, /* CIENTRY "s\"" sdouble_quote 2 ; add the string from the input stream to the dictionary as (sliteral) count string - at run-time puts the ( -- addr n) of the counted string on the stack. h 15616 */+ {.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 15624 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15632 */+ {.type IHeader, {.hdr { 2, ".\"", /* CI_dotstr = 15648 */ colon }}}, /* CIENTRY ".\"" dotstr 2 ; do what s" does and then add a type word to the dictionary to print that string h 15656 */+ {.type FromH0, {.p C_sliteral}, .src = "dd C_sliteral"}, /* dd C_sliteral 15664 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15672 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 15680 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15688 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15696 */+ {.type IHeader, {.hdr { 2, "if", /* CI_if = 15712 */ colon }}}, /* CIENTRY "if" if 2 h 15720 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15728 */- {.type Absolute, {.p 0}}, /* dd 0 15736 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 15736 */ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15744 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15752 */- {.type IHeader, {.hdr { 4, "else", /* CI_else = 15768 */ colon }}}, /* CIENTRY "else" else 4 h 15776 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15784 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15792 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15800 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15808 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 15816 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15824 */- {.type Absolute, {.p 0}}, /* dd 0 15832 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15840 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15848 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 15856 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15864 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 15872 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15880 */- {.type IHeader, {.hdr { 4, "then", /* CI_then = 15896 */ colon }}}, /* CIENTRY "then" then 4 h 15904 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15912 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 15920 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15928 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15936 */- {.type IHeader, {.hdr { 5, "begin", /* CI_begin = 15952 */ colon }}}, /* CIENTRY "begin" begin 5 h 15960 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15968 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15976 */- {.type IHeader, {.hdr { 5, "again", /* CI_again = 15992 */ colon }}}, /* CIENTRY "again" again 5 h 16000 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16008 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 16016 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16024 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16032 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16040 */- {.type IHeader, {.hdr { 5, "until", /* CI_until = 16056 */ colon }}}, /* CIENTRY "until" until 5 h 16064 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16072 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16080 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16088 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16096 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16104 */- {.type IHeader, {.hdr { 5, "while", /* CI_while = 16120 */ colon }}}, /* CIENTRY "while" while 5 h 16128 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16136 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16144 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16152 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16160 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15752 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15760 */+ {.type Absolute, {.p 0}}, /* dd 0 15768 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15776 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15784 */+ {.type IHeader, {.hdr { 4, "else", /* CI_else = 15800 */ colon }}}, /* CIENTRY "else" else 4 h 15808 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15816 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 15824 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15832 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15840 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 15848 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 15856 */+ {.type Absolute, {.p 0}}, /* dd 0 15864 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 15872 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15880 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 15888 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15896 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 15904 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15912 */+ {.type IHeader, {.hdr { 4, "then", /* CI_then = 15928 */ colon }}}, /* CIENTRY "then" then 4 h 15936 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 15944 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 15952 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 15960 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 15968 */+ {.type IHeader, {.hdr { 5, "begin", /* CI_begin = 15984 */ colon }}}, /* CIENTRY "begin" begin 5 h 15992 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16000 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16008 */+ {.type IHeader, {.hdr { 5, "again", /* CI_again = 16024 */ colon }}}, /* CIENTRY "again" again 5 h 16032 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16040 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 16048 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16056 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16064 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16072 */+ {.type IHeader, {.hdr { 5, "until", /* CI_until = 16088 */ colon }}}, /* CIENTRY "until" until 5 h 16096 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16104 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16112 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16120 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16128 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16136 */+ {.type IHeader, {.hdr { 5, "while", /* CI_while = 16152 */ colon }}}, /* CIENTRY "while" while 5 h 16160 */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16168 */- {.type Absolute, {.p 0}}, /* dd 0 16176 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16176 */ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16184 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16192 */- {.type IHeader, {.hdr { 6, "repeat", /* CI_repeat = 16208 */ colon }}}, /* CIENTRY "repeat" repeat 6 h 16216 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16224 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 16232 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16240 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16248 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16256 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16264 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16272 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 16280 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16288 */- {.type IHeader, {.hdr { 2, "do", /* CI_do = 16304 */ colon }}}, /* CIENTRY "do" do 2 h 16312 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16320 */- {.type FromH0, {.p M_doinit}, .src = "dd M_doinit ; compile this into the definition. Puts limit and index on the run stack at run time"}, /* dd M_doinit ; compile this into the definition. Puts limit and index on the run stack at run time 16328 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; puts (do) into the dictionary"}, /* dd C_comma ; puts (do) into the dictionary 16336 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16344 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( -- 0 ) 16352 */- {.type FromH0, {.p C_here}, .src = "dd C_here ; ( 0 -- 0 here1 )"}, /* dd C_here ; ( 0 -- 0 here1 ) 16360 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16368 */- {.type IHeader, {.hdr { 4, "loop", /* CI_loop = 16384 */ colon }}}, /* CIENTRY "loop" loop 4 ; ( 0 here1 -- ) h 16392 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16400 */- {.type FromH0, {.p M_doloop}, .src = "dd M_doloop ; ( 0 here1 -- 0 here1 (loop) )"}, /* dd M_doloop ; ( 0 here1 -- 0 here1 (loop) ) 16408 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 )"}, /* dd C_comma ; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 ) 16416 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma ; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 )"}, /* dd C_comma ; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 ) 16424 */- {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 16432 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16440 */- {.type FromH0, {.p L234}, .src = "dd L234"}, /* dd L234 16448 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16456 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16464 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 16472 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16480 */- {.type IHeader, {.hdr { 5, "+loop", /* CI_ploop = 16496 */ colon }}}, /* CIENTRY "+loop" ploop 5 h 16504 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16512 */- {.type FromH0, {.p M_doploop}, .src = "dd M_doploop"}, /* dd M_doploop 16520 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16528 */- {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16536 */- {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 16544 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16552 */- {.type FromH0, {.p L236}, .src = "dd L236"}, /* dd L236 16560 */- {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16568 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16576 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 16584 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16592 */- {.type Header, {.hdr { 3, "w/o", /* C_wo = 16608 */ colon }}}, /* CENTRY "w/o" wo 3 h 16616 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16624 */- {.type Absolute, {.p 1}}, /* dd 1 16632 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16640 */- {.type Absolute, {.p 512}}, /* dd 512 16648 */- {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 16656 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16664 */- {.type Absolute, {.p 64}}, /* dd 64 16672 */- {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 16680 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16688 */- {.type Header, {.hdr { 3, "r/o", /* C_ro = 16704 */ colon }}}, /* CENTRY "r/o" ro 3 h 16712 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16720 */- {.type Absolute, {.p 0}}, /* dd 0 16728 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16736 */- {.type Header, {.hdr { 3, "r/w", /* C_rw = 16752 */ colon }}}, /* CENTRY "r/w" rw 3 h 16760 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16768 */- {.type Absolute, {.p 2}}, /* dd 2 16776 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16784 */- {.type Header, {.hdr { 9, "open-file", /* C_open_file = 16808 */ colon }}}, /* CENTRY "open-file" open_file 9 ; ( a n mode -- fd ioresult ) h 16816 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n mode -- a n ) (R -- mode)"}, /* dd M_rpush ; ( a n mode -- a n ) (R -- mode) 16824 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( a n -- a n padaddr)"}, /* dd C_pad ; ( a n -- a n padaddr) 16832 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16840 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( a n padaddr -- a n padaddr 1024 ) 16848 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( a n padaddr+1024 -- a n padaddr+1024 )"}, /* dd M_plus ; ( a n padaddr+1024 -- a n padaddr+1024 ) 16856 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a n padaddr+1024 -- a padaddr+1024 n )"}, /* dd M_xswap ; ( a n padaddr+1024 -- a padaddr+1024 n ) 16864 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a padaddr+1024 n -- a padaddr+1024 n n )"}, /* dd M_dup ; ( a padaddr+1024 n -- a padaddr+1024 n n ) 16872 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a padaddr+1024 n n -- a padaddr+1024 n ) (R mode -- mode n )"}, /* dd M_rpush ; ( a padaddr+1024 n n -- a padaddr+1024 n ) (R mode -- mode n ) 16880 */- {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; moves the filename from a to paddaddr+1024"}, /* dd M_cmove ; moves the filename from a to paddaddr+1024 16888 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16896 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( -- 0 ) 16904 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( 0 -- 0 n ) (R mode n -- mode)"}, /* dd M_rpop ; ( 0 -- 0 n ) (R mode n -- mode) 16912 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( 0 n -- 0 n padaddr)"}, /* dd C_pad ; ( 0 n -- 0 n padaddr) 16920 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 n padaddr -- 0 padaddr+n )"}, /* dd M_plus ; ( 0 n padaddr -- 0 padaddr+n ) 16928 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16936 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 0 padaddr+n -- 0 padaddr+n 1024 ) 16944 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n 1024 -- 0 padaddr+n+1024 )"}, /* dd M_plus ; ( 0 padaddr+n 1024 -- 0 padaddr+n+1024 ) 16952 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; ( 0 padaddr+n 1024 -- ) makes the filename to a null terminated string"}, /* dd M_cstore ; ( 0 padaddr+n 1024 -- ) makes the filename to a null terminated string 16960 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 16968 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16976 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( -- padaddr 1024 ) 16984 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( padaddr 1024 -- padaddr+1024 )"}, /* dd M_plus ; ( padaddr 1024 -- padaddr+1024 ) 16992 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- )"}, /* dd M_rpop ; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- ) 17000 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; M_literal dd 420 ; ( padaddr+1024 mode 420 ) 420 for hardcoded mode?"}, /* dd M_xswap ; M_literal dd 420 ; ( padaddr+1024 mode 420 ) 420 for hardcoded mode? 17008 */- {.type FromH0, {.p M_fsopen}, .src = "dd M_fsopen"}, /* dd M_fsopen 17016 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 17024 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17032 */- {.type Absolute, {.p -1}}, /* dd -1 17040 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 17048 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17056 */- {.type Header, {.hdr { 10, "close-file", /* C_close_file = 17080 */ colon }}}, /* CENTRY "close-file" close_file 10 ; ( fd -- ioresult ) h 17088 */- {.type FromH0, {.p M_fsclose}, .src = "dd M_fsclose"}, /* dd M_fsclose 17096 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 17104 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17112 */- {.type Header, {.hdr { 9, "read-file", /* C_read_file = 17136 */ colon }}}, /* CENTRY "read-file" read_file 9 ; ( a n fd -- n2 ioresult ) h 17144 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17152 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 17160 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( n a fd )"}, /* dd M_rpop ; ( n a fd ) 17168 */- {.type FromH0, {.p M_fsread}, .src = "dd M_fsread"}, /* dd M_fsread 17176 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 17184 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17192 */- {.type Absolute, {.p -1}}, /* dd -1 17200 */- {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 17208 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17216 */- {.type Header, {.hdr { 10, "write-file", /* C_write_file = 17240 */ colon }}}, /* CENTRY "write-file" write_file 10 ; ( a n fd -- ioresult ) h 17248 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17256 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 17264 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( n a fd )"}, /* dd M_rpop ; ( n a fd ) 17272 */- {.type FromH0, {.p M_fswrite}, .src = "dd M_fswrite"}, /* dd M_fswrite 17280 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17288 */- {.type Absolute, {.p -1}}, /* dd -1 17296 */- {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 17304 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17312 */- {.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 17336 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 ; ( type n fd -- ioresult ) h 17344 */- {.type FromH0, {.p M_fsseek}, .src = "dd M_fsseek"}, /* dd M_fsseek 17352 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17360 */- {.type Absolute, {.p -1}}, /* dd -1 17368 */- {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 17376 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17384 */- {.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 17400 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 17408 */- {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 17416 */- {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17424 */- {.type FromH0, {.p L246}, .src = "dd L246"}, /* dd L246 17432 */- {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 17440 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17448 */- {.type FromH0, {.p L247}, .src = "dd L247"}, /* dd L247 17456 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17464 */- {.type Absolute, {.p 9}}, /* dd 9 17472 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17480 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 17488 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 17496 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17504 */- {.type Header, {.hdr { 11, "create-file", /* C_create_file = 17528 */ 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 17536 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n mode ) (R perm)"}, /* dd M_rpush ; ( a n mode ) (R perm) 17544 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n ) (R perm mode)"}, /* dd M_rpush ; ( a n ) (R perm mode) 17552 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( a n padaddr)"}, /* dd C_pad ; ( a n padaddr) 17560 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17568 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( a n padaddr 1024 ) 17576 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( a n padaddr+1024 )"}, /* dd M_plus ; ( a n padaddr+1024 ) 17584 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a padaddr+1024 n )"}, /* dd M_xswap ; ( a padaddr+1024 n ) 17592 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a padaddr+1024 n n )"}, /* dd M_dup ; ( a padaddr+1024 n n ) 17600 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a padaddr+1024 n ) (R perm mode n )"}, /* dd M_rpush ; ( a padaddr+1024 n ) (R perm mode n ) 17608 */- {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; moves the filename from a to paddaddr+1024"}, /* dd M_cmove ; moves the filename from a to paddaddr+1024 17616 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17624 */- {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) 17632 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( 0 n ) (R perm mode)"}, /* dd M_rpop ; ( 0 n ) (R perm mode) 17640 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( 0 n padaddr)"}, /* dd C_pad ; ( 0 n padaddr) 17648 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n )"}, /* dd M_plus ; ( 0 padaddr+n ) 17656 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17664 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 0 padaddr+n 1024 ) 17672 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n+1024 )"}, /* dd M_plus ; ( 0 padaddr+n+1024 ) 17680 */- {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; ( ) makes the filename to a null terminated string"}, /* dd M_cstore ; ( ) makes the filename to a null terminated string 17688 */- {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 17696 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17704 */- {.type Absolute, {.p 1024}}, /* dd 1024 ; ( padaddr 1024 ) 17712 */- {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( padaddr+1024 )"}, /* dd M_plus ; ( padaddr+1024 ) 17720 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode) (R perm )"}, /* dd M_rpop ; ( padaddr+1024 mode) (R perm ) 17728 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode perm ) (R )"}, /* dd M_rpop ; ( padaddr+1024 mode perm ) (R ) 17736 */- {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( padaddr+1024 perm mode )"}, /* dd M_xswap ; ( padaddr+1024 perm mode ) 17744 */- {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( perm mode padaddr+1024 )"}, /* dd C_rot ; ( perm mode padaddr+1024 ) 17752 */- {.type FromH0, {.p M_fscreate}, .src = "dd M_fscreate"}, /* dd M_fscreate 17760 */- {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 17768 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17776 */- {.type Absolute, {.p -1}}, /* dd -1 17784 */- {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 17792 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17800 */- {.type Header, {.hdr { 3, "bye", /* C_bye = 17816 */ colon }}}, /* CENTRY "bye" bye 3 h 17824 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17832 */- {.type Absolute, {.p 0}}, /* dd 0 17840 */- {.type FromH0, {.p M_terminate}, .src = "dd M_terminate"}, /* dd M_terminate 17848 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17856 */- {.type Header, {.hdr { 7, "include", /* C_include = 17872 */ colon }}}, /* CENTRY "include" include 7 h 17880 */- {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 17888 */- {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 17896 */- {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17904 */- {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 17912 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 17920 */- {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 17928 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 17936 */- {.type FromH0, {.p C_save_input}, .src = "dd C_save_input"}, /* dd C_save_input 17944 */- {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 17952 */- {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 17960 */- {.type FromH0, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 17968 */- {.type FromH0, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 17976 */- {.type FromH0, {.p C_qfcheck}, .src = "dd C_qfcheck"}, /* dd C_qfcheck 17984 */- {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 17992 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18000 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18008 */- {.type Header, {.hdr { 5, "crash", /* C_crash = 18024 */ colon }}}, /* CENTRY "crash" crash 5 h 18032 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18040 */- {.type FromH0, {.p L251}, .src = "dd L251"}, /* dd L251 18048 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18056 */- {.type Absolute, {.p 30}}, /* dd 30 18064 */- {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 18072 */- {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 18080 */- {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 18088 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18096 */- {.type Header, {.hdr { 4, "quit", /* C_quit = 18112 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 18120 */- {.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 18128 */- {.type FromH0, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 18136 */- {.type FromH0, {.p C_query}, .src = "dd C_query"}, /* dd C_query 18144 */-/* ; dd MV_toLimit ; show the line read, for debugging *//* ; dd M_fetch *//* ; dd M_Tib *//* ; dd MC_STDOUT *//* ; dd M_fswrite *//* ; dd M_drop ; drop the return value of write *//* ; dd C_cr *//* ; dd C_space */ {.type FromH0, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 18152 */- {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 18160 */- {.type FromH0, {.p L253}, .src = "dd L253"}, /* dd L253 18168 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed?"}, /* dd M_exitcolon ; why is this needed? 18176 */- {.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 18192 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 18200 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State ; ( mv_State -- )"}, /* dd MV_State ; ( mv_State -- ) 18208 */- {.type FromH0, {.p C_off}, .src = "dd C_off ; off sets variable state = 0"}, /* dd C_off ; off sets variable state = 0 18216 */- {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top of stack"}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 18224 */- {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf ; variable sourcebuf"}, /* dd MV_Sourcebuf ; variable sourcebuf 18232 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; variable sourcebuf = address of tibuffer"}, /* dd M_store ; variable sourcebuf = address of tibuffer 18240 */- {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk ; variable blk"}, /* dd MV_Blk ; variable blk 18248 */- {.type FromH0, {.p C_off}, .src = "dd C_off ; off variable blk = 0"}, /* dd C_off ; off variable blk = 0 18256 */- {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 18264 */- {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 18272 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18280 */- {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 18288 */- {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 18296 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18304 */- {.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 18312 */- {.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 18320 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18328 */- {.type FromH0, {.p C_quit}, .src = "dd C_quit ; quit resets stacks and is the interpreter loop"}, /* dd C_quit ; quit resets stacks and is the interpreter loop 18336 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed? quit does not return unless it breaks"}, /* dd M_exitcolon ; why is this needed? quit does not return unless it breaks 18344 */- {.type Header, {.hdr { 7, "oldboot", /* C_oldboot = 18360 */ colon }}}, /* CENTRY "oldboot" oldboot 7 ; TODO correct below stack notations and this is obsolete. leaving it here for reference until it all works well h 18368 */- {.type FromH0, {.p M_reset}, .src = "dd M_reset"}, /* dd M_reset 18376 */- {.type FromH0, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end"}, /* dd M_clear ; SP = sstack_end 18384 */- {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr ; (D -- FFEND)"}, /* dd M_stackptr ; (D -- FFEND) 18392 */- {.type FromH0, {.p M_S0}, .src = "dd M_S0"}, /* dd M_S0 18400 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; s0 = FFEND"}, /* dd M_store ; s0 = FFEND 18408 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp ; heaptop = heapend"}, /* dd M_Dp ; heaptop = heapend 18416 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( heapend -- )"}, /* dd M_fetch ; ( heapend -- ) 18424 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18432 */- {.type Absolute, {.p 1}}, /* dd 1 ; ( heapend 1 -- ) 18440 */- {.type FromH0, {.p C_cells}, .src = "dd C_cells ; cells ( heapend 8 -- )"}, /* dd C_cells ; cells ( heapend 8 -- ) 18448 */- {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( heapend-8 -- )"}, /* dd M_minus ; ( heapend-8 -- ) 18456 */- {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( contents_from_heapend-8 -- )"}, /* dd M_fetch ; ( contents_from_heapend-8 -- ) 18464 */- {.type FromH0, {.p M_Args}, .src = "dd M_Args ; variable args"}, /* dd M_Args ; variable args 18472 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; args = contents_from_heapend-8"}, /* dd M_store ; args = contents_from_heapend-8 18480 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18488 */- {.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"}, /* dd C_parenabort ; ( (abort) -- ) 18496 */- {.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec ; variable abortvec"}, /* dd MV_Abortvec ; variable abortvec 18504 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; variable abortvec = (abort) code address"}, /* dd M_store ; variable abortvec = (abort) code address 18512 */- {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb ; constant puts address of wordbuffer on the top of stack"}, /* dd M_Wordb ; constant puts address of wordbuffer on the top of stack 18520 */- {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf ; variable wordbuf"}, /* dd MV_Wordbuf ; variable wordbuf 18528 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; variable wordbuf = address of wordbuffer"}, /* dd M_store ; variable wordbuf = address of wordbuffer 18536 */- {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top of stack"}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 18544 */- {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf ; variable sourcebuf"}, /* dd MV_Sourcebuf ; variable sourcebuf 18552 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; variable sourcebuf = address of tibuffer"}, /* dd M_store ; variable sourcebuf = address of tibuffer 18560 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18568 */- {.type Absolute, {.p 0}}, /* dd 0 18576 */- {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 18584 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; stdin = 0"}, /* dd M_store ; stdin = 0 18592 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18600 */- {.type Absolute, {.p 1}}, /* dd 1 18608 */- {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 18616 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; stdout = 1"}, /* dd M_store ; stdout = 1 18624 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 18632 */- {.type FromH0, {.p C_off}, .src = "dd C_off ; off stores 0 at state"}, /* dd C_off ; off stores 0 at state 18640 */- {.type FromH0, {.p C_decimal}, .src = "dd C_decimal ; decimal setting base = 0"}, /* dd C_decimal ; decimal setting base = 0 18648 */- {.type FromH0, {.p C_quit}, .src = "dd C_quit ; quit"}, /* dd C_quit ; quit 18656 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18664 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal ; test code"}, /* dd M_literal ; test code 18672 */- {.type Absolute, {.p 66}}, /* dd 66 18680 */- {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"}, /* dd M_Wordb 18688 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18696 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18704 */- {.type Absolute, {.p 1}}, /* dd 1 18712 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16192 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16200 */+ {.type Absolute, {.p 0}}, /* dd 0 16208 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16216 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16224 */+ {.type IHeader, {.hdr { 6, "repeat", /* CI_repeat = 16240 */ colon }}}, /* CIENTRY "repeat" repeat 6 h 16248 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16256 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 16264 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16272 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16280 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16288 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16296 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16304 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 16312 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16320 */+ {.type IHeader, {.hdr { 2, "do", /* CI_do = 16336 */ colon }}}, /* CIENTRY "do" do 2 h 16344 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16352 */+ {.type FromH0, {.p M_doinit}, .src = "dd M_doinit ; compile this into the definition. Puts limit and index on the run stack at run time"}, /* dd M_doinit ; compile this into the definition. Puts limit and index on the run stack at run time 16360 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; puts (do) into the dictionary"}, /* dd C_comma ; puts (do) into the dictionary 16368 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16376 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( -- 0 ) 16384 */+ {.type FromH0, {.p C_here}, .src = "dd C_here ; ( 0 -- 0 here1 )"}, /* dd C_here ; ( 0 -- 0 here1 ) 16392 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16400 */+ {.type IHeader, {.hdr { 4, "loop", /* CI_loop = 16416 */ colon }}}, /* CIENTRY "loop" loop 4 ; ( 0 here1 -- ) h 16424 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16432 */+ {.type FromH0, {.p M_doloop}, .src = "dd M_doloop ; ( 0 here1 -- 0 here1 (loop) )"}, /* dd M_doloop ; ( 0 here1 -- 0 here1 (loop) ) 16440 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 )"}, /* dd C_comma ; dictionary has (do) ... (loop) ( 0 here1 (loop) -- 0 here1 ) 16448 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma ; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 )"}, /* dd C_comma ; dictionary has (do) ... (loop) here1 ( 0 here1 -- 0 ) 16456 */+ {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 16464 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16472 */+ {.type FromH0, {.p L234}, .src = "dd L234"}, /* dd L234 16480 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16488 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16496 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 16504 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16512 */+ {.type IHeader, {.hdr { 5, "+loop", /* CI_ploop = 16528 */ colon }}}, /* CIENTRY "+loop" ploop 5 h 16536 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16544 */+ {.type FromH0, {.p M_doploop}, .src = "dd M_doploop"}, /* dd M_doploop 16552 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16560 */+ {.type FromH0, {.p C_comma}, .src = "dd C_comma"}, /* dd C_comma 16568 */+ {.type FromH0, {.p C_qdup}, .src = "dd C_qdup"}, /* dd C_qdup 16576 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 16584 */+ {.type FromH0, {.p L236}, .src = "dd L236"}, /* dd L236 16592 */+ {.type FromH0, {.p C_here}, .src = "dd C_here"}, /* dd C_here 16600 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap"}, /* dd M_xswap 16608 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 16616 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16624 */+ {.type Header, {.hdr { 3, "w/o", /* C_wo = 16640 */ colon }}}, /* CENTRY "w/o" wo 3 h 16648 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16656 */+ {.type Absolute, {.p 1}}, /* dd 1 16664 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16672 */+ {.type Absolute, {.p 512}}, /* dd 512 16680 */+ {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 16688 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16696 */+ {.type Absolute, {.p 64}}, /* dd 64 16704 */+ {.type FromH0, {.p M_binor}, .src = "dd M_binor"}, /* dd M_binor 16712 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16720 */+ {.type Header, {.hdr { 3, "r/o", /* C_ro = 16736 */ colon }}}, /* CENTRY "r/o" ro 3 h 16744 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16752 */+ {.type Absolute, {.p 0}}, /* dd 0 16760 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16768 */+ {.type Header, {.hdr { 3, "r/w", /* C_rw = 16784 */ colon }}}, /* CENTRY "r/w" rw 3 h 16792 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16800 */+ {.type Absolute, {.p 2}}, /* dd 2 16808 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 16816 */+ {.type Header, {.hdr { 9, "open-file", /* C_open_file = 16840 */ colon }}}, /* CENTRY "open-file" open_file 9 ; ( a n mode -- fd ioresult ) h 16848 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n mode -- a n ) (R -- mode)"}, /* dd M_rpush ; ( a n mode -- a n ) (R -- mode) 16856 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( a n -- a n padaddr)"}, /* dd C_pad ; ( a n -- a n padaddr) 16864 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16872 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( a n padaddr -- a n padaddr 1024 ) 16880 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( a n padaddr+1024 -- a n padaddr+1024 )"}, /* dd M_plus ; ( a n padaddr+1024 -- a n padaddr+1024 ) 16888 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a n padaddr+1024 -- a padaddr+1024 n )"}, /* dd M_xswap ; ( a n padaddr+1024 -- a padaddr+1024 n ) 16896 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a padaddr+1024 n -- a padaddr+1024 n n )"}, /* dd M_dup ; ( a padaddr+1024 n -- a padaddr+1024 n n ) 16904 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a padaddr+1024 n n -- a padaddr+1024 n ) (R mode -- mode n )"}, /* dd M_rpush ; ( a padaddr+1024 n n -- a padaddr+1024 n ) (R mode -- mode n ) 16912 */+ {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; moves the filename from a to paddaddr+1024"}, /* dd M_cmove ; moves the filename from a to paddaddr+1024 16920 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16928 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( -- 0 ) 16936 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( 0 -- 0 n ) (R mode n -- mode)"}, /* dd M_rpop ; ( 0 -- 0 n ) (R mode n -- mode) 16944 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( 0 n -- 0 n padaddr)"}, /* dd C_pad ; ( 0 n -- 0 n padaddr) 16952 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 n padaddr -- 0 padaddr+n )"}, /* dd M_plus ; ( 0 n padaddr -- 0 padaddr+n ) 16960 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 16968 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 0 padaddr+n -- 0 padaddr+n 1024 ) 16976 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n 1024 -- 0 padaddr+n+1024 )"}, /* dd M_plus ; ( 0 padaddr+n 1024 -- 0 padaddr+n+1024 ) 16984 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; ( 0 padaddr+n 1024 -- ) makes the filename to a null terminated string"}, /* dd M_cstore ; ( 0 padaddr+n 1024 -- ) makes the filename to a null terminated string 16992 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 17000 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17008 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( -- padaddr 1024 ) 17016 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( padaddr 1024 -- padaddr+1024 )"}, /* dd M_plus ; ( padaddr 1024 -- padaddr+1024 ) 17024 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- )"}, /* dd M_rpop ; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- ) 17032 */+ {.type FromH0, {.p M_sysopen}, .src = "dd M_sysopen"}, /* dd M_sysopen 17040 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 17048 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17056 */+ {.type Absolute, {.p -1}}, /* dd -1 17064 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 17072 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17080 */+ {.type Header, {.hdr { 10, "close-file", /* C_close_file = 17104 */ colon }}}, /* CENTRY "close-file" close_file 10 ; ( fd -- ioresult ) h 17112 */+ {.type FromH0, {.p M_sysclose}, .src = "dd M_sysclose"}, /* dd M_sysclose 17120 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 17128 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17136 */+ {.type Header, {.hdr { 9, "read-file", /* C_read_file = 17160 */ colon }}}, /* CENTRY "read-file" read_file 9 ; ( a n fd -- n2 ioresult ) h 17168 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( n fd a )"}, /* dd C_rot ; ( n fd a ) 17176 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( fd a n )"}, /* dd C_rot ; ( fd a n ) 17184 */+ {.type FromH0, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 17192 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 17200 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17208 */+ {.type Absolute, {.p -1}}, /* dd -1 17216 */+ {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 17224 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17232 */+ {.type Header, {.hdr { 10, "write-file", /* C_write_file = 17256 */ colon }}}, /* CENTRY "write-file" write_file 10 ; ( a n fd -- ioresult ) h 17264 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( n fd a )"}, /* dd C_rot ; ( n fd a ) 17272 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( fd a n )"}, /* dd C_rot ; ( fd a n ) 17280 */+ {.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 17288 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17296 */+ {.type Absolute, {.p -1}}, /* dd -1 17304 */+ {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 17312 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17320 */+ {.type Header, {.hdr { 15, "reposition-file", /* C_reposition_file = 17344 */ colon }}}, /* CENTRY "reposition-file" reposition_file 15 ; ( type n fd -- ioresult ) h 17352 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( type fd n )"}, /* dd M_xswap ; ( type fd n ) 17360 */+ {.type FromH0, {.p C_rot}, .src = "dd C_rot ; ( fd n type )"}, /* dd C_rot ; ( fd n type ) 17368 */+ {.type FromH0, {.p M_sysseek}, .src = "dd M_sysseek"}, /* dd M_sysseek 17376 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17384 */+ {.type Absolute, {.p -1}}, /* dd -1 17392 */+ {.type FromH0, {.p C_neq}, .src = "dd C_neq"}, /* dd C_neq 17400 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17408 */+ {.type Header, {.hdr { 7, "?fcheck", /* C_qfcheck = 17424 */ colon }}}, /* CENTRY "?fcheck" qfcheck 7 h 17432 */+ {.type FromH0, {.p C_0eq}, .src = "dd C_0eq"}, /* dd C_0eq 17440 */+ {.type FromH0, {.p M_cjump}, .src = "dd M_cjump"}, /* dd M_cjump 17448 */+ {.type FromH0, {.p L246}, .src = "dd L246"}, /* dd L246 17456 */+ {.type FromH0, {.p C_space}, .src = "dd C_space"}, /* dd C_space 17464 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17472 */+ {.type FromH0, {.p L247}, .src = "dd L247"}, /* dd L247 17480 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17488 */+ {.type Absolute, {.p 9}}, /* dd 9 17496 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 17504 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 17512 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 17520 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17528 */+ {.type Header, {.hdr { 11, "create-file", /* C_create_file = 17552 */ 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 17560 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n mode ) (R perm)"}, /* dd M_rpush ; ( a n mode ) (R perm) 17568 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a n ) (R perm mode)"}, /* dd M_rpush ; ( a n ) (R perm mode) 17576 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( a n padaddr)"}, /* dd C_pad ; ( a n padaddr) 17584 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17592 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( a n padaddr 1024 ) 17600 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( a n padaddr+1024 )"}, /* dd M_plus ; ( a n padaddr+1024 ) 17608 */+ {.type FromH0, {.p M_xswap}, .src = "dd M_xswap ; ( a padaddr+1024 n )"}, /* dd M_xswap ; ( a padaddr+1024 n ) 17616 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup ; ( a padaddr+1024 n n )"}, /* dd M_dup ; ( a padaddr+1024 n n ) 17624 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush ; ( a padaddr+1024 n ) (R perm mode n )"}, /* dd M_rpush ; ( a padaddr+1024 n ) (R perm mode n ) 17632 */+ {.type FromH0, {.p M_cmove}, .src = "dd M_cmove ; moves the filename from a to paddaddr+1024"}, /* dd M_cmove ; moves the filename from a to paddaddr+1024 17640 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17648 */+ {.type Absolute, {.p 0}}, /* dd 0 ; ( 0 ) 17656 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( 0 n ) (R perm mode)"}, /* dd M_rpop ; ( 0 n ) (R perm mode) 17664 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad ; ( 0 n padaddr)"}, /* dd C_pad ; ( 0 n padaddr) 17672 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n )"}, /* dd M_plus ; ( 0 padaddr+n ) 17680 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17688 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( 0 padaddr+n 1024 ) 17696 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( 0 padaddr+n+1024 )"}, /* dd M_plus ; ( 0 padaddr+n+1024 ) 17704 */+ {.type FromH0, {.p M_cstore}, .src = "dd M_cstore ; ( ) makes the filename to a null terminated string"}, /* dd M_cstore ; ( ) makes the filename to a null terminated string 17712 */+ {.type FromH0, {.p C_pad}, .src = "dd C_pad"}, /* dd C_pad 17720 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17728 */+ {.type Absolute, {.p 1024}}, /* dd 1024 ; ( padaddr 1024 ) 17736 */+ {.type FromH0, {.p M_plus}, .src = "dd M_plus ; ( padaddr+1024 )"}, /* dd M_plus ; ( padaddr+1024 ) 17744 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode) (R perm )"}, /* dd M_rpop ; ( padaddr+1024 mode) (R perm ) 17752 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop ; ( padaddr+1024 mode perm ) (R )"}, /* dd M_rpop ; ( padaddr+1024 mode perm ) (R ) 17760 */+ {.type FromH0, {.p M_syscreate}, .src = "dd M_syscreate"}, /* dd M_syscreate 17768 */+ {.type FromH0, {.p M_dup}, .src = "dd M_dup"}, /* dd M_dup 17776 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17784 */+ {.type Absolute, {.p -1}}, /* dd -1 17792 */+ {.type FromH0, {.p M_greater}, .src = "dd M_greater"}, /* dd M_greater 17800 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17808 */+ {.type Header, {.hdr { 3, "bye", /* C_bye = 17824 */ colon }}}, /* CENTRY "bye" bye 3 h 17832 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 17840 */+ {.type Absolute, {.p 0}}, /* dd 0 17848 */+ {.type FromH0, {.p M_terminate}, .src = "dd M_terminate"}, /* dd M_terminate 17856 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 17864 */+ {.type Header, {.hdr { 7, "include", /* C_include = 17880 */ colon }}}, /* CENTRY "include" include 7 h 17888 */+ {.type FromH0, {.p C_bl}, .src = "dd C_bl"}, /* dd C_bl 17896 */+ {.type FromH0, {.p C_word}, .src = "dd C_word"}, /* dd C_word 17904 */+ {.type FromH0, {.p M_rpush}, .src = "dd M_rpush"}, /* dd M_rpush 17912 */+ {.type FromH0, {.p MV_toLimit}, .src = "dd MV_toLimit"}, /* dd MV_toLimit 17920 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch"}, /* dd M_fetch 17928 */+ {.type FromH0, {.p MV_toIn}, .src = "dd MV_toIn"}, /* dd MV_toIn 17936 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 17944 */+ {.type FromH0, {.p C_save_input}, .src = "dd C_save_input"}, /* dd C_save_input 17952 */+ {.type FromH0, {.p M_rpop}, .src = "dd M_rpop"}, /* dd M_rpop 17960 */+ {.type FromH0, {.p C_count}, .src = "dd C_count"}, /* dd C_count 17968 */+ {.type FromH0, {.p C_ro}, .src = "dd C_ro"}, /* dd C_ro 17976 */+ {.type FromH0, {.p C_open_file}, .src = "dd C_open_file"}, /* dd C_open_file 17984 */+ {.type FromH0, {.p C_qfcheck}, .src = "dd C_qfcheck"}, /* dd C_qfcheck 17992 */+ {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 18000 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18008 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18016 */+ {.type Header, {.hdr { 5, "crash", /* C_crash = 18032 */ colon }}}, /* CENTRY "crash" crash 5 h 18040 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18048 */+ {.type FromH0, {.p L251}, .src = "dd L251"}, /* dd L251 18056 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18064 */+ {.type Absolute, {.p 30}}, /* dd 30 18072 */+ {.type FromH0, {.p C_type}, .src = "dd C_type"}, /* dd C_type 18080 */+ {.type FromH0, {.p C_cr}, .src = "dd C_cr"}, /* dd C_cr 18088 */+ {.type FromH0, {.p C_abort}, .src = "dd C_abort"}, /* dd C_abort 18096 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18104 */+ {.type Header, {.hdr { 4, "quit", /* C_quit = 18120 */ colon }}}, /* CENTRY "quit" quit 4 ; interpreter loop h 18128 */+ {.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 18136 */+ {.type FromH0, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 18144 */+ {.type FromH0, {.p C_query}, .src = "dd C_query"}, /* dd C_query 18152 */+/* ; dd MV_toLimit ; show the line read, for debugging *//* ; dd M_fetch *//* ; dd M_Tib *//* ; dd MC_STDOUT *//* ; dd M_fswrite *//* ; dd M_drop ; drop the return value of write *//* ; dd C_cr *//* ; dd C_space */ {.type FromH0, {.p C_interpret}, .src = "dd C_interpret"}, /* dd C_interpret 18160 */+ {.type FromH0, {.p M_jump}, .src = "dd M_jump"}, /* dd M_jump 18168 */+ {.type FromH0, {.p L253}, .src = "dd L253"}, /* dd L253 18176 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed?"}, /* dd M_exitcolon ; why is this needed? 18184 */+ {.type Header, {.hdr { 7, "(abort)", /* C_parenabort = 18200 */ colon }}}, /* CENTRY "(abort)" parenabort 7 ; TODO correct below stack notations h 18208 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State ; ( mv_State -- )"}, /* dd MV_State ; ( mv_State -- ) 18216 */+ {.type FromH0, {.p C_off}, .src = "dd C_off ; off sets variable state = 0"}, /* dd C_off ; off sets variable state = 0 18224 */+ {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top of stack"}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 18232 */+ {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf ; variable sourcebuf"}, /* dd MV_Sourcebuf ; variable sourcebuf 18240 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; variable sourcebuf = address of tibuffer"}, /* dd M_store ; variable sourcebuf = address of tibuffer 18248 */+ {.type FromH0, {.p MV_Blk}, .src = "dd MV_Blk ; variable blk"}, /* dd MV_Blk ; variable blk 18256 */+ {.type FromH0, {.p C_off}, .src = "dd C_off ; off variable blk = 0"}, /* dd C_off ; off variable blk = 0 18264 */+ {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 18272 */+ {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 18280 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18288 */+ {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 18296 */+ {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 18304 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18312 */+ {.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 18320 */+ {.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 18328 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18336 */+ {.type FromH0, {.p C_quit}, .src = "dd C_quit ; quit resets stacks and is the interpreter loop"}, /* dd C_quit ; quit resets stacks and is the interpreter loop 18344 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon ; why is this needed? quit does not return unless it breaks"}, /* dd M_exitcolon ; why is this needed? quit does not return unless it breaks 18352 */+ {.type Header, {.hdr { 7, "oldboot", /* C_oldboot = 18368 */ colon }}}, /* CENTRY "oldboot" oldboot 7 ; TODO correct below stack notations and this is obsolete. leaving it here for reference until it all works well h 18376 */+ {.type FromH0, {.p M_reset}, .src = "dd M_reset"}, /* dd M_reset 18384 */+ {.type FromH0, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end"}, /* dd M_clear ; SP = sstack_end 18392 */+ {.type FromH0, {.p M_stackptr}, .src = "dd M_stackptr ; (D -- FFEND)"}, /* dd M_stackptr ; (D -- FFEND) 18400 */+ {.type FromH0, {.p M_S0}, .src = "dd M_S0"}, /* dd M_S0 18408 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; s0 = FFEND"}, /* dd M_store ; s0 = FFEND 18416 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp ; heaptop = heapend"}, /* dd M_Dp ; heaptop = heapend 18424 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( heapend -- )"}, /* dd M_fetch ; ( heapend -- ) 18432 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18440 */+ {.type Absolute, {.p 1}}, /* dd 1 ; ( heapend 1 -- ) 18448 */+ {.type FromH0, {.p C_cells}, .src = "dd C_cells ; cells ( heapend 8 -- )"}, /* dd C_cells ; cells ( heapend 8 -- ) 18456 */+ {.type FromH0, {.p M_minus}, .src = "dd M_minus ; ( heapend-8 -- )"}, /* dd M_minus ; ( heapend-8 -- ) 18464 */+ {.type FromH0, {.p M_fetch}, .src = "dd M_fetch ; ( contents_from_heapend-8 -- )"}, /* dd M_fetch ; ( contents_from_heapend-8 -- ) 18472 */+ {.type FromH0, {.p M_Args}, .src = "dd M_Args ; variable args"}, /* dd M_Args ; variable args 18480 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; args = contents_from_heapend-8"}, /* dd M_store ; args = contents_from_heapend-8 18488 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18496 */+ {.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"}, /* dd C_parenabort ; ( (abort) -- ) 18504 */+ {.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec ; variable abortvec"}, /* dd MV_Abortvec ; variable abortvec 18512 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; variable abortvec = (abort) code address"}, /* dd M_store ; variable abortvec = (abort) code address 18520 */+ {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb ; constant puts address of wordbuffer on the top of stack"}, /* dd M_Wordb ; constant puts address of wordbuffer on the top of stack 18528 */+ {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf ; variable wordbuf"}, /* dd MV_Wordbuf ; variable wordbuf 18536 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; variable wordbuf = address of wordbuffer"}, /* dd M_store ; variable wordbuf = address of wordbuffer 18544 */+ {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top of stack"}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 18552 */+ {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf ; variable sourcebuf"}, /* dd MV_Sourcebuf ; variable sourcebuf 18560 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; variable sourcebuf = address of tibuffer"}, /* dd M_store ; variable sourcebuf = address of tibuffer 18568 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18576 */+ {.type Absolute, {.p 0}}, /* dd 0 18584 */+ {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 18592 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; stdin = 0"}, /* dd M_store ; stdin = 0 18600 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18608 */+ {.type Absolute, {.p 1}}, /* dd 1 18616 */+ {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 18624 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; stdout = 1"}, /* dd M_store ; stdout = 1 18632 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 18640 */+ {.type FromH0, {.p C_off}, .src = "dd C_off ; off stores 0 at state"}, /* dd C_off ; off stores 0 at state 18648 */+ {.type FromH0, {.p C_decimal}, .src = "dd C_decimal ; decimal setting base = 0"}, /* dd C_decimal ; decimal setting base = 0 18656 */+ {.type FromH0, {.p C_quit}, .src = "dd C_quit ; quit"}, /* dd C_quit ; quit 18664 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 18672 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal ; test code"}, /* dd M_literal ; test code 18680 */+ {.type Absolute, {.p 66}}, /* dd 66 18688 */+ {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"}, /* dd M_Wordb 18696 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18704 */+ {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 18712 */ {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"}, /* dd M_Wordb 18720 */- {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 18728 */- {.type FromH0, {.p M_fswrite}, .src = "dd M_fswrite"}, /* dd M_fswrite 18736 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 18744 */- {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18752 */- {.type Absolute, {.p 1}}, /* dd 1 18760 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18728 */+ {.type Absolute, {.p 1}}, /* dd 1 18736 */+ {.type FromH0, {.p M_syswrite}, .src = "dd M_syswrite"}, /* dd M_syswrite 18744 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of write"}, /* dd M_drop ; drop the return value of write 18752 */+ {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 18760 */ {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb"}, /* dd M_Wordb 18768 */- {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 18776 */- {.type FromH0, {.p M_fsread}, .src = "dd M_fsread"}, /* dd M_fsread 18784 */- {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of read"}, /* dd M_drop ; drop the return value of read 18792 */- {.type Header, {.hdr { 4, "boot", /* C_boot = 18808 */ colon }}}, /* CENTRY "boot" boot 4 h 18816 */- {.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 18824 */- {.type FromH0, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 18832 */-/* ; s0 puts FFEND on the stack *//* ; no args */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18840 */- {.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"}, /* dd C_parenabort ; ( (abort) -- ) 18848 */- {.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec ; variable that puts (abort) code address on the stack"}, /* dd MV_Abortvec ; variable that puts (abort) code address on the stack 18856 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; variable abortvec = (abort) code address"}, /* dd M_store ; variable abortvec = (abort) code address 18864 */- {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb ; variable puts address of wordbuffer on the top of stack"}, /* dd M_Wordb ; variable puts address of wordbuffer on the top of stack 18872 */- {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf ; variable wordbuf"}, /* dd MV_Wordbuf ; variable wordbuf 18880 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; variable wordbuf = address of wordbuffer"}, /* dd M_store ; variable wordbuf = address of wordbuffer 18888 */- {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top of stack"}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 18896 */- {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf ; variable sourcebuf"}, /* dd MV_Sourcebuf ; variable sourcebuf 18904 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; variable sourcebuf = address of tibuffer"}, /* dd M_store ; variable sourcebuf = address of tibuffer 18912 */- {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 18920 */- {.type FromH0, {.p MV_H0}, .src = "dd MV_H0 ; H0 = here at startup"}, /* dd MV_H0 ; H0 = here at startup 18928 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18936 */- {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 18944 */- {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 18952 */- {.type FromH0, {.p M_store}, .src = "dd M_store ; stdin = 0"}, /* dd M_store ; stdin = 0 18960 */- {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 18968 */- {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 18976 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18984 */- {.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 18992 */- {.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 19000 */- {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 19008 */- {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 19016 */- {.type FromH0, {.p C_off}, .src = "dd C_off ; off stores 0 at state"}, /* dd C_off ; off stores 0 at state 19024 */- {.type FromH0, {.p C_decimal}, .src = "dd C_decimal ; decimal sets base = 10"}, /* dd C_decimal ; decimal sets base = 10 19032 */- {.type FromH0, {.p C_quit}, .src = "dd C_quit ; quit"}, /* dd C_quit ; quit 19040 */- {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19048 */- {.type Chars, {.str "unable to restore input"}}, /* 19072 */- {.type Chars, {.str " Q?"}}, /* 19076 */- {.type Chars, {.str " stack underflow"}}, /* 19093 */- {.type Chars, {.str " I?"}}, /* 19097 */- {.type Chars, {.str " C?"}}, /* 19101 */- {.type Chars, {.str "I/O error"}}, /* 19111 */- {.type Chars, {.str "uninitialized execution vector"}}, /* 19142 */- {.type Chars, {.str " ok"}}, /* 19146 */+ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18776 */+ {.type Absolute, {.p 1}}, /* dd 1 18784 */+ {.type FromH0, {.p M_sysread}, .src = "dd M_sysread"}, /* dd M_sysread 18792 */+ {.type FromH0, {.p M_drop}, .src = "dd M_drop ; drop the return value of read"}, /* dd M_drop ; drop the return value of read 18800 */+ {.type Header, {.hdr { 4, "boot", /* C_boot = 18816 */ colon }}}, /* CENTRY "boot" boot 4 h 18824 */+ {.type FromH0, {.p M_reset}, .src = "dd M_reset ; initialize return stack"}, /* dd M_reset ; initialize return stack 18832 */+ {.type FromH0, {.p M_clear}, .src = "dd M_clear ; SP = sstack_end initialize data stack"}, /* dd M_clear ; SP = sstack_end initialize data stack 18840 */+/* ; s0 puts FFEND on the stack *//* ; no args */ {.type FromH0, {.p M_literal}, .src = "dd M_literal"}, /* dd M_literal 18848 */+ {.type FromH0, {.p C_parenabort}, .src = "dd C_parenabort ; ( (abort) -- )"}, /* dd C_parenabort ; ( (abort) -- ) 18856 */+ {.type FromH0, {.p MV_Abortvec}, .src = "dd MV_Abortvec ; variable that puts (abort) code address on the stack"}, /* dd MV_Abortvec ; variable that puts (abort) code address on the stack 18864 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; variable abortvec = (abort) code address"}, /* dd M_store ; variable abortvec = (abort) code address 18872 */+ {.type FromH0, {.p M_Wordb}, .src = "dd M_Wordb ; variable puts address of wordbuffer on the top of stack"}, /* dd M_Wordb ; variable puts address of wordbuffer on the top of stack 18880 */+ {.type FromH0, {.p MV_Wordbuf}, .src = "dd MV_Wordbuf ; variable wordbuf"}, /* dd MV_Wordbuf ; variable wordbuf 18888 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; variable wordbuf = address of wordbuffer"}, /* dd M_store ; variable wordbuf = address of wordbuffer 18896 */+ {.type FromH0, {.p M_Tib}, .src = "dd M_Tib ; constant puts address of tibuffer on the top of stack"}, /* dd M_Tib ; constant puts address of tibuffer on the top of stack 18904 */+ {.type FromH0, {.p MV_Sourcebuf}, .src = "dd MV_Sourcebuf ; variable sourcebuf"}, /* dd MV_Sourcebuf ; variable sourcebuf 18912 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; variable sourcebuf = address of tibuffer"}, /* dd M_store ; variable sourcebuf = address of tibuffer 18920 */+ {.type FromH0, {.p M_Dp}, .src = "dd M_Dp"}, /* dd M_Dp 18928 */+ {.type FromH0, {.p MV_H0}, .src = "dd MV_H0 ; H0 = here at startup"}, /* dd MV_H0 ; H0 = here at startup 18936 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18944 */+ {.type FromH0, {.p MC_STDIN}, .src = "dd MC_STDIN"}, /* dd MC_STDIN 18952 */+ {.type FromH0, {.p MV_Infd}, .src = "dd MV_Infd"}, /* dd MV_Infd 18960 */+ {.type FromH0, {.p M_store}, .src = "dd M_store ; stdin = 0"}, /* dd M_store ; stdin = 0 18968 */+ {.type FromH0, {.p MC_STDOUT}, .src = "dd MC_STDOUT"}, /* dd MC_STDOUT 18976 */+ {.type FromH0, {.p MV_Outfd}, .src = "dd MV_Outfd"}, /* dd MV_Outfd 18984 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 18992 */+ {.type FromH0, {.p MC_STDERR}, .src = "dd MC_STDERR"}, /* dd MC_STDERR 19000 */+ {.type FromH0, {.p MV_Errfd}, .src = "dd MV_Errfd"}, /* dd MV_Errfd 19008 */+ {.type FromH0, {.p M_store}, .src = "dd M_store"}, /* dd M_store 19016 */+ {.type FromH0, {.p MV_State}, .src = "dd MV_State"}, /* dd MV_State 19024 */+ {.type FromH0, {.p C_off}, .src = "dd C_off ; off stores 0 at state"}, /* dd C_off ; off stores 0 at state 19032 */+ {.type FromH0, {.p C_decimal}, .src = "dd C_decimal ; decimal sets base = 10"}, /* dd C_decimal ; decimal sets base = 10 19040 */+ {.type FromH0, {.p C_quit}, .src = "dd C_quit ; quit"}, /* dd C_quit ; quit 19048 */+ {.type FromH0, {.p M_exitcolon}, .src = "dd M_exitcolon"}, /* dd M_exitcolon 19056 */+ {.type Chars, {.str "unable to restore input"}}, /* 19080 */+ {.type Chars, {.str " Q?"}}, /* 19084 */+ {.type Chars, {.str " stack underflow"}}, /* 19101 */+ {.type Chars, {.str " I?"}}, /* 19105 */+ {.type Chars, {.str " C?"}}, /* 19109 */+ {.type Chars, {.str "I/O error"}}, /* 19119 */+ {.type Chars, {.str "uninitialized execution vector"}}, /* 19150 */+ {.type Chars, {.str " ok"}}, /* 19154 */};
--- a/os/pc64/forth.s
+++ b/os/pc64/forth.s
@@ -26,8 +26,8 @@
RSP: R8 return stack pointer, grows towards higher memory (upwards)
IP: R9 instruction pointer
W: R10 work register (holds CFA)
- UP: R11 register holding the start of this process's heap memory
- UPE: R12 register holding the end of this process's heap memory -- TODO, use this
+ UM: R11 register holding the start of this process's heap memory
+ UME: R12 register holding the end of this process's heap memory -- TODO, use this
CX, SI, DI, R13 temporary registers
coding standard
@@ -74,8 +74,8 @@
|
|
User dictionary upto n pages from the start
-UPE: heap end
-UP: heap start
+UME: heap end
+UM: heap start
forth constants
low memory
@@ -91,8 +91,8 @@
#define RSP R8 /* return stack pointer, grows towards higher memory (upwards) */
#define IP R9 /* instruction pointer */
#define W R10/* work register (holds CFA) */
-#define UP R11/* start of heap memory */
-#define UPE R12/* end of heap memory */
+#define UM R11/* start of heap memory */
+#define UME R12/* end of heap memory */
#define PSTACK_SIZE BY2PG
#define RSTACK_SIZE BY2PG
@@ -113,17 +113,17 @@
TEXT forthmain(SB), 1, $-4 /* no stack storage required */
/* Argument has the start of heap */
- MOVQ RARG, UP /* start of heap memory */
- MOVQ 8(UP), UPE /* HEAPEND populated by the caller */
+ MOVQ RARG, UM /* start of heap memory */
+ MOVQ 8(UM), UME /* HEAPEND populated by the caller */
- MOVQ UP, RSP
+ MOVQ UM, RSP
ADDQ $RSTACK, RSP /* return stack pointer, reset */
- MOVQ UP, PSP
+ MOVQ UM, PSP
ADDQ $PSTACK, PSP /* parameter stack pointer - stack setup, clear */
/* execute boot */
- MOVQ UP, CX
+ MOVQ UM, CX
ADDQ $DTOP, CX /* address of last defined word (c_boot) is at DTOP */
MOVQ (CX), IP /* IP = address of c_boot */
ADDQ $24, IP /* to get to the parameter field address of boot word */
@@ -157,12 +157,12 @@
NEXT
TEXT reset(SB), 1, $-4
- MOVQ UP, RSP
+ MOVQ UM, RSP
ADDQ $RSTACK, RSP
NEXT
TEXT clear(SB), 1, $-4
- MOVQ UP, PSP
+ MOVQ UM, PSP
ADDQ $PSTACK, PSP
NEXT
@@ -583,31 +583,31 @@
/* static locations */
TEXT S0(SB), 1, $-4 /* S0 needs a calculation to come up with the value */
PUSH(TOP)
- MOVQ UP, TOP
+ MOVQ UM, TOP
ADDQ $PSTACK, TOP
NEXT
TEXT Wordb(SB), 1, $-4 /* WORDB location */
PUSH(TOP)
- MOVQ UP, TOP
+ MOVQ UM, TOP
ADDQ $WORDB, TOP
NEXT
TEXT Tib(SB), 1, $-4 /* TIB location */
PUSH(TOP)
- MOVQ UP, TOP
+ MOVQ UM, TOP
ADDQ $TIB, TOP
NEXT
TEXT Dp(SB), 1, $-4 /* S0 needs a calculation to come up with the value */
PUSH(TOP)
- MOVQ UP, TOP
+ MOVQ UM, TOP
ADDQ $HERE, TOP
NEXT
TEXT Dtop(SB), 1, $-4 /* S0 needs a calculation to come up with the value */
PUSH(TOP)
- MOVQ UP, TOP
+ MOVQ UM, TOP
ADDQ $DTOP, TOP
NEXT
@@ -614,13 +614,13 @@
/* Dp for the variable space */
TEXT Vp(SB), 1, $-4 /* S0 needs a calculation to come up with the value */
PUSH(TOP)
- MOVQ UP, TOP
+ MOVQ UM, TOP
ADDQ $VHERE, TOP
NEXT
TEXT Args(SB), 1, $-4
PUSH(TOP)
- MOVQ UP, TOP
+ MOVQ UM, TOP
ADDQ $ARGS, TOP
NEXT
@@ -628,7 +628,7 @@
* variables used by the core words. Using variable code word instead of known locations.
#define VARIABLE(name, location) TEXT name(SB), 1, $-4 ;\
PUSH(TOP); \
- MOVQ UP, TOP ;\
+ MOVQ UM, TOP ;\
ADDQ location, TOP ;\
NEXT;
VARIABLE(Tib, $TIB)
@@ -644,49 +644,48 @@
argument 1 in TOP = address
return value in TOP
-1 0 1
- if UP < address < UPE
+ if UM < address < UME
return 0 within range
- else if address < UP
- return -1 below UP
- else if UPE < address
- return 1 above UP
+ else if address < UM
+ return -1 below UM
+ else if UME < address
+ return 1 above UM
*/
-TEXT inup(SB), 1, $-4
- CMPQ TOP, UPE
- JGT aboveupe /* a > UPE */
- CMPQ TOP, UP
- JLT belowup /* a < UP */
+TEXT inum(SB), 1, $-4
+ CMPQ TOP, UME
+ JGT aboveume /* a > UME */
+ CMPQ TOP, UM
+ JLT belowum /* a < UM */
MOVQ $0, TOP /* could use XORQ TOP, TOP to zero too */
RET
-belowup:
+belowum:
MOVQ $-1, TOP
RET
-aboveupe:
+aboveume:
MOVQ $1, TOP
RET
/*
callable by forth primitives to check address
- ( n a -- -1|0|1 )
- argument 1 in TOP = address
+ argument 2 = address
return value in TOP
-1 0 1
- if UP < address && address+n < UPE
+ if UM < address && address+n < UME
return 0 within range
- else if address < UP
- return -1 below UP
- else if UPE < address+n
- return 1 above UP
+ else if address < UM
+ return -1 below UM
+ else if UME < address+n
+ return 1 above UM
*/
-TEXT bufinup(SB), 1, $-4
- POP(CX)
- CMPQ CX, $0 /* negative n? */
- JLT belowup /* TODO have an appropriate error message */
- ADDQ TOP, CX
- CMPQ CX, UPE /* a+n, UPE */
- JGT aboveupe /* a+n > UPE */
- CMPQ TOP, UP
- JLT belowup /* a < UP */
+TEXT isbufinum(SB), 1, $-4 /* is buffer in user memory? ( a n -- -1|0|1 ) */
+ CMPQ TOP, $0 /* negative n? */
+ JLT belowum /* TODO have an appropriate error message */
+ ADDQ (PSP), TOP /* TOP = a+n */
+ CMPQ TOP, UME /* a+n, UME */
+ JGT aboveume /* a+n > UME */
+ CMPQ (PSP), UM /* a, UM */
+ JLT belowum /* a < UM */
+ ADDQ $8, PSP /* get rid of a from the stack */
MOVQ $0, TOP
RET
@@ -696,7 +695,7 @@
RET
TEXT validateaddress(SB), 1, $0 /* a -- */
- CALL inup(SB)
+ CALL inum(SB)
MOVQ TOP, CX
POP(TOP)
CMPQ CX, $0
@@ -703,8 +702,8 @@
JNE invalidaddress
RET
-TEXT validatebuffer(SB), 1, $0 /* n a -- */
- CALL bufinup(SB)
+TEXT validatebuffer(SB), 1, $0 /* a n -- */
+ CALL isbufinum(SB)
MOVQ TOP, CX
POP(TOP)
CMPQ CX, $0
--- a/os/pc64/main.c
+++ b/os/pc64/main.c
@@ -278,6 +278,10 @@
m->loopconst = 100000;
}
+/*
+ * could move this to port/userinit.c as 9front does
+ * there is nothing arch specific here
+ */
void
init0(void)
{--- a/os/pc64/mem.h
+++ b/os/pc64/mem.h
@@ -231,8 +231,8 @@
#define FORTHRSP (FORTHVARS+(BY2WD*4))
#define FORTHIP (FORTHVARS+(BY2WD*5))
#define FORTHW (FORTHVARS+(BY2WD*6))
-#define FORTHUP (FORTHVARS+(BY2WD*7))
-#define FORTHUPE (FORTHVARS+(BY2WD*8))
+#define FORTHUM (FORTHVARS+(BY2WD*7))
+#define FORTHUME (FORTHVARS+(BY2WD*8))
#define HERE (FORTHVARS+(BY2WD*9))
#define DTOP (FORTHVARS+(BY2WD*10))
--- a/os/pc64/primitives-nasm.s
+++ b/os/pc64/primitives-nasm.s
@@ -2,12 +2,12 @@
MENTRY "!" store 1
MENTRY "c@" cfetch 2
MENTRY "c!" cstore 2
-MENTRY "read" fsread 4
-MENTRY "write" fswrite 5
-MENTRY "seek" fsseek 4
-MENTRY "open" fsopen 4
-MENTRY "close" fsclose 5
-MENTRY "create" fscreate 6
+MENTRY "sysread" sysread 7
+MENTRY "syswrite" syswrite 8
+MENTRY "sysseek" sysseek 7
+MENTRY "sysopen" sysopen 7
+MENTRY "sysclose" sysclose 8
+MENTRY "syscreate" syscreate 9
MENTRY "mmap" mmap 4
MENTRY "halt" terminate 4
MENTRY "dump" fthdump 4
--- a/os/pc64/words-nasm.s
+++ b/os/pc64/words-nasm.s
@@ -259,12 +259,12 @@
dd M_exitcolon
CENTRY "key" C_key 3 ; ( -- c ) (G read a single character from the input onto the stack )
-dd M_literal
-dd 1 ; ( 1 -- )
-dd MV_Iobuf ; variable iobuf to store the character read
dd MV_Infd
-dd M_fetch ; ( 1 Iobuf -- 1 Iobuf infd )
-dd M_fsread ; ( 1 Iobuf infd -- n )
+dd M_fetch ; ( infd )
+dd MV_Iobuf ; variable iobuf to store the character read
+dd M_literal
+dd 1 ; ( infd Iobuf 1 )
+dd M_sysread ; ( infd Iobuf 1 -- n )
dd C_0eq
dd M_cjump ; if 0 characters read
dd L78 ; if qread n != 0 jump to L78. If n == 0 jump over
@@ -283,21 +283,23 @@
CENTRY "emit" C_emit 4 ; ( character -- )
dd MV_Iobuf ; variable iobuf address
dd M_cstore ; variable iobuf has character
-dd MV_Iobuf ; variable iobuf address
-dd M_literal
-dd 1
-dd M_xswap ; ( iobuf 1 -- 1 iobuf )
dd MV_Outfd
dd M_fetch ; outfd
-dd M_fswrite ; ( 1 iobuf outfd -- )
+dd MV_Iobuf ; variable iobuf address
+dd M_literal
+dd 1 ; ( outfd iobuf 1 )
+dd M_syswrite ; ( 1 iobuf outfd -- )
dd M_drop ; drop the return value of write
dd M_exitcolon
CENTRY "type" C_type 4 ; ( addr n -- )
-dd M_xswap ; ( addr n -- n addr )
+dd M_rpush ; ( addr ) (R n )
+dd M_rpush ; ( ) (R n addr )
dd M_literal
dd 1 ; stdout
-dd M_fswrite ; ( n addr 1 -- )
+dd M_rpop ; ( stdout addr ) (R n )
+dd M_rpop ; ( stdout addr n ) (R )
+dd M_syswrite ; ( 1 addr n -- )
dd M_drop ; drop the return value of write
dd M_exitcolon
@@ -1157,11 +1159,10 @@
dd M_exitcolon
-dd M_dup ; debug code to show the word found
-dd C_count ; ( -- a n)
-dd M_xswap ; ( -- n a)
-dd MC_STDOUT
-dd M_fswrite
+dd MC_STDOUT ; ( str -- str 1) ; debug code to show the word found
+dd M_over ; ( str 1 str )
+dd C_count ; ( str 1 a n)
+dd M_syswrite
dd M_drop ; drop the return value of write
CENTRY "interpret" C_interpret 9 ; there is stuff in TIB to be interpreted >In and >Limit are set
@@ -1693,8 +1694,7 @@
dd 1024 ; ( -- padaddr 1024 )
dd M_plus ; ( padaddr 1024 -- padaddr+1024 )
dd M_rpop ; ( padaddr+1024 -- padaddr+1024 mode) (R mode -- )
-dd M_xswap ; M_literal dd 420 ; ( padaddr+1024 mode 420 ) 420 for hardcoded mode?
-dd M_fsopen
+dd M_sysopen
dd M_dup
dd M_literal
dd -1
@@ -1701,14 +1701,13 @@
dd M_greater
dd M_exitcolon
CENTRY "close-file" C_close_file 10 ; ( fd -- ioresult )
-dd M_fsclose
+dd M_sysclose
dd C_0eq
dd M_exitcolon
CENTRY "read-file" C_read_file 9 ; ( a n fd -- n2 ioresult )
-dd M_rpush
-dd M_xswap
-dd M_rpop ; ( n a fd )
-dd M_fsread
+dd C_rot ; ( n fd a )
+dd C_rot ; ( fd a n )
+dd M_sysread
dd M_dup
dd M_literal
dd -1
@@ -1715,16 +1714,17 @@
dd C_neq
dd M_exitcolon
CENTRY "write-file" C_write_file 10 ; ( a n fd -- ioresult )
-dd M_rpush
-dd M_xswap
-dd M_rpop ; ( n a fd )
-dd M_fswrite
+dd C_rot ; ( n fd a )
+dd C_rot ; ( fd a n )
+dd M_syswrite
dd M_literal
dd -1
dd C_neq
dd M_exitcolon
CENTRY "reposition-file" C_reposition_file 15 ; ( type n fd -- ioresult )
-dd M_fsseek
+dd M_xswap ; ( type fd n )
+dd C_rot ; ( fd n type )
+dd M_sysseek
dd M_literal
dd -1
dd C_neq
@@ -1769,9 +1769,7 @@
dd M_plus ; ( padaddr+1024 )
dd M_rpop ; ( padaddr+1024 mode) (R perm )
dd M_rpop ; ( padaddr+1024 mode perm ) (R )
-dd M_xswap ; ( padaddr+1024 perm mode )
-dd C_rot ; ( perm mode padaddr+1024 )
-dd M_fscreate
+dd M_syscreate
dd M_dup
dd M_literal
dd -1
@@ -1896,17 +1894,17 @@
dd 66
dd M_Wordb
dd M_store
+dd MC_STDOUT
+dd M_Wordb
dd M_literal
dd 1
-dd M_Wordb
-dd MC_STDOUT
-dd M_fswrite
+dd M_syswrite
dd M_drop ; drop the return value of write
+dd MC_STDIN
+dd M_Wordb
dd M_literal
dd 1
-dd M_Wordb
-dd MC_STDIN
-dd M_fsread
+dd M_sysread
dd M_drop ; drop the return value of read
CENTRY "boot" C_boot 4
--- a/os/port/devforth.c
+++ b/os/port/devforth.c
@@ -73,6 +73,7 @@
Proc *fhead, *ftail;
static QLock forthlock;
static char forthname[] = "forth";
+extern intptr forthmain(u8 *);
static void
flock(void)
@@ -325,7 +326,7 @@
b, b->magic, b->size, b->allocpc);
}
-extern intptr forthmain(u8 *);
+/* also called by init0 for the init forth proc */
void
goforth(void *fmem)
{