DATAS SEGMENT
   buff db 64
   db ?
   db 64 dup(0)  
DATAS ENDS


CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX
    lea dx,buff
    mov ah,0ah
    int 21h
    
    mov al,[buff+1]
    cbw
    mov si,ax
    
    mov [si+2],'$'
    mov dl,0ah
    mov ah,2
    int 21h
    
    lea dx,buff
    add dx,2
    mov ah,09h
    int 21h
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START