INTEGER FUNCTION LOAEA0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 RTRPOS(32),RTRTE0(281) COMMON /RTR$CM/RTRPOS,RTRTE0 INTEGER L,R INTEGER GENGE0,GENMR,REACH,LD,ST,SEQ,LSHIF0,LSHIG0,LOADU0,LOAEU0 INTEGER TAD(5),CAD(5),RAD(5),OPREG,RES,RRES,LAD(5),LOOKX0,JUNK,SHI *FT INTEGER SHIFT0 INTEGER LEFTOP,RIGHT0 INTEGER RREGS INTEGER AAAAA0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) IF((TMEMA0(LEFTOP).NE.69))GOTO 10000 LOAEA0=LOADU0(EXPR,REGS) RETURN 10000 AAAAA0=TMEMA0(EXPR+1) GOTO 10001 10002 IF((TMEMA0(RIGHT0).NE.9))GOTO 10003 L=REACH(LEFTOP,REGS,RES,TAD) REGS=OR(REGS,:002000) LOAEA0=SEQ(L,LD(:002000,RES,TAD),LSHIF0(TMEMA0(RIGHT0+3)),ST(: *002000,TAD)) RETURN 10003 OPREG=:002000 SHIFT0=RTRID0(5) SHIFT=1 GOTO 10004 10005 IF((TMEMA0(RIGHT0).NE.9))GOTO 10006 L=REACH(LEFTOP,REGS,RES,TAD) REGS=OR(REGS,:001000) LOAEA0=SEQ(L,LD(:001000,RES,TAD),LSHIG0(TMEMA0(RIGHT0+3)),ST(: *001000,TAD)) RETURN 10006 OPREG=:001000 SHIFT0=RTRID0(6) SHIFT=2 GOTO 10004 10001 GOTO(10002,10005,10002,10005),AAAAA0 CALL PANIC('load_lshiftaa: bad data mode *i*n.',TMEMA0(EXPR+1)) 10004 R=LOAEU0(SHIFT,SHIFT0) R=SEQ(R,REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)) R=SEQ(R,LD(:002000,RRES,RAD),GENGE0(95)) JUNK=LOOKX0(SHIFT0,TAD) L=REACH(TMEMA0(EXPR+2),REGS,RES,LAD) REGS=OR(REGS,RREGS) L=SEQ(L,LD(OPREG,RES,LAD),GENMR(35,TAD),ST(OPREG,LAD)) REGS=OR(REGS,:002000) LOAEA0=SEQ(R,L) RETURN END INTEGER FUNCTION LOADZ0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 RTRPOS(32),RTRTE0(281) COMMON /RTR$CM/RTRPOS,RTRTE0 INTEGER L,R INTEGER GENGE0,GENMR,REACH,LD,ST,SEQ,LSHIF0,LOAD,LSHIG0,LOAEU0 INTEGER TAD(5),CAD(5),RAD(5),OPREG,OPSIZE,RES,RRES,LAD(5),JUNK,SHI *FT INTEGER LEFTOP,RIGHT0 INTEGER RREGS INTEGER SHIFT0 INTEGER AAAAB0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) AAAAB0=TMEMA0(EXPR+1) GOTO 10007 10008 IF((TMEMA0(RIGHT0).NE.9))GOTO 10009 LOADZ0=SEQ(LOAD(LEFTOP,REGS),LSHIF0(TMEMA0(RIGHT0+3))) RETURN 10009 OPREG=:002000 SHIFT0=RTRID0(5) SHIFT=1 GOTO 10010 10011 IF((TMEMA0(RIGHT0).NE.9))GOTO 10012 LOADZ0=SEQ(LOAD(LEFTOP,REGS),LSHIG0(TMEMA0(RIGHT0+3))) RETURN 10012 OPREG=:001000 SHIFT0=RTRID0(6) SHIFT=2 GOTO 10010 10007 GOTO(10008,10011,10008,10011),AAAAB0 CALL PANIC('load_lshift: bad data mode *i*n.',TMEMA0(EXPR+1)) 10010 R=LOAEU0(SHIFT,SHIFT0) R=SEQ(R,REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)) R=SEQ(R,LD(:002000,RRES,RAD),GENGE0(95)) JUNK=LOOKX0(SHIFT0,TAD) L=REACH(TMEMA0(EXPR+2),REGS,RES,LAD) REGS=OR(REGS,RREGS) L=SEQ(L,LD(OPREG,RES,LAD),GENMR(35,TAD)) REGS=OR(REGS,:002000) LOADZ0=SEQ(R,L) RETURN END INTEGER FUNCTION LOADLT(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOGICAL LZERO,RZERO LOGICAL SAFE,OPHAS0 INTEGER L,R INTEGER SEQ,REACH,LD,ST,GENGE0,GENMR,GENBR0,GENLA0,LOAD,VOID INTEGER LREGS,RREGS INTEGER LRES,RRES,LAD(5),RAD(5),TAD(5),OPSIZE,OPREG,SUBINS,LAB INTEGER MKLAB0 INTEGER LEFTOP,RIGHT0 INTEGER AAAAC0 INTEGER AAAAD0 INTEGER AAAAE0 INTEGER AAAAF0 INTEGER AAAAG0 INTEGER AAAAH0 INTEGER AAAAI0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) LZERO=OPHAS0(LEFTOP,0) RZERO=OPHAS0(RIGHT0,0) AAAAF0=TMEMA0(EXPR+1) GOTO 10016 10017 IF((.NOT.RZERO))GOTO 10018 LOADLT=SEQ(LOAD(LEFTOP,REGS),GENGE0(61)) RETURN 10018 IF((.NOT.LZERO))GOTO 10019 LOADLT=SEQ(LOAD(RIGHT0,REGS),GENGE0(52)) RETURN 10019 OPREG=:002000 OPSIZE=1 SUBINS=52 GOTO 10020 10021 IF((.NOT.RZERO))GOTO 10022 LOADLT=SEQ(VOID(LEFTOP,REGS),GENGE0(9)) RETURN 10022 IF((.NOT.LZERO))GOTO 10023 LOADLT=SEQ(VOID(RIGHT0,REGS),GENGE0(63)) RETURN 10023 OPREG=:002000 OPSIZE=1 SUBINS=52 GOTO 10020 10024 IF((.NOT.RZERO))GOTO 10025 LOADLT=SEQ(LOAD(LEFTOP,REGS),GENGE0(59)) RETURN 10025 IF((.NOT.LZERO))GOTO 10026 LOADLT=SEQ(LOAD(RIGHT0,REGS),GENGE0(57)) RETURN 10026 OPREG=:001000 OPSIZE=2 SUBINS=46 GOTO 10020 10027 IF((.NOT.RZERO))GOTO 10028 LOADLT=SEQ(VOID(LEFTOP,REGS),GENGE0(9)) RETURN 10028 IF((.NOT.LZERO))GOTO 10029 LOADLT=SEQ(VOID(RIGHT0,REGS),GENGE0(63)) RETURN 10029 OPREG=:001000 OPSIZE=2 SUBINS=46 GOTO 10020 10030 IF((.NOT.RZERO))GOTO 10031 LOADLT=LOAD(LEFTOP,REGS) REGS=OR(REGS,:002000) LOADLT=SEQ(LOADLT,GENGE0(49)) RETURN 10031 IF((.NOT.LZERO))GOTO 10032 LOADLT=LOAD(RIGHT0,REGS) REGS=OR(REGS,:002000) LOADLT=SEQ(LOADLT,GENGE0(47)) RETURN 10032 OPREG=:000400 OPSIZE=2 SUBINS=28 GOTO 10020 10033 IF((.NOT.RZERO))GOTO 10034 LOADLT=LOAD(LEFTOP,REGS) REGS=OR(REGS,:002000) LOADLT=SEQ(LOADLT,GENGE0(49)) RETURN 10034 IF((.NOT.LZERO))GOTO 10035 LOADLT=LOAD(RIGHT0,REGS) REGS=OR(REGS,:002000) LOADLT=SEQ(LOADLT,GENGE0(47)) RETURN 10035 OPREG=:000200 OPSIZE=4 SUBINS=13 GOTO 10020 10016 GOTO(10017,10024,10021,10027,10030,10033),AAAAF0 CALL PANIC('load_le: bad op mode *i*n.',TMEMA0(EXPR+1)) 10020 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) LAB=MKLAB0(1) GOTO 10036 10037 AAAAC0=1 GOTO 10013 10040 AAAAD0=1 GOTO 10014 10042 AAAAC0=2 GOTO 10013 10036 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10044 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10044 GOTO 10037 10044 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10045 IF(SAFE(OPREG,RREGS))GOTO 10045 GOTO 10040 10045 IF(SAFE(OPREG,LREGS))GOTO 10046 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10046 GOTO 10042 10046 CONTINUE AAAAE0=1 GOTO 10015 10047 CONTINUE 10039 CALL FREET0(TAD) REGS=OR(:002000,OR(OPREG,OR(LREGS,RREGS))) RETURN 10013 LOADLT=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBINS,RAD)) AAAAG0=TMEMA0(EXPR+1) GOTO 10048 10049 LOADLT=SEQ(LOADLT,GENGE0(41)) GOTO 10053 10051 LOADLT=SEQ(LOADLT,GENGE0(9),GENBR0(33,LAB),GENGE0(63),GENLA0(LAB *)) GOTO 10053 10052 LOADLT=SEQ(LOADLT,GENGE0(49)) GOTO 10053 10048 GOTO(10049,10049,10051,10051,10052,10052),AAAAG0 10050 GOTO 10053 10014 LOADLT=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBINS,LAD)) AAAAH0=TMEMA0(EXPR+1) GOTO 10054 10055 LOADLT=SEQ(LOADLT,GENGE0(39)) GOTO 10039 10057 LOADLT=SEQ(LOADLT,GENGE0(9),GENBR0(35,LAB),GENGE0(63),GENLA0(LAB *)) GOTO 10039 10058 LOADLT=SEQ(LOADLT,GENGE0(47)) GOTO 10039 10054 GOTO(10055,10055,10057,10057,10058,10058),AAAAH0 10056 GOTO 10039 10015 LOADLT=SEQ(R,LD(OPREG,RRES,RAD)) LOADLT=SEQ(LOADLT,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBINS, *TAD)) AAAAI0=TMEMA0(EXPR+1) GOTO 10060 10061 LOADLT=SEQ(LOADLT,GENGE0(41)) GOTO 10047 10063 LOADLT=SEQ(LOADLT,GENGE0(9),GENBR0(33,LAB),GENGE0(63),GENLA0(LAB *)) GOTO 10047 10064 LOADLT=SEQ(LOADLT,GENGE0(49)) GOTO 10047 10060 GOTO(10061,10061,10063,10063,10064,10064),AAAAI0 10062 GOTO 10047 10053 GOTO(10039,10039),AAAAC0 GOTO 10053 END INTEGER FUNCTION LOAEC0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOGICAL SAFE INTEGER L,R,CLEAN0 INTEGER REACH,SEQ,LD,ST,GENGE0,GENMR,MULABY,MULLBY,LOADU0 INTEGER LRES,RRES,LAD(5),RAD(5),TAD(5),OPINS,OPSIZE INTEGER RREGS,LREGS,OPREG INTEGER LEFTOP,RIGHT0 INTEGER AAAAJ0 INTEGER AAAAK0 INTEGER AAAAL0 INTEGER AAAAM0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) IF((TMEMA0(LEFTOP).NE.69))GOTO 10069 LOAEC0=LOADU0(EXPR,REGS) RETURN 10069 AAAAM0=TMEMA0(EXPR+1) GOTO 10070 10071 IF((TMEMA0(RIGHT0).NE.9))GOTO 10072 L=REACH(LEFTOP,REGS,LRES,LAD) REGS=OR(REGS,:002000) LOAEC0=SEQ(L,LD(:002000,LRES,LAD),MULABY(TMEMA0(RIGHT0+3)),ST( *:002000,LAD)) RETURN 10072 OPSIZE=1 OPINS=43 OPREG=:002000 CLEAN0=GENGE0(106) GOTO 10073 10074 IF((TMEMA0(RIGHT0).NE.9))GOTO 10075 L=REACH(LEFTOP,REGS,LRES,LAD) REGS=OR(REGS,:001000) LOAEC0=SEQ(L,LD(:001000,LRES,LAD),MULLBY(TMEMA0(RIGHT0+3)),ST( *:001000,LAD)) RETURN 10075 OPSIZE=2 OPINS=42 OPREG=:001000 CLEAN0=GENGE0(33) GOTO 10073 10076 OPSIZE=2 OPINS=27 OPREG=:000400 CLEAN0=0 GOTO 10073 10077 OPSIZE=4 OPINS=12 OPREG=:000200 CLEAN0=0 GOTO 10073 10070 GOTO(10071,10074,10071,10074,10076,10077),AAAAM0 CALL PANIC('load_mulaa: bad data mode *i*n.',TMEMA0(EXPR+1)) 10073 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) GOTO 10078 10079 IF((.NOT.SAFE(LREGS,RREGS)))GOTO 10080 AAAAJ0=1 GOTO 10066 10080 AAAAK0=1 GOTO 10067 10083 CONTINUE 10082 GOTO 10084 10085 AAAAK0=2 GOTO 10067 10087 IF((.NOT.SAFE(LREGS,RREGS)))GOTO 10088 AAAAJ0=2 GOTO 10066 10088 AAAAL0=1 GOTO 10068 10091 CONTINUE 10090 GOTO 10084 10078 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10092 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10092 GOTO 10079 10092 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10093 IF(SAFE(OPREG,RREGS))GOTO 10093 GOTO 10085 10093 IF(SAFE(OPREG,LREGS))GOTO 10094 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10094 GOTO 10087 10094 CONTINUE AAAAL0=2 GOTO 10068 10095 CONTINUE 10084 CALL FREET0(TAD) REGS=OR(OPREG,OR(LREGS,RREGS)) RETURN 10066 LOAEC0=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(OPINS,RAD),CLEAN0,ST(OPREG *,LAD)) GOTO 10096 10067 LOAEC0=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(OPINS,LAD),CLEAN0,ST(OPREG *,LAD)) GOTO 10097 10068 LOAEC0=SEQ(R,LD(OPREG,RRES,RAD)) LOAEC0=SEQ(LOAEC0,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(OPINS,T *AD),CLEAN0,ST(OPREG,LAD)) GOTO 10098 10096 GOTO(10084,10084),AAAAJ0 GOTO 10096 10097 GOTO(10083,10084),AAAAK0 GOTO 10097 10098 GOTO(10091,10095),AAAAL0 GOTO 10098 END INTEGER FUNCTION LOAEB0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOGICAL SAFE INTEGER L,R,CLEAN0 INTEGER REACH,SEQ,LD,ST,GENGE0,GENMR,MULABY,LOAD,MULLBY INTEGER LRES,RRES,LAD(5),RAD(5),TAD(5),OPINS,OPSIZE INTEGER RREGS,LREGS,OPREG INTEGER RIGHT0,LEFTOP INTEGER AAAAN0 INTEGER AAAAO0 INTEGER AAAAP0 INTEGER AAAAQ0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) AAAAQ0=TMEMA0(EXPR+1) GOTO 10102 10103 IF((TMEMA0(RIGHT0).NE.9))GOTO 10104 LOAEB0=SEQ(LOAD(LEFTOP,REGS),MULABY(TMEMA0(RIGHT0+3))) RETURN 10104 IF((TMEMA0(LEFTOP).NE.9))GOTO 10105 LOAEB0=SEQ(LOAD(RIGHT0,REGS),MULABY(TMEMA0(LEFTOP+3))) RETURN 10105 OPSIZE=1 OPINS=43 OPREG=:002000 CLEAN0=GENGE0(106) GOTO 10106 10107 IF((TMEMA0(RIGHT0).NE.9))GOTO 10108 LOAEB0=SEQ(LOAD(LEFTOP,REGS),MULLBY(TMEMA0(RIGHT0+3))) RETURN 10108 IF((TMEMA0(LEFTOP).NE.9))GOTO 10109 LOAEB0=SEQ(LOAD(RIGHT0,REGS),MULLBY(TMEMA0(LEFTOP+3))) RETURN 10109 OPSIZE=2 OPINS=42 OPREG=:001000 CLEAN0=GENGE0(33) GOTO 10106 10110 OPSIZE=2 OPINS=27 OPREG=:000400 CLEAN0=0 GOTO 10106 10111 OPSIZE=4 OPINS=12 OPREG=:000200 CLEAN0=0 GOTO 10106 10102 GOTO(10103,10107,10103,10107,10110,10111),AAAAQ0 CALL PANIC('load_mul: bad data mode *i*n.',TMEMA0(EXPR+1)) 10106 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) GOTO 10112 10113 AAAAN0=1 GOTO 10099 10116 AAAAO0=1 GOTO 10100 10118 AAAAN0=2 GOTO 10099 10112 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10120 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10120 GOTO 10113 10120 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10121 IF(SAFE(OPREG,RREGS))GOTO 10121 GOTO 10116 10121 IF(SAFE(OPREG,LREGS))GOTO 10122 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10122 GOTO 10118 10122 CONTINUE AAAAP0=1 GOTO 10101 10123 CONTINUE 10115 CALL FREET0(TAD) REGS=OR(OPREG,OR(LREGS,RREGS)) RETURN 10099 LOAEB0=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(OPINS,RAD),CLEAN0) GOTO 10124 10100 LOAEB0=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(OPINS,LAD),CLEAN0) GOTO 10115 10101 LOAEB0=SEQ(R,LD(OPREG,RRES,RAD)) LOAEB0=SEQ(LOAEB0,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(OPINS,T *AD),CLEAN0) GOTO 10123 10124 GOTO(10115,10115),AAAAN0 GOTO 10124 END INTEGER FUNCTION LOAED0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOAD,GENGE0,SEQ INTEGER AAAAR0 LOAED0=LOAD(TMEMA0(EXPR+2),REGS) AAAAR0=TMEMA0(EXPR+1) GOTO 10127 10128 LOAED0=SEQ(LOAED0,GENGE0(98)) GOTO 10129 10130 LOAED0=SEQ(LOAED0,GENGE0(99)) GOTO 10129 10131 LOAED0=SEQ(LOAED0,GENGE0(17)) GOTO 10129 10132 LOAED0=SEQ(LOAED0,GENGE0(15)) GOTO 10129 10127 GOTO(10128,10130,10128,10130,10131,10132),AAAAR0 CALL PANIC('load_neg: bad data mode *i*n.',TMEMA0(EXPR+1)) 10129 RETURN END INTEGER FUNCTION LOAEE0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LEVEL,LAD(5) INTEGER SEQ,GENGE0,GENMR LOAEE0=0 REGS=0 LEVEL=TMEMA0(EXPR+1) IF((LEVEL.GT.CONTI0))GOTO 10134 IF((LEVEL.LT.1))GOTO 10134 GOTO 10133 10134 CALL WARNI0('load_next: improper continue level (*i)*n.',LEVEL) GOTO 10135 10133 LEVEL=CONTI0-LEVEL+1 LAD(1)=10 LAD(3)=CONTJ0(LEVEL) LOAEE0=SEQ(GENMR(32,LAD),GENGE0(19)) 10135 RETURN END INTEGER FUNCTION LOADNE(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOGICAL LZERO,RZERO LOGICAL SAFE,OPHAS0 INTEGER L,R INTEGER SEQ,REACH,LD,ST,GENGE0,GENMR,LOAD INTEGER LREGS,RREGS INTEGER LRES,RRES,LAD(5),RAD(5),TAD(5),OPSIZE,OPREG,SUBINS,LOGINS INTEGER LEFTOP,RIGHT0 INTEGER AAAAS0 INTEGER AAAAT0 INTEGER AAAAU0 INTEGER AAAAV0 LEFTOP=TMEMA0(EXPR+2) RIGHT0=TMEMA0(EXPR+3) LZERO=OPHAS0(LEFTOP,0) RZERO=OPHAS0(RIGHT0,0) AAAAV0=TMEMA0(EXPR+1) GOTO 10139 10140 IF((.NOT.RZERO))GOTO 10141 LOADNE=SEQ(LOAD(LEFTOP,REGS),GENGE0(62)) RETURN 10141 IF((.NOT.LZERO))GOTO 10142 LOADNE=SEQ(LOAD(RIGHT0,REGS),GENGE0(62)) RETURN 10142 OPREG=:002000 OPSIZE=1 SUBINS=52 LOGINS=42 GOTO 10143 10144 IF((.NOT.RZERO))GOTO 10145 LOADNE=SEQ(LOAD(LEFTOP,REGS),GENGE0(60)) RETURN 10145 IF((.NOT.LZERO))GOTO 10146 LOADNE=SEQ(LOAD(RIGHT0,REGS),GENGE0(60)) RETURN 10146 OPREG=:001000 OPSIZE=2 SUBINS=46 LOGINS=42 GOTO 10143 10147 IF((.NOT.RZERO))GOTO 10148 LOADNE=LOAD(LEFTOP,REGS) REGS=OR(REGS,:002000) LOADNE=SEQ(LOADNE,GENGE0(50)) RETURN 10148 IF((.NOT.LZERO))GOTO 10149 LOADNE=LOAD(RIGHT0,REGS) REGS=OR(REGS,:002000) LOADNE=SEQ(LOADNE,GENGE0(50)) RETURN 10149 OPREG=:000400 OPSIZE=2 SUBINS=28 LOGINS=50 GOTO 10143 10150 IF((.NOT.RZERO))GOTO 10151 LOADNE=LOAD(LEFTOP,REGS) REGS=OR(REGS,:002000) LOADNE=SEQ(LOADNE,GENGE0(50)) RETURN 10151 IF((.NOT.LZERO))GOTO 10152 LOADNE=LOAD(RIGHT0,REGS) REGS=OR(REGS,:002000) LOADNE=SEQ(LOADNE,GENGE0(50)) RETURN 10152 OPREG=:000200 OPSIZE=4 SUBINS=13 LOGINS=50 GOTO 10143 10139 GOTO(10140,10144,10140,10144,10147,10150),AAAAV0 CALL PANIC('load_ne: bad op mode *i*n.',TMEMA0(EXPR+1)) 10143 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(OPSIZE,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) GOTO 10153 10154 AAAAS0=1 GOTO 10136 10157 AAAAT0=1 GOTO 10137 10159 AAAAS0=2 GOTO 10136 10153 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10161 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10161 GOTO 10154 10161 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10162 IF(SAFE(OPREG,RREGS))GOTO 10162 GOTO 10157 10162 IF(SAFE(OPREG,LREGS))GOTO 10163 IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10163 GOTO 10159 10163 CONTINUE AAAAU0=1 GOTO 10138 10164 CONTINUE 10156 CALL FREET0(TAD) REGS=OR(:002000,OR(OPREG,OR(LREGS,RREGS))) RETURN 10136 LOADNE=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBINS,RAD),GENGE0(LOGINS) *) GOTO 10165 10137 LOADNE=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBINS,LAD),GENGE0(LOGINS) *) GOTO 10156 10138 LOADNE=SEQ(R,LD(OPREG,RRES,RAD)) LOADNE=SEQ(LOADNE,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBINS, *TAD),GENGE0(LOGINS)) GOTO 10164 10165 GOTO(10156,10156),AAAAS0 GOTO 10165 END INTEGER FUNCTION LOAEF0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOAD,GENGE0,SEQ INTEGER AAAAW0 LOAEF0=LOAD(TMEMA0(EXPR+2),REGS) REGS=OR(REGS,:002000) AAAAW0=TMEMA0(EXPR+1) GOTO 10168 10169 LOAEF0=SEQ(LOAEF0,GENGE0(43)) GOTO 10170 10171 LOAEF0=SEQ(LOAEF0,GENGE0(55)) GOTO 10170 10172 LOAEF0=SEQ(LOAEF0,GENGE0(45)) GOTO 10170 10168 GOTO(10169,10171,10169,10171,10172,10172),AAAAW0 CALL PANIC('load_not: bad data mode *i*n.',TMEMA0(EXPR+1)) 10170 RETURN END INTEGER FUNCTION LOAEG0(EXPR,REGS) INTEGER EXPR INTEGER REGS REGS=0 LOAEG0=0 RETURN END INTEGER FUNCTION LOAEH0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 GENMR INTEGER RES,AD(5) INTEGER AAAAX0 CALL REACH(EXPR,REGS,RES,AD) AAAAX0=TMEMA0(EXPR+1) GOTO 10173 10174 LOAEH0=GENMR(37,AD) REGS=OR(REGS,:002000) GOTO 10175 10176 LOAEH0=GENMR(38,AD) REGS=OR(REGS,:001000) GOTO 10175 10177 LOAEH0=GENMR(25,AD) REGS=OR(REGS,:000400) GOTO 10175 10178 LOAEH0=GENMR(10,AD) REGS=OR(REGS,:000200) GOTO 10175 10173 GOTO(10174,10176,10174,10176,10177,10178),AAAAX0 CALL PANIC('load_object: bad mode *i*n.',TMEMA0(EXPR+1)) 10175 RETURN END INTEGER FUNCTION LOAEI0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOGICAL SAFE INTEGER LREGS,RREGS INTEGER LRES,RRES,LAD(5),RAD(5),OPSIZE,TAD(5) INTEGER L,R INTEGER SEQ,GENMR,LD,ST,REACH,GENGE0,LOADU0 INTEGER AAAAY0 INTEGER AAAAZ0 INTEGER AAABA0 INTEGER AAABB0 INTEGER AAABC0 INTEGER AAABD0 INTEGER AAABE0 IF((TMEMA0(TMEMA0(EXPR+2)).NE.69))GOTO 10185 LOAEI0=LOADU0(EXPR,REGS) RETURN 10185 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(2,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) AAABE0=TMEMA0(EXPR+1) GOTO 10186 10189 IF((.NOT.SAFE(LREGS,RREGS)))GOTO 10190 AAAAY0=1 GOTO 10179 10190 AAAAZ0=1 GOTO 10180 10193 CONTINUE 10192 GOTO 10206 10195 AAAAZ0=2 GOTO 10180 10197 IF((.NOT.SAFE(LREGS,RREGS)))GOTO 10198 AAAAY0=2 GOTO 10179 10198 AAABA0=1 GOTO 10181 10201 CONTINUE 10200 GOTO 10206 10188 IF((.NOT.SAFE(:002000,LREGS)))GOTO 10202 IF((.NOT.SAFE(:002000,RREGS)))GOTO 10202 GOTO 10189 10202 IF((.NOT.SAFE(:002000,LREGS)))GOTO 10203 IF(SAFE(:002000,RREGS))GOTO 10203 GOTO 10195 10203 IF(SAFE(:002000,LREGS))GOTO 10204 IF((.NOT.SAFE(:002000,RREGS)))GOTO 10204 GOTO 10197 10204 CONTINUE AAABA0=2 GOTO 10181 10205 CONTINUE 10194 GOTO 10206 10207 IF((RRES.NE.1))GOTO 10208 AAABB0=1 GOTO 10182 10208 IF((RAD(1).NE.7))GOTO 10211 AAABC0=1 GOTO 10183 10211 IF((RAD(1).NE.1))GOTO 10214 IF((.NOT.SAFE(OR(LREGS,:001000),RREGS)))GOTO 10214 AAABD0=1 GOTO 10184 10214 IF((RAD(1).NE.2))GOTO 10217 IF((.NOT.SAFE(OR(LREGS,:001000),RREGS)))GOTO 10217 AAABD0=2 GOTO 10184 10217 AAABB0=2 GOTO 10182 10220 CONTINUE 10219 CONTINUE 10216 CONTINUE 10213 CONTINUE 10210 GOTO 10206 10186 GOTO(10188,10207,10188,10207),AAABE0 CALL PANIC('load_oraa: bad data mode *i*n.',TMEMA0(EXPR+1)) 10206 CALL FREET0(TAD) REGS=OR(:002000,OR(LREGS,RREGS)) RETURN 10179 LOAEI0=SEQ(L,LD(:002000,LRES,LAD),R,GENMR(44,RAD),ST(:002000,LAD)) GOTO 10221 10180 LOAEI0=SEQ(R,LD(:002000,RRES,RAD),L,GENMR(44,LAD),ST(:002000,LAD)) GOTO 10222 10181 LOAEI0=SEQ(R,LD(:002000,RRES,RAD)) LOAEI0=SEQ(LOAEI0,ST(:002000,TAD),L,LD(:002000,LRES,LAD),GENMR(44, *TAD),ST(:002000,LAD)) GOTO 10223 10182 LOAEI0=SEQ(R,LD(:001000,RRES,RAD),ST(:001000,TAD),L,LD(:001000,LRE *S,LAD),GENMR(44,TAD),GENGE0(29)) TAD(3)=TAD(3)+(1) LOAEI0=SEQ(LOAEI0,GENMR(44,TAD),GENGE0(29),ST(:001000,LAD)) TAD(3)=TAD(3)-(1) GOTO 10224 10183 TAD(1)=6 TAD(2)=RAD(2) LOAEI0=SEQ(L,LD(:001000,LRES,LAD),GENMR(44,TAD),GENGE0(29)) TAD(2)=RAD(3) LOAEI0=SEQ(LOAEI0,GENMR(44,TAD),GENGE0(29),ST(:001000,LAD)) GOTO 10213 10184 LOAEI0=SEQ(L,LD(:001000,LRES,LAD),R,GENMR(44,RAD),GENGE0(29)) RAD(3)=RAD(3)+(1) LOAEI0=SEQ(LOAEI0,GENMR(44,RAD),GENGE0(29),ST(:001000,LAD)) GOTO 10226 10221 GOTO(10206,10206),AAAAY0 GOTO 10221 10222 GOTO(10193,10206),AAAAZ0 GOTO 10222 10223 GOTO(10201,10205),AAABA0 GOTO 10223 10224 GOTO(10206,10220),AAABB0 GOTO 10224 10226 GOTO(10216,10219),AAABD0 GOTO 10226 END INTEGER FUNCTION LOADOR(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LOGICAL SAFE INTEGER LREGS,RREGS INTEGER LRES,RRES,LAD(5),RAD(5),OPSIZE,TAD(5) INTEGER L,R INTEGER SEQ,GENMR,LD,ST,REACH,GENGE0 INTEGER AAABF0 INTEGER AAABG0 INTEGER AAABH0 INTEGER AAABI0 INTEGER AAABJ0 INTEGER AAABK0 INTEGER AAABL0 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) CALL ALLOC0(2,TAD) L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) AAABL0=TMEMA0(EXPR+1) GOTO 10233 10236 AAABF0=1 GOTO 10227 10239 AAABG0=1 GOTO 10228 10241 AAABF0=2 GOTO 10227 10235 IF((.NOT.SAFE(:002000,LREGS)))GOTO 10243 IF((.NOT.SAFE(:002000,RREGS)))GOTO 10243 GOTO 10236 10243 IF((.NOT.SAFE(:002000,LREGS)))GOTO 10244 IF(SAFE(:002000,RREGS))GOTO 10244 GOTO 10239 10244 IF(SAFE(:002000,LREGS))GOTO 10245 IF((.NOT.SAFE(:002000,RREGS)))GOTO 10245 GOTO 10241 10245 CONTINUE AAABH0=1 GOTO 10229 10246 CONTINUE 10238 GOTO 10247 10248 IF((RRES.NE.1))GOTO 10249 AAABI0=1 GOTO 10230 10249 IF((RAD(1).NE.7))GOTO 10252 AAABJ0=1 GOTO 10231 10252 IF((RAD(1).NE.1))GOTO 10255 IF((.NOT.SAFE(:001000,RREGS)))GOTO 10255 AAABK0=1 GOTO 10232 10255 IF((RAD(1).NE.2))GOTO 10258 IF((.NOT.SAFE(:001000,RREGS)))GOTO 10258 AAABK0=2 GOTO 10232 10258 AAABI0=2 GOTO 10230 10261 CONTINUE 10260 CONTINUE 10257 CONTINUE 10254 CONTINUE 10251 GOTO 10247 10233 GOTO(10235,10248,10235,10248),AAABL0 CALL PANIC('load_or: bad data mode *i*n.',TMEMA0(EXPR+1)) 10247 CALL FREET0(TAD) REGS=OR(:002000,OR(LREGS,RREGS)) RETURN 10227 LOADOR=SEQ(L,LD(:002000,LRES,LAD),R,GENMR(44,RAD)) GOTO 10262 10228 LOADOR=SEQ(R,LD(:002000,RRES,RAD),L,GENMR(44,LAD)) GOTO 10247 10229 LOADOR=SEQ(R,LD(:002000,RRES,RAD)) LOADOR=SEQ(LOADOR,ST(:002000,TAD),L,LD(:002000,LRES,LAD),GENMR(44, *TAD)) GOTO 10246 10230 LOADOR=SEQ(R,LD(:001000,RRES,RAD),ST(:001000,TAD),L,LD(:001000,LRE *S,LAD),GENMR(44,TAD),GENGE0(29)) TAD(3)=TAD(3)+(1) LOADOR=SEQ(LOADOR,GENMR(44,TAD),GENGE0(29)) TAD(3)=TAD(3)-(1) GOTO 10265 10231 TAD(1)=6 TAD(2)=RAD(2) LOADOR=SEQ(L,LD(:001000,LRES,LAD),GENMR(44,TAD),GENGE0(29)) TAD(2)=RAD(3) LOADOR=SEQ(LOADOR,GENMR(44,TAD),GENGE0(29)) GOTO 10254 10232 LOADOR=SEQ(L,LD(:001000,LRES,LAD),R,GENMR(44,RAD),GENGE0(29)) RAD(3)=RAD(3)+(1) LOADOR=SEQ(LOADOR,GENMR(44,RAD),GENGE0(29)) GOTO 10267 10262 GOTO(10247,10247),AAABF0 GOTO 10262 10265 GOTO(10247,10261),AAABI0 GOTO 10265 10267 GOTO(10257,10260),AAABK0 GOTO 10267 END INTEGER FUNCTION LOAEJ0(EXPR,REGS) INTEGER EXPR INTEGER REGS 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 LREGS,RREGS,OPREG INTEGER L,R INTEGER SEQ,LD,ST,GENMR,REACH,LOADU0 INTEGER LRES,RRES,LAD(5),RAD(5),OPINS,INVINS INTEGER MESG(15) INTEGER AAABM0 INTEGER AAABN0 INTEGER AAABO0 DATA MESG/236,239,225,228,223,240,239,243,244,228,229,227,186,160, *0/ IF((TMEMA0(TMEMA0(EXPR+2)).NE.69))GOTO 10268 LOAEJ0=LOADU0(EXPR,REGS) RETURN 10268 AAABM0=TMEMA0(EXPR+1) GOTO 10269 10270 OPREG=:002000 OPINS=52 INVINS=1 GOTO 10271 10272 OPREG=:001000 OPINS=46 INVINS=2 GOTO 10271 10273 OPREG=:000400 OPINS=28 INVINS=22 GOTO 10271 10274 OPREG=:000200 OPINS=13 INVINS=7 GOTO 10271 10269 GOTO(10270,10272,10270,10272,10273,10274),AAABM0 CALL WARNI0('*sbad data mode*i*n.',MESG,TMEMA0(EXPR+1)) REGS=0 LOAEJ0=0 RETURN 10271 L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD) R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD) IF((RRES.NE.1))GOTO 10275 CALL WARNI0('*sright op not a constant*n.',MESG) REGS=0 LOAEJ0=0 RETURN 10275 AAABN0=RAD(1) GOTO 10276 10276 AAABO0=AAABN0-5 GOTO(10278,10278,10278,10278),AAABO0 CALL WARNI0('*sright op not a constant*n.',MESG) REGS=0 LOAEJ0=0 RETURN 10278 IF((LRES.NE.1))GOTO 10279 CALL WARNI0('*sleft op not an lvalue*n.',MESG) REGS=0 LOAEJ0=0 RETURN 10279 LOAEJ0=SEQ(L,LD(OPREG,LRES,LAD),GENMR(OPINS,RAD),ST(OPREG,LAD),GEN *MR(INVINS,RAD)) REGS=OR(OPREG,LREGS) 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 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 cleanup clean0 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 shiftid shift0 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 rtrtext rtrte0 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