#        AREA LDRlabel, CODE,READONLY
#        ENTRY                           ; Mark first instruction
.text

start:
        BL      func1                   /*  Branch to first subroutine 		*/
        BL      func2                   /*  Branch to second subroutine 	*/

stop:
        MOV     r0, #0x18               /*  angel_SWIreason_ReportException	*/
        LDR     r1, =0x20026    		/*  ADP_Stopped_ApplicationExit 	*/
        SWI     0x123456                /*  Angel semihosting ARM SWI 		*/


func1:
        LDR     r0, =start				/*  => LDR R0,[PC, #offset to 
                                                                Litpool 1] 	*/
        LDR     r1, =Darea +12 			/*  => LDR R1,[PC, #offset to
                                                                Litpool 1] 	*/
        LDR     r2, =Darea + 6000       /*  => LDR R2, [PC, #offset to 
                                                                Litpool 1] 	*/
        MOV     pc,lr                   /*  Return 							*/

#        LTORG							/*  Literal Pool 1 					*/
.ltorg
#.long 0x20026

func2:
        LDR     r3, =Darea +6000  		/*  => LDR r3, [PC, #offset to 		*/
                                        /*                        Litpool 1]*/
                                        /*  (sharing with previous literal) */
        /*  LDR   r4, =Darea +6004      /*  If uncommented will produce an 	*/
                                        /*  error as Litpool 2 is out of range */
        MOV     pc, lr          		/*  Return 							*/
.ltorg

Darea:
	.fill	8000         	 			/*  Clears a 8000 byte area of memory, 
                                          starting at the current location,
                                          to zero. 							*/

.end
#      END           					/*  Literal Pool 2 is out of
                                          range of the LDR instructions
                                          above 							*/