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

Compile NEGATE

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:18:52 +00:00
parent dda02a1d9f
commit 78d45c61de
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
wipforth.wat
View File

@@ -1407,6 +1407,16 @@
;; : NEGATE INVERT 1+ ; ;; : 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 ) ;; : NUMBER? ( len -- value TRUE | FALSE )
;; WORDBUF \ Initial address ;; WORDBUF \ Initial address
;; ;;