From ccc5e9514111ecec8c045a9b78cb2052da090c95 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Mon, 23 Mar 2026 00:42:21 +1100
Subject: boilerplate for create does>

---
 sanctuary.s | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'sanctuary.s')

diff --git a/sanctuary.s b/sanctuary.s
index 7c47326..8fe545d 100644
--- a/sanctuary.s
+++ b/sanctuary.s
@@ -1006,6 +1006,22 @@ defcode "abort", abort, 0
 	ret
 ; }}}
 
+; these words are called from `create`d words,
+; (create) expects a dummy value (used by (does>)) to skip past.
+defcode "(create)", docreate, 0
+	pop r11
+	add r11, 8 ; skip dummy value unused by (create)
+	pspush r11
+	ret
+
+defcode "(does>)", dodoes, 0
+	pop r11
+	mov r12, [r11]
+	add r11, 8
+	pspush r11
+	jmp r12
+	; no RET
+
 ; TEMPORARY WONKY DEBUGGING FUNCTIONS {{{
 ; .s {{{
 defcode ".s", dots, 0
-- 
cgit v1.2.3