NAMA: M Hasbi Sadam A
NIM : sir200922
BAHASA RAKITAN
.model small.code
org 100h
data:
jmp mulai
asal db'widya utama$'
kata db'masukan huruf yang dicari :$'
ket1 db'huruf ditemukan$'
ket2 db'huruf tidak ditemukan$'
mulai:
xor bx,bx ; cek panjang kalimat
cek:
mov al,asal[bx]; pindahkan asal [index] ke al
inc bx
cmp al,'$'
jne cek
dec bx
mov cx,bx
xor bx,bx
mov ah,9
mov dx,offset asal
int 21h
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
mov ah,9
mov dx,offset kata
int 21h
mov ah,1
int 21h
ulang:
mov dl, asal[bx]
inc bx
cmp dl,'$'
je salah
cmp al,dl
jne ulang
jmp benar
salah:
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
mov ah,9
mov dx,offset ket2
int 21h
jmp barisbaru
benar:
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
mov ah,9
mov dx,offset ket1
int 21h
jmp barisbaru
barisbaru:
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
int 20h
end data
output :
: both;'/>
Tidak ada komentar:
Posting Komentar