clr a
	mov r0, a
	mov dptr, #0
	mov autoinc, #1 ;or whatever it takes
	cpl a
lp0:	movx @dptr, a   ;DPH = 0
	djnz r0, lp0
lp1:	movx @dptr, a   ;DPH = 1
	djnz r0, lp1
lp2:	movx @dptr, a   ;DPH = 2
	djnz r0, lp2
lp3:	movx @dptr, a   ;DPH = 3
	djnz r0, lp3