RC5 Code senden mit AVR und Bascom AVR [Archiv] - ProgForum.com

Import-Script

15.06.2002, 17:27

teils von der Homepage von Bascom und teils von mir ... IR Diode von Pind.5 mit einem Wid zu +5V wenn das nicht geht gibt's die *.bas file unter <A HREF="mailto:spatz222@altavista.de">spatz222@altavista.de</A> $regfile = "8515def.dat" $crystal = 8000000 Dim Rc5_address As Byte Dim Rc5_command As Byte Dim Rc5_bit_nr As Byte Dim Toggle_bit As Boolean Dim Count As Byte ' 36kHz carrier reload value 'Const T_oc1 = 55 'value for 4MHz crystal Const T_oc1 = 110 'value for 8MHz crystal 'Const T_oc1 = 138 'value for 10MHz crystal Const Ton = 64 'IR 36kHz carrier on Const Toff = 192 'IR 36kHz carrier off Config Timer1 = Timer , Prescale = 1 , Compare A = Toggle , Clear Timer = 1 Timer1 = 0 Compare1a = T_oc1 OC1 = IR carrier output 36 kHz Declare Sub Logic_0 Declare Sub Logic_1 Tccr1a = Toff '---[ set RC-5 System Address ]------------------------------------------------- Rc5_address = 0 Rc5_command = 4 Toggle_bit = 0 '---[ main program loop ]------------------------------------------------------- Do Ddrd.5 = 0 wait 2 '---[ transmit Address and Command as 14 bit RC-5 code ]------------------------ Ddrd.5 = 1 '**** 2 Startbit's **** Logic_1 Logic_1 '**** Togglebit **** If Toggle_bit = 0 Then Logic_0 Else Logic_1 '**** RC5 Adresse **** For Rc5_bit_nr = 4 To 0 Step -1 If Rc5_address.rc5_bit_nr = 0 Then Logic_0 Else Logic_1 Next '**** RC5 Code **** For Rc5_bit_nr = 5 To 0 Step -1 If Rc5_command.rc5_bit_nr = 0 Then Logic_0 Else Logic_1 Next Tccr1a = Toff Loop End '------------------------------------------------------------------------------- Sub Logic_0 Tccr1a = Ton Waitus 883 Tccr1a = Toff Waitus 884 End Sub Sub Logic_1 Tccr1a = Toff Waitus 883 Tccr1a = Ton Waitus 884 End Sub

Import-Script

16.06.2002, 20:15

Die RC5-Beschreibung auf der Seite von Sprut läßt nichts zu wünschen übrig. Damit läßt sich sehr einfach die 8051 Software implementieren. Den PIC-Kode habe ich mir noch nicht angesehen. Die Zeitbedingungen lassen sich bequem ermitteln: Der Grundtakt beträgt T = 1 / 144kHz. Ein Puls hat ein Tastverhältnis von 25% (1T: LED ein + 3T: LED aus). Daraus wird dann ein Pulspaket von 32 Pulsen = 128T gebaut. Ein 1-Bit wird gesendet, indem erst ein Pulspaket und dann eine gleichlange Pause von 128T folgt. Beim 0-Bit ists genau umgekehrt. Im Kode habe ich das so realisiert, indem vor und nach der Pulssenderoutine eine Warteschleife steht und je nach Wert des Bits wird die vordere oder die hintere übersprungen (mit JNB bzw. JB). Bei meinem Beispiel wird ein kompletter 14-Bit Kode in 2 Registern übergeben und die Bits einzeln gesendet. Es wird immer Bit14 gesendet und danach der Wert nach links geschoben. Das Ganze 14 mal und fertig. Ich denke mal, daß der 8051 auch hier wieder Weltmeister im Speicherverbrauch ist. D.h. er braucht nur 50 Byte Kode, was weder der AVR noch der PIC toppen kann. Man kann noch mindestens 8 Byte sparen, aber der besseren Lesbarkeit wegen hab ichs so gelassen. Ich verwende den üblichen Standard-Quarz (11.0592MHz), d.h. zu langsam ist der 8051 also auch nicht dafür. Am Anfang steht ein universelles Macro, um die benötigten Wartezeiten zu generieren. Ich weiß nicht, ob der Batronix dieses Macro unterstützt, aber mit dem Keil oder dem bekannten (und kostenlosen) Metalink gehts auf alle Fälle. Peter ; RC5 Transmitter ; use Metalink or Keil to assemble $mod51 mdelay macro cycle ;0 ... 65535 if( cycle 3 ) nop endif if( cycle > 2 ) nop endif if( cycle > 1 ) nop endif if( cycle > 0 ) nop endif elseif( cycle < 515 ) mov r7, #low((cycle-1)/2) djnz r7, $ if((cycle and 1) = 0) nop endif else mov r7, #high(cycle/2+253) mov r6, #low(cycle/2-2) djnz r6, $ djnz r7, $ - 2 if(cycle and 1) nop endif endif endm XTAL equ 11059 ;kHz RC5CLOCK equ 144 ;kHz RC5_T1 equ ((XTAL + RC5CLOCK / 2) / RC5CLOCK + 6) / 12 RC5_T3 equ ((XTAL + RC5CLOCK / 2) / RC5CLOCK * 3 + 6) / 12 RC5_T128 equ ((XTAL + RC5CLOCK / 2) / RC5CLOCK * 128 + 6) / 12 xRC5LED equ P1.0 ;low active TUNER equ 17 * 64 VOLUME_PLUS equ 16 STARTBITS equ 11000000000000b main: mov a, #low( STARTBITS + TUNER + VOLUME_PLUS ) mov b, #high( STARTBITS + TUNER + VOLUME_PLUS ) call rc5send ;send code mov r3, #128 ;wait 114æs wait: mdelay RC5_T128 djnz r3, wait jmp main ;input: B, A = RC5 code (14 bit) rc5send: mov r3, #14 _rc5s1: jb b.5, _rc5s2 ;bit 14 mdelay RC5_T128 - 11 ;pause before pulse if bit = 0 _rc5s2: mov r4, #32 ;pulse 32 times _rc5s3: clr xRC5LED ;LED on mdelay RC5_T1 - 1 setb xRC5LED ;LED off mdelay RC5_T3 - 3 djnz r4, _rc5s3 ;next pulse jnb b.5, _rc5s4 mdelay RC5_T128 - 11 ;pause after pulse if bit = 1 _rc5s4: rlc a ;shift low byte xch a, b rlc a ;shift high byte xch a, b djnz r3, _rc5s1 ;next bit ret end

Import-Script

18.06.2002, 08:37

Eine kleine Korrektur: Die Sprut-Beschreibung ist falsch, das 0-Bit und das 1-Bit sind genau andersrum definiert. D.h. in meinem Kode muß JNB durch JB ersetzt werden und umgekehrt. Das Delay-Makro ist leider völlig verstümmelt worden, da das Forum allergisch ist gegen "größer" und "kleiner" Zeichen. Daher werde ich alles nochmal auf meine Webseite stellen. Dazu noch die passende Empfangsroutine. Peter