Praktikum VIII - Cari Kata


CARI KATA

.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] ; pindah asal [index] ke al
      inc bx
      cmp al,'$'
      jne cek

dec bx
mov cx,bx

xor bx,bx
mov ah,9
lea dx,asal
int 21h

mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h

mov ah,9
lea dx, 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
lea dx,ket2
int 21h
jmp barisBaru
benar:
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h

mov ah,9
lea dx,ket1
int 21h
jmp barisBaru

barisBaru:
mov ah,2
mov dl,13
int 21h
mov dl,10
int 21h
int 20h

end data

HASIL :
Widya utama
Huruf yang dicari : (kursor _) u
Huruf ditemukan
                                                                                                                                                      
 Terima kaish telah berkunjung ke blog ini ^^...

---------------------------------------------------------------------------------------------------------------------------------------------------------
Ranking: 5
 
© Bosan Kuliah All Rights Reserved