.export		store_filename
	.importzp	ptr1

store_filename:
	sta	ptr1
	stx	ptr1+1
	ldy	#$0f   ;store filename
:	lda	(ptr1),y
	sta	$027f,y
	dey
	bpl	:-
	rts