UJIAN AKHIR SEMESTER PEMROGRAMAN BAHASA RAKITAN PRAKTEK

PEMROGRAMAN BAHASA RAKITAN PRAKTEK
Dosen Nahar Mardiyantoro,M.Kom

NAMA         : ROHMATUN YULIANI

NIM             : SIA 201029

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 mulai1

                jne proses1

               

proses1 : mov ah, 09h

                lea dx, kal3

                int 21h

                int 20h

proses2 : mov ah, 09h

                lea dx, kal2

                int 21h

                int 20h

mulai1 :

                mov ah, 02h

                mov dl, '*'

                int 21h

                mov ah, 07h

                int 21h

                cmp al, 'I'

                je mulai2

                jne proses

mulai2:

                mov ah, 02h

                mov dl, '*'

                int 21h

                mov ah, 07h

                int 21h

                cmp al, 'X'

                je mulai3

                               

                jne proses2

mulai3:

                mov ah, 02h

                mov dl, '*'

                int 21h

                mov ah, 09h

                lea dx, kal2

                int 21h

int 20h

end mulai