.model small
       .stack
       .data
       .code
start:  mov ax,@data
        mov ds,ax

        mov dx,0
        mov ax,0f000h
        mov bx,10000
        call dpchar
        
    mov bx,1000
        mov ax,dx
        call dpchar
        mov bx,100
        mov ax,dx
        call dpchar 
        mov bx,10
        mov ax,dx
        call dpchar
        mov bx,1
        mov ax,dx
        call dpchar  
                                                                                                                                                                                          
        mov ax,4c00h
        int 21h

dpchar  proc
        push ax
        push bx
        ;push dx
        div bx
    push dx
        mov dx,ax
        add dl,30h
        mov ah,02h
        int 21h
           ; push dx
    pop dx
        pop bx
        pop ax
        ret
dpchar  endp

        end start