mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 11:51:49 +09:00
21 lines
597 B
Plaintext
21 lines
597 B
Plaintext
Calculate the value 256 and test if it's zero
|
|
If the interpreter errors on overflow this is where it'll happen
|
|
++++++++[>++++++++<-]>[<++++>-]
|
|
+<[>-<
|
|
Not zero so multiply by 256 again to get 65536
|
|
[>++++<-]>[<++++++++>-]<[>++++++++<-]
|
|
+>[>
|
|
# Print "32"
|
|
++++++++++[>+++++<-]>+.-.[-]<
|
|
<[-]<->] <[>>
|
|
# Print "16"
|
|
+++++++[>+++++++<-]>.+++++.[-]<
|
|
<<-]] >[>
|
|
# Print "8"
|
|
++++++++[>+++++++<-]>.[-]<
|
|
<-]<
|
|
# Print " bit cells\n"
|
|
+++++++++++[>+++>+++++++++>+++++++++>+<<<<-]>-.>-.+++++++.+++++++++++.<.
|
|
>>.++.+++++++..<-.>>-
|
|
Clean up used cells.
|
|
[[-]<] |