mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 14:48:14 +02:00
21 lines
229 B
ObjectPascal
21 lines
229 B
ObjectPascal
{ %CPU=avr}
|
|
{ %norun }
|
|
|
|
program webtbs29758;
|
|
|
|
type
|
|
TDoubleByte = packed record
|
|
l, h: byte;
|
|
end;
|
|
|
|
var a: word;
|
|
|
|
procedure check2(aparam: word); assembler;
|
|
asm
|
|
mov r20, TDoubleByte(aparam).l
|
|
end;
|
|
|
|
begin
|
|
check2(a);
|
|
end.
|