.seg

	sp := r15
	SP := rr14

	.psec
	.code
_sprofil::
_profil::
	{
	ldm	r0,|_stkseg+4|(sp),#6
	sc	#52			  /*sysphys*/
	ld	r2,r4
	jp	c,cerror
	ret
	}