csect	text,0,0,1,2

	xdef	_StoreTracker

_StoreTracker:
	move.l	a1,d0
	rts

	end