diff options
Diffstat (limited to 'common/print.sts')
| -rw-r--r-- | common/print.sts | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/common/print.sts b/common/print.sts deleted file mode 100644 index a3bea56..0000000 --- a/common/print.sts +++ /dev/null @@ -1,30 +0,0 @@ -defword get_hex - f and - dup 9 > if - a - 'a' + - else - '0' + - fi -exit - -defword print_hex - dup 1c shr get_hex sys_write - dup 18 shr get_hex sys_write - dup 14 shr get_hex sys_write - dup 10 shr get_hex sys_write - dup c shr get_hex sys_write - dup 8 shr get_hex sys_write - dup 4 shr get_hex sys_write - get_hex sys_write -exit - -defword print_stack - dup - do - over over - 2 + get print_hex - 1 - dup 0 = until - space sys_write - od newline sys_write - drop - drop -exit |