! @[$] fork.s 2.1 09/12/83 11:41:04 - 87wega3.2 !
fork module
external
cerror procedure
global
_par_uid
word
_fork procedure
entry
sc #2
jr uid
ld r2,r4
ret nc
jp cerror
uid:
ld _par_uid,r4
xor r2,r2
ret
end _fork
end fork