Suma y Resta números de una cifra

.MODEL small
.STACK 100h

.DATA
ms1 DB 10,13,'Ingrese un numero de una cifra: $'
ms2 DB 10,13,'La suma es: $'
ms3 DB 10,13,'La diferencia es: $'
ms4 DB 10,13,'$'
m DB ?
n DB ?
s DB ?
d DB ?

.CODE
MOV AX,@DATA
MOV DS,AX
MOV AH,9
LEA DX,ms1
INT 21H
MOV AH,1
INT 21H
SUB AL,30H
MOV m,AL
MOV AH,9
LEA DX,ms1
INT 21H
MOV AH,1
INT 21H
SUB AL,30H
MOV n,AL
MOV AH,9
LEA DX,ms2
INT 21H
MOV AL,m
ADD AL,n
AAM
ADD AX,3030H
MOV BX,AX
MOV AH,2
MOV DL,BH
INT 21H
MOV DL,BL
INT 21H
MOV AH,9
LEA DX,ms3
INT 21H
MOV AL,m
SUB AL,n
ADD AL,30H
MOV DL,AL
MOV AH,2
INT 21H
MOV AH,9
LEA DX,ms4
INT 21H
MOV AH,1
INT 21H

MOV AH,4ch
INT 21h
END