Compile TUCK

2026-02-26 23:12:12 +00:00
parent 93f0b312a8
commit 55bc5060e4
1 changed files with 10 additions and 0 deletions
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1095,6 +1095,16 @@

 ;; : TUCK DUP -ROT ;

+ (data (i32.const 0x05e4)
+       "\d0\05\00\00"
+       "\04TUCK\00\00\00"
+       "\00\00\00\00"
+       "\08\02\00\00"  ;; DUP
+       "\44\02\00\00"  ;; -ROT
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x1c bytes
+
 ;; : SPACE? ( byte -- bool )
 ;;   DUP 9 = SWAP                 \ Compare to horizontal tab
 ;;   DUP 10 = SWAP                \ Compare to line-feed