aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-18 15:22:32 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-18 15:22:32 +0300
commit5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b (patch)
treee416404c45c91d88f6eaaeff564e5e93c2b6bda3
parent58725b7cb427b6a73fd5a56f137f0dbb11827284 (diff)
downloadcryptrobber-5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b.tar
cryptrobber-5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b.tar.xz
cryptrobber-5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b.zip
print_stack improved.
-rw-r--r--common/print.sts7
-rw-r--r--main.sts1
2 files changed, 4 insertions, 4 deletions
diff --git a/common/print.sts b/common/print.sts
index 16973c2..a3bea56 100644
--- a/common/print.sts
+++ b/common/print.sts
@@ -16,16 +16,15 @@ defword print_hex
dup 8 shr get_hex sys_write
dup 4 shr get_hex sys_write
get_hex sys_write
- a sys_write
exit
defword print_stack
dup
do
- dup 0 = until
over over - 2 + get print_hex
- 1 -
- od
+ 1 - dup 0 = until
+ space sys_write
+ od newline sys_write
drop
drop
exit
diff --git a/main.sts b/main.sts
index fafbb6a..7b12bb5 100644
--- a/main.sts
+++ b/main.sts
@@ -138,6 +138,7 @@ set_entry float_init ; this is program with floats
0 do dup length = until
swap drop 1 +
od drop keylen
+ 4 print_stack
od as langcode drop
; output language