Initial revision
This commit is contained in:
ceriel
648
lang/a68s/aem/syntax
Normal file
648
lang/a68s/aem/syntax
Normal file
@@ -0,0 +1,648 @@
|
||||
00100 .PR NOLIST .PR
|
||||
00110 .PR POINT .PR
|
||||
00120 # COPYRIGHT 1982 C.H.LINDSEY, UNIVERSITY OF MANCHESTER #
|
||||
00140 .COMMENT
|
||||
00160 ##
|
||||
00180 FLOYD PRODUCTIONS FOR ALGOL68S.
|
||||
00200 ##
|
||||
00220 ##
|
||||
00240 PRODUCTION SYNTAX.
|
||||
00260 ##
|
||||
00280 LABEL: STACK!INPUT => X-ROUTN ,N->NOTION ! (M) SCAN SUCCESS,FAIL;
|
||||
00300 ##
|
||||
00320 LABEL: - PRODUCTION LABEL (DEFAULT: NONE)
|
||||
00340 STACK - STACK CONFIQUATION TO LOOK FOR (ANY)
|
||||
00360 INPUT - INPUT LEXEME TO LOOK FOR (ANY)
|
||||
00380 X- - TYPE OF ROUTN
|
||||
00400 ROUTN - SEMANTIC ROUTINE TO CALL (NONE)
|
||||
00420 N-> - NUMBER OF LEXEMES TO POP FROM THE STACK (0)
|
||||
00440 NOTION - LEXEME TO PUSH ON THE STACK (NONE)
|
||||
00460 (M) - NUMBER OF INPUT LEXEMES TO SKIP (0)
|
||||
00480 SCAN - NUMBER OF INPUT LEXEMES TO PUSH ON STACK (NONE)
|
||||
00500 SUCCESS - SUCCESS LABEL
|
||||
00520 ,FAIL - FAILURE LABEL (FOLLOWING PRODUCTION)
|
||||
00540 ##
|
||||
00560 PRODUCTION SEMANTICS.
|
||||
00580 ##
|
||||
00600 IF STACK AND INPUT MATCH THE CURRENT STACK AND INPUT STATES THEN
|
||||
00620 THE ACTIONS SPECIFIED TO THE RIGHT OF THE "=>" ARE OBEYED;
|
||||
00640 OTHERWISE CONTROL PASSES TO THE PRODUCTION SPECIFIED BY FAIL.
|
||||
00660 ##
|
||||
00680 THE RIGHT SIDE IS INTERPRETED AS FOLLOWS.
|
||||
00700 IF THE X OF X-ROUTN IS AN 'S' THEN ROUTN SPECIFIES THE SEMANTIC ROUTINE
|
||||
00720 TO BE CALLED (ONLY IF NO SYNTACTIC ERRORS HAVE OCCURRED).
|
||||
00740 IF X IS AN 'A' THEN AN ACTION ROUTINE IS INDICATED.
|
||||
00760 AN 'E' INDICATES AN ERROR MESSAGE TO BE OUTPUT.
|
||||
00780 ACTION ROUTINES ARE INVOKED REGARDLESS OF
|
||||
00800 PREVIOUS ERRORS AND HELP MAKE PARSING DECISIONS BY RETURNING A
|
||||
00820 BOOLEAN VALUE. IF THE VALUE IS FALSE, THE PRODUCTION FAILS AND
|
||||
00840 THE FAIL EXIT IS TAKEN IMMEDIATELY.
|
||||
00860 ##
|
||||
00880 NEXT, N LEXEMES ARE POPPED FROM THE STACK. IF NOTION IS NOT
|
||||
00900 BLANK THEN A LEXEME FOR THE NOTION IS PUSHED ON THE STACK. (NOTE
|
||||
00920 THAT IF NOTION IS NON-BLANK, N-> MUST BE NON-BLANK ALSO.) M INPUT
|
||||
00940 LEXEMES ARE THEN SKIPPED. THE FIRST ONE SKIPPED IS THE CURRENT
|
||||
00960 INPUT LEXEME. THE NUMBER OF PLUSSES IN SCAN INDICATES THE
|
||||
00980 NUMBER OF INPUT LEXEMES TO BE PUSHED ON THE STACK. WHEN AN INPUT
|
||||
01000 LEXEME IS DISCARDED OR PUSHED, A NEW LEXEME IS READ IN TO REPLACE
|
||||
01020 IT. FINALLY, CONTROL IS TRANSFERED TO THE PRODUCTION INDICATED
|
||||
01040 BY SUCCESS.
|
||||
01060 ##
|
||||
01080 CONVENTIONS USED IN CONSTRUCTION OF PRODUCTION LABELS.
|
||||
01100 ##
|
||||
01120 NOTIONH - HEAD SECTION FOR NOTION
|
||||
01140 NOTIONT - TAIL SECTION FOR NOTION
|
||||
01160 NOTIONHN - MULTIPLE HEAD SECTIONS FOR NOTION
|
||||
01180 NOTIONTN - MULTIPLE TAIL SECTIONS FOR NOTION
|
||||
01200 LN - LOCAL LABEL USED ONLY AS DESTINATION OF PRECEDING PRODUCTION
|
||||
01220 (NECESSARY ONLY BECAUSE EVERY PRODUCTION MUST SPECIFY A SUCCESS LABEL)
|
||||
01240 TMN - TERMINAL SECTION
|
||||
01260 CMX - COMBINED SECTION
|
||||
01280 OTHERS - OTHER SELF-EXPLANATORY(?) LABELS
|
||||
01300 ##
|
||||
01320 SYLLABLES USED IN NOTION ABBREVIATIONS.
|
||||
01340 ##
|
||||
01360 PREFIX POSTFIX
|
||||
01380 ACT - ACTUAL CL - CLAUSE
|
||||
01400 BR - BRIEF DR - DECLARER
|
||||
01420 FOR - FORMAL L - LIST
|
||||
01440 PL - PARAMETER LIST
|
||||
01460 SOME OTHERS PT - PART
|
||||
01480 RL - ROWER LIST SR - SERIES
|
||||
01500 DEF - DEFINITION SQ - SEQUENCE
|
||||
01520 ##
|
||||
01540 SYMBOL CLASSES.
|
||||
01560 ##
|
||||
01580 CL00 # ALL THE THINGS THAT CAN START A UNIT OR A DECLARATION #
|
||||
01600 BEGIN@, BOOLDEN@, BY@, CASE@, DO@, EQUAL@, FOR@, FROM@,
|
||||
01620 GO@, GOTO@, HEAP@, IF@, LOC@, LONG@, MDIND@, MODE@, NIL@,
|
||||
01640 OP@, OPEN@, OPR@, OTHDR@, PRDEN@, PRDR@, PRIO@, PROC@, REF@, SHORT@,
|
||||
01660 SKIP@, START@, STRGDEN@, STRUCT@, SUB@, TAB@, TAG@, TO@, VOID@, WHILE@
|
||||
01680 ##
|
||||
01700 CL01 # ALL THE THINGS THAT CANNOT START A UNIT OR DECLARATION #
|
||||
01720 AGAIN@, AT@, BUS@, CLOSE@, COLON@, COMMA@, ELIF@, ELSE@, END@, ESAC@, EXIT@,
|
||||
01740 FI@, IDTY@, IN@, OD@, OUSE@, OUT@, SEMIC@, STICK@, STOP@, THEN@
|
||||
01760 ##
|
||||
01780 CL11 AT@, BUS@, CLOSE@, COMMA@
|
||||
01800 CL12 LONG@, MDIND@, OTHDR@, PRDR@,
|
||||
01820 PROC@, REF@, SHORT@, STRUCT@,
|
||||
01840 SUB@
|
||||
01860 CL13 UNITSR@, AGAIN@, BEGIN@, CASE@,
|
||||
01880 DO@, ELIF@, ELSE@, IF@, IN@,
|
||||
01900 OPEN@, OUSE@, OUT@, STICK@, CSTICK@,
|
||||
01920 THEN@, WHILE@
|
||||
01940 CL14 EQUAL@, OPR@, TAB@
|
||||
01960 ##
|
||||
01980 CL21 FOR@, BY@, FROM@, TO@, WHILE@, DO@
|
||||
02000 CL22 BEGIN@, CASE@, IF@, BRTHPT@, BRINPT@
|
||||
02020 CL23 OUSE@, OUT@
|
||||
02040 CL24 ELIF@, ELSE@
|
||||
02060 CL25 AT@, COLON@
|
||||
02080 CL26 OPEN@, SUB@
|
||||
02100 CL27 FLDSPL@, STRUCT@
|
||||
02120 CL28 OTHDR@, PRDR@
|
||||
02140 CL29 CSTICK@, AGAIN@, STICK@
|
||||
02160 CL2A BOOLDEN@, PRDEN@, STRGDEN@
|
||||
02180 CL2B MDIND@, TAB@
|
||||
02200 CL2C OP@, PROC@
|
||||
02220 CL2D COMMA@, SEMIC@
|
||||
02240 CL2E HEAP@ LOC@
|
||||
02260 CL2F CLOSE@, END@, ESAC@, F1@, OD@.
|
||||
02280 ##
|
||||
02300 .COMMENT
|
||||
02320 ##
|
||||
02340 #INITIAL STACK CONFIGURATION STOP@,STOP@!START@#
|
||||
02360 ##
|
||||
02380 INIT: ! => S-120 , ! ++ PROGH;
|
||||
02400 PROGH: TAG@!COLON@ => S-74 ,1-> ! (1) + PROGH,ENCLCLH;
|
||||
02420 ##
|
||||
02440 SERCLH: TAG@!COLON@ => S-74 , ! (1) LABT;
|
||||
02460 TAG@! => , ! SECDH;
|
||||
02480 CL2A! => S-65 ,1->PRIM ! PRIMT;
|
||||
02500 PROC@!TAG@ => S-31 , ! + CM3;
|
||||
02520 SUB@!CL00 => S-24 ,0->ACTRL ! + UNITH;
|
||||
02540 LOC@! => , ! + CM1;
|
||||
02560 OP@! => , ! + CM2;
|
||||
02580 PRIO@! => , ! + PDEFH;
|
||||
02600 MODE@! => S-32 , ! + MDEFH,UNITH1;
|
||||
02620 ##
|
||||
02640 UNITH: TAG@! => , ! SECDH;
|
||||
02660 CL2A! => S-65 ,1->PRIM ! PRIMT;
|
||||
02680 UNITH1: SKIP@! => S-67 , ! UNITT;
|
||||
02700 GOTO@! => S-67 , ! + TM2;
|
||||
02720 GO@!TO@ => S-67 , ! (1) + TM2;
|
||||
02740 GO@! => , ! ERROR01;
|
||||
02760 OPEN@!CL12 => A-2+ , ! RTEXTH;
|
||||
02770 OPEN@!OPEN@ => A-2+ , ! RTEXTH;
|
||||
02780 ##
|
||||
02800 TERTH: NIL@! => S-67 ,1->TERT ! TERTT;
|
||||
02820 ##
|
||||
02840 OPRANDH: CL14! => , ! + OPRANDH;
|
||||
02860 ##
|
||||
02880 SECDH: TAG@!OF@ => , ! ++ SECDH;
|
||||
02900 TAG@! => S-64 ,1->PRIM ! PRIMT;
|
||||
02920 CL2A! => S-65 ,1->PRIM ! PRIMT;
|
||||
02940 CL2E! => , ! + ACTDRH1;
|
||||
02960 VOID@! => S-10 ,1->MOIDDR ! MOIDDRT;
|
||||
02980 SUB@! => S-12 ,0->FORRLB ! FORRLT;
|
||||
03000 CL28! => S-10 , ! NONRDRT;
|
||||
03020 LONG@! => S-12 , ! LONGST2;
|
||||
03040 SHORT@! => S-13 , ! SHORTST2;
|
||||
03060 REF@! => , ! + FORDRH;
|
||||
03080 STRUCT@! => , ! + TM3;
|
||||
03100 CL2B! => , ! MDINDDRT;
|
||||
03120 PROC@! => , ! + PROCPH;
|
||||
03140 ##
|
||||
03160 ENCLCLH: FOR@! => , ! TM1;
|
||||
03180 WHILE@! => S-55 , ! + SERCLH;
|
||||
03200 DO@! => S-59 , ! + SERCLH;
|
||||
03220 CL21! => S-48 , ! FROMPTH;
|
||||
03222 OPEN@!CL01 => , ! FORDRH;
|
||||
03240 CL22! => S-34 , ! + SERCLH;
|
||||
03250 OPEN@! => S-34 , ! + SERCLH;
|
||||
03260 CL00! => E-33 , ! UNITH,ERROR01;
|
||||
03280 ##
|
||||
03300 PROCPH: ! => S-22 , ! L1;
|
||||
03320 L1: OPEN@! => , ! + FORDRH;
|
||||
03340 ##
|
||||
03360 MOIDDRH: VOID@! => S-10 ,1->MOIDDR ! MOIDDRT;
|
||||
03380 ##
|
||||
03400 FORDRH: CL26! => S-12 ,0->FORRLB ! FORRLT;
|
||||
03420 ##
|
||||
03440 NONRDRH: CL26!CL00 => E-35 , ! + UNITH;
|
||||
03460 CL26! => E-35 ,0->FORRLB ! FORRLT;
|
||||
03480 CL28! => S-10 , ! NONRDRT;
|
||||
03500 LONG@! => S-12 , ! LONGST1;
|
||||
03520 SHORT@! => S-13 , ! SHORTST1;
|
||||
03540 REF@! => , ! + FORDRH;
|
||||
03560 STRUCT@! => , ! + TM3;
|
||||
03580 CL2B! => , ! MDINDDRT;
|
||||
03600 PROC@! => , ! + PROCPH,ERROR02;
|
||||
03620 #ACTUAL-DECLARER IN GENERATOR#
|
||||
03640 ACTDRH1: CL26!CL00 => S-40 ,0->ACTRL ! + UNITH,ACTDRH3;
|
||||
03660 #ACTUAL-DECLARER IN MODE-DEFINITION#
|
||||
03680 ACTDRH2: VOID@! => S-10 ,1->MOIDDR ! MOIDDRT;
|
||||
03700 CL26!CL00 => S-69 ,0->ACTRL ! + UNITH;
|
||||
03720 ACTDRH3: CL26! => E-39 ,0->ACTRL ! FORRLT,NONRDRH;
|
||||
03740 ##
|
||||
03760 DCLH: PROC@!TAG@ => S-31 , ! + CM3;
|
||||
03780 SUB@!CL00 => S-24 , ! + UNITH;
|
||||
03800 LOC@! => , ! + CM1;
|
||||
03820 OP@! => , ! + CM2;
|
||||
03840 PRIO@! => , ! + PDEFH;
|
||||
03860 MODE@! => S-32 , ! + MDEFH,FORDRH;
|
||||
03880 ##
|
||||
03882 TRMSCH: CL26! => ,0->TRMSCL ! SECTL;
|
||||
03884 SECTL: !CL00 => , ! + UNITH;
|
||||
03886 !CL25 => , ! + SECTM,TRMSCLT;
|
||||
03893 ##
|
||||
03900 SECTM: COLON@!AT@ => ,1->BOUNDS ! ++ UNITH;
|
||||
03920 COLON@!CL11 => S-91 , ! TRMSCT;
|
||||
03940 ! => , ! + UNITH;
|
||||
04120 ##
|
||||
04130 #ACTUAL-DECLARER IN VARIABLE-DECLARATION WITH .LOC#
|
||||
04140 CM1: PROC@!TAG@ => S-31 ,1-> ! + RVDEFH;
|
||||
04160 CL26!CL00 => S-24 ,0->ACTRL ! + UNITH,ACTDRH3;
|
||||
04180 ##
|
||||
04200 FROMPTH: FROM@! => , ! + UNITH;
|
||||
04220 ! => S-50 , ! BYPTH;
|
||||
04240 BYPTH: BY@! => , ! + UNITH;
|
||||
04260 ! => S-53 , ! TOPTH;
|
||||
04280 TOPTH: TO@! => , ! + UNITH;
|
||||
04300 ! => S-52 , ! WHILEPTH;
|
||||
04320 WHILEPTH: WHILE@! => S-54 , ! + SERCLH;
|
||||
04340 DO@! => S-58 , ! + SERCLH,ERROR04;
|
||||
04360 ##
|
||||
04380 RTEXTH: OPEN@! => S-99 ,0->FORDCL ! + FORDRH,MOIDDRH;
|
||||
04400 ##
|
||||
04420 FLDSELLH: TAG@! => S-18 , ! FLDSELLT,ERROR05;
|
||||
04440 ##
|
||||
04460 FORPLH: TAG@! => S-20 , ! FORPLT,ERROR18;
|
||||
04480 ##
|
||||
04500 ACTPLH: ! => ,0->ACTPL ! + UNITH;
|
||||
04520 ##
|
||||
04540 BRALTH: ! => A-5+ , ! BRTHENPTH;
|
||||
04560 ##
|
||||
04580 BRINPTH: ! => S-38 ,1->CSTICK ! + UNITH;
|
||||
04600 ##
|
||||
04620 BRTHENPTH: ! => S-37 , ! + SERCLH;
|
||||
04640 ##
|
||||
04660 LABH: TAG@!COLON@ => S-74 , ! (1) LABT,ERROR09;
|
||||
04680 ##
|
||||
04700 IDEFH2: ! => S-29 , ! IDEFH1;
|
||||
04720 IDEFH1: !EQUAL@ => S-108 ,1->IDEFL ! (1) + UNITH,ERROR10;
|
||||
04740 ##
|
||||
04760 VDEFH2: ! => S-30 , ! VDEFH1;
|
||||
04780 VDEFH1: !BECOM@ => S-108 ,1->VDEFL ! (1) + UNITH;
|
||||
04800 !CL2D => S-107 , ! VDEFT,ERROR11;
|
||||
04820 ##
|
||||
04840 ODEFH2: ! => S-29 , ! ODEFH1;
|
||||
04860 ODEFH1: CL14!EQUAL@ => S-109 ,1->ODEFL ! (1) + UNITH,ERROR38;
|
||||
04880 ##
|
||||
04900 CM2: CL14! => S-31 , ! RODEFH,PROCPH;
|
||||
04920 RODEFH: !EQUAL@ => S-104 ,1->RODEFL ! (1) + RTEXTH,ERROR38;
|
||||
04940 ##
|
||||
04960 PDEFH: CL14!EQUAL@ => , ! (1) + TM4,ERROR40;
|
||||
04980 ##
|
||||
05000 MDEFH: CL2B!EQUAL@ => S-68 , ! (1) + ACTDRH2,ERROR12;
|
||||
05020 ##
|
||||
05040 CM3: !BECOM@ => S-33 , ! RVDEFH;
|
||||
05060 RIDEFH: !EQUAL@ => S-102 ,1->RIDEFL ! (1) + RTEXTH,ERROR41;
|
||||
05080 ##
|
||||
05100 RVDEFH: !BECOM@ => S-103 ,1->RVDEFL ! (1) + RTEXTH,ERROR11;
|
||||
05120 #TERMINAL SECTIONS#
|
||||
05140 TM1: !TAG@ => S-47 , ! (1) + FROMPTH,ERROR36;
|
||||
05160 ##
|
||||
05180 TM2: TAG@! => S-63 ,1-> ! UNITT,ERROR13;
|
||||
05200 ##
|
||||
05220 TM3: OPEN@! => S-22 ,1-> ! + NONRDRH,ERROR14;
|
||||
05240 ##
|
||||
05260 TM4: PRIMDEN@! => S-117 ,1-> ! PDEFT,ERROR43;
|
||||
05280 #TAIL SECTIONS#
|
||||
05300 SHORTST1: !SHORT@ => S-15 , ! (1) SHORTST1,LSCM1;
|
||||
05320 LONGST1: !LONG@ => S-14 , ! (1) LONGST1,LSCM1;
|
||||
05340 ##
|
||||
05360 SHORTST2: !SHORT@ => S-15 , ! (1) SHORTST2,LSCM2;
|
||||
05380 LONGST2: !LONG@ => S-14 , ! (1) LONGST2;
|
||||
05400 LSCM2: !PRIMDEN@ => S-66 ,1->PRIM ! (1) PRIMT;
|
||||
05420 LSCM1: !PRIMDR@ => S-11 , ! (1) NONRDRT,ERROR16;
|
||||
05440 ##
|
||||
05460 FORRLT: !COLON@ => , ! (1) FORROWT;
|
||||
05480 FORROWT: !COMMA@ => S-14 , ! (1) FORRLT;
|
||||
05500 SUB@,ANY!BUS@ => , ! (1) + NONRDRH;
|
||||
05510 OPEN@,ANY!CLOSE@ => , ! (1) + NONRDRH;
|
||||
05520 !CL00 => E-17 ,1->FORRLB ! + UNITH,MISMATCH;
|
||||
05540 ##
|
||||
05560 FLDSELLT: !COMMA@ => , ! (1) CM4;
|
||||
05580 !CLOSE@ => ,1-> ! FLDSPT,ERROR05;
|
||||
05600 ##
|
||||
05620 CM4: !TAG@ => S-19 , ! (1) FLDSELLT;
|
||||
05640 !CL12 => ,1-> ! FLDSPT;
|
||||
05650 !OPEN@ => ,1-> ! FLDSPT,ERROR05;
|
||||
05660 ##
|
||||
05680 FLDSPT: FLDSPL,ANY! => ,1-> ! FLDSPLT;
|
||||
05700 ! => ,1->FLDSPL ! FLDSPLT;
|
||||
05720 ##
|
||||
05740 FLDSPLT: STRUCT@,ANY!CLOSE@ => S-23 ,1-> ! (1) NONRDRT;
|
||||
05760 ! => , ! + NONRDRH;
|
||||
05780 ##
|
||||
05800 FORPLT: !COMMA@ => , ! (1) CM5;
|
||||
05820 !CLOSE@ => ,1-> ! FORDCT,ERROR18;
|
||||
05840 ##
|
||||
05860 CM5: !TAG@ => S-21 , ! (1) FORPLT;
|
||||
05880 !CL12 => ,1-> ! FORDCT;
|
||||
05890 !OPEN@ => ,1-> ! FORDCT,ERROR18;
|
||||
05900 ##
|
||||
05920 FORDCT: FORDCL,ANY! => ,1-> ! FORDCLT;
|
||||
05940 ! => ,1->FORDCL ! FORDCLT;
|
||||
05960 ##
|
||||
05980 FORDCLT: OPEN@,ANY!CLOSE@ => , ! ++ MOIDDRH;
|
||||
06000 ! => , ! + FORDRH;
|
||||
06020 ##
|
||||
06040 PRMDRLT: !COMMA@ => , ! (1) + FORDRH;
|
||||
06060 !CLOSE@ => , ! ++ MOIDDRH,ERROR19;
|
||||
06080 ##
|
||||
06100 MOIDDRT: CL2C,ANY! => , ! PROCPT;
|
||||
06120 MODE@,CL2B,ANY! => S-73 ,1-> ! MDEFT;
|
||||
06140 PRMDRL,ANY,ANY! => ,3-> ! PROCPT;
|
||||
06160 FORDCL,ANY,ANY! => ,4->RSPEC ! RSPECT1,CM7;
|
||||
06180 ##
|
||||
06200 NONRDRT: CL2E,ANY! => , ! ACTDRT;
|
||||
06220 CL27,ANY! => , ! + FLDSELLH;
|
||||
06240 REF@,ANY! => S-16 ,1-> ! NONRDRT;
|
||||
06260 ACTRL,ANY! => S-27 ,2-> ! NONRDRT;
|
||||
06280 CL26! => , ! ACTDRT;
|
||||
06300 FORRLB,ANY! => S-25 ,2-> ! FORDRT;
|
||||
06320 MODE@,CL2B,ANY! => S-73 ,1-> ! MDEFT;
|
||||
06340 CL2C,ANY! => , ! PROCPT;
|
||||
06360 CLOSE@,ANY! => ,1->MOIDDR ! MOIDDRT;
|
||||
06380 FORDCL,ANY! => , ! + FORPLH;
|
||||
06400 CL13,ANY!TAG@ => , ! + CM6,FORDRT;
|
||||
06420 ##
|
||||
06440 CM6: !EQUAL@ => , ! IDEFH2,CM8A;
|
||||
06460 ##
|
||||
06480 FORDRT: REF@,ANY! => S-16 ,1-> ! NONRDRT;
|
||||
06500 PRMDRL,ANY! => ,1-> ! PRMDRLT;
|
||||
06520 FORDCL,ANY! => , ! + FORPLH;
|
||||
06540 CL2C,ANY! => , ! PROCPT;
|
||||
06560 PRMDRL,ANY,ANY! => ,3-> ! PROCPT;
|
||||
06580 FORDCL,ANY,ANY! => ,4->RSPEC ! RSPECT1;
|
||||
06600 CL2C,OPEN@,ANY! => ,1->PRMDRL ! PRMDRLT;
|
||||
06620 CL13,ANY!TAG@ => , ! + IDEFH2;
|
||||
06640 ##
|
||||
06660 CM7: !TAG@ => , ! ERROR31,CM7A;
|
||||
06680 ##
|
||||
06700 CM7A: !COLON@ => S-17 ,1->RSPEC ! (1) RSPECT2;
|
||||
06720 ! => S-116 ,1->MOIDDR ! + ENCLCLH; #CAST#
|
||||
06740 ##
|
||||
06760 MDINDDRT: ! => A-3+ , ! NONRDRT;
|
||||
06780 ! => A-4+ ,1->MOIDDR ! MOIDDRT;
|
||||
06800 FORRLB,ANY! => E-35 , ! NONRDRT;
|
||||
06820 ACTRL,ANY! => E-35 , ! NONRDRT;
|
||||
06840 CL27,ANY! => E-35 , ! NONRDRT;
|
||||
06860 REF@,ANY! => S-16 ,1-> ! NONRDRT;
|
||||
06880 PRMDRL,ANY! => ,1-> ! PRMDRLT;
|
||||
06900 FORDCL,ANY! => , ! + FORPLH;
|
||||
06920 CL2C,ANY! => , ! PROCPT;
|
||||
06940 LOC@,ANY!TAG@ => S-71 ,1-> ! VDEFH3;
|
||||
06960 CL2E,ANY! => S-70 , ! ACTDRT;
|
||||
06980 MODE@,CL2B,ANY! => S-72 ,1-> ! MDEFT;
|
||||
07000 PRMDRL,ANY,ANY! => ,3-> ! PROCPT;
|
||||
07020 FORDCL,ANY,ANY! => ,4->RSPEC ! RSPECT1;
|
||||
07040 CL2C,ANY,ANY! => ,1->PRMDRL ! PRMDRLT;
|
||||
07060 CL13,ANY!TAG@ => , ! + CM8,CM7;
|
||||
07080 ##
|
||||
07100 CM8: !EQUAL@ => , ! IDEFH2;
|
||||
07120 ! => S-71 , ! CM8A;
|
||||
07140 CM8A: ! => S-33 , ! VDEFH2;
|
||||
07160 ##
|
||||
07180 ACTDRT: LOC@,ANY!TAG@ => ,1-> ! VDEFH3;
|
||||
07200 CL2E,ANY! => S-98 ,1-> ! SECDT;
|
||||
07220 MODE@,CL2B,ANY! => S-73 ,1-> ! MDEFT;
|
||||
07240 CL13,ANY!TAG@ => S-33 , ! VDEFH3;
|
||||
07260 ##
|
||||
07280 VDEFH3: CL13,ANY!TAG@ => , ! + VDEFH2,ERROR31;
|
||||
07300 ##
|
||||
07320 RSPECT1: !COLON@ => S-28 , ! (1) RSPECT2,ERROR23;
|
||||
07340 RSPECT2: RIDEFL,ANY! => S-105 , ! + UNITH;
|
||||
07360 RVDEFL,ANY! => S-105 , ! + UNITH;
|
||||
07380 RODEFL,ANY! => S-106 , ! + UNITH;
|
||||
07400 ! => S-100 , ! + UNITH;
|
||||
07420 ##
|
||||
07440 RTEXTT: RIDEFL,ANY! => S-111 ,1-> ! RIDEFT;
|
||||
07460 RVDEFL,ANY! => S-111 ,1-> ! RVDEFT;
|
||||
07480 RODEFL,ANY! => S-111 ,1-> ! RODEFT;
|
||||
07500 ! => , ! UNITT;
|
||||
07520 ##
|
||||
07540 PROCPT: PROC@,ANY! => S-28 ,2->NONRDR ! NONRDRT;
|
||||
07560 OP@,ANY! => S-28 ,1-> ! + ODEFH2,ERROR15;
|
||||
07580 ##
|
||||
07600 PRIMT: !SUB@ => S-85 , ! + TRMSCH;
|
||||
07620 !OPEN@ => A-9+ , ! + ACTPLH;
|
||||
07630 !OPEN@ => S-85 , ! + TRMSCH;
|
||||
07640 ##
|
||||
07660 SECDT: OF@,ANY! => S-75 ,2-> ! SECDT;
|
||||
07680 CL14,ANY! => ,1->OPRAND ! MONOPDT;
|
||||
07700 !CL14 => S-77 ,1->OPRAND ! CM9A,TERTT;
|
||||
07720 ##
|
||||
07740 MONOPDT: OPRAND,ANY,ANY! => , ! DYOPDT;
|
||||
07760 OP@,ANY,ANY! => , ! DYOPDT;
|
||||
07780 CL14,ANY! => S-78 ,2->OPRAND ! MONOPDT;
|
||||
07800 ##
|
||||
07820 DYOPDT: !CL14 => S-77 , ! CM9;
|
||||
07840 OPRAND,CL14,ANY! => S-79 ,2-> ! DYOPDT,TERTT;
|
||||
07860 ##
|
||||
07880 CM9: OPRAND,CL14,ANY! => A-1+ ,2-> ! DYOPDT;
|
||||
07900 CM9A: ! => S-80 , ! ++ UNITH;
|
||||
07920 ##
|
||||
07940 TERTT: IDTY@,ANY! => S-82 ,2-> ! TERTT; #RATHER THAN UNITT#
|
||||
07960 !BECOM@ => S-83 ,1->TERT ! ++ UNITH;
|
||||
07980 !IDTY@ => S-81 ,1->TERT ! ++ TERTH;
|
||||
08000 ##
|
||||
08020 UNITT: UNITSR,ANY! => ,1-> ! UNITSRT;
|
||||
08040 CL13,ANY! => , ! UNITCOM;
|
||||
08060 TERT,BECOM@,ANY! => S-84 ,2-> ! UNITT;
|
||||
08080 VDEFL,ANY! => S-110 ,1-> ! VDEFT;
|
||||
08100 IDEFL,ANY! => S-110 ,1-> ! IDEFT;
|
||||
08120 ACTPL,ANY! => ,1-> ! ACTPLT;
|
||||
08140 FROM@,ANY! => S-49 ,1-> ! + BYPTH;
|
||||
08160 BY@,ANY! => S-49 ,1-> ! + TOPTH;
|
||||
08180 TO@,ANY! => S-49 ,1-> ! + WHILEPTH;
|
||||
08200 UNITLC,ANY! => ,1-> ! UNITLCT;
|
||||
08220 UNITLP,ANY! => ,1-> ! UNITLPT;
|
||||
08240 RSPEC,ANY! => S-101 ,1-> ! RTEXTT;
|
||||
08260 LABSQ,ANY! => ,1-> ! LABUNITT;
|
||||
08280 ODEFL,ANY! => S-111 ,1-> ! ODEFT;
|
||||
08300 COLON@,ANY! => S-95 ,2-> ! CMB;
|
||||
08320 AT@,ANY! => S-90 ,1-> ! REVLBT;
|
||||
08340 !COLON@ => S-94 ,1->TERT ! LOWBNDT;
|
||||
08380 TRMSCL,ANY! => S-92 ,1-> ! TRMSCLT;
|
||||
08400 UNITCOM: !COMMA@ => ,1->TERT ! UNITLT;
|
||||
08420 ! => , ! UNITSRT;
|
||||
08440 ##
|
||||
08460 UNITLT: OPEN@,ANY! => S-113 ,1->UNITLC ! (1) + UNITH;
|
||||
08480 BEGIN@,ANY! => S-113 ,1->UNITLC ! (1) + UNITH;
|
||||
08500 ! => S-41 ,1->UNITLP ! (1) + UNITH;
|
||||
08520 ##
|
||||
08540 LOWBNDT: ACTRL,ANY! => , ! ++ UNITH;
|
||||
08600 ! => S-87 , ! + CMA;
|
||||
08620 # LOWER-BOUND IN TRIMMER#
|
||||
08640 CMA: !CL11 => ,2->BOUNDS ! BOUNDST;
|
||||
08660 ! => , ! + UNITH;
|
||||
08680 #COMBINED ACTRLT AND BOUNDST, AFTER COLON#
|
||||
08700 CMB: ACTRL,ANY! => ,1-> ! ACTRLT;
|
||||
08720 TRMSCL,ANY! => S-88 ,1->BOUNDS ! BOUNDST;
|
||||
08760 FORRLB,ANY! => ,1-> ! ACTRLT; #ERROR PATH FROM E-17#
|
||||
08770 ! => S-88 ,0->BOUNDS ! BOUNDST; #NO UNIT BEFORE THE COLON#
|
||||
08820 ##
|
||||
08840 ACTRLT: !COMMA@ => , ! (1) + UNITH;
|
||||
08860 SUB@,ANY!BUS@ => S-26 , ! ACTRLT2;
|
||||
08862 OPEN@,ANY!CLOSE@ => S-26 , ! ACTRLT2;
|
||||
08866 !CL00 => , ! ERROR20,MISMATCH;
|
||||
08873 ##
|
||||
08880 ACTRLT2: CL2B,ANY,ANY! => S-101 , ! (1) + NONRDRH; #MODE-DECLARATION#
|
||||
08900 ! => , ! (1) + NONRDRH;
|
||||
08920 ##
|
||||
08940 BOUNDST: !AT@ => S-89 , ! ++ UNITH,TRMSCT;
|
||||
08960 ##
|
||||
08980 REVLBT: BOUNDS,ANY! => ,1-> ! TRMSCT;
|
||||
09000 TRMSCT: TRMSCL,ANY! => ,1-> ! TRMSCLT;
|
||||
09020 ! => ,1->TRMSCL ! TRMSCLT;
|
||||
09040 ##
|
||||
09060 TRMSCLT: !COMMA@ => S-86 , ! (1) TRMSCH;
|
||||
09070 SUB@,ANY!BUS@ => S-93 ,2-> ! (1) PRIMT;
|
||||
09072 OPEN@,ANY!CLOSE@ => S-93 ,2-> ! (1) PRIMT;
|
||||
09080 !CL00 => , ! ERROR03,MISMATCH;
|
||||
09090 ##
|
||||
09120 UNITLCT: !COMMA@ => S-114 , ! (1) + UNITH;
|
||||
09140 OPEN@,ANY!CLOSE@ => S-115 ,1-> ! (1) UNITLCT1;
|
||||
09160 BEGIN@,ANY!END@ => S-115 ,1-> ! (1) UNITLCT1,ERROR37;
|
||||
09180 ##
|
||||
09200 UNITLCT1: OPEN@,ANY! => ,1->PRIM ! UNITLCT2;
|
||||
09220 BEGIN@,ANY! => ,1->PRIM ! UNITLCT2,ENCLCLT;
|
||||
09240 ##
|
||||
09260 UNITLCT2: !COMMA@ => , ! ENCLCLT,ERROR34;
|
||||
09280 ##
|
||||
09300 UNITLPT: ! => S-41 , ! UNITLPT1;
|
||||
09320 UNITLPT1: !COMMA@ => , ! (1) + UNITH;
|
||||
09340 CSTICK@,ANY! => S-34 ,2->BRINPT ! BRINPTT;
|
||||
09360 STICK@,ANY! => A-7+ ,2->BRINPT ! BRINPTT;
|
||||
09380 IN@,ANY! => S-34 ,2-> ! INPTT,ERROR25;
|
||||
09400 ##
|
||||
09420 ACTPLT: !COMMA@ => S-96 , ! (1) + UNITH;
|
||||
09440 OPEN@,ANY!CLOSE@ => S-97 ,2-> ! (1) PRIMT,ERROR22;
|
||||
09460 ##
|
||||
09480 LABUNITT: UNITSR,ANY! => ,1-> ! UNITSRT;
|
||||
09500 ##
|
||||
09520 UNITSRT: CL13,ANY!SEMIC@ => S-62 ,1->UNITSR ! (1) + SERCLH;
|
||||
09540 CL13,ANY!EXIT@ => S-46 ,1->UNITSR ! ++ LABH;
|
||||
09560 ##
|
||||
09580 SERCLT: CL13,ANY! => S-43 ,1->UNITSR ! L2,ERROR33;
|
||||
09600 L2: OPEN@,ANY!CLOSE@ => ,1-> ! (1) ENCLCLT;
|
||||
09620 BEGIN@,ANY!END@ => ,1-> ! (1) ENCLCLT;
|
||||
09640 IF@,ANY!THEN@ => S-37 ,1-> ! ++ SERCLH;
|
||||
09660 THEN@,ANY! => S-39 ,2-> ! THENPTT;
|
||||
09680 ELSE@,ANY! => ,2-> ! CONDALTT;
|
||||
09700 ELIF@,ANY!THEN@ => S-37 ,1-> ! ++ SERCLH;
|
||||
09720 OPEN@,ANY!STICK@ => ,1-> ! + BRALTH;
|
||||
09740 CASE@,ANY!IN@ => S-38 ,1-> ! ++ SERCLH;
|
||||
09760 OUT@,ANY! => ,2-> ! CASEALTT;
|
||||
09780 OUSE@,ANY!IN@ => S-38 ,1-> ! ++ SERCLH;
|
||||
09800 DO@,ANY!OD@ => S-60 ,1-> ! (1) DOPTT;
|
||||
09820 WHILE@,ANY!DO@ => S-57 ,1-> ! ++ SERCLH;
|
||||
09840 BRTHPT,STICK@,ANY! => ,2-> ! BRCONDALTT;
|
||||
09860 BRINPT,STICK@,ANY! => ,2-> ! BRCASEALTT;
|
||||
09880 CSTICK@,ANY! => E-42 ,1->UNITLP ! UNITLPT;
|
||||
09900 IN@,ANY! => E-42 ,1->UNITLP ! UNITLPT;
|
||||
09920 STICK@,ANY! => S-39 ,2->BRTHPT ! BRTHENPTT;
|
||||
09940 BRTHPT,AGAIN@,ANY! => ,1-> ! + BRTHENPTH;
|
||||
09960 BRINPT,AGAIN@,ANY! => ,1-> ! + BRINPTH,ERROR24;
|
||||
09980 ##
|
||||
10000 BRCONDALTT:OPEN@,ANY!CLOSE@ => S-35 ,1-> ! (1) ENCLCLT;
|
||||
10020 AGAIN@,ANY! => S-35 ,2-> ! BRCONDALTT,ERROR24;
|
||||
10040 ##
|
||||
10060 CONDALTT: IF@!FI@ => S-35 , ! (1) ENCLCLT;
|
||||
10080 ELIF@! => S-35 ,1-> ! CONDALTT,ERROR24;
|
||||
10100 ##
|
||||
10120 BRCASEALTT:OPEN@,ANY!CLOSE@ => S-42 ,1-> ! (1) ENCLCLT;
|
||||
10140 AGAIN@,ANY! => S-42 ,2-> ! BRCASEALTT,ERROR24;
|
||||
10160 ##
|
||||
10180 CASEALTT: CASE@!ESAC@ => S-42 , ! (1) ENCLCLT;
|
||||
10200 OUSE@! => S-42 ,1-> ! CASEALTT,ERROR24;
|
||||
10220 ##
|
||||
10240 BRTHENPTT: !CL29 => , ! ++ SERCLH;
|
||||
10260 ! => S-36 , ! BRCONDALTT;
|
||||
10280 ##
|
||||
10300 THENPTT: !CL24 => , ! ++ SERCLH;
|
||||
10320 ! => S-36 , ! CONDALTT;
|
||||
10340 ##
|
||||
10360 BRINPTT: !CL29 => , ! ++ SERCLH;
|
||||
10380 ! => S-36 , ! BRCASEALTT;
|
||||
10400 ##
|
||||
10420 INPTT: !CL23 => , ! ++ SERCLH;
|
||||
10440 ! => S-36 , ! CASEALTT;
|
||||
10460 ##
|
||||
10480 DOPTT: WHILE@,ANY! => S-56 ,1-> ! WHILEPTT;
|
||||
10500 WHILEPTT: TO@,ANY! => ,1-> ! TOPTT;
|
||||
10520 TOPTT: BY@,ANY! => ,1-> ! BYPTT;
|
||||
10540 BYPTT: FROM@,ANY! => ,1-> ! FROMPTT;
|
||||
10560 FROMPTT: FOR@,ANY! => ,1-> ! LOOPCLT;
|
||||
10580 LOOPCLT: ! => S-61 , ! ENCLCLT;
|
||||
10600 ##
|
||||
10620 ENCLCLT: START@,ANY! => S-44 , ! CMC;
|
||||
10640 MOIDDR,ANY! => S-45 ,2->PRIM ! PRIMT;
|
||||
10660 ! => S-44 ,1->PRIM ! PRIMT;
|
||||
10680 ##
|
||||
10700 CMC: !STOP@ => S-118 , ! QUIT,ERROR21;
|
||||
10720 ##
|
||||
10740 QUIT: ! => S-121 , ! QUIT;
|
||||
10760 #DCL WAS FOLLOWED BY COMMAS#
|
||||
10780 DCLT1: ! => ,2-> ! + DCLH;
|
||||
10800 #DCL WAS FOLLOWED BY NON-COMMAS#
|
||||
10820 DCLT2: ! => S-112 ,2-> ! DCLPT;
|
||||
10840 ##
|
||||
10860 DCLPT: UNITSR!SEMIC@ => , ! (1) + SERCLH;
|
||||
10880 !SEMIC@ => ,0->UNITSR ! (1) + SERCLH,ERROR30;
|
||||
10900 ##
|
||||
10920 LABT: LABSQ,ANY! => ,1-> ! LABSQT;
|
||||
10940 EXIT@,ANY! => ,2-> ! + SERCLH;
|
||||
10960 ! => ,1->LABSQ ! LABSQT;
|
||||
10980 ##
|
||||
11000 LABSQT: !TAG@ => , ! + CMD;
|
||||
11020 ! => , ! + UNITH;
|
||||
11040 ##
|
||||
11060 CMD: !COLON@ => S-74 , ! (1) LABT,UNITH;
|
||||
11080 ##
|
||||
11100 IDEFT: !COMMA@ => , ! (1) CME,DCLT2;
|
||||
11120 ##
|
||||
11140 CME: !TAG@ => ,1-> ! + IDEFH1,DCLT1;
|
||||
11160 ##
|
||||
11180 RIDEFT: !COMMA@ => , ! (1) CMF,DCLT2;
|
||||
11200 ##
|
||||
11220 CMF: !TAG@ => ,1-> ! + RIDEFH,DCLT1;
|
||||
11240 ##
|
||||
11260 VDEFT: PROC@,ANY! => , ! ERROR32;
|
||||
11280 # CAN THIS REALLY HAPPEN? #
|
||||
11300 !COMMA@ => , ! (1) CMG,DCLT2;
|
||||
11320 ##
|
||||
11340 CMG: !TAG@ => ,1-> ! + VDEFH1,DCLT1;
|
||||
11360 ##
|
||||
11380 RVDEFT: !COMMA@ => , ! (1) CMH,DCLT2;
|
||||
11400 ##
|
||||
11420 CMH: !TAG@ => ,1-> ! + RVDEFH,DCLT1;
|
||||
11440 ##
|
||||
11460 ODEFT: !COMMA@ => , ! (1) CMI,DCLT2;
|
||||
11480 ##
|
||||
11500 CMI: !CL14 => ,1-> ! + ODEFH1,DCLT1;
|
||||
11520 ##
|
||||
11540 RODEFT: !COMMA@ => , ! (1) CMJ,DCLT2;
|
||||
11560 ##
|
||||
11580 CMJ: !CL14 => ,1-> ! + RODEFH,DCLT1;
|
||||
11600 ##
|
||||
11620 PDEFT: !COMMA@ => , ! (1) CMK,DCLT2;
|
||||
11640 ##
|
||||
11660 CMK: !CL14 => ,1-> ! + PDEFH,DCLT1;
|
||||
11680 ##
|
||||
11700 MDEFT: !COMMA@ => , ! (1) CML,DCLT2;
|
||||
11720 ##
|
||||
11740 CML: !CL2B => A-6+ ,1-> ! + MDEFH,DCLT1;
|
||||
11760 #SYNTAX ERROR PROCESSING; ACTIVATED AFTER BRANCH TO ERRORNN #
|
||||
11780 PERROR: CL13! => S-119 , ! PEA1;
|
||||
11800 START@! => S-119 , ! PEA2;
|
||||
11820 ! => ,1-> ! PERROR;
|
||||
11840 ##
|
||||
11860 PEA1: !SEMIC@ => A-8+ , ! (1) + SERCLH;
|
||||
11880 !CL23 => A-8+ , ! INPTT;
|
||||
11900 !CL24 => A-8+ , ! THENPTT;
|
||||
11920 !CL29 => A-8+ , ! BRTHENPTT;
|
||||
11940 !CL2F => A-8+ , ! (1) ENCLCLT;
|
||||
11960 !STOP@ => E-08 , ! QUIT;
|
||||
11980 !CL21 => , ! + PEA1;
|
||||
12000 !CL22 => , ! + PEA1;
|
||||
12010 !CL26 => , ! + PEA1;
|
||||
12020 ! => , ! (1) PEA1;
|
||||
12040 ##
|
||||
12060 PEA2: !STOP@ => E-08 , ! QUIT;
|
||||
12080 ! => , ! (1) PEA2;
|
||||
12100 ##
|
||||
12120 ERROR01: ! => E-01 , ! PERROR;
|
||||
12140 ERROR02: ! => E-02 , ! PERROR;
|
||||
12160 ERROR03: ! => E-03 , ! PERROR;
|
||||
12180 ERROR04: ! => E-04 , ! PERROR;
|
||||
12200 ERROR05: ! => E-05 , ! PERROR;
|
||||
12220 ERROR09: ! => E-09 , ! PERROR;
|
||||
12240 ERROR10: ! => E-10 , ! PERROR;
|
||||
12260 ERROR11: ! => E-11 , ! PERROR;
|
||||
12280 ERROR12: ! => E-12 , ! PERROR;
|
||||
12300 ERROR13: ! => E-13 , ! PERROR;
|
||||
12320 ERROR14: ! => E-14 , ! PERROR;
|
||||
12340 ERROR15: ! => E-15 , ! PERROR;
|
||||
12360 ERROR16: ! => E-16 , ! PERROR;
|
||||
12380 ERROR18: ! => E-18 , ! PERROR;
|
||||
12400 ERROR19: ! => E-19 , ! PERROR;
|
||||
12420 ERROR20: ! => E-20 , ! PERROR;
|
||||
12440 ERROR21: ! => E-21 , ! PERROR;
|
||||
12460 ERROR22: ! => E-22 , ! PERROR;
|
||||
12480 ERROR23: ! => E-23 , ! PERROR;
|
||||
12500 ERROR24: !CL00 => E-24 , ! PERROR;
|
||||
12520 MISMATCH: CL21! => E-26 , ! PEA3;
|
||||
12540 BEGIN@! => E-27 , ! PEA3;
|
||||
12560 CASE@! => E-28 , ! PEA3;
|
||||
12580 IF@! => E-29 , ! PEA3;
|
||||
12600 CL22! => E-7 , ! PEA3;
|
||||
12606 OPEN@! => E-7 , ! PEA3;
|
||||
12613 SUB@! => E-6 , ! PEA3;
|
||||
12620 ! => ,1-> ! MISMATCH;
|
||||
12640 PEA3: ! => S-119 , ! PEA1;
|
||||
12660 ERROR25: ! => E-25 , ! PERROR;
|
||||
12680 ERROR30: ! => E-30 , ! PERROR;
|
||||
12700 ERROR31: ! => E-31 , ! PERROR;
|
||||
12720 ERROR32: ! => E-32 , ! PERROR;
|
||||
12740 ERROR33: ! => E-33 , ! PERROR;
|
||||
12760 ERROR34: ! => E-34 , ! PERROR;
|
||||
12780 ERROR36: ! => E-36 , ! PERROR;
|
||||
12800 ERROR37: ! => E-37 , ! PERROR;
|
||||
12820 ERROR38: ! => E-38 , ! PERROR;
|
||||
12840 ERROR40: ! => E-40 , ! PERROR;
|
||||
12860 ERROR41: ! => E-41 , ! PERROR;
|
||||
12880 ERROR43: ! => E-43 , ! PERROR,PERROR;
|
||||
Reference in New Issue
Block a user