setgrp.s 195 B

123456789101112131415161718
  1. #include "sys.h"
  2. .define _setgrp
  3. .extern _errno
  4. _setgrp:
  5. mov 2(sp),0f+2
  6. sys indir; .data2 0f
  7. bcc 1f
  8. mov r0,_errno
  9. mov $-1,r0
  10. rts pc
  11. 1:
  12. clr r0
  13. rts pc
  14. .sect .data
  15. 0:
  16. sys setgrp
  17. .data2 0