/*
        Copyright 1989, 1991, 1992 Digital Equipment Corporation
        All rights reserved.
 
        This software is furnished under a license and may be used and
        copied only in accordance with the terms of such license and with 
        the inclusion of the above copyright notice.  This software
        and any copies shall not be provided to any other person.  No 
        title to or ownership of the software is hereby transferred.  The 
        information in this software is subject to change without notice.
        DIGITAL assumes no responsibility for the use, functionality or 
        reliability of its software on equipment which is not supplied by 
        DIGITAL.
 
        rtsys.h                                               PDP-11 C 
 
        RT-11 SYSLIB Routine Definitions
*/
 
/*
	Defining RTSYS_VAR will cause the FORTRAN function prototypes
	to use the ... construct where appropriate.  Not defining RTSYS_VAR
	will define all parameters in the function prototypes (even those
	that may be omitted).
*/
 
#ifndef __PDP11C$RTSYS_H
#define __PDP11C$RTSYS_H
 
 
#define RT11$EMTERRB	((char *) (52))		/* EMT error byte	*/
#define RT11$USERRB	((char *) (53))		/* User error byte	*/
#define RT$FETCH  C$FECH
#define RT$TRPSET C$TRAP
#define _OMITTED_ (void *) -1
 
	/* Macro Definitions: */
 
#define time C$TIME     /* Define Standard Library version of time with */
                        /* a different global symbol to avoid conflict  */
                        /* with the RT-11 TIME function.                */
 
#define $VIRTUAL$JOB	short c$virt; \
			static short *$$virt = &c$virt;
 
 
	/* Fortran Linkage Definitions: */
 
#pragma linkage fortran	ABTIO,	AJFLT,	CHAIN,	CHCPY,	CLOSEC,	CLOSZ,	CMAP
#pragma linkage fortran	CMKT,	CNTXS,	CONCAT,	CRAW,	CRRG,	CSI,	CSTAT
#pragma linkage fortran	CVTTIM,	DATE,	DATE4Y,	DELET,	DEVICE,	DJFLT,	DSTAT
#pragma linkage fortran	ELAW,	ELRG,	ENTER,	FPROT,	FREER,	GCMAP,	GETR
#pragma linkage fortran	GFDAT,	GFINF,	GFSTA,	GICLOS,	GIOPEN,	GIREAD,	GIWRIT
#pragma linkage fortran	GMCX,	GTDIR,	GTDUS,	GTIM,	GTJB,	GTLIN,	HERR
#pragma linkage fortran	IABTIO,	IAJFLT,	ICHCPY,	ICLOSE,	ICLOSZ,	ICMAP,	ICMKT
#pragma linkage fortran	ICNTXS,	ICRAW,	ICRRG,	ICSI,	ICSTAT,	IDATE,	IDCOMP
#pragma linkage fortran	IDELET,	IDEVIC,	IDJFLT,	IDSTAT,	IELAW,	IELRG,	IENTER
#pragma linkage fortran	IFPROT,	IFREER,	IFWILD,	IGCMAP,	IGETR,	IGFDAT,	IGFINF
#pragma linkage fortran	IGFSTA,	IGMCX,	IGTDIR,	IGTDUS,	IGTENT,	IGTJB,	IGTLIN
#pragma linkage fortran	IHERR,	IJCVT,	INDEX,	INSERT,	IPEEK,	IPEEKB,	IPROTE
#pragma linkage fortran	IPUT,	IRAD50,	IRCVD,	IRCVDC,	IRCVDW,	IREAD,	IREADC
#pragma linkage fortran	IREADW,	IRENAM,	IREOPN,	ISAVES,	ISCCA,	ISCOMP,	ISDAT
#pragma linkage fortran	ISDATC,	ISDATW,	ISERR,	ISFDAT,	ISFINF,	ISFSTA,	ISLEEP
#pragma linkage fortran	ISPCPS,	ISPFN,	ISPFNC,	ISPFNW,	ISPY,	ISWILD,	ITLOCK
#pragma linkage fortran	ITTINR,	ITTOUR,	ITWAIT,	IUNMAP,	IUNPRO,	IUNTIL,	IVERIF
#pragma linkage fortran	IWAIT,	IWEEKD,	IWRITC,	IWRITE,	IWRITW,	JADD,	JAFIX
#pragma linkage fortran	JCMP,	JDFIX,	JDIV,	JICVT,	JJCVT,	JMOV,	JMUL
#pragma linkage fortran	JREAD,	JREADC,	JREADW,	JSUB,	JTIME,	JWRITC,	JWRITE
#pragma linkage fortran	JWRITW,	KPEEK,	KPOKE,	LEN,	LOCK,	LOOKUP,	MAP
#pragma linkage fortran	MGETR,	MRCVD,	MRCVDC,	MRCVDW,	MREAD,	MREADC,	MREADW
#pragma linkage fortran	MRKT,	MSCCA,	MSDAT,	MSDATC,	MSDATW,	MSDS,	MSPFN
#pragma linkage fortran	MSPFNC,	MSPFNW,	MTATCH,	MTDTCH,	MTGET,	MTIN,	MTOUT
#pragma linkage fortran	MTPRNT,	MTRCTO,	MTSET,	MTSTAT,	MWAIT,	MWRITC,	MWRITE
#pragma linkage fortran	MWRITW,	POKE,	POKEB,	PRINT,	PROTE,	PURGE,	PUT
#pragma linkage fortran	R50ASC,	RAD50,	RAN,	RANDU,	RCHAIN,	RCTRLO,	RCVD
#pragma linkage fortran	RCVDC,	RCVDW,	READ,	READC,	READW,	RENAM,	REOPN
#pragma linkage fortran	REPEAT,	RESUME,	SAVES,	SCCA,	SCOMP,	SCOPY,	SDAT
#pragma linkage fortran	SDATC,	SDATW,	SDTTM,	SERR,	SETCMD,	SFDAT,	SFINF
#pragma linkage fortran	SFSTA,	SLEEP,	SPCPS,	SPFN,	SPFNC,	SPFNW,	STRPAD
#pragma linkage fortran	SUBSTR,	SUSPND,	TIMASC,	TIME,	TRANSL,	TRIM,	TWAIT
#pragma linkage fortran	UNLOCK,	UNMAP,	UNPRO,	UNTIL,	VERIFY,	WAIT,	WRITC
#pragma linkage fortran	WRITE,	WRITW
 
	/* C Linkage Defintions: */
 
#pragma linkage c RT$FETCH, RT$TRPSET
 
void ABTIO (short *__chan);
float AJFLT (long *__jsrc);
void CHAIN (short __dblk[4], short __var[], short *__wcnt);
void CLOSZ (short *__chan, short *__size);
void CNTXS (short __addr[]);
void CVTTIM (long  *__time, short *__hr, short *__min, short *__sec,
	short *__tick);
double DJFLT (long *__jsrc);
void DSTAT (short *__devnam, short __dstatus[4]);
void GFDAT (short *__chan, short __dblk[4], short *__date);
void GFINF (short *__chan, short __dblk[4], short *__offset, short *__val);
void GFSTA (short *__chan, short __dblk[4], short *__stat);
void GICLOS (short __status[2], short *__lun);
void GIOPEN (short __status[2], short *__lun, short *__message,
	short *__msglen, short *__devtyp, short *__driver);
void GIREAD (short __status[2], short *__lun, short __buffer[],
	short *__buflen);
void GIWRIT (short __status[2], short *__lun, short __message[],
	short *__msglen);
void GTIM (short *__time);
void HERR (void);
short IABTIO (short *__chan);
short IAJFLT (long *__jsrc, float *__ares);
short ICLOSE (short *__chan);
short ICLOSZ (short *__chan, short *__size);
short ICNTXS (short __addr[]);
short IDJFLT (long *__jsrc, double *__dres);
short IDSTAT (short *__devnam, short __dstatus[4]);
short IGCMAP (short *__old);
short IGFDAT (short *__chan, short __dblk[4], short *__date);
short IGFINF (short *__chan, short __dblk[4], short *__offset, short *__val);
short IGFSTA (short *__chan, short __dblk[4], short *__stat);
short IHERR (void);
short IJCVT (long *__jsrc, short *__res);
short IPEEK (short *__addr);
short IPEEKB (short *__addr);
short IPROTE (short *__addr);
short IRAD50 (short *__cnt, char __input[], short __output[]);
short IRCVD (short __buff[], short *__wcnt);
short IRCVDC (short __buff[], short *__wcnt,void (*__crtn)());
short IRCVDW (short __buff[], short *__wcnt);
short IREAD (short *__wcnt, short __buff[], short *__blk, short *__chan);
short IREADC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)());
short IREADW (short *__wcnt, short __buff[], short *__blk, short *__chan);
short IRENAM (short *__chan, short __2dblk[8]);
short IREOPN (short *__chan, short __cblk[5]);
short ISAVES (short *__chan, short __cblk[5]);
short ISCOMP (char __a[], char __b[]);
short ISDAT (short __buff[], short *__wcnt);
short ISDATC (short __buff[], short *__wcnt, void (*__crtn)());
short ISDATW (short __buff[], short *__wcnt);
short ISERR (void);
short ISLEEP (short *__hours, short *__minutes, short *__seconds,
	short *__ticks);
short ISPCPS (short __pcpcps[3]);
short ITLOCK (void);
short ITTINR (void);
short ITTOUR (char *__charac);
short ITWAIT (long *__time);
short IUNPRO (short *__addr);
short IUNTIL (short *__hrs, short *__min, short *__sec, short *__tick);
short IVERIF (char __a[], char __b[]);
short IWAIT (short *__chan);
short IWEEKD (short *__month, short *__day, short *__year);
short IWRITC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)());
short IWRITE (short *__wcnt, short __buff[], short *__blk, short *__chan);
short IWRITW (short *__wcnt, short __buff[], short *__blk, short *__chan);
short JADD (long *__jopr1, long *__jopr2, long *__jres);
short JAFIX (float *__asrc, long *__jres);
short JCMP (long *__jopr1, long *__jopr2);
short JDFIX (double *__dsrc, long *__jres);
short JICVT (short *__src, long *__jres);
void JJCVT (long  *__jsrc);
short JMOV (long *__jsrc, long *__jdest);
short JMUL (long *__jopr1, long *__jopr2, long *__jres);
short JSUB (long *__jopr1, long *__jopr2, long *__jres);
void JTIME (short *__hrs, short *__min, short *__sec, short *__tick,
	long *__time);
short LEN (char __string[]);
void LOCK (void);
short MTDTCH (short *__unit);
short MTPRNT (short *__unit, char __string[]);
short MTRCTO (short *__unit);
short MTSET (short *__unit, short __addr[4]);
short MTSTAT (short __addr[8]);
void MWAIT (void);
void POKE (short *__addr, short *__value);
void POKEB (short *__addr, short *__value);
void PRINT (char __string[]);
void PROTE (short *__addr);
void PURGE (short *__chan);
void R50ASC (short *__cnt, short __input[], char __output[]);
long RAD50 (char __input[6]);
float RAN (long *__jseed);
void RANDU (short *__seed1, short *__seed2, float *__f);
void RCHAIN (short *__flag, short __var[], short *__wcnt);
void RCTRLO (void);
void RCVD (short __buff[], short *__wcnt);
void RCVDC (short __buff[], short *__wcnt, void (*__crtn)());
void RCVDW (short __buff[], short *__wcnt);
void READ (short *__wcnt, short __buff[], short *__blk, short *__chan);
void READC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)());
void READW (short *__wcnt, short __buff[], short *__blk, short *__chan);
void RENAM (short *__chan, short __2dblk[8]);
void REOPN (short *__chan, short __cblk[5]);
void RESUME (void);
void SAVES (short *__chan, short __cblk[5]);
void SCOMP (char __a[], char __b[], short *__i);
void SDAT (short __buff[], short *__wcnt);
void SDATC (short __buff[], short *__wcnt,void (*__crtn)());
void SDATW (short __buff[], short *__wcnt);
void SDTTM (short *__date, short *__hitime, short *__lotime);
void SERR (void);
void SETCMD (char __string[]);
void SLEEP (short *__hrs, short *__min, short *__sec, short *__tick);
void SPCPS (short __pcpcps[3]);
void SUSPND (void);
void TIMASC (long *__time, char __string[8]);
void TIME (char __string[8]);
void TRIM (char __string[]);
void TWAIT (long *__time);
void UNLOCK (void);
void UNPRO (short *__addr);
void UNTIL (short *__hrs, short *__min, short *__sec, short *__tick);
void VERIFY (char __a[], char __b[], short *__i);
void WAIT (short *__chan);
void WRITC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)());
void WRITE (short *__wcnt, short __buff[], short *__blk, short *__chan);
void WRITW (short *__wcnt, short __buff[], short *__blk, short *__chan);
short RT$FETCH	(short *__addr, short *__dnam);
void RT$TRPSET (short *__addr);
 
#ifdef RTSYS_VAR
 
void CHCPY (short *__chan, short *__ochan, ...);
void CLOSEC (short *__chan, ...);
void CMAP (short *__val, ...);
void CMKT (short *__id, ...);
void CONCAT (char *__a, char *__b, char __out[], ...);
void CRAW (short __wdb[6], ...);
void CRRG (short __rdb[], ...);
void CSI (short __filspc[39], short __deftyp[4],
	... /*REQUIRED ,,short *__n */);
void CSTAT (short *__chan, short __cstatus[6], ...);
void DATE (char __string[], ...);
void DATE4Y (char __string[], ...);
void DELET (short *__chan, short __dblk[4], ...);
void DEVICE (short __list[], ...);
void ELAW (short __wdb[6], ...);
void ELRG (short __rdb[], ...);
void ENTER (short *__chan, short __dblk[4], short *__size, ...);
void FPROT (short *__chan, short __dblk[4], ...);
void FREER (short __work7[], ...);
void GCMAP (short *__old, ...);
void GETR (short __work7[7], char *__owner, short __name[], ...);
void GMCX (short __wdb[6], ...);
void GTDIR (short *__wksize, short __wkarea[64], short *__chan,
	short __buffer[256], ...);
void GTDUS (short *__dev, short *__chan, short __gtdus[7], ...);
void GTJB (short __addr[], ...);
void GTLIN (char __string[], ...);
short ICHCPY (short *__chan, short *__ochan, ...);
short ICMAP (short *__val, ...);
short ICMKT (short *__id, ...);
short ICRAW (short __wdb[6]);
short ICRRG (short __rdb[]);
short ICSI (short __filspc[39], short __deftyp[4], ...
	/* REQUIRED ,,short *__n */);
short ICSTAT (short *__chan, short __cstatus[6], ...);
short IDATE (short *__mon, short *__day, short *__year, ...);
short IDCOMP (short *__date1, ...);
short IDELET (short *__chan, short __dblk[4], ...);
short IDEVIC (short __list[], ...);
short IELAW (short __wdb[6]);
short IELRG (short __rdb[]);
short IENTER (short *__chan, short __dblk[4], short *__size, ...);
short IFPROT (short *__chan, short __dblk[4], ...);
short IFREER (short __work7[], ...);
short IFWILD (char __tststr[], char __matstr[], ...);
short IGETR (short __work7[7], char *__owner, short __name[2],
	short *__addr, ...);
short IGMCX (short __wdb[6]);
short IGTDIR (short *__wksize, short __wkarea[64], short *__chan,
	short __buffer[256], ...);
short IGTDUS (short *__dev, short *__chan, short __gtdus[7], ...);
short IGTENT (short __wkarea[64], short __entry[], ...);
short IGTJB (short __addr[], ...);
short IGTLIN (char __string[], ...);
short INDEX (char __a[], char __pattrn[], ...);
void INSERT (char __in[], char __out[], short *__i, ...);
short IPUT (short *__off, short *__value, ...);
short ISCCA (); /* zero, one, or two args allowed */
short ISFDAT (short *__chan, short __dblk[4],  ...);
short ISFINF (short *__chan, short __dblk[4], short *__value,
	char *__oper, short *__offset, ...);
short ISFSTA (short *__chan, short __dblk[4], short *__value,
	char *__oper, ...);
short ISPFN (short *__code, short *__chan, ...);
short ISPFNC (short *__code, short *__chan, ...
	/* ,,,,REQUIRED void (*__crtn)() */);
short ISPFNW (short *__code, short *__chan, ...);
short ISWILD (char __tststr[], char __matstr[], ...);
short ISPY (short *__off, ...);
short IUNMAP (short __wdb[6]);
short JDIV (long *__jopr1, long *__jopr2, long *__jres, ...);
short JREAD (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, ...);
short JREADC (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, ... /* REQUIRED ,void (*__crtn)() */);
short JREADW (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, ...);
short JWRITE (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, ...);
short JWRITC (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, ... /* REQUIRED ,void (*__crtn)() */);
short JWRITW (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, ...);
short KPEEK (short *__addr, ...);
short KPOKE (short *__addr, short *__value, ...);
short LOOKUP (short *__chan, short __dblk_or_jobdes[4], ...);
short MAP (short __wdb[6], ...);
short MGETR (short *__work15, short *__wrksize, char *__owner, short *__name,
	short *__addr, ...);
short MRCVD (short __buff[], short *__wcnt, ...);
short MRCVDC (short __buff[], short *__wcnt, void (*__crtn)(), ...);
short MRCVDW (short __buff[], short *__wcnt, ...);
short MREAD (short *__wcnt, short __buff[], short *__blk, short *__chan,
	...);
short MREADC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)(), ...);
short MREADW (short *__wcnt, short __buff[], short *__blk, short *__chan,
	...);
short MRKT (short *__id, void (*__crtn)(), long *__time, ...);
short MSCCA (); /* zero to three arguments */
short MSDAT (short __buff[], short *__wcnt, ...);
short MSDATC (short __buff[], short *__wcnt, void (*__crtn)(), ...);
short MSDATW (short __buff[], short *__wcnt, ...);
short MSDS (short *__val, ...);
short MSPFN (short *__code, short *__chan, ...);
short MSPFNC (short *__code, short *__chan, ...
	/* REQUIRED,,,,void (*__crtn)() */);
short MSPFNW (short *__code, short *__chan, ...);
short MTATCH (short *__unit, ...);
short MTGET (short *__unit, short __addr[4], ...);
short MTIN (short *__unit, char __charac[], ...);
short MTOUT (short *__unit, char __charac[], ...);
short MWRITC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)(), ...);
short MWRITE (short *__wcnt, short __buff[], short *__blk, short *__chan,
	...);
short MWRITW (short *__wcnt, short __buff[], short *__blk, short *__chan,
	...);
void PUT (short *__off, short *__value, ...);
void REPEAT (char __in[], char __out[], ...);
void SCCA (); /* zero, one, or two args allowed */
void SCOPY (char __in[], char __out[], ...);
void SFDAT (short *__chan, short __dblk[4], ...);
void SFINF (short *__chan, short __dblk[4], short *__value,
	char *__oper, short *__offset, ...);
void SFSTA (short *__chan, short __dblk[4], short *__value,
	char *__oper, ...);
void SPFN (short *__code, short *__chan, ...);
void SPFNC (short *__code, short *__chan,
	... /* REQUIRED,,,,void (*__crtn)() */);
void SPFNW (short *__code, short *__chan, ...);
void STRPAD (char __a[], short *__len, ...);
void SUBSTR (char __in[], char __out[], short *__i, ...);
void TRANSL (char __in[], char __out[], char __r[], ...);
void UNMAP (short __wdb[6], ...);
 
#else
 
void CHCPY (short *__chan, short *__ochan, short __jobblk[3]);
void CLOSEC (short *__chan, short *__err);
void CMAP (short *__val, short *__old, short *__err);
void CMKT (short *__id, long *__time);
void CONCAT (char *__a, char *__b, char __out[], short *__len, short *__err);
void CRAW (short __wdb[6], short *__err);
void CRRG (short __rdb[], short *__err);
void CSI (short __filspc[39], short __deftyp[4], char __cstring[],
	short __option[][4], short *__n);
void CSTAT (short *__chan, short __cstatus[6], char __string[3]);
void DATE (char __string[], short *__date);
void DATE4Y (char __string[], short *__date);
void DELET (short *__chan, short __dblk[4], short *__seqnum);
void DEVICE (short __list[], void *__link);
void ELAW (short __wdb[6], short *__err);
void ELRG (short __rdb[], short *__err);
void ENTER (short *__chan, short __dblk[4], short *__size, short *__seqnum);
void FPROT (short *__chan, short __dblk[4], short *__prot);
void FREER (short __work7[], char *__type);
void GCMAP (short *__old, short *__err);
void GETR (short __work7[7], char *__owner, short __name[2],
	short *__addr, short *__csize, short *__offset,
	short *__msize, void *__chan_file_sbrtn,
	short *__blk);
void GMCX (short __wdb[6], short *__err);
void GTDIR (short *__wksize, short __wkarea[64], short *__chan,
	short __buffer[256], short __header[5], short __dblk[4],
	short __string[], short *__stvalu, short *__stmask,
	char __datrel[2], short *__date, short *__resrv1,
	short *__resrv2, short *__stofst);
void GTDUS (short *__dev, short *__chan, short __gtdus[7],
	short *__unit, char __type[4], short __work160[],
	short *__wksize);
void GTJB (short __addr[], void *__jobblk, short *__err);
void GTLIN (char __string[], char __prompt[], char __term_or_plain[]);
short ICHCPY (short *__chan, short *__ochan, short __jobblk[3]);
short ICMAP (short *__val, short *__old);
short ICMKT (short *__id, long *__time);
short ICRAW (short __wdb[6]);
short ICRRG (short __rdb[]);
short ICSI (short __filspc[39], short __deftyp[4], char __cstring[],
	short __option[][4], short *__n);
short ICSTAT (short *__chan, short __cstatus[6], short __string[3]);
short IDATE (short *__mon, short *__day, short *__year, short *__date);
short IDCOMP (short *__date1, short *__date2);
short IDELET (short *__chan, short __dblk[4], short *__seqnum);
short IDEVIC (short __list[], void *__link);
short IELAW (short __wdb[6]);
short IELRG (short __rdb[]);
short IENTER (short *__chan, short __dblk[4], short *__size, short *__seqnum);
short IFPROT (short *__chan, short __dblk[4], short *__prot);
short IFREER (short __work7[], char *__type);
short IFWILD (char __tststr[], char __matstr[], char *__explct);
short IGETR (short __work7[7], char *__owner, short __name[2],
	short *__addr, short *__csize, short *__offset,
	short *__msize, void *__chan_file_sbrtn,
	short *__blk);
short IGMCX (short __wdb[6]);
short IGTDIR (short *__wksize, short __wkarea[64], short *__chan,
	short __buffer[256], short __header[5], short __dblk[4],
	short __string[], short *__stvalu, short *__stmask,
	char __datrel[2], short *__date, short *__resrv1,
	short *__resrv2, short *__stofst);
short IGTDUS (short *__dev, short *__chan, short __gtdus[7],
	short *__unit, char __type[4], short __work160[],
	short *__wksize);
short IGTENT (short __wkarea[64], short __entry[], short *__entfos,
	short *__filblk, char __ascnam[11]);
short IGTJB (short __addr[], void *__jobblk);
short IGTLIN (char __string[], char __prompt[], char __term_or_plain[]);
short INDEX (char __a[], char __pattrn[], short *__i, short *__m);
void INSERT (char __in[], char __out[], short *__i, short *__m);
short IPUT (short *__off, short *__value, char __operation[3]);
short ISCCA (short *__flag, short *__type);
short ISFDAT (short *__chan, short __dblk[4], short *__date, short *__old);
short ISFINF (short *__chan, short __dblk[4], short *__value,
	char *__oper, short *__offset, short *__old);
short ISFSTA (short *__chan, short __dblk[4], short *__value,
	char *__oper, short *__old);
short ISPFN (short *__code, short *__chan, short *__wcnt, short __buff[],
	short *__blk);
short ISPFNC (short *__code, short *__chan, short *__wcnt,
	short __buff[], short *__blk,void (*__crtn)());
short ISPFNW (short *__code, short *__chan, short *__wcnt, short __buff[],
	short *__blk);
short ISPY (short *__off, short *__err);
short ISWILD (char __tststr[], char __matstr[], char __term[],
	char *__case, char *__explct);
short IUNMAP (short __wdb[6]);
short JDIV (long *__jopr1, long *__jopr2, long *__jres, long *__jrem);
short JREAD (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, short *__area, char __bmode[2]);
short JREADC (short *__wcnt, short __buff[], long *__jblock, short *__chan, 
	short *__area, void (*__crtn)(), char __bmode[2], char *__cmode);
short JREADW (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, short *__area, char __bmode[2]);
short JWRITE (short *__wcnt, short __buff[], long *__jblock,
	short *__chan, short *__area, char __bmode[2]);
short JWRITC (short *__wcnt, short __buff[], long *__jblock, short *__chan, 
	short *__area, void (*__crtn)(), char __bmode[2], char *__cmode);
short JWRITW (short *__wcnt, short __buff[], long *__jblock, short *__chan,
	short *__area, char __bmode[2]);
short KPEEK (short *__addr, short *__err);
short KPOKE (short *__addr, short *__value, char __type[3], short *__err);
short LOOKUP (short *__chan, short __dblk_or_jobdes[4], short *__seqnum);
short MAP (short __wdb[6], short *__err);
short MGETR (short *__work15, short *__wrksize, char *__owner, short *__name,
	short *__addr, short  *__memaddr, short *__csize, 
	short *__msize, short *__offset, short *__chan_file_sbrtn,
	short *__blk, char *__mapping, char *__access, char *__bypass);
short MRCVD (short __buff[], short *__wcnt, char __bmode[2]);
short MRCVDC (short __buff[], short *__wcnt, void (*__crtn)(),
	char __bmode[2], char *__cmode);
short MRCVDW (short __buff[], short *__wcnt, char __bmode[2]);
short MREAD (short *__wcnt, short __buff[], short *__blk, short *__chan,
	char __bmode[2]);
short MREADC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)(), char __bmode[2], char *__cmode);
short MREADW (short *__wcnt, short __buff[], short *__blk, short *__chan,
	char __bmode[2]);
short MRKT (short *__id, void (*__crtn)(), long *__time, char *__cmode);
short MSCCA (short *__flag, short *__type, char *__amode);
short MSDAT (short __buff[], short *__wcnt, char __bmode[2]);
short MSDATC (short __buff[], short *__wcnt, void (*__crtn)(),
	char __bmode[2], char *__cmode);
short MSDATW (short __buff[], short *__wcnt, char __bmode[2]);
short MSDS (short *__val, short *__old, short *__err);
short MSPFNC (short *__code, short *__chan, short *__wcnt, short __buff[], 
	short *__blk, void (*__crtn)(), char __bmode[2], char *__cmode);
short MSPFN (short *__code, short *__chan, short *__wcnt, short __buff[],
	short *__blk, char __bmode[2]);
short MSPFNC (short *__code, short *__chan, short *__wcnt, short __buff[], 
	short *__blk, void (*__crtn)(), char __bmode[2], char *__cmode);
short MSPFNW (short *__code, short *__chan, short *__wcnt, short __buff[],
	short *__blk, char __bmode[2]);
short MTATCH (short *__unit, short *__addr, short *__jobnum, char *__amode);
short MTGET (short *__unit, short __addr[4], short *__jobnum);
short MTIN (short *__unit, char __charac[], short *__chrcnt, short *__ocnt);
short MTOUT (short *__unit, char __charac[], short *__chrcnt, short *__ocnt);
short MWRITC (short *__wcnt, short __buff[], short *__blk, short *__chan,
	void (*__crtn)(), char __bmode[2], char *__cmode);
short MWRITE (short *__wcnt, short __buff[], short *__blk, short *__chan,
	char __bmode[2]);
short MWRITW (short *__wcnt, short __buff[], short *__blk, short *__chan,
	char __bmode[2]);
void PUT (short *__off, short *__value, char __operation[3], short  *__err);
void REPEAT (char __in[], char __out[], short *__i, short *__len, short *__err);
void SCCA (short *__flag, short *__type);
void SCOPY (char __in[], char __out[], short *__len, short *__err);
void SFDAT (short *__chan, short __dblk[4], short *__date, short *__old);
void SFINF (short *__chan, short __dblk[4], short *__value,
	char *__oper, short *__offset, short *__old);
void SFSTA (short *__chan, short __dblk[4], short *__value,
	char *__oper, short *__old);
void SPFN (short *__code, short *__chan, short *__wcnt, short __buff[],
	short *__blk);
void SPFNC (short *__code, short *__chan, short *__wcnt,
	short __buff[], short *__blk,void (*__crtn)());
void SPFNW (short *__code, short *__chan, short *__wcnt, short __buff[],
	short *__blk);
void STRPAD (char __a[], short *__len, short *__err);
void SUBSTR (char __in[], char __out[], short *__i, short *__len);
void TRANSL (char __in[], char __out[], char __r[], char __p[]);
void UNMAP (short __wdb[6], short *__err);
 
#endif
#endif