The procedure a7fac is an attempt to impove the procedure for calculating

the factorial function, by minimizing the number of multiplications.

PROCEDURE a7fac( n: INTEGER): INTEGER;

VAR

i, f: INTEGER;

BEGIN

IF n = 0 OR n = 1 THEN

f := 1

ELSIF n = 2 THEN

f := 2

ELSE

f := 2;

FOR i := 3 TO n DO

f := f * i

END

END;

RETURN f

END a7fac;

Translate the procedure into X86 assembly language in a separately

assembled module.

The parameter n is to be passed in register CX, and

registers SI and AX to be assigned to the local variables i and f

respectively.

The procedure returns its result in register AX.

A test procedure facTst.asm is in the directory.