.TITLE	TABLE
;
; RBF - CODE ADDED FOR BYTE SPECIFICATION
;
	.GLOBL	LOGNEM
	.GLOBL	VARNEM,EVLRTN
	.GLOBL	KEY
	.CSECT	TABLE
;

KEY:	.ASCIZ	/ACCEPT/	;KEY WORD LINE TYPE 1
	.ASCIZ	/ASSIGN/	;2
	.ASCIZ	/BACKSPACE/	;3
	.ASCIZ	/BLOCKDATA/	;4
	.ASCIZ	/CALL/	;5
	.ASCIZ	/COMMON/	;6
	.ASCIZ	/CONTINUE/	;7
	.ASCIZ	/DATA/	;8
	.ASCIZ	/DECODE(/	;9
	.ASCIZ	/DEFINEFILE/	;10
	.ASCIZ	/DIMENSION/	;11
	.ASCIZ	/DOUBLEPRECISION/	;12
	.ASCIZ	/ENDFILE/	;13
	.ASCIZ	/ENCODE(/	;14
	.ASCIZ	/END/	;15
	.ASCIZ	/EQUIVALENCE/	;16
	.ASCIZ	/EXTERNAL/	;17
	.ASCIZ	/FIND(/	;18
	.ASCIZ	/FORMAT(/	;19
	.ASCIZ	/FUNCTION/	;20
	.ASCIZ	/GOTO/	;21
	.ASCIZ	/IF(/	;22
	.ASCIZ	/IMPLICIT/	;23
	.ASCIZ	/PAUSE/	;24
	.ASCIZ	/PRINT/	;25
	.ASCIZ	/READ(/	;26
	.ASCIZ	/READ/	;27
	.ASCIZ	/RETURN/	;28
	.ASCIZ	/REWIND/	;29
	.ASCIZ	/STOP/	;30
	.ASCIZ	/SUBROUTINE/	;31
	.ASCIZ	/TYPE/	;32
	.ASCIZ	/WRITE(/	;33
	.ASCIZ	/INTEGER/	;34
	.ASCIZ	/REAL/	;35
	.ASCIZ	/LOGICAL/	;36
	.ASCIZ	/COMPLEX/	;37
	.ASCIZ	/DO/	;38
	.ASCIZ	/BYTE/	;39
	.BYTE	0	;END OF KEY WORD TABLE FLAG
	.EVEN
;

VARNEM:	;THESE ARE THE NEMONICS FOR THE VARIOUS WAYS VARIABLES ARE USED
	.ASCII	/  /	;USED IN ARITH TYPE STATEMENT
	.ASCII	/= /	;SET = TO SOMETHING IN ARITH TYPE STATEMENT #1 USED
	.ASCII	/AC/	;USED IN ACCEPT-#2
	.ASCII	/AS/	;ASSIGN 3
	.ASCII	/BS/	;4 BACKSPACE
	.ASCII	/CL/	;CALL 5
	.ASCII	/CN/	;6 COMMON NAME
	.ASCII	/CM/	;7 COMMON VAR
	.ASCII	/DA/	;8 DATA
	.ASCII	/DE/	;9 DECODE
	.ASCII	/DF/	;10 DEFINE FILE
	.ASCII	/DI/	;11 DIMENSION
	.ASCII	/DO/	;12 DO
	.ASCII	/EN/	;13 ENCODE
	.ASCII	/EF/	;14 ENDFILE
	.ASCII	/EQ/	;15 EQUIVILANCE
	.ASCII	/EX/	;EXTERNAL 16
	.ASCII	/FN/	;17 FIND
	.ASCII	/FU/	;18 FUNCTION
	.ASCII	/GT/	;19	GO TO
	.ASCII	/IF/	;20 IF
	.ASCII	/PR/	;21 PRINT
	.ASCII	/RD/	;22 READ
	.ASCII	/RW/	;23 REWIND
	.ASCII	/SB/	;24 SUBROUTINE
	.ASCII	/TY/	;25 TYPE
	.ASCII	/RL/	;26 REAL
	.ASCII	/IN/	;27 INEGER
	.ASCII	/DP/	;28 DOUBLE PRECISION
	.ASCII	/LG/	;29 LOGICAL
	.ASCII	/CX/	;30 COMPLEX
	.ASCII	/WR/	;31 WRITE
	.ASCII	/* /	;32 DEFINE LABLE
	.ASCII	/FR/	;33 REAL FUNCTION
	.ASCII	/FI/	;34 INTEGER FUNCTION
	.ASCII	/FD/	;35 D.P. FUNCTION
	.ASCII	/FL/	;36	LOGICAL FUNCTION
	.ASCII	/FC/	;37 COMPLEX FUNCTION
	.ASCII	/AG/	;38 ARGUMENT TO CALL, SUBROUTNE OR FUNCTION
	.ASCII	/BY/	;39 BYTE
;

	.MACRO	EVL	A
	.GLOBL	EVL'A
	.WORD	EVL'A
	.ENDM
EVLRTN:	EVL	40	;LINE TYPE 0 SHOULD NOT OCCOUR-ERROR
	EVL	2	;ACCEPT TYPE 2
	EVL	3	;3 ASSIGN
	EVL	4	;BACK SPACE
	EVL	0	;BLOCK DATA-NO EVAL RTN
	EVL	5	;CALL
	EVL	6	;COMMON
	EVL	0	;CONTINUE
	EVL	7	;DATA
	EVL	8	;DECODE
	EVL	9	;DEFINE FILE
	EVL	10	;DIMENSION
	EVL	15	;D.P.
	EVL	4	;ENDFILE
	EVL	8	;ENCODE
	EVL	12	;END
	EVL	10	;EQIVALENCE
	EVL	10	;EXTERNAL
	EVL	13	;FIND
	EVL	0	;FORMAT
	EVL	14	;FUNCTION
	EVL	18	;GO TO
	EVL	16	;IF
	EVL	0	;IMPLICIT
	EVL	0	;PAUSE
	EVL	2	;PRINT
	EVL	17	;READ( )
	EVL	2	;READ
	EVL	0	;RETURN
	EVL	4	;REWIND
	EVL	0	;STOP
	EVL	14	;SUBROUTINE
	EVL	2	;TYPE
	EVL	17	;WRITE()
	EVL	15	;INTEGER
	EVL	15	;REAL
	EVL	15	;LOGICAL
	EVL	15	;COMPLEX
	EVL	11	;DO
	EVL	15	;BYTE
	EVL	1	;ARITHMETIC
	EVL	40	;ERROR
;

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