sofa_8_asm

include io.asm

segment sstack stack
    db 128 dup(?)
ends sstack

segment sdata

str1 db "abacaba", "$"
lstr1 equ $-str1
str2 db "Hello World!", 11 dup(0)
lstr2 equ $-str2-11

ends sdata

segment scode
assume cs:scode, ds:sdata, ss:sstack
start:
    mov ax,sdata
    mov ds,ax
    mov es,ax

    mov cx,lstr1
    mov si,offset str1
    mov di,offset str2
    add di,lstr2
    rep movsb

    mov dx,offset str2
    outstr
    finish
ends scode
end start