



C  FLXCM3.FLX	-	COMMONS for RT-11 specific routines

C
C  The following are used for RT-11 SYSLIB input
C

	INTEGER*2	WICHBF,CHSTAT,BFPTR,INBLK,MXINLV,MXINPL

	BYTE		INBUF

	COMMON /FLXSY3/ INBUF (512,2,4),WICHBF(4),CHSTAT(4),BFPTR(4)
	1                ,INBLK(4),MXINLV,MXINPL

C
C  MXINLV is the maximum # of input channels it must equal
C  the 3rd dimension of INBUFF
C
	DATA		MXINLV /4/

C
C  Maximum length of input records
C
	DATA		MXINPL /100/

C
C  "LOGICAL UNIT NUMBERS"  and current level of "INCLUDE'd" files
C

	INTEGER*2      FORLUN,LSTLUN,ERRLUN,NEWLUN,FLXLUN(4),INLEVL
	COMMON /FLXSY3/FORLUN,LSTLUN,ERRLUN,NEWLUN,FLXLUN   ,INLEVL

C
C  Line number variables
C

	INTEGER*2 	INPLIN,FORLIN,LASTLN,PAGLIN

	COMMON /FLXSY3/ INPLIN,FORLIN,LASTLN,PAGLIN

C
C  The following are used for RT-11 SYSLIB output
C
	BYTE  		OUTBUF

	INTEGER*2 	OPTR,WICHOB,OSTAT,OCHAN,OBLK,MXOLUN

	COMMON /FLXSY3/ OUTBUF(512,2,3),OPTR(3),WICHOB(3),
	1		 OSTAT(3),OCHAN(3),OBLK(3),MXOLUN

C
C  MXOLUN (Maximum # of output channels) MUST be the same as
C  the 3rd dimension of OUTBUF
C

	DATA		MXOLUN /3/

C
C  Strings used for page titles in RT-11 FLECS
C

	STRING TITLN1 (132)

	COMMON /FLXSY3/ TITLN1


C
C  Error type codes used by Fatal error hanling routine FERROR
C

	INTEGER*2 EREADE, EWRITE, ECLOSE, EWAITE
	DATA      EREADE /1/, EWRITE /2/, ECLOSE /3/, EWAITE /4/

	COMMON /FLXSY3/ EREADE, EWRITE, ECLOSE, EWAITE

C
C  Scratch array
C

	BYTE SSCRAT (200)
	COMMON /FLXSY3/ SSCRAT

C
C  Runtime switches set in SR OPENF in accordance with CSI command line
C

	LOGICAL*1       NOFORT,NOLIST,TTYLST,DEBUG,FINLST,LSTCOM,NOLNUM
	COMMON /FLXSY3/ NOFORT,NOLIST,TTYLST,DEBUG,FINLST,LSTCOM,NOLNUM

C
C  The following switch is set by SR LIST to invoke the $(NO)LIST
C  System commands
C

	LOGICAL*1         LSTFLG
	COMMON /FLXSY3/   LSTFLG

C.........END OF FLXSY3.FLX.......................................
$P

                                              