tests/webtbs/tw32150.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %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.