mysist8

include io.asm

sstack segment stack
    db 128 dup(?)
sstack ends

sdata segment
    str1 db 32 dup(?)
    str2 db 128 dup(?)
    str3 db 256 dup(?)
    inputs1 db "Input str1>", "$"
    inputs2 db "Input str2>", "$"
sdata ends

scode segment
    assume cs:scode, ds:sdata, ss:sstack

start:
; Установка сегмента
    push sdata
    pop ds
    push sdata
    pop es

; Запись максимальной длины
    mov al,31
    mov [str1],al
    mov al,127
    mov [str2],al

; Вывод сообщения о вводе строки и ввыод строки
    mov dx,offset inputs1
    outstr
    mov dx,offset str1
    mov ah,0ah
    int 21h

    newline

; Вывод сообщения о вводе строки и ввыод строки
    mov dx,offset inputs2
    outstr
    mov dx,offset str2
    mov ah,0ah
    int 21h

    ; Копирование 1-й строки
    xor cx,cx
    mov cl,[str1+1]
    mov si,offset str1
    inc si
    inc si
    mov di,offset str3
    rep movsb

    ; Копирование 2-й строки
    xor bx,bx
    mov bl,[str1+1]
    xor cx,cx
    mov cl,[str2+1]
    mov si,offset str2
    inc si
    inc si
    mov di,offset str3
    add di,bx
    rep movsb

    ; Запись доллара в конец
    xor bx,bx
    mov bl,[str1+1]
    add bl,[str2+1]
    mov al,24h
    mov [str3+bx],al


    newline
    mov dx,offset str3
    outstr


finishprog:
    finish

scode ends
end start