stksg segment stack
db 32 dup("stack")
stksg ends
codesg segmant para 'code'
main proc far
assume cs:codesg
mov ah,6h ;clear screen
mov al,10 ;number of rows
mov ch,5
mov cl,10
mov dh,15
mov dl,40
mov bh,7 ;attribute
int 10h
mov ax,4c00h
int 21h
main endp
codesg ends
end main