code segment
     assume cs:code, ds:mydata
main proc far
     jmp short beg
MC   DB    "Message from CODE SEGMENT!",13,10,"$"
beg:
     mov  ax,mydata
     mov  ds,ax
     push ds
     mov  ax,cs
     mov  ds,ax
; Вывод строки из сегмента кода
     mov ah,09h
     mov dx,offset MC
     int 21h
; Восстанавливаем содержимое DS из стека
     pop ds
; Вывод строки из сегмента данных
     mov ah,09h
     mov dx,offset MD
     int 21h
; Выход в DOS
     mov ax,4C00h
     int 21h
main endp
code ends
mydata segment 
MD     DB      "Message from DATA SEGMENT!",13,10,"$"
mydata ends
     end main 
