From 777531abc4d611c292c5a2673fb5bf0be8acb5d5 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Fri, 27 Feb 2026 16:16:59 +0000
Subject: [PATCH] Compile STRING=

---
 wipforth.wat | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/wipforth.wat b/wipforth.wat
index dd2867d..cd5d2f5 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1203,6 +1203,39 @@
  ;;   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 ;
 
  ;; : FIND ( len -- entry )