Stack segment
      dw 2 dup (?) 
stack ends

data  segment
msg   db 'this is a test',0dh,0ah
msg1  db 'Today is a rainny day',0dh,0ah
msg2  db 'Today is fine',0dh,0ah,'$'
data  ends

code  segment
      assume cs:code,ds:data,ss:stack
;
beg   proc far
;
      push ds
      xor  ax,ax
      push ax
;
      mov  ax,data
      mov  ds,ax
;
      lea  dx,msg
      mov  ah,09h
      int  21h
;
      ret
beg   endp
code  ends
      end  beg