DATAS SEGMENT
 x dw 0ffffh
 y db 5 dup(?)   
DATAS ENDS



CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX
    lea bx,y
    mov ax,x
    call htod
    call disp
    MOV AH,4CH
    INT 21H
    
    htod proc
    mov si,5
    mov cx,10
    a1:xor dx,dx
    div cx
    add dl,30h
    dec si
    mov [bx][si],dl
    or si,si
    jnz a1
    ret
    htod endp
    
    disp proc
    lea si,y
    mov cx,5
    a2:mov dl,[si]
    mov ah,2
    int 21h
    inc si
    loop a2
    ret
   disp endp 
CODES ENDS
    END START