RosettaCodeData/Task/Arithmetic-Integer/68000-Assembly/arithmetic-integer-2.68000
2023-07-01 13:44:08 -04:00

9 lines
157 B
Text

Exponent:
;raises D0 to the D1 power. No overflow protection.
MOVE.L D0,D2
SUBQ.L #1,D1
loop_exponent:
MULU D0,D2
DBRA D1,loop_exponent
;output is in D2
RTS