20 lines
255 B
Text
20 lines
255 B
Text
fib:
|
|
MOVEM.L D4-D5,-(SP)
|
|
MOVE.L D0,D4
|
|
MOVEQ #0,D5
|
|
CMP.L #2,D0
|
|
BCS .bar
|
|
MOVEQ #0,D5
|
|
.foo:
|
|
MOVE.L D4,D0
|
|
SUBQ.L #1,D0
|
|
JSR fib
|
|
SUBQ.L #2,D4
|
|
ADD.L D0,D5
|
|
CMP.L #1,D4
|
|
BHI .foo
|
|
.bar:
|
|
MOVE.L D5,D0
|
|
ADD.L D4,D0
|
|
MOVEM.L (SP)+,D4-D5
|
|
RTS
|