Ton

1
#!/usr/bin/fift -s
2
"Asm.fif" include
3

4
// New advanced wallet code adapted from `auto/wallet3-code.fif`
5
<{ SETCP0 DUP IFNOTRET // return if recv_internal
6
   DUP 85143 INT EQUAL OVER 78748 INT EQUAL OR IFJMP:<{ // "seqno" and "get_public_key" get-methods
7
     1 INT AND c4 PUSHCTR CTOS 32 LDU 32 LDU NIP 256 PLDU CONDSEL  // cnt or pubk
8
   }>
9
   INC 32 THROWIF	// fail unless recv_external
10
   9 PUSHPOW2 LDSLICEX DUP 32 LDU 32 LDU 32 LDU 	//  signature in_msg subwallet_id valid_until msg_seqno cs
11
   NOW s1 s3 XCHG LEQ 35 THROWIF	//  signature in_msg subwallet_id cs msg_seqno
12
   c4 PUSH CTOS 32 LDU 32 LDU 256 LDU ENDS	//  signature in_msg subwallet_id cs msg_seqno stored_seqno stored_subwallet public_key
13
   s3 s2 XCPU EQUAL 33 THROWIFNOT	//  signature in_msg subwallet_id cs public_key stored_seqno stored_subwallet
14
   s4 s4 XCPU EQUAL 34 THROWIFNOT	//  signature in_msg stored_subwallet cs public_key stored_seqno
15
   s0 s4 XCHG HASHSU	//  signature stored_seqno stored_subwallet cs public_key msg_hash
16
   s0 s5 s5 XC2PU	//  public_key stored_seqno stored_subwallet cs msg_hash signature public_key
17
   CHKSIGNU 35 THROWIFNOT	//  public_key stored_seqno stored_subwallet cs
18
   ACCEPT
19
   WHILE:<{
20
     DUP SREFS	//  public_key stored_seqno stored_subwallet cs _51
21
   }>DO<{	//  public_key stored_seqno stored_subwallet cs
22
     8 LDU LDREF s0 s2 XCHG	//  public_key stored_seqno stored_subwallet cs _56 mode
23
     SENDRAWMSG
24
   }>	//  public_key stored_seqno stored_subwallet cs
25
   ENDS SWAP INC	//  public_key stored_subwallet seqno'
26
   NEWC 32 STU 32 STU 256 STU ENDC c4 POP
27
}>c
28