FACTORIAL WITH INPUT OUTPUT


INCLUDE IO.H
CR EQU 0DH
LF EQU 0AH
DATA SEGMENT
        MM1 DB CR,LF,'          FACTORIAL OF A NUMBER','$'
        MM2 DB CR,LF,'          ~~~~~~~~~~~~~~~~~~~~~~~','$'
        MS1 DB CR,LF,' ENTER THE  NUMBER        :','$'
        MS2 DB CR,LF,' FACTORIAL  IS       :','$'
        MS3 DB CR,LF,' ','$'
        NUMBER DB 10 DUP(?)
        FACT DW 3 DUP(?),CR,LF,'$'
DATA ENDS


CODE SEGMENT  
ASSUME DS:DATA,CS:CODE      
START:
MOV AX, DATA
MOV DS,AX
OUTPUT MM2
OUTPUT MM1
OUTPUT MM2
OUTPUT MS1
INPUTS NUMBER,10
ATOI NUMBER
MOV CX,AX
MOV AX,01H
AGAIN:   MUL CX
DEC CX
JNZ AGAIN
ITOA FACT,AX
OUTPUT MS2
OUTPUT FACT
MOV AH,4CH
             INT 21H
CODE ENDS
             END START