Вывод двузначных чисел

data segment
m db 10,13,'Kolichestvo simvolov: $'
data ends
code segment
start:
assume ds:data, cs:code
mov ax,data
mov ds,ax
 
 mov ch,'0' ;ch=0
 mov ah, 01 ; ввод
 mov cl,13;cl=13-ентер
 
cikl: ; ввод чисел до ентер
  int 21h
  cmp al,cl ; сравниваем введенное число с ентер
  je end_cikl  ;если введенное равно ентер, то переход на end_cikl
  inc ch ; если не равно, то увеличиваем ch, который был равен 0-считает кол-во введенных цифр
  jmp cikl; переход в начало цикла
 
end_cikl: 
 
mov ah,09; вывод m
lea dx,m
int 21h
 
mov ah,02
mov dl,ch; вывод количества введенных цифр
int 21h
 
mov ah,01
int 21h
mov ax,4c00h
int 21h
code ends
end start

data segment
mes db 10,13,'Kolichestvo simvolov: $'
data ends
code segment
start:
assume ds:data, cs:code
mov ax,data
mov ds,ax
 
 mov ch,00h 
 mov ah, 01
 int 21h            
 mov bl, al
 mov cl,13;cl=13-ентер
 
cikl: ; ввод чисел до ентер
  int 21h
  cmp al,cl ; сравниваем введенное число с ентер
  je end_cikl  ;если введенное равно ентер, то переход на end_cikl
  inc ch ; если не равно, то увеличиваем ch, который был равен 0-считает кол-во введенных цифр
  jmp cikl; переход в начало цикла
 
end_cikl: 
 
mov ah,09; вывод m
lea dx,mes
int 21h
mov al, ch
aam
        add     ax,     '00'
        mov     dl,     ah
        mov     dh,     al
        mov     ah,     02h
        int     21h
        mov     dl,     dh
        int     21h
 
mov ax,4c00h
int 21h
code ends
end start