diff --git a/src/waforth.wat b/src/waforth.wat index 44b0d6d..8c2dc33 100644 --- a/src/waforth.wat +++ b/src/waforth.wat @@ -171,13 +171,13 @@ (data (i32.const 0x20000) "\0e" "undefined word") (data (i32.const 0x20014) "\0d" "division by 0") (data (i32.const 0x20028) "\10" "incomplete input") - (data (i32.const 0x2003C) "\0b" "missing ')'") - (data (i32.const 0x2004C) "\09" "missing \22") - (data (i32.const 0x2005C) "\24" "word not supported in interpret mode") - (data (i32.const 0x20084) "\0F" "not implemented") + (data (i32.const 0x2003c) "\0b" "missing ')'") + (data (i32.const 0x2004c) "\09" "missing \22") + (data (i32.const 0x2005c) "\24" "word not supported in interpret mode") + (data (i32.const 0x20084) "\0f" "not implemented") (data (i32.const 0x20090) "\11" "ADDRESS-UNIT-BITS") - (data (i32.const 0x200A2) "\0F" "/COUNTED-STRING") - (data (i32.const 0x200B2) "\11" "stack empty") + (data (i32.const 0x200a2) "\0f" "/COUNTED-STRING") + (data (i32.const 0x200b2) "\0b" "stack empty") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Built-in words @@ -212,7 +212,7 @@ (i32.store (i32.load (i32.sub (local.get $tos) (i32.const 4))) (i32.load (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8))))) (local.get $bbtos)) - (data (i32.const 0x21000) "\00\00\00\00" "\01" "!\00\00" "\10\00\00\00") + (data (i32.const 0x21000) "\00\00\00\00" "\01" "! " "\10\00\00\00") (elem (i32.const 0x10) $!) ;; 6.1.0030 @@ -231,7 +231,7 @@ (i64.store (local.get $bbtos) (local.get $v)) (global.set $po (local.get $npo)) (local.get $tos)) - (data (i32.const 135180) "\00\10\02\00" "\01" "#\00\00" "\11\00\00\00") + (data (i32.const 0x2100c) "\00\10\02\00" "\01" "# " "\11\00\00\00") (elem (i32.const 0x11) $#) ;; 6.1.0040 @@ -239,7 +239,7 @@ (i32.store (i32.sub (local.get $tos) (i32.const 8)) (global.get $po)) (i32.store (i32.sub (local.get $tos) (i32.const 4)) (i32.sub (i32.add (global.get $here) (i32.const 0x200 (; = PICTURED_OUTPUT_OFFSET ;))) (global.get $po))) (local.get $tos)) - (data (i32.const 135192) "\0c\10\02\00" "\02" "#>\00" "\12\00\00\00") + (data (i32.const 0x21018) "\0c\10\02\00" "\02" "#> " "\12\00\00\00") (elem (i32.const 0x12) $#>) ;; 6.1.0050 @@ -261,7 +261,7 @@ (i64.store (local.get $bbtos) (local.get $v)) (global.set $po (local.get $po)) (local.get $tos)) - (data (i32.const 135204) "\18\10\02\00" "\02" "#S\00" "\13\00\00\00") + (data (i32.const 0x21024) "\18\10\02\00" "\02" "#S " "\13\00\00\00") (elem (i32.const 0x13) $#S) ;; 6.1.0070 @@ -273,7 +273,7 @@ (call $fail (i32.const 0x20028)))) ;; incomplete input (call $FIND) (drop (call $pop))) - (data (i32.const 135216) "$\10\02\00" "\01" "'\00\00" "\14\00\00\00") + (data (i32.const 0x21030) "\24\10\02\00" "\01" "' " "\14\00\00\00") (elem (i32.const 0x14) $') ;; 6.1.0080 @@ -284,7 +284,7 @@ (if (param i32) (result i32) (i32.lt_s (local.tee $c (call $readChar)) (i32.const 0)) (call $fail (i32.const 0x2003C))) ;; missing ')' (br_if $loop (i32.ne (local.get $c) (i32.const 41))))) - (data (i32.const 135228) "0\10\02\00" "\81" (; immediate ;) "(\00\00" "\15\00\00\00") + (data (i32.const 0x2103c) "\30\10\02\00" "\81" (; F_IMMEDIATE ;) "( " "\15\00\00\00") (elem (i32.const 0x15) $paren) ;; 6.1.0090 @@ -295,7 +295,7 @@ (i32.mul (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))) (i32.load (local.get $bbtos)))) (local.get $btos)) - (data (i32.const 135240) "<\10\02\00" "\01" "*\00\00" "\16\00\00\00") + (data (i32.const 0x21048) "\3c\10\02\00" "\01" "* " "\16\00\00\00") (elem (i32.const 0x16) $*) ;; 6.1.0100 @@ -309,7 +309,7 @@ (i64.extend_i32_s (i32.load (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8)))))) (i64.extend_i32_s (i32.load (i32.sub (local.get $tos) (i32.const 4))))))) (local.get $bbtos)) - (data (i32.const 135252) "H\10\02\00" "\02" "*/\00" "\17\00\00\00") + (data (i32.const 0x21054) "\48\10\02\00" "\02" "*/ " "\17\00\00\00") (elem (i32.const 0x17) $*/) ;; 6.1.0110 @@ -327,7 +327,7 @@ (local.tee $x2 (i64.extend_i32_s (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))))))))) (i32.store (local.get $bbtos) (i32.wrap_i64 (i64.div_s (local.get $x1) (local.get $x2)))) (local.get $btos)) - (data (i32.const 135264) "T\10\02\00" "\05" "*/MOD\00\00" "\18\00\00\00") + (data (i32.const 0x21060) "\54\10\02\00" "\05" "*/MOD " "\18\00\00\00") (elem (i32.const 0x18) $*/MOD) ;; 6.1.0120 @@ -338,7 +338,7 @@ (i32.add (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))) (i32.load (local.get $bbtos)))) (local.get $btos)) - (data (i32.const 135280) "`\10\02\00" "\01" "+\00\00" "\19\00\00\00") + (data (i32.const 0x21070) "\60\10\02\00" "\01" "+ " "\19\00\00\00") (elem (i32.const 0x19) $+) ;; 6.1.0130 @@ -349,7 +349,7 @@ (i32.add (i32.load (local.get $addr)) (i32.load (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8)))))) (local.get $bbtos)) - (data (i32.const 135292) "p\10\02\00" "\02" "+!\00" "\1a\00\00\00") + (data (i32.const 0x2107c) "\70\10\02\00" "\02" "+! " "\1a\00\00\00") (elem (i32.const 0x1a) $+!) ;; 6.1.0140 @@ -357,7 +357,7 @@ (local.get $tos) (call $ensureCompiling) (call $compilePlusLoop)) - (data (i32.const 135304) "|\10\02\00" "\85" (; immediate ;) "+LOOP\00\00" "\1b\00\00\00") + (data (i32.const 0x21088) "\7c\10\02\00" "\85" (; F_IMMEDIATE ;) "+LOOP " "\1b\00\00\00") (elem (i32.const 0x1b) $+LOOP) ;; 6.1.0150 @@ -367,7 +367,7 @@ (i32.load (i32.sub (local.get $tos) (i32.const 4)))) (global.set $here (i32.add (global.get $here) (i32.const 4))) (i32.sub (local.get $tos) (i32.const 4))) - (data (i32.const 135320) "\88\10\02\00" "\01" ",\00\00" "\1c\00\00\00") + (data (i32.const 0x21098) "\88\10\02\00" "\01" ", " "\1c\00\00\00") (elem (i32.const 0x1c) $comma) ;; 6.1.0160 @@ -378,7 +378,7 @@ (i32.sub (i32.load (local.get $bbtos)) (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))))) (local.get $btos)) - (data (i32.const 135332) "\98\10\02\00" "\01" "-\00\00" "\1d\00\00\00") + (data (i32.const 0x210a4) "\98\10\02\00" "\01" "- " "\1d\00\00\00") (elem (i32.const 0x1d) $-) ;; 6.1.0180 @@ -392,7 +392,7 @@ (local.set $v (i32.sub (i32.const 0) (local.get $v))))) (call $U._ (local.get $v) (i32.load (i32.const 0x218e4 (; = body(BASE) ;)))) (call $shell_emit (i32.const 0x20))) - (data (i32.const 0x21884) "\74\18\02\00" "\01" ".00" "\a6\00\00\00") + (data (i32.const 0x21884) "\74\18\02\00" "\01" ". " "\a6\00\00\00") (elem (i32.const 0xa6) $.) ;; 6.1.0190 @@ -401,7 +401,7 @@ (call $ensureCompiling) (call $Sq) (call $emitICall (i32.const 0) (i32.const 0x85 (; = TYPE_INDEX ;)))) - (data (i32.const 135344) "\a4\10\02\00" "\82" (; immediate ;) ".\22\00" "\1e\00\00\00") + (data (i32.const 0x210b0) "\a4\10\02\00" "\82" (; F_IMMEDIATE ;) ".\22 " "\1e\00\00\00") (elem (i32.const 0x1e) $.q) ;; 15.6.1.0220 @@ -416,7 +416,7 @@ (local.set $p (i32.add (local.get $p) (i32.const 4))) (br $loop))) (local.get $tos)) - (data (i32.const 0x21890) "\84\18\02\00" "\02" ".S0" "\a7\00\00\00") + (data (i32.const 0x21890) "\84\18\02\00" "\02" ".S " "\a7\00\00\00") (elem (i32.const 0xa7) $.S) ;; 6.1.0230 @@ -429,7 +429,7 @@ (i32.store (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8))) (i32.div_s (i32.load (local.get $bbtos)) (local.get $divisor))) (local.get $btos)) - (data (i32.const 135356) "\b0\10\02\00" "\01" "/\00\00" "\1f\00\00\00") + (data (i32.const 0x210bc) "\b0\10\02\00" "\01" "/ " "\1f\00\00\00") (elem (i32.const 0x1f) $/) ;; 6.1.0240 @@ -444,7 +444,7 @@ (i32.const 4))))))) (i32.store (local.get $btos) (i32.div_s (local.get $n1) (local.get $n2))) (local.get $tos)) - (data (i32.const 135368) "\bc\10\02\00" "\04" "/MOD\00\00\00" " \00\00\00") + (data (i32.const 0x210c8) "\bc\10\02\00" "\04" "/MOD " "\20\00\00\00") (elem (i32.const 0x20) $/MOD) ;; 6.1.0250 @@ -456,7 +456,7 @@ (then (i32.store (local.get $btos) (i32.const -1))) (else (i32.store (local.get $btos) (i32.const 0)))) (local.get $tos)) - (data (i32.const 135384) "\c8\10\02\00" "\02" "0<\00" "!\00\00\00") + (data (i32.const 0x210d8) "\c8\10\02\00" "\02" "0< " "\21\00\00\00") (elem (i32.const 0x21) $0<) ;; 6.1.0270 @@ -467,7 +467,7 @@ (then (i32.store (local.get $btos) (i32.const -1))) (else (i32.store (local.get $btos) (i32.const 0)))) (local.get $tos)) - (data (i32.const 135396) "\d8\10\02\00" "\02" "0=\00" "\22\00\00\00") + (data (i32.const 0x210e4) "\d8\10\02\00" "\02" "0= " "\22\00\00\00") (elem (i32.const 0x22) $0=) ;; 6.2.0280 @@ -479,7 +479,7 @@ (then (i32.store (local.get $btos) (i32.const -1))) (else (i32.store (local.get $btos) (i32.const 0)))) (local.get $tos)) - (data (i32.const 137060) "X\17\02\00" "\02" "0>\00" "\94\00\00\00") + (data (i32.const 0x21764) "\58\17\02\00" "\02" "0> " "\94\00\00\00") (elem (i32.const 0x94) $0>) ;; 6.1.0290 @@ -488,7 +488,7 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.add (i32.load (local.get $btos)) (i32.const 1))) (local.get $tos)) - (data (i32.const 135408) "\e4\10\02\00" "\02" "1+\00" "#\00\00\00") + (data (i32.const 0x210f0) "\e4\10\02\00" "\02" "1+ " "\23\00\00\00") (elem (i32.const 0x23) $1+) ;; 6.1.0300 @@ -497,14 +497,14 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.sub (i32.load (local.get $btos)) (i32.const 1))) (local.get $tos)) - (data (i32.const 135420) "\f0\10\02\00" "\02" "1-\00" "$\00\00\00") + (data (i32.const 0x210fc) "\f0\10\02\00" "\02" "1- " "\24\00\00\00") (elem (i32.const 0x24) $1-) ;; 6.1.0310 (func $2! (param $tos i32) (result i32) (local.get $tos) (call $SWAP) (call $OVER) (call $!) (call $CELL+) (call $!)) - (data (i32.const 135432) "\fc\10\02\00" "\02" "2!\00" "%\00\00\00") + (data (i32.const 0x21108) "\fc\10\02\00" "\02" "2! " "\25\00\00\00") (elem (i32.const 0x25) $2!) ;; 6.1.0320 @@ -513,7 +513,7 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.shl (i32.load (local.get $btos)) (i32.const 1))) (local.get $tos)) - (data (i32.const 135444) "\08\11\02\00" "\02" "2*\00" "&\00\00\00") + (data (i32.const 0x21114) "\08\11\02\00" "\02" "2* " "\26\00\00\00") (elem (i32.const 0x26) $2*) ;; 6.1.0330 @@ -522,7 +522,7 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.shr_s (i32.load (local.get $btos)) (i32.const 1))) (local.get $tos)) - (data (i32.const 135456) "\14\11\02\00" "\02" "2/\00" "'\00\00\00") + (data (i32.const 0x21120) "\14\11\02\00" "\02" "2/ " "\27\00\00\00") (elem (i32.const 0x27) $2/) ;; 6.1.0350 @@ -533,13 +533,13 @@ (call $@) (call $SWAP) (call $@)) - (data (i32.const 135468) " \11\02\00" "\02" "2@\00" "(\00\00\00") + (data (i32.const 0x2112c) "\20\11\02\00" "\02" "2@ " "\28\00\00\00") (elem (i32.const 0x28) $2@) ;; 6.1.0370 (func $2DROP (param $tos i32) (result i32) (i32.sub (local.get $tos) (i32.const 8))) - (data (i32.const 135480) ",\11\02\00" "\05" "2DROP\00\00" ")\00\00\00") + (data (i32.const 0x21138) "\2c\11\02\00" "\05" "2DROP " "\29\00\00\00") (elem (i32.const 0x29) $2DROP) ;; 6.1.0380 @@ -549,7 +549,7 @@ (i32.store (i32.add (local.get $tos) (i32.const 4)) (i32.load (i32.sub (local.get $tos) (i32.const 4)))) (i32.add (local.get $tos) (i32.const 8))) - (data (i32.const 135496) "8\11\02\00" "\04" "2DUP\00\00\00" "*\00\00\00") + (data (i32.const 0x21148) "\38\11\02\00" "\04" "2DUP " "\2a\00\00\00") (elem (i32.const 0x2a) $2DUP) ;; 6.1.0400 @@ -559,7 +559,7 @@ (i32.store (i32.add (local.get $tos) (i32.const 4)) (i32.load (i32.sub (local.get $tos) (i32.const 12)))) (i32.add (local.get $tos) (i32.const 8))) - (data (i32.const 135512) "H\11\02\00" "\05" "2OVER\00\00" "+\00\00\00") + (data (i32.const 0x21158) "\48\11\02\00" "\05" "2OVER " "\2b\00\00\00") (elem (i32.const 0x2b) $2OVER) ;; 6.1.0430 @@ -577,7 +577,7 @@ (i32.store (i32.sub (local.get $tos) (i32.const 4)) (local.get $x2)) (local.get $tos)) - (data (i32.const 135528) "X\11\02\00" "\05" "2SWAP\00\00" ",\00\00\00") + (data (i32.const 0x21168) "\58\11\02\00" "\05" "2SWAP " "\2c\00\00\00") (elem (i32.const 0x2c) $2SWAP) ;; 6.1.0450 @@ -601,7 +601,7 @@ (call $startColon (i32.const 0)) (call $right-bracket)) - (data (i32.const 135544) "h\11\02\00" "\01" ":\00\00" "-\00\00\00") + (data (i32.const 0x21178) "\68\11\02\00" "\01" ": " "\2d\00\00\00") (elem (i32.const 0x2d) $:) ;; 6.1.0460 @@ -611,7 +611,7 @@ (call $endColon) (call $hidden) (call $left-bracket)) - (data (i32.const 135556) "x\11\02\00" "\81" (; immediate ;) ";\00\00" ".\00\00\00") + (data (i32.const 0x21184) "\78\11\02\00" "\81" (; F_IMMEDIATE ;) "; " "\2e\00\00\00") (elem (i32.const 0x2e) $semicolon) ;; 6.1.0480 @@ -623,14 +623,14 @@ (then (i32.store (local.get $bbtos) (i32.const -1))) (else (i32.store (local.get $bbtos) (i32.const 0)))) (local.get $btos)) - (data (i32.const 135568) "\84\11\02\00" "\01" "<\00\00" "/\00\00\00") + (data (i32.const 0x21190) "\84\11\02\00" "\01" "< " "\2f\00\00\00") (elem (i32.const 0x2f) $<) ;; 6.1.0490 (func $<# (param $tos i32) (result i32) (global.set $po (i32.add (global.get $here) (i32.const 0x200 (; = PICTURED_OUTPUT_OFFSET ;)))) (local.get $tos)) - (data (i32.const 135580) "\90\11\02\00" "\02" "<#\00" "0\00\00\00") + (data (i32.const 0x2119c) "\90\11\02\00" "\02" "<# " "\30\00\00\00") (elem (i32.const 0x30) $<#) ;; 6.1.0530 @@ -642,7 +642,7 @@ (then (i32.store (local.get $bbtos) (i32.const -1))) (else (i32.store (local.get $bbtos) (i32.const 0)))) (local.get $btos)) - (data (i32.const 135592) "\9c\11\02\00" "\01" "=\00\00" "1\00\00\00") + (data (i32.const 0x211a8) "\9c\11\02\00" "\01" "= " "\31\00\00\00") (elem (i32.const 0x31) $=) ;; 6.1.0540 @@ -654,7 +654,7 @@ (then (i32.store (local.get $bbtos) (i32.const -1))) (else (i32.store (local.get $bbtos) (i32.const 0)))) (local.get $btos)) - (data (i32.const 135604) "\a8\11\02\00" "\01" ">\00\00" "2\00\00\00") + (data (i32.const 0x211b4) "\a8\11\02\00" "\01" "> " "\32\00\00\00") (elem (i32.const 0x32) $>) ;; 6.1.0550 @@ -663,11 +663,11 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.add (call $body (i32.load (local.get $btos))) (i32.const 4))) (local.get $tos)) - (data (i32.const 135616) "\b4\11\02\00" "\05" ">BODY\00\00" "3\00\00\00") + (data (i32.const 0x211c0) "\b4\11\02\00" "\05" ">BODY " "\33\00\00\00") (elem (i32.const 0x33) $>BODY) ;; 6.1.0560 - (data (i32.const 0x218fc) "\e8\18\02\00" "\43" (; DATA ;) ">IN" "\03\00\00\00" "\00\00\00\00") + (data (i32.const 0x218fc) "\e8\18\02\00" "\43" (; F_DATA ;) ">IN" "\03\00\00\00" "\00\00\00\00") ;; 6.1.0570 (func $>NUMBER (param $tos i32) (result i32) @@ -688,7 +688,7 @@ (i32.store (local.get $bbtos) (local.get $rest)) (i64.store (local.get $bbbbtos) (local.get $value)) (local.get $tos)) - (data (i32.const 135644) "\d0\11\02\00" "\07" ">NUMBER" "5\00\00\00") + (data (i32.const 0x211dc) "\d0\11\02\00" "\07" ">NUMBER" "\35\00\00\00") (elem (i32.const 0x35) $>NUMBER) ;; 6.1.0580 @@ -696,7 +696,7 @@ (local.tee $tos (i32.sub (local.get $tos) (i32.const 4))) (i32.store (global.get $tors) (i32.load (local.get $tos))) (global.set $tors (i32.add (global.get $tors) (i32.const 4)))) - (data (i32.const 135660) "\dc\11\02\00" "\02" ">R\00" "6\00\00\00") + (data (i32.const 0x211ec) "\dc\11\02\00" "\02" ">R " "\36\00\00\00") (elem (i32.const 0x36) $>R) ;; 6.1.0630 @@ -709,7 +709,7 @@ (i32.add (local.get $tos) (i32.const 4))) (else (local.get $tos)))) - (data (i32.const 135672) "\ec\11\02\00" "\04" "?DUP\00\00\00" "7\00\00\00") + (data (i32.const 0x211f8) "\ec\11\02\00" "\04" "?DUP " "\37\00\00\00") (elem (i32.const 0x37) $?DUP) ;; 6.1.0650 @@ -718,13 +718,13 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.load (i32.load (local.get $btos)))) (local.get $tos)) - (data (i32.const 135688) "\f8\11\02\00" "\01" "@\00\00" "8\00\00\00") + (data (i32.const 0x21208) "\f8\11\02\00" "\01" "@ " "\38\00\00\00") (elem (i32.const 0x38) $@) ;; 6.1.0670 ABORT (func $ABORT (param $tos i32) (result i32) (call $QUIT (i32.const 0x10000 (; = STACK_BASE ;)))) - (data (i32.const 135700) "\08\12\02\00" "\05" "ABORT\00\00" "9\00\00\00") + (data (i32.const 0x21214) "\08\12\02\00" "\05" "ABORT " "\39\00\00\00") (elem (i32.const 0x39 (; = ABORT_INDEX ;)) $ABORT) ;; none ;; 6.1.0680 ABORT" @@ -735,7 +735,7 @@ (call $emitICall (i32.const 0) (i32.const 0x85 (; = TYPE_INDEX ;))) (call $emitICall (i32.const 0) (i32.const 0x39 (; = ABORT_INDEX ;))) (call $compileThen)) - (data (i32.const 135716) "\14\12\02\00" "\86" (; immediate ;) "ABORT\22\00" ":\00\00\00") + (data (i32.const 0x21224) "\14\12\02\00" "\86" (; F_IMMEDIATE ;) "ABORT\22 " "\3a\00\00\00") (elem (i32.const 0x3a) $ABORTq) ;; 6.1.0690 @@ -748,7 +748,7 @@ (local.tee $y (i32.shr_s (local.get $v) (i32.const 31)))) (local.get $y))) (local.get $tos)) - (data (i32.const 135732) "$\12\02\00" "\03" "ABS" ";\00\00\00") + (data (i32.const 0x21234) "\24\12\02\00" "\03" "ABS" "\3b\00\00\00") (elem (i32.const 0x3b) $ABS) ;; 6.1.0695 @@ -773,7 +773,7 @@ (br_if $loop (i32.lt_u (local.get $p) (local.get $endp))))) (i32.store (local.get $bbtos) (i32.sub (local.get $p) (local.get $addr))) (local.get $btos)) - (data (i32.const 135744) "4\12\02\00" "\06" "ACCEPT\00" "<\00\00\00") + (data (i32.const 0x21240) "\34\12\02\00" "\06" "ACCEPT " "\3c\00\00\00") (elem (i32.const 0x3c) $ACCEPT) ;; 6.1.0705 @@ -782,7 +782,7 @@ (i32.add (global.get $here) (i32.const 3)) (i32.const -4 (; ~3 ;)))) (local.get $tos)) - (data (i32.const 135760) "@\12\02\00" "\05" "ALIGN\00\00" "=\00\00\00") + (data (i32.const 0x21250) "\40\12\02\00" "\05" "ALIGN " "\3d\00\00\00") (elem (i32.const 0x3d) $ALIGN) ;; 6.1.0706 @@ -792,7 +792,7 @@ (i32.and (i32.add (i32.load (local.get $btos)) (i32.const 3)) (i32.const -4 (; ~3 ;)))) (local.get $tos)) - (data (i32.const 135776) "P\12\02\00" "\07" "ALIGNED" ">\00\00\00") + (data (i32.const 0x21260) "\50\12\02\00" "\07" "ALIGNED" "\3e\00\00\00") (elem (i32.const 0x3e) $ALIGNED) ;; 6.1.0710 @@ -801,7 +801,7 @@ (local.get $tos) (local.set $v (call $pop)) (global.set $here (i32.add (global.get $here) (local.get $v)))) - (data (i32.const 135792) "`\12\02\00" "\05" "ALLOT\00\00" "?\00\00\00") + (data (i32.const 0x21270) "\60\12\02\00" "\05" "ALLOT " "\3f\00\00\00") (elem (i32.const 0x3f) $ALLOT) ;; 6.1.0720 @@ -812,24 +812,24 @@ (i32.and (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))) (i32.load (local.get $bbtos)))) (local.get $btos)) - (data (i32.const 135808) "p\12\02\00" "\03" "AND" "@\00\00\00") + (data (i32.const 0x21280) "\70\12\02\00" "\03" "AND" "\40\00\00\00") (elem (i32.const 0x40) $AND) ;; 6.1.0750 - (data (i32.const 0x218d4) "\c4\18\02\00" "\44" "BASE\00\00\00" "\03\00\00\00" (; = pack(PUSH_DATA_ADDRESS_INDEX) ;) "\0a\00\00\00" (; = pack(10) ;)) + (data (i32.const 0x218d4) "\c4\18\02\00" "\44" (; F_DATA ;) "BASE " "\03\00\00\00" (; = pack(PUSH_DATA_ADDRESS_INDEX) ;) "\0a\00\00\00" (; = pack(10) ;)) ;; 6.1.0760 (func $BEGIN (param $tos i32) (result i32) (local.get $tos) (call $ensureCompiling) (call $compileBegin)) - (data (i32.const 135836) "\8c\12\02\00" "\85" (; immediate ;) "BEGIN\00\00" "B\00\00\00") + (data (i32.const 0x2129c) "\8c\12\02\00" "\85" (; F_IMMEDIATE ;) "BEGIN " "\42\00\00\00") (elem (i32.const 0x42) $BEGIN) ;; 6.1.0770 (func $BL (param $tos i32) (result i32) (call $push (local.get $tos) (i32.const 32))) - (data (i32.const 135852) "\9c\12\02\00" "\02" "BL\00" "C\00\00\00") + (data (i32.const 0x212ac) "\9c\12\02\00" "\02" "BL " "\43\00\00\00") (elem (i32.const 0x43) $BL) ;; 6.1.0850 @@ -838,7 +838,7 @@ (i32.store8 (i32.load (i32.sub (local.get $tos) (i32.const 4))) (i32.load (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8))))) (local.get $bbtos)) - (data (i32.const 135864) "\ac\12\02\00" "\02" "C!\00" "D\00\00\00") + (data (i32.const 0x212b8) "\ac\12\02\00" "\02" "C! " "\44\00\00\00") (elem (i32.const 0x44) $C!) ;; 6.1.0860 @@ -847,7 +847,7 @@ (i32.load (i32.sub (local.get $tos) (i32.const 4)))) (global.set $here (i32.add (global.get $here) (i32.const 1))) (i32.sub (local.get $tos) (i32.const 4))) - (data (i32.const 135876) "\b8\12\02\00" "\02" "C,\00" "E\00\00\00") + (data (i32.const 0x212c4) "\b8\12\02\00" "\02" "C, " "\45\00\00\00") (elem (i32.const 0x45) $Cc) ;; 6.1.0870 @@ -856,7 +856,7 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.load8_u (i32.load (local.get $btos)))) (local.get $tos)) - (data (i32.const 135888) "\c4\12\02\00" "\02" "C@\00" "F\00\00\00") + (data (i32.const 0x212d0) "\c4\12\02\00" "\02" "C@ " "\46\00\00\00") (elem (i32.const 0x46) $C@) ;; 6.1.0880 @@ -865,7 +865,7 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.add (i32.load (local.get $btos)) (i32.const 4))) (local.get $tos)) - (data (i32.const 135900) "\d0\12\02\00" "\05" "CELL+\00\00" "G\00\00\00") + (data (i32.const 0x212dc) "\d0\12\02\00" "\05" "CELL+ " "\47\00\00\00") (elem (i32.const 0x47) $CELL+) ;; 6.1.0890 @@ -874,7 +874,7 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.shl (i32.load (local.get $btos)) (i32.const 2))) (local.get $tos)) - (data (i32.const 135916) "\dc\12\02\00" "\05" "CELLS\00\00" "H\00\00\00") + (data (i32.const 0x212ec) "\dc\12\02\00" "\05" "CELLS " "\48\00\00\00") (elem (i32.const 0x48) $CELLS) ;; 6.1.0895 @@ -885,19 +885,19 @@ (local.tee $tos) (i32.store (i32.sub (local.get $tos) (i32.const 4)) (i32.load8_u (i32.add (call $wordBase) (i32.const 1))))) - (data (i32.const 135932) "\ec\12\02\00" "\04" "CHAR\00\00\00" "I\00\00\00") + (data (i32.const 0x212fc) "\ec\12\02\00" "\04" "CHAR " "\49\00\00\00") (elem (i32.const 0x49) $CHAR) ;; 6.1.0897 (func $CHAR+ (param $tos i32) (result i32) (call $1+ (local.get $tos))) - (data (i32.const 135948) "\fc\12\02\00" "\05" "CHAR+\00\00" "J\00\00\00") + (data (i32.const 0x2130c) "\fc\12\02\00" "\05" "CHAR+ " "\4a\00\00\00") (elem (i32.const 0x4a) $CHAR+) ;; 6.1.0898 (func $CHARS (param $tos i32) (result i32) (local.get $tos)) - (data (i32.const 135964) "\0c\13\02\00" "\05" "CHARS\00\00" "K\00\00\00") + (data (i32.const 0x2131c) "\0c\13\02\00" "\05" "CHARS " "\4b\00\00\00") (elem (i32.const 0x4b) $CHARS) ;; 6.1.0950 @@ -909,7 +909,7 @@ (local.set $v (call $pop)) (i32.store (global.get $here) (local.get $v)) (global.set $here (i32.add (global.get $here) (i32.const 4)))) - (data (i32.const 135980) "\1c\13\02\00" "\08" "CONSTANT\00\00\00" "L\00\00\00") + (data (i32.const 0x2132c) "\1c\13\02\00" "\08" "CONSTANT " "\4c\00\00\00") (elem (i32.const 0x4c (; = CONSTANT_INDEX ;)) $CONSTANT) ;; 6.1.0980 @@ -921,13 +921,13 @@ (i32.const 4))))))) (i32.store (local.get $btos) (i32.add (local.get $addr) (i32.const 1))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136000) ",\13\02\00" "\05" "COUNT\00\00" "M\00\00\00") + (data (i32.const 0x21340) "\2c\13\02\00" "\05" "COUNT " "\4d\00\00\00") (elem (i32.const 0x4d) $COUNT) ;; 6.1.0990 (func $CR (param $tos i32) (result i32) (call $push (local.get $tos) (i32.const 10)) (call $EMIT)) - (data (i32.const 136016) "@\13\02\00" "\02" "CR\00" "N\00\00\00") + (data (i32.const 0x21350) "\40\13\02\00" "\02" "CR " "\4e\00\00\00") (elem (i32.const 0x4e) $CR) ;; 6.1.1000 @@ -960,14 +960,14 @@ (i32.store (global.get $here) (i32.const 0)) (call $setFlag (i32.const 0x40 (; = F_DATA ;)))) - (data (i32.const 136028) "P\13\02\00" "\06" "CREATE\00" "O\00\00\00") + (data (i32.const 0x2135c) "\50\13\02\00" "\06" "CREATE " "\4f\00\00\00") (elem (i32.const 0x4f) $CREATE) ;; 6.1.1170 (func $DECIMAL (param $tos i32) (result i32) (i32.store (i32.const 0x218e4 (; = body(BASE) ;)) (i32.const 10)) (local.get $tos)) - (data (i32.const 136044) "\5c\13\02\00" "\07" "DECIMAL" "P\00\00\00") + (data (i32.const 0x2136c) "\5c\13\02\00" "\07" "DECIMAL" "\50\00\00\00") (elem (i32.const 0x50) $DECIMAL) ;; 6.1.1200 @@ -975,7 +975,7 @@ (i32.store (local.get $tos) (i32.shr_u (i32.sub (local.get $tos) (i32.const 0x10000 (; = STACK_BASE ;))) (i32.const 2))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136060) "l\13\02\00" "\05" "DEPTH\00\00" "Q\00\00\00") + (data (i32.const 0x2137c) "\6c\13\02\00" "\05" "DEPTH " "\51\00\00\00") (elem (i32.const 0x51) $DEPTH) ;; 6.1.1240 @@ -983,7 +983,7 @@ (local.get $tos) (call $ensureCompiling) (call $compileDo)) - (data (i32.const 136076) "|\13\02\00" "\82" (; immediate ;) "DO\00" "R\00\00\00") + (data (i32.const 0x2138c) "\7c\13\02\00" "\82" (; F_IMMEDIATE ;) "DO " "\52\00\00\00") (elem (i32.const 0x52) $DO) ;; 6.1.1250 @@ -995,13 +995,13 @@ (call $endColon) (call $startColon (i32.const 1)) (call $compilePushLocal (i32.const 1))) - (data (i32.const 136088) "\8c\13\02\00" "\85" (; immediate ;) "DOES>\00\00" "S\00\00\00") + (data (i32.const 0x21398) "\8c\13\02\00" "\85" (; F_IMMEDIATE ;) "DOES> " "\53\00\00\00") (elem (i32.const 0x53) $DOES>) ;; 6.1.1260 (func $DROP (param $tos i32) (result i32) (i32.sub (local.get $tos) (i32.const 4))) - (data (i32.const 136104) "\98\13\02\00" "\04" "DROP\00\00\00" "T\00\00\00") + (data (i32.const 0x213a8) "\98\13\02\00" "\04" "DROP " "\54\00\00\00") (elem (i32.const 0x54) $DROP) ;; 6.1.1290 @@ -1009,7 +1009,7 @@ (i32.store (local.get $tos) (i32.load (i32.sub (local.get $tos) (i32.const 4)))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136120) "\a8\13\02\00" "\03" "DUP" "U\00\00\00") + (data (i32.const 0x213b8) "\a8\13\02\00" "\03" "DUP" "\55\00\00\00") (elem (i32.const 0x55) $DUP) ;; 6.1.1310 @@ -1017,14 +1017,14 @@ (local.get $tos) (call $ensureCompiling) (call $emitElse)) - (data (i32.const 136132) "\b8\13\02\00" "\84" (; immediate ;) "ELSE\00\00\00" "V\00\00\00") + (data (i32.const 0x213c4) "\b8\13\02\00" "\84" (; F_IMMEDIATE ;) "ELSE " "\56\00\00\00") (elem (i32.const 0x56) $ELSE) ;; 6.1.1320 (func $EMIT (param $tos i32) (result i32) (call $shell_emit (i32.load (i32.sub (local.get $tos) (i32.const 4)))) (i32.sub (local.get $tos) (i32.const 4))) - (data (i32.const 136148) "\c4\13\02\00" "\04" "EMIT\00\00\00" "W\00\00\00") + (data (i32.const 0x213d4) "\c4\13\02\00" "\04" "EMIT " "\57\00\00\00") (elem (i32.const 0x57) $EMIT) ;; 6.1.1345 @@ -1049,7 +1049,7 @@ (else (i32.store (local.get $bbtos) (i32.const 0)) (local.get $btos)))))) - (data (i32.const 0x218ac) "\9c\18\02\00" "\0c" "ENVIRONMENT?000" "\a9\00\00\00") + (data (i32.const 0x218ac) "\9c\18\02\00" "\0c" "ENVIRONMENT? " "\a9\00\00\00") (elem (i32.const 0xa9) $ENVIRONMENT?) ;; 6.2.1350 @@ -1060,7 +1060,7 @@ (i32.const 0) (i32.load (i32.sub (local.get $tos) (i32.const 4)))) (local.get $bbtos)) - (data (i32.const 137072) "d\17\02\00" "\05" "ERASE\00\00" "\95\00\00\00") + (data (i32.const 0x21770) "\64\17\02\00" "\05" "ERASE " "\95\00\00\00") (elem (i32.const 0x95) $ERASE) ;; 6.1.1360 @@ -1089,7 +1089,7 @@ (i32.store (i32.const 0x21908 (; body(>IN) ;)) (local.get $prevIn)) (global.set $inputBufferBase (local.get $prevInputBufferBase)) (global.set $inputBufferSize (local.get $prevInputBufferSize))) - (data (i32.const 136184) "\e4\13\02\00" "\08" "EVALUATE\00\00\00" "Y\00\00\00") + (data (i32.const 0x213f8) "\e4\13\02\00" "\08" "EVALUATE " "\59\00\00\00") (elem (i32.const 0x59) $EVALUATE) ;; 6.1.1370 @@ -1105,7 +1105,7 @@ (i32.load (local.get $body)))) (else (call_indirect (type $word) (i32.load (local.get $body)))))) - (data (i32.const 136204) "\f8\13\02\00" "\07" "EXECUTE" "Z\00\00\00") + (data (i32.const 0x2140c) "\f8\13\02\00" "\07" "EXECUTE" "\5a\00\00\00") (elem (i32.const 0x5a) $EXECUTE) ;; 6.1.1380 @@ -1113,13 +1113,13 @@ (local.get $tos) (call $ensureCompiling) (call $emitReturn)) - (data (i32.const 136220) "\0c\14\02\00" "\84" (; immediate ;) "EXIT\00\00\00" "[\00\00\00") + (data (i32.const 0x2141c) "\0c\14\02\00" "\84" (; F_IMMEDIATE ;) "EXIT " "\5b\00\00\00") (elem (i32.const 0x5b) $EXIT) ;; 6.2.1485 (func $FALSE (param $tos i32) (result i32) (call $push (local.get $tos) (i32.const 0x0))) - (data (i32.const 0x2183c) "\2c\18\02\00" "\05" "FALSE00" "\a2\00\00\00") + (data (i32.const 0x2183c) "\2c\18\02\00" "\05" "FALSE " "\a2\00\00\00") (elem (i32.const 0xa2) $FALSE) ;; 6.1.1540 @@ -1130,7 +1130,7 @@ (i32.load (i32.sub (local.get $tos) (i32.const 4))) (i32.load (i32.sub (local.get $tos) (i32.const 8)))) (local.get $bbbtos)) - (data (i32.const 136236) "\1c\14\02\00" "\04" "FILL\00\00\00" "\5c\00\00\00") + (data (i32.const 0x2142c) "\1c\14\02\00" "\04" "FILL " "\5c\00\00\00") (elem (i32.const 0x5c) $FILL) ;; 6.1.1550 @@ -1163,7 +1163,7 @@ (local.set $entryP (i32.load (local.get $entryP))) (br_if $loop (local.get $entryP))) (call $push (local.get $tos) (i32.const 0))) - (data (i32.const 136252) ",\14\02\00" "\04" "FIND\00\00\00" "]\00\00\00") + (data (i32.const 0x2143c) "\2c\14\02\00" "\04" "FIND " "\5d\00\00\00") (elem (i32.const 0x5d) $FIND) ;; 6.1.1561 @@ -1191,14 +1191,14 @@ (i32.store (local.get $bbbtos) (local.get $mod)) (i32.store (i32.sub (local.get $tos) (i32.const 8)) (local.get $q)) (local.get $btos)) - (data (i32.const 136268) "<\14\02\00" "\06" "FM/MOD\00" "^\00\00\00") + (data (i32.const 0x2144c) "\3c\14\02\00" "\06" "FM/MOD " "\5e\00\00\00") (elem (i32.const 0x5e) $FM/MOD) ;; 6.1.1650 (func $HERE (param $tos i32) (result i32) (i32.store (local.get $tos) (global.get $here)) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136284) "L\14\02\00" "\04" "HERE\00\00\00" "_\00\00\00") + (data (i32.const 0x2145c) "\4c\14\02\00" "\04" "HERE " "\5f\00\00\00") (elem (i32.const 0x5f) $HERE) ;; 6.2.1660 @@ -1217,14 +1217,14 @@ (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))))) (global.set $po (local.get $npo)) (local.get $btos)) - (data (i32.const 136300) "\5c\14\02\00" "\04" "HOLD\00\00\00" "`\00\00\00") + (data (i32.const 0x2146c) "\5c\14\02\00" "\04" "HOLD " "\60\00\00\00") (elem (i32.const 0x60) $HOLD) ;; 6.1.1680 (func $I (param $tos i32) (result i32) (i32.store (local.get $tos) (i32.load (i32.sub (global.get $tors) (i32.const 4)))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136316) "l\14\02\00" "\01" "I\00\00" "a\00\00\00") + (data (i32.const 0x2147c) "\6c\14\02\00" "\01" "I " "\61\00\00\00") (elem (i32.const 0x61) $I) ;; 6.1.1700 @@ -1232,14 +1232,14 @@ (local.get $tos) (call $ensureCompiling) (call $compileIf)) - (data (i32.const 136328) "|\14\02\00" "\82" (; immediate ;) "IF\00" "b\00\00\00") + (data (i32.const 0x21488) "\7c\14\02\00" "\82" (; F_IMMEDIATE ;) "IF " "\62\00\00\00") (elem (i32.const 0x62) $IF) ;; 6.1.1710 (func $IMMEDIATE (param $tos i32) (result i32) (call $setFlag (i32.const 0x80 (; = F_IMMEDIATE ;))) (local.get $tos)) - (data (i32.const 136340) "\88\14\02\00" "\09" "IMMEDIATE\00\00" "c\00\00\00") + (data (i32.const 0x21494) "\88\14\02\00" "\09" "IMMEDIATE " "\63\00\00\00") (elem (i32.const 0x63) $IMMEDIATE) ;; 6.1.1720 @@ -1248,27 +1248,27 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.xor (i32.load (local.get $btos)) (i32.const -1))) (local.get $tos)) - (data (i32.const 136360) "\94\14\02\00" "\06" "INVERT\00" "d\00\00\00") + (data (i32.const 0x214a8) "\94\14\02\00" "\06" "INVERT " "\64\00\00\00") (elem (i32.const 0x64) $INVERT) ;; 6.1.1730 (func $J (param $tos i32) (result i32) (i32.store (local.get $tos) (i32.load (i32.sub (global.get $tors) (i32.const 8)))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136376) "\a8\14\02\00" "\01" "J\00\00" "e\00\00\00") + (data (i32.const 0x214b8) "\a8\14\02\00" "\01" "J " "\65\00\00\00") (elem (i32.const 0x65) $J) ;; 6.1.1750 (func $KEY (param $tos i32) (result i32) (i32.store (local.get $tos) (call $shell_key)) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136388) "\b8\14\02\00" "\03" "KEY" "f\00\00\00") + (data (i32.const 0x214c4) "\b8\14\02\00" "\03" "KEY" "\66\00\00\00") (elem (i32.const 0x66) $KEY) (func $LATEST (param $tos i32) (result i32) (i32.store (local.get $tos) (global.get $latest)) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 137208) "\ec\17\02\00" "\06" "LATEST\00" "\9e\00\00\00") + (data (i32.const 0x217f8) "\ec\17\02\00" "\06" "LATEST " "\9e\00\00\00") (elem (i32.const 0x9e) $LATEST) ;; 6.1.1760 @@ -1276,7 +1276,7 @@ (local.get $tos) (call $ensureCompiling) (call $compileLeave)) - (data (i32.const 136400) "\c4\14\02\00" "\85" "LEAVE\00\00" "g\00\00\00") + (data (i32.const 0x214d0) "\c4\14\02\00" "\85" (; F_IMMEDIATE ;) "LEAVE " "\67\00\00\00") (elem (i32.const 0x67) $LEAVE) ;; immediate ;; 6.1.1780 @@ -1284,7 +1284,7 @@ (local.get $tos) (call $ensureCompiling) (call $compilePushConst (call $pop))) - (data (i32.const 136416) "\d0\14\02\00" "\87" "LITERAL" "h\00\00\00") + (data (i32.const 0x214e0) "\d0\14\02\00" "\87" (; F_IMMEDIATE ;) "LITERAL" "\68\00\00\00") (elem (i32.const 0x68) $LITERAL) ;; immediate ;; 6.1.1800 @@ -1292,7 +1292,7 @@ (local.get $tos) (call $ensureCompiling) (call $compileLoop)) - (data (i32.const 136432) "\e0\14\02\00" "\84" "LOOP\00\00\00" "i\00\00\00") + (data (i32.const 0x214f0) "\e0\14\02\00" "\84" (; F_IMMEDIATE ;) "LOOP " "\69\00\00\00") (elem (i32.const 0x69) $LOOP) ;; immediate ;; 6.1.1805 @@ -1303,7 +1303,7 @@ (i32.shl (i32.load (local.get $bbtos)) (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))))) (local.get $btos)) - (data (i32.const 136448) "\f0\14\02\00" "\06" "LSHIFT\00" "j\00\00\00") + (data (i32.const 0x21500) "\f0\14\02\00" "\06" "LSHIFT " "\6a\00\00\00") (elem (i32.const 0x6a) $LSHIFT) ;; 6.1.1810 @@ -1314,7 +1314,7 @@ (i64.extend_i32_s (i32.load (i32.sub (local.get $tos) (i32.const 4)))))) (local.get $tos)) - (data (i32.const 136464) "\00\15\02\00" "\02" "M*\00" "k\00\00\00") + (data (i32.const 0x21510) "\00\15\02\00" "\02" "M* " "\6b\00\00\00") (elem (i32.const 0x6b) $M*) ;; 6.1.1870 @@ -1328,7 +1328,7 @@ (then (i32.store (local.get $bbtos) (local.get $v)))) (local.get $btos)) - (data (i32.const 136476) "\10\15\02\00" "\03" "MAX" "l\00\00\00") + (data (i32.const 0x2151c) "\10\15\02\00" "\03" "MAX" "\6c\00\00\00") (elem (i32.const 0x6c) $MAX) ;; 6.1.1880 @@ -1342,7 +1342,7 @@ (then (i32.store (local.get $bbtos) (local.get $v)))) (local.get $btos)) - (data (i32.const 136488) "\1c\15\02\00" "\03" "MIN" "m\00\00\00") + (data (i32.const 0x21528) "\1c\15\02\00" "\03" "MIN" "\6d\00\00\00") (elem (i32.const 0x6d) $MIN) ;; 6.1.1890 @@ -1353,7 +1353,7 @@ (i32.rem_s (i32.load (local.get $bbtos)) (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))))) (local.get $btos)) - (data (i32.const 136500) "(\15\02\00" "\03" "MOD" "n\00\00\00") + (data (i32.const 0x21534) "\28\15\02\00" "\03" "MOD" "\6e\00\00\00") (elem (i32.const 0x6e) $MOD) ;; 6.1.1900 @@ -1364,7 +1364,7 @@ (i32.load (local.tee $bbbtos (i32.sub (local.get $tos) (i32.const 12)))) (i32.load (i32.sub (local.get $tos) (i32.const 4)))) (local.get $bbbtos)) - (data (i32.const 136512) "4\15\02\00" "\04" "MOVE\00\00\00" "o\00\00\00") + (data (i32.const 0x21540) "\34\15\02\00" "\04" "MOVE " "\6f\00\00\00") (elem (i32.const 0x6f) $MOVE) ;; 6.1.1910 @@ -1373,7 +1373,7 @@ (i32.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i32.sub (i32.const 0) (i32.load (local.get $btos)))) (local.get $tos)) - (data (i32.const 136528) "@\15\02\00" "\06" "NEGATE\00" "p\00\00\00") + (data (i32.const 0x21550) "\40\15\02\00" "\06" "NEGATE " "\70\00\00\00") (elem (i32.const 0x70) $NEGATE) ;; 6.2.1930 @@ -1391,7 +1391,7 @@ (i32.or (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))) (i32.load (local.get $bbtos)))) (local.get $btos)) - (data (i32.const 136544) "P\15\02\00" "\02" "OR\00" "q\00\00\00") + (data (i32.const 0x21560) "\50\15\02\00" "\02" "OR " "\71\00\00\00") (elem (i32.const 0x71) $OR) ;; 6.1.1990 @@ -1399,7 +1399,7 @@ (i32.store (local.get $tos) (i32.load (i32.sub (local.get $tos) (i32.const 8)))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136556) "`\15\02\00" "\04" "OVER\00\00\00" "r\00\00\00") + (data (i32.const 0x2156c) "\60\15\02\00" "\04" "OVER " "\72\00\00\00") (elem (i32.const 0x72) $OVER) ;; 6.2.2030 @@ -1411,7 +1411,7 @@ (local.get $tos) (i32.shl (i32.add (i32.load (local.get $btos)) (i32.const 2)) (i32.const 2))))) (local.get $tos)) - (data (i32.const 137088) "p\17\02\00" "\04" "PICK\00\00\00" "\96\00\00\00") + (data (i32.const 0x21780) "\70\17\02\00" "\04" "PICK " "\96\00\00\00") (elem (i32.const 0x96) $PICK) ;; 6.1.2033 @@ -1434,7 +1434,7 @@ (else (call $emitConst (local.get $FINDToken)) (call $emitICall (i32.const 1) (i32.const 5 (; = COMPILE_CALL_INDEX ;)))))) - (data (i32.const 136572) "l\15\02\00" "\88" "POSTPONE\00\00\00" "s\00\00\00") + (data (i32.const 0x2157c) "\6c\15\02\00" "\88" (; F_IMMEDIATE ;) "POSTPONE " "\73\00\00\00") (elem (i32.const 0x73) $POSTPONE) ;; immediate ;; 6.1.2050 @@ -1444,7 +1444,7 @@ (global.set $sourceID (i32.const 0)) (i32.store (i32.const 0x218f8 (; body(STATE) ;)) (i32.const 0)) (unreachable)) - (data (i32.const 136592) "|\15\02\00" "\04" "QUIT\00\00\00" "t\00\00\00") + (data (i32.const 0x21590) "\7c\15\02\00" "\04" "QUIT " "\74\00\00\00") (elem (i32.const 0x74) $QUIT) ;; 6.1.2060 @@ -1452,14 +1452,14 @@ (global.set $tors (i32.sub (global.get $tors) (i32.const 4))) (i32.store (local.get $tos) (i32.load (global.get $tors))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136608) "\90\15\02\00" "\02" "R>\00" "u\00\00\00") + (data (i32.const 0x215a0) "\90\15\02\00" "\02" "R> " "\75\00\00\00") (elem (i32.const 0x75) $R>) ;; 6.1.2070 (func $R@ (param $tos i32) (result i32) (i32.store (local.get $tos) (i32.load (i32.sub (global.get $tors) (i32.const 4)))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136620) "\a0\15\02\00" "\02" "R@\00" "v\00\00\00") + (data (i32.const 0x215ac) "\a0\15\02\00" "\02" "R@ " "\76\00\00\00") (elem (i32.const 0x76) $R@) ;; 6.1.2120 @@ -1467,7 +1467,7 @@ (local.get $tos) (call $ensureCompiling) (call $compileRecurse)) - (data (i32.const 136632) "\ac\15\02\00" "\87" "RECURSE" "w\00\00\00") + (data (i32.const 0x215b8) "\ac\15\02\00" "\87" (; F_IMMEDIATE ;) "RECURSE" "\77\00\00\00") (elem (i32.const 0x77) $RECURSE) ;; immediate ;; 6.2.2125 @@ -1488,7 +1488,7 @@ (else (i32.store (i32.const 0x21908 (; body(>IN) ;)) (i32.const 0)) (call $push (i32.const -1))))) - (data (i32.const 137104) "\80\17\02\00" "\06" "REFILL\00" "\97\00\00\00") + (data (i32.const 0x21790) "\80\17\02\00" "\06" "REFILL " "\97\00\00\00") (elem (i32.const 0x97) $REFILL) ;; 6.1.2140 @@ -1496,7 +1496,7 @@ (local.get $tos) (call $ensureCompiling) (call $compileRepeat)) - (data (i32.const 136648) "\b8\15\02\00" "\86" "REPEAT\00" "x\00\00\00") + (data (i32.const 0x215c8) "\b8\15\02\00" "\86" (; F_IMMEDIATE ;) "REPEAT " "\78\00\00\00") (elem (i32.const 0x78) $REPEAT) ;; immediate ;; 6.1.2160 ROT @@ -1512,7 +1512,7 @@ (i32.load (local.tee $bbtos (i32.sub (local.get $tos) (i32.const 8))))) (i32.store (local.get $bbtos) (local.get $tmp)) (local.get $tos)) - (data (i32.const 136664) "\c8\15\02\00" "\03" "ROT" "y\00\00\00") + (data (i32.const 0x215d8) "\c8\15\02\00" "\03" "ROT" "\79\00\00\00") (elem (i32.const 0x79) $ROT) ;; 6.1.2162 @@ -1523,7 +1523,7 @@ (i32.shr_u (i32.load (local.get $bbtos)) (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))))) (local.get $btos)) - (data (i32.const 136676) "\d8\15\02\00" "\06" "RSHIFT\00" "z\00\00\00") + (data (i32.const 0x215e4) "\d8\15\02\00" "\06" "RSHIFT " "\7a\00\00\00") (elem (i32.const 0x7a) $RSHIFT) ;; 6.1.2165 @@ -1544,7 +1544,7 @@ (call $compilePushConst (local.get $start)) (call $compilePushConst (i32.sub (global.get $here) (local.get $start))) (call $ALIGN)) - (data (i32.const 136692) "\e4\15\02\00" "\82" "S\22\00" "{\00\00\00") + (data (i32.const 0x215f4) "\e4\15\02\00" "\82" (; F_IMMEDIATE ;) "S\22 " "\7b\00\00\00") (elem (i32.const 0x7b) $Sq) ;; immediate ;; 6.1.2170 @@ -1553,14 +1553,14 @@ (i64.store (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))) (i64.extend_i32_s (i32.load (local.get $btos)))) (i32.add (local.get $tos) (i32.const 4))) - (data (i32.const 136704) "\f4\15\02\00" "\03" "S>D" "|\00\00\00") + (data (i32.const 0x21600) "\f4\15\02\00" "\03" "S>D" "\7c\00\00\00") (elem (i32.const 0x7c) $S>D) (func $SCALL (param $tos i32) (result i32) (global.set $tos (local.get $tos)) (call $shell_call) (global.get $tos)) - (data (i32.const 0x218c4) "\ac\18\02\00" "\05" "SCALL\00\00" "\aa\00\00\00") + (data (i32.const 0x218c4) "\ac\18\02\00" "\05" "SCALL " "\aa\00\00\00") (elem (i32.const 0xaa) $SCALL) ;; 6.1.2210 @@ -1572,7 +1572,7 @@ (i32.store8 (local.tee $npo (i32.sub (global.get $po) (i32.const 1))) (i32.const 0x2D (; '-' ;))) (global.set $po (local.get $npo)))) (local.get $btos)) - (data (i32.const 136716) "\00\16\02\00" "\04" "SIGN\00\00\00" "}\00\00\00") + (data (i32.const 0x2160c) "\00\16\02\00" "\04" "SIGN " "\7d\00\00\00") (elem (i32.const 0x7d) $SIGN) ;; 6.1.2214 @@ -1593,7 +1593,7 @@ (i32.wrap_i64 (i64.div_s (local.get $n1) (local.get $n2)))) (local.get $btos)) - (data (i32.const 136732) "\0c\16\02\00" "\06" "SM/REM\00" "~\00\00\00") + (data (i32.const 0x2161c) "\0c\16\02\00" "\06" "SM/REM " "\7e\00\00\00") (elem (i32.const 0x7e) $SM/REM) ;; 6.1.2216 @@ -1601,20 +1601,20 @@ (local.get $tos) (call $push (global.get $inputBufferBase)) (call $push (global.get $inputBufferSize))) - (data (i32.const 136748) "\1c\16\02\00" "\06" "SOURCE\00" "\7f\00\00\00") + (data (i32.const 0x2162c) "\1c\16\02\00" "\06" "SOURCE " "\7f\00\00\00") (elem (i32.const 0x7f) $SOURCE) ;; 6.1.2250 (func $SOURCE-ID (param $tos i32) (result i32) (call $push (local.get $tos) (global.get $sourceID))) - (data (i32.const 137160) "\bc\17\02\00" "\09" "SOURCE-ID\00\00" "\9b\00\00\00") + (data (i32.const 0x217c8) "\bc\17\02\00" "\09" "SOURCE-ID " "\9b\00\00\00") (elem (i32.const 0x9b) $SOURCE-ID) ;; 6.1.2220 (func $SPACE (param $tos i32) (result i32) (local.get $tos) (call $BL) (call $EMIT)) - (data (i32.const 136764) ",\16\02\00" "\05" "SPACE\00\00" "\80\00\00\00") + (data (i32.const 0x2163c) "\2c\16\02\00" "\05" "SPACE " "\80\00\00\00") (elem (i32.const 0x80) $SPACE) ;; 6.1.2230 @@ -1628,11 +1628,11 @@ (call $SPACE) (local.set $i (i32.sub (local.get $i) (i32.const 1))) (br $loop)))) - (data (i32.const 136780) "<\16\02\00" "\06" "SPACES\00" "\81\00\00\00") + (data (i32.const 0x2164c) "\3c\16\02\00" "\06" "SPACES " "\81\00\00\00") (elem (i32.const 0x81) $SPACES) ;; 6.1.2250 - (data (i32.const 0x218e8) "\d4\18\02\00" "\45" (; DATA ;) "STATE\00\00" "\03\00\00\00" (; = pack(PUSH_DATA_ADDRESS_INDEX) ;) "\00\00\00\00" (; = pack(0) ;)) + (data (i32.const 0x218e8) "\d4\18\02\00" "\45" (; F_DATA ;) "STATE " "\03\00\00\00" (; = pack(PUSH_DATA_ADDRESS_INDEX) ;) "\00\00\00\00" (; = pack(0) ;)) ;; 6.1.2260 (func $SWAP (param $tos i32) (result i32) @@ -1644,7 +1644,7 @@ (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4))))) (i32.store (local.get $btos) (local.get $tmp)) (local.get $tos)) - (data (i32.const 136812) "\5c\16\02\00" "\04" "SWAP\00\00\00" "\83\00\00\00") + (data (i32.const 0x2166c) "\5c\16\02\00" "\04" "SWAP " "\83\00\00\00") (elem (i32.const 0x83) $SWAP) ;; 6.1.2270 @@ -1652,7 +1652,7 @@ (local.get $tos) (call $ensureCompiling) (call $compileThen)) - (data (i32.const 136828) "l\16\02\00" "\84" "THEN\00\00\00" "\84\00\00\00") + (data (i32.const 0x2167c) "\6c\16\02\00" "\84" (; F_IMMEDIATE ;) "THEN " "\84\00\00\00") (elem (i32.const 0x84) $THEN) ;; immediate ;; 6.2.2295 @@ -1669,20 +1669,20 @@ (local.set $xt (call $pop)) (local.set $v (call $pop)) (i32.store (i32.add (call $body (local.get $xt)) (i32.const 4)) (local.get $v))) - (data (i32.const 137120) "\90\17\02\00" "\02" "TO\00" "\98\00\00\00") + (data (i32.const 0x217a0) "\90\17\02\00" "\02" "TO " "\98\00\00\00") (elem (i32.const 0x98) $TO) ;; 6.2.2298 (func $TRUE (param $tos i32) (result i32) (call $push (local.get $tos) (i32.const 0xffffffff))) - (data (i32.const 0x2182c) "\20\18\02\00" "\04" "TRUE000" "\a1\00\00\00") + (data (i32.const 0x2182c) "\20\18\02\00" "\04" "TRUE " "\a1\00\00\00") (elem (i32.const 0xa1) $TRUE) ;; 6.2.2300 (func $TUCK (param $tos i32) (result i32) (local.get $tos) (call $SWAP) (call $OVER)) - (data (i32.const 0x2190c) "\fc\18\02\00" "\04" "TUCK\00\00\00" "\a4\00\00\00") + (data (i32.const 0x2190c) "\fc\18\02\00" "\04" "TUCK " "\a4\00\00\00") (elem (i32.const 0xa4) $TUCK) ;; 6.1.2310 TYPE @@ -1694,7 +1694,7 @@ (local.set $p (call $pop)) (call $type (local.get $len) (local.get $p))) ;; WARNING: If you change this table index, make sure the emitted ICalls are also updated - (data (i32.const 136844) "|\16\02\00" "\04" "TYPE\00\00\00" "\85\00\00\00") + (data (i32.const 0x2168c) "\7c\16\02\00" "\04" "TYPE " "\85\00\00\00") (elem (i32.const 0x85) $TYPE) ;; none ;; 6.1.2320 @@ -1702,7 +1702,7 @@ (local.get $tos) (call $U._ (call $pop) (i32.load (i32.const 0x218e4 (; = body(BASE) ;)))) (call $shell_emit (i32.const 0x20))) - (data (i32.const 136860) "\8c\16\02\00" "\02" "U.\00" "\86\00\00\00") + (data (i32.const 0x2169c) "\8c\16\02\00" "\02" "U. " "\86\00\00\00") (elem (i32.const 0x86) $U.) ;; 6.1.2340 @@ -1714,7 +1714,7 @@ (then (i32.store (local.get $bbtos) (i32.const -1))) (else (i32.store (local.get $bbtos) (i32.const 0)))) (local.get $btos)) - (data (i32.const 136872) "\9c\16\02\00" "\02" "U<\00" "\87\00\00\00") + (data (i32.const 0x216a8) "\9c\16\02\00" "\02" "U< " "\87\00\00\00") (elem (i32.const 0x87) $U<) ;; 6.1.2360 @@ -1725,7 +1725,7 @@ (i64.extend_i32_u (i32.load (i32.sub (local.get $tos) (i32.const 4)))))) (local.get $tos)) - (data (i32.const 136884) "\a8\16\02\00" "\03" "UM*" "\88\00\00\00") + (data (i32.const 0x216b4) "\a8\16\02\00" "\03" "UM*" "\88\00\00\00") (elem (i32.const 0x88) $UM*) ;; 6.1.2370 @@ -1745,7 +1745,7 @@ (i32.wrap_i64 (i64.div_u (local.get $n1) (local.get $n2)))) (local.get $btos)) - (data (i32.const 136896) "\b4\16\02\00" "\06" "UM/MOD\00" "\89\00\00\00") + (data (i32.const 0x216c0) "\b4\16\02\00" "\06" "UM/MOD " "\89\00\00\00") (elem (i32.const 0x89) $UM/MOD) ;; TODO: Rename ;; 6.1.2380 @@ -1753,7 +1753,7 @@ (local.get $tos) (call $ensureCompiling) (call $emitICall (i32.const 0) (i32.const 9 (; = END_DO_INDEX ;)))) - (data (i32.const 136912) "\c0\16\02\00" "\86" "UNLOOP\00" "\8a\00\00\00") + (data (i32.const 0x216d0) "\c0\16\02\00" "\86" (; F_IMMEDIATE ;) "UNLOOP " "\8a\00\00\00") (elem (i32.const 0x8a) $UNLOOP) ;; immediate ;; 6.1.2390 @@ -1761,14 +1761,14 @@ (local.get $tos) (call $ensureCompiling) (call $compileUntil)) - (data (i32.const 136928) "\d0\16\02\00" "\85" "UNTIL\00\00" "\8b\00\00\00") + (data (i32.const 0x216e0) "\d0\16\02\00" "\85" (; F_IMMEDIATE ;) "UNTIL " "\8b\00\00\00") (elem (i32.const 0x8b) $UNTIL) ;; immediate ;; 6.1.2395 (func $UNUSED (param $tos i32) (result i32) (local.get $tos) (call $push (i32.shr_s (i32.sub (i32.const 104857600 (; = MEMORY_SIZE ;)) (global.get $here)) (i32.const 2)))) - (data (i32.const 137132) "\a0\17\02\00" "\06" "UNUSED\00" "\99\00\00\00") + (data (i32.const 0x217ac) "\a0\17\02\00" "\06" "UNUSED " "\99\00\00\00") (elem (i32.const 0x99) $UNUSED) (func $UWIDTH (param $tos i32) (result i32) @@ -1785,18 +1785,18 @@ (local.set $v (i32.div_s (local.get $v) (local.get $base))) (br $loop))) (call $push (local.get $r))) - (data (i32.const 0x21864) "\58\18\02\00" "\06" "UWIDTH0" "\a5\00\00\00") + (data (i32.const 0x21864) "\58\18\02\00" "\06" "UWIDTH " "\a5\00\00\00") (elem (i32.const 0xa5) $UWIDTH) ;; 6.2.2405 - (data (i32.const 0x21874) "\64\18\02\00" "\05" "VALUE00" "\4c\00\00\00" (; = pack(CONSTANT_INDEX) ;)) + (data (i32.const 0x21874) "\64\18\02\00" "\05" "VALUE " "\4c\00\00\00" (; = pack(CONSTANT_INDEX) ;)) ;; 6.1.2410 (func $VARIABLE (param $tos i32) (result i32) (local.get $tos) (call $CREATE) (global.set $here (i32.add (global.get $here) (i32.const 4)))) - (data (i32.const 136944) "\e0\16\02\00" "\08" "VARIABLE\00\00\00" "\8c\00\00\00") + (data (i32.const 0x216f0) "\e0\16\02\00" "\08" "VARIABLE " "\8c\00\00\00") (elem (i32.const 0x8c) $VARIABLE) ;; 6.1.2430 @@ -1804,14 +1804,14 @@ (local.get $tos) (call $ensureCompiling) (call $compileWhile)) - (data (i32.const 136964) "\f0\16\02\00" "\85" "WHILE\00\00" "\8d\00\00\00") + (data (i32.const 0x21704) "\f0\16\02\00" "\85" (; F_IMMEDIATE ;) "WHILE " "\8d\00\00\00") (elem (i32.const 0x8d) $WHILE) ;; immediate ;; 6.1.2450 (func $WORD (param $tos i32) (result i32) (local.get $tos) (call $readWord (call $pop))) - (data (i32.const 136980) "\04\17\02\00" "\04" "WORD\00\00\00" "\8e\00\00\00") + (data (i32.const 0x21714) "\04\17\02\00" "\04" "WORD " "\8e\00\00\00") (elem (i32.const 0x8e) $WORD) ;; 15.6.1.2465 @@ -1833,7 +1833,7 @@ (local.set $entryP (i32.load (local.get $entryP))) (br_if $loop (local.get $entryP))) (local.get $tos)) - (data (i32.const 0x2189c) "\90\18\02\00" "\05" "WORDS00" "\a8\00\00\00") + (data (i32.const 0x2189c) "\90\18\02\00" "\05" "WORDS " "\a8\00\00\00") (elem (i32.const 0xa8) $WORDS) ;; 6.1.2490 @@ -1844,7 +1844,7 @@ (i32.xor (i32.load (local.tee $btos (i32.sub (local.get $tos) (i32.const 4)))) (i32.load (local.get $bbtos)))) (local.get $btos)) - (data (i32.const 136996) "\14\17\02\00" "\03" "XOR" "\8f\00\00\00") + (data (i32.const 0x21724) "\14\17\02\00" "\03" "XOR" "\8f\00\00\00") (elem (i32.const 0x8f) $XOR) ;; 6.1.2500 @@ -1852,7 +1852,7 @@ (local.get $tos) (call $ensureCompiling) (i32.store (i32.const 0x218f8 (; body(STATE) ;)) (i32.const 0))) - (data (i32.const 137008) "$\17\02\00" "\81" "[\00\00" "\90\00\00\00") + (data (i32.const 0x21730) "\24\17\02\00" "\81" (; F_IMMEDIATE ;) "[ " "\90\00\00\00") (elem (i32.const 0x90) $left-bracket) ;; immediate ;; 6.1.2510 @@ -1861,7 +1861,7 @@ (call $ensureCompiling) (call $') (call $compilePushConst (call $pop))) - (data (i32.const 137020) "0\17\02\00" "\83" "[']" "\91\00\00\00") + (data (i32.const 0x2173c) "\30\17\02\00" "\83" (; F_IMMEDIATE ;) "[']" "\91\00\00\00") (elem (i32.const 0x91) $bracket-tick) ;; immediate ;; 6.1.2520 @@ -1870,7 +1870,7 @@ (call $ensureCompiling) (call $CHAR) (call $compilePushConst (call $pop))) - (data (i32.const 137032) "<\17\02\00" "\86" "[CHAR]\00" "\92\00\00\00") + (data (i32.const 0x21748) "\3c\17\02\00" "\86" (; F_IMMEDIATE ;) "[CHAR] " "\92\00\00\00") (elem (i32.const 0x92) $bracket-char) ;; immediate ;; 6.2.2535 @@ -1884,20 +1884,20 @@ (br_if $endSkipComments (i32.eq (local.get $char) (i32.const -1))) (br $skipComments))) (local.get $tos)) - (data (i32.const 137148) "\ac\17\02\00" "\81" "\5c\00\00" "\9a\00\00\00") + (data (i32.const 0x217bc) "\ac\17\02\00" "\81" (; F_IMMEDIATE ;) "\\ " "\9a\00\00\00") (elem (i32.const 0x9a) $\) ;; immediate ;; 6.1.2540 (func $right-bracket (param $tos i32) (result i32) (i32.store (i32.const 0x218f8 (; body(STATE) ;)) (i32.const 1)) (local.get $tos)) - (data (i32.const 137048) "H\17\02\00" "\01" "]\00\00" "\93\00\00\00") + (data (i32.const 0x21758) "\48\17\02\00" "\01" "] " "\93\00\00\00") (elem (i32.const 0x93) $right-bracket) (data (i32.const 135820) "\80\12\02\00" "\26" (; HIDDEN ;) "UNDEFIN" "A\00\00\00") (data (i32.const 136796) "L\16\02\00" "\26" (; HIDDEN ;) "UNDEFIN" "\82\00\00\00") (data (i32.const 137180) "\c8\17\02\00" "\24" (; HIDDEN ;) "UNDEFIN" "\9c\00\00\00") - (data (i32.const 137196) "\dc\17\02\00" "\22" (; HIDDEN ;) "UND" "\9d\00\00\00") + (data (i32.const 0x217ec) "\dc\17\02\00" "\22" (; F_HIDDEN ;) "UN " "\9d\00\00\00") (data (i32.const 0x21858) "\4c\18\02\00" "\23" (; HIDDEN ;) "UND" "\a4\00\00\00") (data (i32.const 136164) "\d4\13\02\00" "\2b" (; HIDDEN ;) "UNDEFINED__" "X\00\00\00") (data (i32.const 137224) "\f8\17\02\00" "\2c" (; HIDDEN ;) "UNDEFINED___\00\00\00" "\9f\00\00\00")