При сложении двухзначных упакованных BCD чисел получается трёхзначное число, не могу его вывести

.386
.model flat,stdcall
option casemap:none
    include includes\kernel32.inc
    include includes\user32.inc
    includelib includes\kernel32.lib
    includelib includes\user32.lib
    
BSIZE equ 19
 
.data
    varA dw ?
    varB dw ?
    varC dw 3
    varD dw 5
 
    
    trash dw ?
    total dw ?
    
    expr_text db 'a+b+cd', 0
    inpA db 'Input a value (01-99): ', 0
    inpB db 'Input b value (01-99): ', 0
    inpC db 'Input c value (01-99): ', 0
    inpD db 'Input d value (01-99): ', 0
 
    result db 'Result ', 0
    
    msg1310 byte 13, 10 ; перевод каретки
    
    ifmt dw "%d", 0; строка формата
    buf db BSIZE dup(?); буфер
    stdout dd ? ; дескриптор вывода
    stdin dd ? ; дескриптор ввода
    cRead dd ? ; символов прочиталось
    cWritten dd ? ; символов не удалось напечатать
    
.code
    start:
        invoke GetStdHandle, -11
        mov stdout, eax
        invoke GetStdHandle, -10
        mov stdin, eax
        
        ; Печатаем 'Expression: a+b+cd+e+f+g+h+km'
        invoke WriteConsoleA, stdout, addr expr_text, sizeof expr_text, ADDR cWritten, 0
        ; Переносим каретку
        invoke WriteConsoleA, stdout, addr msg1310, sizeof msg1310, ADDR cWritten, 0
        
        ; Печатаем 'Input a value (0-99): '
        invoke WriteConsoleA, stdout, addr inpA, 23, ADDR cWritten, 0
        ; Считываем значение a 
        invoke ReadConsoleA, stdin, addr varA, 2, addr cRead, 0
        ; Очищаем буфер от символа переноса строки и каретки
        invoke ReadConsoleA, stdin, addr trash, 2, addr cRead, 0
        
        ; Печатаем 'Input b value (0-99): '
        invoke WriteConsoleA, stdout, addr inpB, 23, ADDR cWritten, 0
        ; Считываем значение b
        invoke ReadConsoleA, stdin, addr varB, 2, addr cRead, 0
        ; Очищаем буфер от символа переноса строки и каретки
        invoke ReadConsoleA, stdin, addr trash, 2, addr cRead, 0
        
        mov ax, varA
        mov bx, varB
        
        ; уменьшаем на 30h, чтобы перевести в ascii в цифры
        sub ah, 30h
        sub al, 30h
        sub bh, 30h
        sub bl, 30h
        
        ; складываем
        add al, bl
        add ah, bh
        
        ; число задом наперед - переворачиваем
        mov bh, ah
        mov ah, al
        mov al, bh
        
        ; переворачиваем обратно
        mov bh, ah
        mov ah, al
        mov al, bh
        
        ; увеличиваем на 30h, чтобы обратно в ascii цифры
        add al, 30h
        add ah, 30h
        
        ; Прибавляем к общему значению
        add total, ax
 
        ;invoke WriteConsoleA, stdout, addr total, 2, ADDR cWritten, 0
        
        
        mov ax, varC ; множимое в формате неупакованного BCD помещается в регистр AL        
        mov bx, varD ; множитель в формате неупакованного BCD помещается в регистр BL
        
        mul bx       ; AX = 0x03 * 0x09 = 0x001Bh
        
        aam          ; AX = 0x0207h
        or AX,3030H  ; AX = 0x3237h, т.е. AH = '2', AL = '7'
        
        mov bh, ah
        mov ah, al
        mov al, bh
        
        mov varD, ax ;складываем результат умножения с общуую переменную
        ;invoke WriteConsoleA, stdout, addr varD, 10, ADDR cWritten, 0
        mov ax, total
        mov bx, varD
        sub ah, 30h
        sub al, 30h
        sub bh, 30h
        sub bl, 30h
        add al, bl
        add ah, bh
        mov bh, ah
        mov ah, al
        mov al, bh
        aaa
        mov bh, ah
        mov ah, al
        mov al, bh
        add al, 30h
        add ah, 30h
        mov total, ax
        
        
        invoke WriteConsoleA, stdout, addr result, 10, ADDR cWritten, 0
        invoke WriteConsoleA, stdout, addr total, 2, ADDR cWritten, 0
        invoke ExitProcess,0
        
        
end start