Web Omega

Contract Name: Free Coins
Contract Description: Issue free coins to users upon requests.
Author: omegasuite
Language: asm
Created: 2020-09-07 14:30:15
Version: 1.0
Status: created

Source Code

define RECEIVING xdf4d6ff5eb3031e16deff2ce62c64bef6a5680fd	; public contract for receiving money
define PUBKEY kx022c7c48dc315b2ad8e96614d13446b37809231a53155bbb48e2ed2919ae58bcd3

STORE abi("sequence"),D0,
STORE abi("utxotid"),Hx0,
STORE abi("utxotseq"),D0,
STORE abi("lastid"),Hx0,
STORE abi("lastseq"),D0,
STORE abi("balance"),Q0,
MALLOC gi0,128,		; alloc mem len of store code

; TBD bug fix: don't use i0 for data; always use ii0"xxx

define NETID 0		; 0 for main net, x6f for test net

define tokentype i20
define tokenval i28

GETCOIN tokentype,

EVAL64 i64,tokentype,0,=
IF i64,2,
REVERT

EVAL64 i64,tokenval,0,=
IF i64,.doneinit,

define OUTPOINT i64
define OUTPOINTSEQ i96

RECEIVED OUTPOINT,
STORE abi("utxotid"),HOUTPOINT,
STORE abi("utxotseq"),DOUTPOINT"32,
STORE abi("balance"),Qtokenval,

define doneinit .
EVAL32 gi0,4,		; length of result
EVAL32 gi4,BODY,	; result = the first instruction of contract body code.
STOP
;
; contract body
define BODY .
define pubkey gii0"260
define pubkeyd gii0"259
define contract gii0"8

define BALANCE gii0"100
define BALANCEDATA gii0"104

MALLOC gii0"8,1032,	; storage to use. enough for all cases.

EVAL32 gii0"16,abi("getseq()uint32"),gi8,=
IF gii0"16,.getownerseq,
EVAL32 gii0"16,abi("issuspended()bool"),gi8,=
IF gii0"16,.suspended,
EVAL32 gii0"16,abi("balance()int64bool"),gi8,=
IF gii0"16,.balance,

; above code are contract calls (except for suicide)
; codes below are transactions. do common work for txs
LIBLOAD 0,RECEIVING,

define seq gii0"416
define seqtext gii0"420		; don't change this address w/o considering signature
define adr gii0"396
define func gii0"424
define ftext gii0"400
define issueto gii0"428
define amount gii0"449
define adrtext gii0"400

define hashed gii0"300

; define hashed160 ii0"340
COPYIMM pubkey,PUBKEY,			; issue([21]byte,uint64,[]byte)
EVAL8 pubkeyd,33,

; increase in all cases, if exec fails, it won't be saved anyway
LOAD seq,abi("sequence"),		; build text for hashing
EVAL32 seqtext,seqtext,1,+
STORE abi("sequence"),Dseqtext,		; contract address + seq + abi
META adr,7,"address",
EVAL32 func,gi8,

EVAL32 gii0"16,abi("resume([]byte)"),gi8,=
IF gii0"16,.resume,
EVAL32 gii0"16,abi("suspend([]byte)"),gi8,=
IF gii0"16,.suspend,
EVAL32 gii0"16,abi("issue([21]byte,uint64,[]byte)"),gi8,=	; func(address, amount, signature)
IF gii0"16,.issue,
EVAL32 gii0"16,abi("suicide([]byte)"),gi8,=
IF gii0"16,.suicide,
CALL RECEIVING,abi("generic(bool,int64)byte"),0,0,0,		; receiveing money, sender pay fees
STOP

define suspend .
CALL 0,.sigcheck2,@gi12,
CALL RECEIVING,abi("generic(bool,int64)byte"),0,1,0,		; contract pay fees. if fees is low, there is no need to suspend
STORE abi("suspended"),B1,		; suspend()bool
EVAL32 gi0,0,
STOP

define resume .
CALL 0,.sigcheck2,@gi12,
CALL RECEIVING,abi("generic(bool,int64)byte"),0,0,0,		; caller pay fees because contract might have no money
STORE abi("suspended"),B0,		; resume()bool
EVAL32 gi0,0,
STOP

define sigcheck2 .
HASH hashed,ftext,28,
SIGCHECK tmp,hashed,pubkeyd,ii8,
IF tmp,2,
REVERT
RETURN

define suspendcheck .
EVAL8 tmp"4,0,
LOAD tmp,abi("suspended"),		; suspendcheck()
IF tmp"4,2,
RETURN
REVERT

define issue .
CALL 0,.suspendcheck,
LOAD BALANCE,abi("balance"),
EVAL64 tmp,BALANCEDATA,gi33,)
IF tmp,2,
REVERT
CALL 0,.sigcheck,
CALL 0,.issuetoken,
EVAL32 gi0,0,
STOP

define sigcheck .
COPY issueto,gi12,29,			; addr + uint64
HASH hashed,ftext,57,
SIGCHECK i0,hashed,pubkeyd,gi41,
IF i0,2,
REVERT
RETURN

define issuetoken .
EVAL64 tokentype,0,
EVAL64 tokenval,amount,
EVAL32 scriptlen,25,
COPY scriptver,gi12,21,
EVAL32 scriptfunc,x41,
ADDTXOUT tmp,tokentype,
CALL RECEIVING,abi("generic(bool,int64)byte"),0,1,amount,
EVAL32 gi0,0,
RETURN

define tokentype gii0"28
define tokenval gii0"36
define scriptlen gii0"44
define scriptver gii0"48
define scriptstr gii0"49
define scriptfunc gii0"69
define tmp gii0'80

define suicide .
CALL 0,.sigcheck2,@gi12,

COPYIMM pubkey,PUBKEY,
HASH160 hashed,pubkey,33,
EVAL8 scriptver,NETID,
COPY scriptstr,hashed,20,

CALL RECEIVING,abi("disburse(pointer,pointer)"),@tmp,@scriptver,

EVAL8 tmp,tmp,0,=		; no balance, go die directly
IF tmp,2,			; if tmp = 0, success
REVERT				; otherwise, fail
SELFDESTRUCT

define UTXOTID gii0"108
define UTXOTSEQ gii0"140
define LASTID gii0"144
define LASTSEQ gii0"176

define UTXOTIDDATA gii0"112
define UTXOTSEQDATA gii0"144
define LASTIDDATA gii0"148
define LASTSEQDATA gii0"180

define txfees ii0"190
define outval ii0"198

define getownerseq .
LOAD gi0,abi("sequence"),		; getseq()uint32
STOP

define suspended .
EVAL8 gi4,0,
LOAD gi0,abi("suspended"),		; suspended()bool
STOP

define balance .
LOAD gi0,abi("balance"),		; suspended()bool
STOP

Hash:
5513497b1f4ad4628a4a3ee823665468933dc37d
Hex:

4f7862663337633763322c44302c0a4f7862633336366633662c4878302c0a4f7830663662383865352c44302c0a4f7835326432663036642c4878302c0a4f7862643730643663362c44302c0a4f7835373531653034382c51302c0a526769302c3132382c0a63676969302232382c0a446936342c676969302232382c302c3d0a4b6936342c322c0a580a446936342c676969302233362c302c3d0a4b6936342c352c0a616936342c0a4f7862633336366633662c486936342c0a4f7830663662383865352c446936342233322c0a4f7835373531653034382c51676969302233362c0a436769302c342c0a436769342c32302c0a7a0a526769693022382c313033322c0a43676969302231362c7866623630663837322c6769382c3d0a4b676969302231362c37372c0a43676969302231362c7834656435656134372c6769382c3d0a4b676969302231362c37372c0a43676969302231362c7837393761663064382c6769382c3d0a4b676969302231362c37382c0a51302c78646634643666663565623330333165313664656666326365363263363462656636613536383066642c0a5567696930223236302c6b783032326337633438646333313562326164386539363631346431333434366233373830393233316135333135356262623438653265643239313961653538626364332c0a4167696930223235392c33332c0a4e67696930223431362c7862663337633763322c0a4367696930223432302c67696930223432302c312c2b0a4f7862663337633763322c4467696930223432302c0a6b67696930223339362c372c7836313634363437323635373337332c0a4367696930223432342c6769382c0a43676969302231362c7834363339363232642c6769382c3d0a4b676969302231362c31342c0a43676969302231362c7837653636386634662c6769382c3d0a4b676969302231362c372c0a43676969302231362c7863346332646461392c6769382c3d0a4b676969302231362c32352c0a43676969302231362c7864323665343261322c6769382c3d0a4b676969302231362c34372c0a4c78646634643666663565623330333165313664656666326365363263363462656636613536383066642c7865623161353365612c302c302c302c0a7a0a4c302c31302c40676931322c0a4c78646634643666663565623330333165313664656666326365363263363462656636613536383066642c7865623161353365612c302c312c302c0a4f7864653264343233612c42312c0a436769302c302c0a7a0a4c302c352c40676931322c0a4c78646634643666663565623330333165313664656666326365363263363462656636613536383066642c7865623161353365612c302c302c302c0a4f7864653264343233612c42302c0a436769302c302c0a7a0a4767696930223330302c67696930223430302c32382c0a49676969302738302c67696930223330302c67696930223235392c6969382c0a4b676969302738302c322c0a580a590a416769693027383022342c302c0a4e676969302738302c7864653264343233612c0a4b6769693027383022342c322c0a590a580a4c302c6e352c0a4e67696930223130302c7835373531653034382c0a44676969302738302c67696930223130342c676933332c290a4b676969302738302c322c0a580a4c302c342c0a4c302c392c0a436769302c302c0a7a0a5467696930223432382c676931322c32392c0a4767696930223330302c67696930223430302c35372c0a4969302c67696930223330302c67696930223235392c676934312c0a4b69302c322c0a580a590a44676969302232382c302c0a44676969302233362c67696930223434392c0a43676969302234342c32352c0a54676969302234382c676931322c32312c0a43676969302236392c7834312c0a67676969302738302c676969302232382c0a4c78646634643666663565623330333165313664656666326365363263363462656636613536383066642c7865623161353365612c302c312c67696930223434392c0a436769302c302c0a590a4c302c6e33342c40676931322c0a5567696930223236302c6b783032326337633438646333313562326164386539363631346431333434366233373830393233316135333135356262623438653265643239313961653538626364332c0a4867696930223330302c67696930223236302c33332c0a41676969302234382c302c0a54676969302234392c67696930223330302c32302c0a4c78646634643666663565623330333165313664656666326365363263363462656636613536383066642c7839353133613361612c40676969302738302c40676969302234382c0a41676969302738302c676969302738302c302c3d0a4b676969302738302c322c0a580a570a4e6769302c7862663337633763322c0a7a0a416769342c302c0a4e6769302c7864653264343233612c0a7a0a4e6769302c7835373531653034382c0a7a

Debug info:

Bin:

Oxbf37c7c2,D0,
Oxbc366f3f,Hx0,
Ox0f6b88e5,D0,
Ox52d2f06d,Hx0,
Oxbd70d6c6,D0,
Ox5751e048,Q0,
Rgi0,128,
cgii0"28,
Di64,gii0"28,0,=
Ki64,2,
X
Di64,gii0"36,0,=
Ki64,5,
ai64,
Oxbc366f3f,Hi64,
Ox0f6b88e5,Di64"32,
Ox5751e048,Qgii0"36,
Cgi0,4,
Cgi4,20,
z
Rgii0"8,1032,
Cgii0"16,xfb60f872,gi8,=
Kgii0"16,77,
Cgii0"16,x4ed5ea47,gi8,=
Kgii0"16,77,
Cgii0"16,x797af0d8,gi8,=
Kgii0"16,78,
Q0,xdf4d6ff5eb3031e16deff2ce62c64bef6a5680fd,
Ugii0"260,kx022c7c48dc315b2ad8e96614d13446b37809231a53155bbb48e2ed2919ae58bcd3,
Agii0"259,33,
Ngii0"416,xbf37c7c2,
Cgii0"420,gii0"420,1,+
Oxbf37c7c2,Dgii0"420,
kgii0"396,7,x61646472657373,
Cgii0"424,gi8,
Cgii0"16,x4639622d,gi8,=
Kgii0"16,14,
Cgii0"16,x7e668f4f,gi8,=
Kgii0"16,7,
Cgii0"16,xc4c2dda9,gi8,=
Kgii0"16,25,
Cgii0"16,xd26e42a2,gi8,=
Kgii0"16,47,
Lxdf4d6ff5eb3031e16deff2ce62c64bef6a5680fd,xeb1a53ea,0,0,0,
z
L0,10,@gi12,
Lxdf4d6ff5eb3031e16deff2ce62c64bef6a5680fd,xeb1a53ea,0,1,0,
Oxde2d423a,B1,
Cgi0,0,
z
L0,5,@gi12,
Lxdf4d6ff5eb3031e16deff2ce62c64bef6a5680fd,xeb1a53ea,0,0,0,
Oxde2d423a,B0,
Cgi0,0,
z
Ggii0"300,gii0"400,28,
Igii0'80,gii0"300,gii0"259,ii8,
Kgii0'80,2,
X
Y
Agii0'80"4,0,
Ngii0'80,xde2d423a,
Kgii0'80"4,2,
Y
X
L0,n5,
Ngii0"100,x5751e048,
Dgii0'80,gii0"104,gi33,)
Kgii0'80,2,
X
L0,4,
L0,9,
Cgi0,0,
z
Tgii0"428,gi12,29,
Ggii0"300,gii0"400,57,
Ii0,gii0"300,gii0"259,gi41,
Ki0,2,
X
Y
Dgii0"28,0,
Dgii0"36,gii0"449,
Cgii0"44,25,
Tgii0"48,gi12,21,
Cgii0"69,x41,
ggii0'80,gii0"28,
Lxdf4d6ff5eb3031e16deff2ce62c64bef6a5680fd,xeb1a53ea,0,1,gii0"449,
Cgi0,0,
Y
L0,n34,@gi12,
Ugii0"260,kx022c7c48dc315b2ad8e96614d13446b37809231a53155bbb48e2ed2919ae58bcd3,
Hgii0"300,gii0"260,33,
Agii0"48,0,
Tgii0"49,gii0"300,20,
Lxdf4d6ff5eb3031e16deff2ce62c64bef6a5680fd,x9513a3aa,@gii0'80,@gii0"48,
Agii0'80,gii0'80,0,=
Kgii0'80,2,
X
W
Ngi0,xbf37c7c2,
z
Agi4,0,
Ngi0,xde2d423a,
z
Ngi0,x5751e048,
z