Форум программистов [Powered by Invision Power Board]

Код

.model    small
.stack    100h
.data
    string db 80 dup(?)
    promt db 0Dh,0Ah,'Enter password: $'
    all db 0Dh,0Ah,'That is all$'
    ok db 0Dh,0Ah,'Working!!! $'
    password db 'pass$'
    pass_len dw 3
.code 
start:
    mov    ax,@data
    mov    ds,ax        ;В АХ-адреса початку сегмента даних
@beg1:
    mov    ah,09h    ;Вивiд запиту на введення пароля
    mov    dx,offset promt ;Адреса запиту
    inc    dx
    int    21h
                ;Введемо пароль
    mov    bx,0        ;iнiцiалiзацiя iндексацiї введення
    lea    si, string
@pass:
    mov    ah,08h    ;Функцiя введення символу в AL без ехо
    int    21h
    cmp    al,13        ;<Enter> ?
    je    @compare    ;Так, на порiвняння
    mov    [si],al
    mov    ah,02
    mov    dl,'*'        ;Запишемо на екран *
    int    21h
    inc    si
    jmp    @pass    ;Повторювати
                ;Порiвняння введеного пароля з дiйсним (порiвняння рядкiв)
@compare:
    push    ds        ;Встановити ES на сегмент даних
    pop    es
    lea    si,string    ;DS:SI- початок string
    inc    si
    lea    di,password    ;ES:DI- початок password
    inc    di
    cld            ;DF=0- перегляд вперед
    mov    cx,pass_len    ;Встановити лiчильник порiвняння
    repe    cmpsb    ;Порiвнювати, поки CX<>0 i ZF=1 (тобто повторювати
                ;поки символи двох рядкiв спiвпадають, але не бiльш CX раз)
    jne    @err        ;Рядки не рiвнi
                ;Виведення повiдомлення ОК, пiдтверджуючого правильнiсть пароля
    mov    ah,09h
    mov    dx,offset OK
    inc    dx
    int    21h
    jmp    @end1
@err:
    jmp    @beg1    ;Повторити введення пароля
@end1:
    mov    ah,09h
    mov    dx,offset All
    inc    dx
    int    21h
    jmp    @beg1
    MOV    AH,4ch    ;DOS-функцiя завершення роботи програми
    INT    21h        ;Виклик переривання DOS
start end
end