Trailing-Edge
-
PDP-10 Archives
-
decuslib20-04
-
decus/20-0122/xpl02.dat
There is 1 other file named xpl02.dat in the archive. Click here to see a list.
/* <PROGRAM> ::= <STATEMENT LIST> */
/* <STATEMENT LIST> ::= <STATEMENT> */
/* <STATEMENT LIST> ::= <STATEMENT LIST> <STATEMENT> */
/* <STATEMENT> ::= <BASIC STATEMENT> */
/* <IF STATEMENT> ::= <ERROR: TOKEN = 0> */
/* <BASIC STATEMENT> ::= <ASSIGNMENT> ; */
/* <GROUP> ::= ; */
/* <PROCEDURE DEFINITION> ::= ; */
/* <RETURN STATEMENT> ::= ; */
/* <CALL STATEMENT> ::= ; */
/* <GO TO STATEMENT> ::= ; */
/* <DECLARATION STATEMENT> ::= ; */
/* ; ::= <ERROR: TOKEN = 0> */
/* ; ::= <LABEL DEFINITION> <BASIC STATEMENT> */
/* <IF STATEMENT> ::= <IF CLAUSE> <STATEMENT> */
/* <IF CLAUSE> ::= <TRUE PART> <STATEMENT> */
/* <IF CLAUSE> ::= <LABEL DEFINITION> <IF STATEMENT> */
/* <IF CLAUSE> ::= IF <EXPRESSION> THEN */
/* <TRUE PART> ::= <BASIC STATEMENT> ELSE */
/* <GROUP> ::= <GROUP HEAD> <ENDING> */
/* <GROUP HEAD> ::= DO ; */
/* DO ::= <STEP DEFINITION> ; */
/* DO ::= DO <WHILE CLAUSE> ; */
/* DO ::= DO <CASE SELECTOR> ; */
/* <GROUP HEAD> ::= <STATEMENT> */
/* <STEP DEFINITION> ::= <VARIABLE> <REPLACE> <EXPRESSION> <ITERATION CONTROL>
*/
/* <ITERATION CONTROL> ::= TO <EXPRESSION> */
/* <ITERATION CONTROL> ::= TO <EXPRESSION> BY <EXPRESSION> */
/* <WHILE CLAUSE> ::= WHILE <EXPRESSION> */
/* <CASE SELECTOR> ::= CASE <EXPRESSION> */
/* <PROCEDURE DEFINITION> ::= <PROCEDURE HEAD> <STATEMENT LIST> <ENDING> */
/* <PROCEDURE HEAD> ::= <PROCEDURE NAME> ; */
/* <PROCEDURE NAME> ::= <TYPE> ; */
/* <PROCEDURE NAME> ::= <PROCEDURE NAME> <PARAMETER LIST> ; */
/* <PROCEDURE NAME> ::= <PROCEDURE NAME> <PARAMETER LIST> <TYPE> ; */
/* <PROCEDURE NAME> ::= <LABEL DEFINITION> PROCEDURE */
/* <PARAMETER LIST> ::= <PARAMETER HEAD> <IDENTIFIER> ) */
/* <PARAMETER HEAD> ::= ( */
/* <PARAMETER HEAD> ::= <PARAMETER HEAD> <IDENTIFIER> , */
/* <ENDING> ::= END */
/* END ::= <IDENTIFIER> */
/* END ::= <LABEL DEFINITION> <ENDING> */
/* <LABEL DEFINITION> ::= <IDENTIFIER> : */
/* <RETURN STATEMENT> ::= RETURN */
/* RETURN ::= <EXPRESSION> */
/* <CALL STATEMENT> ::= CALL <VARIABLE> */
/* <GO TO STATEMENT> ::= <GO TO> <IDENTIFIER> */
/* <GO TO> ::= GO TO */
/* GOTO ::= <ERROR: TOKEN = 0> */
/* <DECLARATION STATEMENT> ::= DECLARE <DECLARATION ELEMENT> */
/* <DECLARATION STATEMENT> ::= , <DECLARATION ELEMENT> */
/* <DECLARATION ELEMENT> ::= <TYPE DECLARATION> */
/* <DECLARATION ELEMENT> ::= <IDENTIFIER> LITERALLY <STRING> */
/* <TYPE DECLARATION> ::= <IDENTIFIER SPECIFICATION> <TYPE> */
/* <TYPE DECLARATION> ::= <BOUND HEAD> <NUMBER> ) <TYPE> */
/* <TYPE DECLARATION> ::= <TYPE DECLARATION> <INITIAL LIST> */
/* <TYPE> ::= FIXED */
/* CHARACTER ::= <ERROR: TOKEN = 0> */
/* CHARACTER ::= LABEL */
/* CHARACTER ::= <BIT HEAD> <NUMBER> ) */
/* <BIT HEAD> ::= BIT ( */
/* <BOUND HEAD> ::= <IDENTIFIER SPECIFICATION> ( */
/* <IDENTIFIER SPECIFICATION> ::= <IDENTIFIER> */
/* <IDENTIFIER LIST> ::= <IDENTIFIER> ) */
/* <IDENTIFIER LIST> ::= ( */
/* <IDENTIFIER LIST> ::= <IDENTIFIER LIST> <IDENTIFIER> , */
/* <INITIAL LIST> ::= <INITIAL HEAD> <CONSTANT> ) */
/* <INITIAL HEAD> ::= INITIAL ( */
/* <INITIAL HEAD> ::= <CONSTANT> , */
/* <ASSIGNMENT> ::= <VARIABLE> <REPLACE> <EXPRESSION> */
/* <LEFT PART> ::= <ASSIGNMENT> */
/* <REPLACE> ::= = */
/* <LEFT PART> ::= <VARIABLE> , */
/* <EXPRESSION> ::= <LOGICAL FACTOR> */
/* <EXPRESSION> ::= <EXPRESSION> ^ <LOGICAL FACTOR> */
/* <LOGICAL FACTOR> ::= <LOGICAL SECONDARY> */
/* <LOGICAL FACTOR> ::= & <LOGICAL SECONDARY> */
/* <LOGICAL SECONDARY> ::= <LOGICAL PRIMARY> */
/* [ ::= <LOGICAL PRIMARY> */
/* <LOGICAL PRIMARY> ::= <STRING EXPRESSION> */
/* <LOGICAL PRIMARY> ::= <STRING EXPRESSION> <RELATION> <STRING EXPRESSION>
*/
/* <RELATION> ::= = */
/* < ::= <ERROR: TOKEN = 0> */
/* > ::= <ERROR: TOKEN = 0> */
/* [ ::= = */
/* [ ::= < */
/* [ ::= > */
/* < ::= = */
/* > ::= = */
/* <STRING EXPRESSION> ::= <ARITHMETIC EXPRESSION> */
/* <STRING EXPRESSION> ::= <STRING EXPRESSION> ^^ <ARITHMETIC EXPRESSION>
*/
/* <ARITHMETIC EXPRESSION> ::= <TERM> */
/* <ARITHMETIC EXPRESSION> ::= + <TERM> */
/* <ARITHMETIC EXPRESSION> ::= - <TERM> */
/* + ::= <TERM> */
/* - ::= <TERM> */
/* <TERM> ::= <PRIMARY> */
/* <TERM> ::= * <PRIMARY> */
/* <TERM> ::= / <PRIMARY> */
/* <TERM> ::= MOD <PRIMARY> */
/* <PRIMARY> ::= <CONSTANT> */
/* <VARIABLE> ::= <ERROR: TOKEN = 0> */
/* <VARIABLE> ::= ( <EXPRESSION> ) */
/* <VARIABLE> ::= <IDENTIFIER> */
/* <VARIABLE> ::= <SUBSCRIPT HEAD> <EXPRESSION> ) */
/* <SUBSCRIPT HEAD> ::= <IDENTIFIER> ( */
/* <SUBSCRIPT HEAD> ::= <EXPRESSION> , */
/* <CONSTANT> ::= <STRING> */
/* <NUMBER> ::= <ERROR: TOKEN = 0> */
/* <NUMBER> ::= <ERROR: TOKEN = 0> */
DECLARE NSY LITERALLY '93', NT LITERALLY '30';
DECLARE V(NSY) CHARACTER INITIAL ( '<ERROR: TOKEN = 0>', ')', '(', ',', ':',
'=', '^', '&', '*', '/', 'IF', 'TO', 'BY', 'GO', '^^', '_^_', 'BIT',
'MOD', 'THEN', 'ELSE', 'CASE', 'CALL', 'WHILE', 'FIXED', 'LABEL',
'DECLARE', 'INITIAL', '<STRING>', 'PROCEDURE', 'LITERALLY',
'<IDENTIFIER>', ';', '[', '<', '>', '+', '-', 'DO', 'END', 'GOTO',
'<TYPE>', 'RETURN', '<TERM>', '<GROUP>', '<GO TO>', '<ENDING>',
'<NUMBER>', '<PROGRAM>', '<REPLACE>', 'CHARACTER', '<PRIMARY>',
'<VARIABLE>', '<BIT HEAD>', '<CONSTANT>', '<RELATION>', '<STATEMENT>',
'<IF CLAUSE>', '<TRUE PART>', '<LEFT PART>', '<ASSIGNMENT>',
'<EXPRESSION>', '<GROUP HEAD>', '<BOUND HEAD>', '<IF STATEMENT>',
'<WHILE CLAUSE>', '<INITIAL LIST>', '<INITIAL HEAD>', '<CASE SELECTOR>',
'<STATEMENT LIST>', '<CALL STATEMENT>', '<PROCEDURE HEAD>',
'<PROCEDURE NAME>', '<PARAMETER LIST>', '<PARAMETER HEAD>',
'<LOGICAL FACTOR>', '<SUBSCRIPT HEAD>', '<BASIC STATEMENT>',
'<GO TO STATEMENT>', '<STEP DEFINITION>', '<IDENTIFIER LIST>',
'<LOGICAL PRIMARY>', '<RETURN STATEMENT>', '<LABEL DEFINITION>',
'<TYPE DECLARATION>', '<ITERATION CONTROL>', '<LOGICAL SECONDARY>',
'<STRING EXPRESSION>', '<DECLARATION ELEMENT>', '<PROCEDURE DEFINITION>',
'<DECLARATION STATEMENT>', '<ARITHMETIC EXPRESSION>',
'<IDENTIFIER SPECIFICATION>', '^^', '<RELATION>');
DECLARE V_INDEX(12) BIT(8) INITIAL ( 1, 10, 15, 18, 22, 25, 25, 27, 28, 30,
30, 30, 31);
DECLARE C1(NSY) BIT(62) INITIAL (
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00022 00000 00200 00000 00200 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00100 0",
"(2) 00000 00000 00000 00000 00000 00100 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00022 00000 00200 00000 00200 0",
"(2) 00000 10011 00000 00100 00000 00100 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00100 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 20022 00002 20200 00000 00200 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 20000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00011 00000 00100 00000 00100 0",
"(2) 00000 00011 00000 00100 00000 00100 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 20022 00002 20200 00000 00200 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 20022 00002 20200 00000 00200 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 20022 00002 20200 00000 00200 0",
"(2) 00000 00022 00000 00200 00000 00200 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 20000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 10000 00001 20000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 20000 00002 20000 00000 00000 0",
"(2) 00000 00000 00000 00000 00000 00000 0",
"(2) 00000 00011 00000 00100 00000 00100 0",
"(2) 00000 00011 00000 00100 00000 00100 0");
DECLARE NC1TRIPLES LITERALLY '0';
DECLARE C1TRIPLES(0) FIXED;
DECLARE PRTB(112) FIXED INITIAL (0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 18718, 13358,
16949, 572, 19260, 30, 16, 91, 26, 30, 0, 0, 18718, 20254, 53, 51, 60, 30,
0, 0, 0, 0, 0, 13, 0, 2620, 76, 0, 0, 7709, 0, 82, 44, 0, 0, 0, 4671528,
9536, 9539, 18248, 59, 37, 78, 71, 40, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4075009,
91, 0, 35, 36, 0, 0, 0, 17988, 61, 82, 8, 9, 17, 0, 21, 0, 0, 68, 56, 57,
0, 0, 0, 736268, 13104, 11, 22, 20, 0, 82, 83, 0, 15366, 0, 82, 0, 0, 0,
0, 3354684, 7, 0, 22109, 0, 25, 3, 22108, 0);
DECLARE PRDTB(112) BIT(8) INITIAL (0, 5, 13, 49, 58, 83, 84, 102, 109, 110,
37, 60, 67, 103, 105, 64, 61, 62, 68, 106, 38, 65, 39, 66, 69, 73, 107,
43, 72, 85, 88, 89, 82, 48, 0, 18, 19, 57, 59, 53, 108, 36, 47, 41, 63,
104, 35, 23, 24, 34, 6, 21, 22, 32, 33, 7, 8, 9, 10, 11, 12, 86, 87, 40,
55, 54, 44, 93, 94, 92, 95, 96, 31, 20, 42, 98, 99, 100, 97, 46, 101, 0,
3, 15, 16, 2, 25, 71, 28, 70, 27, 29, 30, 45, 17, 56, 1, 75, 74, 14, 4,
78, 79, 52, 26, 77, 76, 81, 80, 50, 51, 91, 90);
DECLARE HDTB(112) BIT(8) INITIAL (0, 63, 31, 39, 49, 33, 34, 51, 46, 46, 72,
49, 65, 51, 51, 79, 52, 62, 66, 75, 73, 79, 73, 79, 66, 58, 75, 82, 48,
32, 33, 34, 54, 44, 92, 56, 57, 40, 49, 87, 53, 71, 77, 38, 91, 51, 71,
37, 37, 71, 76, 61, 37, 70, 71, 43, 88, 81, 69, 77, 89, 32, 32, 45, 83,
83, 81, 90, 90, 90, 35, 36, 88, 43, 38, 42, 42, 42, 42, 69, 50, 93, 68,
63, 56, 68, 61, 58, 84, 59, 84, 64, 67, 41, 56, 83, 47, 60, 60, 31, 55,
85, 32, 87, 78, 74, 74, 80, 80, 89, 89, 86, 86);
DECLARE PRLENGTH(112) BIT(8) INITIAL (0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3,
3, 3, 2, 2, 2, 2, 2, 1, 1, 3, 3, 2, 2, 2, 2, 1, 1, 1, 1, 1, 2, 1, 3, 2, 1,
1, 3, 1, 2, 2, 1, 1, 1, 4, 3, 3, 3, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1,
1, 4, 2, 1, 2, 2, 1, 1, 1, 3, 2, 2, 2, 2, 2, 1, 2, 1, 1, 2, 2, 2, 1, 1, 1,
4, 3, 2, 2, 2, 1, 2, 2, 1, 3, 1, 2, 1, 1, 1, 1, 4, 2, 1, 3, 1, 2, 2, 3,
1);
DECLARE CONTEXT_CASE(112) BIT(8) INITIAL (0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0);
DECLARE LEFT_CONTEXT(0) BIT(8) INITIAL ( 0);
DECLARE LEFT_INDEX(63) BIT(8) INITIAL ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1);
DECLARE CONTEXT_TRIPLE(0) FIXED INITIAL ( 0);
DECLARE TRIPLE_INDEX(63) BIT(8) INITIAL ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 1);
DECLARE PR_INDEX(93) BIT(8) INITIAL ( 10, 16, 22, 27, 28, 33, 33, 33, 33, 33,
33, 34, 34, 34, 35, 35, 35, 35, 36, 37, 37, 37, 37, 38, 39, 39, 39, 41,
42, 42, 46, 61, 61, 62, 63, 63, 63, 63, 64, 64, 66, 67, 72, 72, 72, 75,
75, 75, 75, 75, 79, 80, 80, 81, 82, 87, 87, 87, 87, 88, 94, 94, 94, 95,
95, 96, 96, 96, 97, 97, 97, 97, 97, 97, 99, 99, 101, 101, 101, 101, 103,
103, 103, 104, 105, 107, 109, 111, 111, 111, 113, 113, 113, 113);