TwoDigit

.model small
.stack 100h
.data
    msg db "Enter a number: $"
    num1 db 0
    num2 db 0
    ten db 10
    readNum db 0
.code
    mov ax,@data
    mov ds,ax
    proc read
        mov dx,offset msg
        mov ah,09h
        int 21h

        mov ah,01h
        int 21h
        sub al,48
        mov num1,al

        mov ah,01h
        int 21h
        sub al,48
        mov num2,al

        mov al,num1
        mul ten
        add al,num2

        mov readNum,al
    endp
mov ax,4c00h
int 21h
end