diplodocus.org Git - nmh/blob - docs/historical/SRI-NOSC/wait.s

   1 / C library -- wait     /* modified - does not call nargs */
   2
   3 / pid = wait(&status);
   4 /
   5 / pid == -1 if error
   6 / status indicates fate of process, if given
   7
   8 .globl  _wait, _waita, cerror
   9
  10 _waita:
  11 _wait:
  12         mov     r5,-(sp)
  13         mov     sp,r5
  14         sys     wait
  15         bec     1f
  16         tst     (sp)+
  17         jmp     cerror
  18 1:
  19         mov     r1,*4(r5)       / status return
  20         mov     (sp)+,r5
  21         rts     pc