KPO lab1

        org 100h
Start:
        mov ah, $09
        mov dx, FirstString
        int 21h

        mov ah,$09
        mov dx,EmptyString
        int 21h

        mov ah,$09
        mov dx,forInputStr
        int 21h

        mov ah,$09
        mov dx,EmptyString
        int 21h

        mov ah,$0A
        mov dx,bufInput
        int 21h

        mov ah,$09
        mov dx,EmptyString
        int 21h

        mov ah,$09
        mov dx,forAnswer
        int 21h

        mov ah,$09
        mov dx,EmptyString
        int 21h


        mov [bufInput + 11], '$'
        mov dl, [bufInput + 2]
        mov al, [bufInput + 10]
        mov [bufInput + 2], al
        mov [bufInput + 10], dl
        mov al, [bufInput + 4]
        sub al, [bufInput + 6]
        mov dl, [bufInput + 8]
        sub dl, al
        mov [bufInput + 3], dl
        mov ah,$09
        mov dx,bufInput + 2
        int 21h

        mov ah,8
        int 21h
        ret



FirstString: db "There are operations with input string: change S9 and S1, S2 <= S7 - (S3 - S5)$"

EmptyString: db 10,13,"$"

bufInput db 10, 0, 10 dup(?)

forInputStr: db "Enter string of 9 characters:$"

forAnswer: db "Answer is:$"