Search:

Submit Article

# Program that will read a positive binary number and print its factorial in decimal form using MUL and DIV instructionsand use OUTDEC procedure........

Posted By: Easy Tutor     Category: Assembly Language     Views: 5614

## Code for Program that will read a positive binary number and print its factorial in decimal form using MUL and DIV instructionsand use OUTDEC procedure........ in Assembly Language

``` .MODEL SMALL
.STACK 100H

.DATA
PROMPT_1  DB  'Enter a Positive Binary number ( max. 8-bit ) : \$'
PROMPT_2  DB  0DH,0AH,'The Factorial of the given number in Decimal form is : \$'
ILLEGAL   DB  0DH,0AH,'Illegal character. Try again : \$'

.CODE
MAIN PROC
MOV AX, @DATA                ; initialize DS
MOV DS, AX

LEA DX, PROMPT_1             ; load and display the string PROMPT_1
MOV AH, 9
INT 21H

CALL BINARY_INPUT            ; call the procedure BINARY_INPUT

CALL FACTORIAL               ; call the procedure FACTORIAL

LEA DX, PROMPT_2             ; load and display the string PROMPT_2
MOV AH, 9
INT 21H

MOV AX, BX                   ; set AX=BX

CALL OUTDEC                  ; call the procedure OUTDEC

MOV AH, 4CH                  ; return control to DOS
INT 21H
MAIN ENDP

;**************************************************************************;
;**************************************************************************;
;-------------------------  Procedure Definitions  ------------------------;
;**************************************************************************;
;**************************************************************************;

;**************************************************************************;
;----------------------------  BINARY_INPUT  ------------------------------;
;**************************************************************************;

BINARY_INPUT PROC
; this procedure will read a number in binary form
; input : none
; output : store binary number in BL
; uses : MAIN

@ERROR:                        ; jump label

LEA DX, ILLEGAL                ; load and display the string ILLEGAL
MOV AH, 9
INT 21H

@BEGIN:                        ; jump label

MOV CX, 8                      ; initialize loop counter
XOR BX, BX                     ; clear BX
MOV AH, 1                      ; set input function

@INPUT:                        ; loop label
INT 21H                      ; read a digit

CMP AL, 0DH                  ; compare input and CR

CMP AL, 30H                  ; compare AL with 0

CMP AL, 31H                  ; compare AL with 1

AND AL, 0FH                  ; convert ascii to decimal code
SHL BL, 1                    ; shift BL by 1 position towards left
OR  BL, AL                   ; place the input decimal digit in BL

@END:                          ; jump label

RET                            ; return control to the calling procedure
BINARY_INPUT ENDP

;**************************************************************************;
;-------------------------------  OUTDEC  ---------------------------------;
;**************************************************************************;

OUTDEC PROC
; this procedure will display a decimal number
; input : AX
; output : none
; uses : MAIN

PUSH BX                        ; push BX onto the STACK
PUSH CX                        ; push CX onto the STACK
PUSH DX                        ; push DX onto the STACK

XOR CX, CX                     ; clear CX
MOV BX, 10                     ; set BX=10

@OUTPUT:                       ; loop label
XOR DX, DX                   ; clear DX
DIV BX                       ; divide AX by BX
PUSH DX                      ; push DX onto the STACK
INC CX                       ; increment CX
OR AX, AX                    ; take OR of Ax with AX

MOV AH, 2                      ; set output function

@DISPLAY:                      ; loop label
POP DX                       ; pop a value from STACK to DX
OR DL, 30H                   ; convert decimal to ascii code
INT 21H                      ; print a character

POP DX                         ; pop a value from STACK into DX
POP CX                         ; pop a value from STACK into CX
POP BX                         ; pop a value from STACK into BX

RET                            ; return control to the calling procedure
OUTDEC ENDP

;**************************************************************************;
;-----------------------------  FACTORIAL  --------------------------------;
;**************************************************************************;

FACTORIAL PROC
; this procedure will computes the factorial of a given number
; input : BL
; output : store the factorial of the number in BX
; uses : MAIN

MOV AX, 1                      ; set AX=1

XOR CX, CX                     ; clear CX
MOV CX, BX                     ; set CX=BX

@LOOP:                         ; loop label
MUL CX                       ; multiply CX with AL i.e. AX=AL*CX

MOV BX, AX                     ; set BX=AX

RET                            ; return control to the calling procedure
FACTORIAL ENDP

;**************************************************************************;
;--------------------------------------------------------------------------;
;**************************************************************************;

END MAIN

;**************************************************************************;
;**************************************************************************;
;------------------------------  THE END  ---------------------------------;
;**************************************************************************;
;**************************************************************************;
```
Share:

 Easy Tutor author of Program that will read a positive binary number and print its factorial in decimal form using MUL and DIV instructionsand use OUTDEC procedure........ is from United States. Easy Tutor says Hello Friends,I am Free Lance Tutor, who helped student in completing their homework. I have 4 Years of hands on experience on helping student in completing their homework. I also guide them in doing their final year projects.I have share many programs on this website for everyone to use freely, if you need further assistance, than please contact me on easytutor.2ya [at the rate] gmail [dot] comI have special discount scheme for providing tutor services. I am providing tutor service to students from various contries, currently most of my students are from United States, India, Australia, Pakistan, Germany, UK and Canada. I am also here to expand my technical network to receive more opportunity in my career, make friends to help them in resolving their technical problem, learn and share my knowledge, If you like to be my friend, Please send me friend request.Thanks,Happy Programming :) View All Articles

 Please enter your CommentComment should be atleast 30 Characters.Please put code inside [Code] your code [/Code]. No Comment Found, Be the First to post comment!