30 lines
601 B
Plaintext
30 lines
601 B
Plaintext
;; CONTRACT: Test
|
|
FUNCTION id(integer) -> integer
|
|
RETURN
|
|
|
|
FUNCTION jumps() -> integer
|
|
PUSH 0
|
|
JUMP 3
|
|
NOP
|
|
JUMP 2
|
|
NOP
|
|
RETURN
|
|
NOP
|
|
JUMP 1
|
|
|
|
FUNCTION inc(integer) -> integer
|
|
INC
|
|
INC
|
|
RETURN
|
|
|
|
FUNCTION call(integer) -> integer
|
|
INC
|
|
CALL inc
|
|
INC
|
|
RETURN
|
|
|
|
;; Test the code from the shell
|
|
;; _build/default/rel/aessembler/bin/aessembler console
|
|
|
|
;; aeb_aefa:file("../../../../test/asm_code/test.fate", []).
|
|
;; f(Asm), f(Env), f(BC), Asm = aefa_asm:read_file("../../../../test/asm_code/test.fate"), {Env, BC} = aefa_asm:asm_to_bytecode(Asm, []), aefa_asm:bytecode_to_fate_code(BC, []). |