wrrdflash.s

ucos下can的一个驱动及测试程序

	AREA |C$$code|, CODE, READONLY

	EXPORT	__WrPage528
__WrPage528
	;input:a1(r0)=pPage
	stmfd	sp!,{r1-r11}

	mov 	a2,#0x4000000	;bank2
	mov	a3,#0x200
0	ldmia	a1!,{r4-r11}
	stmia	a2,{r4-r11}
	subs	a3,a3,#32
	bne	%B0

	ldmia	a1!,{r4-r7}
	stmia	a2,{r4-r7}

	ldmfd	sp!,{r1-r11}
	mov	pc,lr

; ***********************************************
	EXPORT	__RdPage528
__RdPage528
	;input:a1(r0)=pPage
	stmfd	sp!,{r1-r11}

	mov	a2,#0x4000000	;bank2
	mov	a3,#0x200
0	ldmia	a2,{r4-r11}
	stmia	a1!,{r4-r11}
	subs	a3,a3,#32
	bne	%B0

	ldmia	a2,{r4-r7}
	stmia	a1!,{r4-r7}

	ldmfd	sp!,{r1-r11}
	mov	pc,lr

; *************************************************
	EXPORT	__WrPage512
__WrPage512
	;input:a1(r0)=pPage
	stmfd	sp!,{r1-r11}

	mov 	a2,#0x4000000	;bank2
	mov	a3,#0x200
0	ldmia	a1!,{r4-r11}
	stmia	a2,{r4-r11}
	subs	a3,a3,#32
	bne	%B0

	ldmfd	sp!,{r1-r11}
	mov	pc,lr

; ***********************************************
	EXPORT	__RdPage512
__RdPage512
	;input:a1(r0)=pPage
	stmfd	sp!,{r1-r11}

	mov	a2,#0x4000000	;bank2
	mov	a3,#0x200
0	ldmia	a2,{r4-r11}
	stmia	a1!,{r4-r11}
	subs	a3,a3,#32
	bne	%B0

	ldmfd	sp!,{r1-r11}
	mov	pc,lr

	END