stackseg segment stack
db 256 dup(?)
stackseg ends
dataseg1 segment word public 'CONST'
const1 dw 100
dataseg1 ends
dataseg2 segment word public 'CONST'
varible dw ?
dataseg2 ends
datagroup group dataseg1,dataseg2
codeseg segment para public 'CODE'
assume cs:codeseg,ds:datagroup,ss:stackseg
start:
mov ax,datagroup
mov ds,ax
mov ax,const1
mov varible,ax
mov ax,offset varible
mov ax,offset dataseg1
mov ax,offset dataseg2
mov bx,0304h
mov ah,4ch
int 21h
codeseg ends
end start