Jawaban UAS Praktik PBR_13 Nop 2011

Dosen Pengampu : Nahar Mardiyantoro, M.Kom

Coding :

.model small

.code

org 100h

mulai:

   

    jmp proses

    kal db 13,10,'Enter  Password : $'

    kal2 db 10,'WELCOME...!!$'

    kal3 db 10,'NO ACCESS...!!$'

   

proses : mov ah, 09h

    lea dx, kal

    int 21h

   

    mov ah, 07h

    int 21h

   

    cmp al, 'F'

    je pilihan1

    jne proses1

   

   

proses1 : mov ah, 09h

    lea dx, kal3

    int 21h

    int 20h

pilihan1:

    mov ah, 02h

    mov dl, '*'

    int 21h

    mov ah, 07h

    int 21h

    cmp al, 'I'

    je pilihan2

    jne proses

pilihan2:

    mov ah, 02h

    mov dl, '*'

    int 21h

    mov ah, 07h

    int 21h

    cmp al, 'X'

    je pilihan3

       

    jne proses

pilihan3:

    mov ah, 02h

    mov dl, '*'

    int 21h

    mov ah, 09h

    lea dx, kal2

    int 21h

int 20h

end mulai