DTMF DECODER

[gazili38]

Merhaba arkadaşlar ben 8880 ile telefon numarası arattırmak istiyorum,forum'uinceledim ve arkadaşların çoğu 8880 i tavsiye ediyor,bunun deneme için bende şöyle bişi yazdım ama.yardım ederseniz sevinirim teşekkür ederim

;********* 16f877***************

RS_p var PORTD.4
 RW_p var PORTD.5
 CS_p var PORTD.6 
role var PORTC.1


digit VAR BYTE
 TRISC=%11111101
 PORTC=0
bas: 
 PORTD=255
 TRISD=0
ana:
  if portC.0=0 then ara
       pause 50
      goto ana
ara:
   
 PORTD=%00011011
   pause 100
 
    high CS_p     
   pause 10
    PORTD =%00010000 
 pause 10 
    high CS_p
  role =1          ;8880 çıkışını hatta bağlayan role
 PAUSE 1000
 for digit = 0 to 10
      
    lookup digit,[10,5,4,2,7,4,4,2,4,9,9],PORTD ;Bu numarayı ara
     pause 250 
    high CS_p 
     pause 250
    next digit
    PAUSE 200
    role =0
     goto bas
end