From 3e8972d7ce7859234d13be9e1949295901ac4806 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Fri, 20 Mar 2026 01:20:19 +1100
Subject: char, immediate, and ( bracket comments )

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

(limited to 'sanctuary.s')

diff --git a/sanctuary.s b/sanctuary.s
index 1b9fd0f..6e5707a 100644
--- a/sanctuary.s
+++ b/sanctuary.s
@@ -484,6 +484,24 @@ defcode "smudge", smudge, 0
 	mov byte [r12], r13b
 	ret
 
+defcode "immediate", immediate, 0
+	mov r12, [latest]
+	add r12, 8
+	mov r13b, [r12]
+	mov r14b, immediate_mask
+	or r13b, r14b
+	mov byte [r12], r13b
+	ret
+
+defcode "char", char, 0
+	call parse_name
+	call drop
+	pspop r12
+	xor r11, r11
+	mov r11b, [r12]
+	pspush r11
+	ret
+
 ; number {{{
 defcode "number", number, 0 ; ( c-addr u -- ?n flag )
 	pspop r11 ; u
-- 
cgit v1.2.3