/CLASSES [TRANSPARENT] 0 Z EXTERNAL(128), BYTE(3), SHORT(0), C$(0) 1 SWITCH SWITCH(72) 2 VTYPE INTEGER(1), INTEGERNAME(33), INTEGERARRAYNAME(41) 3 OWN OWN(64), EXTRINSIC(128), CONST(192) 4 ATYPE INTEGERARRAY(9) 5 RTYPE INTEGERMAP(77), INTEGERFN(69), PREDICATE(68), ROUTINE(76), SPEC(36), INTEGERMAPSPEC(13), INTEGERFNSPEC(5), PREDICATESPEC(4), ROUTINESPEC(12) 6 TYPE STRING(7), INTEGER(1), INTEGERNAME(33), INTEGERARRAYNAME(41), INTEGERMAP(77), INTEGERFN(69), PREDICATE(68), ROUTINE(76) 9 T ; 10 COLON : 11 COMMENT COMMENT 12 EQ = 14 LB ( 15 COMMA , 16 RB ) 17 JUMP -> 18 BAR ! 20 FOR FOR 22 THEN THEN [NORMAL] 24 SIGN +(1), -(2) 25 UOP \(3) 26 OP1 <<(4), <>(4), >>(5), **(15) 27 OP2 &(6), *(12), //(13), /(14) 28 OP3 +(1), -(2), !!(10), !(11) 29 REFOP ++(7), --(8) 30 REFASS ==(9) 31 SIMP RETURN(16),TRUE(17),FALSE(18),STOP(19),EXIT(20) 34 MRESULT RESULT== 35 FRESULT RESULT= 36 FAULT FAULT 37 MONITOR MONITOR 38 PTEXT PRINTTEXT 40 MCODE DAC(65), JMS(66), DZM(67), LAC(68), XOR(69), ADD(70), TAD(71), XCT(72), ISZ(73), AND(74), SAD(75), JMP(76), IOT(78), OPR(79), ADR(80), DAC*(81), JMS*(82), DZM*(83), LAC*(84), XOR*(85), ADD*(86), TAD*(87), XCT*(88), ISZ*(89), AND*(90), SAD*(91), JMP*(92), DAD(93), ADA(94), LAD(95) 41 LMCODE LIT(35), LAC#(36), XOR#(37), ADD#(38), TAD#(39), AND#(42), SAD#(43) 42 AND AND 43 OR OR 44 NOT NOT 45 COP <(64), =(128), <=(192), >=(576), #(640), \=(640), >(704) 46 FINISH FINISH 47 FELSE FINISHELSE, ELSE 48 ELSE ELSE 49 START START 50 CYCLE CYCLE 51 REPEAT REPEAT 52 CWORD IF(12), UNLESS(14) 53 LWORD WHILE(20), UNTIL(23) 55 BEGIN BEGIN 56 END END 57 ENDPRIM ENDOFPRIM 58 ENDPERM ENDOFPERM 59 ENDPROG ENDOFPROGRAM, ENDOFFILE [BUILT-IN] 64 L [LABEL IDENTIFIER] 65 V [VARIABLE IDENTIFIER] 66 BV [BYTE VARIABLE IDENTIFIER] 67 STRING [STRING] 68 P [PREDICATE IDENTIFIER] 69 F [FUNCTION IDENTIFIER] 70 IDENT [IDENTIFIER] 71 SCONST [NUMERIC CONSTANT] 72 S [SWITCH IDENTIFIER] 73 A [ARRAY IDENTIFIER] 74 BA [BYTE ARRAY IDENTIFIER] 76 R [ROUTINE IDENTIFIER] 77 M [MAP IDENTIFIER] 78 BM [BYTE MAP IDENTIFIER] [FIGURATIVE] 80 LAB =L 81 PIDENT =IDENT 82 SLAB =S 83 MDEST =M 84 PPAR =P 85 FPAR =F 86 ADEST =A 87 STPAR =STRING 88 AREF =A 89 APAR =A 90 BAPAR =BA 91 MREF =M 92 RPAR =R 93 MPAR =M 94 BMPAR =BM 95 BMREF =BM 96 VDEST =V 97 VREF =V 98 BVREF =BV 99 BVDEST =BV 100 BADEST =BA 101 BMDEST =BM 102 BAREF =BA 103 ASSA =EQ 104 MOD =BAR 105 CSEP1 =COMMA 106 CSEP2 =COMMA 107 CONTROL =V 108 BSEP =COLON 109 OSEP =COMMA 110 OWNT =T 111 SEP =AND [PHRASAL] 112 APP 113 IDENTS 114 EXPB 115 CONSTB 116 IMP 117 COND 118 SCOND 119 REF 120 BREF 121 CONST 122 EXP 123 EXP2 124 EXP1 125 SEXP 126 SEQ /RULES SS -> LAB< COLON, SLAB< LB CONST< RB COLON, VTYPE< IDENTS T, OWN< VTYPE IDENTS (EQ CONST< OSEP IDENTS)* (EQ CONST<)? OWNT, RTYPE<< PIDENT Z (LB TYPE IDENT ((COMMA,TYPE,COMMA TYPE) IDENT)* RB)? T, ATYPE IDENTS EXPB< (COMMA IDENTS EXPB<)* T, OWN< ATYPE IDENT CONSTB< (EQ ((CONST OSEP)* (T Z)?)* CONST OWNT, OWNT), SWITCH< IDENTS CONSTB< (COMMA IDENTS CONSTB<)* T, BEGIN<< T, END<<< T, ENDPRIM< T, ENDPERM< T, ENDPROG<<<, FELSE IDENT (COMMA IDENT)* EXPB -> LB EXP COLON EXP RB CONSTB -> LB CONST BSEP CONST RB IMP -> VDEST EQ EXP< (SEP IMP)?, VDEST REFASS< REF<< (SEP IMP)?, JUMP (L, S< APP<<), R APP< (SEP IMP)?, (ADEST,MDEST) APP< ASSA<< EXP<<< (SEP IMP)?, SIMP, FRESULT EXP<, MRESULT REF<, BVDEST EQ EXP< (SEP IMP)?, BVDEST REFASS< BREF<< (SEP IMP)?, (BADEST,BMDEST) APP< ASSA<< EXP<<< (SEP IMP)?, PTEXT STRING< (SEP IMP)?, MONITOR SCONST< COND -> SCOND ((AND< SCOND)*, (OR< SCOND)*), EXP + SCOND -> LB COND RB, NOT SCOND, P APP<, (LB EXP RB (OP1 SEXP<)* (OP2 EXP1<)* (OP3 EXP2<)*, EXP) (+, COP EXP< (COP EXP<)?) REF -> VREF (REFOP< EXP<<)?, AREF APP<, MREF APP< BREF -> BVREF (REFOP< EXP<<)?, BAREF APP<, BMREF APP< CONST -> (SIGN,UOP)? SCONST< EXP -> UOP? SEXP< (OP1 SEXP<)* (OP2 EXP1<)* (OP3 EXP2<)*, SIGN EXP2< (OP3 EXP2)* EXP2 -> SEXP< (OP1 SEXP<)* (OP2 EXP1<)* EXP1 -> SEXP< (OP1 SEXP<)* SEXP -> V, SCONST, BV, (A,F,M,BA,BM) APP<, LB EXP RB, BAR SEXP MOD SEQ -> CONTROL EQ EXP< CSEP1 EXP< CSEP2 EXP< APP -> LB EXP RB /END