UAS PRAKTIKUM (Assembly language)

.model small
.code
org 100h
mulai:
    jmp process
    kal db 13,10,'Enter  Password : $'
    kal2 db 10,'WELCOME...!!$'
    kal3 db 10,'NO ACCESS...!!$'
process : mov ah, 09h
    lea dx, kal
    int 21h
    mov ah, 07h
    int 21h
    cmp al, 'D'
    je choice1
    jne process1
process1 : mov ah, 09h
    lea dx, kal3
    int 21h
    int 20h
choice1:
    mov ah, 02h
    mov dl, '*'
    int 21h
    mov ah, 07h
    int 21h
    cmp al, 'O'
    je choice2
    jne process
choice2:
    mov ah, 02h
    mov dl, '*'
    int 21h
    mov ah, 07h
    int 21h
    cmp al, 'R'
    je choice3
    jne process
choice3:
    mov ah, 02h
    mov dl, '*'
    int 21h
    mov ah, 09h
    lea dx, kal2
    int 21h
int 20h
end mulai

 Password bisa diketik semua atau bisa juga satu persatu