.TITLE	GLOBAL_DATA TABLE
	.ENABLE	DEBUG
	.SUBTITLE	IMPURE GLOBAL DATA STORAGE
	.PSECT	IMPURE_DATA,RD,WRT,NOSHR,NOEXE,LONG,GBL,CON
PROGRAM_FLAG::
	.LONG	0
FLAG_WORD::	.LONG	0	;OPTIONS FLAG WORD-SEE OPENCLOSE FOR BIT
				;ASSIGNMENTS
STATUS_WORD::	.LONG	0	;PROGRAM STATUS WORD
	PARSE_LINES	==^X1
	INDEX_OUTPUT	==^X2
	SUPER_OUTPUT	==^X3
	ENTRY_OUTPUT	==^X4
	STAT_OUTPUT	==^X5
	OPTIONS_OUTPUT	==^X6
	CALLING_OUTPUT	==^X7
	CALLED_BY_OUTPUT==^X8
	FLOW_CHART_OUTPUT==^X9                                                  ;V1.4
INPUT_BUFFER_FLAG::	.LONG	0	;FLAG TO SEE IF INPUT BUFFER HOLDS
				;LINE OVER FROM PREVOIUS GET_LINE CALLS
INPUT_BUFFER::	.BLKB	132.	;READ RECORD BUFFER
OUTPUT_BUFFER::	.BLKB	132.	;WRITE RECORD BUFFER
SUPER_BUFFER::	.BLKB	132.
ENTRY_BUFFER::	.BLKB	132.
SOURCE_LINE::	.REPT	100	;LINE BEING PARSED
		.LONG	0	;LINE NUMBER OF CURRENT LINE/CONTINUATION
		.BLKB	132.	;THE LINE ITSELF
		.ENDR
		.LONG	0	;END OF BUFFER MARKER
DAY_TIME::	.ASCID	/                            /
LINES_ON_PAGE::	.LONG	0
LINE_NUMBER::	.LONG	0
PAGE_NUMBER::	.LONG	0
LINES_PER_PAGE::.LONG	0
END_OF_FILE::	.LONG	0
DEFFERED_END_OF_FILE::
		.LONG	0
END_FLAG::	.LONG	0
INCLUDE_LEVEL::	.LONG	0
MODULE_MESSAGE::.ASCII	/Completed Module /
MODULE_NAME::	.BLKB	31
LINE_MNEMONIC::	.BLKB	31
LOGICAL_IF_MNEMONIC::
		.BLKB	31
EVALUATION_ROUTINE_TOKEN::	.LONG	0
LOGICAL_IF_ROUTINE_TOKEN::	.LONG	0
PROGRAM_LEVEL::	.LONG	0
;
;	SHOWS WHAT TYPES OF STATEMENTS ARE ALLOWED AT CURREN PART OF PROGRAM
;	A STATMENT TYPE HAVEING A NUMBER LOWER THAN THE CURENT LEVEL
;	IS ILLEGAL IN THAT CONTEXT
;	LEVEL=0		OPTIONS INCLUDE
;	LEVEL=1		PROGRAM FUNCTION SUBROUTINE BLOCKDATA INCLUDE
;	LEVEL=2		IMPLICIT_NONE NAMELIST FORMAT ENTRY INCLUDE
;	LEVEL=3		IMPLICIT PARAMETER NAMELIST FORMAT ENTRY INCLUDE
;	LEVEL=4		PARAMETER TYPE SPECIFICATION DATA NAMELIST FORMAT
;			ENTRY INCLUDE PARAMETER
;	LEVEL=5		STATEMENT_FUNCTIONS DATA NAMELIST FORMAT ENTRY INCLUDE
;	LEVEL=6		EXECUTABLE DATA NAMELIST FORMAT ENTRY INCLUDE
;	LEVEL=7		END
;
BLOCK_DATA_FLAG::
	.LONG	0	;SET IF CURRENT MODULE IS A BLOCK DATA
	.PAGE
	.SUBTITLE	IMPURE AREA-STATISTICS ACCUMULATION AREA                ;V1.4
;	TIMES                                                                   ;V1.4
TIME_COMMAND::                                                                  ;V1.4
	.BLKQ	1	;ELAPSED TIME                                           ;V1.4
	.LONG	0	;CPU TIME                                               ;V1.4
	.LONG	0	;BUFFERED I/O COUNT                                     ;V1.4
	.LONG	0	;DIRECT I/O COUNT                                       ;V1.4
	.LONG	0	;PAGE FAULT COUNT                                       ;V1.4
TIME_PARSE::                                                                    ;V1.4
	.BLKQ	1	;ELAPSED TIME                                           ;V1.4
	.LONG	0	;CPU TIME                                               ;V1.4
	.LONG	0	;BUFFERED I/O COUNT                                     ;V1.4
	.LONG	0	;DIRECT I/O COUNT                                       ;V1.4
	.LONG	0	;PAGE FAULT COUNT                                       ;V1.4
TIME_OUTPUT::                                                                   ;V1.4
	.BLKQ	1	;ELAPSED TIME                                           ;V1.4
	.LONG	0	;CPU TIME                                               ;V1.4
	.LONG	0	;BUFFERED I/O COUNT                                     ;V1.4
	.LONG	0	;DIRECT I/O COUNT                                       ;V1.4
	.LONG	0	;PAGE FAULT COUNT                                       ;V1.4
TIME_CLEANUP::                                                                  ;V1.4
	.BLKQ	1	;ELAPSED TIME                                           ;V1.4
	.LONG	0	;CPU TIME                                               ;V1.4
	.LONG	0	;BUFFERED I/O COUNT                                     ;V1.4
	.LONG	0	;DIRECT I/O COUNT                                       ;V1.4
	.LONG	0	;PAGE FAULT COUNT                                       ;V1.4
TIME_TOTAL::                                                                    ;V1.4
	.BLKQ	1	;ELAPSED TIME                                           ;V1.4
	.LONG	0	;CPU TIME                                               ;V1.4
	.LONG	0	;BUFFERED I/O COUNT                                     ;V1.4
	.LONG	0	;DIRECT I/O COUNT                                       ;V1.4
	.LONG	0	;PAGE FAULT COUNT                                       ;V1.4
SYMBOLS_PROCESSED::                                                             ;V1.4
	.LONG	0                                                               ;V1.4
HOW_USED_PROCESSED::                                                            ;V1.4
	.LONG	0                                                               ;V1.4
SAVE_SUPER::                                                                    ;V1.4
	.LONG	0                                                               ;V1.4
SAVE_ENTRY::                                                                    ;V1.4
	.LONG	0                                                               ;V1.4
ELEMENT_64::                                                                    ;V1.4
	.LONG	0	;ALLOCATED                                              ;V1.4
	.LONG	0	;INUSE                                                  ;V1.4
	.LONG	0                                                               ;V1.4
	.LONG	0                                                               ;V1.4
ELEMENT_128::                                                                   ;V1.4
	.LONG	0	;ALLOCATED                                              ;V1.4
	.LONG	0	;INUSE                                                  ;V1.4
	.LONG	0                                                               ;V1.4
	.LONG	0                                                               ;V1.4
ELEMENT_192::                                                                   ;V1.4
	.LONG	0	;ALLOCATED                                              ;V1.4
	.LONG	0	;INUSE                                                  ;V1.4
	.LONG	0                                                               ;V1.4
	.LONG	0                                                               ;V1.4
ELEMENT_256::                                                                   ;V1.4
	.LONG	0	;ALLOCATED                                              ;V1.4
	.LONG	0	;INUSE                                                  ;V1.4
	.LONG	0                                                               ;V1.4
	.LONG	0                                                               ;V1.4
ELEMENT_LARGE::                                                                 ;V1.4
	.LONG	0	;ALLOCATED                                              ;V1.4
	.LONG	0	;INUSE                                                  ;V1.4
	.LONG	0                                                               ;V1.4
	.LONG	0                                                               ;V1.4
ALLOCATE_VM::                                                                   ;V1.4
	.LONG	0                                                               ;V1.4
FREE_VM::                                                                       ;V1.4
	.LONG	0                                                               ;V1.4
VM_INUSE::                                                                      ;V1.4
	.LONG	0                                                               ;V1.4
	.PAGE                                                                   ;V1.4
	.SUBTITLE	PURE GLOBAL DATA STORAGE
	.PSECT	PURE_DATA,RD,NOWRT,SHR,NOEXE,CON,GBL
NULL::	.LONG	0		;NO-ARGUMENTS PROCEDURE CALL ARGUMENT BLOCK
DEFAULT_NAME::
	.ASCII	/MAIN/
J=.-DEFAULT_NAME
K=31-J
	.REPEAT	K
	.BYTE	0
	.ENDR
TRANSLATE_LC_TO_UC::
	.REPEAT	2
	J=0
	.REPEAT	97
	.BYTE	J
	J=J+1
	.ENDR
	K=65
	.REPEAT	26
	.BYTE	K
	K=K+1
	J=J+1
	.ENDR
	.REPEAT	5
	.BYTE	J
	J=J+1
	.ENDR
	.ENDR
	.PAGE
	.SUBTITLE	SYMBOL TABLE MANAGEMENT DATA
	.PSECT	IMPURE_DATA,RD,WRT,NOSHR,NOEXE,LONG,GBL,CON
	.ALIGN	LONG
SYMBOL_TABLE_QUEUE::
	.ADDRESS	SYMBOL_TABLE_QUEUE,SYMBOL_TABLE_QUEUE
LINE_TOKEN_QUEUE::
	.ADDRESS	LINE_TOKEN_QUEUE,LINE_TOKEN_QUEUE
IF_TOKEN_QUEUE::
	.ADDRESS	IF_TOKEN_QUEUE,IF_TOKEN_QUEUE
	.PAGE
	.SUBTITLE	INCLUDE PUSH DOWN STACK
INCLUDE_STACK::
	.ADDRESS	INCLUDE_STACK_LEVEL_0
	.ADDRESS	INCLUDE_STACK_LEVEL_1
	.ADDRESS	INCLUDE_STACK_LEVEL_2
	.ADDRESS	INCLUDE_STACK_LEVEL_3
	.ADDRESS	INCLUDE_STACK_LEVEL_4
	.ADDRESS	INCLUDE_STACK_LEVEL_5
	.ADDRESS	INCLUDE_STACK_LEVEL_6
	.ADDRESS	INCLUDE_STACK_LEVEL_7
	.ADDRESS	INCLUDE_STACK_LEVEL_8
	.ADDRESS	INCLUDE_STACK_LEVEL_9
	.ADDRESS	INCLUDE_STACK_LEVEL_10
	.ADDRESS	INCLUDE_STACK_LEVEL_11
	.MACRO	I_LEVEL	N
	.ALIGN	LONG
INCLUDE_STACK_LEVEL_'N':
XXX=.
INCLUDE_TYPE==.-XXX
	.BYTE	0	;TYPE FLAG
			;0=ORDINARY FILE
			;1=LIBRARY FILE
INCLUDE_DEFFERED_EOF==.-XXX
	.BYTE	0	;OLD DEFFERED EOF
INCLUDE_INPUT_BUFFER_FLAG==.-XXX
	.BYTE	0	;OLD INPUT BUFFER FLAG
INCLUDE_LIST==.-XXX
	.BYTE	0	;NO SOURCE FLAG
INCLUDE_INPUT_BUFFER==.-XXX
	.BLKB	132.
	.ALIGN	LONG
INCLUDE_FAB==.-XXX
	$FAB
	.ALIGN	LONG
INCLUDE_RAB==.-XXX
	$RAB
INCLUDE_INDEX==.-XXX
	.LONG	0
INCLUDE_RFA==.-XXX
	.LONG	0,0
INCLUDE_LENGTH==.-XXX
	.ENDM
	I_LEVEL	0	;MAIN LINE INPUT FILE
	I_LEVEL	1
	I_LEVEL	2
	I_LEVEL	3
	I_LEVEL	4
	I_LEVEL	5
	I_LEVEL	6
	I_LEVEL	7
	I_LEVEL	8
	I_LEVEL	9
	I_LEVEL	10
	I_LEVEL	11
IN_RAB==INCLUDE_STACK_LEVEL_0+INCLUDE_RAB
IN_FILE==INCLUDE_STACK_LEVEL_0+INCLUDE_FAB
	.PAGE
	.SUBTITLE	KEY_WORD/DISPACTCH/SYMBOL TABLES FOR FORTRAN LINE TYPES
;
;	TABLE OF KEY WORDS, EACH ENTRY IS IN THE FOLLOWING FORMAT
;	.WORD	LENGTH IN BYTES OF KEY WORD
;	.WORD	TOKEN FOR THAT KEY WORD
;	.ADDRESS	STARTING ADDRESS OF KEY WORD
;
	.MACRO	LABGEN	X
	NAME_'X':
	.ENDM
	.MACRO	ADDRGEN X
	.ADDRESS	NAME_'X
	.ENDM
	.MACRO	ENTER	KEY_WORD,TOKEN_NAME,LABEL
	.PSECT	KEY_WORD_POINTER_TABLE
	.IF	B	LABEL
		.IF	NB	TOKEN_NAME
			TOKEN_'TOKEN_NAME'==COUNT_KEY_WORDS
		.IF_FALSE
			TOKEN_'KEY_WORD'==COUNT_KEY_WORDS
		.ENDC
	.IF_FALSE
EVAL_'LABEL'::
TOKEN_EVAL_'LABEL'==COUNT_KEY_WORDS
	.ENDC
	.WORD	%LENGTH(KEY_WORD),COUNT_KEY_WORDS
	ADDRGEN	\COUNT_KEY_WORDS
	.PSECT	KEY_WORDS
	LABGEN	\COUNT_KEY_WORDS
	.ASCII	/'KEY_WORD'/
COUNT_KEY_WORDS=COUNT_KEY_WORDS+1
	.ENDM	ENTER
	.PSECT	KEY_WORDS,RD,NOWRT,SHR,NOEXE,GBL,CON
	.PSECT	KEY_WORD_POINTER_TABLE,RD,NOWRT,SHR,NOEXE,GBL,CON
	;TOKEN=0 IS ARITHMETIC STATEMENT
	;TOKEN=-1 IS ERROR ROUTINE
TOKEN_ERROR==-1
TOKEN_ARITHMETIC==0
;OTHER THAN KEY WORD FORTRAN NAMES ARE ASSIGNED FROM 999 DOWN
TOKEN_IDENTIFIER	==999
TOKEN_WHILE		==998
TOKEN_THEN		==997
TOKEN_TO		==996
TOKEN_END_OF_LINE	==995
TOKEN_LABEL		==994
TOKEN_NUMBER		==993
TOKEN_HOLLERITH_STRING	==992
TOKEN_QUOTED_STRING	==991
TOKEN_UNKNOWN_CHR	==990
TOKEN_RADIX50_STRING	==989
TOKEN_OCTAL_NUMBER	==988
TOKEN_HEX_NUMBER	==987
TOKEN_U			==986
TOKEN_PCT_VAL		==985
TOKEN_PCT_REF		==984
TOKEN_PCT_DESCR		==983
TOKEN_PCT_LOC		==982
;	PART ONE OF TABLE  TOKENS 1-900 ARE THE BASIC FORTRAN KEY WORDS
;	WITH 900-999 BEING SPECIAL 3RD OR 4TH WORDS AS IN "IF  THEN" ETC
;
	.PSECT	KEY_WORD_POINTER_TABLE
KEY_WORD_TABLE::
COUNT_KEY_WORDS=1
	ENTER	ACCEPT
	ENTER	ASSIGN
	ENTER	BACKSPACE
	ENTER	BLOCKDATA
	ENTER	BYTE
	ENTER	CALL
	ENTER	CHARACTER
	ENTER	CLOSE
	ENTER	COMMON
	ENTER	COMPLEX
	ENTER	CONTINUE
	ENTER	DATA
	ENTER	DECODE
	ENTER	DEFINEFILE
	ENTER	DELETE
	ENTER	DIMENSION
	ENTER	DOUBLECOMPLEX
	ENTER	DOUBLEPRECISION
	ENTER	DO
	ENTER	ELSEIF
	ENTER	ELSE	;MUST FOLLOW ELSEIF
	ENTER	ENCODE
	ENTER	ENDDO
	ENTER	ENDFILE
	ENTER	ENDIF
	ENTER	END		;THIS MUST FOLLOW ALL OTHER ENDxxx TO WORK PROPERLY
	ENTER	ENTRY
	ENTER	EQUIVALENCE
	ENTER	EXTERNAL
	ENTER	FIND
	ENTER	FORMAT
	ENTER	FUNCTION
	ENTER	GOTO
	ENTER	IF
	ENTER	IMPLICITNONE
	ENTER	IMPLICIT	;MUST FOLLOW IMPLICIT NONE
	ENTER	INCLUDE
	ENTER	INTEGER
	ENTER	INTRINSIC
	ENTER	INQUIRE
	ENTER	LOGICAL
	ENTER	NAMELIST
	ENTER	OPEN
	ENTER	OPTIONS
	ENTER	PARAMETER
	ENTER	PAUSE
	ENTER	PRINT
	ENTER	PROGRAM
	ENTER	READ
	ENTER	REAL
	ENTER	RETURN
	ENTER	REWIND
	ENTER	REWRITE
	ENTER	SAVE
	ENTER	STOP
	ENTER	SUBROUTINE
	ENTER	TYPE
	ENTER	UNLOCK
	ENTER	VIRTUAL
	ENTER	WRITE
NUMBER_OF_KEY_WORDS==COUNT_KEY_WORDS-1
	.PAGE
	.SUBTITLE	MULTIPLE CHARACTER TOKENS
;	PART TWO OF TABLE IS THE SET OF MULTIPLE CHARACTERS
;	TOKENS 1000 TO 1999
	.PSECT	KEY_WORD_POINTER_TABLE
COUNT_KEY_WORDS=1000
MULTI_CHARACTER_TABLE::
;	ENTER	<//>,CONCATENATE
	.ENABLE	LOCAL_BLOCK
		TOKEN_CONCATENATE==COUNT_KEY_WORDS
	.PSECT	KEY_WORD_POINTER_TABLE
	.WORD	2,COUNT_KEY_WORDS
	.ADDRESS	1$
	.PSECT	KEY_WORDS
1$:	.ASCII	?//?
COUNT_KEY_WORDS=COUNT_KEY_WORDS+1
	.DISABLE	LOCAL_BLOCK
	ENTER	<*16>,HEX_BYTES
	ENTER	<*8>,OCTAL_BYTES
	ENTER	<*4>,FOUR_BYTES
	ENTER	<*2>,TWO_BYTES
	ENTER	<*1>,ONE_BYTE
	ENTER	<**>,EXPONENTIATION
	ENTER	<*(*)>,PASSED_LENGTH
NUMBER_OF_MULTI_CHARACTERS==COUNT_KEY_WORDS-1000
	.PAGE
	.SUBTITLE	SINGLE CHARACTER TOKENS
;	PART 3 OF TABLE IS THE SET OF SINGLE CHARACTERS
;	TOKENS 2000-2999
	.PSECT	KEY_WORD_POINTER_TABLE
SINGLE_CHARACTER_TABLE::
COUNT_KEY_WORDS=2000
	ENTER	<!>,EXCLAMATION
	ENTER	<*>,ASTERISK
	ENTER	<(>,LEFT_PARREN
	ENTER	<)>,RIGHT_PARREN
	ENTER	<=>,EQUAL
	.ENABLE	LOCAL_BLOCK
		TOKEN_SLASH==COUNT_KEY_WORDS
	.PSECT	KEY_WORD_POINTER_TABLE
	.WORD	1,COUNT_KEY_WORDS
	.ADDRESS	1$
	.PSECT	KEY_WORDS
1$:	.ASCII	?/?
COUNT_KEY_WORDS=COUNT_KEY_WORDS+1
	.DISABLE	LOCAL_BLOCK
;	ENTER	</>,SLASH
TOKEN_DIVIDE==TOKEN_SLASH
	ENTER	<,>,COMMA
	ENTER	<$>,DOLLAR
	ENTER	<_>,UNDER_SCORE
	ENTER	<'>,QUOTE
	ENTER	<">,DOUBLE_QUOTE
	ENTER	<+>,PLUSS
	ENTER	<->,MINUS
	ENTER	<:>,COLON
	ENTER	^%<%,LEFT_ANGLE
	ENTER	^%>%,RIGHT_ANGLE
	ENTER	<%>,PERCENT
	ENTER	<&>,AMPERSAND
	ENTER	<.>,POINT
NUMBER_OF_SINGLE_CHARACTERS==COUNT_KEY_WORDS-2000
	.PAGE
	.SUBTITLE	LOGICAL OPERATOR TOKENS
;	PART FOUR IS THE TABLE OF LOGICAL OPERATORS
	.PSECT	KEY_WORD_POINTER_TABLE
LOGICAL_TABLE::
COUNT_KEY_WORDS=3000
	ENTER	<.GE.>,GE
	ENTER	<.GT.>,GT
	ENTER	<.LT.>,LT
	ENTER	<.LE.>,LE
	ENTER	<.EQ.>,EQ
	ENTER	<.NE.>,NE
	ENTER	<.NOT.>,NOT
	ENTER	<.AND.>,AND
	ENTER	<.OR.>,OR
	ENTER	<.EQV.>,EQV
	ENTER	<.NEQV.>,NEQV
	ENTER	<.XOR.>,XOR
	ENTER	<.TRUE.>,TRUE
	ENTER	<.FALSE.>,FALSE
NUMBER_OF_LOGICAL==COUNT_KEY_WORDS-3000
	.PAGE
	.SUBTITLE	I/O OPERATION TOKENS
;	PART FIVE IS THE TABLE OF I/O UNIQUE KEY WORDS
	.PSECT	KEY_WORD_POINTER_TABLE
IO_TABLE::
COUNT_KEY_WORDS=4000
	ENTER	<ACCESS=>,ACCESS
	ENTER	<ASSOCIATEVARIABLE=>ASSOCIATEVARIABLE
	ENTER	<BLANK=>,BLANK
	ENTER	<BLOCKSIZE=>,BLOCKSIZE
	ENTER	<BUFFERCOUNT=>,BUFFERCOUNT
	ENTER	<CARRIAGECONTROL=>,CARRIAGECONTROL
	ENTER	<DEFAULTFILE=>,DEFAULTFILE
	ENTER	<DIRECT=>,DIRECT
	ENTER	<DISP=>,DISP
	ENTER	<DISPOSE=>,DISPOSE
	ENTER	<END=>,END_EQUAL
	ENTER	<ERR=>ERR
	ENTER	<EXIST=>,EXIST
	ENTER	<EXTENDSIZE=>,EXTENDSIZE
	ENTER	<FILE=>,FILE
	ENTER	<FMT=>,FMT
	ENTER	<FORM=>,FORM
	ENTER	<FORMATTED=>,FORMATTED
	ENTER	<INITIALSIZE=>,INITIALSIZE
	ENTER	<IOSTAT=>,IOSTAT
	ENTER	<KEY=>,KEY
	ENTER	<KEYED=>,KEYED
	ENTER	<KEYEQ=>,KEYEQ
	ENTER	<KEYGE=>,KEYGE
	ENTER	<KEYGT=>,KEYGT
	ENTER	<KEYID=>,KEYID
	ENTER	<MAXREC=>,MAXREC
	ENTER	<NAME=>,NAME
	ENTER	<NAMED=>,NAMED
	ENTER	<NEXTREC=>,NEXTREC
	ENTER	<NML=>,NML
	ENTER	NOSPANBLOCKS
	ENTER	<NUMBER=>,NUMBER_EQUAL
	ENTER	<OPENED=>,OPENED
	ENTER	<ORGANIZATION=>,ORGANIZATION
	ENTER	READONLY
	ENTER	<REC=>,REC
	ENTER	<RECL=>,RECL
	ENTER	<RECORDTYPE=>,RECORDTYPE
	ENTER	<RECORDSIZE=>,RECORDSIZE
	ENTER	SHARED
	ENTER	<SEQUENTIAL=>,SEQUENTIAL
	ENTER	<STATUS=>,STATUS
	ENTER	<TYPE=>,TYPE_EQUAL
	ENTER	<UNIT=>,UNIT
	ENTER	<UNFORMATTED=>,UNFORMATTED
	ENTER	<USEROPEN=>,USEROPEN
NUMBER_OF_IO==COUNT_KEY_WORDS-4000
	.PAGE
	.SUBTITLE	EVALUATION ROUTINES TOKENS AND LINE MNEMONICS
	.PSECT	KEY_WORD_POINTER_TABLE
MNEMONIC_POINTER_TABLE::
COUNT_KEY_WORDS=5000
	ENTER	ACCEPT,,ACCEPT
	ENTER	ASSIGN,,ASSIGN
	ENTER	ASSIGNED_VALUE,,ARITH
	ENTER	BACKSPACE,,BACKSPACE
	ENTER	BLOCK_DATA,,BLOCKDATA
	ENTER	BYTE,,BYTE
	ENTER	BYTE_FUNCTION,,BYTE_FUNCTION
	ENTER	CALL,,CALL
	ENTER	CALLED_BY_ARG,,CALLED_BY_ARG
	ENTER	CALLING_ARG,,CALLING_ARG
	ENTER	CHARACTER,,CHARACTER
	ENTER	CHARACTER_FUNCTION,,CHARACTER_FUNCTION
	ENTER	CLOSE,,CLOSE
	ENTER	COMMON,,COMMON
	ENTER	COMMON_NAME,,COMMON_NAME
	ENTER	COMPLEX,,COMPLEX
	ENTER	COMPLEX_FUNCTION,,COMPLEX_FUNCTION
	ENTER	CONTINUE,,CONTINUE
	ENTER	DATA,,DATA
	ENTER	DECODE,,DECODE
	ENTER	DEFINE_FILE,,DEFINEFILE
	ENTER	DELETE,,DELETE_COMPLEX
	ENTER	DIMENSION,,DIMENSION
	ENTER	DO,,DO
	ENTER	DOUBLE_PRECISION,,DOUBLE_PRECISION
	ENTER	DOUBLE_PRECISION_FUNCTION,,DOUBLE_PRECISION_FN
	ENTER	DOUBLE_COMPLEX,,DOUBLE_COMPLEX
	ENTER	DOUBLE_COMPLEX_FUNCTION, ,DOUBLE_CPLX_FUNCTION
	ENTER	EQUIVALENCE,,EQUIVALENCE
	ENTER	ELSE,,ELSE
	ENTER	ELSEIF,,ELSEIF
	ENTER	ENCODE,,ENCODE
	ENTER	END,,END
	ENTER	ENDDO,,ENDDO
	ENTER	ENDFILE,,ENDFILE
	ENTER	ENDIF,,ENDIF
	ENTER	ENTRY,,ENTRY
	ENTER	ERROR,,ERROR
	ENTER	EXTERNAL,,EXTERNAL
	ENTER	FORMAT,,FORMAT
	ENTER	FIND,,FIND_COMPLEX
	ENTER	FUNCTION,,FUNCTION
	ENTER	GOTO,,GOTO
	ENTER	IF,,IF
	ENTER	INQUIRE,,INQUIRE
	ENTER	IMPLICITNONE,,IMPLICITNONE
	ENTER	IMPLICIT,,IMPLICIT
	ENTER	INCLUDE,,INCLUDE
	ENTER	INTEGER,,INTEGER
	ENTER	INTEGER_FUNCTION,,INTEGER_FUNCTION
	ENTER	INTRINSIC,,INTRINSIC
	ENTER	LABEL_DEFINED,,LABEL
	ENTER	LOCAL_FUNCTION,,LOCAL_FUNCTION
	ENTER	LOGICAL,,LOGICAL
	ENTER	LOGICAL_FUNCTION,,LOGICAL_FUNCTION
	ENTER	NAMELIST,,NAMELIST
	ENTER	NAMELIST_NAME,,NAMELIST_NAME
	ENTER	OPEN,,OPEN
	ENTER	OPTION,,OPTION
	ENTER	PARAMETER,,PARAMETER
	ENTER	PAUSE,,PAUSE
	ENTER	PRINT,,PRINT
	ENTER	PROGRAM,,PROGRAM
	ENTER	QUAD,,QUAD
	ENTER	QUAD_FUNCTION,,QUAD_FUNCTION
	ENTER	READ,,READ_SIMPLE
	ENTER	READ,,READ_COMPLEX
	ENTER	REAL,,REAL
	ENTER	REAL_FUNCTION,,REAL_FUNCTION
	ENTER	REWRITE,,REWRITE_COMPLEX
	ENTER	RETURN,,RETURN
	ENTER	REWIND,,REWIND
	ENTER	SAVE,,SAVE
	ENTER	STOP,,STOP
	ENTER	SUBROUTINE,,SUBROUTINE
	ENTER	TYPE,,TYPE
	ENTER	UNLOCK,,UNLOCK
	ENTER	USED,,USED
	ENTER	VIRTUAL,,VIRTUAL
	ENTER	WRITE,,WRITE_SIMPLE
	ENTER	WRITE,,WRITE_COMPLEX
NUMBER_OF_EVAL==COUNT_KEY_WORDS-5000
	.PAGE
	.SUBTITLE	LIBRARY ROUTINE NAMES
	.PSECT	KEY_WORD_POINTER_TABLE
LIBRARY_POINTER_TABLE::
COUNT_KEY_WORDS=6000
	ENTER	SQRT
	ENTER	DSQRT
	ENTER	QSQRT
	ENTER	CSQRT
	ENTER	CDSQRT
	ENTER	LOG
	ENTER	ALOG
	ENTER	DLOG
	ENTER	QLOG
	ENTER	CLOG
	ENTER	CDLOG
	ENTER	LOG10
	ENTER	ALOG10
	ENTER	DLOG10
	ENTER	QLOG10
	ENTER	EXP
	ENTER	DEXP
	ENTER	QEXP
	ENTER	CEXP
	ENTER	CDEXP
	ENTER	SIN
	ENTER	DSIN
	ENTER	QSIN
	ENTER	CSIN
	ENTER	CDSIN
	ENTER	SIND
	ENTER	DSIND
	ENTER	QSIND
	ENTER	COS
	ENTER	DCOS
	ENTER	QCOS
	ENTER	CCOS
	ENTER	CDCOS
	ENTER	COSD
	ENTER	DCOSD
	ENTER	QCOSD
	ENTER	TAN
	ENTER	DTAN
	ENTER	QTAN
	ENTER	TAND
	ENTER	DTAND
	ENTER	QTAND
	ENTER	ASIN
	ENTER	DASIN
	ENTER	QASIN
	ENTER	ASIND
	ENTER	DASIND
	ENTER	QASIND
	ENTER	ACOS
	ENTER	DACOS
	ENTER	QACOS
	ENTER	ACOSD
	ENTER	DACOSD
	ENTER	QACOSD
	ENTER	ATAN
	ENTER	DATAN
	ENTER	QATAN
	ENTER	ATAND
	ENTER	DATAND
	ENTER	QATAND
	ENTER	ATAN2
	ENTER	DATAN2
	ENTER	QATAN2
	ENTER	ATAN2D
	ENTER	DATAN2D
	ENTER	QATAN2D
	ENTER	SINH
	ENTER	DSINH
	ENTER	QSINH
	ENTER	COSH
	ENTER	DCOSH
	ENTER	QCOSH
	ENTER	TANH
	ENTER	DTANH
	ENTER	QTANH
	ENTER	ABS
	ENTER	IIABS
	ENTER	JIABS
	ENTER	DABS
	ENTER	CABS
	ENTER	CDABS
	ENTER	IABS
	ENTER	IIABS
	ENTER	JIABS
	ENTER	INT
	ENTER	IINT
	ENTER	JINT
	ENTER	IIDINT
	ENTER	JIDINT
	ENTER	IIQINT
	ENTER	JIQINT
	ENTER	IDINT
	ENTER	IIDINT
	ENTER	JIDINT
	ENTER	IQINT
	ENTER	IIQINT
	ENTER	JIQINT
	ENTER	AINT
	ENTER	DINT
	ENTER	QINT
	ENTER	NINT
	ENTER	ININT
	ENTER	JNINIT
	ENTER	IIDNNT
	ENTER	JIDNNT
	ENTER	IIQNNT
	ENTER	JIQNNT
	ENTER	IDNINT
	ENTER	IIDNNT
	ENTER	JIDNNT
	ENTER	IQNINT
	ENTER	IIQNNT
	ENTER	JIQNNT
	ENTER	ANINT
	ENTER	DNINT
	ENTER	QNINT
	ENTER	ZEXT
	ENTER	IZEXT
	ENTER	JZEXT
	ENTER	REAL
	ENTER	FLOATI
	ENTER	FLOATJ
	ENTER	SNGL
	ENTER	SNGLQ
	ENTER	DBLE
	ENTER	DBLEQ
	ENTER	QEXT
	ENTER	QEXTD
	ENTER	IFIX
	ENTER	IIFIX
	ENTER	JIFIX
	ENTER	FLOAT
	ENTER	FLOATI
	ENTER	FLOATJ
	ENTER	DFLOAT
	ENTER	DFLOATI
	ENTER	DFLOATJ
	ENTER	QFLOAT
	ENTER	CMPLX
	ENTER	DCMPLX
	ENTER	REAL
	ENTER	DREAL
	ENTER	AIMAG
	ENTER	DIMAG
	ENTER	CONJG
	ENTER	DCONJG
	ENTER	DPROD
	ENTER	MAX
	ENTER	IMAX0
	ENTER	JMAX0
	ENTER	AMAX1
	ENTER	DMAX1
	ENTER	QMAX1
	ENTER	MAX0
	ENTER	IMAX0
	ENTER	JMAX0
	ENTER	MAX1
	ENTER	IMAX1
	ENTER	JMAX1
	ENTER	AMAX0
	ENTER	AIMAX0
	ENTER	AJMAX0
	ENTER	MIN
	ENTER	IMIN0
	ENTER	JMIN0
	ENTER	AMIN1
	ENTER	DMIN1
	ENTER	QMIN1
	ENTER	MIN0
	ENTER	IMIN0
	ENTER	JMIN0
	ENTER	MIN1
	ENTER	IMIN1
	ENTER	JMIN1
	ENTER	AMIN0
	ENTER	AIMIN0
	ENTER	AJMIN0
	ENTER	DIM
	ENTER	IIDIM
	ENTER	JIDIM
	ENTER	DDIM
	ENTER	QDIM
	ENTER	IDIM
	ENTER	IIDIM
	ENTER	JIDIM
	ENTER	MOD
	ENTER	IMOD
	ENTER	JMOD
	ENTER	AMOD
	ENTER	DMOD
	ENTER	QMOD
	ENTER	SIGN
	ENTER	IISIGN
	ENTER	JISIGN
	ENTER	DSIGN
	ENTER	QSIGN
	ENTER	ISIGN
	ENTER	IAND
	ENTER	IIAND
	ENTER	JIAND
	ENTER	IOR
	ENTER	IIOR
	ENTER	JIOR
	ENTER	IEOR
	ENTER	IIEOR
	ENTER	JIEOR
	ENTER	NOT
	ENTER	INOT
	ENTER	JNOT
	ENTER	ISHFT
	ENTER	IISHFT
	ENTER	JISHFT
	ENTER	IBITS
	ENTER	IIBITS
	ENTER	JIBITS
	ENTER	IBSET
	ENTER	IIBSET
	ENTER	JIBSET
	ENTER	BTEST
	ENTER	BITEST
	ENTER	BJTEST
	ENTER	IBCLR
	ENTER	IIBCLR
	ENTER	JIBCLR
	ENTER	ISHFTC
	ENTER	IISHFTC
	ENTER	JISHFTC
	ENTER	LEN
	ENTER	INDEX
	ENTER	CHAR
	ENTER	ICHAR
	ENTER	LLT
	ENTER	LLE
	ENTER	LGT
	ENTER	LGE
	ENTER	DATE
	ENTER	IDATE
	ENTER	ERRSNS
	ENTER	EXIT
	ENTER	SECNDS
	ENTER	TIME
	ENTER	RAN
	ENTER	MVBITS
NUMBER_OF_LIBRARY==COUNT_KEY_WORDS-6000
	.END