1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-14 17:32:00 +03:00
juvix/tests/Asm/positive/test023.jva
2022-09-29 17:44:55 +02:00

44 lines
476 B
Plaintext

-- McCarthy's 91 function
function f91(integer) : integer {
push arg[0];
push 100;
lt;
br {
true: {
push 10;
push arg[0];
sub;
ret;
}
false: {
push 11;
push arg[0];
add;
call f91;
tcall f91;
}
};
}
function main() {
push 101;
call f91;
trace;
pop;
push 95;
call f91;
trace;
pop;
push 16;
call f91;
trace;
pop;
push 5;
call f91;
trace;
pop;
push void;
ret;
}