IAR EWARM __iar_program_start, __iar_data_init3, __iar_copy_init3, __iar_zero_init3

#include <stdint.h>

// The type of a pointer into the init table.
typedef void const * table_ptr_t;

// The type of an initialization routine. It takes a pointer to the start of
// its entry (after the function pointer) in the init table and returns a
// pointer to after its entry.
typedef table_ptr_t init_fun_t( table_ptr_t );

typedef struct
{
  int32_t mOff;
} FAddr;

__no_init uint32_t __iar_SB @ r9;

uint32_t const * __iar_zero_init3( uint32_t const * p )
{
  uint32_t size;
  while ( ( size = *p++ ) != 0 )
  {
    uint32_t d = *p++;
    uint32_t * dest;

    if ( d & 1 )
    {
      d -= 1;
      d += __iar_SB;
    }

    dest = (uint32_t*) d;

    do
    {
      *dest++ = 0;
      size -= 4;
    }while ( size != 0 );
  }
  return p;
}

uint32_t const * __iar_copy_init3( uint32_t const * p )
{
  uint32_t size;
  while ( ( size = *p++ ) != 0 )
  {
    uint32_t const * src;
    uint32_t d;
    uint32_t * dest;

    src = (uint32_t *) ( (char const *) p + *(int32_t *) p );
    p++;

    d = *p++;

    if ( d & 1 )
    {
      d -= 1;
      d += __iar_SB;
    }

    dest = (uint32_t *) d;

    do
    {
      *dest++ = *src++;
      size -= 4;
    }while ( size != 0 );
  }
  return p;
}

#pragma section = "Region$$Table"
void __iar_data_init3( void )
{
  FAddr const * pi = __section_begin("Region$$Table");
  table_ptr_t pe = __section_end ("Region$$Table");
  while ( pi != pe )
  {
    init_fun_t * fun = (init_fun_t *) ( (uint32_t) pi + pi->mOff );
    ++pi;
    pi = fun( pi );
  }
}

Mode_USR  EQU     0x10
Mode_FIQ  EQU     0x11
Mode_IRQ  EQU     0x12
Mode_SVC  EQU     0x13
Mode_ABT  EQU     0x17
Mode_UND  EQU     0x1B
Mode_SYS  EQU     0x1F ; available on ARM Arch 4 and later

I_Bit     EQU     0x80 ; when I bit is set, IRQ is disabled
F_Bit     EQU     0x40 ; when F bit is set, FIQ is disabled

__iar_program_start
          MSR     CPSR_c, #Mode_SYS|F_Bit|I_Bit
          ldr     sp,=SFE(CSTACK)     ; End of CSTACK(user)
          BL      __iar_data_init3
          BL      main
          B       .