org 100h
Start:
        mov    ah,$09                    ;çàïðîñ íà ââîä
        mov    dx,quest
        int    21h

        mov    ah,$0A                    ;ââîä
        mov    dx,strPoint
        int    21h

        mov ax, 0
        mov al, [strPoint + 1]
        mov bx, strPoint + 2
        add bx, ax
        mov ax, '$'
        mov [bx], ax

        mov al, [strPoint+7]        ;Çàäà¸ì 6 ýëåìåíò
        mov bl, [strPoint+4]        ;Çàäà¸ì 3 ýëåìåíòû
        mov [strPoint+7], bl        ;Çàíîñèì ýëåìåíò 6 â ðåãèñòð ñ 3
        mov [strPoint+4], al        ;Çàíîñèì ýëåìåíò 3 â ðåãèñòð ñ 6

        mov ax, [strPoint+8]        ;s7                 ;S5:=S8–(S7–S2)
        mov bx, [strPoint+9]        ;s8
        sub ax, [strPoint+3]        ;S7-S[2]=s5
        sub bx, ax                  ;S8-(S7-S2)
        mov [strPoint+6], bl

        mov ah, $09                 ;ïåðåõîä
        mov dx, strone
        int     21h

        mov ah, $09
        mov dx, strPoint + 2
        int 21h

        mov    ah,$08               ;îæèäàíèå
        int    21h
        ret

quest:
        db "Enter the string: $"
strone:
        db 10, 13, '$'
strPoint:
        db 12, 0, 12 dup(?)