/ error	= ptrace(request, pid, addr, data);
/	  int *addr;

.globl	_ptrace
.globl	cerror, _errno

_ptrace:
	mov	r5,-(sp)
	mov	sp,r5
	mov	4.(r5),0f+4
	mov	6.(r5),0f+0
	mov	8.(r5),0f+2
	mov	10.(r5),r0
	clr	_errno
	sys	indir; 9f
	bec	1f
	jmp	cerror
1:
	mov	(sp)+,r5
	rts	pc

.data
9:
	sys	ptrace; 0: .=.+6