title   Password 4 simbols
;---------------------------------------------
codesg  segment para 'code'
assume  cs:codesg, ds:codesg, ss:codesg, es:codesg
    org 100h
begin:
 
    main    proc near
    call    clear_scrin
    mov row,09
    mov col,10
    lea bp, [message]
    mov cx, 16
    call    write_string
    add col, 18
 
wr0:
    lea si, cout
    mov coun, 0
wr:
    mov ah, 02h
    mov bh, 00
    mov dl, col
;   mov dh, row
    int 10h
    mov ah, 00h
    int 16h
    cmp al, 0dh
    je  wr1
    mov [si], al
    inc si
    mov ah, 09
    mov al, '*'
    mov bh, 00
    mov cx, 1
    int 10h
    inc col
    inc coun
    cmp coun, 5
    jne wr
 
wr1:
    lea si, parol
    lea bp, [cout]
wr2:
    mov ah, [si]
    mov al, [bp]
    cmp ah, al
    jne q
    cmp cl, coun
    je  wr3
    inc si
    inc bp
    inc cl
    jmp wr2
q:
    call    bad
    mov al, coun
    sub col, al 
    jmp wr0
wr3:
    call    ok
    ret
    main    endp
 
    bad proc near
    call    clear_scrin
    lea bp,[mess1]
    mov cl, 16
    call    write_string
    ret
    bad endp
 
    ok  proc near
    call    clear_scrin
    lea bp,[mess]
    mov cl, 7
    call    write_string
    mov     ah, 10h
	int     16h
	call    _ext
    ok  endp
 
    clear_scrin proc near
    mov ax, 0600h
    mov bh, 07
    mov cx, 0000
    mov dx, 184fh
    int 10h
    ret
    clear_scrin endp
	
	_ext  proc near
	int   20h
	_ext  endp
 
    write_string    proc near
    mov ah, 13h
    mov al, 1
    mov bh, 00
    mov bl, 12
    mov dh, 6
    mov dl, 6
    int 10h
    ret
    write_string    endp
 
    message db 'Enter password: '
    mess    db 'YEAP!!!'
    mess1   db 'Nop. Try again: '
    row db 00
    col db 00
    cout    db 6 dup (' ')
    parol   db 'hexf'
    coun    db 0
    codesg  ends
    end begin