LODSB

stseg segment para stack db 64 dup('A'); sttop label word stseg ends dtseg segment str1 db 'Hello,World',0dh,0ah,'$' str2 db 'Hello,World',0dh,0ah,'$' 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 lodsb mov dl,al mov ah,02 int 21h ;------------------------------------------------------------------- mov ah,4ch int 21h main endp cdseg ends end main