AUSAM/source/libc/pp.s

/ C library -- pp

/ pp(&lock);
/
/ request lock

.globl	_pp

ppp = 53.
_pp:				   / try for resource.
	mov	2(sp),r0
	sys	ppp
	bec	1f		/ if ok
	clr	r0		/ error
1:
     	rts     pc