Program to find factorial using 8051

Program to find factorial using 8051  :

MOV R1,#04 
MOV R0,#04 
MOV A,R0
CALL:DEC R0
MOV F0,R0
MUL AB
DJNZ R1,CALL
 SJMP 0