RC5 Transmitter

[John7]

Hi all!

After trying to build RC5 InfraRed Transmitter for a week
i'm quite frustrated.
I'll be much obliged if anyone could help me with it.

[mister_e]

Better are your chance to have an answer if you provide all the details

code
pic used
schematic
some beer

[jrt4fun]

John,

Have a look here: http://www.picbasic.nl/indexes_uk.htm
It's the site from a guy who made some RC5 applications.
The programs are written with Proton Plus so the timing, which is quite important in RC5, might not be correct.
I tried some of the apps. with the PBP compiler and it didn't work.
However when I tried a test version of Proton it worked.

So remember timing issues are to be solved when using PBP.

Regards,

[Ingvar]

I ripped the interesting parts from a working program. It transmits RC5 codes via an IRLED, modulation is 38.5kHz. Not exactly 38kHz but close enough. There are loads of information on the net regarding addresses, commands and all the rest you need to know about RC5.

This link seems to cover just about all you need to know.
http://info.fuw.edu.pl/~pablo/s/opis...dge/ir/rc5.htm

Have fun.
/Ingvar

DEFINE OSC 4

SendIRword      VAR WORD
SendIRcommand   VAR BYTE
SendIRaddr      VAR BYTE
SendIRtoggle    VAR BIT
SendIRbit       VAR BIT
Counter         VAR BYTE

SendIRpin       VAR PortB.0 'connect IRLED via resistor to ground

LOW SendIRpin



Send_IR:
    SendIRword = %0000000000000110
    SendIRword = (SendIRword + SendIRtoggle) << 5
    SendIRword = (SendIRword + SendIRaddr) << 6
    SendIRword = (SendIRword + SendIRcommand)
    FOR bitcounter = 13 TO 0 STEP -1
        SendIRbit = ~(SendIRword.0(bitcounter))
        GOSUB ToggleSendPin
        SendIRbit = SendIRword.0(bitcounter)
        GOSUB ToggleSendPin
    NEXT
    SendIRpin = 0
    RETURN

ToggleSendPin:
    IF SendIRbit THEN
        FOR Counter = 1 TO 34
            SendIRpin = 1
            ASM
            nop
            nop
            nop 
            nop
            nop
            nop
            nop
            nop 
            ENDASM        
            SendIRpin = 0
            ASM
            nop
            nop
            nop 
            nop
            nop
            nop
            nop
            nop 
            ENDASM                
        NEXT
    ELSE
        PAUSEUS 875
    ENDIF        
    RETURN

[mister_e]

John,

I tried some of the apps. with the PBP compiler and it didn't work.
However when I tried a test version of Proton it worked.

So remember timing issues are to be solved when using PBP.

Regards,

TIP OF THE DAY: never trust anybody else than you

[paramotor]

assembly code for RC5 TX
RC5 TX

[aloncha]

Paramotor, could you send to me that RC5 TX code?
[email protected]
Thanks a lot!!!