.asciz	"PRG"
	stmfd	sp!,{r0-r12,lr}
	
	mov	r0,#0xc0000018
	ldr	r1,[r0]
	eor	r1,#0b0110
	str	r1,[r0]
	
	adr         r1,Image
	ldr         r12,[r0,#-8]
	str         r1,[r0,#-8]

	mov         r10,#0x90000000
            add         r10,#0xe0000
            add         r10,#0x10
wk_lp:      ldm         r10,{r1-r4}
            orr         r1,r1,r2
            orr         r2,r3,r4
            orrs        r1,r1,r2
            beq         wk_lp
	
	str         r12,[r0,#-8]
	ldmfd	sp!,{r0-r12,pc}
	
            .align      3
Image:      .incbin   "parrots.bmp",71