Membuat Program Mencari Huruf atau Karakter

Nama: Tohjiwo Wiji Asmoro
NIM: SIR200931
Kuliah: Pemrograman Bahasa Rakitan

Tuliskan source berikut :

.model small
.code
org 100h
data:
jmp mulai

asal db 'widyautama$'
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] ; pindahan 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 asal
int 21h
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 mulai

hasil program adalah :
widyautama
Huruf yang dicari : (kursor _) w
Huruf ditemukan