Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-compiler/ioflg.bli
There are 12 other files named ioflg.bli in the archive. Click here to see a list.
!THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
!  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.

!COPYRIGHT (C) 1974,1981 BY DIGITAL EQUIPMENT CORPORATION
!AUTHOR: */SJW/TFV/DCE

GLOBAL BIND IOFLGV = 6^24 + 0^18 + 16;	! Version Date:	28-Sep-81

%(

***** Begin Revision History *****

1	-----	-----	REMOVE EOP AND FIRSTSTATEMENT FLAGS

2	-----	-----	ADD THE PROGTYP, MULTENT, AND LABLDUM FLAGS

3	-----	-----	REMOVE THOSE FLAGS THAT I DON'T BELIEVE ARE USED 
			AND NAME ONE THAT I THOUGHT WASN'T BUT WAS
			OUT - WILDLSTFIL,WILDOBJFIL,TAPEND,WIND,ZERO
			IN - EOCS ( END OF COMMAND STRING FLAG )

4	-----	-----	ADD ININCLUDE AND CHANNEL ICL

5	-----	-----	MODIFY FLAGREGISTER BITS

			1. REMOVE DEBUG FLAG
			2. ADD THE NEW DEBUG SWITCH FLAGS
				DBGDIMN
				DBGINDX
				DBGLABL
				DBGTRAC

				BOUNDS REMAINS THE SAME

6	-----	-----	PUT IN COMPILE TIME FTTENEX

7	-----	-----	SET UP SECONDARY FLAG REGISTER - NO MORE ROOM
			IN FLGREG

8	-----	-----	OBTAIN THE FTTENEX SWITCH FROM A REQUIRE FILE
			TO FACILITATE 10/20 CONTROL FILE PRODUCTON
9	467	VER5	REMOVE "REQUIRE FORSWI.REQ": PUT FT1SEG AND
			  FTTENEX SWITCHES INTO SEPARATE REQUIRE FILES
			  REQUIRED ONLY BY THOSE MODULES THAT USE THEM
10	476	QA754	CHANGE STATFLG TO MAPFLG IN FLGREG TO MAKE
			  LINE NUMBER/OCTAL LOCATION MAP OPTIONAL

***** Begin Version 5A *****

11	573	-----	PUT DBUGIT BIND INTO A SEPARATE FILE REQUIRED BY
			  ONLY THOSE MODULES THAT USE IT, (SJW)

***** Begin Version 5B *****

12	677	25573	REPLACE PEEPFL WHICH IS THOUGHT TO BE UNUSED
			BY DBGPAR AS BIT 25 IN FLGREG., (RDH)

***** Begin Version 6 *****

13	750	TFV	1-Jan-80	------
	Remove Debug:parameters (edit 677)

14	761	TFV	1-Mar-80	------
	Add /GFLOATING flag to FLAGS2 to tell type of DP numbers in use

15	767	DCE	20-May-80	-----
	CREATE SECONDARY SWITCH REGISTER F2
	ADD /F77 FLAG TO F2 TO INDICATE F77 STANDARD REQUESTED
	ALSO MOVE /GFLOATING FLAG INTO F2

16	1133	TFV	28-Sep-81	------
	Add /STATISTICS flag to F2 for in-house performance measurement.
	It is disabled in the released V6.

***** End Revision History *****

)%


EXTERNAL  BUGOUT;
	% BUGOUT CONTAINS THE OCTAL VALUE OF THE /BU: SWITCH
		BIT	MEANS
		1	OUTPUT LISTING BUFFERS IMMEDIATELY
		2	TRACE OF ROUTINE LEXICAL STATES
		3	DISPLAY THE CLASSIFICATION OF EACH STATEMENT
		4	DISPLAY THE LEXEME TYPE AS IT IS RETURNED FROM LEXICAL
	%



BIND	TBLMAX=4,
	TBLSIZ=10;
STRUCTURE
	MATRIX[I,J]=[I*J](.MATRIX+(.I-1)*TBLSIZ+.J);
EXTERNAL MATRIX CHNLTBL[TBLMAX,TBLSIZ];
BIND	BIN=1,
	LST=2,
	SRC=3,
	ICL = 4;
MACRO	STATUS(I)=CHNLTBL[I,0]$,
	DEVICE(I)=CHNLTBL[I,1]$,
	BUFFERS(I)=CHNLTBL[I,2]$,
	BUFHDR(I)=CHNLTBL[I,3]$,
	BUFPNT(I)=CHNLTBL[I,4]$,
	BUFCNT(I)=CHNLTBL[I,5]$,
	FILENAME(I)=CHNLTBL[I,6]$,
		EXTENSION(I)=CHNLTBL[I,7]<18,18>$,
		DSKERR(I)=CHNLTBL[I,7]<0,18>$,
		PROT(I)=CHNLTBL[I,8]<27,9>$,
	DIRECTORY(I)=CHNLTBL[I,9]$;

MACRO	XDEVJFN(I)=CHNLTBL[I,0]<RIGHT>$,
	XWORDCNT(I)=CHNLTBL[I,1]$;

BIND	XSINSIZ = 128,
	XSOUTSIZ = 512;


% BEFORE MESSING ABOUT WITH THESE FLAGS CHECK USAGE IN COMMAN.MAC %

MACRO	FOUNDFLG=	35,1$,	WARNGERR=	17,1$,
	TTYDEV=	34,1$,	ENDFILE=	16,1$,
	NOWARNING=	33,1$,	DBGDIMN=	15,1$,	%DEBUG:DIMENSIONS%
				DBGDIMNBR = 15$,
	BLKDATA=	32,1$,	INIOLIST=	14,1$,
	LIBARITH=	31,1$,	OBJECT=	13,1$,
	BOUNDS=	30,1$,	ININCLUD=	12,1$,
	DBGBOUNBR = 30$,	%DEBUG:BOUNDS%
			KA10=	11,1$,
	PROGTYP=	28,2$,	LISTING= 10,1$,
		MAPROG = 0$,
		FNPROG = 1$,
		SUPROG = 2$,
		BKPROG = 3$,
	LABLDUM=	27,1$,	DBGINDX=	9,1$,	%DEBUG:INDEX%
				DBGINDXBR = 9$,
		% LABLDUM INDICATES THAT THERE ARE LABEL FORMAL ARGUMENTS TO A FUNCTION OR SUBROUTINE %
	FATALERR=	26,1$,	DBGLABL=	8,1$,	%DEBUG:LABELS%
				DBGLABLBR = 8$,
%[677]%				EOCS=	7,1$,
	BTTMSTFL=	24,1$,	CROSSREF=	6,1$,
	CKA10=	23,1$,	DBGTRAC=	5,1$,	%DEBUG:TRACE%
			DBGTRACBR = 5$,
	SYNONLY=	22,1$,	EXPAND=	4,1$,
	ERRSW=	21,1$,	INCLUDE=	3,1$,
	MULTENT=	20,1$,	MACROCODE=	2,1$,
		% MULTENT INDICATES THAT THERE ARE MULTIPLE ENTRY POINTS %
	MAPFLG=	19,1$,	NOERRORS=	1,1$,
	FELFLG=	18,1$,	OPTIMIZE=	0,1$;
	BIND FLGREG=0;	!NEEDED FOR BETTER CODE


	EXTERNAL  FLAGS2;	!SECONDARY FLAGREGISTER

	MACRO
		TTYINPUT = 35,1 $,	!INPUT DEVICE IS A TTY
		GFMCOK	= 34,1 $;	!GFLOATING MICROCODE PRESENT

	EXTERNAL F2;		![767]SECONDARY SWITCH REGISTER -
				![767]USED TO HOLD USER SETTABLE SWITCHES

	MACRO
		GFL	= 35,1 $,	![767] USE GFLOATING DP
		F77FL	= 34,1 $,	![767] USE F77 STANDARD
		F77	= .F2<F77FL> $,	![767] FOR EASE OF USE IN THE COMPILER
		F66	= NOT .F2<F77FL> $,	![767] DITTO
%1133%		STA	= 33,1 $;	! STATISTICS


% MACROS WHICH REFERENCE THE STATEMENT DESCRIPTION BLOCK
  GIVEN THE ADDRESS OF IT.  THE ADDRESS IS NORMALLY IN STMNDESC  %

	MACRO	STMNROUTINE ( DESC )  = ( DESC ) <RIGHT>  $ ,	! ROUTINE ADDRESS
		KEYWRD (DESC)  =  ( DESC + 1 )  $,	! KEY WORD, TERMINATED BY ZERO, PRECEEDED BY A BLANK
		ORDERCODE (DESC) = ( DESC  )<18,4>  $,	! STATEMENT ORDER CODE
		BADIFOBJ ( DESC )  =  (DESC ) <22,1> $,	! IF SET THIS STATEMENT CANNOT
							! BE THE OBJECT OF A LOGICAL IF
		BADOTERM(DESC)  =  (DESC) <23,1> $,	! IF SET THIS STATEMENT CANNOT
							! TERMINATE A DO LOOP
		LABOK(DESC) = (DESC)<24,2>  $,		! IF SET TO 0 THIS STATEMENT MAY HAVE A LABEL
							! IF SET TO 1 IT MAY NOT BE LABLED
							! IF SET T0 2  PROCESSING IS DELAYED UNTIL SEMANTICS

		SYNOW(DESC) =  (DESC)<26,9>  $;		! IF NON-ZERO SYNTAX FOR THE STATEMENT
							! CAN BE EXECUTED IN THE DRIVER
							! BEFORE CALLING THE SEMANTIC ROUTINE.
							! THE CONTENTS OF THE FIELD CONTAIN THE SYNTAX
							! TABLE ENTRY POINT INDEX