.TITLE	TABLE - KEY TABLES FOR INDEX
	.IDENT	/V02/

;
; AUTHOR:	GARY L. MAXWELL
; DATE:		13-AUG-79
;
; THIS MODULE REPLACES THE OLD TABLE MODULE FOR INDEX
;
; THESE TABLES ARE COMPLETELY CODIFIED SO TABLE ENTRIES ARE
; REFERRED SYMBOLICALLY THROUGHOUT THE IDX PROGRAM. 
;
; THIS MODULE CONTAINS A TABLE (STARTING AT LOCATION KEY)
; OF FORTRAN CONTROL AND KEY WORDS IN ASCII WHICH IS SCANNED
; BY THE SCANLN ROUTINE. IF A MATCH IS FOUND, THE SEQUENCE OF
; THIS ENTRY IN THE TABLE INDEXES INTO ANOTHER TABLE (STARTING
; AT EVLRTN) WHICH POINTS TO A PARSING ROUTINE WHICH WILL
; PROCESS THE SOURCE LINE.
;
; A MACRO, KEYDEF, BUILDS THE KEY AND ENTRY POINT TABLE.
; IT IS INVOKED WITH THE CALL:
;
;        KEYDEF    <KEYWORD>,KEYSYM,EVALRTN
;
; WHERE:
;   KEYWORD	IS THE FORTRAN 'TOKEN' THAT WILL BE MATCHED
;		WITH THE INPUT STREAM.
;   KEYSYM	IS A SYMBOL, FOUR LETTERS MAXIMUM IN LENGTH,
;		THAT WILL BE APPENDED TO THE LETTERS 'KY' AND
;		DEFINED AS THE GLOBAL SEQUENCE NUMBER (TOKEN
;		VALUE) OF THE KEYWORD. THUS, IF THE KEYSYM
;		ARGUMENT WAS "SUB", THEN THE GLOBAL SYMBOL
;		"KYSUB" IS DEFINED WITH THE UNIQUE VALUE OF
;		"KEYWORD"'S SEQUENCE IN THE KEY TABLE.
;   EVALRTN	IS THE NUMBER ID OF THE EVALUATION PARSER THAT
;		WILL BE PARSING THIS KEY LINE
;
; MACRO EVL DEFINES THE GLOBAL ENTRY POINT INTO AN EVALUATION
; ROUTINE BY ISSUING A .WORD DIRECTIVE IN THE EVLRTN TABLE
;
	.MACRO	EVL	A
	.PSECT	ROUTSC,D
	.GLOBL	EVL'A
	.WORD	EVL'A
	.ENDM
;
	.MACRO	KEYDEF	KEY,KEYSYM,EVLRTN
	.PSECT	KEYSEC,D
KEYVAL = KEYVAL + 1
KY'KEYSYM == KEYVAL
	.ASCIZ	^KEY^
	EVL	EVLRTN
	.PSECT	TABLE
	.ENDM

;+
; THE VTYPDF MACRO BELOW DEFINES THE CODES USED IN THE
; CREF LISTING, AND THE TOKENS WHOSE VALUES CORRESPOND TO
; THESE CODES. 
;-
	.MACRO	VTYPDF	VCODE,VTOKEN
VARVAL = VARVAL + 1
VT'VTOKEN == VARVAL
	.ASCII	^VCODE^
	.ENDM
;+
; INITIALIZE SYMBOLS FOR THIS MODULE
;-
KEYVAL = 0
VARVAL = -1

	.PSECT	KEYSEC,D
KEY::
;
	.PSECT	ROUTSC,D
EVLRTN::
	EVL	40		; TYPE 0 SHOULD NOT OCCUR
;
	KEYDEF	<ACCEPT>,ACC,2		; ACCEPT: GO TO EVL2
	KEYDEF	<ASSIGN>,ASN,3		; ASSIGN: GO TO EVL3
	KEYDEF	<BACKSPACE>,BKSP,4	; BACKSPACE: GO TO EVL4
	KEYDEF	<BLOCKDATA>,BKDT,14	; BLOCKDATA: GO TO EVL14
	KEYDEF	<BYTE>,BYTE,15		; BYTE: GO TO EVL15
	KEYDEF	<CALL>,CALL,5		; CALL: GO TO EVL5
	KEYDEF	<CLOSE(>,CLOS,19		; CLOSE(: GO TO EVL19
	KEYDEF	<COMMON>,COM,6		; COMMON: GO TO EVL6
	KEYDEF	<COMPLEX>,CPX,15	; COMPLEX: GO TO EVL15
	KEYDEF	<CONTINUE>,CONT,0	; CONTINUE: GO TO EVL0
	KEYDEF	<DATA>,DATA,7		; DATA: GO TO EVL7
	KEYDEF	<DECODE(>,DCOD,8		; DECODE(: GO TO EVL8
	KEYDEF	<DEFINEFILE>,DEFF,9	; DEFINEFILE: GO TO EVL9
	KEYDEF	<DIMENSION>,DIM,10	; DIMENSION: GO TO EVL10
	KEYDEF	<DOUBLEPRECISION>,DBP,15 ; DOUBLEPRECISION: GO TO EVL15
	KEYDEF	<DO>,DO,11		; DO: GO TO EVL11
	KEYDEF	<ENDFILE>,ENDF,4	; ENDFILE: GO TO EVL4
	KEYDEF	<ENCODE(>,ENC,8		; ENCODE(: GO TO EVL8
	KEYDEF	<END>,END,12		; END: GO TO EVL12
	KEYDEF	<ENTRY>,ENT,14		; ENTRY: GO TO EVL14
	KEYDEF	<EQUIVALENCE>,EQV,10	; EQUIVALENCE: GO TO EVL10
	KEYDEF	<EXTERNAL>,EXT,10	; EXTERNAL: GO TO EVL10
	KEYDEF	<FIND(>,FIND,13		; FIND(: GO TO EVL13
	KEYDEF	<FORMAT(>,FMT,22	; FORMAT(: GO TO EVL22
	KEYDEF	<FUNCTION>,FUNC,14	; FUNCTION: GO TO EVL14
	KEYDEF	<GOTO>,GOTO,18		; GOTO: GO TO EVL18
	KEYDEF	<IF(>,IF,16		; IF(: GO TO EVL16
	KEYDEF	<IMPLICIT>,IMPL,0	; IMPLICIT: GO TO EVL0
	KEYDEF	<INCLUDE>,INCL,21	; INCLUDE: GO TO EVL21
	KEYDEF	<INTEGER>,INT,15	; INTEGER: GO TO EVL15
	KEYDEF	<LOGICAL>,LOGI,15	; LOGICAL: GO TO EVL15
	KEYDEF	<OPEN(>,OPEN,19		; OPEN(: GO TO EVL19
	KEYDEF	<PARAMETER>,PARM,20	; PARAMETER: GO TO EVL20
	KEYDEF	<PAUSE>,PAUS,0		; PAUSE: GO TO EVL0
	KEYDEF	<PRINT>,PRIN,2		; PRINT: GO TO EVL2
	KEYDEF	<PROGRAM>,PROG,14	; PROGRAM: GO TO EVL14
	KEYDEF	<READ(>,RDF,17		; READ(: GO TO EVL17
	KEYDEF	<READ>,RDUF,2		; READ: GO TO EVL2
	KEYDEF	<REAL>,REAL,15		; REAL: GO TO EVL15
	KEYDEF	<RETURN>,RET,0		; RETURN: GO TO EVL0
	KEYDEF	<REWIND>,RWND,4		; REWIND: GO TO EVL4
	KEYDEF	<STOP>,STOP,0		; STOP: GO TO EVL0
	KEYDEF	<SUBROUTINE>,SUB,14	; SUBROUTINE: GO TO EVL14
	KEYDEF	<TYPE>,TYPE,2		; TYPE: GO TO EVL2
	KEYDEF	<VIRTUAL>,VIRT,10	; VIRTUAL: GO TO EVL10
	KEYDEF	<WRITE(>,WRIT,17	; WRITE(: GO TO EVL17
;
	.PSECT	KEYSEC,D
	.BYTE	0		; END OF KEYWORD LIST
KYARTH == KEYVAL + 1
KYERR  == KEYVAL + 2
;
	.PSECT	ROUTSC,D
	EVL	1		; EVALUATE ARITHMETIC STATEMENTS
	EVL	40		; PROCESS ILLEGAL LINES

	.PSECT	VTABSC,D
VARNEM::
	VTYPDF	<  >,ARTH		; ARITHMETIC STATEMENT
	VTYPDF	<= >,ASNS		; ASSIGNMENT STATEMENT
	VTYPDF	<* >,LDEF		; LABEL DEFINITION
	VTYPDF	<AC>,ACC		; ACCEPT
	VTYPDF	<AG>,ARG		; ARGUMENT TO SUBPROGRAM
	VTYPDF	<AS>,ASN		; ASSIGN
	VTYPDF	<BS>,BKSP		; BACKSPACE
	VTYPDF	<BD>,BKDT		; BLOCK DATA
	VTYPDF	<BY>,BYTE		; BYTE
	VTYPDF	<CL>,CALL		; CALL
	VTYPDF	<CM>,COM		; COMMON
	VTYPDF	<CN>,COMN		; COMMON BLOCK NAME
	VTYPDF	<CS>,CLOS		; CLOSE FILE
	VTYPDF	<CX>,CPX		; COMPLEX
	VTYPDF	<DA>,DATA		; DATA STATEMENT
	VTYPDF	<DE>,DCOD		; DECODE
	VTYPDF	<DF>,DEFF		; DEFINE FILE
	VTYPDF	<DI>,DIM		; DIMENSION
	VTYPDF	<DO>,DO			; DO STATEMENT
	VTYPDF	<DP>,DBP		; DOUBLE PRECISION
	VTYPDF	<EF>,ENDF		; ENDFILE
	VTYPDF	<EN>,ENC		; ENCODE
	VTYPDF	<EQ>,EQV		; EQUIVALENCE
	VTYPDF	<EX>,EXT		; EXTERNAL
	VTYPDF	<EY>,ENT		; ENTRY POINT
	VTYPDF	<FB>,BFUN		; BYTE FUNCTION
	VTYPDF	<FC>,CFUN		; COMPLEX FUNCTION
	VTYPDF	<FD>,DFUN		; DOUBLE PRECISION FUNCTION
	VTYPDF	<FI>,IFUN		; INTEGER FUNCTION
	VTYPDF	<FL>,LFUN		; LOGICAL FUNCTION
	VTYPDF	<FM>,FMT		; FORMAT STATEMENT
	VTYPDF	<FN>,FIND		; FIND RECORD
	VTYPDF	<FR>,RFUN		; REAL FUNCTION
	VTYPDF	<FU>,FUNC		; PLAIN FUNCTION
	VTYPDF	<GT>,GOTO		; GO TO STATEMENT
	VTYPDF	<IF>,IF			; IF STATEMENT
	VTYPDF	<IN>,INT		; INTEGER
	VTYPDF	<LG>,LOGI		; LOGICAL DECL.
	VTYPDF	<OP>,OPEN		; OPEN FILE
	VTYPDF	<PD>,PARM		; PARAMETER DEF.
	VTYPDF	<PG>,PROG		; PROGRAM STATEMENT
	VTYPDF	<PR>,PRIN		; PRINT STATEMENT
	VTYPDF	<RD>,READ		; ALL READ STATEMENTS
	VTYPDF	<RL>,REAL		; REAL DECLARATION
	VTYPDF	<RW>,RWND		; REWIND FILE
	VTYPDF	<SB>,SUB		; SUBROUTINE
	VTYPDF	<TY>,TYPE		; TYPE STATEMENT
	VTYPDF	<VI>,VIRT		; VIRTUAL DECL.
	VTYPDF	<WR>,WRIT		; WRITE STATEMENT
;


LOGNEM::	;LOGICAL OPERATOR NEMONICS
	.ASCIZ	/.AND./
	.ASCIZ	/.OR./
	.ASCIZ	/.XOR./
	.ASCIZ	/.NOT./
	.ASCIZ	/.EQU./
	.ASCIZ	/.LT./
	.ASCIZ	/.LE./
	.ASCIZ	/.EQ./
	.ASCIZ	/.NE./
	.ASCIZ	/.GT./
	.ASCIZ	/.GE./
	.ASCIZ	/.TRUE./
	.ASCIZ	/.FALSE./
	.BYTE	0
	.EVEN
	.END