mirror of
https://github.com/ton-blockchain/ton
synced 2025-02-13 03:32:22 +00:00
20 lines
429 B
Text
20 lines
429 B
Text
#!/usr/bin/fift -s
|
|
"Asm.fif" include
|
|
2500 =: N
|
|
{ 5 * } : *K
|
|
N 100 / =: N/100
|
|
N 10 / =: N/10
|
|
{ { EXECUTE } 100 times } : 100EXECUTE
|
|
{ DUP { 2DUP } 7 times } : 15DUP
|
|
{ { 2DUP } 50 times } : 100DUP
|
|
{ { 15 -1 SETCONTARGS 15DUP } 10 times } : 10SET&DUP
|
|
<{
|
|
CONT:<{ }>
|
|
15DUP
|
|
N/10 INT REPEAT:<{ 10SET&DUP }>
|
|
N/100 *K INT REPEAT:<{ 100DUP }>
|
|
N/100 *K INT REPEAT:<{ 100EXECUTE }>
|
|
}>s =: Code
|
|
|
|
Code csr.
|
|
Code 1000000 gasrunvmcode
|