Перевод десятичных чисел в шестнадцатиричное - Assembler

Var BD 2,2,3,3,4,4; 223344 десятичное 6-ти значное число в распакованном формате с повышенной точностью (ASCII формат)

; Вар. 17. Зад. 1. Написать подпрограмму для преобразования некоторого массива десятичных
; ASCII байтов. в массив BCD байтов. С помощью этой подпрограммы обработать два массива
; Для передачи параметров использовать стек.
 
Name Program
; Описание констант
 
;Описание  переменных
Data segment
    x1  db 2h
          db 1h
          db 3h
          db 1h
          db  4h
          db 1h                             ; числа в ASCII-формате
    y1 db 3 dup (?)                 ; массив в BCD-формате
    
    x2 db  8h       ;98
         db  9h
         db  5h                ;95
         db  9h
         db  7h                ;87
         db  8h
         db  2h                 ;92
         db  9h                     ; массив десятич. ASCII-байтов
    Y2 db 4 dup (?)                 ; массив десятич. BCD-байтов
Data ends
 
Stack SEGMENT
    DW 16 dup(?)
    StkTOp LABEL  word
Stack ends
 
Code SEGMENT
    ASSUME CS: Code, DS: Data, ES: Data, SS: Stack
    
; Здесь описываются подпрограммы  
abc proc
     push bp
     mov bp, sp     ; привязка к верхушке стека
     mov cx, [bp+4] ; чтение параметров из стека (кол-во чисел)
     mov di, [bp+6] ; адрес переменной Y1
     mov si, [bp+8] ; адрес переменной Х1
 
M1:  mov al, [si]+1         ; загружаем первое число в ASCII-формате
     shl ax, 1      ; сдвигаем на 4 разряда в право
     shl ax, 1
     shl ax ,1
     shl ax, 1
     or al, [si]        ;востонавливаем число которое запомнили
     mov [di], al       ; записываем число в BCD-формате
     inc si         ; переходим на другое число
     inc si                                                                           
     inc di         ; модифицируем адрес BCD - числа
     dec cx         ; уменьшаем кол-во чисел
     jnz M1     ; если они не кончились то идем на M1
     pop BP
ret       6
abc endp
 
; Основная программа
Start:   mov AX, Data
     mov DS, AX
     mov ES, AX
     mov Ax, Stack
     mov SS, AX
     mov SP, offset StkTop
        
      ; загружаем параметры в стек по условию задачи
     mov ax, offset x1  ; загружаем адрес первого массива
     push ax
     mov ax, offset Y1   ; загружаем адрес результата
     push ax
     mov ax, 3      ; кол-во чисел
     push ax
           call abc     ; вызов подпрограммы
 
           mov ax, offset x2    ; загружаем адрес второго массива
     push ax
     mov ax, offset Y2   ; загружаем адрес результата
     push ax
     mov ax, 4      ; кол-во чисел
     push ax
     call abc       ; вызов подпрограммы
code ends
end start