Wie: Mehrere Bits in Register setzen

[Mitch64]

Hallo und kurze Frage.

Wie kann ich in einem Register mehrere Bits auf einmal setzen?
Irgendwo habe ich mal etwas gelesen, wie man das macht, aber ich kriegs nicht hin.

Der Syntax war etwa so:

Register=(2^Bitname)+(2^Bitname)+(2^Bitname)[+(2^Bitname) ...]

Aber mein Bascom 1.11.9.5 meckert beim Compilieren.

Hier ein Beispiel:

TCCR2A=(2^COM2B1) + (2^COM2A1)

gesetzt werden soll Bit 7 und Bit 5 im Register TCCR2A.

Die Version mit:
TCCR2A=&b10100000

möchte ich nach Möglichkeit vermeiden wegen der schlechten Lesbarkeit.

Kann mir jemand den genauen Syntax nennen, ohne daß der Compiler meckert? Ich finde leider die Seite im Netz nicht mehr.

Der Syntax ähnelt auch etwas an C.

Gruß Mitch.

[peterfido]

dim B as byte
b=0
set b.5
set b.7
tccr2a=b

Die Routine ist aber langsamer als b=&b10100000.

[Mitch64]

Diese Variante kenne ich auch. Es geht aber darum, die Bits auf einmal zu setzten und zwar mit den Bitnamen wie oben gezeigt.

[screwdriver]

Sieh dir mal die Befehle BITS und NBITS in der BASCOM-Hilfe an.

Für mega16 z.B.

Gicr = Gicr And Nbits(int1)  -> Löscht Bit7 im Register GICR

Bascom macht daraus:
IN      R16,0x3B         In from I/O location
PUSH    R16              Push register on stack
LDI     R24,0x7F         Load immediate
MOV     R20,R24          Copy register
POP     R16              Pop register from stack
AND     R16,R20          Logical AND
OUT     0x3B,R16         Out to I/O location

Gicr = Gicr Or Bits(int1) -> Setzt Bit7 in Register GICR

Bascom macht daraus:
IN      R16,0x3B         In from I/O location
PUSH    R16              Push register on stack
LDI     R24,0x80         Load immediate
MOV     R20,R24          Copy register
POP     R16              Pop register from stack
OR      R16,R20          Logical OR
OUT     0x3B,R16         Out to I/O location

Edit: Du kannst natürlich mehrere Bits auf einmal Setzen bzw. Löschen - sonst wärs ja witzlos. Also z.B.

GICR= GICR OR BITS(Int1, Int2, Int0)

[Mitch64]

ist eine interessante Alternative. Leider funktioniert das nur mit Bascom. Wenn ich aber Inline-Assembler nehmen möchte, kann ich das so nicht machen.

Besonders dann nicht, wenn man mal eine Lib draus machen will.

Es gibt aber einen Syntax, den der Compiler kapiert. Ich hatte es nämlich schon mal ausprobiert. Aber der Code war so logisch und simpel, dass ich mir keine Notitz gemacht habe.

Jetzt wollte ich das mal anwenden und merke, ich kriegs nicht mehr zusammen.

Es war irgendwie so:

TCCR2A=(2^COM2B1) + (2^COM2A1)

Das war mit beliebigen Register machbar. Auch um einen Timer zu setzen (Prescaler etc.)

Wenn ich das so schreibe:
TCCR2A=2^COM2B1

funktioniert es. aber mit einem weiteren Bit nicht. Irgendwie war da ein Trick mit den Klammern.

Mitch.

[Mitch64]

Hallo nochmal an alle,

ich hab die Lösung gefunden.

So muss es lauten:

   $regfile = "m168def.dat"

   $ASM

   !.def temp = r16

   ldi temp,2^COM2B1 + 2^COM2A1
   OUT TCCR2A , temp

   $END ASM

Das schluck der Compiler und setzt auch die richtigen bits.
Mein Fehler war, dass ich vergessen hatte, dass das nur mit reinem Assembler so funktioniert.

In Bascom ist die Variante Bits() und NBits() perfekt.

Den Link, wo das steht hab ich wieder gefunden:
http://www.rn-wissen.de/index.php/Bascom

Es steht dort fast ganz unten.

Trotzdem danke an alle, die geholfen haben.

Gruß Mitch.

[screwdriver]

In Bascom ist die Variante Bits() und NBits() perfekt.

Leider Nein!

Da ich die Bits- und Nbits-Befehle eher selten anwende, war ich selbst ein wenig über die Umständlichkeit des generierten Maschinencodes erstaunt. Also habe ich noch gestern abend die Codezeilen an den BASCOM-Support gemailt und bekam heute morgen Antwort:

hi

something is not right. while the code will work, it is not generated properly.
i will fix it for the 1.119.7 release.


Best regards,

Mark Alberts