.model small
.stack 100H
.data
    mes1 db 'Correct','$',10,13; 10,13 - перенос строки
    mes2 db 'Error','$',10,13; 10,13 - перенос строки
    mm db '15011'
.code
start:
    mov AX,@data
    mov DS,AX
;C:\tasm\bin\tasm /z /zi /n p,,
;C:\tasm\bin\tlink /v /x p,
;C:\tasm\bin\td p
    mov SI,offset mm
    mov CX,5

    r:
    mov AH,08h
    int 21h
    cmp mm[SI],AL
    jne endb
    inc SI
    ;cmp AL,13
    mov AH, 02h
    mov DL, '*'
    int 21h
    loop r
    jmp enda

    endb:
        mov AH,09h
        mov DX, offset mm[SI]
        mov AH,09h
        mov DX, AX
        mov AH,09h
        mov DX, offset mes2
        int 21h
        jmp endd

    enda:
        mov AH, 02h
        mov DL, 0Ah
        int 21h
        mov AH,09h
        mov DX, offset mes1
        int 21h




    endd:
    mov AX,4C00H;4С выгрузка программы из памяти, 00H запись в AL
    int 21H
end start