*COMDECK COM77
          CONTROL NOLIST;    #COM77#
COMMON COM77; 
BEGIN 
ITEM SYG B; #SIGN#
ITEM POS I; #POSITION FOR SCALING#
ITEM EBT I; #SINK FIRST BIT#
ITEM MBT I; #SINK NUMBER OF BITS# 
ITEM FBT I; #SOURCE FIRST BIT#
ITEM NBT I; #SOURCE NUMBER OF BITS# 
ITEM RR; #STACK PTR TO SOURCE#
ITEM XX; #SINK MEMR#
ITEM ICFPTR I=1; #CURRENT ICF ENTRY LOCN# 
ITEM SEVENS I=O"77777777777"; 
ITEM ICIX U;
ITEM OOIX U;
ITEM OPIX U=0;
ITEM ILIX U=ILUP; 
ITEM ILCP U=0;
ITEM PONE;
ITEM PRONE; 
ITEM PZERO,MZERO; 
ITEM MASK1,    # MSKGEN(1) #                                             JANDRE 
     PMINUS1;  # PSICON(-1)#                                             JANDRE 
ITEM SPTWOC, SPTWO1,SPTWO2; 
ITEM TRX,KBL B, KDS, KVL, OPT;
ITEM STRUC S:QCLSS; 
ITEM FBDX,NBDX,WINX,OBJX,LSTR,BDTR,MDTP;
ITEM CFIX U=0;
ITEM XSLCITM I=0; #DUMMY XSLC ITEM PTR# 
ITEM DSLCITM I=0; #DUMMY DSLC ITEM PTR# 
ITEM LPLCITM I=0; #DUMMY LPLC ITEM PTR# 
ITEM APLCITM I=0; #DUMMY APLC ITEM PTR# 
ITEM ILOPR I=0; #IL OPERATOR# 
ITEM ILSTP I=0; #SYMBOL TABLE POINTER#
ITEM ILCLAS I=0; #CLASS VALUE#
ITEM ILTYP I=0; #TYPE VALUE#
ITEM FBDY,NBDY; 
ITEM KCWPT U; 
ITEM DVSP I=0; #DEAD VALU STACK PTR#
ITEM SHPTR I=0;    #STACK HISTORY POINTER#
ITEM LINUM U=0; #CURRENT LINE NUMBER# 
ITEM ENTREE; #ENTRY NUMBER#                                              JANDRE 
ARRAY [71]; ITEM DUMMYITEM; 
ITEM PROCITM; #PTR TO CURRENT FUNC/PROC#
ITEM ENTRITM; #PTR TO CURRENT ENTRY POINT#
ITEM FUNCNUM; #NUMBER OF FUNCTION RESULTS#
  
ARRAY IC[0:ICCP]S(1); 
ITEM OPCD I (0,0,8),
     OPN1 I (0,42,18),
     OPN2 I (0,24,18),
     ICWD I (0,0,60); 
  
ARRAY  [QAOP"NULL":QAOP"QAOP$"]S(1); ITEM 
    TWOP B (0,0,1)=[#TWO OPERANDS#
                   0,1,1,1,1,1,        #NULL,PLUS,SUB,MUL,DIV,MOD#
                   1,1,1,1,            #RIEX,RREX,IIEX,FIEX#
                   0,0,0,              #ABS,MNUS,COMP#
                   1,1,1,1,1,1,        #LOR,LAND,LXOR,LEQV,LIMP#
                   0];                 #QAOP$#
  
ARRAY [QRLTL"NQ":QRLTL"FL"]S(1); #RELATIONAL ATTRIBUTES#
ITEM
EQNQ B        (0,0,1) #EQUALS/NOT EQUALS  FLAG# 
                      =[T,T,F,F,F,F], 
SWOP B        (0,1,1) #SWITCH OPERANDS FLAG#
                      =[F,F,F,T,T,F], 
SCOD S:QICFOP (0,3,9) #SIGN TEST CODE#
                      =[S"PL",S"NG",S"JP",S"PL",S"NG",0,0,S"JP"], 
RCOM S:QRLTL  (0,21,6)#RELATIONAL COMPLEMENT# 
                     =[S"EQ",S"NQ",S"GQ",S"LQ",S"GR",S"LS",S"FL",S"TR"],
RSWP S:QRLTL  (0,27,6)#RELATIONAL SWAP# 
                      =[S"NQ",S"EQ",S"GR",S"LS",S"GQ",S"LQ",,]; 
  
ARRAY [QRLTL"LS":QRLTL"GQ",0:1] S(1); #RELATIONAL,OPERAND#    ITEM
    NRLT S:QRLTL(0,54,6) #NEW RELATIONAL# 
              =[[S"LQ",S"GQ",S"LS",S"GR"][S"LQ",S"GQ",S"LS",S"GR"]],
    INCR I      (0,0,2)#INCREMENT = +1 OR -1# 
              =[[1,-1,-1,1][-1,1,1,-1]];
  
ARRAY [0:1] P(2); ITEM
    MOP I (0,0,60), #OPERAND MEMORY#
    TOP I (1,0,60); #OPERAND LINK#
  
ARRAY [-1:1] S(1); ITEM                                                  JANDRE 
    ADOP S:QICFOP (0,0,60)=[S"IADD",S"IADD",S"ISUB"];                    JANDRE 
  
ARRAY[0:1] S(4); ITEM                                                    JANDRE 
    RAOP S:QICFOP (0,0,60)=[S"FADD",S"RADD"], 
    RMOP S:QICFOP (1,0,60)=[S"FMUL",S"RMUL"], 
    RDOP S:QICFOP (2,0,60)=[S"FDIV",S"RDIV"], 
    RSOP S:QICFOP (3,0,60)=[S"FSUB",S"RSUB"]; 
  
ARRAY [QCLAS"NULL":QCLAS"ADCN"]S(1); ITEM 
    ICOTYP B (0,24,1)=[#TYPE FIELD SIGNIFICANT# 
                   F,F,T,T,F,T,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   T,F,F,F,T,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,T,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC, STRG,INSC,MON, BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOPAK B (0,25,1)=[#PACK FIELD SIGNIFICANT# 
                   F,F,T,T,F,T,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   T,F,F,F,F,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,T,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC, STRG,INSC,MON, BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOSCL B (0,26,1)=[#SCALARS#
                   F,F,T,F,F,F,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   T,F,F,F,T,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,T,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,F,F,F,F,F,        #SLC, STRG,INSC,MON, BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOXPK B (0,27,1)=[#PACKED,INDEXED,NON-ARRY#
                   F,F,F,F,F,F,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   F,F,F,F,F,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,F,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC, STRG,INSC,MON, BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOPB1 B (0,28,1)=[# TRIAD CONTROL #
                   F,F,T,T,F,T,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   T,F,F,F,T,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,T,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC ,STRG,INSC,MON ,BPAR,TITM#
                   F,F,F,F,T,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOBYT B (0,29,1)=[# BYTE DATA CONTROL #
                   F,F,T,T,F,T,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   T,F,F,F,T,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,F,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC ,STRG,INSC,MON ,BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOBIT B (0,30,1)=[# BIT DATA CONTROL # 
                   F,F,T,T,F,T,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   T,F,F,F,T,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,T,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC ,STRG,INSC,MON ,BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOSGN B (0,31,1)=[# SIGN FIELD CONTROL # 
                   F,F,T,T,F,T,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   T,F,F,F,T,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,T,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC ,STRG,INSC,MON ,BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOACS B (0,32,1)=[# TITM,STRG ACSS CONTROL # 
                   F,F,F,F,F,F,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   F,F,F,F,F,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,F,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC ,STRG,INSC,MON ,BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOSUBS B (0,34,1)=[#ARRY,STRG,TITM#
                   F,F,F,T,F,F,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   F,F,F,F,F,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,F,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC ,STRG,INSC,MON ,BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOROUN B (0,35,1)=[#ARRY,DATA,FUNC,STRG,TITM#
                   F,F,T,T,F,F,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   F,F,F,F,T,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,F,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,T,F,F,F,T,        #SLC ,STRG,INSC,MON ,BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOISL B (0,33,1)=[#DATA,LOOP#
                   F,F,T,F,F,F,        #NULL,NAME,DATA,ARRY,TABL,CONS#
                   F,F,F,F,F,F,        #TEMP,LABL,CLOS,PROC,FUNC,SWCH#
                   F,T,F,F,F,F,        #FILE,LOOP,OVER,DUMY,PROG,DEF #
                   F,F,F,F,F,F,        #SLC, STRG,INSC,MON, BPAR,TITM#
                   F,F,F,F,F,F,        #SCON,COMM,FPAR,STSL,VALU,DBUG#
                   F],                 #ADCN# 
    ICOPSN C (0,0,4)=[#CLAS NAME# 
    "NULL","NAME","DATA","ARRY","TABL","CONS",
    "TEMP","LABL","CLOS","PROC","FUNC","SWCH",
    "FILE","LOOP","OVER","DUMY","PROG","DEF", 
    "SLC","STRG","INSC","MON","BPAR","TITM",
    "SCON","COMM","FPAR","STSL","VALU","DBUG",
    "ADCN"];
  
ARRAY [QTYPE"NULL":QTYPE"QTYPE$"]S(1); ITEM 
    BYTATR B (0,24,1)=[#NBYT(=BYTES OF DATA) FIELD SIGNIFICANT# 
                   F,F,F,F,F,T,        #NULL,IGR, REAL,FIX, DBL, OCT# 
                   T,T,F,F,F,T,        #HLTH,TRAN,BOOL,STTS,ADR ,EBCD#
                   F,F],               #USI,RSLT# 
    BITATR B (0,25,1)=[#NBIT(=BITS OF DATA) FIELD SIGNIFICANT#
                   F,T,T,T,T,F,        #NULL,IGR, REAL,FIX, DBL, OCT# 
                   F,F,T,T,F,F,        #HLTH,TRAN,BOOL,STTS,ADR ,EBCD#
                   T,F],               #USI,RSLT# 
    NUMATR B (0,27,1)=[#NUMBER# 
                   F,T,T,T,T,F,        #NULL,IGR, REAL,FIX, DBL, OCT #
                   F,F,F,T,F,F,        #HLTH,TRAN,BOOL,STTS,ADR, EBCD#
                   T,F],               #USI, RSLT#
    TPHTO S:QCTYP (0,30,3)=[# CODE TYPE # 
        S"O",S"O",S"O",S"O",S"O",S"O", #NULL,IGR ,REAL,FIX ,DBL ,OCT #
        S"H",S"T",S"O",S"O",S"O",S"H", #HLTH,TRAN,BOOL,STTS,ADR ,EBCD#
        S"O",S"O"],                    #USI ,RSLT#
    TPLNB S:QVFLG (0,33,3)=[# VALUE FLAG #
        S"NUMB",S"NUMB",S"NUMB",S"NUMB",#NULL,IGR ,REAL,FIX # 
        S"NUMB",S"NUMB",S"LITR",S"LITR",#DBL ,OCT ,HLTH,TRAN# 
        S"BOOL",S"NUMB",S"NUMB",S"LITR",#BOOL,STTS,ADR ,EBCD# 
        S"NUMB",S"NUMB"],               #USI ,RSLT# 
    TYPNAM C (0,0,4)=[#TYPE NAME# 
    "NULL","IGR","REAL","FIX","DBL","OCT",
    "HLTH","TRAN","BOOL","STTS","ADR","EBCD", 
    "USI","RSLT"];
  
ARRAY [0:2] S(3);                                                        JANDRE 
ITEM ORINS S:QICFOP (0,0,60) = [ # OR INSTRUCTIONS #
                                 S"LIMP",S"LOR"], 
     NDINS S:QICFOP (1,0,60) = [ # AND INSTRUCTIONS # 
                                 S"LAND",S"LNND"],
     ADINS S:QICFOP (2,0,60) = [ # ADD INSTRUCTIONS # 
                                 S"ISMP",S"IAOR",S"LOR"];                JANDRE 
  
ARRAY [0:TRSZ]S(1); ITEM    # TRIAD TABLE  SEE I.M.S. 2.12.10.5        # JANDRE 
    ROPD I       (0, 0,18), # RIGHT OPERAND POINTER                    # JANDRE 
    NXOP I       (0,18,12), # NEXT OPERATOR POINTER                    # JANDRE 
    SDFG U       (0,30, 1), # SIDE FLAG                                # JANDRE 
    QREP B       (0,31, 1), # QUICK REPLACE                            # JANDRE 
    KLSS S:QKLSS (0,32, 2), # CLASS                                    # JANDRE 
    OPTR S:QILOP (0,34, 8), # IL OPERATOR                              # JANDRE 
    LOPD I       (0,42,18), # LEFT OPERAND POINTER                     # JANDRE 
    KFLG B       (1, 0, 1), # CONSTANT FLAG                            # JANDRE 
    AC$S S:QACSS (1, 1, 3), # ACCESS                                   # JANDRE 
    ADJF B       (1, 4, 1), # T IF CHARACTER IS LEFT-ADJUSTED          # JANDRE 
    SHRT B       (1, 5, 1), # SHORT STRING                             # JANDRE 
    $IGN B       (1, 6, 1), # SIGN                                     # JANDRE 
    SFLG B       (1, 7, 1), # SCALAR FLAG                              # JANDRE 
    VFLG S:QVFLG (1, 8, 2), # VALUE FLAG                               # JANDRE 
    $TST B       (1,10, 1), # SIGN TEST                                # JANDRE 
    TTST B       (1,11, 1), # TSST TEST                                # JANDRE 
    SAVD B       (1,12, 1), # SAVED FLAG                               # JANDRE 
    BWOR B       (1,13, 1), # BEAD GIVES ONLY ONE WORD                 # JANDRE 
    RLTL S:QRLTL (1,14, 4), # RELATIONAL                               # JANDRE 
    POTE I       (1,18,14), # AUXILLIARY INFO                          # JANDRE 
    ACME U       (1,32,28), # OVERLAYS ACNT-MEMR                       # JANDRE 
    ACNT U       (1,32,10), # IL ACCENT                                # JANDRE 
    LNSR B       (1,32, 1), # NEXT OPERATOR IS SUBS                    # JANDRE 
    ROUN U       (1,34, 1), # ROUNDED                                  # JANDRE 
    DEAD I       (1,34, 3), # DEAD FLAG                                # JANDRE 
    $CLG I       (1,35, 7), # SCALING                                  # JANDRE 
    NSTR B       (1,37, 1), # NO STORE FLAG   ( SEEMS UNUSED)          # JANDRE 
    MEMR I       (1,42,18), # MEMORY REFERENCE                         # JANDRE 
    INDX I       (2, 0,18), # INDEX                                    # JANDRE 
    BASD B       (2,18, 1), # OPERAND IS BASED                         # JANDRE 
    FNUM S:QFNBS (2,19, 7), # FUNI NUMBER                              # JANDRE 
    SDEF B       (2,26, 1), # SIDE EFFECT                              # JANDRE 
    SVNB U       (2,27, 3), # SAVE NUMBER                              # JANDRE 
    PFLG B       (2,30, 1), # PACK FLAG                                # JANDRE 
    CMPT U       (2,31, 2), # COMPUTE FCAL/VALB                        # JANDRE 
    FCMP U       (2,31, 1), # COMPUTE FCAL                             # JANDRE 
    VCMP U       (2,32, 1), # COMPUTE VALB                             # JANDRE 
 COMU     B (2,33,1),   #NOT COMMUTATIVE FLAG - SUMMED OVER SEQ  -- IN
                         FACT TRUE = DOES NOT COMMUTE#
 UPW2     U  (2,34,8) , #UNUSED                                        #
    OFFS I       (2,42,18), # OFFSET                                   # JANDRE 
    EFBT I       (3, 0,18), # FIRST BIT                                # JANDRE 
    EFBY I       (3,18,10), # FIRST BYTE                               # JANDRE 
    SPW3 B       (3,28, 1), # UNUSED                                   # JANDRE 
    VLNG B       (3,29, 1), # VARIABLE LENGTH JOVIAL ONLY              # JANDRE 
    CTYP S:QCTYP (3,30, 2), # CODE TYPE                                # JANDRE 
    ENBY I       (3,32,10), # NUMBER OF BYTES                          # JANDRE 
    ENBT I       (3,42,18), # NUMBER OF BITS                           # JANDRE 
    KONS I       (4, 0,60), # CONSTANT VALUE                           # JANDRE 
    STKC I       (4, 0,18), # STACK CONTROL                            # JANDRE 
    TVLK I       (4,42,18), # TRIAD VALUE LINK                         # JANDRE 
                            # NEXT 2 FIELDS ARE NOT TRIAD FIELDS: THEY #
                            # ARE USED TO LINK SAVED VALUES            #
    SNXT I       (0, 0,18), # NEXT SAVED LINK                          #
    SICF I       (0,42,18), # SAVED ICF POINTER                        #
    OOAR I       (0, 0,60)= [OOES(0)];       # FULL WORD ENTRY         # JANDRE 
  
   ARRAY IL[0:ILUP] S(1); 
*CALL COM37I
CONTROL NOLIST;              # COM77#                                    DON/D
ARRAY [4] S(1); ITEM OPNRDUMY I (0,0,60)=[5(0)];
  
ARRAY [0:QCLSS"QCLSS$"]S(1); ITEM                                        JANDRE 
    WXSG B (0,0,1)=[#WINX SIGNIFICANT#
              0,1,0,1,0,0,0],          #A,B,C,D,F,I,QCLSS$#              JANDRE 
    FXSG B (0,1,1)=[#FBDX SIGNIFICANT#
              0,0,1,1,0,0,0],          #A,B,C,D,F,I,QCLSS$#              JANDRE 
    FYSG B (0,2,1)=[#FBDY SIGNIFICANT#
              0,0,0,0,0,0,0];          #A,B,C,D,F,I,QCLSS$#              JANDRE 
  
ARRAY [0:2]P(2); ITEM #CTYP INDEXED VALUES# 
    CTYPC C (0,0,10)=["          ","          ","EEEEEEEEEE"],
    XCNAM C (1,0,10)=["JHB.2","JHB.2","JTB.2"]; 
  
ARRAY [0:QFNBR"QFNBR$"]S(1); ITEM  # XFORM QFNBR TO QFNBS (NO JOVIAL)#   JANDRE 
     FNBS S:QFNBS (0,0,60)=[                                             JANDRE 
         S"NULL",  #NULL#                                                JANDRE 
         S"IRX",   #IRX #                                                JANDRE 
         S"QFNBS$",#IFX#                                                 JANDRE 
         S"IRX",   #IDX#                                                 JANDRE 
         S"RIX",   #RIX#                                                 JANDRE 
         S"QFNBS$",#RFX#                                                 JANDRE 
         S"RDX",   #RDX#                                                 JANDRE 
         3(S"QFNBS$"),  #FIX-FDX#                                        JANDRE 
         S"RIX",   #DIX#                                                 JANDRE 
         S"RDX",   #DRX#                                                 JANDRE 
         7(S"QFNBS$"),  #DFX-SHTO#                                       JANDRE 
         S"LOC",   #LOC#                                                 JANDRE 
         S"BIT",   #BIT#                                                 JANDRE 
         S"BYTE",  #BYTE#                                                JANDRE 
         4(S"QFNBS$"),  #POS,NENT,ENTRY,ODD#                             JANDRE 
         S"PFUN",  #PFUN#                                                JANDRE 
         S"CIX",   #CIX#                                                 JANDRE 
         S"CRX",   #CRX#                                                 JANDRE 
         S"CRX",   #CDX#                                                 JANDRE 
         S"ICX",   #ICX#                                                 JANDRE 
         S"RCX",   #RCX#                                                 JANDRE 
         S"RCX",   #DCX#                                                 JANDRE 
         4(S"QFNBS$"),  #FFX,CHAR,MANT,BITY#                             JANDRE 
         S"QFNBS$"]; #QFNBR$#                                            JANDRE 
ARRAY [0:QILOP"QILOP$"]S(1); ITEM 
    OPAT1 I        (0,0,3)=[# OPERANDS #
              3(0),4(2),           #PRIM,NULL,VALU,IC,FC,RI,RR,EXP  # 
              3(1),                # I,F,R,MNUS # 
              4(2),                # I,F,R,PLUS,PLUSR # 
              4(2),                # I,F,R,SUB,DIFFR #
              4(2),                # I,F,R,MUL,MULR # 
              4(2),                # I,F,R,DIV,DIVR # 
              3(1),                # I,F,R,ABS #
              2,                   # IMOD # 
              1,5(2),              # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              5(2),                # I,F,R,C,E,EQU #
              5(2),                # I,F,R,C,E,NEQ #
              4(2),                # I,F,R,C,LES #
              4(2),                # I,F,R,C,LEQ #
              4(2),                # I,F,R,C,GRT #
              4(2),                # I,F,R,C,GRQ #
              0,                   # PNOT # 
              2,0,2,               # SUBS,PARM,SRNG # 
              1,2,1,1,2,2,         # GOTO,TSST,RTRN,STOP,ISWC,SSWC #
              1,1,0,1,1,           # LABL,SPRC,EPRC,ENTR,PRGM # 
              1,0,1,1,2,2,         # SWCH,ENDS,SWPT,GSWP,SIVT,GISP #
              0,0,                 # INFO,PAUS #
              0,0,                 #SJOV,LINK      #
              2,2,2,2,1,1,         #REPL,SWAP,FRES,FUNI,VALD,VALB    #
              2,2,2,1,             # P,F,I,C,CAL #
              3(2),                # P,F,I-LST #
              4(0),1,1,            # LFLX,RFLX,REVR,PTRM,CNTL,CTLD #
              5(2),                # INVI,INSP,INSM,INSD,INVT # 
              1,0,                 # SLOP,ENDL #
              0,0,                 #LILB,RILB  #
              1,1,                 # FPAR,DEAD     #
              0],                  # QILOP$ # 
    OPAT2 S:QKLSS  (0,4,2)=[#LEFT OPERAND TYPE #
              3(0),                #PRIM,NULL,VALU      # 
              60(S"SOURCE"),       # EXP,RLTL # 
              S"ADDR",0,S"SOURCE", # SUBS,PARM,SRNG # 
              S"ADDR",S"SOURCE",   # GOTO,TSST #
              6(S"ADDR"),          # RTRN,STOP,ISWC,SSWC,LABL,SPRC #
              0,3(S"ADDR"),0,      # EPRC,ENTR,PRGM,SWCH,ENDS # 
              4(S"ADDR"),0,0,      # SWPT,GSWP,SIVT,GISP,INFO,PAUS #
              0,0,                 #SJOV,LINK      #
              S"SINK",S"SOURCE",   # REPL,SWAP #
              S"SINK",S"SOURCE",   #FRES,FUNI      #
              2(S"SOURCE"),        #VALD,VALB      #
              4(S"ADDR"),          # PCAL,FCAL,ICAL,CCAL #
              2(S"SOURCE"),S"ADDR",# PLST,FLST,ILST # 
              6(0),                # LFLX,RFLX,REVR,PTRM,CNTL,CTLD #
              4(S"SINK"),S"SOURCE",# INVI,INSP,INSM,INSD,INVT # 
              S"ADDR",3(0),        #SLOP,ENDL,LILB,RILB    #
              S"SOURCE",S"ADDR",   # FPAR,DEAD     #
              0],                  # QILOP$ # 
    OPAT3 S:QKLSS  (0,7,2)=[# RIGHT OPERAND TYPE #
              3(0),                #PRIM,NULL,VALU      # 
              4(S"SOURCE"),        #IC,FC,RI,RR,EXP     # 
              3(0),16(S"SOURCE"),  # I,F,R,MNUS,EXP # 
              3(0),S"SOURCE",      # I,F,R,ABS,IMOD # 
              0,31(S"SOURCE"),0,   # COMP,RLTL,PNOT # 
              S"SOURCE",0,S"SOURCE",# SUBS,PARM,SRNG #
              0,S"ADDR",0,0,       # GOTO,TSST,RTRN,STOP #
              2(S"SOURCE"),4(0),   # ISWC,SSWC,LABL,SPRC,EPRC,ENTR #
              5(0),2(S"SOURCE"),   #PRGM,SWCH,ENDS,SWPT,GSWP,SIVT,GISP# 
              0,0,                 #INFO,PAUS      #
              0,0,                 #SJOV,LINK      #
              2(S"SOURCE"),        #REPL,SWAP      #
              S"SOURCE",S"ADDR",0,0, #FRES,FUNI,VALD,VALB  #
              2(S"SOURCE"),S"ADDR",0,# PCAL,FCAL,ICAL,CCAL #
              2(S"SOURCE"),S"ADDR",# PLST,FLST,ILST # 
              6(0),                # LFLX,RFLX,REVR,PTRM,CNTL,CTLD #
              5(S"SOURCE"),        # INVI,INSP,INSM,INSD,INVT # 
              0,0,                 #SLOP,ENDL      #
              0,0,                 #LILB,RILB      #
              0,0,                 # FPAR,DEAD     #
              0],                  # QILOP$ # 
    OPAT4 I       (0,11,2)=[# NUMBER RESULTS #
              1,1,1,               #PRIM,NULL,VALU      # 
              59(1),               # EXPRESSIONAL OPERATORS # 
              0,                   # PNOT # 
              1,0,1,               # SUBS,PARM,SRNG # 
              6(0),                # GOTO,TSST,RTRN,STOP,ISWC,SSWC #
              6(0),                # LABL,SPRC,EPRC,ENTR,PRGM,SWCH #
              5(0),                # ENDS,SWPT,GSWP,SIVT,GISP # 
              2(0),                # INFO,PAUS #
              0,0,                 #SJOV,LINK        #
              3(0),1,0,1,          #REPL,SWAP,FRES,FUNI,VALD,VALB  #
              0,1,2(0),            # P,F,I,C,CAL #
              3(1),                # P,F,I-LST #
              6(0),                # LFLX,RFLX,REVR,PTRM,CNTL,CTLD #
              7(0),                #INVI,INSP,INSM,INSD,INVT,SLOP,ENDL# 
              0,0,                 #LILB,RILB        #
              0,0,                 # FPAR,DEAD     #
              0],                  # QILOP$ # 
    OPAT5 S:QIOP  (0,13,6)=[# OPERATOR GROUP #
              S"PRIM",S"NULL",     #PRIM,NULL           # 
              S"VALU",             #VALU                # 
              S"EXPE",S"NULL",2(S"EXPE"), # ICEXP,FCEXP,RIEXP,RREXP # 
              3(S"EXP1"),          # IMNUS,FMNUS,RMNUS #
              S"EXP2",S"NULL",S"EXP2",S"NULL",# IPLUS,FPLUS,RPLUS,PLUSR#
              S"EXP2",S"NULL",S"EXP2",S"NULL",# ISUB,FSUB,RSUB,DIFFR #
              S"EXPM",S"NULL",S"EXPM",S"NULL",# IMUL,FMUL,RMUL,MULR # 
              S"EXPD",S"NULL",S"EXPD",S"NULL",# IDIV,FDIV,RDIV,DIVR # 
              S"EXP1",S"NULL",S"EXP1", # IABS,FABS,RABS # 
              S"EXP2",S"EXP1",     # IMOD,COMP #
              5(S"EXP2"),          # LOR,LAND,LXOR,LEQV,LIMP #
              26(S"EXPR"),         # RELATIONAL # 
              S"PNOT",             # PNOT # 
              S"SUBS",S"PARM",     # SUBS,PARM #
              S"NULL",             # SRNG # 
              S"COMP",S"TSST",     # GOTO,TSST #
              4(S"COMP"),          # RTRN,STOP,ISWC,SSWC #
              5(S"COMP"),          # LABL,SPRC,EPRC,ENTR,PRGM # 
              6(S"COMP"),          # SWCH,ENDS,SWPT,GSWP,SIVT,GISP #
              S"INFO",S"PAUS",     # INFO,PAUS #
              S"PAUS",S"BAD",      #SJOV,LINK        #
              3(S"COMP"),          # REPL,SWAP,FRES # 
              S"FUNI",S"VALB",     #FUNI,VALD        #
              S"VALB",S"COMP",     # VALB,PCAL #
              S"FCAL",2(S"COMP"),  # FCAL,ICAL,CCAL # 
              S"PLST" , 2(S"NULL") ,   # PLST,FLST,ILST     # 
              S"LFLX",S"RFLX",     # LFLX,RFLX #
              S"FLX",S"PTRM",      # REVR,PTRM #
              5(S"COMP"),          # CNTL,CTLD,INVI,INSP,INSM # 
              4(S"COMP"),          #INSD,INVT,SLOP,ENDL # 
              S"BAD",S"BAD",       #LILB,RILB        #
              S"NULL",S"COMP",     # FPAR,DEAD     #
              S"BAD"],             # QILOP$ # 
    OPAT6 S:QAOP   (0,19,6)=[# ARITHMETIC # 
              3(0),                # PRIM,NULL,VALU     # 
              S"IIEX",S"FIEX",S"RIEX",S"RREX", # ICEXP,FCEXP,RIEXP,RR#
              3(S"MNUS"),          # MNUS # 
              4(S"PLUS"),          # PLUS # 
              4(S"SUB"),           # SUB #
              4(S"MUL"),           #MUL # 
              4(S"DIV"),           # DIV #
              3(S"ABS"),           # ABS #
              S"MOD",              # MOD #
              S"COMP",S"LOR",      # COMP,LOR # 
              S"LAND",S"LXOR",     # LAND,LXOR #
              S"LEQV",S"LIMP",     # LEQV,LIMP #
              79(0),               # NOT USED # 
              0],                  # QILOP$ # 
    OPAT7 S:QEXTYP (0,25,6)=[# EXPRESSION TYPE #
              3(0),                # PRIM,NULL,VALU     # 
              S"I",S"F",S"R",S"R", # IC,FC,RI,RR,EXP #
              S"I",S"F",S"R",      # I,F,R,MNUS # 
              S"I",S"F",S"R",S"R", # I,F,R,PLUS,PLUSR # 
              S"I",S"F",S"R",S"R", # I,F,R,SUB,DIFFR #
              S"I",S"F",S"R",S"R", # I,F,R,MUL,MULR # 
              S"I",S"F",S"R",S"R", # I,F,R,DIV,DIVR # 
              S"I",S"F",S"R",      # I,F,R,ABS  # 
              S"I",                # IMOD # 
              6(S"I"),             # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              S"J",S"F",S"S",      # I,F,R,EQU #
              0,0,                 # C,E,EQU #
              S"J",S"F",S"S",      # I,F,R,NEQ #
              0,0,                 # C,E,NEQ #
              S"J",S"F",S"S",0,    # I,F,R,C,LES #
              S"J",S"F",S"S",0,    # I,F,R,C,LEQ #
              S"J",S"F",S"S",0,    # I,F,R,C,GRT #
              S"J",S"F",S"S",0,    # I,F,R,C,GRQ #
              49(0),               # NON EXP #
              4(0),               # SJOV,LILB,RILB,LINK # 
              0],                  # QILOP$ # 
    OPAT8A B       (0,31,1)=[# T IF BINARY OPERATOR # 
              3(0),                # PRIM,NULL,VALU     # 
              4(1),                # ICEXP,FCEXP,RIEXP,RREXP #
              3(0),                # IMNUS,FMNUS,RMNUS #
              4(1),                # IPLUS,FPLUS,RPLUS,PLUSR #
              4(1),                # ISUB,FSUB,RSUB,DIFFR # 
              4(1),                # IMUL,FMUL,RMUL,MULR #
              4(1),                # IDIV,FDIV,RDIV,DIVR #
              3(0),                # IABS,FABS,RABS # 
              1,                   # IMOD # 
              0,5(1),              # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              5(1),                # IEQU,FEQU,REQU,CEQU,EEQU # 
              5(1),                # INEQ,FNEQ,RNEQ,CNEQ,ENEQ # 
              4(1),                # ILES,FLES,RLES,CLES #
              4(1),                # ILEQ,FLEQ,RLEQ,CLEQ #
              4(1),                # IGRT,FGRT,RGRT,CGRT #
              4(1),                # IGRQ,FGRQ,RGRQ,CGRQ #
              0,                   # PNOT # 
              1,0,1,               # SUBS,PARM,SRNG # 
              0,1,0,0,1,1,         # GOTO,TSST,RTRN,STOP,ISWC,SSWC #
              5(0),                # LABL,SPRC,EPRC,ENTR,PRGM # 
              0,0,                 # SWCH,ENDS #
              0,0,                 # SWPT,GSWP #
              1,1,                 # SIVT,GISP #
              0,0,                 # INFO,PAUS #
              0,0,                 #SJOV,LINK        #
              4(1),0,0,            #REPL,SWAP,FRES,FUNI,VALD,VALB  #
              3(1),0,              # PCAL,FCAL,ICAL,CCAL #
              3(1),                # PLST,FLST,ILST # 
              3(0),                # LFLX,RFLX,REVR # 
              3(0),                # PTRM,CNTL,CTLD # 
              5(1),0,0,            # INVI,INSP,INSM,INSD,INVT,SLOP,ENOL#
              0,0,                 #LILB,RILB        #
              0,0,                 # FPAR,DEAD     #
              0],                  # QILOP$ # 
    OPAT8B B       (0,32,1)=[# T IF UNARY OPERATOR #
              3(0),                # PRIM,NULL,VALU     # 
              4(0),                # ICEXP,FCEXP,RIEXP,RREXP #
              3(1),                # IMNUS,FMNUS,RMNUS #
              4(0),                # IPLUS,FPLUS,RPLUS,PLUSR #
              4(0),                # ISUB,FSUB,RSUB,DIFFR # 
              4(0),                # IMUL,FMUL,RMUL,MULR #
              4(0),                # IDIV,FDIV,RDIV,DIVR #
              3(1),                # IABS,FABS,RABS # 
              0,                   # IMOD # 
              1,5(0),              # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              5(0),                # IEQU,FEQU,REQU,CEQU,EEQU # 
              5(0),                # INEQ,FNEQ,RNEQ,CNEQ,ENEQ # 
              4(0),                # ILES,FLES,RLES,CLES #
              4(0),                # ILEQ,FLEQ,RLEQ,CLEQ #
              4(0),                # IGRT,FGRT,RGRT,CGRT #
              4(0),                # IGRQ,FGRQ,RGRQ,CGRQ #
              0,                   # PNOT # 
              0,0,0,               # SUBS,PARM,SRNG # 
              1,0,1,1,0,0,         # GOTO,TSST,RTRN,STOP,ISWC,SSWC #
              1,1,0,1,1,           # LABL,SPRC,EPRC,ENTR,PRGM # 
              1,0,                 # SWCH,ENDS #
              1,1,                 # SWPT,GSWP #
              0,0,                 # SIVT,GISP #
              0,0,                 # INFO,PAUS #
              0,0,                 #SJOV,LINK        #
              4(0),1,1,            #REPL,SWAP,FRES,FUNI,VALD,VALB  #
              3(0),1,              # PCAL,FCAL,ICAL,CCAL #
              3(0),                # PLST,FLST,ILST # 
              3(0),                # LFLX,RFLX,REVR # 
              0,1,1,               # PTRM,CNTL,CTLD # 
              5(0),1,0,            # INVI,INSP,INSM,INSD,INVT,SLOP,INDL#
              4(0),                #LILB,RILB        #
              0,0,                 # FPAR,DEAD     #
              0],                  # QILOP$ # 
    OPAT8C B       (0,33,1)=[# T IF NONARY OPERATOR # 
              3(1),                # PRIM,NULL,VALU     # 
              4(0),                # ICEXP,FCEXP,RIEXP,RREXP #
              3(0),                # IMNUS,FMNUS,RMNUS #
              4(0),                # IPLUS,RPLUS,RPLUS,PLUSR #
              4(0),                # ISUB,FSUB,RSUB,DIFFR # 
              4(0),                # IMUL,FMUL,RMUL,MULR #
              4(0),                # IDIV,FDIV,RDIV,DIVR #
              3(0),                # IABS,FABS,RABS # 
              0,                   # IMOD # 
              6(0),                # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              5(0),                # IEQU,FEQU,REQU,CEQU,EEQU # 
              5(0),                # INEQ,FNEQ,RNEQ,CNEQ,ENEQ # 
              4(0),                # ILES,FLES,RLES,CLES #
              4(0),                # ILEQ,FLEQ,RLEQ,CLEQ #
              4(0),                # IGRT,FGRT,RGRT,CGRT #
              4(0),                # IGRQ,FGRQ,RGRQ,CGRQ #
              1,                   # PNOT # 
              0,1,0,               # SUBS,PARM,SRNG # 
              6(0),                # GOTO,TSST,RTRN,STOP,ISWC,SSWC #
              0,0,1,0,0,           # LABL,SPRC,EPRC,ENTR,PRGM # 
              0,1,                 # SWCH,ENDS #
              0,0,                 # SWPT,GSWP #
              0,0,                 # SIVT,GISP #
              1,1,                 # INFO,PAUS #
              1,1,                 #SJOV,LINK        #
              6(0),                #REPL,SWAP,FRES,FUNI,VALD,VALB  #
              4(0),                # PCAL,FCAL,ICAL,CCAL #
              3(0),                # PLST,FLST,ILST # 
              3(1),                # LFLX,RFLX,REVR # 
              1,0,0,               # PTRM,CNTL,CTLD # 
              6(0),1,              # INVI,INSP,INSM,INDS,INVT,SLOP,ENDL#
              2(1),                #LILB,RILB        #
              0,0,                 # FPAR,DEAD     #
              1],                  # QILOP$ # 
    OPAT8D B       (0,34,1)=[# T IF CIAOP-COMBINABLE #
              3(0),                # PRIM,NULL,VALU     # 
              1,0,0,0,             # ICEXP,FCEXP,RIEXP,RREXP #
              1,0,0,               # IMNUS,FMNUS,RMNUS #
              1,0,0,0,             # IPLUS,FPLUS,RPLUS,PLUSR #
              1,3(0),              # ISUB,FSUB,RSUB,DIFFR # 
              1,3(0),              # IMUL,FMUL,RMUL,MULR #
              1,3(0),              # IDIV,FDIV,RDIV,DIVR #
              1,0,0,               # IABS,FABS,RABS # 
              1,                   # IMOD # 
              6(1),                # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              0],                  # QILOP$ # 
    OPAT8E B       (0,35,1)=[# T IF CRAOP-COMBINABLE #
              3(0),                # PRIM,NULL,VALU     # 
              0,0,1,1,             # ICEXP,FCEXP,RIEXP,RREXP #
              0,0,1,               # IMNUS,FMNUS,RMNUS #
              0,0,1,0,             # IPLUS,FPLUS,RPLUS,PLUSR #
              0,0,1,0,             # ISUB,FSUB,RSUB,DIFFR # 
              0,0,1,0,             # IMUL,FMUL,RMUL,MULR #
              0,0,1,0,             # IDIV,FDIV,RDIV,DIVR #
              0,0,1,               # IABS,FABS,RABS # 
              0],                  # QILOP$ # 
    OPAT8F B       (0,36,1)=[# T IF OPERATOR MAY GENERATE SAVES # 
              3(0),                # PRIM,NULL,VALU     # 
              4(1),                # ICEXP,FCEXP,RIEXP,RREXP #
              3(0),                # IMNUS,FMNUS,RMNUS #
              4(0),                # IPLUS,FPLUS,RPLUS,PLUSR #
              4(0),                # ISUB,FSUB,RSUB,DIFFR # 
              4(0),                # IMUL,FMUL,RMUL,MULR #
              4(0),                # IDIV,FDIV,RDIV,DIVR #
              3(0),                # IABS,FABS,RABS # 
              0,                   # IMOD # 
              6(0),                # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              3(0),1,0,            # IEQU,FEQU,REQU,CEQU,EEQU # 
              3(0),1,0,            # INEQ,FNEQ,RNEQ,CNEQ,ENEQ # 
              3(0),1,              # ILES,FLES,RLES,CLES #
              3(0),1,              # ILEQ,FLEQ,RLEQ,CLEQ #
              3(0),1,              # IGRT,FGRT,RGRT,CGRT #
              3(0),1,              # IGRQ,FGRQ,RGRQ,CGRQ #
              0,                   # PNOT # 
              3(0),                # SUBS,PARM,SRNG # 
              6(0),                # GOTO,TSST,RTRN,STOP,ISWC,SSWC #
              5(0),                # LABL,SPRC,EPRC,ENTR,PRGM # 
              0,0,                 # SWCH,ENDS #
              0,0,                 # SWPT,GSWP #
              0,0,                 # SIVT,GISP #
              0,0,                 # INFO,PAUS #
              0,0,                 #SJOV,LINK        #
              6(1),                #REPL,SWAP,FRES,FUNI,VALD,VALB  #
              0,1,0,0,             # PCAL,FCAL,ICAL,CCAL #
              3(0),                # PLST,FLST,ILST # 
              3(0),                # LFLX,RFLX,REVR # 
              0],                  # QILOP$ # 
    OPAT9 S:QRLTL  (0,37,6)=[# RELATIONAL # 
              36(0),               # NOT USED # 
              5(S"EQ"),            # I,F,R,C,E,EQU #
              5(S"NQ"),            # I,F,R,C,E,NEQ #
              4(S"LS"),            # I,F,R,C,LES #
              4(S"LQ"),            # I,F,R,C,LEQ #
              4(S"GR"),            # I,F,R,C,GRT #
              4(S"GQ"),            # I,F,R,C,GRQ #
              49(0),               # NOT USED # 
              4(0),               # SJOV,LILB,RILB,LINK # 
              0],                  # QILOP$ # 
    OPAT10 B       (0,45,1)=[# INTEGER PLUS / SUB # 
              10(0),1,3(0),1,      # UNUSED,IPLUS,,,ISUB #
              102(0),              # UNUSED # 
              0],                  # QILOP$ # 
    OPAT11 B       (0,49,1)=[# PFLG SIGNIFICANT # 
              3(0),                # PRIM,NULL,VALU     # 
              1,3(0),              # ICEXP,FCEXP,RIEXP,RREXP #
              3(0),                # IMNUS,FMNUS,RMNUS #
              4(0),                # IPLUS,FPLUS,RPLUS,PLUSR #
              4(0),                # ISUB,FSUB,RSUB,DIFFR # 
              1,1,0,0,             # IMUL,FMUL,RMUL,MULR #
              1,1,0,0,             # IDIV,FDIV,RDIV,DIVR #
              3(0),                # IABS,FABS,RABS # 
              1,                   # IMOD # 
              6(0),                # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              5(0),                # IEQU,FEQU,REQU,CEQU,EEQU # 
              5(0),                # INEQ,FNEQ,RNEQ,CNEQ,ENEQ # 
              4(0),                # ILES,FLES,RLES,CLES #
              4(0),                # ILEQ,FLEQ,RLEQ,CLEQ #
              4(0),                # IGRT,FGRT,RGRT,CGRT #
              4(0),                # IGRQ,FGRQ,RGRQ,CGRQ #
              0,                   # PNOT # 
              1,0,0,               # SUBS,PARM,SRNG # 
              5(0),1,              # GOTO,TSST,RTRN,STOP,ISWC,SSWC #
              5(0),                # LABL,SPRC,EPRC,ENTR,PRGM # 
              2(0),                # SWCH,ENDS #
              0,0,                 # SWPT,GSWP #
              0,0,                 # SIVT,GISP #
              0,0,                 # INFO,PAUS #
              0,0,                 #SJOV,LINK        #
              3(0),1,0,0,          #REPL,SWAP,FRES,FUNI,VALD,VALB  #
              4(0),                # PCAL,FCAL,ICAL,CCAL #
              3(0),                # PLST,FLST,ILST # 
              3(0),                # LFLX,RFLX,REVR # 
              3(0),                # PTRM,CNTL,CTLD # 
              7(0),                # INVI,INSP,INSM,INSD,INVT,SLOP,ENDL#
              0,0,                 #LILB,RILB        #
              0,0,                 # FPAR,DEAD     #
              0],                  # QILOP$ # 
    OPAT12 B       (0,50,1)=[#FIXED-POINT ADD,ETC#
              3(0),                # PRIM,NULL,VALU     # 
              4(0),                # ICEXP,FCEXP,RIEXP,RREXP #
              3(0),                # IMNUS,FMNUS,RMNUS #
              0,1,0,0,             # IPLUS,FPLUS,RPLUS,PLUSR #
              0,1,0,0,             # ISUB,FSUB,RSUB,DIFFR # 
              4(0),                # IMUL,FMUL,RMUL,MULR #
              4(0),                # IDIV,FDIV,RDIV,DIVR #
              3(0),                # IABS,FABS,RABS # 
              0,                   # IMOD # 
              6(0),                # COMP,LOR,LAND,LXOR,LEQV,LIMP # 
              0,1,3(0),            # IEQU,FEQU,REQU,CEQU,EEQU # 
              0,1,3(0),            # INEQ,FNEQ,RNEQ,CNEQ,ENEQ # 
              0,1,0,0,             # ILES,FLES,RLES,CLES #
              0,1,0,0,             # ILEQ,FLEQ,RLEQ,CLEQ #
              0,1,0,0,             # IGRT,FGRT,RGRT,CGRT #
              0,1,0,0,             # IGRQ,FGRQ,8GRQ,CGRQ #
              0,                   # PNOT # 
              0,0,0,               # SUBS,PARM,SRNG # 
              0],                  # QILOP$ # 
    OPAT13 B        (0,51,1) =[#TRUE FOR REFEXIVE BINARY OPS#            SOPT 
              10(0) ,            #PRIM THRO RMNUS#                       SOPT 
               4(1) ,            #THE PLUSES#                            SOPT 
               4(0) ,            #    SUBTRACTIONS#                      SOPT 
               4(1) ,            #    MULTIPILCATIONS#                   SOPT 
               4(0) ,            #    DIVISIONS #                        SOPT 
               5(0) ,            #IABS THRO COMP#                        SOPT 
               4(1) ,            #LOR,LAND,LXOR,LEQV#                    SOPT 
               0    ,            #LIMP#                                  SOPT 
               10(1),            #THE EQUALS AND NOT EQUALS#             SOPT 
                0]  ,    #TO QILOP$#                                     SOPT 
     OPAT14 B     (0,52,1)=[#T IF MAY WORK WITH UNNORMALIZED VALUES#     JANDRE 
              0,0,1,               # PRIM NULL VALU     # 
              0,3(0),              # ICEXP,FCEXP,RIEXP,RREXP#            JANDRE 
              1,0,0,               # IMNUS,FMNUS,RMNUS #                 JANDRE 
              0,3(0),              # IPLUS,FPLUS,RPLUS,PLUSR#            JANDRE 
              0,3(0),              # ISUB,FSUB,RSUB,DIFFR#               JANDRE 
              0,3(0),              # IMUL,FMUL,RMUL,MULR#                JANDRE 
              0,3(0),              # IDIV,FDIV,RDIV,DIVR#                JANDRE 
              0,0,0,               # IABS,FABS,RABS#                     JANDRE 
              0,                   # IMOD#                               JANDRE 
              6(1),                # COMP,LOR,LAND,LXOR,LEQV,LIMP#       JANDRE 
              0,0,0,0,0,           # IEQU,FEQU,REQU,CEQU,EEQU#           JANDRE 
              0,0,0,0,0,           # INEQ,FNEQ,RNEQ,CNEQ,ENEQ#           JANDRE 
              0,0,0,0,             # ILES,FLES,RLES,CLES#                JANDRE 
              0,0,0,0,             # ILEQ,FLEQ,RLEQ,CLEQ#                JANDRE 
              0,0,0,0,             # IGRT,FGRT,RGRT,CGRT#                JANDRE 
              0,0,0,0,             # IGRQ,FGRQ,RGRQ,CGRQ#                JANDRE 
              1,                   # PNOT #                              JANDRE 
              1,0,0,               # SUBS,PARM,SNRG #                    JANDRE 
              6(0),                # GOTO ... SSWC #                     JANDRE 
              13(0),               # LABL ... PAUS #                     JANDRE 
              0,0,                 #SJOV,LINK        #
              1,1,0,0,0,           #REPL,SWAP,FRES,FUNI,VALD       #
              6(0),                # VALB ... PLST #                     JANDRE 
              1,3(0),              # FLST,ILST,LFLX,RFLX #               JANDRE 
              0],                  # QLIOP$ #                            JANDRE 
    OPAT15  B       (0,53,1) = [ #TRUE IF (PLST,FLST,PCAL,FCAL)        #
              93(FALSE),
              2(TRUE),            #PCAL, FCAL                          #
              2(FALSE), 
              2(TRUE),            #PLST, FLST                          #
              14(FALSE)], 
    OPAT   I       (0,0,60);
  
ARRAY [0:50] S(1); ITEM 
    OPNR U (0,0,60)=[0];
ARRAY[SHSZ] S(1); ITEM                                                   JANDRE 
    STKH I (0,0,60); # STACK HISTORY# 
END #COM77# 
          CONTROL LIST;      #COM77#
