Bits umtauschen (spiegeln)

[Axel R. (Gast)]

Es weihnachtet wieder einmal und ich habe mein 16x10 LED Display 
vorgekramt.
ATmega128
es werden 2x8Bit (PortA linke hälfte, PORTC rechte hälfte)) breit pro 
Zeile dargestellt und das alles 10x (PORTD mit 74HCT42 0-9 
decodiert)nach unten widerholt.(PORTD=10->alles aus)
Seinerzeit(tm) hatte ich das mit den Fastavr-"Compiler" (ähnlich BASCOM) 
zusammengebastelt und ging eigentlich auch ganz gut.
Durch eine damalige Unachtsamkeit beim Routing sind jedoch alle Portbits 
vom PORTA und PORTC vertauscht.
aus PA.0->PA.7 wurde PA.7->PA.0 usw. schnief

Ich habe das damals softwaremäßig so gelöst:

Function umkehr(n As Byte) As Byte
Local m As Byte
m = 0
If n.0 Then : Set m.7 : End If
If n.1 Then : Set m.6 : End If
If n.2 Then : Set m.5 : End If
If n.3 Then : Set m.4 : End If
If n.4 Then : Set m.3 : End If
If n.5 Then : Set m.2 : End If
If n.6 Then : Set m.1 : End If
If n.7 Then : Set m.0 : End If
Return m
End Function

Ich bin nun dabei ,das ganze nach C zu portieren, weil ich dieses 
FASTAVR nicht mehr finde hust, stehe aber vor dem gleichen 
Hardwareproblem, denn hier hat sich ja nichts geändert.

Geht das in C etwas eleganter zu lösen?

Danke
Axelr.

[Falk B. (falk)]

Beitrag "Bitreihenfolge ändern"

Beitrag "Wie drehe ich eine Bitreihenfolge um??"

http://gcc.gnu.org/onlinedocs/gcc-4.7.1/gcc/AVR-Built_002din-Functions.html

[Axel R. (Gast)]

Beitrag "Re: Bitreihenfolge ändern"

HAHA, kann mal sehn, wie lange ich hier schon dabei bin ;)

Danke Falk bis hierher :)

Gruß
Axelr.

[Axel R. (Gast)]

Danke soweit, kann jetzt weiter testen!
(ich hatte die Sufu verwendet, dachte ich - hmmm)

Aber: das die "__builtin_avr_insert_bits" die Reihenfolge tauscht: 
da´rauf muss man erstmal kommen...

um nur einige Möglichkeiten für alle aufzuzeigen
http://www.avrfreaks.net/forum/nibble-rotate-how
Gruß
Axel und vielen Dank

    result <<= 1;
    if (n & 1)
    result |= 1;

    result <<= 1;
    result |= n & 1;

b = __builtin_avr_insert_bits(0x01234567,a,0);

Dim Inbyte As Byte
Dim Outbyte As Byte

Dim I As Byte
Dim J As Byte

I = 0
J = 7

Do
   Outbyte.i = Inbyte.j
   Decr J
   Incr I
Loop Until J < 0