факториал Опции

[-гость-]

Помогите зделать задачу факториал рекурсивно на ассемблере.
Вот код на паскале. задача вычисление факториала

uses crt;
var n:byte;

function fack(n:byte):longint;
begin
if n=0 then fack:=1
else fack:=fack(n-1)*n
end;


begin
clrscr;
read(n);
writeln(fack(n));
readkey;

end.