Вывести на экран десятичное значение их разности

DataS   SEGMENT     ;сегмент данных
        N       DW 4
        M       DW 4
        BUF     DB 6 DUP (?) ;буфер для ввода с клавиатуры
        BUF1    DB 4 DUP (?) ;буфер для вывода на экран
        BUF2    DB ' Z= '
INVITE  DB 'Введите подряд, без пробелов, два двузначных' 
DB 'числа (X,Y):',10, 13, '$'
        A       DB 10
DataS   ENDS
STSEG   SEGMENT STACK   ;сегмент стека
        DB 128   DUP (?)
STSEG   ENDS
CODSEG  SEGMENT ;сегмент кода
        ASSUME CS:CODSEG, DS:DataS, SS:STSEG
INPUT   PROC        ;подпрограмма ввода с клавиатуры
        MOV AH,3Fh
        MOV BX,00h  ; в BX - дескриптор ввода с клавиатуры
        MOV CX,N        ; в CX - число символов для введения
        LEA DX, BUF ; в DX - адрес буфера для ввода (BUF)
        INT 21h
        RET
INPUT   ENDP
OUTPUT  PROC
                     ; в DX - адрес буфера для вывода (BUF1)
        MOV AH,40h   ;подпрограмма вывода на экран
        MOV BX,01h  ; в BX - дескриптор вывода на экран
        MOV CX,M
        INT 21h
        RET
OUTPUT  ENDP
BEGIN:  MOV  AX, DataS      ;начальная загрузка регистра DS
        MOV  DS, AX
        CALL INPUT
        XOR AX,AX
        MOV  AL, BUF        ;AL -  ASCII-код старшей цифры 1-го числа
        MOV  BL, BUF+1  ;BL -  ASCII-код младшей цифры 1-го числа
        SUB  AL, '0'        ;выделение старшей цифры 1-го числа
        MUL  A          ;умножение её на 10
        SUB  BL, '0'        ;выделение младшей цифры 1-го числа
        ADD  AL, BL
        MOV  CL,AL      ;запись 1-го числа в регистр CL
        XOR  AX, AX
        MOV  AL, BUF+2  ;AL -  ASCII-код 1-ї цифры 2-го числа
        MOV  BL, BUF+3  ;BL -  ASCII-код 2-ї цифры 2-го числа
        SUB  AL,'0'         ;AL - первая цифра 2-го числа
        MUL  A          ; умножение на 10
        SUB  BL, '0'        ; BL -  друга цифра 2-го числа
        ADD  AL,BL      ; AL - 2-е число
        SUB  CL,AL      ; разность двух чисел
        XOR  AX,AX      ;обнуление AX
        MOV  AL,CL
        DIV  A          ;выделение  цифр результату
        ADD  AL,'0'     ; AL -  ASCII-код старшей цифры
        MOV  BUF1,AL
        ADD  AH,'0'     ;AH -  ASCII-код младшей цифры
        MOV  BUF1+1,AH
        LEA  DX,BUF2
        CALL OUTPUT     ;выведение 'Z = '
        LEA  DX,BUF1
        CALL OUTPUT
        MOV  AX,4C00h       ;выход в DOS
        INT 21h
CODSEG  ENDS
        END  BEGIN

.model small
.data
        N       DW 4
        M       DW 4
        BUF     DB 6 DUP (?) ;буфер для ввода с клавиатуры
        BUF1    DB 4 DUP (?) ;буфер для вывода на экран
        BUF2    DB ' Z= '
INVITE  DB 'Введите подряд, без пробелов, два двузначных' 
DB 'числа (X,Y):',10, 13, '$'
        A       DB 10
.stack 128
.code   ;сегмент кода
INPUT   PROC        ;подпрограмма ввода с клавиатуры
        MOV AH,3Fh
        MOV BX,00h  ; в BX - дескриптор ввода с клавиатуры
        MOV CX,N        ; в CX - число символов для введения
        LEA DX, BUF ; в DX - адрес буфера для ввода (BUF)
        INT 21h
        RET
INPUT   ENDP
OUTPUT  PROC
                     ; в DX - адрес буфера для вывода (BUF1)
        MOV AH,40h   ;подпрограмма вывода на экран
        MOV BX,01h  ; в BX - дескриптор вывода на экран
        MOV CX,M
        INT 21h
        RET
OUTPUT  ENDP
BEGIN:  MOV  AX, @data      ;начальная загрузка регистра DS
        MOV  DS, AX
        CALL INPUT
        XOR AX,AX
        MOV  AL, BUF        ;AL -  ASCII-код старшей цифры 1-го числа
        MOV  BL, BUF+1  ;BL -  ASCII-код младшей цифры 1-го числа
        SUB  AL, '0'        ;выделение старшей цифры 1-го числа
        MUL  A          ;умножение её на 10
        SUB  BL, '0'        ;выделение младшей цифры 1-го числа
        ADD  AL, BL
        MOV  CL,AL      ;запись 1-го числа в регистр CL
        XOR  AX, AX
        MOV  AL, BUF+2  ;AL -  ASCII-код 1-ї цифры 2-го числа
        MOV  BL, BUF+3  ;BL -  ASCII-код 2-ї цифры 2-го числа
        SUB  AL,'0'         ;AL - первая цифра 2-го числа
        MUL  A          ; умножение на 10
        SUB  BL, '0'        ; BL -  друга цифра 2-го числа
        ADD  AL,BL      ; AL - 2-е число
        SUB  CL,AL      ; разность двух чисел
; KL+
        push    cx
        LEA  DX,BUF2
        CALL OUTPUT     ;выведение 'Z = '
        pop cx
        cmp cl,80h
        jb  pos
        mov al, '-'
        int 29h
        neg cl
pos:    mov al, cl
    aam     ; делим AL на 10.:AH - десятки, AL - единицы
    add ax, '00'; в ASCII
    xchg    ah, al
    int 29h ; выводим десятки
    xchg    ah, al
    int 29h ; выводим единицы
;KL-
        MOV  AX,4C00h       ;выход в DOS
        INT 21h
 
        END  BEGIN