incPointerToArchiveOrRam:
	inc l
	ret nz
	inc h
	ret po
	push af
	ld a,h
	sub $40
	ld h,a
	in a,(6)
	inc a
	out (6),a
	pop af
	ret