30 lines
303 B
Common Lisp
30 lines
303 B
Common Lisp
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
|