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.
94 lines
1.8 KiB
94 lines
1.8 KiB
2 years ago
|
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
|