Hello World! (Prints a string)

;prints a string
stak segment para stack 'stack'
db 50 dup(0)
stak ends

dta segment
msg db"Hello World!$"
dta ends

kod segment
prok proc
assume ss:stak, ds:dta, cs:kod

mov ax,dta
mov ds,ax

mov ah,09
mov dx, offset msg
int 21h

mov ah,07
int 21h

mov ax,4c00h
int 21h
prok endp
kod ends
end prok