clr a
	mov r0, a
	mov dptr, #0
	mov autoinc, #1 ;or whatever it takes
	cpl a
lp0:	movx @dptr, a   ;DPL = 0xn0/4/8/C
	movx @dptr, a   ;DPL = 0xn1/5/9/D
	movx @dptr, a   ;DPL = 0xn2/6/A/E
	movx @dptr, a   ;DPL = 0xn3/7/B/F
	djnz r0, lp0