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,20 ;number of rows
mov ch,0
mov cl,0
mov dh,24 ;row
mov dl,79 ;column
mov bh,14h ;attribute
int 10h
mov ax,4c00h
int 21h
endp
ends
end main