MPI Factorial pgm in simplier way

stk segment stack

n3 db 20 dup(0)
top label word
stk ends
data segment
n1 db 04h
n2 db ?
data ends
code segment
assume cs:code , ds:data , ss:stk
start:
mov ax,data
mov ds,ax
mov ax,stk
mov ss,ax
lea sp,top
mov al,01h
mov bl,n1
call facto
mov n2,bl
mov ah,4ch
int 21h
facto proc near
pushf
push cx
cmp bl,01h
je cout
mul bl
dec bl
call
facto
cout:mov bl,al
popf
pop cx
ret
code ends
end start

Leave a Reply