From a5ada20d77f6fcf7bf54e49402e55d3b1c56df5e Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Fri, 16 Oct 2020 22:38:45 +0300
Subject: Meh.

---
 ia32/macro.sts | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'ia32/macro.sts')

diff --git a/ia32/macro.sts b/ia32/macro.sts
index 5aa3b35..34c3a9d 100644
--- a/ia32/macro.sts
+++ b/ia32/macro.sts
@@ -40,13 +40,21 @@
 
 [ as 1
     _data_segment ?choose
-    defword %1%
-    lit ?$ # 0 ?.
-    exit
+        defword %1%
+            lit ?$ # 0 ?.
+        exit
     _code_segment ?choose
     lit ?. !
 ]
 
+[ local 1
+    top as %1%
+]
+
+[ ref 0
+    top + 1 +
+]
+
 [ literal 0
     lit # %1% ?.
 ]
@@ -84,3 +92,9 @@
     branch ?swap ?.
     ?$ ?swap ?!
 ]
+
+[ change 0
+    dup get
+    swap 2 get swap 2 + set
+    swap drop
+]
-- 
cgit v1.2.3