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.
205 lines
3.9 KiB
205 lines
3.9 KiB
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_owner |
|
83229 DECLMETHOD $__gen_get_owner |
|
DECLPROC $__gen_Linker_master |
|
120253 DECLMETHOD $__gen_get_master |
|
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 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 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_owner PROC:<{ |
|
s1 s3 XCHG |
|
3 BLKDROP |
|
}> |
|
$__gen_get_owner PROC:<{ |
|
__gen_load_Linker INLINECALLDICT |
|
$__gen_Linker_owner CALLDICT |
|
}> |
|
$__gen_Linker_master PROC:<{ |
|
s2 s3 XCHG |
|
3 BLKDROP |
|
}> |
|
$__gen_get_master PROC:<{ |
|
__gen_load_Linker INLINECALLDICT |
|
$__gen_Linker_master CALLDICT |
|
}> |
|
$__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{697066733a2f2f516d503871466e344b42526f47775847705a7a4b384537746f72434573634c4c6f38526f7234456379596b696757} PUSHSLICE |
|
}> |
|
}END>c
|
|
|