From 68ea390db8e5977dcc84dc93daeb467ee243cb35 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Fri, 16 Oct 2020 13:34:42 +0300 Subject: Restyled ia32. --- main.sts | 32 +++++++++++++++----------------- 1 file changed, 15 insertions(+), 17 deletions(-) (limited to 'main.sts') diff --git a/main.sts b/main.sts index 7cbca9f..89b8697 100644 --- a/main.sts +++ b/main.sts @@ -1,26 +1,24 @@ module ia32/elf/begin.sts -defword myword -key if - emit -fi -drop +defword keyecho + key if emit fi + drop exit -defarr my_array 3 -defvar my_variable +defarr numstr 3 +defvar char set_entry -31 my_variable ! -my_variable @ emit -32 my_array ! -33 my_array 1 + ! -34 my_array 2 + ! -my_array @ emit -my_array 1 + @ emit -my_array 2 + @ emit -35 36 swap emit emit -myword + 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 quit module ia32/elf/end.sts -- cgit v1.2.3