paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ clear ram on startup

Browse Source 
+ default interrupt handlers

git-svn-id: trunk@12620 -
This commit is contained in:
florian 2009-01-27 18:12:01 +00:00
parent e6df6ce12e
commit 1e26e5dd3c
1 changed files with 36 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/embedded/arm/lpc21x4.pp
View File

@ -434,15 +434,16 @@ unit lpc21x4;
.align 16 .align 16
.globl _start .globl _start
b _start b _start
ldr pc, .LUndefined_Addr ldr pc, .L1
ldr pc, .LSWI_Addr ldr pc, .L2
ldr pc, .LPrefetch_Addr ldr pc, .L3
ldr pc, .LAbort_Addr ldr pc, .L4
// signature // signature
nop nop
ldr pc, [pc, #-0xFF0] // load irq vector from vic ldr pc, [pc, #-0xFF0] // load irq vector from vic
ldr pc, .LFIQ_Addr ldr pc, .L5
(*
.LUndefined_Addr: .LUndefined_Addr:
ldr r0,.L1 ldr r0,.L1
ldr pc,[r0] ldr pc,[r0]
@ -458,6 +459,7 @@ unit lpc21x4;
.LFIQ_Addr: .LFIQ_Addr:
ldr r0,.L5 ldr r0,.L5
ldr pc,[r0] ldr pc,[r0]
*)
.L1: .L1:
.long Undefined_Handler .long Undefined_Handler
.L2: .L2:
@ -505,10 +507,37 @@ unit lpc21x4;
mov sp, r1 // set fiq stack pointer mov sp, r1 // set fiq stack pointer
msr cpsr_c, #0x13 // supervisor mode F,I enabled msr cpsr_c, #0x13 // supervisor mode F,I enabled
ldr r1,.LDefaultHandlerAddr
ldr r0,.L1
str r1,[r0]
ldr r0,.L2
str r1,[r0]
ldr r0,.L3
str r1,[r0]
ldr r0,.L4
str r1,[r0]
ldr r0,.L5
str r1,[r0]
// clear onboard ram
mov r1,#0x1000
ldr r2,.LRAMStart
mov r0,#0
.Lzeroloop:
str r0,[r2]
subs r1,r1,#1
add r2,r2,#4
bne .Lzeroloop
bl PASCALMAIN bl PASCALMAIN
bl _FPC_haltproc bl _FPC_haltproc
.LVBPDIV: .LRAMStart:
.long 0xE01FC100 .long 0x40000000
.LDefaultHandlerAddr:
.long .LDefaultHandler
// default irq handler just returns
.LDefaultHandler:
mov pc,r14
.text .text
end; end;