Übrigends wäre es wirklich gut, wenn man die deutschen Tutorials ins englische Übersetzen könnte.
So wie es aussieht, macht das gerade Jemand.
Eigentlich wollte ich auf Basis dieser Kompenenten schauen, ob mal nicht Module von der Arduino Software direkt dazu assemblieren oder linken kann.
Es gibt do so ein Tool, welches C++ in Pascal umwandelt, Vielleicht hilft dies.
Ich habe mit folgendem Code mal probiert, die Pins Arduino kompatibel zu machen.
Das Beispiel ist für einen ATTiny2313, bei dem eine LED blinkt
Code: Alles auswählen
program Project1;
{$H-}
{$O-}
type
TGPIOB = bitpacked record
p9, p10, p11, p12, p13, p14, p15, p16: boolean;
end;
TGPIOD = bitpacked record
p0, p1, p4, p5, p6, p7, p8, d0: boolean;
end;
var
GPIOB: bitpacked record
PIN, DDR, PORT: TGPIOB;
end
absolute PINB;
GPIOD: bitpacked record
PIN, DDR, PORT: TGPIOD;
end
absolute PIND;
procedure delay;
var
i: uint32;
begin
for i := 0 to 100000 do ;
end;
begin
// Setup
GPIOB.DDR.p16 := True;
GPIOB.PORT.p16 := False;
repeat
// Loop;
GPIOB.PORT.p16 := not GPIOB.PORT.p16;
delay;
until False;
end.