home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / sys / fork.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  339 b   |  27 lines
  1. / C library -- fork
  2.  
  3. / pid = fork();
  4. /
  5. / pid == 0 in child process; pid == -1 means error return
  6. / in child, parents id is in par_uid if needed
  7.  
  8. .globl    _fork, _par_uid
  9. .globl    cerror
  10. .fork = 2.
  11.  
  12. _fork:
  13.     mov    r5,-(sp)
  14.     mov    sp,r5
  15.     sys    .fork
  16.         br 1f
  17.     bec    2f
  18.     jmp    cerror
  19. 1:
  20.     mov    r0,_par_uid
  21.     clr    r0
  22. 2:
  23.     mov    (sp)+,r5
  24.     rts    pc
  25. .bss
  26. _par_uid: .=.+2
  27.