gmbytecode/test/asm_code/jumpif.fate
Erik Stenman a539378405
Pt 162805963 fate opcodes (#6)
* First iteration of assembler.
* Stand alone assembler.
2019-02-15 11:24:25 +01:00

10 lines
126 B
Plaintext

;; CONTRACT jumpif
FUNCTION skip(integer, integer) : integer
PUSH arg1
PUSH 0
EQ a a arg0
JUMPIF a 2
INC
JUMP 2
RETURN