From ce9e52469d0b12b3231ccc199e1b19bb924f54cd Mon Sep 17 00:00:00 2001
From: exegete <nikitf-97@mail.ru>
Date: Fri, 16 Oct 2020 20:14:51 +0300
Subject: test module; top, as added

---
 ia32/macro.sts | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'ia32/macro.sts')

diff --git a/ia32/macro.sts b/ia32/macro.sts
index 3842a5c..5aa3b35 100644
--- a/ia32/macro.sts
+++ b/ia32/macro.sts
@@ -18,14 +18,19 @@
     _docol # 4 ?+ ?.
 ]
 
+[ defconst 2
+    defasm %1%
+    # 68 ?' # %2% ?.                      ; push %2%
+    next
+]
+
 [ defarr 2
     _data_segment ?choose
     ?$ ?? _%1%_arr
     # %2% # 4 ?* ?res
     _code_segment ?choose
     defasm %1%
-    ; push _%1%_arr
-    # 68 ?' _%1%_arr ?.
+    # 68 ?' _%1%_arr ?.                 ; push _%1%_arr
     next
 ]
 
@@ -33,6 +38,15 @@
     defarr %1% 1
 ]
 
+[ as 1
+    _data_segment ?choose
+    defword %1%
+    lit ?$ # 0 ?.
+    exit
+    _code_segment ?choose
+    lit ?. !
+]
+
 [ literal 0
     lit # %1% ?.
 ]
-- 
cgit v1.2.3