mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 19:08:18 +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 -
25 lines
378 B
ObjectPascal
25 lines
378 B
ObjectPascal
{ %cpu=avr }
|
|
const
|
|
cFE = $FE;
|
|
c102 = $102;
|
|
c1000 = $1000;
|
|
c3070 = $3070;
|
|
|
|
procedure p;assembler;
|
|
var
|
|
var1: byte;
|
|
varabs: byte absolute $100;
|
|
|
|
asm
|
|
sts cFE, r22 //(1)
|
|
sts c102, r22 //(2)
|
|
sts c1000, r22 //(3)
|
|
sts c3070, r22 //(4)
|
|
sts var1, r22 //(5)
|
|
sts 0x1223, r22
|
|
sts varabs, r22
|
|
end;
|
|
|
|
begin
|
|
end.
|