/*--- EDIT # 0005	15-MAY-1986 10:56   SYS$SYSROOT:[RVT.UTILS]UUDATA.C;9 */
/*--- Previous edit 	20 Feb 1986   14:01:44	[VANTASSLE.UTILS]UUDATA.C;8  */
/*
.title	__DATA
;NODOC
*/

/* This module contains the data variables used
 * by and within the run-time system.
 * It must be this way to avoid circular chains of external
 * references in the library.
*/

#include <stdio.h>

char __pname[8] = "Error  ";	/* Program (task) name */
long int __rname = 0;		/* rad50 task name */
unsigned int __duic = 0;	/* Default UIC (user number) */
unsigned int __puic = 0;	/* protection UIC (session number) */
#ifndef vax
int errno = 0;			/* For Lattice OTS */
#endif

#ifdef pdp11
int __opsys = S_UNDEF;		/* operating system */
int __machine = M_PDP11;	/* machine type */
#endif

#ifdef vax
int __opsys = S_VMS;		/* operating system */
int __machine = M_VAX;	/* machine type */
#endif

#ifdef m68k
int __opsys = S_RMS68K;		/* operating system */
int __machine = M_68K;		/* machine type */
IMPORT int _regs[15];		/* Task startup registers */
#endif