Initial revision

This commit is contained in:
ceriel
1988-04-19 09:34:37 +00:00
parent 2720a896d5
commit cfc5459e63
113 changed files with 2057 additions and 0 deletions

View File

@@ -0,0 +1,13 @@
#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);
}