.model small
.code
org 100h
mulai:
jmp proses
vcal db 10,'MASUKAN PASSWORD:$'
vcal1 db 'INCORRECT$'
vcal2 db 10,'WELCOME GUYS...:-)$'
proses:
mov ah,09h
lea dx,vcal
int 21h
mov ah,07h
int 21h
cmp al,'1'
je ya1
jne tidak1
ya1:
mov ah,02h
mov dl,2Ah
int 21h
mov ah,07h
int 21h
cmp al,'2'
je ya2
jne tidak2
tidak1:
mov ah,09h
lea dx,vcal1
int 21h
jmp proses
ya2:
mov ah,02h
mov dl,2Ah
int 21h
mov ah,07h
int 21h
cmp al,'3'
je ya3
jne tidak3
tidak2:
mov ah,09h
lea dx,vcal
int 21h
jmp proses
ya3:
mov ah,02h
mov dl,2ah
int 21h
mov ah,07h
int 21h
cmp al,'4'
je ya4
jne tidak4
tidak3:
mov ah,09h
lea dx,vcal
int 21h
jmp proses
ya4:
mov ah,02h
mov dl,2Ah
int 21h
mov ah,09h
lea dx,vcal2
int 21h
int 20h
tidak4:
mov ah,09h
lea dx,vcal1
int 21h
jmp proses
end mulai