aboutsummaryrefslogtreecommitdiff
path: root/common
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-18 18:22:31 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-18 18:22:31 +0300
commitdf0d6a4503a26508553510b4050eaa79f52e4e4e (patch)
tree2517b6070319270a4cb0df9dcf3814b16ecaece9 /common
parent9eadc7bac8863b7fd3a39edc9ba31cf4d3b5ab95 (diff)
downloadcryptrobber-df0d6a4503a26508553510b4050eaa79f52e4e4e.tar
cryptrobber-df0d6a4503a26508553510b4050eaa79f52e4e4e.tar.xz
cryptrobber-df0d6a4503a26508553510b4050eaa79f52e4e4e.zip
Another step to release.
Diffstat (limited to 'common')
-rw-r--r--common/common.sts3
-rw-r--r--common/const.sts95
-rw-r--r--common/macro.sts9
-rw-r--r--common/print.sts30
4 files changed, 0 insertions, 137 deletions
diff --git a/common/common.sts b/common/common.sts
deleted file mode 100644
index 8a7f835..0000000
--- a/common/common.sts
+++ /dev/null
@@ -1,3 +0,0 @@
-module common/macro.sts
-module common/const.sts
-module common/print.sts
diff --git a/common/const.sts b/common/const.sts
deleted file mode 100644
index b1a08b0..0000000
--- a/common/const.sts
+++ /dev/null
@@ -1,95 +0,0 @@
-defconst newline 0a
-defconst space 20
-defconst '!' 21
-defconst '"' 22
-defconst '#' 23
-defconst '$' 24
-defconst percent 25 ; '%' (25) symbol is reserved by smack
-defconst '&' 26
-defconst ''' 27
-defconst '(' 28
-defconst ')' 29
-defconst '*' 2a
-defconst '+' 2b
-defconst ',' 2c
-defconst '-' 2d
-defconst '.' 2e
-defconst '/' 2f
-defconst '0' 30
-defconst '1' 31
-defconst '2' 32
-defconst '3' 33
-defconst '4' 34
-defconst '5' 35
-defconst '6' 36
-defconst '7' 37
-defconst '8' 38
-defconst '9' 39
-defconst ':' 3a
-defconst '<' 3c
-defconst '=' 3d
-defconst '>' 3e
-defconst '?' 3f
-defconst '@' 40
-defconst 'A' 41
-defconst 'B' 42
-defconst 'C' 43
-defconst 'D' 44
-defconst 'E' 45
-defconst 'F' 46
-defconst 'G' 47
-defconst 'H' 48
-defconst 'I' 49
-defconst 'J' 4a
-defconst 'K' 4b
-defconst 'L' 4c
-defconst 'M' 4d
-defconst 'N' 4e
-defconst 'O' 4f
-defconst 'P' 50
-defconst 'Q' 51
-defconst 'R' 52
-defconst 'S' 53
-defconst 'T' 54
-defconst 'U' 55
-defconst 'V' 56
-defconst 'W' 57
-defconst 'X' 58
-defconst 'Y' 59
-defconst 'Z' 5a
-defconst '[' 5b
-defconst '\' 5c
-defconst ']' 5d
-defconst '^' 5e
-defconst '_' 5f
-defconst '`' 60
-defconst 'a' 61
-defconst 'b' 62
-defconst 'c' 63
-defconst 'd' 64
-defconst 'e' 65
-defconst 'f' 66
-defconst 'g' 67
-defconst 'h' 68
-defconst 'i' 69
-defconst 'j' 6a
-defconst 'k' 6b
-defconst 'l' 6c
-defconst 'm' 6d
-defconst 'n' 6e
-defconst 'o' 6f
-defconst 'p' 70
-defconst 'q' 71
-defconst 'r' 72
-defconst 's' 73
-defconst 't' 74
-defconst 'u' 75
-defconst 'v' 76
-defconst 'w' 77
-defconst 'x' 78
-defconst 'y' 79
-defconst 'z' 7a
-defconst '{' 7b
-defconst '|' 7c
-defconst '}' 7d
-defconst '~' 7e
diff --git a/common/macro.sts b/common/macro.sts
deleted file mode 100644
index 162bf2f..0000000
--- a/common/macro.sts
+++ /dev/null
@@ -1,9 +0,0 @@
-[ local 1
- top as %1%
-]
-
-[ change 0
- 1 + dup get
- swap 2 get swap set
- swap drop
-]
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