124 lines
862 B
Plaintext
124 lines
862 B
Plaintext
;; CONTRACT empty_loop
|
|
|
|
FUNCTION run (integer) : integer
|
|
STORE var0 arg0
|
|
PUSH 0
|
|
JUMP 1
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
DECA
|
|
|
|
DEC var0
|
|
GT var1 var0 0
|
|
JUMPIF var1 1
|
|
|
|
RETURNR 0
|
|
|