stack   segment stack
        db      200h dup(?)
tos     label   word
stack   ends
data    segment
value   dw      0fffeh
divsor  dw      10000,1000,100,10,1
data    ends
code    segment
        assume  cs:code,ds:data,ss:stack
main    proc    far
        mov     ax,stack
        mov     ss,ax
        mov     sp,offset tos
        push    ds
        xor     ax,ax
        push    ax
        mov     ax,data
        mov     ds,ax

        mov     cx,5
        mov     ax,value
        mov     si,offset divsor
lp1:    xor     dx,dx
        div     word ptr[si]
        push    dx
        add     al,30h
        mov     dl,al
        mov     ah,2
        int     21h
        inc     si
        inc     si
        pop     ax
        loop    lp1
        ret
main    endp
code    ends
        end     main