mov	a,Date + 0
	xrl	a,Last_Used_Date + 0
	xrl	a,Date + 1
	xrl	a,Last_Used_Date + 1
	xrl	a,Date + 2
	xrl	a,Last_Used_Date + 2
	xrl	a,Date + 3
	xrl	a,Last_Used_Date + 3
	xrl	a,Date + 4
	xrl	a,Last_Used_Date + 4
	xrl	a,Date + 5
	xrl	a,Last_Used_Date + 5
	jnz	Date_Diff