From b92ef5212daad3f318aa26fdaf69fdeb7e66e8a4 Mon Sep 17 00:00:00 2001
From: exegete <nikitf-97@mail.ru>
Date: Fri, 16 Oct 2020 16:25:06 +0300
Subject: set, get, syscall, makefile

---
 main.sts | 23 +++++------------------
 1 file changed, 5 insertions(+), 18 deletions(-)

(limited to 'main.sts')

diff --git a/main.sts b/main.sts
index 89b8697..45010ec 100644
--- a/main.sts
+++ b/main.sts
@@ -1,24 +1,11 @@
 module ia32/elf/begin.sts
 
-defword keyecho
-    key if emit fi
-    drop
-exit
-
-defarr numstr 3
-defvar char
-
 set_entry
-    31 char !
-    char @ emit
-    32 numstr !
-    33 numstr 1 + !
-    34 numstr 2 + !
-    numstr @ emit
-    numstr 1 + @ emit
-    numstr 2 + @ emit
-    35 36 swap emit emit
-    keyecho
+    30 31 32
+    33 0 set 34 1 set 35 2 set
+    emit
+    emit
+    emit
 quit
 
 module ia32/elf/end.sts
-- 
cgit v1.2.3