/* loop_wd.s */
/* loop with regular calls to what is thought to be a
   watchdog service routine */

.text

.global _start
_start:
	stmdb	r13!, { r4-r6, r14 }
	mov	r4, #0
	mov	r5, #0x4000000
	mov	r6, #0x1000000
	sub	r6, r6, #1

loop_begin:
	tst	r4, r6
	bleq	watchdog_service
	add	r4, r4, #1
	cmp	r4, r5
	bcc	loop_begin

	ldmia	r13!, { r4-r6, r15 }

watchdog_service:
	ldr	r0, watchdog_service_addr
	mov	r15, r0

watchdog_service_addr:
.long	0xe108