You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
186 lines
3.5 KiB
186 lines
3.5 KiB
2 years ago
|
PROGRAM{
|
||
|
|
DECLPROC __tact_context_get
|
||
|
|
DECLPROC __tact_verify_address
|
||
|
|
DECLPROC __tact_load_address
|
||
|
|
DECLPROC __tact_load_address_opt
|
||
|
|
DECLPROC __tact_store_address
|
||
|
|
DECLPROC __tact_store_address_opt
|
||
|
|
DECLPROC __tact_address_eq
|
||
|
|
DECLPROC __gen_read_SetLinkerNeighbor
|
||
|
|
DECLPROC __gen_write_Linker
|
||
|
|
DECLPROC __gen_read_Linker
|
||
|
|
DECLPROC __gen_load_Linker
|
||
|
|
DECLPROC __gen_store_Linker
|
||
|
|
DECLPROC $__gen_Linker_receive_SetLinkerNeighbor
|
||
|
|
DECLPROC recv_internal
|
||
|
|
113617 DECLMETHOD supported_interfaces
|
||
|
|
DECLPROC get_abi_ipfs
|
||
|
|
DECLGLOBVAR __tact_context
|
||
|
|
DECLGLOBVAR __tact_context_sys
|
||
|
|
__tact_context_get PROCINLINE:<{
|
||
|
|
__tact_context GETGLOB
|
||
|
|
4 UNTUPLE
|
||
|
|
}>
|
||
|
|
__tact_verify_address PROCINLINE:<{
|
||
|
|
SBITS
|
||
|
|
267 PUSHINT
|
||
|
|
NEQ
|
||
|
|
136 THROWIFNOT
|
||
|
|
}>
|
||
|
|
__tact_load_address PROCINLINE:<{
|
||
|
|
LDMSGADDR
|
||
|
|
SWAP
|
||
|
|
}>
|
||
|
|
__tact_load_address_opt PROCINLINE:<{
|
||
|
|
LDMSGADDR
|
||
|
|
OVER
|
||
|
|
2 PLDU
|
||
|
|
0 NEQINT
|
||
|
|
IF:<{
|
||
|
|
SWAP
|
||
|
|
}>ELSE<{
|
||
|
|
NIP
|
||
|
|
PUSHNULL
|
||
|
|
}>
|
||
|
|
}>
|
||
|
|
__tact_store_address PROCINLINE:<{
|
||
|
|
STSLICER
|
||
|
|
}>
|
||
|
|
__tact_store_address_opt PROCINLINE:<{
|
||
|
|
DUP
|
||
|
|
ISNULL
|
||
|
|
IF:<{
|
||
|
|
DROP
|
||
|
|
0 PUSHINT
|
||
|
|
SWAP
|
||
|
|
2 STU
|
||
|
|
}>ELSE<{
|
||
|
|
__tact_store_address INLINECALLDICT
|
||
|
|
}>
|
||
|
|
}>
|
||
|
|
__tact_address_eq PROCINLINE:<{
|
||
|
|
SDEQ
|
||
|
|
}>
|
||
|
|
__gen_read_SetLinkerNeighbor PROCREF:<{
|
||
|
|
32 LDU
|
||
|
|
SWAP
|
||
|
|
3019699393 PUSHINT
|
||
|
|
EQUAL
|
||
|
|
129 THROWIFNOT
|
||
|
|
__tact_load_address_opt INLINECALLDICT
|
||
|
|
}>
|
||
|
|
__gen_write_Linker PROCREF:<{
|
||
|
|
s3 s4 XCHG2
|
||
|
|
257 PUSHINT
|
||
|
|
STIX
|
||
|
|
SWAP
|
||
|
|
__tact_store_address INLINECALLDICT
|
||
|
|
SWAP
|
||
|
|
__tact_store_address_opt INLINECALLDICT
|
||
|
|
NEWC
|
||
|
|
ROT
|
||
|
|
__tact_store_address_opt INLINECALLDICT
|
||
|
|
ENDC
|
||
|
|
SWAP
|
||
|
|
STREF
|
||
|
|
}>
|
||
|
|
__gen_read_Linker PROCREF:<{
|
||
|
|
257 PUSHINT
|
||
|
|
LDIX
|
||
|
|
__tact_load_address INLINECALLDICT
|
||
|
|
SWAP
|
||
|
|
__tact_load_address_opt INLINECALLDICT
|
||
|
|
SWAP
|
||
|
|
LDREF
|
||
|
|
SWAP
|
||
|
|
CTOS
|
||
|
|
__tact_load_address_opt INLINECALLDICT
|
||
|
|
NIP
|
||
|
|
s1 s4 XCHG
|
||
|
|
s3 s3 s0 XCHG3
|
||
|
|
}>
|
||
|
|
__gen_load_Linker PROCREF:<{
|
||
|
|
c4 PUSH
|
||
|
|
CTOS
|
||
|
|
LDREF
|
||
|
|
SWAP
|
||
|
|
__tact_context_sys SETGLOB
|
||
|
|
__gen_read_Linker INLINECALLDICT
|
||
|
|
1 4 BLKDROP2
|
||
|
|
}>
|
||
|
|
__gen_store_Linker PROCREF:<{
|
||
|
|
NEWC
|
||
|
|
__tact_context_sys GETGLOB
|
||
|
|
SWAP
|
||
|
|
STREF
|
||
|
|
4 -ROLL
|
||
|
|
__gen_write_Linker INLINECALLDICT
|
||
|
|
ENDC
|
||
|
|
c4 POP
|
||
|
|
}>
|
||
|
|
$__gen_Linker_receive_SetLinkerNeighbor PROC:<{
|
||
|
|
NIP
|
||
|
|
__tact_context_get INLINECALLDICT
|
||
|
|
2DROP
|
||
|
|
4429 PUSHINT
|
||
|
|
s2 POP
|
||
|
|
s4 PUSH
|
||
|
|
__tact_address_eq INLINECALLDICT
|
||
|
|
THROWANYIFNOT
|
||
|
|
}>
|
||
|
|
recv_internal PROC:<{
|
||
|
|
0 PUSHINT
|
||
|
|
OVER
|
||
|
|
SBITS
|
||
|
|
31 GTINT
|
||
|
|
IF:<{
|
||
|
|
DROP
|
||
|
|
DUP
|
||
|
|
32 PLDU
|
||
|
|
}>
|
||
|
|
s0 s2 XCHG
|
||
|
|
CTOS
|
||
|
|
4 LDU
|
||
|
|
SWAP
|
||
|
|
1 PUSHINT
|
||
|
|
AND
|
||
|
|
1 EQINT
|
||
|
|
IF:<{
|
||
|
|
TRUE
|
||
|
|
}>ELSE<{
|
||
|
|
FALSE
|
||
|
|
}>
|
||
|
|
SWAP
|
||
|
|
LDMSGADDR
|
||
|
|
s2 PUSH
|
||
|
|
s6 s6 XCHG2
|
||
|
|
4 TUPLE
|
||
|
|
__tact_context SETGLOB
|
||
|
|
s0 s2 XCHG
|
||
|
|
IFJMP:<{
|
||
|
|
2DROP
|
||
|
|
}>
|
||
|
|
3019699393 PUSHINT
|
||
|
|
EQUAL
|
||
|
|
IFJMP:<{
|
||
|
|
__gen_load_Linker INLINECALLDICT
|
||
|
|
s0 s4 XCHG
|
||
|
|
__gen_read_SetLinkerNeighbor INLINECALLDICT
|
||
|
|
NIP
|
||
|
|
s3 s4 XCHG
|
||
|
|
s1 s3 s0 XCHG3
|
||
|
|
$__gen_Linker_receive_SetLinkerNeighbor CALLDICT
|
||
|
|
__gen_store_Linker INLINECALLDICT
|
||
|
|
}>
|
||
|
|
DROP
|
||
|
|
130 THROW
|
||
|
|
}>
|
||
|
|
supported_interfaces PROC:<{
|
||
|
|
123515602279859691144772641439386770278 PUSHINT
|
||
|
|
209801025412363888721030803524359905849 PUSHINT
|
||
|
|
}>
|
||
|
|
get_abi_ipfs PROC:<{
|
||
|
|
x{697066733a2f2f516d5437396a32347a67325265346d564353646762635856416642776668735a76654655775148706467596a4355} PUSHSLICE
|
||
|
|
}>
|
||
|
|
}END>c
|