Уменьшать первое число на 5 если оно больше второго числа по абсолютному значению

.data 
smsa db  "введите a: $"         
smsb db  "введите b: $"  
smsy db  "Результат: $"
smsyy db  "Результат: $"
a dw ?       
b dw ?
y dw ?
d dw 5  
.code
start:
 mov ax, @data        
 mov ds,ax            
 
  lea dx,smsa            
  outstr 
  inint a                 
  
  lea dx,smsb 
  outstr 
  inint b
  
  mov ax,a             
  cmp ax,b          
  jl  a_menshe_b 
 
 
   mov ax,a
   cmp ax,0
   jl f              
     
  jmp d1              
    
  f: neg ax     
     neg b
  d1:                 
                     
   sub ax,d           
   mov y,ax    
               
a_menshe_b: 
 
  mov y,ax 
 
  lea dx, smsy
  outstr
  outint y
  newline
  lea dx, smsyy
  outstr
  outint b
  finish
end start

;вход в bx адрес строки в которой число - размер байт, строка заканчивается 0Dh символом
    ;выход число в al
    StrToChar proc
        push bx
        push dx
        push di
        push cx
        xor di, di
        mov ah, '-'
        cmp ah, byte ptr[bx]
        jne short unsigned
        inc bx
        mov cl, 1
        unsigned:
            xor ax, ax
            mov dl, 10
        _while: mov dh, [bx]
            cmp dh, 0Dh
            je k
            inc di
            mul dl
            jo _Err
            cmp al, 81h
            jae _Err
            cmp dh, '0'
            jb _Err
            cmp dh, '9'
            ja _Err
            and dh, 0Fh
            add al, dh
            jc _Err
            cmp al, 81h
            jae _Err
            Next: inc bx
        jmp _while
        k: mov dx, ax
        cmp cl, 1
        je short signed
        cmp dl, 7fh
        ja _Err
        or di, 0
        jz _Err
        jmp _Exit
        _Err: print mes1
            stc 
            jmp Exit
        signed: or di, 0
            jz _Err
            neg dl
        _Exit:clc
        Exit: mov al, dl
        pop cx
        pop di
        pop dx
        pop bx
        ret
    StrToChar endp