diff --git a/wipforth.wat b/wipforth.wat index fbb52eb..a547f94 100644 --- a/wipforth.wat +++ b/wipforth.wat @@ -1522,6 +1522,21 @@ ;; : , HERE @ ! 4 HERE +! ; + (data (i32.const 0x0a48) + "\4c\09\00\00" + "\01,\00\00" + "\00\00\00\00" + "\84\05\00\00" ;; HERE + "\cc\03\00\00" ;; @ + "\c0\03\00\00" ;; ! + "\18\04\00\00" ;; LIT + "\04\00\00\00" ;; 4 + "\84\05\00\00" ;; HERE + "\dc\03\00\00" ;; +! + "\0c\04\00\00") ;; EXIT + + ;; => 0x2c bytes + ;; : IMMEDIATE? 4+ @ 128 AND 0BRANCH [12] TRUE EXIT FALSE ; ;; : INTERPRET