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.
 
 

93 lines
1.8 KiB

PROGRAM{
DECLPROC __tact_verify_address
DECLPROC __tact_store_address
DECLPROC __gen_write_AddressList
DECLPROC __gen_write_Distribution
DECLPROC __gen_write_Foundation
DECLPROC __gen_AddressList_from_tuple
DECLPROC __gen_Distribution_from_tuple
DECLPROC $__gen_Foundation_init
107886 DECLMETHOD init
DECLPROC main
__tact_verify_address PROCINLINE:<{
SBITS
267 PUSHINT
NEQ
136 THROWIFNOT
}>
__tact_store_address PROCINLINE:<{
STSLICER
}>
__gen_write_AddressList PROCINLINE:<{
s0 s2 XCHG
STDICT
257 PUSHINT
STIX
}>
__gen_write_Distribution PROCINLINE:<{
3 -ROLL
__gen_write_AddressList INLINECALLDICT
STDICT
}>
__gen_write_Foundation PROCINLINE:<{
s10 s9 s8 XCHG3
__gen_write_AddressList INLINECALLDICT
NEWC
s6 s1 s3 XCHG3
s5 s4 XCHG2
__gen_write_Distribution INLINECALLDICT
SWAP
__tact_store_address INLINECALLDICT
s1 s2 XCHG
STDICT
s0 s4 XCHG
NEWC
STDICT
s1 s3 XCHG
STDICT
257 PUSHINT
STIX
ENDC
ROT
STREF
ENDC
SWAP
STREF
}>
__gen_AddressList_from_tuple PROCINLINE:<{
2 UNTUPLE
}>
__gen_Distribution_from_tuple PROCINLINE:<{
2 UNTUPLE
SWAP
__gen_AddressList_from_tuple INLINECALLDICT
ROT
}>
$__gen_Foundation_init PROC:<{
PUSHNULL
PUSHNULL
PUSHNULL
0 PUSHINT
s0 s10 XCHG
NEWC
STREF
s0 s10 XCHG
s6 s9 XCHG
4 5 REVERSE
s5 s6 XCHG
__gen_write_Foundation INLINECALLDICT
ENDC
}>
init PROC:<{
s0 s2 XCHG
__gen_Distribution_from_tuple INLINECALLDICT
s0 s3 XCHG
__gen_AddressList_from_tuple INLINECALLDICT
s3 s5 XCHG
s1 s0 s4 XCHG3
s0 s3 XCHG
$__gen_Foundation_init CALLDICT
}>
main PROC:<{
}>
}END>c