freepascal.compiler/rtl/embedded/arm/lm3fury.pp

{
Register definitions and utility code for stellaris
Preliminary startup code 
Geoffrey Barton 2010 08 01  [email protected]
based on stm32f103 created by Jeppe Johansen 2009 - [email protected]
}
{$goto on}
unit lm3fury;

  interface

    type
      TBitvector32 = bitpacked array[0..31] of 0..1;

    {$PACKRECORDS 4}
    const
      PeripheralBase 	= $40000000;
      PPBbase			= $E0000fff;
      APBbase 		= PeripheralBase;
      AHBbase 		= PeripheralBase+$54000;
      portAoffset=APBbase+$4000;
      portBoffset=APBbase+$5000;
      portCoffset=APBbase+$6000;
      portDoffset=APBbase+$7000;
      portEoffset=APBbase+$24000;
      portFoffset=APBbase+$25000;
      portGoffset=APBbase+$26000;
      portHoffset=APBbase+$27000;
      portJoffset=APBbase+$3d000;
      sysconoffset=APBbase+$fe000;


    type
      TgpioPort=record
        data:array[0..255] of dword;dir,_is,ibe,iev,im,ris,mis,icr,
        afsel:dword;dummy1:array[0..54] of dword;dr2r,dr4r,dr8r,odr,pur,pdr,slr,den,lock,cr,amsel,pctl:dword;
      end;

      Tsyscon=record
        did0,did1,dc0,res0c,dc1,dc2,dc3,dc4,dc5,dc6,dc7,dc8,borc,res34,res38,res3c,
        src0,src1,src2,res4c,ris,imc,misc,resc,rcc,pllcfg,res68,gpiohbctl,rcc2,res74,res78,moscctl:dword;res80:array[0..31] of dword;
        rcgc0,rcgc1,rcgc2,res10,scgc0,scgc1,scgc2,
        res11,dcgc0,dcgc1,dcgc2,res12c,res130,res134,res138,res13c,res140,dsplpclk,res13,res14,res15,piosccal,
        i2smclk,res174,res178,res17c,res180,res184,res188,res18c,dc9,res194,res198,res19c,nvmstat:dword;
      end;

    {$ALIGN 4}
    var
      PortA			:Tgpioport 	absolute portAoffset;
      PortB			:Tgpioport	absolute portBoffset;
      PortC			:Tgpioport 	absolute portCoffset;
      PortD			:Tgpioport	absolute portDoffset;
      PortE			:Tgpioport 	absolute portEoffset;
      PortF			:Tgpioport	absolute portFoffset;
      PortG			:Tgpioport 	absolute portGoffset;
      PortH			:Tgpioport	absolute portHoffset;
      PortJ			:Tgpioport	absolute portJoffset;

      syscon		:Tsyscon	absolute sysconoffset;
      rcgc0			:dword absolute (sysconoffset+$100);
      rcgc1			:dword absolute (sysconoffset+$104);
      rcgc2			:dword absolute (sysconoffset+$108);


    var
      NMI_Handler,
      HardFault_Handler,
      MemManage_Handler,
      BusFault_Handler,
      UsageFault_Handler,
      SWI_Handler,
      DebugMonitor_Handler,
      PendingSV_Handler,
      Systick_Handler,UART0intvector: pointer;
	
  implementation

    var
      _data: record end; external name '_data';
      _edata: record end; external name '_edata';
      _etext: record end; external name '_etext';
      _bss_start: record end; external name '_bss_start';
      _bss_end: record end; external name '_bss_end';
      _stack_top: record end; external name '_stack_top';

    procedure PASCALMAIN; external name 'PASCALMAIN';

    procedure _FPC_haltproc; assembler; nostackframe; public name '_haltproc';
      asm
        .Lhalt:
	  b .Lhalt
      end;


    procedure _FPC_start; assembler; nostackframe;
      label
        _start;
      asm
	.init
	.align 16
	
	.long _stack_top	 			// First entry in NVIC table is the new stack pointer
	.long _start+1         //gjb changed from stm32f version to avoid invstate error when interrupt fires
	//b   _start					// Reset
	.long _start+1
	//b	 .LNMI_Addr				// Non maskable interrupt. The RCC Clock Security System (CSS) is linked to the NMI vector.
	.long _start+1
	//b	 .LHardFault_Addr		// All class of fault
	.long _start+1
	//b	 .LMemManage_Addr		// Memory management
	.long _start+1
	//b	 .LBusFault_Addr		// Pre-fetch fault, memory access fault
	.long _start+1
	//b	 .LUsageFault_Addr	// Undefined instruction or illegal state
	.long _start+1
	//nop							// Reserved
	.long _start+1
	//nop							// Reserved
	.long _start+1
	//nop							// Reserved
	.long _start+1
	//nop							// Reserved
	.long _start+1
	//b	 .LSWI_Addr				// Software Interrupt vector now SVC
	.long _start+1
	//b	 .LDebugMonitor_Addr	// Debug Monitor
	.long _start+1
	//nop							// Reserved
	.long _start+1
	//b	 .LPendingSV_Addr		//	Pendable request for system service
	.long _start+1
	//b	 .LSystick_Addr		// System tick timer
	//16
	.long .LDefaultHandler+1     //GPIOA  #0
	.long .LDefaultHandler+1     //GPIOB
	.long .LDefaultHandler+1     //GPIOC
	.long .LDefaultHandler+1     //GPIOD
	.long .LDefaultHandler+1     //GPIOE
	.long .LUART0handler+1       //.LDefaultHandler+1     //UART0
	.long .LDefaultHandler+1     //UART1
	.long .LDefaultHandler+1     //SSI0
	//24
	.long .LDefaultHandler+1     //I2C0   #8
	.long .LDefaultHandler+1     //PWMF
	.long .LDefaultHandler+1     //PWMG0
	.long .LDefaultHandler+1     //PWMG1
	.long .LDefaultHandler+1     //PWMG2
	.long .LDefaultHandler+1     //QEI0
	.long .LDefaultHandler+1     //ADC0S0
	.long .LDefaultHandler+1     //ADC0S1
	//32
	.long .LDefaultHandler+1     //ADC0S2 #16
	.long .LDefaultHandler+1     //ADC0S3
	.long .LDefaultHandler+1     //WDGTimer01
	.long .LDefaultHandler+1     //T0A
	.long .LDefaultHandler+1     //T0B
	.long .LDefaultHandler+1     //T1A
	.long .LDefaultHandler+1     //T1B
	.long .LDefaultHandler+1     //T2A
	//40
	.long .LDefaultHandler+1     //T2B    #24
	.long .LDefaultHandler+1     //COMP0
	.long .LDefaultHandler+1     //COMP1
	.long .LDefaultHandler+1     //COMP2
	.long .LDefaultHandler+1     //SYSCON
	.long .LDefaultHandler+1     //FLASH
	.long .LDefaultHandler+1     //GPIOF
	.long .LDefaultHandler+1     //GPIOG
	//48
	.long .LDefaultHandler+1     //GPIOH  #32
	.long .LDefaultHandler+1     //UART2
	.long .LDefaultHandler+1     //SSI1
	.long .LDefaultHandler+1     //T3A
	.long .LDefaultHandler+1     //T3B
	.long .LDefaultHandler+1     //I2C1
	.long .LDefaultHandler+1     //QEI1
	.long .LDefaultHandler+1     //CAN0
	//56
	.long .LDefaultHandler+1     //CAN1   #40
	.long .LDefaultHandler+1     //res
	.long .LDefaultHandler+1     //ETH
	.long .LDefaultHandler+1     //res
	.long .LDefaultHandler+1     //USB
	.long .LDefaultHandler+1     //PWMG3
	.long .LDefaultHandler+1     //UDMAS
	.long .LDefaultHandler+1     //UDMAE
	//64
	.long .LDefaultHandler+1     //ADC1S0 #48
	.long .LDefaultHandler+1     //ADC1S1
	.long .LDefaultHandler+1     //ADC1S2
	.long .LDefaultHandler+1     //ADC1S3
	.long .LDefaultHandler+1     //I2S0
	.long .LDefaultHandler+1     //EPI
	.long .LDefaultHandler+1     //GPIOJ
	.long .LDefaultHandler+1     //res    #55

.LNMI_Addr:
	ldr r0,.L1
	ldr pc,[r0]
.LHardFault_Addr:
	ldr r0,.L2
	ldr pc,[r0]
.LMemManage_Addr:
	ldr r0,.L3
	ldr pc,[r0]
.LBusFault_Addr:
	ldr r0,.L4
	ldr pc,[r0]
.LUsageFault_Addr:
	ldr r0,.L5
	ldr pc,[r0]
.LSWI_Addr:
	ldr r0,.L6
	ldr pc,[r0]
.LDebugMonitor_Addr:
	ldr r0,.L7
	ldr pc,[r0]
.LPendingSV_Addr:
	ldr r0,.L8
	ldr pc,[r0]
.LSystick_Addr:
	ldr r0,.L9
	ldr pc,[r0]
.LUART0handler:
  ldr r0,.L10
  ldr pc,[r0]
.L1:
	.long NMI_Handler
.L2:
	.long HardFault_Handler
.L3:
	.long MemManage_Handler
.L4:
	.long BusFault_Handler
.L5:
	.long UsageFault_Handler
.L6:
	.long SWI_Handler
.L7:
	.long DebugMonitor_Handler
.L8:
	.long PendingSV_Handler
.L9:
	.long Systick_Handler   
.L10:
  .long UART0IntVector
  
	.globl _start
	.text
_start:
	
	// Copy initialized data to ram
	ldr r1,.L_etext
	ldr r2,.L_data
	ldr r3,.L_edata
.Lcopyloop:
	cmp r2,r3
	ittt ls
	ldrls r0,[r1],#4
	strls r0,[r2],#4
	bls .Lcopyloop

	// clear onboard ram
	ldr r1,.L_bss_start
	ldr r2,.L_bss_end
	mov r0,#0
.Lzeroloop:
	cmp r1,r2
	itt ls
	strls r0,[r1],#4
	bls .Lzeroloop

	b PASCALMAIN
	b _FPC_haltproc

.L_bss_start:
	.long _bss_start
.L_bss_end:
	.long _bss_end
.L_etext:
	.long _etext
.L_data:
	.long _data
.L_edata:
	.long _edata
.LDefaultHandlerAddr:
	.long .LDefaultHandler
	// default irq handler just returns
.LDefaultHandler:
	mov pc,r14
    end;

end.