zongors-reality-engine/test/fib.asm

30 lines
303 B
NASM

main:
lodi $0 35
pshi $0
call &fib
popi $0
itos $1 $0
puts $1
halt
fib:
popi $0
lodi $1 2
lodi $2 &base_case
jlti $2 $0 $1
lodi $2 2
subi $4 $0 $3
pshi $4
call &fib
lodi $2 1
subi $4 $0 $3
pshi $4
call &fib
popi $4
popi $5
addi $6 $5 $4
pshi $6
retn
base_case:
pshi $0
retn