mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-08 20:19:06 +02:00
55669f62b1
Made absolutevarsym use PUint instead of AWord for its offset to fix range errors. git-svn-id: trunk@31242 -
52 lines
1020 B
PHP
52 lines
1020 B
PHP
_start:
|
|
clr r1
|
|
|
|
// load stack pointer
|
|
ldi r30,lo8(_stack_top)
|
|
out 0x3d,r30
|
|
ldi r30,hi8(_stack_top)
|
|
out 0x3e,r30
|
|
|
|
// Initialize .data section
|
|
ldi XL,lo8(_data)
|
|
ldi XH,hi8(_data)
|
|
ldi YH,hi8(_edata)
|
|
ldi ZL,lo8(_etext)
|
|
ldi ZH,hi8(_etext)
|
|
|
|
rjmp .LCopyDataLoopEntry
|
|
.LCopyDataLoop:
|
|
lpm r0, Z+
|
|
st X+, r0
|
|
|
|
.LCopyDataLoopEntry:
|
|
cpi XL, lo8(_edata)
|
|
cpc XH, YH
|
|
brne .LCopyDataLoop
|
|
|
|
// Zero .bss section
|
|
ldi XL,lo8(_bss_start)
|
|
ldi XH,hi8(_bss_start)
|
|
ldi YH,hi8(_bss_end)
|
|
|
|
{$ifdef RELBRANCHES}
|
|
rjmp .LZeroBssLoopEntry
|
|
{$else RELBRANCHES}
|
|
jmp .LZeroBssLoopEntry
|
|
{$endif RELBRANCHES}
|
|
.LZeroBssLoop:
|
|
st X+, r1
|
|
|
|
.LZeroBssLoopEntry:
|
|
cpi XL, lo8(_bss_end)
|
|
cpc XH, YH
|
|
brne .LZeroBssLoop
|
|
|
|
{$ifdef RELBRANCHES}
|
|
rjmp PASCALMAIN
|
|
{$else RELBRANCHES}
|
|
jmp PASCALMAIN
|
|
{$endif RELBRANCHES}
|
|
.text
|
|
|