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.

113 lines
1.8 KiB

PROGRAM{
DECLPROC __tact_verify_address
DECLPROC __tact_store_address
DECLPROC __tact_store_address_opt
DECLPROC __gen_write_WithdrawalRequests
DECLPROC __gen_write_TONB
DECLPROC $__gen_TONB_init
107886 DECLMETHOD init
DECLPROC main
__tact_verify_address PROCINLINE:<{
SBITS
267 PUSHINT
NEQ
136 THROWIFNOT
}>
__tact_store_address PROCINLINE:<{
STSLICER
}>
__tact_store_address_opt PROCINLINE:<{
DUP
ISNULL
IF:<{
DROP
0 PUSHINT
SWAP
2 STU
}>ELSE<{
__tact_store_address INLINECALLDICT
}>
}>
2 years ago
__gen_write_WithdrawalRequests PROCINLINE:<{
s2 s3 XCHG2
STDICT
STDICT
257 PUSHINT
STIX
}>
2 years ago
__gen_write_TONB PROCINLINE:<{
s12 s11 XCHG2
STGRAMS
s0 s9 XCHG2
__tact_store_address INLINECALLDICT
s7 PUSH
ISNULL
NOT
IF:<{
TRUE
SWAP
1 STI
s1 s7 XCHG
STREF
}>ELSE<{
s7 POP
FALSE
s0 s7 XCHG2
1 STI
}>
s1 s5 XCHG
1 STI
s0 s3 XCHG2
__tact_store_address_opt INLINECALLDICT
SWAP
__tact_store_address_opt INLINECALLDICT
SWAP
NEWC
257 PUSHINT
STIX
ROT
__tact_store_address_opt INLINECALLDICT
s1 s2 XCHG
257 PUSHINT
STIX
NEWC
s3 s1 s3 XCHG3
s5 s4 XCHG2
__gen_write_WithdrawalRequests INLINECALLDICT
ENDC
ROT
STREF
ENDC
SWAP
STREF
}>
$__gen_TONB_init PROC:<{
PUSHNULL
PUSHNULL
0 PUSHINT
s0 s0 PUSH2
TRUE
2 years ago
PUSHNULL
PUSHNULL
s3 PUSH
s0 s12 XCHG
NEWC
STREF
s0 s12 XCHG
s4 s11 XCHG
2 years ago
s4 s10 XCHG
s4 s9 XCHG
s3 s8 XCHG
s3 s7 XCHG
s3 s6 XCHG
2 years ago
s3 s5 XCHG
__gen_write_TONB INLINECALLDICT
ENDC
}>
init PROC:<{
$__gen_TONB_init CALLDICT
}>
main PROC:<{
}>
}END>c