Compile IMMEDIATE?

2026-02-27 16:19:31 +00:00
parent 797a95204f
commit 62f3bff926
1 changed files with 18 additions and 0 deletions
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1539,6 +1539,24 @@

 ;; : 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
 ;;   WORD                          \ Read a word
 ;;   DUP FIND                      \ Look it up