! @[$] sptrace.s	2.2  09/12/83 11:43:19 - 87wega3.2 !

sptrace module

  external
    cerror	procedure
    _errno	word

  global
    _sptrace procedure
      entry
	xor	r0,r0
	ld	_errno,r0
	ld	r0,r7
	ld	r1,r6
	ld	r6,r3
	ldl	rr2,rr4
	ld	r4,r6
	sc	#58
	ld	r2,r4
	ret	nc
	jp	cerror
    end _sptrace
end sptrace