GLOBAL $( // LIBRARY GLOBALS INPUT:3 OUTPUT:4 LEVEL:18 LONGJUMP:19 PACKSTRING:20 UNPACKSTRING:21 WRITEC:28 WRITEN:32 WRITES:36 NEWLINE:43 $) GLOBAL $( // COMMUNICATORS GETTING:70 PERFORMGET:71 CONSOLE:72 REPORTERROR:73 REPORTMAX:74 RCH:75 CH:76 MARKERROR:77 FORMTREE:78 PRINTTREE:79 PRINTNAMES:80 COMPILEAE:81 LISTING:82 $) MANIFEST $( TREEMAX=6000 $) MANIFEST $( // AE OPERATORS AND SYMBOLS S.NUMBER=1; S.NAME=2; S.STRING=3; S.TRUE=4; S.FALSE=5 S.VALOF=6; S.LV=7; S.RV=8; S.VECAP=9; S.FNAP=10 S.MULT=11; S.DIV=12; S.REM=13 S.PLUS=14; S.MINUS=15; S.CHAR=16; S.NEG=17 S.EQ=20; S.NE=21; S.LS=22; S.GR=23; S.LE=24; S.GE=25 S.NOT=30; S.LSHIFT=31; S.RSHIFT=32; S.LOGAND=33; S.LOGOR=34 S.EQV=35; S.NEQV=36; S.COND=37; S.COMMA=38; S.TABLE=39 S.AND=40; S.VALDEF=41; S.VECDEF=42; S.CONSTDEF=43 S.FNDEF=44; S.RTDEF=45 S.ASS=50; S.RTAP=51; S.GOTO=52; S.RESULTIS=53 S.COLON=54 S.TEST=55; S.FOR=56; S.IF=57; S.UNLESS=58 S.WHILE=59; S.UNTIL=60; S.REPEAT=61; S.REPEATWHILE=62 S.REPEATUNTIL=63; S.BREAK=66; S.RETURN=67; S.FINISH=68 S.ENDCASE=69; S.SWITCHON=70; S.CASE=71; S.DEFAULT=72 S.SEQ=73; S.LET=74; S.MANIFEST=75; S.GLOBAL=76; S.STATIC=79 S.CODE=80; S.WHERE=81; S.INFIX=82; S.LOOP=83 $) MANIFEST $( // OTHER CANONICAL SYMBOLS S.BE=89; S.END=90; S.LSECT=91; S.RSECT=92; S.GET=93; S.SEMICOLON=97; S.INTO=98; S.TO=99; S.BY=100; S.DO=101; S.OR=102 S.VEC=103; S.LPAREN=105; S.RPAREN=106; S.OCT=109 $) GLOBAL $( // GLOBALS USED IN PP DECVAL=98; OCTVAL=99 WORDV:106; WORDLENGTH:108 SYMB:115; WORDNODE:116; RDTAG:118 NEXTSYMB:120; DECLSYSWORDS:121; NLPENDING:122 LOOKUPWORD:125 NULLTAG:134; REC.P:135; REC.L:136 $) GLOBAL $( // GLOBALS USED IN CAE RDBLOCKBODY:140; RDSECT:141 RNAMELIST:142; RNAME:143 REXP:144; RDEF:145; RCOM:146 RDCDEFS:147; NAMETREE:148; ERRORNAME:149 REPORT:151; PLIST:152 CHECKFOR:153; IGNORE:154 LIST1:161; LIST2:162; LIST3:163; LIST4:164; LIST5:165 NEWVEC:166; TREEP:167; TREEVEC:168; LIST6:169 $) MANIFEST $( // SELECTORS H1=0; H2=1; H3=2; H4=3; H5=4; H6=5 $)