Senin, 14 November 2011

UJIAN PRAKTEK BAHASA RAKITAN

NAMA                 :ABAS WISARTO
NIM                     :SIA201001
MATA KULIAH :BAHASA RAKITAN PRAKTEK
DOSEN                :NAHAR MARDIYANTORO M.KOM




Jawaban  ujian praktek


.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





 











Tidak ada komentar:

Posting Komentar