SISWADI
SIA201046
.model small
.code
org 100h
Mulai:
jmp proses
kal db 13,10,'Masukkan Password : $'
kal2 db 10,'Welcome.....!!!$'
kal3 db 10,'no access...$'
proses1 :
mov ah, 09h
lea dx, kal3
int 21h
proses :
mov ah, 09h
lea dx, kal
int 21h
mov ah, 07h
int 21h
cmp al, 'F'
je pilihan1
jne proses1
int 20h
pilihan1:
mov ah, 02h
mov dl, 'X'
int 21h
mov ah, 07h
int 21h
cmp al, 'I'
je pilihan2
jne proses1
pilihan2:
mov ah, 02h
mov dl, 'X'
int 21h
mov ah, 07h
int 21h
cmp al, 'X'
je pilihan3
jne proses1
pilihan3:
mov ah, 02h
mov dl, 'X'
int 21h
mov ah, 07h
int 21h
je pilihan4
jne proses1
pilihan4:
mov ah, 02h
mov dl, 'X'
int 21h
mov ah, 09h
lea dx, kal2
int 21h
int 20h
end Mulai
