stksg segment stack
db 32 dup("stack")
stksg ends
datasg segmant para 'para'
msg db 'this is first output'"$"
datasg ends
codesg segment para 'code'
main proc far
assume ds:datasg, cs:codesg
mov ax,datasg
mov ds,ax
mov ah,2h ;cursor move
mov dh,10 ;row
mov dl,30 ;column
mov bh,0 ;page number
int 10h
mov ax,offset msg
mov ah,9h
int 21h
mov ax,ac00h
int 21h
main endp
codesg ends
end main