Compile ,
This commit is contained in:
15
wipforth.wat
15
wipforth.wat
@@ -1522,6 +1522,21 @@
|
|||||||
|
|
||||||
;; : , HERE @ ! 4 HERE +! ;
|
;; : , 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 ;
|
;; : IMMEDIATE? 4+ @ 128 AND 0BRANCH [12] TRUE EXIT FALSE ;
|
||||||
|
|
||||||
;; : INTERPRET
|
;; : INTERPRET
|
||||||
|
|||||||
Reference in New Issue
Block a user