Mengusir Nyamuk dengan Assembly

Hal yang paling menyebalkan bagi kita jika sedang asyik-asyiknya bermain komputer kemudian ditemani oleh nyamuk-nyamuk malam. Apalagi lagi asyik-asyiknya mengetik tugas yang kita kerjakan eh nyamuknya keenakan menggigit kaki dan tangan kita. Udah sakit, gatal lagi. Pokoknya nyamuk memang membuat kita merasa terganggu. Tenang ini ada solusinya. Kita tahu bahwa manusia hanya bisa mendengar suara di antara daerah infrasonik dan ultrasonik kira-kira 20 sampai 20000 hz. Fakta yang ada, suara yang memiliki frekuensi lebih dari 20000 hz ini membuat nyamuk merasa terganggu sehingga jika kita memasang alat yang dapat mengeluarkan suara dengan frekuensi serupa maka nyamuk-nyamuk akan pergi. Dan suara dengan frekuensi sebesar itu tidak bisa ditangkap oleh telinga kita sehingga kita tidak akan merasa terganggu. Kalau begitu kita harus beli alatnya dong. Tidak usah! Selama kita beraktivitas dengan berkomputer ria, alatnya sudah di depan mata. Alatnya ya komputer Anda sendiri. Caranya adalah Kita membuat program yang dapat memerintah komputer untuk menghasilkan frekuensi suara yang kita inginkan. Program itu kita bisa buat melalui Bahasa Assembly. Berikut ini adalah script-nya yang diambil dari buku S'to tentang Pemrograman Assembly.

NoPCsound MACRO
IN AL,61h ; Ambil data Port 61h
AND AL,0FCh ; Matikan bit ke 6 & 7
OUT 61h,AL ; Masukkan nilainya pada Port 61h
ENDM
PCsound MACRO Hz
MOV AL,0B6h
OUT 43h,AL ; Persiapkan Timer

MOV DX,0012h
MOV AX,3540h ; Bagi 123540H dengan frekwensi
MOV BX,Hz ; yang akan dihasilkan.
DIV BX ; < 123540:Hz > , hasil pada AX

OUT 42h,AL ; Masukkan byte rendah dahulu.
MOV AL,AH ; Port hanya dapat melalui AL/AX
OUT 42h,AL ; Masukkan byte tingginya.

IN AL,61h ; Ambil data port 61h
OR AL,03 ; Jadikan Bit ke 6 & 7 menjadi 1
OUT 61h,AL ; Bunyikan speaker
ENDM
;/=========================================================\;
; Program : NYAMUK.ASM ; ; Author : S’to ;
; Fungsi : membunyikan speaker dan mengatur ;
; frekwensinya melalui Timer. ;
; Frekwensi yang dihasilkan dapat ;
; digunakan untuk mengusir nyamuk ;
;\=========================================================/;
.MODEL SMALL
.CODE
ORG 100h
Proses :
PCsound 25000 ; Frekwensi untuk mengusir nyamuk.
MOV AH,00

INT 16h ;Readkey

NoPCsound ; Matikan suara.
INT 20h ; selesai
END Proses

Program Assembly ini akan menghasilkan suara dengan frekuensi 25000 hz. Suara dengan frekuensi sebesar itu sudah cukup membuat nyamuk merasa terganggu dan membuatnya pergi. Kalau Anda iseng, Anda juga bisa mengatur frekuensi suara sesuai kehendak Anda.
by Saripudin