mishar_sist_8

include io.asm

sstack segment stack
    db 128 dup(?)
sstack ends

sdata segment

    string db 256 dup(?)

    input: db "Input string (dollar = end)> ", "$"
    inputch: db "Input char> ", "$"
    s_noresult: db "NO", "$"
    s_result: db "YES", "$"


sdata ends

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


start:

    mov ax,sdata
    mov ds,ax
    mov dx,offset input
    outstr

    mov di,0
    cycle1:
        inch al
        mov [string+di],al
        inc di
        cmp al,36
        jne cycle1

    mov dx,offset inputch
    outstr

    inch al

    mov di,0
    cycle2:
        mov ah,[string+di]
        cmp ah,36
        je noresult
        inc di
        cmp ah,al
        jne cycle2

result:
    mov dx,offset s_result
    outstr
    jmp endstart

noresult:
    mov dx,offset s_noresult
    outstr


endstart:
    finish
scode ends
end start