h34365
s 00032/00000/00000
d D 1.1 82/08/03 08:47:32 cecily 1 0
e
u
U
t
T
I 1
fork	title	unix c svc library -- fork

.fork	equ	2

	entry	fork
	entry	par_uid
r0	equ	0
rf	equ	15
sp	equ	7
*
	pure
fork	equ	*
	svc	0,.fork
	b	child(0)		child process return
	bc	error
	br	rf		parent process return
error	equ	*
	st	r0,errno
	lcs	r0,1		error return
	br	rf
*
child	equ	*
	st	r0,par_uid
	lis	r0,0	child process returns 0
	br	rf

errno	comn
	das	1
	ends
	bss
par_uid	das	1
	end
E 1
