From b6b9e29c1484c9c8b8af2b382d3a9d796c310217 Mon Sep 17 00:00:00 2001 From: exegete Date: Sat, 17 Oct 2020 03:33:08 +0300 Subject: Common dir added, stderr output, minor changes --- common/common.sts | 2 ++ common/const.sts | 10 ++++++++++ common/macro.sts | 9 +++++++++ 3 files changed, 21 insertions(+) create mode 100644 common/common.sts create mode 100644 common/const.sts create mode 100644 common/macro.sts (limited to 'common') diff --git a/common/common.sts b/common/common.sts new file mode 100644 index 0000000..cc5f5ee --- /dev/null +++ b/common/common.sts @@ -0,0 +1,2 @@ +module common/macro.sts +module common/const.sts diff --git a/common/const.sts b/common/const.sts new file mode 100644 index 0000000..b2e9f31 --- /dev/null +++ b/common/const.sts @@ -0,0 +1,10 @@ +defconst '0' 30 +defconst '1' 31 +defconst '2' 32 +defconst '3' 33 +defconst '4' 34 +defconst '5' 35 +defconst '6' 36 +defconst '7' 37 +defconst '8' 38 +defconst '9' 39 diff --git a/common/macro.sts b/common/macro.sts new file mode 100644 index 0000000..f8620d5 --- /dev/null +++ b/common/macro.sts @@ -0,0 +1,9 @@ +[ local 1 + top as %1% +] + +[ change 0 + dup get + swap 2 get swap 2 + set + swap drop +] -- cgit v1.2.3