27 lines
479 B
Plaintext
27 lines
479 B
Plaintext
|
import ../stdlib/stdlib.sl
|
||
|
|
import ../stdlib/io.sl
|
||
|
|
|
||
|
|
word main
|
||
|
|
6 3 band puti cr
|
||
|
|
6 3 bor puti cr
|
||
|
|
6 3 bxor puti cr
|
||
|
|
0 bnot puti cr
|
||
|
|
1 3 shl puti cr
|
||
|
|
1 3 sal puti cr
|
||
|
|
8 1 shr puti cr
|
||
|
|
8 neg 1 sar puti cr
|
||
|
|
5 inc puti cr
|
||
|
|
5 dec puti cr
|
||
|
|
3 7 min puti cr
|
||
|
|
3 7 max puti cr
|
||
|
|
1 3 rol puti cr
|
||
|
|
8 1 ror puti cr
|
||
|
|
5 1 4 clamp puti cr
|
||
|
|
0 1 4 clamp puti cr
|
||
|
|
3 1 4 clamp puti cr
|
||
|
|
time 0 > puti cr
|
||
|
|
1 mem swap !
|
||
|
|
rand puti cr
|
||
|
|
0
|
||
|
|
end
|