SUBROUTINE SIMPL0(STATE)
INTEGER STATE
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER HEAD,TAIL
INTEGER MAKET0
HEAD=0
TAIL=0
CALL COLLF0(HEAD,TAIL)
CALL EXPRT0(MAKET0(0,0,1024,HEAD))
STATE=3
RETURN
END
SUBROUTINE CHECK0
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER HEAD,TAIL,Q,P,R
INTEGER EXPRS0,DSGET
Q=EXPRS0(Q)
CALL EXPRT0(Q)
IF((MEMAA0(Q+0).EQ.1024))GOTO 10000
RETURN
10000 HEAD=MEMAA0(Q+3)
R=HEAD
GOTO 10003
10001 R=MEMAA0(R+0)
10003 IF((R.EQ.0))GOTO 10002
TAIL=R
GOTO 10001
10002 P=DSGET(1+3)
MEMAA0(P+0)=HEAD
MEMAA0(P+1)=168
MEMAA0(P+2)=168
MEMAA0(P+2+1)=0
HEAD=P
MEMAA0(Q+3)=P
P=DSGET(1+3)
MEMAA0(P+0)=0
MEMAA0(P+1)=169
MEMAA0(P+2)=169
MEMAA0(P+2+1)=0
MEMAA0(TAIL+0)=P
TAIL=P
CALL COLLF0(HEAD,TAIL)
RETURN
END
SUBROUTINE COLLF0(HEAD,TAIL)
INTEGER HEAD,TAIL
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER NLPAR
INTEGER SAVES0
INTEGER AAAAA0
INTEGER AAAAB0
NLPAR=0
10004 CONTINUE
10005 IF((SYMBO0.NE.138))GOTO 10006
CALL GETSYM
GOTO 10005
10006 AAAAA0=SYMBO0
GOTO 10007
10008 IF((NLPAR.NE.0))GOTO 10011
GOTO 10010
10012 IF((NLPAR.EQ.0))GOTO 10010
CALL SYNERR('missing right parenthesis.')
10013 GOTO 10010
10014 NLPAR=NLPAR+(1)
GOTO 10011
10015 NLPAR=NLPAR-(1)
IF((NLPAR.GE.0))GOTO 10011
GOTO 10010
10007 IF(AAAAA0.EQ.-1)GOTO 10012
AAAAB0=AAAAA0-165
GOTO(10008,10017,10014,10015,10017,10017,10008,10017,10017,10017
*,10017,10017,10017,10017,10017,10017,10017,10017,10017,10017,10017
*,10012),AAAAB0
AAAAB0=AAAAA0-250
GOTO(10012,10008,10012),AAAAB0
AAAAB0=AAAAA0-999
GOTO(10008,10008,10008,10008,10008,10008,10008,10008,10008),AAAA
*B0
10017 CONTINUE
10011 TAIL=SAVES0(TAIL)
IF((HEAD.NE.0))GOTO 10018
HEAD=TAIL
10018 CALL GETSYM
IF((NLPAR.GE.0))GOTO 10004
10010 RETURN
END
SUBROUTINE GENER0(FB)
INTEGER FB
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER P
INTEGER EXPRS0
CALL ENTEU0(1007)
P=EXPRS0(P)
CALL GENIF(P,FB)
RETURN
END
SUBROUTINE GENIF(P,FB)
INTEGER P
INTEGER FB
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER L
INTEGER LABGEN
INTEGER AAAAC0
INTEGER AAAAD0(4)
INTEGER AAAAE0(7)
DATA AAAAD0/201,198,168,0/
DATA AAAAE0/169,199,207,212,207,160,0/
CALL PROPA0(P)
AAAAC0=MEMAA0(P+0)
GOTO 10019
10020 CALL GENIF(MEMAA0(P+1),FB)
CALL GENIF(MEMAA0(P+2),FB)
CALL DSFREE(P)
GOTO 10021
10022 CALL NEGAT0(P)
L=LABGEN(1)
CALL GENIF(MEMAA0(P+1),L)
CALL GENIF(MEMAA0(P+2),L)
CALL OUTGO(FB)
CALL OUTNUM(L,3)
CALL DSFREE(P)
GOTO 10021
10019 IF(AAAAC0.EQ.1000)GOTO 10022
IF(AAAAC0.EQ.1008)GOTO 10020
CALL OUTTAB(3)
CALL OUTSTR(AAAAD0,3)
CALL GENEX0(P)
CALL OUTSTR(AAAAE0,3)
CALL OUTGO0(FB)
CALL OUTDON(3)
10021 RETURN
END
SUBROUTINE GENEX0(P)
INTEGER P
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER T
INTEGER RESTO0
INTEGER Q
INTEGER BUF(200)
INTEGER LENGTH
INTEGER AAAAF0
INTEGER AAAAG0(6)
INTEGER AAAAH0
INTEGER AAAAI0
INTEGER AAAAJ0(5)
INTEGER AAAAK0(6)
INTEGER AAAAL0(5)
INTEGER AAAAM0(5)
INTEGER AAAAN0(5)
INTEGER AAAAO0(5)
INTEGER AAAAP0(5)
INTEGER AAAAQ0(5)
INTEGER AAAAR0
DATA AAAAG0/174,206,207,212,174,0/
DATA AAAAJ0/174,207,210,174,0/
DATA AAAAK0/174,193,206,196,174,0/
DATA AAAAL0/174,197,209,174,0/
DATA AAAAM0/174,206,197,174,0/
DATA AAAAN0/174,199,197,174,0/
DATA AAAAO0/174,204,197,174,0/
DATA AAAAP0/174,199,212,174,0/
DATA AAAAQ0/174,204,212,174,0/
CALL PROPA0(P)
AAAAF0=MEMAA0(P+0)
GOTO 10023
10024 CALL SYNERR('|| appears within argument of & or |.')
MEMAA0(P+0)=252
GOTO 10025
10026 CALL SYNERR('&& appears within argument of & or |.')
MEMAA0(P+0)=166
GOTO 10025
10027 Q=MEMAA0(P+3)
10028 IF((RESTO0(Q,BUF,T).EQ.-1))GOTO 10029
IF((T.NE.1041))GOTO 10030
CALL OUTLIT(BUF,LENGTH(BUF),3)
GOTO 10028
10030 CALL OUTSTR(BUF,3)
10031 GOTO 10028
10029 CALL DSFREE(P)
RETURN
10032 CALL OUTCH(168,3)
CALL OUTSTR(AAAAG0,3)
CALL GENEX0(MEMAA0(P+1))
CALL OUTCH(169,3)
CALL DSFREE(P)
RETURN
10023 AAAAH0=AAAAF0-999
GOTO(10026,10033,10033,10033,10033,10033,10033,10032,10024),AAAAH0
IF(AAAAF0.EQ.1024)GOTO 10027
10033 CONTINUE
10025 CALL OUTCH(168,3)
CALL GENEX0(MEMAA0(P+1))
AAAAI0=MEMAA0(P+0)
GOTO 10034
10035 CALL OUTSTR(AAAAJ0,3)
GOTO 10036
10037 CALL OUTSTR(AAAAK0,3)
GOTO 10036
10038 CALL OUTSTR(AAAAL0,3)
GOTO 10036
10039 CALL OUTSTR(AAAAM0,3)
GOTO 10036
10040 CALL OUTSTR(AAAAN0,3)
GOTO 10036
10041 CALL OUTSTR(AAAAO0,3)
GOTO 10036
10042 CALL OUTSTR(AAAAP0,3)
GOTO 10036
10043 CALL OUTSTR(AAAAQ0,3)
GOTO 10036
10034 IF(AAAAI0.EQ.166)GOTO 10037
IF(AAAAI0.EQ.252)GOTO 10035
AAAAR0=AAAAI0-1000
GOTO(10038,10040,10042,10041,10043,10039),AAAAR0
CALL FATAL0('in gen_expr: can''t happen.')
10036 CALL GENEX0(MEMAA0(P+2))
CALL OUTCH(169,3)
CALL DSFREE(P)
RETURN
END
SUBROUTINE PROPA0(P)
INTEGER P
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER Q,R
INTEGER AAAAS0
INTEGER AAAAT0
10044 IF((MEMAA0(P+0).EQ.1007))GOTO 10045
RETURN
10045 Q=MEMAA0(P+1)
IF((MEMAA0(Q+0).EQ.1007))GOTO 10046
GOTO 10047
10046 R=MEMAA0(Q+1)
CALL COPYT0(R,P)
CALL DSFREE(Q)
CALL DSFREE(R)
GOTO 10044
10047 AAAAS0=MEMAA0(Q+0)
GOTO 10048
10049 CALL REPLA0(P,Q,1000)
CALL NEGAT0(P)
GOTO 10050
10051 CALL REPLA0(P,Q,1008)
CALL NEGAT0(P)
GOTO 10050
10052 CALL REPLA0(P,Q,166)
CALL NEGAT0(P)
GOTO 10050
10053 CALL REPLA0(P,Q,252)
CALL NEGAT0(P)
GOTO 10050
10054 CALL REPLA0(P,Q,1006)
GOTO 10050
10055 CALL REPLA0(P,Q,1001)
GOTO 10050
10056 CALL REPLA0(P,Q,1002)
GOTO 10050
10057 CALL REPLA0(P,Q,1004)
GOTO 10050
10058 CALL REPLA0(P,Q,1005)
GOTO 10050
10059 CALL REPLA0(P,Q,1003)
GOTO 10050
10048 IF(AAAAS0.EQ.166)GOTO 10053
IF(AAAAS0.EQ.252)GOTO 10052
AAAAT0=AAAAS0-999
GOTO(10051,10054,10058,10057,10059,10056,10055,10060,10049),AAAAT0
10060 CONTINUE
10050 RETURN
END
SUBROUTINE REPLA0(P,Q,OP)
INTEGER P,Q
INTEGER OP
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
CALL COPYT0(Q,P)
CALL DSFREE(Q)
MEMAA0(P+0)=OP
RETURN
END
SUBROUTINE NEGAT0(P)
INTEGER P
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER MAKET0
MEMAA0(P+1)=MAKET0(MEMAA0(P+1),0,1007,0)
MEMAA0(P+2)=MAKET0(MEMAA0(P+2),0,1007,0)
RETURN
END
SUBROUTINE COPYT0(P,Q)
INTEGER P,Q
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
MEMAA0(Q+1)=MEMAA0(P+1)
MEMAA0(Q+2)=MEMAA0(P+2)
MEMAA0(Q+0)=MEMAA0(P+0)
MEMAA0(Q+3)=MEMAA0(P+3)
RETURN
END
SUBROUTINE ENTEU0(OP)
INTEGER OP
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER P,Q
INTEGER MAKET0,EXPRS0
IF((OP.NE.1007))GOTO 10061
P=EXPRS0(P)
Q=0
GOTO 10062
10061 Q=EXPRS0(Q)
P=EXPRS0(P)
10062 CALL EXPRT0(MAKET0(P,Q,OP,0))
RETURN
END
SUBROUTINE EXPRT0(P)
INTEGER P
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
IF((EXPRV0.LT.20))GOTO 10063
CALL FATAL0('expr stack overflow.')
10063 EXPRV0=EXPRV0+(1)
EXPRU0(EXPRV0)=P
RETURN
END
INTEGER FUNCTION EXPRS0(P)
INTEGER P
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
IF((EXPRV0.GT.0))GOTO 10064
CALL FATAL0('expr stack underflow.')
10064 P=EXPRU0(EXPRV0)
EXPRV0=EXPRV0-(1)
EXPRS0=P
RETURN
END
INTEGER FUNCTION SAVES0(P)
INTEGER P
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER LENGTH
INTEGER DSGET
SAVES0=DSGET(LENGTH(SYMTE0)+3)
MEMAA0(SAVES0+0)=0
MEMAA0(SAVES0+1)=SYMBO0
CALL SCOPY(SYMTE0,1,MEMAA0,SAVES0+2)
IF((P.EQ.0))GOTO 10065
MEMAA0(P+0)=SAVES0
10065 RETURN
END
INTEGER FUNCTION RESTO0(P,BUF,T)
INTEGER P
INTEGER BUF(1)
INTEGER T
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER Q
INTEGER SCOPY
IF((P.NE.0))GOTO 10066
RESTO0=-1
GOTO 10067
10066 CALL SCOPY(MEMAA0(P+2),1,BUF,1)
T=MEMAA0(P+1)
Q=P
P=MEMAA0(P+0)
CALL DSFREE(Q)
RESTO0=-2
10067 RETURN
END
INTEGER FUNCTION MAKET0(LEFT,RIGHT,TYPE,VALUE)
INTEGER LEFT,RIGHT,VALUE
INTEGER TYPE
INTEGER SYMTE0(200),SYMLO0(200),LASTV0(200)
INTEGER SYMLE0,SYMBO0
INTEGER IDTAB0,UNAME0
COMMON /LEXCOM/SYMTE0,SYMLE0,SYMBO0,IDTAB0,UNAME0,SYMLO0,LASTV0
INTEGER INBUF0(505)
INTEGER IBPAA0,LINEN0(5),LEVEL0
INTEGER INFIL0(5)
COMMON /INCOM/INBUF0,IBPAA0,LINEN0,INFIL0,LEVEL0
INTEGER LOOPS0,NEXTL0(10),BREAL0(10)
COMMON /LOOPC0/LOOPS0,NEXTL0,BREAL0
INTEGER OUTBU0(128,4)
INTEGER OUTPA0(4)
COMMON /OBUFC0/OUTBU0,OUTPA0
INTEGER MEMAA0(32767)
COMMON /DS$MEM/MEMAA0
INTEGER OUTFI0(4),FORTF0
COMMON /OUTFIL/OUTFI0,FORTF0
INTEGER EXPRU0(20),EXPRV0,FALSE0
COMMON /CODEG0/EXPRU0,EXPRV0,FALSE0
INTEGER SCVAL0(256),SCLAB0(256),SLTAA0,RESUL0(10)
COMMON /SELGEN/SCVAL0,SCLAB0,SLTAA0,RESUL0
INTEGER SCOPE0
INTEGER SCOPF0(100),PROCH0,PROCT0
COMMON /PRCCOM/SCOPE0,SCOPF0,PROCH0,PROCT0
INTEGER DISPA0,LASTD0,XGOFR0(407),XGOTO0(407),LGOLI0(1000),LGOPO0(
*1000),LGOST0(1000),LGOLP0
COMMON /GOCOM/DISPA0,LASTD0,XGOFR0,XGOTO0,LGOLI0,LGOPO0,LGOST0,LGO
*LP0
INTEGER MODUL0(200),MODUM0(200),ERROR0(200),TLITC0(256),TLITE0
INTEGER CURLA0,BRACE0,INDEN0,FIRST0,SPNUM0,LASTN0,CODEL0
INTEGER PROFD0
INTEGER A$BUF(200)
COMMON /MISCOM/MODUL0,CURLA0,BRACE0,INDEN0,MODUM0,FIRST0,PROFD0,SP
*NUM0,ERROR0,A$BUF,LASTN0,CODEL0,TLITC0,TLITE0
INTEGER P
INTEGER DSGET
P=DSGET(4)
MEMAA0(P+1)=LEFT
MEMAA0(P+2)=RIGHT
MEMAA0(P+0)=TYPE
MEMAA0(P+3)=VALUE
MAKET0=P
RETURN
END
C ---- Long Name Map ----
C boolterm boolt0
C callstmt calls0
C casestmt cases0
C returnstmt retus0
C Xgofrom xgofr0
C booloperand boolo0
C collectbalancedstring collf0
C dataother datao0
C deleteunderscores delet0
C enterdefinition enter0
C codeother codeo0
C endmodule endmo0
C enterlongname entet0
C forstmt forst0
C Fortfile fortf0
C Tlitchar tlitc0
C Tliteos tlite0
C Indent inden0
C Slt sltaa0
C otherstmt other0
C cleanup clean0
C convertstringconstant conve0
C putbackstr putbc0
C simpleboolexpr simpl0
C Breaklab breal0
C boolexpr boole0
C generateexprcode gener0
C putback putba0
C Xgoto xgoto0
C Lgostmt lgost0
C copylefthandside copyl0
C genchardata gench0
C maketreenode maket0
C obufcom obufc0
C genprocentry genpt0
C invokemacro invok0
C linkagedecl linka0
C setupprochead setuq0
C Dispatchflag dispa0
C Spnum spnum0
C Codelinenum codel0
C genintdecl genin0
C selectstmt selec0
C checklastforboolean check0
C loadtranstable loadt0
C repeatstmt repea0
C Proctable proct0
C Lastdispatchflag lastd0
C begindecl begin0
C refillbuffer refil0
C exprstackpop exprs0
C strtabledecl strta0
C equivother equiv0
C stopmodule stopm0
C strdecl strde0
C returnmodule retur0
C genproccontroldecl genps0
C beginstmt begip0
C breakstmt break0
C genparam genpa0
C savemodulename savem0
C genprocgoto genpu0
C genselectcode gense0
C includedecl inclu0
C listlongnames listl0
C localdecl local0
C Lgoline lgoli0
C Lgopos lgopo0
C Outbuf outbu0
C Firststmt first0
C Symbol symbo0
C Inbuf inbuf0
C Ibp ibpaa0
C compoundstmt compo0
C genexpr genex0
C loopcom loopc0
C ratforcode ratfo0
C replacetreenode repla0
C Unametable uname0
C Nextlab nextl0
C enddecl endde0
C fatalerr fatal0
C Symlen symle0
C Prochead proch0
C boolfactor boolf0
C exitscope exits0
C gendataitem gendb0
C parboolexpr parbo0
C propagatenots propa0
C removedefinition remov0
C statement state0
C Symlongtext symlo0
C Level level0
C Mem memaa0
C dgetsym dgets0
C gettranschar gettr0
C Falsebranch false0
C Scopetable scopf0
C Profdictfile profd0
C boolprimary boolp0
C Symtext symte0
C Scvalue scval0
C declaration decla0
C endprogram endpr0
C enteroperator enteu0
C gotostmt gotos0
C process procg0
C Loopsp loops0
C codegen codeg0
C enterkw entes0
C setuplocalid setup0
C Modulelongname modum0
C enterprocparam entev0
C proceduredecl proce0
C Result resul0
C Bracecount brace0
C initialize initi0
C restoresym resto0
C skipwhitespace skipw0
C Exprstackptr exprv0
C Lgolp lgolp0
C Modulename modul0
C genproccall genpr0
C genprocreturn genpv0
C getactualparameters getac0
C Outp outpa0
C Outfile outfi0
C beginmodule begio0
C Infile infil0
C makeunique makeu0
C nextstmt nexts0
C collectactualparameter colle0
C gendataend genda0
C negatechildren negat0
C outgolab outgo0
C procedurestmt procf0
C Curlab curla0
C genselgoto gensf0
C Exprstack expru0
C copytreenode copyt0
C enterscope entew0
C savesym saves0
C whilestmt while0
C Lastvar lastv0
C Scopesp scope0
C createprocscope creat0
C escapestmt escap0
C getdefinition getde0
C exprstackpush exprt0
C getformalparameters getfo0
C getlongname getlo0
C putbacknum putbb0
C setupwhen setur0
C cleanupgotos cleao0
C Idtable idtab0
C declother declo0
C stopstmt stops0
C Linenumber linen0
C Sclabel sclab0
C Errorsym error0
C Lastnumout lastn0