INTEGER FUNCTION LOADR0(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 AAAAA0
INTEGER AAAAB0
INTEGER PREP,L,R
INTEGER GENGE0,GENMR,LD,ST,REACH,SEQ,DIVABY,DIVLBY,LOADU0
INTEGER OPREG,LREGS,RREGS
INTEGER LRES,RRES,LAD(5),RAD(5),TAD(5),OPSIZE,OPINS
INTEGER LEFTOP,RIGHT0
INTEGER AAAAC0
LEFTOP=TMEMA0(EXPR+2)
RIGHT0=TMEMA0(EXPR+3)
IF((TMEMA0(LEFTOP).NE.69))GOTO 10002
LOADR0=LOADU0(EXPR,REGS)
RETURN
10002 AAAAC0=TMEMA0(EXPR+1)
GOTO 10003
10004 IF((TMEMA0(RIGHT0).NE.9))GOTO 10005
L=REACH(LEFTOP,REGS,LRES,LAD)
REGS=OR(REGS,:002000)
LOADR0=SEQ(L,LD(:002000,LRES,LAD),DIVABY(TMEMA0(RIGHT0+3),1),S
*T(:002000,LAD))
RETURN
10005 OPREG=:002000
PREP=GENGE0(65)
OPSIZE=1
OPINS=15
GOTO 10006
10007 IF((TMEMA0(RIGHT0).NE.9))GOTO 10008
L=REACH(LEFTOP,REGS,LRES,LAD)
REGS=OR(REGS,:002000)
LOADR0=SEQ(L,LD(:002000,LRES,LAD),DIVABY(TMEMA0(RIGHT0+3),3),S
*T(:002000,LAD))
RETURN
10008 OPREG=:002000
PREP=GENGE0(105)
OPSIZE=1
OPINS=15
GOTO 10006
10009 IF((TMEMA0(RIGHT0).NE.9))GOTO 10010
L=REACH(LEFTOP,REGS,LRES,LAD)
REGS=OR(REGS,:001000)
LOADR0=SEQ(L,LD(:001000,LRES,LAD),DIVLBY(TMEMA0(RIGHT0+3),1),S
*T(:001000,LAD))
RETURN
10010 OPREG=:001000
PREP=GENGE0(66)
OPSIZE=2
OPINS=16
GOTO 10006
10011 IF((TMEMA0(RIGHT0).NE.9))GOTO 10012
L=REACH(LEFTOP,REGS,LRES,LAD)
REGS=OR(REGS,:001000)
LOADR0=SEQ(L,LD(:001000,LRES,LAD),DIVLBY(TMEMA0(RIGHT0+3),3),S
*T(:001000,LAD))
RETURN
10012 OPREG=:001000
PREP=SEQ(GENGE0(33),GENGE0(12))
OPSIZE=2
OPINS=16
GOTO 10006
10013 OPREG=:000400
PREP=0
OPSIZE=2
OPINS=24
GOTO 10006
10014 OPREG=:000200
PREP=0
OPSIZE=4
OPINS=9
GOTO 10006
10003 GOTO(10004,10009,10007,10011,10013,10014),AAAAC0
CALL PANIC('load_divaa: bad operand mode *i*n.',TMEMA0(EXPR+1))
10006 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)
CALL ALLOC0(OPSIZE,TAD)
L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD)
IF((LRES.EQ.0))GOTO 10016
CALL WARNI0('load_divaa: left operand not lvalue*n.')
LOADR0=0
RETURN
10017 IF((.NOT.SAFE(LREGS,RREGS)))GOTO 10018
AAAAA0=1
GOTO 10000
10018 AAAAB0=1
GOTO 10001
10021 CONTINUE
10020 GOTO 10022
10023 AAAAB0=2
GOTO 10001
10025 IF((.NOT.SAFE(LREGS,RREGS)))GOTO 10026
AAAAA0=2
GOTO 10000
10026 AAAAB0=3
GOTO 10001
10029 CONTINUE
10028 GOTO 10022
10016 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10030
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10030
GOTO 10017
10030 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10031
IF(SAFE(OPREG,RREGS))GOTO 10031
GOTO 10023
10031 IF(SAFE(OPREG,LREGS))GOTO 10032
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10032
GOTO 10025
10032 CONTINUE
AAAAB0=4
GOTO 10001
10033 CONTINUE
10022 CALL FREET0(TAD)
REGS=OR(OPREG,OR(LREGS,RREGS))
RETURN
10000 LOADR0=SEQ(L,LD(OPREG,LRES,LAD),PREP,R,GENMR(OPINS,RAD),ST(OPREG,L
*AD))
GOTO 10034
10001 LOADR0=SEQ(R,LD(OPREG,RRES,RAD))
LOADR0=SEQ(LOADR0,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),PREP,GENMR(OP
*INS,TAD),ST(OPREG,LAD))
GOTO 10035
10034 GOTO(10022,10022),AAAAA0
GOTO 10034
10035 GOTO(10021,10022,10029,10033),AAAAB0
GOTO 10035
END
INTEGER FUNCTION LOADQ0(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 AAAAD0
INTEGER AAAAE0
INTEGER PREP,L,R
INTEGER GENGE0,GENMR,LD,ST,REACH,SEQ,DIVABY,DIVLBY,LOAD
INTEGER OPREG,LREGS,RREGS
INTEGER LRES,RRES,LAD(5),RAD(5),TAD(5),OPSIZE,OPINS
INTEGER LEFTOP,RIGHT0
INTEGER AAAAF0
LEFTOP=TMEMA0(EXPR+2)
RIGHT0=TMEMA0(EXPR+3)
AAAAF0=TMEMA0(EXPR+1)
GOTO 10038
10039 IF((TMEMA0(RIGHT0).NE.9))GOTO 10040
LOADQ0=SEQ(LOAD(LEFTOP,REGS),DIVABY(TMEMA0(RIGHT0+3),1))
RETURN
10040 OPREG=:002000
PREP=GENGE0(65)
OPSIZE=1
OPINS=15
GOTO 10041
10042 IF((TMEMA0(RIGHT0).NE.9))GOTO 10043
LOADQ0=SEQ(LOAD(LEFTOP,REGS),DIVABY(TMEMA0(RIGHT0+3),3))
RETURN
10043 OPREG=:002000
PREP=GENGE0(105)
OPSIZE=1
OPINS=15
GOTO 10041
10044 IF((TMEMA0(RIGHT0).NE.9))GOTO 10045
LOADQ0=SEQ(LOAD(LEFTOP,REGS),DIVLBY(TMEMA0(RIGHT0+3),1))
RETURN
10045 OPREG=:001000
PREP=GENGE0(66)
OPSIZE=2
OPINS=16
GOTO 10041
10046 IF((TMEMA0(RIGHT0).NE.9))GOTO 10047
LOADQ0=SEQ(LOAD(LEFTOP,REGS),DIVLBY(TMEMA0(RIGHT0+3),3))
RETURN
10047 OPREG=:001000
PREP=SEQ(GENGE0(33),GENGE0(12))
OPSIZE=2
OPINS=16
GOTO 10041
10048 OPREG=:000400
PREP=0
OPSIZE=2
OPINS=24
GOTO 10041
10049 OPREG=:000200
PREP=0
OPSIZE=4
OPINS=9
GOTO 10041
10038 GOTO(10039,10044,10042,10046,10048,10049),AAAAF0
CALL PANIC('load_div: bad operand mode *i*n.',TMEMA0(EXPR+1))
10041 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)
CALL ALLOC0(OPSIZE,TAD)
L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD)
GOTO 10050
10051 AAAAD0=1
GOTO 10036
10054 AAAAE0=1
GOTO 10037
10056 AAAAD0=2
GOTO 10036
10050 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10058
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10058
GOTO 10051
10058 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10059
IF(SAFE(OPREG,RREGS))GOTO 10059
GOTO 10054
10059 IF(SAFE(OPREG,LREGS))GOTO 10060
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10060
GOTO 10056
10060 CONTINUE
AAAAE0=2
GOTO 10037
10061 CONTINUE
10053 CALL FREET0(TAD)
REGS=OR(OPREG,OR(LREGS,RREGS))
RETURN
10036 LOADQ0=SEQ(L,LD(OPREG,LRES,LAD),PREP,R,GENMR(OPINS,RAD))
GOTO 10062
10037 LOADQ0=SEQ(R,LD(OPREG,RRES,RAD))
LOADQ0=SEQ(LOADQ0,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),PREP,GENMR(OP
*INS,TAD))
GOTO 10063
10062 GOTO(10053,10053),AAAAD0
GOTO 10062
10063 GOTO(10053,10061),AAAAE0
GOTO 10063
END
INTEGER FUNCTION LOADS0(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 CAD(5)
INTEGER MKLAB0
INTEGER SEQ,GENLA0,GENMR,GENGE0,VOID,FLOW
INTEGER CREGS
IF((BREAK0+1.LE.10))GOTO 10064
CALL PANIC('do loops nested too deeply: break stack overflow*n.'
*)
10064 BREAK0=BREAK0+(1)
BREAL0(BREAK0)=MKLAB0(1)
IF((CONTI0+1.LE.10))GOTO 10065
CALL PANIC('do loops nested too deeply: continue stack overflow*
*n.')
10065 CONTI0=CONTI0+(1)
CONTJ0(CONTI0)=MKLAB0(1)
IF((TMEMA0(EXPR+2).NE.0))GOTO 10066
CAD(1)=10
CAD(3)=CONTJ0(CONTI0)
LOADS0=SEQ(GENLA0(CAD(3)),VOID(TMEMA0(EXPR+1),REGS),GENMR(32,CAD
*),GENGE0(19),GENLA0(BREAL0(BREAK0)))
GOTO 10067
10066 CAD(1)=10
CAD(3)=MKLAB0(1)
LOADS0=SEQ(GENLA0(CAD(3)),VOID(TMEMA0(EXPR+1),REGS),GENLA0(CONTJ
*0(CONTI0)))
LOADS0=SEQ(LOADS0,FLOW(TMEMA0(EXPR+2),CREGS,.FALSE.,CAD(3)),GENL
*A0(BREAL0(BREAK0)))
REGS=OR(REGS,CREGS)
10067 BREAK0=BREAK0-(1)
CONTI0=CONTI0-(1)
RETURN
END
INTEGER FUNCTION LOADEQ(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 AAAAG0
INTEGER AAAAH0
INTEGER AAAAI0
INTEGER AAAAJ0
LEFTOP=TMEMA0(EXPR+2)
RIGHT0=TMEMA0(EXPR+3)
LZERO=OPHAS0(LEFTOP,0)
RZERO=OPHAS0(RIGHT0,0)
AAAAJ0=TMEMA0(EXPR+1)
GOTO 10071
10072 IF((.NOT.RZERO))GOTO 10073
LOADEQ=SEQ(LOAD(LEFTOP,REGS),GENGE0(43))
RETURN
10073 IF((.NOT.LZERO))GOTO 10074
LOADEQ=SEQ(LOAD(RIGHT0,REGS),GENGE0(43))
RETURN
10074 OPREG=:002000
OPSIZE=1
SUBINS=52
LOGINS=37
GOTO 10075
10076 IF((.NOT.RZERO))GOTO 10077
LOADEQ=SEQ(LOAD(LEFTOP,REGS),GENGE0(55))
RETURN
10077 IF((.NOT.LZERO))GOTO 10078
LOADEQ=SEQ(LOAD(RIGHT0,REGS),GENGE0(55))
RETURN
10078 OPREG=:001000
OPSIZE=2
SUBINS=46
LOGINS=37
GOTO 10075
10079 IF((.NOT.RZERO))GOTO 10080
LOADEQ=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADEQ=SEQ(LOADEQ,GENGE0(45))
RETURN
10080 IF((.NOT.LZERO))GOTO 10081
LOADEQ=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADEQ=SEQ(LOADEQ,GENGE0(45))
RETURN
10081 OPREG=:000400
OPSIZE=2
SUBINS=28
LOGINS=45
GOTO 10075
10082 IF((.NOT.RZERO))GOTO 10083
LOADEQ=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADEQ=SEQ(LOADEQ,GENGE0(45))
RETURN
10083 IF((.NOT.LZERO))GOTO 10084
LOADEQ=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADEQ=SEQ(LOADEQ,GENGE0(45))
RETURN
10084 OPREG=:000200
OPSIZE=4
SUBINS=13
LOGINS=45
GOTO 10075
10071 GOTO(10072,10076,10072,10076,10079,10082),AAAAJ0
CALL PANIC('load_eq: bad op mode *i*n.',TMEMA0(EXPR+1))
10075 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)
CALL ALLOC0(OPSIZE,TAD)
L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD)
GOTO 10085
10086 AAAAG0=1
GOTO 10068
10089 AAAAH0=1
GOTO 10069
10091 AAAAG0=2
GOTO 10068
10085 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10093
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10093
GOTO 10086
10093 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10094
IF(SAFE(OPREG,RREGS))GOTO 10094
GOTO 10089
10094 IF(SAFE(OPREG,LREGS))GOTO 10095
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10095
GOTO 10091
10095 CONTINUE
AAAAI0=1
GOTO 10070
10096 CONTINUE
10088 CALL FREET0(TAD)
REGS=OR(:002000,OR(OPREG,OR(LREGS,RREGS)))
RETURN
10068 LOADEQ=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBINS,RAD),GENGE0(LOGINS)
*)
GOTO 10097
10069 LOADEQ=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBINS,LAD),GENGE0(LOGINS)
*)
GOTO 10088
10070 LOADEQ=SEQ(R,LD(OPREG,RRES,RAD))
LOADEQ=SEQ(LOADEQ,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBINS,
*TAD),GENGE0(LOGINS))
GOTO 10096
10097 GOTO(10088,10088),AAAAG0
GOTO 10097
END
INTEGER FUNCTION LOADT0(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 LDFIE0
LOADT0=LDFIE0(EXPR,REGS)
RETURN
END
INTEGER FUNCTION LOADV0(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 AD(5),LOOPL0,TESTL0
INTEGER MKLAB0
INTEGER SEQ,GENLA0,GENMR,GENGE0,LOAD,FLOW,VOID
INTEGER IREGS,CREGS,RREGS,BREGS
TESTL0=MKLAB0(1)
LOOPL0=MKLAB0(1)
IF((BREAK0+1.LE.10))GOTO 10100
CALL PANIC('for loops nested too deeply: break stack overflow*n.
*')
10100 BREAK0=BREAK0+(1)
BREAL0(BREAK0)=MKLAB0(1)
IF((CONTI0+1.LE.10))GOTO 10101
CALL PANIC('for loops nested too deeply: continue stack overflow
**n.')
10101 CONTI0=CONTI0+(1)
CONTJ0(CONTI0)=MKLAB0(1)
LOADV0=VOID(TMEMA0(EXPR+1),IREGS)
AD(1)=10
IF((TMEMA0(EXPR+2).NE.0))GOTO 10102
AD(3)=LOOPL0
LOADV0=SEQ(LOADV0,GENLA0(LOOPL0))
LOADV0=SEQ(LOADV0,VOID(TMEMA0(EXPR+4),BREGS),GENLA0(CONTJ0(CONTI
*0)))
LOADV0=SEQ(LOADV0,VOID(TMEMA0(EXPR+3),RREGS),GENMR(32,AD),GENGE0
*(19),GENLA0(BREAL0(BREAK0)))
CREGS=0
GOTO 10103
10102 AD(3)=TESTL0
LOADV0=SEQ(LOADV0,GENMR(32,AD),GENGE0(19),GENLA0(LOOPL0))
LOADV0=SEQ(LOADV0,VOID(TMEMA0(EXPR+4),BREGS),GENLA0(CONTJ0(CONTI
*0)))
LOADV0=SEQ(LOADV0,VOID(TMEMA0(EXPR+3),RREGS),GENLA0(TESTL0))
LOADV0=SEQ(LOADV0,FLOW(TMEMA0(EXPR+2),CREGS,.TRUE.,LOOPL0),GENLA
*0(BREAL0(BREAK0)))
10103 BREAK0=BREAK0-(1)
CONTI0=CONTI0-(1)
REGS=OR(IREGS,OR(CREGS,OR(RREGS,BREGS)))
RETURN
END
INTEGER FUNCTION LOADGE(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 AAAAK0
INTEGER AAAAL0
INTEGER AAAAM0
INTEGER AAAAN0
INTEGER AAAAO0
INTEGER AAAAP0
INTEGER AAAAQ0
LEFTOP=TMEMA0(EXPR+2)
RIGHT0=TMEMA0(EXPR+3)
LZERO=OPHAS0(LEFTOP,0)
RZERO=OPHAS0(RIGHT0,0)
AAAAN0=TMEMA0(EXPR+1)
GOTO 10107
10108 IF((.NOT.RZERO))GOTO 10109
LOADGE=SEQ(LOAD(LEFTOP,REGS),GENGE0(51))
RETURN
10109 IF((.NOT.LZERO))GOTO 10110
LOADGE=SEQ(LOAD(RIGHT0,REGS),GENGE0(54))
RETURN
10110 OPREG=:002000
OPSIZE=1
SUBINS=52
GOTO 10111
10112 IF((.NOT.RZERO))GOTO 10113
LOADGE=SEQ(VOID(LEFTOP,REGS),GENGE0(63))
RETURN
10113 IF((.NOT.LZERO))GOTO 10114
LOADGE=SEQ(LOAD(RIGHT0,REGS),GENGE0(43))
RETURN
10114 OPREG=:002000
OPSIZE=1
SUBINS=52
GOTO 10111
10115 IF((.NOT.RZERO))GOTO 10116
LOADGE=SEQ(LOAD(LEFTOP,REGS),GENGE0(56))
RETURN
10116 IF((.NOT.LZERO))GOTO 10117
LOADGE=SEQ(LOAD(RIGHT0,REGS),GENGE0(58))
RETURN
10117 OPREG=:001000
OPSIZE=2
SUBINS=46
GOTO 10111
10118 IF((.NOT.RZERO))GOTO 10119
LOADGE=SEQ(VOID(LEFTOP,REGS),GENGE0(63))
RETURN
10119 IF((.NOT.LZERO))GOTO 10120
LOADGE=SEQ(LOAD(RIGHT0,REGS),GENGE0(55))
RETURN
10120 OPREG=:001000
OPSIZE=2
SUBINS=46
GOTO 10111
10121 IF((.NOT.RZERO))GOTO 10122
LOADGE=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADGE=SEQ(LOADGE,GENGE0(46))
RETURN
10122 IF((.NOT.LZERO))GOTO 10123
LOADGE=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADGE=SEQ(LOADGE,GENGE0(48))
RETURN
10123 OPREG=:000400
OPSIZE=2
SUBINS=28
GOTO 10111
10124 IF((.NOT.RZERO))GOTO 10125
LOADGE=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADGE=SEQ(LOADGE,GENGE0(46))
RETURN
10125 IF((.NOT.LZERO))GOTO 10126
LOADGE=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADGE=SEQ(LOADGE,GENGE0(48))
RETURN
10126 OPREG=:000200
OPSIZE=4
SUBINS=13
GOTO 10111
10107 GOTO(10108,10115,10112,10118,10121,10124),AAAAN0
CALL PANIC('load_ge: bad op mode *i*n.',TMEMA0(EXPR+1))
10111 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)
CALL ALLOC0(OPSIZE,TAD)
L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD)
LAB=MKLAB0(1)
GOTO 10127
10128 AAAAK0=1
GOTO 10104
10131 AAAAL0=1
GOTO 10105
10133 AAAAK0=2
GOTO 10104
10127 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10135
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10135
GOTO 10128
10135 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10136
IF(SAFE(OPREG,RREGS))GOTO 10136
GOTO 10131
10136 IF(SAFE(OPREG,LREGS))GOTO 10137
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10137
GOTO 10133
10137 CONTINUE
AAAAM0=1
GOTO 10106
10138 CONTINUE
10130 CALL FREET0(TAD)
REGS=OR(:002000,OR(OPREG,OR(LREGS,RREGS)))
RETURN
10104 LOADGE=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBINS,RAD))
AAAAO0=TMEMA0(EXPR+1)
GOTO 10139
10140 LOADGE=SEQ(LOADGE,GENGE0(38))
GOTO 10144
10142 LOADGE=SEQ(LOADGE,GENGE0(9),GENBR0(36,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10144
10143 LOADGE=SEQ(LOADGE,GENGE0(46))
GOTO 10144
10139 GOTO(10140,10140,10142,10142,10143,10143),AAAAO0
10141 GOTO 10144
10105 LOADGE=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBINS,LAD))
AAAAP0=TMEMA0(EXPR+1)
GOTO 10145
10146 LOADGE=SEQ(LOADGE,GENGE0(40))
GOTO 10130
10148 LOADGE=SEQ(LOADGE,GENGE0(9),GENBR0(34,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10130
10149 LOADGE=SEQ(LOADGE,GENGE0(48))
GOTO 10130
10145 GOTO(10146,10146,10148,10148,10149,10149),AAAAP0
10147 GOTO 10130
10106 LOADGE=SEQ(R,LD(OPREG,RRES,RAD))
LOADGE=SEQ(LOADGE,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBINS,
*TAD))
AAAAQ0=TMEMA0(EXPR+1)
GOTO 10151
10152 LOADGE=SEQ(LOADGE,GENGE0(38))
GOTO 10138
10154 LOADGE=SEQ(LOADGE,GENGE0(9),GENBR0(36,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10138
10155 LOADGE=SEQ(LOADGE,GENGE0(46))
GOTO 10138
10151 GOTO(10152,10152,10154,10154,10155,10155),AAAAQ0
10153 GOTO 10138
10144 GOTO(10130,10130),AAAAK0
GOTO 10144
END
INTEGER FUNCTION LOADW0(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,GENGE0,SEQ
INTEGER AD(5)
AD(1)=10
AD(3)=TMEMA0(EXPR+1)
LOADW0=SEQ(GENMR(32,AD),GENGE0(19))
REGS=0
RETURN
END
INTEGER FUNCTION LOADGT(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 AAAAR0
INTEGER AAAAS0
INTEGER AAAAT0
INTEGER AAAAU0
INTEGER AAAAV0
INTEGER AAAAW0
INTEGER AAAAX0
LEFTOP=TMEMA0(EXPR+2)
RIGHT0=TMEMA0(EXPR+3)
LZERO=OPHAS0(LEFTOP,0)
RZERO=OPHAS0(RIGHT0,0)
AAAAU0=TMEMA0(EXPR+1)
GOTO 10160
10161 IF((.NOT.RZERO))GOTO 10162
LOADGT=SEQ(LOAD(LEFTOP,REGS),GENGE0(52))
RETURN
10162 IF((.NOT.LZERO))GOTO 10163
LOADGT=SEQ(LOAD(RIGHT0,REGS),GENGE0(61))
RETURN
10163 OPREG=:002000
OPSIZE=1
SUBINS=52
GOTO 10164
10165 IF((.NOT.RZERO))GOTO 10166
LOADGT=SEQ(VOID(LEFTOP,REGS),GENGE0(63))
RETURN
10166 IF((.NOT.LZERO))GOTO 10167
LOADGT=SEQ(VOID(RIGHT0,REGS),GENGE0(9))
RETURN
10167 OPREG=:002000
OPSIZE=1
SUBINS=52
GOTO 10164
10168 IF((.NOT.RZERO))GOTO 10169
LOADGT=SEQ(LOAD(LEFTOP,REGS),GENGE0(57))
RETURN
10169 IF((.NOT.LZERO))GOTO 10170
LOADGT=SEQ(LOAD(RIGHT0,REGS),GENGE0(59))
RETURN
10170 OPREG=:001000
OPSIZE=2
SUBINS=46
GOTO 10164
10171 IF((.NOT.RZERO))GOTO 10172
LOADGT=SEQ(VOID(LEFTOP,REGS),GENGE0(63))
RETURN
10172 IF((.NOT.LZERO))GOTO 10173
LOADGT=SEQ(VOID(RIGHT0,REGS),GENGE0(9))
RETURN
10173 OPREG=:001000
OPSIZE=2
SUBINS=46
GOTO 10164
10174 IF((.NOT.RZERO))GOTO 10175
LOADGT=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADGT=SEQ(LOADGT,GENGE0(47))
RETURN
10175 IF((.NOT.LZERO))GOTO 10176
LOADGT=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADGT=SEQ(LOADGT,GENGE0(49))
RETURN
10176 OPREG=:000400
OPSIZE=2
SUBINS=28
GOTO 10164
10177 IF((.NOT.RZERO))GOTO 10178
LOADGT=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADGT=SEQ(LOADGT,GENGE0(47))
RETURN
10178 IF((.NOT.LZERO))GOTO 10179
LOADGT=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADGT=SEQ(LOADGT,GENGE0(49))
RETURN
10179 OPREG=:000200
OPSIZE=4
SUBINS=13
GOTO 10164
10160 GOTO(10161,10168,10165,10171,10174,10177),AAAAU0
CALL PANIC('load_gt: bad op mode *i*n.',TMEMA0(EXPR+1))
10164 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)
CALL ALLOC0(OPSIZE,TAD)
L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD)
LAB=MKLAB0(1)
GOTO 10180
10181 AAAAR0=1
GOTO 10157
10184 AAAAS0=1
GOTO 10158
10186 AAAAR0=2
GOTO 10157
10180 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10188
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10188
GOTO 10181
10188 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10189
IF(SAFE(OPREG,RREGS))GOTO 10189
GOTO 10184
10189 IF(SAFE(OPREG,LREGS))GOTO 10190
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10190
GOTO 10186
10190 CONTINUE
AAAAT0=1
GOTO 10159
10191 CONTINUE
10183 CALL FREET0(TAD)
REGS=OR(:002000,OR(OPREG,OR(LREGS,RREGS)))
RETURN
10157 LOADGT=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBINS,RAD))
AAAAV0=TMEMA0(EXPR+1)
GOTO 10192
10193 LOADGT=SEQ(LOADGT,GENGE0(39))
GOTO 10197
10195 LOADGT=SEQ(LOADGT,GENGE0(9),GENBR0(35,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10197
10196 LOADGT=SEQ(LOADGT,GENGE0(47))
GOTO 10197
10192 GOTO(10193,10193,10195,10195,10196,10196),AAAAV0
10194 GOTO 10197
10158 LOADGT=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBINS,LAD))
AAAAW0=TMEMA0(EXPR+1)
GOTO 10198
10199 LOADGT=SEQ(LOADGT,GENGE0(41))
GOTO 10183
10201 LOADGT=SEQ(LOADGT,GENGE0(9),GENBR0(33,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10183
10202 LOADGT=SEQ(LOADGT,GENGE0(49))
GOTO 10183
10198 GOTO(10199,10199,10201,10201,10202,10202),AAAAW0
10200 GOTO 10183
10159 LOADGT=SEQ(R,LD(OPREG,RRES,RAD))
LOADGT=SEQ(LOADGT,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBINS,
*TAD))
AAAAX0=TMEMA0(EXPR+1)
GOTO 10204
10205 LOADGT=SEQ(LOADGT,GENGE0(39))
GOTO 10191
10207 LOADGT=SEQ(LOADGT,GENGE0(9),GENBR0(35,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10191
10208 LOADGT=SEQ(LOADGT,GENGE0(47))
GOTO 10191
10204 GOTO(10205,10205,10207,10207,10208,10208),AAAAX0
10206 GOTO 10191
10197 GOTO(10183,10183),AAAAR0
GOTO 10197
END
INTEGER FUNCTION LOADIF(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,FLOW,GENGE0,GENMR,GENLA0,SEQ
INTEGER ELSEL0,EXITL0,AD(5)
INTEGER MKLAB0
INTEGER CREGS,TREGS,EREGS
IF((TMEMA0(EXPR+4).NE.0))GOTO 10210
EXITL0=MKLAB0(1)
LOADIF=FLOW(TMEMA0(EXPR+2),CREGS,.FALSE.,EXITL0)
LOADIF=SEQ(LOADIF,LOAD(TMEMA0(EXPR+3),TREGS),GENLA0(EXITL0))
EREGS=0
GOTO 10211
10210 IF((TMEMA0(EXPR+3).NE.0))GOTO 10212
EXITL0=MKLAB0(1)
LOADIF=FLOW(TMEMA0(EXPR+2),CREGS,.TRUE.,EXITL0)
LOADIF=SEQ(LOADIF,LOAD(TMEMA0(EXPR+4),EREGS),GENLA0(EXITL0))
TREGS=0
GOTO 10213
10212 ELSEL0=MKLAB0(1)
EXITL0=MKLAB0(1)
AD(1)=10
AD(3)=EXITL0
LOADIF=FLOW(TMEMA0(EXPR+2),CREGS,.FALSE.,ELSEL0)
LOADIF=SEQ(LOADIF,LOAD(TMEMA0(EXPR+3),TREGS),GENMR(32,AD),GENG
*E0(19),GENLA0(ELSEL0))
LOADIF=SEQ(LOADIF,LOAD(TMEMA0(EXPR+4),EREGS),GENLA0(EXITL0))
10213 CONTINUE
10211 REGS=OR(CREGS,OR(TREGS,EREGS))
RETURN
END
INTEGER FUNCTION LOADX0(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 REACH,GENMR,LD,SEQ
INTEGER RES,AD(5)
INTEGER OPREG
INTEGER AAAAY0
LOADX0=REACH(EXPR,REGS,RES,AD)
AAAAY0=TMEMA0(EXPR+1)
GOTO 10214
10215 OPREG=:002000
GOTO 10216
10217 OPREG=:001000
GOTO 10216
10218 OPREG=:000400
GOTO 10216
10219 OPREG=:000200
GOTO 10216
10214 GOTO(10215,10217,10215,10217,10218,10219),AAAAY0
CALL PANIC('load_index: bad data mode *i*n.',TMEMA0(EXPR+1))
10216 LOADX0=SEQ(LOADX0,LD(OPREG,RES,AD))
REGS=OR(REGS,OPREG)
RETURN
END
INTEGER FUNCTION LOADY0(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 GENLA0
LOADY0=GENLA0(TMEMA0(EXPR+1))
REGS=0
RETURN
END
INTEGER FUNCTION LOADLE(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 AAAAZ0
INTEGER AAABA0
INTEGER AAABB0
INTEGER AAABC0
INTEGER AAABD0
INTEGER AAABE0
INTEGER AAABF0
LEFTOP=TMEMA0(EXPR+2)
RIGHT0=TMEMA0(EXPR+3)
LZERO=OPHAS0(LEFTOP,0)
RZERO=OPHAS0(RIGHT0,0)
AAABC0=TMEMA0(EXPR+1)
GOTO 10223
10224 IF((.NOT.RZERO))GOTO 10225
LOADLE=SEQ(LOAD(LEFTOP,REGS),GENGE0(54))
RETURN
10225 IF((.NOT.LZERO))GOTO 10226
LOADLE=SEQ(LOAD(RIGHT0,REGS),GENGE0(51))
RETURN
10226 OPREG=:002000
OPSIZE=1
SUBINS=52
GOTO 10227
10228 IF((.NOT.RZERO))GOTO 10229
LOADLE=SEQ(LOAD(LEFTOP,REGS),GENGE0(43))
RETURN
10229 IF((.NOT.LZERO))GOTO 10230
LOADLE=SEQ(VOID(RIGHT0,REGS),GENGE0(63))
RETURN
10230 OPREG=:002000
OPSIZE=1
SUBINS=52
GOTO 10227
10231 IF((.NOT.RZERO))GOTO 10232
LOADLE=SEQ(LOAD(LEFTOP,REGS),GENGE0(58))
RETURN
10232 IF((.NOT.LZERO))GOTO 10233
LOADLE=SEQ(LOAD(RIGHT0,REGS),GENGE0(56))
RETURN
10233 OPREG=:001000
OPSIZE=2
SUBINS=46
GOTO 10227
10234 IF((.NOT.RZERO))GOTO 10235
LOADLE=SEQ(LOAD(LEFTOP,REGS),GENGE0(55))
RETURN
10235 IF((.NOT.LZERO))GOTO 10236
LOADLE=SEQ(VOID(RIGHT0,REGS),GENGE0(63))
RETURN
10236 OPREG=:001000
OPSIZE=2
SUBINS=46
GOTO 10227
10237 IF((.NOT.RZERO))GOTO 10238
LOADLE=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADLE=SEQ(LOADLE,GENGE0(48))
RETURN
10238 IF((.NOT.LZERO))GOTO 10239
LOADLE=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADLE=SEQ(LOADLE,GENGE0(46))
RETURN
10239 OPREG=:000400
OPSIZE=2
SUBINS=28
GOTO 10227
10240 IF((.NOT.RZERO))GOTO 10241
LOADLE=LOAD(LEFTOP,REGS)
REGS=OR(REGS,:002000)
LOADLE=SEQ(LOADLE,GENGE0(48))
RETURN
10241 IF((.NOT.LZERO))GOTO 10242
LOADLE=LOAD(RIGHT0,REGS)
REGS=OR(REGS,:002000)
LOADLE=SEQ(LOADLE,GENGE0(46))
RETURN
10242 OPREG=:000200
OPSIZE=4
SUBINS=13
GOTO 10227
10223 GOTO(10224,10231,10228,10234,10237,10240),AAABC0
CALL PANIC('load_le: bad op mode *i*n.',TMEMA0(EXPR+1))
10227 R=REACH(TMEMA0(EXPR+3),RREGS,RRES,RAD)
CALL ALLOC0(OPSIZE,TAD)
L=REACH(TMEMA0(EXPR+2),LREGS,LRES,LAD)
LAB=MKLAB0(1)
GOTO 10243
10244 AAAAZ0=1
GOTO 10220
10247 AAABA0=1
GOTO 10221
10249 AAAAZ0=2
GOTO 10220
10243 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10251
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10251
GOTO 10244
10251 IF((.NOT.SAFE(OPREG,LREGS)))GOTO 10252
IF(SAFE(OPREG,RREGS))GOTO 10252
GOTO 10247
10252 IF(SAFE(OPREG,LREGS))GOTO 10253
IF((.NOT.SAFE(OPREG,RREGS)))GOTO 10253
GOTO 10249
10253 CONTINUE
AAABB0=1
GOTO 10222
10254 CONTINUE
10246 CALL FREET0(TAD)
REGS=OR(:002000,OR(OPREG,OR(LREGS,RREGS)))
RETURN
10220 LOADLE=SEQ(L,LD(OPREG,LRES,LAD),R,GENMR(SUBINS,RAD))
AAABD0=TMEMA0(EXPR+1)
GOTO 10255
10256 LOADLE=SEQ(LOADLE,GENGE0(40))
GOTO 10260
10258 LOADLE=SEQ(LOADLE,GENGE0(9),GENBR0(34,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10260
10259 LOADLE=SEQ(LOADLE,GENGE0(48))
GOTO 10260
10255 GOTO(10256,10256,10258,10258,10259,10259),AAABD0
10257 GOTO 10260
10221 LOADLE=SEQ(R,LD(OPREG,RRES,RAD),L,GENMR(SUBINS,LAD))
AAABE0=TMEMA0(EXPR+1)
GOTO 10261
10262 LOADLE=SEQ(LOADLE,GENGE0(38))
GOTO 10246
10264 LOADLE=SEQ(LOADLE,GENGE0(9),GENBR0(36,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10246
10265 LOADLE=SEQ(LOADLE,GENGE0(46))
GOTO 10246
10261 GOTO(10262,10262,10264,10264,10265,10265),AAABE0
10263 GOTO 10246
10222 LOADLE=SEQ(R,LD(OPREG,RRES,RAD))
LOADLE=SEQ(LOADLE,ST(OPREG,TAD),L,LD(OPREG,LRES,LAD),GENMR(SUBINS,
*TAD))
AAABF0=TMEMA0(EXPR+1)
GOTO 10267
10268 LOADLE=SEQ(LOADLE,GENGE0(40))
GOTO 10254
10270 LOADLE=SEQ(LOADLE,GENGE0(9),GENBR0(34,LAB),GENGE0(63),GENLA0(LAB
*))
GOTO 10254
10271 LOADLE=SEQ(LOADLE,GENGE0(48))
GOTO 10254
10267 GOTO(10268,10268,10270,10270,10271,10271),AAABF0
10269 GOTO 10254
10260 GOTO(10246,10246),AAAAZ0
GOTO 10260
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 geniprtr geniq0
C loadrshiftaa loaet0
C loadseq loaex0
C voidswitch voidt0
C looplab loopl0
C exitlab exitl0
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 testlab testl0
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 elselab elsel0
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