.seg

	sp := r15
	SP := rr14

	.psec data
	.data
.comm	2,	_errno;

	.psec
	.code
_ptrace::
	{
	xor	r4,r4
	ld	_errno,r4
	ldm	r0,|_stkseg+4|(sp),#5
	sc	#26			  /*ptrace*/
	ld	r2,r4
	ret	nc
	jp	cerror
	}