#include "lib.h"

PUBLIC long time(tp)
long *tp;
{
  int k;
  long l;
  k = callm1(FS, TIME, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
  if (M.m_type < 0 || k != OK) {errno = -M.m_type; return(-1L);}
  l = M.m2_l1;
  if (tp != (long *) 0) *tp = l;
  return(l);
}