Sony IR Remote

[fratello]

" I have not failed. I've just found 10,000 ways that won't work". T.A.Edison
Code :

'
'           PIC12F675:                    +--U--+                                         
'                                    +5V  [     ]  GND                                    
'                         key 5 |---/--- >[     ]< ---/---| key 1     
'                         key 4 |---/--- >[     ]< ---/---| key 2                   
'       pull-up!          key 3 |---/--- >[     ]>--[4K7]-- NPN Transistor, IR LED  

@ DEVICE PIC12F675, intrc_osc, wdt_off, pwrt_on, mclr_off, bod_off
INCLUDE "MODEDEFS.BAS" 
DEFINE OSC  4

CMCON=7
OPTION_REG.7=0
GPIO = %00000000        ' All outputs = 0 on boot
TRISIO  = %00111011
WPU=%00111011
IOCB=%00111011
ANSEL=0


@ #DEFINE IRTX GPIO  ; Define port to use for IR LED drive
@ #DEFINE PIN 2      ; Define port pin to use for IR LED




but1 var gpio.0
but2 var gpio.1
but5 var gpio.5

vplus   	CON  106      '// = ( 106 * 25uS) = 2650 uS burst
vminus     	CON  130      '// = ( 130 * 25us) = 3250 uS burst
vmute      	CON  202      '// = ( 202 * 25uS) = 5050 uS burst
vpuls       CON   27      '// = (  27 * 25uS) =  675 uS burst

delay		var word
cycles	var byte
acycles     var byte
timeX       var byte

GIE  var intcon.7 ' global interrupt enable 1=on ; 0=off
gpie var intcon.3 ' port change interrupt enable 1=0n ; 0=off
gpif var intcon.0 ' port change interrupt flag bit


GIE=0
GPIE=1

'=========================================

main:

 @ sleep
 pause 100

IF but1=0 then 			; VOLUME UP
acycles = vplus   		
      delay = 2580
while but1=0
    	GOSUB IR_REMOTE
wend
ENDIF 

IF but2=0 then 			; VOLUME DOWN
acycles = vminus 
	delay = 3200 
while but2=0
    	GOSUB IR_REMOTE
wend
ENDIF 


IF but5=0 then 			; MUTE
acycles = vmute
      delay = 5000  
while but5=0
    	GOSUB IR_REMOTE
wend
ENDIF 

GPIF=0  'Clear port change interrupt flag
PAUSE 50

Goto Main

'=========================================
ir_REMOTE:
cycles=acycles
call Pulse

pauseus  delay          

cycles=vpuls     			' ~ 670 uS   
call Pulse


PAUSE 500
return

'=========================================
Pulse:                '// Emits # of 39kHz bursts held in variable Cycles
ASM
   bsf IRTX,PIN     ; 1uS, LED=on
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   goto $+1         ; + 2uS = 11uS 
   goto $+1         ; + 2uS = 13uS 
   bcf IRTX,PIN     ; 1uS, LED=off
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   decfsz _Cycles,f ; + 1uS = 10S    
   goto _Pulse      ; + 2uS = 12uS 
ENDASM
 
RETURN                '// Return to Main

'=====================================================
Debounce :
For timeX= 1 to 50
Pause 5
next timeX
Return
'========================================
END

Of course, zero result ! Even ISIS say it's ok, my RC Blaupuntk don't react ! I have one original RC 10 remote (and receiver, of course) from one friend; works fine. But, if I try to transmit something with my schematic...zero result ! Any advice, please ?!?

[ardhuru]

At this point, it might be a good idea to actually, visually compare the original signal with the one generated by your design. Capture the signals on your PC using the sound card, and open the captured file(s) with Goldwave / Audacity.

You'd immediately see whether the problem is to do with timing / protocol / logic or amplitude.

Regards,

Anand

[Ioannis]

Even better if you can afford the Logic from www.saleae.com to analyse digital signals. It saved me many times when trying to copy signals from similar cases.

Ioannis

[fratello]

I spend time with this "killer" code. Now I discover another strange phenomenon : anything I do, can't generate "train" of pulse.
Instead generating for 4 times this sequence : high 2650 ,pause 2500, high 660, pause 100
I have just ONE sequence for about 42.25 mS !!!
WHY ?!?

main:

zecime  CON 106    '// = ( 106 * 25uS) = 2650 uS burst
unu       CON 24     '// = (24 * 25uS) = 0.60 mS burst
delay     CON 104


i 		var byte
cycles	var byte
acycles      var byte

;============================
Main:
IF but1=0 then 			; VOLUME UP
    goto ir_send
endif

Goto Main

'=========================================
ir_send:
     	cycles=zecime
        acycles=unu
 for i=1 to 4        
        call Pulse
        pauseus  delay        
        call Pulser
 next i     
Pauseus 100   
Goto main        ' or Return, have no result !

Pulse:              ' Generate "Cycles" number of 40kHz pulses
ASM
   bsf gpio, 2     ; 1uS, LED=on
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   goto $+1         ; + 2uS = 11uS
   goto $+1         ; + 2uS = 13uS   
   bcf gpio, 2     ; 1uS, LED=off
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   decfsz _Cycles,f ; + 1uS = 10S    
   goto _Pulse      ; + 2uS = 12uS
   return           ; Add 2uS for return to caller    
ENDASM


Pulser:              ' Generate "Cycles" number of 40kHz pulses
ASM
   bsf gpio, 2     ; 1uS, LED=on
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   goto $+1         ; + 2uS = 11uS
   goto $+1         ; + 2uS = 13uS   
   bcf gpio, 2     ; 1uS, LED=off
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   decfsz _Acycles,f ; + 1uS = 10S    
   goto _Pulser      ; + 2uS = 12uS
   return           ; Add 2uS for return to caller    
ENDASM

Thanks again for attention !

[fratello]

On first row: original Blaupunkt remote, volume up command.
On second row : my remote, volume up command.
Using same sensor (original Blaupunkt).
Original-work; my-NO !!! I'm stuck, dissapointed, sad...

[ardhuru]

Could you attach the 2 wav/mp3 files? I'll open them in a sound editor at my end; couldnt quite see the whole pulse train.

If this forum doesnt permit audio attachments, you could mail them to me at ardhuru_at_gmail.com.

Also, some remotes send the same frame twice; does your Blaupunkt need that?

Regards,

Anand.

[fratello]

I try different variant of PBP code; no result.
I find the example of Mr.Bruce :

  ' IR carrier generator routines. Freq.inc.

  Cycles VAR BYTE    ' Number of carrier cycles
  
  GOTO OverFreq  ' jump over pulse routines
  
' Generate "Cycles" number of 40kHz pulses
ASM
_Pulse40
   bcf IRTX,PIN     ; 1uS, LED=on
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   goto $+1         ; + 2uS = 11uS
   goto $+1         ; + 2uS = 13uS   
   bsf IRTX,PIN     ; 1uS, LED=on
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   decfsz _Cycles,f ; + 1uS = 10S    
   goto _Pulse40    ; + 2uS = 12uS
   return           ; Return to caller    
ENDASM

' Generate "Cycles" number of ~38.4kHz pulses
ASM
_Pulse38
   bcf IRTX,PIN     ; 1uS, LED=on
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   goto $+1         ; + 2uS = 11uS
   goto $+1         ; + 2uS = 13uS   
   bsf IRTX,PIN     ; 1uS, LED=on
   goto $+1         ; + 2uS = 3uS
   goto $+1         ; + 2uS = 5uS
   goto $+1         ; + 2uS = 7uS
   goto $+1         ; + 2uS = 9uS
   nop              ; + 1uS = 10uS
   decfsz _Cycles,f ; + 1uS = 11S    
   goto _Pulse38    ; + 2uS = 13uS
   return           ; Return to caller    
ENDASM

OverFreq:

so I write my program, for the hardware like in schematic ( for now I test just Volume Up) :

@ DEVICE PIC12F675, intrc_osc, wdt_off, pwrt_off, mclr_off, bod_off

DEFINE OSC  4
DEFINE OSCCAL_1K 1          ' Set OSCCAL for 1k -HELPS tuning the crystal for more accurate timing

@ #define IRTX GPIO  ; Define port to use for IR out
@ #define PIN 1      ; Define port pin to use for IR out

INCLUDE "Freq.inc" ' 
but  var gpio.5

GPIO.5=1
TRISIO.5=1
GPIO.1 = 1       ' IR LED off   -----|<|----/\/\/\----+5
TRISIO.1 = 0     ' Output for IR signal
WPU     = %00111101
  CMCON = 7        ' Comparators disabled
  ANSEL = 0        ' A/D disabled


Loops VAR BYTE

       
Main:

if but=0 then
        
        FOR Loops = 1 TO 10 
          Cycles = 102      ' 102 * 26 = 2652 uS
          CALL Pulse38
          
          Pauseus 2580      ' accurate pause of 2580 uS ?!?
          
          Cycles = 25       ' 25 * 26 = 650 uS ; maybe must EXACTLY 660 uS - how ?!?
          CALL Pulse38

          pauseus 50000
          pauseus 50000
         Next loops
endif          
GOTO Main
  
  END

but, OF COURSE ?!?, no results. Somebody, just one little help ? Please...