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

Compile NAME-LEN

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:17:49 +00:00
parent 938bd98ef6
commit a4e7673b7a
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
wipforth.wat
View File

@@ -1238,6 +1238,19 @@
;; : NAME-LEN 4+ C@ 31 AND ; ;; : NAME-LEN 4+ C@ 31 AND ;
(data (i32.const 0x0760)
"\e8\06\00\00"
"\08NAME-LEN\00\00\00"
"\00\00\00\00"
"\a8\02\00\00" ;; 4+
"\fc\03\00\00" ;; C@
"\18\04\00\00" ;; LIT
"\1f\00\00\00" ;; 31
"\8c\03\00\00" ;; AND
"\0c\04\00\00") ;; EXIT
;; => 0x2c bytes
;; : FIND ( len -- entry ) ;; : FIND ( len -- entry )
;; LATEST @ \ Initial entry ;; LATEST @ \ Initial entry
;; ;;