stack   segment stack
        db      200h dup(?)
tos     label   word
stack   ends
data    segment
value   dw      0fffeh
result  db      5 dup(?),'$'
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     bx,10
        mov     di,4
lp1:    xor     dx,dx
        div     bx
        add     dl,30h
        mov     result[di],dl
        dec     di
        loop    lp1
        mov     cx,5
        mov     dx,offset result
        mov     ah,9
        int     21h
        ret
main    endp
code    ends
        end     main