Program to Multiply 8 Bit integers in assembly language

Program to Multiply 8 Bit integers in assembly language

.Model Small
.Stack 100
.Data
A DB 'Enter A : ','$'   ; A is 8-bit Integer , 0ah for New Line

B DB 0ah,'Enter B : ','$'   ; B is 8-Bit Integer

Output DB 0ah,'Mul of A*B : '
Result DB ?

Result2 DB ?,'$'

;Output1 DB 0ah,'Enter : '
;Result1 DB ?,'$'

        .Code

Ml       PROC
         Mov ax,@data
         Mov ds,ax
         Mov dx,OFFSET A  ; Call A
         Mov ah,9h
         int 21h
         Mov ah,1   ; Input in A 
         int 21h

         Mov bl,al

         Mov dx,OFFSET B  ; Call B
         Mov ah,9h
         int 21h
         Mov ah,1   ; Input In B
         int 21h

         sub bl,30h
         sub al,30h
         Mul bl

         Mov bl,10
         div bl

         Add al,30h
         Mov Result,al

         Add ah,30h
         Mov Result2,ah


         Mov dx,OFFSET Output  ; Call Output
         Mov ah,9h
         int 21h


         Mov al,0  ; Ending Program Instruction
         Mov ah,4ch
         int 21h
Ml       ENDP
         END Ml