V9/libc/sys/getlog.s

	getlog = 64+3

	.globl	_getlogname
_getlogname:
	pea	0
1:
	movl	sp@(8),sp@-
	pea	getlog
	trap	#0
	bcc	noerror
	addql	#8,sp
	jmp	cerror
noerror:
	addql	#8,sp
	clrl	d0
	rts

	.globl	_setlogname
_setlogname:
	pea	1
	bra	1b