aboutsummaryrefslogtreecommitdiff
path: root/ia32/macro.sts
diff options
context:
space:
mode:
Diffstat (limited to 'ia32/macro.sts')
-rw-r--r--ia32/macro.sts20
1 files changed, 17 insertions, 3 deletions
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
+]