From df0d6a4503a26508553510b4050eaa79f52e4e4e Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Sun, 18 Oct 2020 18:22:31 +0300 Subject: Another step to release. --- common/print.sts | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 common/print.sts (limited to 'common/print.sts') 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 -- cgit v1.2.3