;Journal Program
;Factorial of 8-bit hex number using Recursive Procedure
;(Range of Input 0 to 8 )
DATA SEGMENT
 NUMBER DW 0004H
 HEX_CHART DB '0123456789ABCDEF'
 LSB_OF_RESULT DB ?
 MSB_OF_RESULT DB ?
 H_ATTACH DB 'H'
 MSG DB 'FACTORIAL IS :- $'
DATA ENDS
CODE SEGMENT
 ASSUME CS:CODE,DS:DATA
 MOV AX,DATA
 MOV DS,AX ;Initialization of DS register
 LEA DX,MSG
 MOV AH,09H
 INT 21H
 MOV AX,NUMBER
 MOV CX,NUMBER
 CALL FACTORIAL ;Calling a near procedure to calculate factorial
 
 EXIT:MOV MSB_OF_RESULT,AH
 MOV LSB_OF_RESULT,AL
 MOV AL,MSB_OF_RESULT
 AND AL,0F0H
 MOV CL,04H
 ROR AL,CL
 CALL DISP_CHAR ;Calling a Near procedure to display
 ;most significand digit of most significand byte
 MOV AL,MSB_OF_RESULT
 AND AL,0FH
 CALL DISP_CHAR ;Calling a Near procedure to display
 ;least significand digit of most significand byte 
 
 MOV AL,LSB_OF_RESULT
 AND AL,0F0H
 MOV CL,04H
 ROR AL,CL
 CALL DISP_CHAR ;Calling a Near procedure to display
 ;most significand digit of least significand byte
 MOV AL,LSB_OF_RESULT
 AND AL,0FH
 CALL DISP_CHAR ;Calling a Near procedure to display
 ;least significand digit of least 
 ;significand byte
 MOV DL,H_ATTACH ;Display H in result
 MOV AH,02H
 INT 21H
 JMP LAST
 FACTORIAL PROC NEAR ;Defining a near procedure for factorial
 CMP CX,01
 JG N1
 MOV AX,01
 JMP EXIT
 N1:CALL CALCULATION ;Calling other near procedure
 RET
 FACTORIAL ENDP
 CALCULATION PROC NEAR
 DEC CX
 MUL CX
 CMP CX,01
 JE EXIT
 CALL FACTORIAL ;Indirect recursion
 RET
 CALCULATION ENDP
 
 DISP_CHAR PROC NEAR ;Defining a near procedure to display a 
;character
 MOV BX,00H
 MOV BL,AL
 MOV DL,HEX_CHART[BX]
 MOV AH,02H
 INT 21H
 RET
 DISP_CHAR ENDP
 LAST:MOV AH,4CH ;Termination of a program
 INT 21H
CODE ENDS
END

O0pvdXJuYWwgUHJvZ3JhbQo7RmFjdG9yaWFsIG9mIDgtYml0IGhleCBudW1iZXIgdXNpbmcgUmVjdXJzaXZlIFByb2NlZHVyZQo7KFJhbmdlIG9mIElucHV0IDAgdG8gOCApCkRBVEEgU0VHTUVOVAogTlVNQkVSIERXIDAwMDRICiBIRVhfQ0hBUlQgREIgJzAxMjM0NTY3ODlBQkNERUYnCiBMU0JfT0ZfUkVTVUxUIERCID8KIE1TQl9PRl9SRVNVTFQgREIgPwogSF9BVFRBQ0ggREIgJ0gnCiBNU0cgREIgJ0ZBQ1RPUklBTCBJUyA6LSAkJwpEQVRBIEVORFMKQ09ERSBTRUdNRU5UCiBBU1NVTUUgQ1M6Q09ERSxEUzpEQVRBCiBNT1YgQVgsREFUQQogTU9WIERTLEFYIDtJbml0aWFsaXphdGlvbiBvZiBEUyByZWdpc3RlcgogTEVBIERYLE1TRwogTU9WIEFILDA5SAogSU5UIDIxSAogTU9WIEFYLE5VTUJFUgogTU9WIENYLE5VTUJFUgogQ0FMTCBGQUNUT1JJQUwgO0NhbGxpbmcgYSBuZWFyIHByb2NlZHVyZSB0byBjYWxjdWxhdGUgZmFjdG9yaWFsCiAKIEVYSVQ6TU9WIE1TQl9PRl9SRVNVTFQsQUgKIE1PViBMU0JfT0ZfUkVTVUxULEFMCiBNT1YgQUwsTVNCX09GX1JFU1VMVAogQU5EIEFMLDBGMEgKIE1PViBDTCwwNEgKIFJPUiBBTCxDTAogQ0FMTCBESVNQX0NIQVIgO0NhbGxpbmcgYSBOZWFyIHByb2NlZHVyZSB0byBkaXNwbGF5CiA7bW9zdCBzaWduaWZpY2FuZCBkaWdpdCBvZiBtb3N0IHNpZ25pZmljYW5kIGJ5dGUKIE1PViBBTCxNU0JfT0ZfUkVTVUxUCiBBTkQgQUwsMEZICiBDQUxMIERJU1BfQ0hBUiA7Q2FsbGluZyBhIE5lYXIgcHJvY2VkdXJlIHRvIGRpc3BsYXkKIDtsZWFzdCBzaWduaWZpY2FuZCBkaWdpdCBvZiBtb3N0IHNpZ25pZmljYW5kIGJ5dGUgCiAKIE1PViBBTCxMU0JfT0ZfUkVTVUxUCiBBTkQgQUwsMEYwSAogTU9WIENMLDA0SAogUk9SIEFMLENMCiBDQUxMIERJU1BfQ0hBUiA7Q2FsbGluZyBhIE5lYXIgcHJvY2VkdXJlIHRvIGRpc3BsYXkKIDttb3N0IHNpZ25pZmljYW5kIGRpZ2l0IG9mIGxlYXN0IHNpZ25pZmljYW5kIGJ5dGUKIE1PViBBTCxMU0JfT0ZfUkVTVUxUCiBBTkQgQUwsMEZICiBDQUxMIERJU1BfQ0hBUiA7Q2FsbGluZyBhIE5lYXIgcHJvY2VkdXJlIHRvIGRpc3BsYXkKIDtsZWFzdCBzaWduaWZpY2FuZCBkaWdpdCBvZiBsZWFzdCAKIDtzaWduaWZpY2FuZCBieXRlCiBNT1YgREwsSF9BVFRBQ0ggO0Rpc3BsYXkgSCBpbiByZXN1bHQKIE1PViBBSCwwMkgKIElOVCAyMUgKIEpNUCBMQVNUCiBGQUNUT1JJQUwgUFJPQyBORUFSIDtEZWZpbmluZyBhIG5lYXIgcHJvY2VkdXJlIGZvciBmYWN0b3JpYWwKIENNUCBDWCwwMQogSkcgTjEKIE1PViBBWCwwMQogSk1QIEVYSVQKIE4xOkNBTEwgQ0FMQ1VMQVRJT04gO0NhbGxpbmcgb3RoZXIgbmVhciBwcm9jZWR1cmUKIFJFVAogRkFDVE9SSUFMIEVORFAKIENBTENVTEFUSU9OIFBST0MgTkVBUgogREVDIENYCiBNVUwgQ1gKIENNUCBDWCwwMQogSkUgRVhJVAogQ0FMTCBGQUNUT1JJQUwgO0luZGlyZWN0IHJlY3Vyc2lvbgogUkVUCiBDQUxDVUxBVElPTiBFTkRQCiAKIERJU1BfQ0hBUiBQUk9DIE5FQVIgO0RlZmluaW5nIGEgbmVhciBwcm9jZWR1cmUgdG8gZGlzcGxheSBhIAo7Y2hhcmFjdGVyCiBNT1YgQlgsMDBICiBNT1YgQkwsQUwKIE1PViBETCxIRVhfQ0hBUlRbQlhdCiBNT1YgQUgsMDJICiBJTlQgMjFICiBSRVQKIERJU1BfQ0hBUiBFTkRQCiBMQVNUOk1PViBBSCw0Q0ggO1Rlcm1pbmF0aW9uIG9mIGEgcHJvZ3JhbQogSU5UIDIxSApDT0RFIEVORFMKRU5E