INTEGER FUNCTION FLOWGT(EXPR,REGS,COND,LABEL) INTEGER EXPR INTEGER REGS LOGICAL COND INTEGER LABEL INTEGER IMEMA0(65530),TMEMA0(65000),ERROR0,BREAK0,CONTI0 INTEGER SMEMA0(32767) INTEGER BREAL0(10),CONTJ0(10) INTEGER OUTFI0,INFIL0,STREA0,STREB0,STREC0 INTEGER RTRID0(31) INTEGER EMITP0,EMITO0 COMMON /VCGCOM/ERROR0,BREAK0,CONTI0,BREAL0,CONTJ0,OUTFI0,INFIL0,ST *REA0,STREB0,STREC0,RTRID0,EMITP0,EMITO0 COMMON /VCGCM1/IMEMA0 COMMON /VCGCM2/TMEMA0 COMMON /VCGCM3/SMEMA0 INTEGER L,R INTEGER SEQ,GENMR,GENBR0,LD,ST,REACH,LOAD,VOID INTEGER SUBTR0,BRANCH,OPSIZE,LRES,RRES,LAD(5),RAD(5),TAD(5) INTEGER LREGS,RREGS,OPREG LOGICAL SAFE INTEGER AAAAA0 INTEGER AAAAB0 INTEGER AAAAC0 INTEGER LEFTOP,RIGHT0 INTEGER AAAAD0 INTEGER AAAAE0 INTEGER AAAAF0 INTEGER AAAAG0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) AAAAD0=TMEMA0(EXPR+1) GOTO 10003 10004 IF((TMEMA0(RIGHT0).NE.9))GOTO 10005 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10005 IF((.NOT.COND))GOTO 10006 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(19,LABEL)) RETURN 10006 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(22,LABEL)) RETURN 10005 IF((TMEMA0(LEFTOP).NE.9))GOTO 10007 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10007 IF((.NOT.COND))GOTO 10008 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(31,LABEL)) RETURN 10008 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(18,LABEL)) RETURN 10007 SUBTR0=52 OPREG=:002000 OPSIZE=1 GOTO 10009 10010 IF((TMEMA0(RIGHT0).NE.9))GOTO 10011 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10011 IF((.NOT.COND))GOTO 10012 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(38,LABEL)) RETURN 10012 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(11,LABEL)) RETURN 10011 IF((TMEMA0(LEFTOP).NE.9))GOTO 10013 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10013 IF((.NOT.COND))GOTO 10014 FLOWGT=VOID(RIGHT0,REGS) RETURN 10014 TAD(1)=10 TAD(3)=LABEL FLOWGT=SEQ(VOID(RIGHT0,REGS),GENMR(32,TAD)) RETURN 10013 SUBTR0=52 OPREG=:002000 OPSIZE=1 GOTO 10009 10015 IF((TMEMA0(RIGHT0).NE.9))GOTO 10016 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10016 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10016 IF((.NOT.COND))GOTO 10017 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(25,LABEL)) RETURN 10017 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(26,LABEL)) RETURN 10016 IF((TMEMA0(LEFTOP).NE.9))GOTO 10018 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10018 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10018 IF((.NOT.COND))GOTO 10019 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(27,LABEL)) RETURN 10019 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(24,LABEL)) RETURN 10018 SUBTR0=46 OPREG=:001000 OPSIZE=2 GOTO 10009 10020 IF((TMEMA0(RIGHT0).NE.9))GOTO 10021 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10021 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10021 IF((.NOT.COND))GOTO 10022 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(28,LABEL)) RETURN 10022 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(23,LABEL)) RETURN 10021 IF((TMEMA0(LEFTOP).NE.9))GOTO 10023 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10023 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10023 IF((.NOT.COND))GOTO 10024 FLOWGT=VOID(RIGHT0,REGS) RETURN 10024 TAD(1)=10 TAD(3)=LABEL FLOWGT=SEQ(VOID(RIGHT0,REGS),GENMR(32,TAD)) RETURN 10023 SUBTR0=46 OPREG=:001000 OPSIZE=2 GOTO 10009 10025 IF((TMEMA0(RIGHT0).NE.9))GOTO 10026 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10026 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10026 IF((.NOT.COND))GOTO 10027 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(14,LABEL)) RETURN 10027 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(15,LABEL)) RETURN 10026 IF((TMEMA0(LEFTOP).NE.9))GOTO 10028 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10028 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10028 IF((.NOT.COND))GOTO 10029 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(16,LABEL)) RETURN 10029 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(13,LABEL)) RETURN 10028 SUBTR0=28 OPREG=:000400 OPSIZE=2 GOTO 10009 10030 IF((TMEMA0(RIGHT0).NE.9))GOTO 10031 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10031 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10031 IF((TMEMA0(RIGHT0+5).NE.0))GOTO 10031 IF((TMEMA0(RIGHT0+6).NE.0))GOTO 10031 IF((.NOT.COND))GOTO 10032 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(14,LABEL)) RETURN 10032 FLOWGT=SEQ(LOAD(LEFTOP,REGS),GENBR0(15,LABEL)) RETURN 10031 IF((TMEMA0(LEFTOP).NE.9))GOTO 10033 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10033 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10033 IF((TMEMA0(LEFTOP+5).NE.0))GOTO 10033 IF((TMEMA0(LEFTOP+6).NE.0))GOTO 10033 IF((.NOT.COND))GOTO 10034 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(16,LABEL)) RETURN 10034 FLOWGT=SEQ(LOAD(RIGHT0,REGS),GENBR0(13,LABEL)) RETURN 10033 SUBTR0=13 OPREG=:000200 OPSIZE=4 GOTO 10009 10003 GOTO(10004,10015,10010,10020,10025,10030),AAAAD0 CALL PANIC('*i: bad flow GT data mode*n.',TMEMA0(EXPR+1)) 10009 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) GOTO 10035 10036 AAAAA0=1 GOTO 10000 10039 AAAAB0=1 GOTO 10001 10041 AAAAA0=2 GOTO 10000 10035 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10043 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10043 GOTO 10036 10043 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10044 IF(SAFE(OPREG,RREGS))GOTO 10044 GOTO 10039 10044 IF(SAFE(OPREG,LREGS))GOTO 10045 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10045 GOTO 10041 10045 CONTINUE AAAAC0=1 GOTO 10002 10046 CONTINUE 10038 CALL FREET0(TAD) REGS=OR(OPREG,OR(LREGS,RREGS)) RETURN 10000 AAAAE0=TMEMA0(EXPR+1) GOTO 10047 10048 IF((.NOT.COND))GOTO 10049 BRANCH=3 GOTO 10051 10049 BRANCH=4 10050 GOTO 10051 10052 IF((.NOT.COND))GOTO 10053 BRANCH=34 GOTO 10051 10053 BRANCH=35 10054 GOTO 10051 10055 IF((.NOT.COND))GOTO 10056 BRANCH=14 GOTO 10051 10056 BRANCH=15 10057 GOTO 10051 10047 GOTO(10048,10048,10052,10052,10055,10055),AAAAE0 10051 FLOWGT=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBTR0,RAD),GENBR0(BRANCH, *LABEL)) GOTO 10058 10001 AAAAF0=TMEMA0(EXPR+1) GOTO 10059 10060 IF((.NOT.COND))GOTO 10061 BRANCH=5 GOTO 10063 10061 BRANCH=2 10062 GOTO 10063 10064 IF((.NOT.COND))GOTO 10065 BRANCH=36 GOTO 10063 10065 BRANCH=33 10066 GOTO 10063 10067 IF((.NOT.COND))GOTO 10068 BRANCH=16 GOTO 10063 10068 BRANCH=13 10069 GOTO 10063 10059 GOTO(10060,10060,10064,10064,10067,10067),AAAAF0 10063 FLOWGT=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBTR0,LAD),GENBR0(BRANCH, *LABEL)) GOTO 10038 10002 AAAAG0=TMEMA0(EXPR+1) GOTO 10071 10072 IF((.NOT.COND))GOTO 10073 BRANCH=3 GOTO 10075 10073 BRANCH=4 10074 GOTO 10075 10076 IF((.NOT.COND))GOTO 10077 BRANCH=34 GOTO 10075 10077 BRANCH=35 10078 GOTO 10075 10079 IF((.NOT.COND))GOTO 10080 BRANCH=14 GOTO 10075 10080 BRANCH=15 10081 GOTO 10075 10071 GOTO(10072,10072,10076,10076,10079,10079),AAAAG0 10075 FLOWGT=SEQ(R,LD(OPREG,RRES,RAD)) FLOWGT=SEQ(FLOWGT,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBTR0, *TAD),GENBR0(BRANCH,LABEL)) GOTO 10046 10058 GOTO(10038,10038),AAAAA0 GOTO 10058 END INTEGER FUNCTION FLOWLE(EXPR,REGS,COND,LABEL) INTEGER EXPR INTEGER REGS LOGICAL COND INTEGER LABEL INTEGER IMEMA0(65530),TMEMA0(65000),ERROR0,BREAK0,CONTI0 INTEGER SMEMA0(32767) INTEGER BREAL0(10),CONTJ0(10) INTEGER OUTFI0,INFIL0,STREA0,STREB0,STREC0 INTEGER RTRID0(31) INTEGER EMITP0,EMITO0 COMMON /VCGCOM/ERROR0,BREAK0,CONTI0,BREAL0,CONTJ0,OUTFI0,INFIL0,ST *REA0,STREB0,STREC0,RTRID0,EMITP0,EMITO0 COMMON /VCGCM1/IMEMA0 COMMON /VCGCM2/TMEMA0 COMMON /VCGCM3/SMEMA0 INTEGER L,R INTEGER SEQ,GENMR,GENBR0,LD,ST,REACH,LOAD,VOID INTEGER SUBTR0,BRANCH,OPSIZE,LRES,RRES,LAD(5),RAD(5),TAD(5) INTEGER LREGS,RREGS,OPREG LOGICAL SAFE INTEGER AAAAH0 INTEGER AAAAI0 INTEGER AAAAJ0 INTEGER LEFTOP,RIGHT0 INTEGER AAAAK0 INTEGER AAAAL0 INTEGER AAAAM0 INTEGER AAAAN0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) AAAAK0=TMEMA0(EXPR+1) GOTO 10086 10087 IF((TMEMA0(RIGHT0).NE.9))GOTO 10088 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10088 IF((.NOT.COND))GOTO 10089 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(22,LABEL)) RETURN 10089 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(19,LABEL)) RETURN 10088 IF((TMEMA0(LEFTOP).NE.9))GOTO 10090 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10090 IF((.NOT.COND))GOTO 10091 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(18,LABEL)) RETURN 10091 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(31,LABEL)) RETURN 10090 SUBTR0=52 OPREG=:002000 OPSIZE=1 GOTO 10092 10093 IF((TMEMA0(RIGHT0).NE.9))GOTO 10094 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10094 IF((.NOT.COND))GOTO 10095 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(11,LABEL)) RETURN 10095 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(38,LABEL)) RETURN 10094 IF((TMEMA0(LEFTOP).NE.9))GOTO 10096 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10096 IF((.NOT.COND))GOTO 10097 TAD(1)=10 TAD(3)=LABEL FLOWLE=SEQ(VOID(RIGHT0,REGS),GENMR(32,TAD)) RETURN 10097 FLOWLE=VOID(RIGHT0,REGS) RETURN 10096 SUBTR0=52 OPREG=:002000 OPSIZE=1 GOTO 10092 10098 IF((TMEMA0(RIGHT0).NE.9))GOTO 10099 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10099 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10099 IF((.NOT.COND))GOTO 10100 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(26,LABEL)) RETURN 10100 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(25,LABEL)) RETURN 10099 IF((TMEMA0(LEFTOP).NE.9))GOTO 10101 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10101 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10101 IF((.NOT.COND))GOTO 10102 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(24,LABEL)) RETURN 10102 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(27,LABEL)) RETURN 10101 SUBTR0=46 OPREG=:001000 OPSIZE=2 GOTO 10092 10103 IF((TMEMA0(RIGHT0).NE.9))GOTO 10104 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10104 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10104 IF((.NOT.COND))GOTO 10105 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(23,LABEL)) RETURN 10105 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(28,LABEL)) RETURN 10104 IF((TMEMA0(LEFTOP).NE.9))GOTO 10106 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10106 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10106 IF((.NOT.COND))GOTO 10107 TAD(1)=10 TAD(3)=LABEL FLOWLE=SEQ(VOID(RIGHT0,REGS),GENMR(32,TAD)) RETURN 10107 FLOWLE=VOID(RIGHT0,REGS) RETURN 10106 SUBTR0=46 OPREG=:001000 OPSIZE=2 GOTO 10092 10108 IF((TMEMA0(RIGHT0).NE.9))GOTO 10109 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10109 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10109 IF((.NOT.COND))GOTO 10110 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(15,LABEL)) RETURN 10110 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(14,LABEL)) RETURN 10109 IF((TMEMA0(LEFTOP).NE.9))GOTO 10111 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10111 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10111 IF((.NOT.COND))GOTO 10112 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(13,LABEL)) RETURN 10112 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(16,LABEL)) RETURN 10111 SUBTR0=28 OPREG=:000400 OPSIZE=2 GOTO 10092 10113 IF((TMEMA0(RIGHT0).NE.9))GOTO 10114 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10114 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10114 IF((TMEMA0(RIGHT0+5).NE.0))GOTO 10114 IF((TMEMA0(RIGHT0+6).NE.0))GOTO 10114 IF((.NOT.COND))GOTO 10115 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(15,LABEL)) RETURN 10115 FLOWLE=SEQ(LOAD(LEFTOP,REGS),GENBR0(14,LABEL)) RETURN 10114 IF((TMEMA0(LEFTOP).NE.9))GOTO 10116 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10116 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10116 IF((TMEMA0(LEFTOP+5).NE.0))GOTO 10116 IF((TMEMA0(LEFTOP+6).NE.0))GOTO 10116 IF((.NOT.COND))GOTO 10117 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(13,LABEL)) RETURN 10117 FLOWLE=SEQ(LOAD(RIGHT0,REGS),GENBR0(16,LABEL)) RETURN 10116 SUBTR0=13 OPREG=:000200 OPSIZE=4 GOTO 10092 10086 GOTO(10087,10098,10093,10103,10108,10113),AAAAK0 CALL PANIC('*i: bad flow LE data mode*n.',TMEMA0(EXPR+1)) 10092 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) GOTO 10118 10119 AAAAH0=1 GOTO 10083 10122 AAAAI0=1 GOTO 10084 10124 AAAAH0=2 GOTO 10083 10118 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10126 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10126 GOTO 10119 10126 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10127 IF(SAFE(OPREG,RREGS))GOTO 10127 GOTO 10122 10127 IF(SAFE(OPREG,LREGS))GOTO 10128 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10128 GOTO 10124 10128 CONTINUE AAAAJ0=1 GOTO 10085 10129 CONTINUE 10121 CALL FREET0(TAD) REGS=OR(OPREG,OR(LREGS,RREGS)) RETURN 10083 AAAAL0=TMEMA0(EXPR+1) GOTO 10130 10131 IF((.NOT.COND))GOTO 10132 BRANCH=4 GOTO 10134 10132 BRANCH=3 10133 GOTO 10134 10135 IF((.NOT.COND))GOTO 10136 BRANCH=35 GOTO 10134 10136 BRANCH=34 10137 GOTO 10134 10138 IF((.NOT.COND))GOTO 10139 BRANCH=15 GOTO 10134 10139 BRANCH=14 10140 GOTO 10134 10130 GOTO(10131,10131,10135,10135,10138,10138),AAAAL0 10134 FLOWLE=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBTR0,RAD),GENBR0(BRANCH, *LABEL)) GOTO 10141 10084 AAAAM0=TMEMA0(EXPR+1) GOTO 10142 10143 IF((.NOT.COND))GOTO 10144 BRANCH=2 GOTO 10146 10144 BRANCH=5 10145 GOTO 10146 10147 IF((.NOT.COND))GOTO 10148 BRANCH=33 GOTO 10146 10148 BRANCH=36 10149 GOTO 10146 10150 IF((.NOT.COND))GOTO 10151 BRANCH=13 GOTO 10146 10151 BRANCH=16 10152 GOTO 10146 10142 GOTO(10143,10143,10147,10147,10150,10150),AAAAM0 10146 FLOWLE=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBTR0,LAD),GENBR0(BRANCH, *LABEL)) GOTO 10121 10085 AAAAN0=TMEMA0(EXPR+1) GOTO 10154 10155 IF((.NOT.COND))GOTO 10156 BRANCH=4 GOTO 10158 10156 BRANCH=3 10157 GOTO 10158 10159 IF((.NOT.COND))GOTO 10160 BRANCH=35 GOTO 10158 10160 BRANCH=34 10161 GOTO 10158 10162 IF((.NOT.COND))GOTO 10163 BRANCH=15 GOTO 10158 10163 BRANCH=14 10164 GOTO 10158 10154 GOTO(10155,10155,10159,10159,10162,10162),AAAAN0 10158 FLOWLE=SEQ(R,LD(OPREG,RRES,RAD)) FLOWLE=SEQ(FLOWLE,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBTR0, *TAD),GENBR0(BRANCH,LABEL)) GOTO 10129 10141 GOTO(10121,10121),AAAAH0 GOTO 10141 END INTEGER FUNCTION FLOWLT(EXPR,REGS,COND,LABEL) INTEGER EXPR INTEGER REGS LOGICAL COND INTEGER LABEL INTEGER IMEMA0(65530),TMEMA0(65000),ERROR0,BREAK0,CONTI0 INTEGER SMEMA0(32767) INTEGER BREAL0(10),CONTJ0(10) INTEGER OUTFI0,INFIL0,STREA0,STREB0,STREC0 INTEGER RTRID0(31) INTEGER EMITP0,EMITO0 COMMON /VCGCOM/ERROR0,BREAK0,CONTI0,BREAL0,CONTJ0,OUTFI0,INFIL0,ST *REA0,STREB0,STREC0,RTRID0,EMITP0,EMITO0 COMMON /VCGCM1/IMEMA0 COMMON /VCGCM2/TMEMA0 COMMON /VCGCM3/SMEMA0 INTEGER L,R INTEGER SEQ,GENMR,GENBR0,LD,ST,REACH,LOAD,VOID INTEGER SUBTR0,BRANCH,OPSIZE,LRES,RRES,LAD(5),RAD(5),TAD(5) INTEGER LREGS,RREGS,OPREG LOGICAL SAFE INTEGER AAAAO0 INTEGER AAAAP0 INTEGER AAAAQ0 INTEGER LEFTOP,RIGHT0 INTEGER AAAAR0 INTEGER AAAAS0 INTEGER AAAAT0 INTEGER AAAAU0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) AAAAR0=TMEMA0(EXPR+1) GOTO 10169 10170 IF((TMEMA0(RIGHT0).NE.9))GOTO 10171 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10171 IF((.NOT.COND))GOTO 10172 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(31,LABEL)) RETURN 10172 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(18,LABEL)) RETURN 10171 IF((TMEMA0(LEFTOP).NE.9))GOTO 10173 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10173 IF((.NOT.COND))GOTO 10174 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(19,LABEL)) RETURN 10174 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(22,LABEL)) RETURN 10173 SUBTR0=52 OPREG=:002000 OPSIZE=1 GOTO 10175 10176 IF((TMEMA0(RIGHT0).NE.9))GOTO 10177 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10177 IF((.NOT.COND))GOTO 10178 FLOWLT=VOID(LEFTOP,REGS) RETURN 10178 TAD(1)=10 TAD(3)=LABEL FLOWLT=SEQ(VOID(LEFTOP,REGS),GENMR(32,TAD)) RETURN 10177 IF((TMEMA0(LEFTOP).NE.9))GOTO 10179 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10179 IF((.NOT.COND))GOTO 10180 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(38,LABEL)) RETURN 10180 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(11,LABEL)) RETURN 10179 SUBTR0=52 OPREG=:002000 OPSIZE=1 GOTO 10175 10181 IF((TMEMA0(RIGHT0).NE.9))GOTO 10182 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10182 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10182 IF((.NOT.COND))GOTO 10183 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(27,LABEL)) RETURN 10183 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(24,LABEL)) RETURN 10182 IF((TMEMA0(LEFTOP).NE.9))GOTO 10184 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10184 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10184 IF((.NOT.COND))GOTO 10185 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(25,LABEL)) RETURN 10185 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(26,LABEL)) RETURN 10184 SUBTR0=46 OPREG=:001000 OPSIZE=2 GOTO 10175 10186 IF((TMEMA0(RIGHT0).NE.9))GOTO 10187 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10187 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10187 IF((.NOT.COND))GOTO 10188 FLOWLT=VOID(LEFTOP,REGS) RETURN 10188 TAD(1)=10 TAD(3)=LABEL FLOWLT=SEQ(VOID(LEFTOP,REGS),GENMR(32,TAD)) RETURN 10187 IF((TMEMA0(LEFTOP).NE.9))GOTO 10189 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10189 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10189 IF((.NOT.COND))GOTO 10190 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(28,LABEL)) RETURN 10190 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(23,LABEL)) RETURN 10189 SUBTR0=46 OPREG=:001000 OPSIZE=2 GOTO 10175 10191 IF((TMEMA0(RIGHT0).NE.9))GOTO 10192 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10192 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10192 IF((.NOT.COND))GOTO 10193 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(16,LABEL)) RETURN 10193 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(13,LABEL)) RETURN 10192 IF((TMEMA0(LEFTOP).NE.9))GOTO 10194 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10194 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10194 IF((.NOT.COND))GOTO 10195 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(14,LABEL)) RETURN 10195 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(15,LABEL)) RETURN 10194 SUBTR0=28 OPREG=:000400 OPSIZE=2 GOTO 10175 10196 IF((TMEMA0(RIGHT0).NE.9))GOTO 10197 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10197 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10197 IF((TMEMA0(RIGHT0+5).NE.0))GOTO 10197 IF((TMEMA0(RIGHT0+6).NE.0))GOTO 10197 IF((.NOT.COND))GOTO 10198 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(16,LABEL)) RETURN 10198 FLOWLT=SEQ(LOAD(LEFTOP,REGS),GENBR0(13,LABEL)) RETURN 10197 IF((TMEMA0(LEFTOP).NE.9))GOTO 10199 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10199 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10199 IF((TMEMA0(LEFTOP+5).NE.0))GOTO 10199 IF((TMEMA0(LEFTOP+6).NE.0))GOTO 10199 IF((.NOT.COND))GOTO 10200 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(14,LABEL)) RETURN 10200 FLOWLT=SEQ(LOAD(RIGHT0,REGS),GENBR0(15,LABEL)) RETURN 10199 SUBTR0=13 OPREG=:000200 OPSIZE=4 GOTO 10175 10169 GOTO(10170,10181,10176,10186,10191,10196),AAAAR0 CALL PANIC('*i: bad flow LT data mode*n.',TMEMA0(EXPR+1)) 10175 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) GOTO 10201 10202 AAAAO0=1 GOTO 10166 10205 AAAAP0=1 GOTO 10167 10207 AAAAO0=2 GOTO 10166 10201 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10209 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10209 GOTO 10202 10209 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10210 IF(SAFE(OPREG,RREGS))GOTO 10210 GOTO 10205 10210 IF(SAFE(OPREG,LREGS))GOTO 10211 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10211 GOTO 10207 10211 CONTINUE AAAAQ0=1 GOTO 10168 10212 CONTINUE 10204 CALL FREET0(TAD) REGS=OR(OPREG,OR(LREGS,RREGS)) RETURN 10166 AAAAS0=TMEMA0(EXPR+1) GOTO 10213 10214 IF((.NOT.COND))GOTO 10215 BRANCH=5 GOTO 10217 10215 BRANCH=2 10216 GOTO 10217 10218 IF((.NOT.COND))GOTO 10219 BRANCH=36 GOTO 10217 10219 BRANCH=33 10220 GOTO 10217 10221 IF((.NOT.COND))GOTO 10222 BRANCH=16 GOTO 10217 10222 BRANCH=13 10223 GOTO 10217 10213 GOTO(10214,10214,10218,10218,10221,10221),AAAAS0 10217 FLOWLT=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBTR0,RAD),GENBR0(BRANCH, *LABEL)) GOTO 10224 10167 AAAAT0=TMEMA0(EXPR+1) GOTO 10225 10226 IF((.NOT.COND))GOTO 10227 BRANCH=3 GOTO 10229 10227 BRANCH=4 10228 GOTO 10229 10230 IF((.NOT.COND))GOTO 10231 BRANCH=34 GOTO 10229 10231 BRANCH=35 10232 GOTO 10229 10233 IF((.NOT.COND))GOTO 10234 BRANCH=14 GOTO 10229 10234 BRANCH=15 10235 GOTO 10229 10225 GOTO(10226,10226,10230,10230,10233,10233),AAAAT0 10229 FLOWLT=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBTR0,LAD),GENBR0(BRANCH, *LABEL)) GOTO 10204 10168 AAAAU0=TMEMA0(EXPR+1) GOTO 10237 10238 IF((.NOT.COND))GOTO 10239 BRANCH=5 GOTO 10241 10239 BRANCH=2 10240 GOTO 10241 10242 IF((.NOT.COND))GOTO 10243 BRANCH=36 GOTO 10241 10243 BRANCH=33 10244 GOTO 10241 10245 IF((.NOT.COND))GOTO 10246 BRANCH=16 GOTO 10241 10246 BRANCH=13 10247 GOTO 10241 10237 GOTO(10238,10238,10242,10242,10245,10245),AAAAU0 10241 FLOWLT=SEQ(R,LD(OPREG,RRES,RAD)) FLOWLT=SEQ(FLOWLT,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBTR0, *TAD),GENBR0(BRANCH,LABEL)) GOTO 10212 10224 GOTO(10204,10204),AAAAO0 GOTO 10224 END INTEGER FUNCTION FLOWNE(EXPR,REGS,COND,LABEL) INTEGER EXPR INTEGER REGS LOGICAL COND INTEGER LABEL INTEGER IMEMA0(65530),TMEMA0(65000),ERROR0,BREAK0,CONTI0 INTEGER SMEMA0(32767) INTEGER BREAL0(10),CONTJ0(10) INTEGER OUTFI0,INFIL0,STREA0,STREB0,STREC0 INTEGER RTRID0(31) INTEGER EMITP0,EMITO0 COMMON /VCGCOM/ERROR0,BREAK0,CONTI0,BREAL0,CONTJ0,OUTFI0,INFIL0,ST *REA0,STREB0,STREC0,RTRID0,EMITP0,EMITO0 COMMON /VCGCM1/IMEMA0 COMMON /VCGCM2/TMEMA0 COMMON /VCGCM3/SMEMA0 INTEGER L,R INTEGER SEQ,GENMR,GENBR0,LD,ST,REACH,FLOW INTEGER RIGHT0,LEFTOP INTEGER SUBTR0,BRANCH,OPSIZE,LRES,RRES,LAD(5),RAD(5),TAD(5) INTEGER LREGS,RREGS,OPREG LOGICAL SAFE INTEGER AAAAV0 INTEGER AAAAW0 INTEGER AAAAX0 INTEGER AAAAY0 INTEGER AAAAZ0 INTEGER AAABA0 INTEGER AAABB0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) AAAAY0=TMEMA0(EXPR+1) GOTO 10252 10253 IF((TMEMA0(RIGHT0).NE.9))GOTO 10254 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10254 FLOWNE=FLOW(LEFTOP,REGS,COND,LABEL) RETURN 10254 IF((TMEMA0(LEFTOP).NE.9))GOTO 10255 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10255 FLOWNE=FLOW(RIGHT0,REGS,COND,LABEL) RETURN 10255 SUBTR0=52 OPREG=:002000 OPSIZE=1 GOTO 10256 10257 IF((TMEMA0(RIGHT0).NE.9))GOTO 10258 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10258 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10258 FLOWNE=FLOW(LEFTOP,REGS,COND,LABEL) RETURN 10258 IF((TMEMA0(LEFTOP).NE.9))GOTO 10259 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10259 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10259 FLOWNE=FLOW(RIGHT0,REGS,COND,LABEL) RETURN 10259 SUBTR0=46 OPREG=:001000 OPSIZE=2 GOTO 10256 10260 IF((TMEMA0(RIGHT0).NE.9))GOTO 10261 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10261 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10261 FLOWNE=FLOW(LEFTOP,REGS,COND,LABEL) RETURN 10261 IF((TMEMA0(LEFTOP).NE.9))GOTO 10262 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10262 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10262 FLOWNE=FLOW(RIGHT0,REGS,COND,LABEL) RETURN 10262 SUBTR0=28 OPREG=:000400 OPSIZE=2 GOTO 10256 10263 IF((TMEMA0(RIGHT0).NE.9))GOTO 10264 IF((TMEMA0(RIGHT0+3).NE.0))GOTO 10264 IF((TMEMA0(RIGHT0+4).NE.0))GOTO 10264 IF((TMEMA0(RIGHT0+5).NE.0))GOTO 10264 IF((TMEMA0(RIGHT0+6).NE.0))GOTO 10264 FLOWNE=FLOW(LEFTOP,REGS,COND,LABEL) RETURN 10264 IF((TMEMA0(LEFTOP).NE.9))GOTO 10265 IF((TMEMA0(LEFTOP+3).NE.0))GOTO 10265 IF((TMEMA0(LEFTOP+4).NE.0))GOTO 10265 IF((TMEMA0(LEFTOP+5).NE.0))GOTO 10265 IF((TMEMA0(LEFTOP+6).NE.0))GOTO 10265 FLOWNE=FLOW(RIGHT0,REGS,COND,LABEL) RETURN 10265 SUBTR0=13 OPREG=:000200 OPSIZE=4 GOTO 10256 10252 GOTO(10253,10257,10253,10257,10260,10263),AAAAY0 CALL PANIC('*i: bad flow NE data mode*n.',TMEMA0(EXPR+1)) 10256 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) GOTO 10266 10267 AAAAV0=1 GOTO 10249 10270 AAAAW0=1 GOTO 10250 10272 AAAAV0=2 GOTO 10249 10266 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10274 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10274 GOTO 10267 10274 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10275 IF(SAFE(OPREG,RREGS))GOTO 10275 GOTO 10270 10275 IF(SAFE(OPREG,LREGS))GOTO 10276 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10276 GOTO 10272 10276 CONTINUE AAAAX0=1 GOTO 10251 10277 CONTINUE 10269 CALL FREET0(TAD) REGS=OR(OPREG,OR(LREGS,RREGS)) RETURN 10249 AAAAZ0=TMEMA0(EXPR+1) GOTO 10278 10279 IF((.NOT.COND))GOTO 10280 BRANCH=6 GOTO 10282 10280 BRANCH=1 10281 GOTO 10282 10283 IF((.NOT.COND))GOTO 10284 BRANCH=37 GOTO 10282 10284 BRANCH=32 10285 GOTO 10282 10286 IF((.NOT.COND))GOTO 10287 BRANCH=17 GOTO 10282 10287 BRANCH=12 10288 GOTO 10282 10278 GOTO(10279,10279,10283,10283,10286,10286),AAAAZ0 10282 FLOWNE=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBTR0,RAD),GENBR0(BRANCH, *LABEL)) GOTO 10289 10250 AAABA0=TMEMA0(EXPR+1) GOTO 10290 10291 IF((.NOT.COND))GOTO 10292 BRANCH=6 GOTO 10294 10292 BRANCH=1 10293 GOTO 10294 10295 IF((.NOT.COND))GOTO 10296 BRANCH=37 GOTO 10294 10296 BRANCH=32 10297 GOTO 10294 10298 IF((.NOT.COND))GOTO 10299 BRANCH=17 GOTO 10294 10299 BRANCH=12 10300 GOTO 10294 10290 GOTO(10291,10291,10295,10295,10298,10298),AAABA0 10294 FLOWNE=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBTR0,LAD),GENBR0(BRANCH, *LABEL)) GOTO 10269 10251 AAABB0=TMEMA0(EXPR+1) GOTO 10302 10303 IF((.NOT.COND))GOTO 10304 BRANCH=6 GOTO 10306 10304 BRANCH=1 10305 GOTO 10306 10307 IF((.NOT.COND))GOTO 10308 BRANCH=37 GOTO 10306 10308 BRANCH=32 10309 GOTO 10306 10310 IF((.NOT.COND))GOTO 10311 BRANCH=17 GOTO 10306 10311 BRANCH=12 10312 GOTO 10306 10302 GOTO(10303,10303,10307,10307,10310,10310),AAABB0 10306 FLOWNE=SEQ(R,LD(OPREG,RRES,RAD)) FLOWNE=SEQ(FLOWNE,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBTR0, *TAD),GENBR0(BRANCH,LABEL)) GOTO 10277 10289 GOTO(10269,10269),AAAAV0 GOTO 10289 END INTEGER FUNCTION FLOWN0(EXPR,REGS,COND,LABEL) INTEGER EXPR INTEGER REGS LOGICAL COND INTEGER LABEL INTEGER IMEMA0(65530),TMEMA0(65000),ERROR0,BREAK0,CONTI0 INTEGER SMEMA0(32767) INTEGER BREAL0(10),CONTJ0(10) INTEGER OUTFI0,INFIL0,STREA0,STREB0,STREC0 INTEGER RTRID0(31) INTEGER EMITP0,EMITO0 COMMON /VCGCOM/ERROR0,BREAK0,CONTI0,BREAL0,CONTJ0,OUTFI0,INFIL0,ST *REA0,STREB0,STREC0,RTRID0,EMITP0,EMITO0 COMMON /VCGCM1/IMEMA0 COMMON /VCGCM2/TMEMA0 COMMON /VCGCM3/SMEMA0 INTEGER FLOW FLOWN0=FLOW(TMEMA0(EXPR+2),REGS,.NOT.COND,LABEL) RETURN END INTEGER FUNCTION FLOWF0(EXPR,REGS,COND,LABEL) INTEGER EXPR INTEGER REGS LOGICAL COND INTEGER LABEL INTEGER FLFIE0 FLOWF0=FLFIE0(EXPR,REGS,COND,LABEL) RETURN END C ---- Long Name Map ---- C loadcompl loadj0 C loadxoraa loafg0 C deletelit delev0 C enterent enter0 C flowfield flowf0 C geniplabel genip0 C genlabel genla0 C loaddiv loadq0 C loadlshiftaa loaea0 C loadpredec loael0 C otg$aentpb otg$a0 C Imem imema0 C loadrem loaep0 C putmoduleheader putmo0 C enterlit enteu0 C generatestaticstuff geneu0 C loadchecklower loadg0 C loaddefinestat loado0 C loadreturn loaer0 C setupswitch setuq0 C subtract subtr0 C gengeneric genge0 C linksize links0 C loadandaa loadd0 C loadobject loaeh0 C loadproccall loaen0 C loadrefto loaeo0 C lookupext looku0 C alloctemp alloc0 C loadcheckupper loadi0 C loadwhileloop loafe0 C geniprtr geniq0 C loadrshiftaa loaet0 C loadseq loaex0 C voidswitch voidt0 C initializelabels initi0 C loadsub loafa0 C clearobj cleax0 C deleteext delet0 C loadundefinedynm loafd0 C reachindex reack0 C simplify simpl0 C stfield stfie0 C lfieldmask lfiel0 C loadoraa loaei0 C otg$dac otg$e0 C otg$mref otg$m0 C putmoduletrailer putmp0 C resolveent resol0 C clearstack cleay0 C enterext entes0 C lshiftaby lshif0 C putstartdata putst0 C Smem smema0 C loadconst loadk0 C loadmul loaeb0 C loadpostinc loaek0 C otg$ecb otg$g0 C putbranch putbr0 C resolvelit reson0 C voidfieldasgop voidf0 C Tmem tmema0 C EmitPMA emitp0 C flowswitch flowv0 C loadconvert loadl0 C loadforloop loadv0 C loadsand loaev0 C optimize optim0 C rsvstack rsvst0 C voidaddaa voida0 C gettree gettr0 C loadselect loaew0 C lookuplab lookv0 C otg$endlb otg$h0 C otg$rentlb otg$r0 C loadnot loaef0 C loadpreinc loaem0 C otg$rorglb otg$t0 C loadlabel loady0 C voidpostdec voidp0 C framecom frame0 C generateprocedures genet0 C genswitch gensw0 C loaddeclarestat loadm0 C otglabel otgla0 C reachobject reacl0 C rshiftaby rshif0 C Breaksp break0 C Stream1 strea0 C deletelab deleu0 C getlitaddr getli0 C loadadd loada0 C loadcheckrange loadh0 C loadsor loaez0 C otg$endpb otg$i0 C Stream2 streb0 C gencopy genco0 C loadassign loade0 C reachseq reacn0 C Stream3 strec0 C enterlab entet0 C generateproc genes0 C initshfttableids inits0 C loadfield loadt0 C otg$proc otg$p0 C otgmisc otgmi0 C resolveext resom0 C warning warni0 C Breakstack breal0 C clearent clear0 C loadbreak loadf0 C loaddivaa loadr0 C loadderef loadp0 C loadremaa loaeq0 C loadrtrip loaeu0 C lshiftlby lshig0 C otg$brnch otg$d0 C stacksize stack0 C Continuesp conti0 C andawith andaw0 C clearlit cleaw0 C gensjtolab gensk0 C loadxor loaff0 C overlap overl0 C genbranch genbr0 C loadlshift loadz0 C reachconst reaci0 C Rtrids rtrid0 C voidseq voids0 C Continuestack contj0 C getextaddr getex0 C lookupobj lookx0 C otg$rorg otg$s0 C reachselect reacm0 C arshiftaby arshi0 C getlabeladdr getla0 C loaddoloop loads0 C otg$blk otg$c0 C rightop right0 C initotg inito0 C loadand loadc0 C loadsubaa loafb0 C otg$gen otg$l0 C rshiftlby rshig0 C gendata genda0 C ldfield ldfie0 C loadshiftins loaey0 C Errors error0 C deleteobj delew0 C loadrshift loaes0 C otg$entlb otg$j0 C voidpostinc voidq0 C EmitObj emito0 C clearext cleas0 C flfield flfie0 C flowseq flowt0 C freetemp freet0 C genshift gensh0 C otg$orglb otg$o0 C otgpseudo otgps0 C reachassign reach0 C enterobj entev0 C loadgoto loadw0 C loadmulaa loaec0 C loadswitch loafc0 C putlabel putla0 C gensjforward gensj0 C mklabel mklab0 C setupframeowner setup0 C voidpreinc voidr0 C Outfile outfi0 C andlwith andlw0 C loadnull loaeg0 C otg$entpb otg$k0 C reachderef reacj0 C Infile infil0 C loadneg loaed0 C putmisc putmi0 C otg$apins otg$b0 C putgeneric putge0 C clearinstr cleat0 C clearlink cleav0 C flowconvert flowc0 C flowsand flows0 C loadfieldasgop loadu0 C otg$data otg$f0 C otg$xtip otg$x0 C putinstr putin0 C voidassign voidb0 C adequal adequ0 C arshiftlby arshj0 C loadaddaa loadb0 C loadnext loaee0 C ophasvalue ophas0 C strsave strsa0 C clearstr cleaz0 C cleartree cleba0 C flownot flown0 C otg$rslv otg$u0 C rsvlink rsvli0 C zerolit zerol0 C clearlab cleau0 C freestack frees0 C genextrtr genex0 C loadindex loadx0 C lookuplit lookw0 C otgbranch otgbr0 C loadpostdec loaej0 C otg$uii otg$v0 C afieldmask afiel0 C flowsor flowu0 C generateentries gener0 C loaddefinedynm loadn0