day50

.text 
.global _start
_start: 
	LDR R0,=0x50000A28
	LDR R1,[R0]
	ORR R1,R1,#(0x3<<4)
	STR R1,[R0]

	LDR R0,=0x50006000
	LDR R1,[R0]
	BIC R1,R1,#(0x3<<20)
	ORR R1,R1,#(0x1<<20)
	BIC R1,R1,#(0x3<<16)
	ORR R1,R1,#(0x1<<16)
	STR R1,[R0]

	LDR R0,=0x50007000
	LDR R1,[R0]
	BIC R1,R1,#(0x3<<20)
	ORR R1,R1,#(0x1<<20)
	STR R1,[R0]

	LDR R0,=0x50006004
	LDR R1,[R0]
	BIC R1,R1,#(0x1<<10)
	BIC R1,R1,#(0x1<<8)
	STR R1,[R0]

	LDR R0,=0x50007004
	LDR R1,[R0]
	BIC R1,R1,#(0x1<<10)
	BIC R1,R1,#(0x1<<8)
	STR R1,[R0]
	
	LDR R0,=0x50006008
	LDR R1,[R0]
	BIC R1,R1,#(0x3<<20)
	BIC R1,R1,#(0x3<<16)
	STR R1,[R0]
	
	LDR R0,=0x50007008
	LDR R1,[R0]
	BIC R1,R1,#(0x3<<20)
	BIC R1,R1,#(0x3<<16)
	STR R1,[R0]
	
	LDR R0,=0x5000600c
	LDR R1,[R0]
	BIC R1,R1,#(0x3<<20)
	BIC R1,R1,#(0x3<<16)
	STR R1,[R0]

	LDR R0,=0x5000700c
	LDR R1,[R0]
	BIC R1,R1,#(0x3<<20)
	BIC R1,R1,#(0x3<<16)
	STR R1,[R0]

loop:	
	LDR R0,=0x50006014
	LDR R1,[R0]
	orr R1,R1,#(0x1<<10)
	STR R1,[R0]
	BL delay	

	LDR R0,=0x50006014
	LDR R1,[R0]
	BIC R1,R1,#(0x1<<10)
	STR R1,[R0]
	BL delay

	LDR R0,=0x50006014
	LDR R1,[R0]
	orr R1,R1,#(0x1<<8)
	STR R1,[R0]
	BL delay

	LDR R0,=0x50006014
	LDR R1,[R0]
	BIC R1,R1,#(0x1<<8)
	STR R1,[R0]
	BL delay

	LDR R0,=0x50007014
	LDR R1,[R0]
	orr R1,R1,#(0x1<<10)
	STR R1,[R0]
	BL delay

	LDR R0,=0x50007014
	LDR R1,[R0]
	BIC R1,R1,#(0x1<<10)
	STR R1,[R0]
	BL delay
	b loop

delay:
	LDR R4,=0x10000000
mm:
	cmp r4,#0
	subne r4,r4,#1
	bne mm
	mov pc,lr
.end