diff options
Diffstat (limited to 'ia32/macro.sts')
-rw-r--r-- | ia32/macro.sts | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/ia32/macro.sts b/ia32/macro.sts index 9335176..fa9510b 100644 --- a/ia32/macro.sts +++ b/ia32/macro.sts @@ -20,7 +20,7 @@ [ defconst 2 defasm %1% - # 68 ?' # %2% ?. ; push %2% + # 68 ?' # %2% ?. ; push %2% next ] @@ -30,7 +30,7 @@ # %2% # 4 ?* ?res _code_segment ?choose defasm %1% - # 68 ?' _%1%_arr ?. ; push _%1%_arr + # 68 ?' _%1%_arr ?. ; push _%1%_arr next ] @@ -40,17 +40,13 @@ [ as 1 _data_segment ?choose - defword %1% - lit ?$ # 0 ?. - exit + defword %1% + lit ?$ # 0 ?. + exit _code_segment ?choose lit ?. ! ] -[ local 1 - top as %1% -] - [ literal 0 lit # %1% ?. ] @@ -88,9 +84,3 @@ branch ?swap ?. ?$ ?swap ?! ] - -[ change 0 - dup get - swap 2 get swap 2 + set - swap drop -] |