вывод числа из ax, не получается вывести большое число

mov ax,bx   ; в bx кол-во букв
    mov bl,10   ;
    div bl      ; ax делим на bl
    mov bl,ah   ; чтобы не потерять значение (младшая часть)

    mov ah,02
    add al,30h
    mov dl,al   ; в dl - целая часть
    int 21h

    mov ah,02
    add bl,30h
    mov dl,bl  
    int 21h

.model small
    .stack 400h
    .data
str1 db 80,70 dup ('$')
endl db  0Dh,0Ah,'$'
    .code
start:
    mov ax,@data
    mov ds,ax

    mov ah,0ah
    lea dx,[str1]
    int 21h
   
    mov ah,09h
    lea dx,[endl]
    int 21h
       
    xor ax, ax
    mov al, [str1+1]
    add si, ax
    dec si

cycle:
    jcxz ex
    dec cx
   
    mov ah, 'a'
    cmp [ds:si], ah
    je found

    dec si
    jmp cycle

found:
    inc bx
    dec si
    jmp cycle
ex:

    mov ax,bx
    mov bl,10
    div bl
    mov bl,ah

    mov ah,02
    add al,30h
    mov dl,al
    int 21h

    mov ah,02
    add bl,30h
    mov dl,bl
    int 21h

    mov ax,4c00h
    int 21h
    end start