JAWABAN SOAL UJIAN AKHIR SEMESTER (PRAKTIKUM)

SOAL UJIAN AKHIR SEMESTER (PRAKTIKUM)
NIM                 : SIA201034
Nama               : Marsun
Mata Kuliah      : Pemrograman Bahasa Rakitan
SKS                 : 2
Program Studi    : S1 Teknik Informatika
Hari, Tanggal      : Minggu, 13 November 2011
Dosen                : Nahar Mardiyantoro, M.Kom
=============================================================================
1. Tuliskan menggunakan bahasa rakitan.

untuk lihat codingnya sebagai beriktu :

.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



Hasilnya sebagai berikut dalam bentuk gambar