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 ^^...