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

Compile STRING=

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:16:59 +00:00
parent a7c96fc56c
commit 777531abc4
1 changed files with 33 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
wipforth.wat
View File

@@ -1203,6 +1203,39 @@
;; 2DROP DROP TRUE \ Strings equal ;; 2DROP DROP TRUE \ Strings equal
;; ; ;; ;
(data (i32.const 0x06e8)
"\68\06\00\00"
"\07STRING="
"\00\00\00\00"
"\64\02\00\00" ;; 2DUP
"\fc\03\00\00" ;; C@
"\28\02\00\00" ;; SWAP
"\fc\03\00\00" ;; C@
"\fc\02\00\00" ;; =
"\b4\04\00\00" ;; 0BRANCH
"\30\00\00\00" ;; 48
"\90\02\00\00" ;; 1+
"\44\02\00\00" ;; -ROT
"\90\02\00\00" ;; 1+
"\44\02\00\00" ;; -ROT
"\9c\02\00\00" ;; 1-
"\08\02\00\00" ;; DUP
"\b4\04\00\00" ;; 0BRANCH
"\20\00\00\00" ;; 32
"\44\02\00\00" ;; -ROT
"\a4\04\00\00" ;; BRANCH
"\bc\ff\ff\ff" ;; -68
"\74\02\00\00" ;; 2DROP
"\18\02\00\00" ;; DROP
"\48\05\00\00" ;; FALSE
"\0c\04\00\00" ;; EXIT
"\74\02\00\00" ;; 2DROP
"\18\02\00\00" ;; DROP
"\34\05\00\00" ;; TRUE
"\0c\04\00\00") ;; EXIT
;; => 0x78 bytes
;; : NAME-LEN 4+ C@ 31 AND ; ;; : NAME-LEN 4+ C@ 31 AND ;
;; : FIND ( len -- entry ) ;; : FIND ( len -- entry )