Praktek Assembly

Paktek Coding Bahasa Rakitan

Nama    : Musa Ahmad

N I M    : SIA201024

Dosen   : Nahar Mardiyantoro, M.Kom

=============================================================

.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

_____________________________________________________________

                          Gb. Hasil Run

Posted in: