alhuaseem blog.

Contoh Program Membunyikan BEEP pada Speaker. .model small .code org 100h proses: in al,61h or al,00000011b out 61h,al int 16h and al,11111100b out 61h,al int 20h end proses NB: * Kalo di running tidak bunyi coba cek volume spiker anda.. * Kalo tetep tidak bunyi.. coba running ber-ULANG-kali sampe bunyi.. INSYAALLAH...jadi. trimakasih.

.model small .code ORG 100h mulai: mov ah,02h MOV CX,26 MOV DL,65 ULANGI: push CX INT 21H MOV DH,DL MOV DL,32 INT 21H MOV DL,DH INC DL LOOP ULANGI INT 20H end mulai

.model small .code ORG 100h mulai: MOV CX,6 MOV AH,02H MOV DL,65 ulang: PUSH CX MOV CX,5 cetak: INT 21H LOOP cetak POP CX INC DL LOOP ulang INT 20H end mulai

.model small .code ORG 100h     mulai :         jmp tulis         kata db, 'SUCESSFULLY$'     TULIS:     mov ah, 09h     lea dx, kata     mov cx,5     ulang:     int 21h     loop ulang     int 20h     end mulai

.model small .code org 100h mulai: jmp proses vca db 10, 'USERNAME (ROOT): $' vcal db 10, 'PASSWORD  (ANDA): $' vcal1 db 10, 'MAAF KEYWORD YANG ANDA MASUKKAN SALAH $' vcal2 db 10, 'SELAMAT DATANG DI ASSEMBLY$' proses: mov ah, 09h lea dx, vca int 21h mov ah, 07h int 21h cmp al, 'R' je ya1 jne tidak1 ya1: mov ah, 02h mov dl, 'R' int 21h mov ah, 07h int 21h cmp al, 'O' je ya2 jne tidak2 tidak1: mov ah, 09h lea dx, vcal1 int 21h jmp proses ya2: mov ah, 02h mov dl, 'O' int 21h mov ah, 07h int 21h cmp al, 'O' je ya3 jne tidak3 tidak2: mov ah, 09h lea dx, vcal1 int 21h jmp proses ya3: mov ah, 02h mov dl, 'O' int 21h mov ah, 07h int 21h cmp al, 'T' je ya4 jne tidak4 tidak3: mov ah, 09h lea dx, vcal1 int 21h jmp proses ya4: mov ah, 02h mov dl, 'T' int 21h ;mov ah, 09h ;lea dx, vcal2 ;int 21h jmp proses1 tidak4: mo

.model small .code ORG 100h mulai: mov ah,02h mov cx,07 mov bh,65 mov bl,98 ulang: mov dl,bh int 21h mov dl,bl int 21h inc bh inc bh inc bl inc bl loop ulang int 20h end mulai

.model small .code ORG 100h mulai: mov ah,02h mov dl,65 mov cx,26 ulang: int 21h inc dl loop ulang mov ah,02 mov dl,90 mov cx,26 ulang1: int 21h dec dl loop ulang1 int 20h end mulai

.model small .code org 100h mulai: jmp proses vcal db 10, 'SILAHKAN MASUKKAN PASSWORD (ANDA): $' vcal1 db 10, 'MAAF PASSWORD YANG ANDA MASUKAN SALAH$' vcal2 db 10, 'SELAMAT DATANG ASSEMBLERS$' proses: mov ah, 09h lea dx, vcal int 21h mov ah, 07h int 21h cmp al, 'A' je ya1 jne tidak1 ya1: mov ah, 02h mov dl, 2Ah int 21h mov ah, 07h int 21h cmp al, 'N' je ya2 jne tidak2 tidak1: mov ah, 09h lea dx, vcal1 int 21h jmp proses ya2: mov ah, 02h mov dl, 2Ah int 21h mov ah, 07h int 21h cmp al, 'D' je ya3 jne tidak3 tidak2: mov ah, 09h lea dx, vcal1 int 21h jmp proses ya3: mov ah, 02h mov dl, 2Ah int 21h mov ah, 07h int 21h cmp al, 'A' je ya4 jne tidak4 tidak3: mov ah, 09h lea dx, vcal1 int 21h jmp proses ya4: mov ah, 02h mov dl, 2Ah int 21h mov ah, 09h lea dx, vcal2 int 21h int 20h tidak4: mov ah, 09h lea dx, vcal1 int 21h jmp proses end mulai

.model small .code org 100h data: jmp mulai asal db 'fuadhasim$' 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 2