RosettaCodeData/Task/Fibonacci-sequence/68000-Assembly/fibonacci-sequence.68000

21 lines
317 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fib:
2026-04-30 12:34:36 -04:00
MOVEM.L D4-D5,-(SP)
MOVE.L D0,D4
MOVEQ #0,D5
CMP.L #2,D0
BCS .bar
MOVEQ #0,D5
2023-07-01 11:58:00 -04:00
.foo:
2026-04-30 12:34:36 -04:00
MOVE.L D4,D0
SUBQ.L #1,D0
JSR fib
SUBQ.L #2,D4
ADD.L D0,D5
CMP.L #1,D4
BHI .foo
2023-07-01 11:58:00 -04:00
.bar:
2026-04-30 12:34:36 -04:00
MOVE.L D5,D0
ADD.L D4,D0
MOVEM.L (SP)+,D4-D5
RTS