cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compile IMMEDIATE?

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:19:31 +00:00
parent 797a95204f
commit 62f3bff926
1 changed files with 18 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
wipforth.wat
View File

@@ -1539,6 +1539,24 @@
;; : IMMEDIATE? 4+ @ 128 AND 0BRANCH [12] TRUE EXIT FALSE ; ;; : IMMEDIATE? 4+ @ 128 AND 0BRANCH [12] TRUE EXIT FALSE ;
(data (i32.const 0x0a74)
"\48\0a\00\00"
"\0aIMMEDIATE?\00"
"\00\00\00\00"
"\a8\02\00\00" ;; 4+
"\cc\03\00\00" ;; @
"\18\04\00\00" ;; LIT
"\80\00\00\00" ;; 128
"\8c\03\00\00" ;; AND
"\b4\04\00\00" ;; 0BRANCH
"\0c\00\00\00" ;; 12
"\34\05\00\00" ;; TRUE
"\0c\04\00\00" ;; EXIT
"\48\05\00\00" ;; FALSE
"\0c\04\00\00") ;; EXIT
;; => 0x40 bytes
;; : INTERPRET ;; : INTERPRET
;; WORD \ Read a word ;; WORD \ Read a word
;; DUP FIND \ Look it up ;; DUP FIND \ Look it up