data segment
str1 db 30,?,30 dup(?)
crlf db 0ah,0dh,'$'
data ends
code segment
assume cs:code,ds:data
main proc far
start:
mov ax,data
mov ds,ax
lea dx,str1
mov ah,0ah
int 21h
lea di,str1+2
mov bl,str1+1
mov bh,0
mov byte ptr[bx][di],'$’
lea dx,crlf
mov ah,09h
int 21h
lea dx,str1+2
mov ah,09h
int 21h
mov ax,4c00h
int 21h
main endp
code ends
end start