.TITLE	TABLE
	.GLOBL	KEY,LOGNEM,MONTH,EVLRTN,NEM
	.PSECT	KEY,D,RO,GBL
KEY:
	.PSECT	EVLRTN,D,RO,GBL
EVLRTN:
	.PSECT	NEM,D,RO,GBL
NEM:
	.PSECT	LOGNEM,D,RO,GBL
LOGNEM:	.ASCIZ	/.AND./
	.ASCIZ	/.OR./
	.ASCIZ	/.XOR./
	.ASCIZ	/.NOT./
	.ASCIZ	/.LT./
	.ASCIZ	/.EQV./
	.ASCIZ	/.NEQV./
	.ASCIZ	/.LE./
	.ASCIZ	/.EQ./
	.ASCIZ	/.NE./
	.ASCIZ	/.GT./
	.ASCIZ	/.GE./
	.ASCIZ	/.TRUE./
	.ASCIZ	/.FALSE./
	.BYTE	0
	.EVEN
	.PAGE
	.MACRO	KW NAM,EN,EM
	.PSECT	KEY,D,RO,GBL
	.ASCIZ	/NAM/
	.PSECT	EVLRTN,D,RO,GBL
	.GLOBL	$'EN
	.WORD	$'EN
	.PSECT	NEM,D,RO,GBL
	.IF	B,EM
	.ASCII	/EN/
	.IFF
	.ASCII	/EM/
	.ENDC
	.ENDM
	KW	ACCEPT,AC
	KW	ASSIGN,AS
	KW	BLOCKDATA,BD
	KW	BACKSPACE(,B7,BS
	KW	BACKSPACE,BS
	KW	BYTEFUNCTION,FB
	KW	BYTE,BY
	KW	CALL,CL
	KW	CHARACTERFUNCTION,FH
	KW	CHARACTER*(*)FUNCTION,FH
	KW	CHARACTER*(,CT,CH
	KW	CHARACTER*,CS,CH
	KW	CHARACTER,CH
	KW	CLOSE(,CE
	KW	COMMON,CN
	KW	CONTINUE,XX
	KW	COMPLEXFUNCTION,FC
	KW	COMPLEX*8FUNCTION,FC
	KW	COMPLEX*8,CX
	KW	COMPLEX,CX
	KW	DATA,DA
	KW	DECODE(,DE
	KW	DEFINEFILE,DF
	.IIF	DF,F4P,	KW	DELETE(,DL
	KW	DIMENSION,DI
	KW	DOUBLEPRECISION*8FUNCTION,FD
	KW	DOUBLEPRECISIONFUNCTION,FD
	KW	DOUBLEPRECISION*8,DP
	KW	DOUBLEPRECISION,DP
	KW	DO,DO
	KW	ELSEIF(,IF
	KW	ELSE,EL
	KW	ENDIF,EI
	KW	ENDFILE(,E7,EF
	KW	ENDFILE,EF
	KW	ENCODE(,EN
	KW	END,ZZ
	KW	ENTRY,EY
	KW	EQUIVALENCE,EQ
	KW	EXTERNAL,EX
	KW	FIND(,FN
	KW	FORMAT(,FO
	KW	FUNCTION,FU
	KW	GOTO,GT
	KW	IF(,IF
	KW	IMPLICIT,YY
	.IIF	DF,F4P,	KW	INCLUDE,II
	KW	INQUIRE(,IQ
	KW	INTEGER*4FUNCTION,FI
	KW	INTEGER*2FUNCTION,FI
	KW	INTEGERFUNCTION,FI
	KW	INTEGER*4,IN
	KW	INTEGER*2,IN
	KW	INTEGER,IN
	KW	INTRINSIC,IT
	KW	LOGICAL*4FUNCTION,FL
	KW	LOGICAL*2FUNCTION,FL
	KW	LOGICAL*1FUNCTION,FL
	KW	LOGICALFUNCTION,FL
	KW	LOGICAL*4,LG
	KW	LOGICAL*2,LG
	KW	LOGICAL*1,LG
	KW	LOGICAL,LG
	KW	OPEN(,OP
	.IIF	DF,F4P,	KW	PARAMETER,PA
	KW	PAUSE,WW
	KW	PRINT,PR
	KW	PROGRAM,PG
	KW	READ(,RD
	KW	READ,RC
	KW	REAL*8FUNCTION,FD
	KW	REAL*4FUNCTION,FR
	KW	REALFUNCTION,FR
	KW	REAL*8,DP
	KW	REAL*4,RL
	KW	REAL,RL
	.IIF	DF,F4P,	KW	REWRITE(,RR
	KW	RETURN,VV
	KW	REWIND(,R7,RW
	KW	REWIND,RW
	KW	SAVE,SA
	KW	STOP,UU
	KW	SUBROUTINE,SU
	KW	THEN,TH
	KW	TYPE,TY
	.IF	DF,F4P
	KW	UNLOCK(,U7,UN
	KW	UNLOCK,UN,U*	;RESET TO UN IN LINETP
	.ENDC
	KW	VIRTUAL,VI
	KW	WRITE(,WR
	.PSECT	KEY,D,RO,GBL
	.BYTE	0
	.EVEN
	.PSECT	EVLRTN,D,RO,GBL
	.GLOBL	$ARTH,$ERR
	.WORD	$ARTH
	.WORD	$ERR
	.PSECT	NEM,D,RO,GBL
	.ASCII	/= /
	.PAGE
	.PSECT	MONTH,D,RO,GBL
MONTH:	.ASCII	/JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-/
	.END