UJIAN OSK

.model small
.code
org 100h

Start :
jmp proses
kata  db 13,10,13,10,'Enter Your Password : $'
kata1 db 13,10,'Your password is True',13,10,13,10,'$'
kata2 db 13,10,'Your password is False',13,10,13,10,'$'

pilih db '===============================',13,10,13,10
      db 'Hello... Choice please : (1..3)',13,10,13,10
      db '1. Tampilkan NPM',13,10,13,10
      db '2. Tampilkan Nama',13,10,13,10
      db '3. Exit',13,10,13,10
      db 'Your Choice : $'

pakai1 :
mov ah,02h
mov dl,0ah
int 21h
mov dl,4eh
int 21h
mov dl,50h
int 21h
mov dl,4dh
int 21h
mov dl,20h
int 21h
mov dl,3ah
int 21h
mov dl,20h
int 21h
mov dl,35h
int 21h
mov dl,37h
int 21h
mov dl,34h
int 21h
mov dl,31h
int 21h
mov dl,35h
int 21h
mov dl,38h
int 21h
mov dl,33h
int 21h
mov dl,37h
int 21h
jmp menu

pakai2 :
mov ah,02h
mov dl,0ah
int 21h
mov dl,41h
int 21h
mov dl,72h
int 21h
mov dl,62h
int 21h
mov dl,79h
int 21h
jmp menu

proses :
    mov ah, 09h
    lea dx, kata
    int 21h
    mov ah, 07h
    int 21h
    cmp al,'I'
    JE yes
    JNE no

    yes :
        mov ah, 02h
        mov dl, 2Ah
        int 21h
        mov ah, 07h
        int 21h
        cmp al,'A'
        JE yes2
        JNE no

    no :
        mov ah, 09h
        lea dx, kata2
        int 21h
        jmp proses

    yes2 :
        mov ah, 02h
        mov dl, 2Ah
        int 21h
        mov ah, 07h
        int 21h
        cmp al,'2'
        JE yes3
        JNE no

    yes3 :
        mov ah, 02h
        mov dl, 2Ah
        int 21h
        mov ah, 07h
        int 21h
        cmp al,'2'
        JE yes4
        JNE no

    yes4 :
        mov ah, 02h
        mov dl, 2Ah
        int 21h
        mov dl, 20h
        int 21h
        mov ah, 09h
        lea dx, kata1
        int 21h

menu :
mov ah,09h
mov dx,offset pilih
int 21h

choose :
mov ah,01h
int 21h
cmp al,'1'
je aa
cmp al,'2'
je bb
cmp al,'3'
je cc
jne menu

aa :
jmp pakai1
mov ah,09h
int 21h

bb :
jmp pakai2
mov ah,09h
int 21h

cc :
jmp selesai

selesai :
int 20h

End Start