clr a
	mov r0, a
	mov r1, #4
	mov dptr, #0
	mov autoinc, #1 ;or whatever it takes
	cpl a
lp0:	movx @dptr, a
	djnz r0, lp0
	djnz r1, lp0    ;no unroll