mirror of
https://github.com/ton-blockchain/ton
synced 2025-02-13 03:32:22 +00:00
7 lines
368 B
Text
7 lines
368 B
Text
"Asm.fif" include
|
|
<{ 2 INT 3 INT 9 INT NULL CONS CONS CONS }>s dup csr. runvmcode .s
|
|
drop =: L
|
|
<{ ZERO WHILE:<{ OVER ISNULL NOT }>DO<{ SWAP SECOND SWAP INC }> NIP }>s dup csr. =: ListLength
|
|
L ListLength runvmcode .s 2drop
|
|
<{ CONT:<{ DUP ISNULL IF:<{ 2DROP ZERO }>ELSE: CDR OVER EXECUTE INC }> TUCK JMPX }>s dup csr. =: ListLengthRec
|
|
L ListLengthRec runvmcode .s 2drop
|