Membuat Speker Dua Nada Ibarat Pintu Rel Kereta Api Dengan Bahasa Assembly

pada rangkaian ini memakai ic keluaran atmel adalah AT89s51, kegiatan ini memakai interupt time1. speaker dipasang pada port 1.7.

Circuit diagram:

;---------------------------------------------------------------

;Program demo HB2000 untuk drive speker suara tone

;Pintu Rel Kereta Api dan lampu flip-loop, selang waktu

;pakai interupt Timer 1, sepeker di pasang pada P1.7

;Lampu flip-loop pada port 1.4 dan port 1.7

;file name HL14.H51           By. haline, des 1999 ver 0.0

;---------------------------------------------------------------

      Org  0h

      Ljmp Mulai

;

      Org  1Bh                ;alamat untuk interupt timer 1

      Ljmp timer_1

;

Delay :     Mov   79h,#0      ;sub routine delay

Delay1:     Nop

      Djnz  79h,Delay1        ;

      Ret

Ldelay:

      Mov   7Ah,#0

Ld1:       Acall Delay

      Acall Delay

      Djnz 7Ah,ld1

      ret

;------------------------------------

;sub routine interupt timer 1

;penghasil pulsa pada port 1 bit ke 0

;------------------------------------

Timer_1:

      clr TCON.6        ;stop timer 1

      Cjne R0,#0, Tone1

      Setb P1.0

      Mov R0,#1         ; +---

      Sjmp Tone2        ; ---+

Tone1:

      Clr P1.0          ;Buat P1.0 berlogika 0 --+

      Mov R0,#0

Tone2:

      Cjne R1,#0,Tone3

      Mov  TL1,#06Bh    ;Tone 500 hz = 1ms x 2

      Mov  TH1,#0FCh

      Sjmp Tone4

Tone3:

      Mov TL1,#0D7h     ;Tone 225 Hz= 1.8 ms x 2

      Mov TH1,#0F8h

Tone4:                        ; Perhitungan Frekuensi Tone

Setb TCON.6       ;Fosc = 11Mhz (Tergantung

;Crystalnya)

      Reti              ;F Timer = 11 Mhz/12=916 Khz

                        ;T Timer = 1/916=1.09 us

                        ;T Tone = (65535-THxTLx) * 1.09 us

                        ;THxTLx (500Hz)= 65535-(1 ,s/1.09us)

;=65535-916=64619dec

                              ;=FC6B Hex (THx=FC, TLx=6B)

;------------------

;Awal dari program

;------------------

Mulai:

      Clr   A           ;nolkan accumulator

      Mov   IE,A       ;dissable semua interrupt

      Setb IE.7        ;enable interupt

      Setb  Ie.3       ;enable interupt timer 1

      Mov   TCON,A      ;clear tcon A

      Mov   TMOD,#11h   ;mode timer 16 bit

      Setb TCON.6      ;start timer 1

Tunggu:

      Mov   R1,#0      ;Flag untuk tone 500Hz

      Setb P1.7

      Setb P1.6

      Clr   P1.5

      Clr   P1.4

      Lcall Delay

      Mov   R1,#1       ;Flag untuk tone 225 Hz

      Setb P1.4

      Setb P1.5

      Clr   P1.6

      Clr   P1.7

      Lcall Delay

      Sjmp Tunggu      ;ulangi terus menerus

;    

End

Tweet

Subscribe to receive free email updates: