mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
18 lines
244 B
ObjectPascal
18 lines
244 B
ObjectPascal
{ %CPU=avr }
|
|
{$mode objfpc}
|
|
program intmathtest;
|
|
|
|
// Pointer to caller supplied variable in R24:R25
|
|
procedure test(out x: byte); assembler; nostackframe;
|
|
asm
|
|
movw R30, R24
|
|
st Z, R1
|
|
ldd r22, z+3
|
|
end;
|
|
|
|
var a8: byte;
|
|
|
|
begin
|
|
test(a8);
|
|
end.
|