20/08/2013

stseg segment para stack db 64 dup('A'); sttop label word stseg ends dtseg segment str1 db 'Hello,World',0dh,0ah,'$' str2 db 15 dup (' ') mess db 'str2 = $' dtseg ends cdseg segment main proc far assume cs:cdseg,es:dtseg,ds:dtseg,ss:stseg mov ax,dtseg mov ds,ax mov es,ax mov ax,stseg mov ss,ax lea sp,sttop ;------------------------------------------------------------------- lea si,str1 lea di,str2 cld mov cx,14 rep movsb lea dx,mess mov ah,9 int 21h lea dx,str2 mov ah,9 int 21h ;------------------------------------------------------------------- mov ah,4ch int 21h main endp cdseg ends end main