mirror of
https://github.com/danog/ton.git
synced 2024-12-02 17:38:33 +01:00
12 lines
372 B
Plaintext
12 lines
372 B
Plaintext
|
"Asm.fif" include
|
||
|
|
<{ 2SWAP ADD s2 POP FALSE }>s b{00}
|
||
|
|
<{ 2SWAP MUL s2 POP FALSE }>s b{1}
|
||
|
|
<{ 2SWAP SUB s2 POP FALSE }>s b{01}
|
||
|
|
3
|
||
|
|
<{ NEWDICT SWAP REPEAT: 8 INT PFXDICTADD 11 THROWIFNOT }>s runvmcode
|
||
|
|
abort"cannot create prefix code dictionary"
|
||
|
|
dup dict>s csr.
|
||
|
|
<{ <{ rot 8 PFXDICTSWITCH TRUE }>UNTIL SDEMPTY 11 THROWIFNOT }>s
|
||
|
|
dup csr.
|
||
|
|
1 2 3 4 5 b{001011} 6 roll runvmcode .s
|