mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 22:08:11 +02:00
4cf2a2672a
* changed most of the variables in the assembler readers used to store constants from aint to tcgint as aint has only the size of the accumular while some CPUs (AVR) allow larger constants in instructions + allow access to absolute symbols with address type in inline assembler * allow absolute addresses in avr inline assembler + tests git-svn-id: trunk@37411 -
22 lines
265 B
ObjectPascal
22 lines
265 B
ObjectPascal
{ %cpu=avr }
|
|
{ %fail }
|
|
const
|
|
cFE = $FE;
|
|
c102 = $102;
|
|
c1000 = $1000;
|
|
c3070 = $3070;
|
|
|
|
procedure p;assembler;
|
|
var
|
|
var1: byte;
|
|
varabs: byte absolute $100;
|
|
|
|
asm
|
|
adiw 0x1225 //(7)
|
|
sts varabs, r22
|
|
sts 0x1223, r22
|
|
end;
|
|
|
|
begin
|
|
end.
|