Const- rocord-Array in ASM zuweisen.

[Vam L. (vam_l)]

Moin @ll

für Zeitkritische Funktionen schreibe ich gewisse Parts in ASM.

uA bezieht es sich auf Befehle wie SBI, CBI.

im Normalfall schaut eine Zeile für einen ATMega328p-pu wie folgt aus.

SBI 8, LED_01

Da ich für ein Projekt allerdings 12 WS2812 - Lines verwende hab ich mit 
dem Gedanken gespielt mir ein Const nach folgendem Schema aufzubauen, 
womit ich in anderen Projekte sehr gute Erfahrung gesammelt habe.

const
  WS2812                     : record
    Line, Port, Pin          : array[0..11] of uint8;
    end                      = (Line: ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12);
                               {$if defined (ATMega328p)}
                                Port: ( 8, 8, 8, 8, 8, 8, 9, 9, 9,  9,  9,  9);
                               {$endif}
                                Pin:  ( 5, 4, 3, 2, 1, 0, 7, 6, 5,  4,  3,  2));

von meiner Logik her sollte ja die Befehlsänderung von *sbi 8, LED_01* 
in

  Port                       := WS2812.Port[Line];
  Pin                        := WS2812.Pin[Line];
  sbi Port, Pin

 den seben Effekt haben, jedoch zeigt mir Lazarus den Mittelfinger.

Kennt jemand einen sauberen Weg um dies zu bewerkstelligen, da ich 
ungern die Nominelle Funktion

procedure LineRgbShiftOut(Line: uint8);
var
  p                          : ^byte;
  byteCount                  : uint16;
  bitCount, RGBdata, Port,
  Pin                        : uint8;
label
  TH, TL, T0L, T1L, Loop;
begin
  p                          := @Rgb_Line[Line];
  asm CLI end;
  for byteCount := 0 to sizeof(Rgb_Line[Line]) - 1 do begin
    RGBdata                  := p^;
    inc(p[1]);
    for bitCount := 0 to 7 do
      if RGBdata and $80 > 0 then begin
        asm
        {$if defined (ATTiny25) or defined (ATTiny85)}
        SBI 24, 2                                                             // 24 = PORTB
        nop
        nop
        {$endif}
//        {$if defined (ATMega16)}SBI 21, LED                                     // 21 = PORTC
//        ldi r16, 13
//        {$endif}
        {$if defined (ATMega328p)}
        sbi 8, LED_01                                                           // 8 = PortC (ATMega328p)
        sbi 8, LED_02
//        sbi 8, LED_03
        {$endif}
        nop
        {$if defined (ATTiny25) or defined (ATTiny85)}
        CBI 24, LED
        {$endif}
        {$if defined (ATMega328p)}
        cbi 8, LED_01
        cbi 8, LED_02
//        cbi 8, LED_03
        {$endif}
//        {$if defined (ATMega16)}CBI 21, LED
//        ldi r16, 7
//        {$endif}
//        nop
        end;
      RGBdata              := RGBdata shl 1;
      end else begin
        asm
        {$if defined (ATTiny25) or defined (ATTiny85)}
        SBI 24, LED
        nop
        {$endif}
        {$if defined (ATMega328p)}
        sbi 8, LED_01
        sbi 8, LED_02
//        sbi 8, LED_03
        {$endif}
//        {$if defined (ATMega16)}SBI 21, LED
//        ldi r16, 7
//        TL:
//          dec r16
//          brne TL{$endif}
        {$if defined (ATTiny25) or defined (ATTiny85)}
        CBI 24, LED
        {$endif}
        {$if defined (ATMega328p)}
        cbi 8, LED_01
        cbi 8, LED_02
//        cbi 8, LED_03
        {$endif}
//        {$if defined (ATMega16)}CBI 21, LED
//        ldi r16, 13
//        T0L:
//          dec R16
//          brne T0L
//        {$endif}
        end;
        RGBdata              := RGBdata shl 1;
      end;
    end;
    asm SEI end;
  end;

 12 mal schreiben will...

Gruß und schönen Sonntag

Maik

[Mario M. (thelonging)]

Port und Pin werden bei SBI im Opcode gespeichert und können deswegen 
nicht aus Variablen kommen.

[Vam L. (vam_l)]

Mario M. schrieb:
> Port und Pin werden bei SBI im Opcode gespeichert und können deswegen
> nicht aus Variablen kommen.

Also bleibt nur die Option die selbe Funktion 12 mal zu schreiben...