16 lines
290 B
Plaintext
16 lines
290 B
Plaintext
LOAD authorize_account 6
|
|
MAP validate_amount
|
|
RELOAD get_recipient
|
|
MAP get_recipient
|
|
RELOAD get_sender
|
|
MAP get_sender
|
|
MOUT back 0
|
|
MOUT quit 9
|
|
HALT
|
|
RELOAD authorize_account
|
|
CATCH incorrect_pin flag_incorrect_pin 1
|
|
CATCH transaction_initiated flag_account_authorized 1
|
|
INCMP _ 0
|
|
INCMP quit 9
|
|
|