freepascal.compiler/tests/test/tdes1.pp

{ %cpu=avr }
{ %norun }
uses
  intrinsics;
var
  data,key : array[0..7] of byte;
begin
  avr_des(data,key,true,1);
end.