
/* Local variables for acon: */   
struct LOC_acon {a k;allpacked r;} ; 
Local Void uc(l, cn, dt, LINK)       
long l, cn; char dt;                 
struct LOC_acon *LINK;               
{  putatm(LINK->r.bl, l, &LINK->k);  
  mkatom(LINK->k, dt, &cnst[cn ].sa);} 
Static Void acon()                  
{  struct LOC_acon V;    mpd x;     
  mainlistdescriptor *WITH;         
V.r.p1='T';
uc (1L,1L,idatom,&V);
V.r.p1=' ';
uc (1L,2L,atom,&V);
memcpy(V.r.p11,"RIGCOMP.TMP",11L);
uc (11L,3L,atom,&V);
memcpy(V.r.p4,".rig",4L);
uc (4L,4L,atom,&V);
memcpy(V.r.p13,"RIGAL v.4.45 ",13L);
uc (13L,5L,atom,&V);
memcpy(V.r.p3,",  ",3L);
uc (3L,6L,atom,&V);
memcpy(V.r.p8," tokens ",8L);
uc (8L,7L,atom,&V);
memcpy(V.r.p4,"MAIN",4L);
uc (4L,8L,idatom,&V);
memcpy(V.r.p4,".RC2",4L);
uc (4L,9L,atom,&V);
memcpy(V.r.p15,"Compiler reopen",15L);
uc (15L,10L,atom,&V);
memcpy(V.r.p8,"acon(); ",8L);
uc (8L,11L,atom,&V);
memcpy(V.r.p10,"Analysing ",10L);
uc (10L,12L,atom,&V);
memcpy(V.r.p2,", ",2L);
uc (2L,13L,atom,&V);
memcpy(V.r.p9," tokens (",9L);
uc (9L,14L,atom,&V);
memcpy(V.r.p4," of ",4L);
uc (4L,15L,atom,&V);
memcpy(V.r.p7," files)",7L);
uc (7L,16L,atom,&V);
memcpy(V.r.p6,"NOMAIN",6L);
uc (6L,17L,idatom,&V);
memcpy(V.r.p6,"Total ",6L);
uc (6L,18L,atom,&V);
memcpy(V.r.p11," tokens in ",11L);
uc (11L,19L,atom,&V);
memcpy(V.r.p6," files",6L);
uc (6L,20L,atom,&V);
memcpy(V.r.p4,".RC4",4L);
uc (4L,21L,atom,&V);
V.r.p1='#';
uc (1L,22L,atom,&V);
memcpy(V.r.p8,"STARLIST",8L);
uc (8L,23L,idatom,&V);
memcpy(V.r.p8,"PLUSLIST",8L);
uc (8L,24L,idatom,&V);
memcpy(V.r.p6,"FACULT",6L);
uc (6L,25L,idatom,&V);
memcpy(V.r.p11,"ALTERNATIVE",11L);
uc (11L,26L,idatom,&V);
memcpy(V.r.p3,"VAR",3L);
uc (3L,27L,idatom,&V);
memcpy(V.r.p2,":=",2L);
uc (2L,28L,atom,&V);
memcpy(V.r.p4,"NULL",4L);
uc (4L,29L,idatom,&V);
memcpy(V.r.p3,"ATM",3L);
uc (3L,30L,idatom,&V);
memcpy(V.r.p10,"BLTIN_NAME",10L);
uc (10L,31L,idatom,&V);
memcpy(V.r.p8,"RULENAME",8L);
uc (8L,32L,idatom,&V);
V.r.p1='S';
uc (1L,33L,idatom,&V);
memcpy(V.r.p4,"SPAT",4L);
uc (4L,34L,idatom,&V);
V.r.p1='V';
uc (1L,35L,idatom,&V);
memcpy(V.r.p4,"VPAT",4L);
uc (4L,36L,idatom,&V);
memcpy(V.r.p4,"LIST",4L);
uc (4L,37L,idatom,&V);
memcpy(V.r.p4,"TREE",4L);
uc (4L,38L,idatom,&V);
memcpy(V.r.p3,"NUM",3L);
uc (3L,39L,idatom,&V);
memcpy(V.r.p4,"ATOM",4L);
uc (4L,40L,idatom,&V);
V.r.p1='[';
uc (1L,41L,atom,&V);
memcpy(V.r.p2,"OR",2L);
uc (2L,42L,idatom,&V);
memcpy(V.r.p3,"log",3L);
uc (3L,43L,idatom,&V);
memcpy(V.r.p3,"wrk",3L);
uc (3L,44L,idatom,&V);
memcpy(V.r.p3,"AND",3L);
uc (3L,45L,idatom,&V);
memcpy(V.r.p5,"~islo",5L);
uc (5L,46L,idatom,&V);
memcpy(V.r.p8,"SELECTOR",8L);
uc (8L,47L,idatom,&V);
memcpy(V.r.p5,"INDEX",5L);
uc (5L,48L,idatom,&V);
memcpy(V.r.p6,"FORALL",6L);
uc (6L,49L,idatom,&V);
memcpy(V.r.p4,"LOOP",4L);
uc (4L,50L,idatom,&V);
memcpy(V.r.p5,"BLTIN",5L);
uc (5L,51L,idatom,&V);
memcpy(V.r.p7,"IMPLODE",7L);
uc (7L,52L,idatom,&V);
memcpy(V.r.p4,"CALL",4L);
uc (4L,53L,idatom,&V);
memcpy(V.r.p5,"ASSGN",5L);
uc (5L,54L,idatom,&V);
memcpy(V.r.p2,"IF",2L);
uc (2L,55L,idatom,&V);
memcpy(V.r.p4,"OPEN",4L);
uc (4L,56L,idatom,&V);
V.r.p1='@';
uc (1L,57L,atom,&V);
memcpy(V.r.p3,"PUT",3L);
uc (3L,58L,idatom,&V);
memcpy(V.r.p5,"CLOSE",5L);
uc (5L,59L,idatom,&V);
memcpy(V.r.p7,"CONLIST",7L);
uc (7L,60L,idatom,&V);
memcpy(V.r.p7,"CONTREE",7L);
uc (7L,61L,idatom,&V);
memcpy(V.r.p4,"LAST",4L);
uc (4L,62L,idatom,&V);
memcpy(V.r.p4,"COPY",4L);
uc (4L,63L,idatom,&V);
memcpy(V.r.p2,"$$",2L);
uc (2L,64L,atom,&V);
memcpy(V.r.p4,"cnst",4L);
uc (4L,65L,idatom,&V);
V.r.p1=']';
uc (1L,66L,atom,&V);
memcpy(V.r.p8,"CONSTANT",8L);
uc (8L,67L,idatom,&V);
  gets5(&cnst[ 68 ].sa, &x.sa); 
  WITH = x.smld;   
  WITH->dtype = listmain;  
  WITH->elnum = 1;         
  WITH->totalelnum = 1;    
  WITH->name = null_;      
  WITH->next = null_;}     
/* Local variables for acop: */     
struct LOC_acop {  allpacked r;} ;  
Local Void uc_(l, cn, dt, LINK)     
long l, cn; char dt;                
struct LOC_acop *LINK;              
{putatm(LINK->r.bl, l, &acnst[cn ]);}   
Static Void acop()     
{struct LOC_acop V;    
V.r.p1='T';
uc_(1L,1L,idatom,&V);
memcpy(V.r.p3,"ERR",3L);
uc_(3L,2L,idatom,&V);
memcpy(V.r.p2,"FL",2L);
uc_(2L,3L,idatom,&V);
memcpy(V.r.p6,"SUMLEX",6L);
uc_(6L,4L,idatom,&V);
memcpy(V.r.p5,"FLCUR",5L);
uc_(5L,5L,idatom,&V);
memcpy(V.r.p3,"TAB",3L);
uc_(3L,6L,idatom,&V);
memcpy(V.r.p7,"RULENUM",7L);
uc_(7L,7L,idatom,&V);
memcpy(V.r.p7,"LASTVAR",7L);
uc_(7L,8L,idatom,&V);
memcpy(V.r.p5,"CONST",5L);
uc_(5L,9L,idatom,&V);
memcpy(V.r.p5,"CROSS",5L);
uc_(5L,10L,idatom,&V);
memcpy(V.r.p6,"ACONST",6L);
uc_(6L,11L,idatom,&V);
V.r.p1='R';
uc_(1L,12L,idatom,&V);
memcpy(V.r.p4,"MAIN",4L);
uc_(4L,13L,idatom,&V);
memcpy(V.r.p6,"NOMAIN",6L);
uc_(6L,14L,idatom,&V);
V.r.p1=';';
uc_(1L,15L,atom,&V);
memcpy(V.r.p2,"##",2L);
uc_(2L,16L,atom,&V);
memcpy(V.r.p6,"MAXWRK",6L);
uc_(6L,17L,idatom,&V);
memcpy(V.r.p5,"MAXPL",5L);
uc_(5L,18L,idatom,&V);
memcpy(V.r.p8,"MAX_FLAG",8L);
uc_(8L,19L,idatom,&V);
memcpy(V.r.p8,"MAXLABEL",8L);
uc_(8L,20L,idatom,&V);
memcpy(V.r.p4,"BODY",4L);
uc_(4L,21L,idatom,&V);
memcpy(V.r.p2,"(*",2L);
uc_(2L,22L,atom,&V);
memcpy(V.r.p2,"*)",2L);
uc_(2L,23L,atom,&V);
V.r.p1='*';
uc_(1L,24L,atom,&V);
V.r.p1=')';
uc_(1L,25L,atom,&V);
memcpy(V.r.p7,"WORK_PL",7L);
uc_(7L,26L,idatom,&V);
memcpy(V.r.p5,"LABEL",5L);
uc_(5L,27L,idatom,&V);
memcpy(V.r.p11,"DELIM_LABEL",11L);
uc_(11L,28L,idatom,&V);
memcpy(V.r.p9,"DELIMITER",9L);
uc_(9L,29L,idatom,&V);
memcpy(V.r.p2,"(+",2L);
uc_(2L,30L,atom,&V);
memcpy(V.r.p2,"+)",2L);
uc_(2L,31L,atom,&V);
V.r.p1='+';
uc_(1L,32L,atom,&V);
memcpy(V.r.p4,"FLAG",4L);
uc_(4L,33L,idatom,&V);
V.r.p1='[';
uc_(1L,34L,atom,&V);
V.r.p1=']';
uc_(1L,35L,atom,&V);
V.r.p1='(';
uc_(1L,36L,atom,&V);
memcpy(V.r.p12,"metka_uspeha",12L);
uc_(12L,37L,idatom,&V);
V.r.p1='!';
uc_(1L,38L,atom,&V);
memcpy(V.r.p2,":=",2L);
uc_(2L,39L,atom,&V);
memcpy(V.r.p3,"VAR",3L);
uc_(3L,40L,idatom,&V);
memcpy(V.r.p4,"NAME",4L);
uc_(4L,41L,idatom,&V);
memcpy(V.r.p3,"PAT",3L);
uc_(3L,42L,idatom,&V);
memcpy(V.r.p2,"++",2L);
uc_(2L,43L,atom,&V);
memcpy(V.r.p2,"!.",2L);
uc_(2L,44L,atom,&V);
memcpy(V.r.p2,"!!",2L);
uc_(2L,45L,atom,&V);
memcpy(V.r.p3,"VAL",3L);
uc_(3L,46L,idatom,&V);
memcpy(V.r.p5,"mesto",5L);
uc_(5L,47L,idatom,&V);
memcpy(V.r.p7,"EXPLODE",7L);
uc_(7L,48L,idatom,&V);
memcpy(V.r.p7,"IMPLODE",7L);
uc_(7L,49L,idatom,&V);
memcpy(V.r.p2,"(.",2L);
uc_(2L,50L,atom,&V);
memcpy(V.r.p2,".)",2L);
uc_(2L,51L,atom,&V);
memcpy(V.r.p2,"<.",2L);
uc_(2L,52L,atom,&V);
memcpy(V.r.p2,".>",2L);
uc_(2L,53L,atom,&V);
memcpy(V.r.p2,"<*",2L);
uc_(2L,54L,atom,&V);
V.r.p1=':';
uc_(1L,55L,atom,&V);
memcpy(V.r.p2,"*>",2L);
uc_(2L,56L,atom,&V);
memcpy(V.r.p4,"LOOP",4L);
uc_(4L,57L,idatom,&V);
memcpy(V.r.p2,"::",2L);
uc_(2L,58L,atom,&V);
V.r.p1=',';
uc_(1L,59L,atom,&V);
memcpy(V.r.p4,"ATOM",4L);
uc_(4L,60L,idatom,&V);
memcpy(V.r.p6,"NUMBER",6L);
uc_(6L,61L,idatom,&V);
memcpy(V.r.p5,"IDENT",5L);
uc_(5L,62L,idatom,&V);
memcpy(V.r.p4,"LIST",4L);
uc_(4L,63L,idatom,&V);
memcpy(V.r.p4,"TREE",4L);
uc_(4L,64L,idatom,&V);
memcpy(V.r.p5,"TATOM",5L);
uc_(5L,65L,idatom,&V);
memcpy(V.r.p5,"FATOM",5L);
uc_(5L,66L,idatom,&V);
memcpy(V.r.p8,"_KEYWORD",8L);
uc_(8L,67L,idatom,&V);
memcpy(V.r.p9,"_SPECDESC",9L);
uc_(9L,68L,idatom,&V);
memcpy(V.r.p8,"_VARNAME",8L);
uc_(8L,69L,idatom,&V);
memcpy(V.r.p9,"_RULENAME",9L);
uc_(9L,70L,idatom,&V);
memcpy(V.r.p3,"LEN",3L);
uc_(3L,71L,idatom,&V);
memcpy(V.r.p10,"_RULETOATM",10L);
uc_(10L,72L,idatom,&V);
memcpy(V.r.p10,"_VARNTOATM",10L);
uc_(10L,73L,idatom,&V);
memcpy(V.r.p5,"DEBUG",5L);
uc_(5L,74L,idatom,&V);
memcpy(V.r.p10,"_SPECTODSC",10L);
uc_(10L,75L,idatom,&V);
memcpy(V.r.p9,"_CONTENT2",9L);
uc_(9L,76L,idatom,&V);
memcpy(V.r.p3,"CHR",3L);
uc_(3L,77L,idatom,&V);
memcpy(V.r.p4,"PARM",4L);
uc_(4L,78L,idatom,&V);
memcpy(V.r.p8,"_TOTATOM",8L);
uc_(8L,79L,idatom,&V);
memcpy(V.r.p3,"ORD",3L);
uc_(3L,80L,idatom,&V);
memcpy(V.r.p11,"REZZZERVED1",11L);
uc_(11L,81L,idatom,&V);
memcpy(V.r.p11,"REZZZERVED2",11L);
uc_(11L,82L,idatom,&V);
memcpy(V.r.p2,"OR",2L);
uc_(2L,83L,idatom,&V);
memcpy(V.r.p4,"ARG1",4L);
uc_(4L,84L,idatom,&V);
memcpy(V.r.p4,"ARG2",4L);
uc_(4L,85L,idatom,&V);
memcpy(V.r.p3,"tip",3L);
uc_(3L,86L,idatom,&V);
memcpy(V.r.p3,"AND",3L);
uc_(3L,87L,idatom,&V);
V.r.p1='=';
uc_(1L,88L,atom,&V);
memcpy(V.r.p2,"<>",2L);
uc_(2L,89L,atom,&V);
V.r.p1='>';
uc_(1L,90L,atom,&V);
V.r.p1='<';
uc_(1L,91L,atom,&V);
memcpy(V.r.p2,">=",2L);
uc_(2L,92L,atom,&V);
memcpy(V.r.p2,"<=",2L);
uc_(2L,93L,atom,&V);
V.r.p1='-';
uc_(1L,94L,atom,&V);
memcpy(V.r.p3,"DIV",3L);
uc_(3L,95L,idatom,&V);
memcpy(V.r.p3,"MOD",3L);
uc_(3L,96L,idatom,&V);
memcpy(V.r.p3,"NOT",3L);
uc_(3L,97L,idatom,&V);
memcpy(V.r.p3,"ARG",3L);
uc_(3L,98L,idatom,&V);
V.r.p1='.';
uc_(1L,99L,atom,&V);
memcpy(V.r.p6,"RETURN",6L);
uc_(6L,100L,idatom,&V);
memcpy(V.r.p5,"PRINT",5L);
uc_(5L,101L,idatom,&V);
memcpy(V.r.p6,"FORALL",6L);
uc_(6L,102L,idatom,&V);
memcpy(V.r.p9,"SELECTORS",9L);
uc_(9L,103L,idatom,&V);
memcpy(V.r.p8,"BRANCHES",8L);
uc_(8L,104L,idatom,&V);
memcpy(V.r.p2,"IN",2L);
uc_(2L,105L,idatom,&V);
memcpy(V.r.p2,"DO",2L);
uc_(2L,106L,idatom,&V);
memcpy(V.r.p2,"OD",2L);
uc_(2L,107L,idatom,&V);
memcpy(V.r.p2,"PL",2L);
uc_(2L,108L,idatom,&V);
memcpy(V.r.p12,"BRANCHES_VAR",12L);
uc_(12L,109L,idatom,&V);
memcpy(V.r.p3,"END",3L);
uc_(3L,110L,idatom,&V);
memcpy(V.r.p5,"BREAK",5L);
uc_(5L,111L,idatom,&V);
memcpy(V.r.p4,"FAIL",4L);
uc_(4L,112L,idatom,&V);
memcpy(V.r.p3,"NOM",3L);
uc_(3L,113L,idatom,&V);
memcpy(V.r.p4,"ARGS",4L);
uc_(4L,114L,idatom,&V);
memcpy(V.r.p2,"op",2L);
uc_(2L,115L,idatom,&V);
memcpy(V.r.p4,"praw",4L);
uc_(4L,116L,idatom,&V);
memcpy(V.r.p3,"lew",3L);
uc_(3L,117L,idatom,&V);
memcpy(V.r.p6,"USESUN",6L);
uc_(6L,118L,idatom,&V);
memcpy(V.r.p2,";;",2L);
uc_(2L,119L,atom,&V);
memcpy(V.r.p6,"ONFAIL",6L);
uc_(6L,120L,idatom,&V);
memcpy(V.r.p6,"USEVAR",6L);
uc_(6L,121L,idatom,&V);
V.r.p1='/';
uc_(1L,122L,atom,&V);
memcpy(V.r.p2,"IF",2L);
uc_(2L,123L,idatom,&V);
memcpy(V.r.p2,"->",2L);
uc_(2L,124L,atom,&V);
memcpy(V.r.p4,"COND",4L);
uc_(4L,125L,idatom,&V);
memcpy(V.r.p5,"ELSIF",5L);
uc_(5L,126L,idatom,&V);
memcpy(V.r.p2,"FI",2L);
uc_(2L,127L,idatom,&V);
memcpy(V.r.p4,"LOAD",4L);
uc_(4L,128L,idatom,&V);
memcpy(V.r.p4,"SAVE",4L);
uc_(4L,129L,idatom,&V);
V.r.p1='_';
uc_(1L,130L,idatom,&V);
memcpy(V.r.p9,"FILE_SPEC",9L);
uc_(9L,131L,idatom,&V);
memcpy(V.r.p4,"OPEN",4L);
uc_(4L,132L,idatom,&V);
memcpy(V.r.p2,"<<",2L);
uc_(2L,133L,atom,&V);
memcpy(V.r.p2,"<]",2L);
uc_(2L,134L,atom,&V);
V.r.p1='@';
uc_(1L,135L,atom,&V);
memcpy(V.r.p3,"arg",3L);
uc_(3L,136L,idatom,&V);
memcpy(V.r.p5,"CLOSE",5L);
uc_(5L,137L,idatom,&V);
memcpy(V.r.p4,"LAST",4L);
uc_(4L,138L,idatom,&V);
memcpy(V.r.p4,"RULE",4L);
uc_(4L,139L,idatom,&V);
memcpy(V.r.p4,"COPY",4L);
uc_(4L,140L,idatom,&V);
memcpy(V.r.p2,"$$",2L);
uc_(2L,141L,atom,&V);
memcpy(V.r.p6,"mesto2",6L);
uc_(6L,142L,idatom,&V);
} 
