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.

103 lines
1.7 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
}>
}>
__gen_write_WithdrawalRequests PROCREF:<{
s2 s3 XCHG2
STDICT
STDICT
257 PUSHINT
STIX
}>
__gen_write_TONB PROCREF:<{
s11 s10 XCHG2
STGRAMS
s0 s8 XCHG2
__tact_store_address INLINECALLDICT
s6 PUSH
ISNULL
NOT
IF:<{
TRUE
SWAP
1 STI
s1 s6 XCHG
STREF
}>ELSE<{
s6 POP
FALSE
s0 s6 XCHG2
1 STI
}>
s1 s4 XCHG
1 STI
ROT
__tact_store_address_opt INLINECALLDICT
SWAP
__tact_store_address_opt INLINECALLDICT
SWAP
NEWC
257 PUSHINT
STIX
ROT
__tact_store_address_opt INLINECALLDICT
s4 s3 XCHG2
__gen_write_WithdrawalRequests INLINECALLDICT
ENDC
SWAP
STREF
}>
$__gen_TONB_init PROC:<{
PUSHNULL
PUSHNULL
0 PUSHINT
PUSHNULL
PUSHNULL
s4 PUSH
TRUE
s0 s11 XCHG
NEWC
STREF
s0 s11 XCHG
s0 s7 XCHG
s10 s5 XCHG2
s9 s3 XCHG2
s0 s8 XCHG2
s0 s6 XCHG
s4 s1 s4 XCHG3
__gen_write_TONB INLINECALLDICT
ENDC
}>
init PROC:<{
$__gen_TONB_init CALLDICT
}>
main PROC:<{
}>
}END>c