diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 15:22:32 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 15:22:32 +0300 |
| commit | 5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b (patch) | |
| tree | e416404c45c91d88f6eaaeff564e5e93c2b6bda3 /common/print.sts | |
| parent | 58725b7cb427b6a73fd5a56f137f0dbb11827284 (diff) | |
| download | cryptrobber-5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b.tar cryptrobber-5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b.tar.xz cryptrobber-5a21e0a0a4d944a7277a86a33a36b2eb7df59e3b.zip | |
print_stack improved.
Diffstat (limited to 'common/print.sts')
| -rw-r--r-- | common/print.sts | 7 |
1 files changed, 3 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 |