home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libc / sys / getgid.s < prev    next >
Encoding:
Text File  |  1979-01-10  |  293 b   |  27 lines
  1. / C library -- getgid, getegid
  2.  
  3. / gid = getgid();
  4.  
  5. .globl    _getgid
  6. .getgid = 47.
  7.  
  8. _getgid:
  9.     mov    r5,-(sp)
  10.     mov    sp,r5
  11.     sys    .getgid
  12.     mov    (sp)+,r5
  13.     rts    pc
  14.  
  15. / gid = getegid();
  16. / returns effective gid
  17.  
  18. .globl    _getegid
  19.  
  20. _getegid:
  21.     mov    r5,-(sp)
  22.     mov    sp,r5
  23.     sys    .getgid
  24.     mov    r1,r0
  25.     mov    (sp)+,r5
  26.     rts    pc
  27.