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
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 PROCINLINE:<{ |
|
s2 s3 XCHG2 |
|
STDICT |
|
STDICT |
|
257 PUSHINT |
|
STIX |
|
}> |
|
__gen_write_TONB PROCINLINE:<{ |
|
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 |
|
OVER |
|
TRUE |
|
PUSHNULL |
|
PUSHNULL |
|
s3 PUSH |
|
s0 s11 XCHG |
|
NEWC |
|
STREF |
|
s0 s11 XCHG |
|
s4 s10 XCHG |
|
s4 s9 XCHG |
|
s4 s8 XCHG |
|
5 3 REVERSE |
|
s3 s5 XCHG |
|
__gen_write_TONB INLINECALLDICT |
|
ENDC |
|
}> |
|
init PROC:<{ |
|
$__gen_TONB_init CALLDICT |
|
}> |
|
main PROC:<{ |
|
}> |
|
}END>c
|
|
|