Compile NEGATE

2026-02-27 16:18:52 +00:00
parent dda02a1d9f
commit 78d45c61de
1 changed files with 10 additions and 0 deletions
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1407,6 +1407,16 @@

 ;; : NEGATE INVERT 1+ ;

+ (data (i32.const 0x0930)
+       "\6c\08\00\00"
+       "\06NEGATE\00"
+       "\00\00\00\00"
+       "\b4\03\00\00"  ;; INVERT
+       "\90\02\00\00"  ;; 1+
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x1c bytes
+
 ;; : NUMBER? ( len -- value TRUE | FALSE )
 ;;   WORDBUF                       \ Initial address
 ;;