time.c 258 B

12345678910111213
  1. #include "lib.h"
  2. PUBLIC long time(tp)
  3. long *tp;
  4. {
  5. int k;
  6. long l;
  7. k = callm1(FS, TIME, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
  8. if (M.m_type < 0 || k != OK) {errno = -M.m_type; return(-1L);}
  9. l = M.m2_l1;
  10. if (tp != (long *) 0) *tp = l;
  11. return(l);
  12. }