*COMDECK COM88K 
          CONTROL NOLIST;    #COM88K# 
#        FUNCTIONAL UNIT DEFS                                          #
#                                                                      #
#        NON SCHEDULABILITY REASONS                                    #
#        LOAD TYPE                                                     #
STATUS   QLT      LOAD ,
                  STOR ,
                  LOCF ,
                  BRAI ,
                  NIL  ;
#        ACCESS TYPE                                                   #
#                                                                      #
STATUS   QNOS     LOAD, 
                  WORK, 
                  STOR, 
                  BREG; 
         STATUS QCFOPTY                                                  LARRY-R
              A , B , C , D , E , F , K , L , N , P , S , T , AT , TRJ , LARRY-R
              TIJP  ;         # CLASSIFICATION  OF  CF  OPS  #           LARRY-R
#                                                                      #
#**********************************************************************#
#******** ARRAY  FOR SCHEDULER REMARKS ********************************#
         DEF       SCRAR   #810#  ;    # CHANGE TO 0 FOR NO REMARKS    #
#        CHANGE TO VALUE OF ICFTNE (OR LARGER) FOR REMARKS             #
#**********************************************************************#
         DEF   SKRMK  #  B<2,1>  INTOPS EQ 0 #  ; 
         DEF      SVNTN  #17#   ; 
      DEF RHENT  #411#;      #10 COPIES OF REGMEM#
      DEF RMESZ  #41#;       #LABEL + 40 REGS#
      DEF EORGM  #409#;      #RHISTY OFLOW CHECKER# 
#        NUMBER OF UNSCHEDULABLE OPS                                   #
         DEF      NUNENT  #8#   ; 
         DEF      NOFACL    #15#  ; #  NUMBER OF FACILITIES (FACLTY    #
#        MINIMUM ISSUE ENTRY SIZE                                      #
         DEF      MIENS  #20#  ;
         DEF       FTYPE  #6# ; 
         DEF      GTYPE  #7#  ; 
         DEF      STYPE  #21#   ; 
         DEF      XTYPE  #28#  ;
         DEF      WDTIM  #WDT#  ;   #  WORD  TIME                      #
         DEF      WPTIM  #WDP#  ;   #  WORD TIME  PLUS                 #
         DEF      NOSUBM # NOSM[0] #  ; 
         DEF      LFADJ  #2#   ;    #  LOC FUNCTION  ADJUSTMENT        #
         DEF      BIADJ  #1#   ;    #  BRAI  ADJUSTMENT                #
         DEF      OPCODE  #OPCOD#   ; 
         DEF      BY   #STEP#      ;
         DEF      PARCL  #LCPARCEL [0] #            ; 
#        POINTER TO START OF SEQUENCE                                  #
         DEF      PSOS   #-1#   ; 
                                                                         LCMISC 
         DEF XAMEM0  #24#;                                               LCMISC 
         DEF XAMEM7  #31#;                                               LCMISC 
       DEF XADOFS   #16#;     # OFFSET IN XREG MEM ADDRESSES           # LARRY-R
      DEF BADOFS  #32#;  #OFFSET FROM B-REG MEM OF B-REG ADDRESS MEM# 
      DEF SUDOR  #40#;       #PSEUDO REGISTER FOR CONST ZERO# 
                             #THIS SHOULD ALWAYS BE THE LAST REAL ENTRY#
                             # NEXT FOLLOWS REGISER TEMP STORAGE   #     LARRY-R
         DEF      CN000  #CNO00#  ; 
         DEF      TISCO  #TISC0#  ; 
#        OPCODE   DEFINITIONS                                          #
#                                                                      #
         DEF   IJMP    #QCFOP"JP"#; #  INDEXED JUMP                    #
         DEF      CJP    #QCFOP"ZR"# ;  #  030 OP CODE I-REG IS COND   #
         DEF      BGE    #QCFOP"GE"#     ;   #  IF  BI GE BJ GO TO K   #
         DEF      BXI10  #QCFOP"BXMT"#   ;   #  XMIT  XJ TO XI         #
         DEF      SBI61  #QCFOP"BBPK"#   ;   #  SBI   BJ + KON         #
         DEF      SBI62 #QCFOP"BXPK"#  ;
         DEF      SBI63  #QCFOP"BXPB"#   ;   #  SBI   XJ + BK          #
         DEF      SBI64  #QCFOP"BAPB"#  ; 
         DEF      SBI65  #QCFOP"BAMB"#  ; 
         DEF      SBI66  #QCFOP"BBPB"#   ;   #  SBI   BJ + BK          #
         DEF      SBI67  #QCFOP"BBMB"#  ; 
         DEF      SXI70  #QCFOP"XAPK"#  ; 
         DEF      SXI71  #QCFOP"XBPK"#   ;   #  SXI   BJ + KONST       #
         DEF      SXI72  #QCFOP"XXPK"#  ;   #  SXI  XJ + K             #
         DEF      SXI73  #QCFOP"XXPB"#   ;   #  SXI   XJ + BK          #
         DEF      SXI74  #QCFOP"XAPB"#  ; 
         DEF      SXI75  #QCFOP"XAMB"#  ; 
         DEF      SXI76  #QCFOP"XBPB"#   ;   #  SXI   BJ + BK          #
         DEF      SAI50  #QCFOP"AAPK"#  ; 
         DEF      SAI51  #QCFOP"ABPK"#  ; 
         DEF      SAI52  #QCFOP"AXPK"#  ; 
         DEF      SAI53  #QCFOP"AXPB"#  ; 
         DEF      SAI54  #QCFOP"AAPB"#  ; 
         DEF      SAI55  #QCFOP"AAMB"#  ; 
         DEF      SAI56  #QCFOP"ABPB"#  ; 
         DEF      SAI57  #QCFOP"ABMB"#  ; 
#                                                                      #
#                                                                      #
         DEF   NULU   #0#  ;        #  NULL UNIT                       #
         DEF   FADU   #1#  ;
         DEF   MULU1  #2#  ;
         DEF   MULU2  #3#  ;
         DEF   DIVU   #4#  ;
         DEF   LOGU   #5#  ;
         DEF   LADU   #6#  ;
         DEF   SHIFU  #7#  ;
         DEF   INCU1  #8#  ;
         DEF   INCU2  #9#  ;
         DEF   BRNU   #10# ;
         DEF   PSLD   #11#  ;       #   PSEUDO LOAD UNIT               #
         DEF   PSST   #12#  ;       #   PSEUDO STORE UNIT              #
         DEF   LCMU  #13# ;         #  PSEUDO  LCM READ/WRITE  UNIT  #   LARRY-R
         DEF  NOFUNU  # 15# ;       # NUMBER OF FUNCTIONAL UNITS    #    LARRY-R
         DEF ASUB  # BI-ASUBI#  ;      #ICFT POINTER TO SUBS #
         COMMON   COM88K ;
         BEGIN    #      COM88K                                        #
#        SOME  FUNCTIONS OF THE ICFOPS                                 #
         ARRAY    ICFUN   [ 0: QICFOP"QICFOP$" ]   S (1)   ;
         BEGIN
#        BASIC INSTRUCTION TYPE                                        #
#                                                                      #
         ITEM     BITYP  I  (0,0,12) =  [ 
                  23 ,              #   NULL     U                     #
                  1  ,              #   LAND     A                     #
                  1  ,              #   LOR      A                     #
                  1  ,              #   LXOR     A                     #
                  1  ,              #   LIMP     A                     #
                  1  ,              #   LNND     A                     #
                  1  ,              #   LEQV     A                     #
                  2  ,              #   COMP     B                     #
                  4  ,              #   LSHC     D                     #
                  4  ,              #   RSHC     D                     #
                  5  ,              #   LSHV     E                     #
                  5  ,              #   RSHV     E                     #
                  6  ,              #   NORM     F                     #
                  6  ,              #   NRMR     F                     #
                  6  ,              #   UNPK     F                     #
                  6  ,              #   PACK     F                     #
                  1  ,              #   FADD     A                     #
                  1  ,              #   FSUB     A                     #
                  1  ,              #   DADD     A                     #
                  1  ,              #   DSUB     A                     #
                  1  ,              #   RADD     A                     #
                  1  ,              #   RSUB     A                     #
                  40 ,              #   FMUL A GET MULTIPLY UNIT       #
                  40 ,              #   RMUL A FIRST  THEN MAKE 1      #
                  40 ,              #   DMUL A TYPE 1                  #
                  1  ,              #   FDIV     A                     #
                  1  ,              #   RDIV     A                     #
                  37 ,              #   IAOR      A                    #
                  1  ,              #   IADD     A                     #
                  38 ,              #   ISMP      A                    #
                  1  ,              #   ISUB     A                     #
                  2  ,              #   SUMI     B                     #
                  3  ,              #   MASK     C                     #
                  20 ,              #   BXND     R                     #
                  13 ,              #   JP       J                     #
                  14 ,              #   IR       K                     #
                  14 ,              #   OR       K                     #
                  14 ,              #   DF       K                     #
                  14 ,              #   ID       K                     #
                  14 ,              #   ZR       K                     #
                  14 ,              #   NZ       K                     #
                  14 ,              #   PL       K                     #
                  14 ,              #   NG       K                     #
                  15 ,              #   IJP      L                     #
                  30 ,              #   REPL     RP                    #
                  0  ,              #   PCAL     *                     #
                  22 ,              #   SUBS     T                     #
                  9  ,              #   INVI     IVI                   #
                  10 ,              #   INVS     IVS                   #
                  11 ,              #   INVT     IVT                   #
                  12 ,              #   INVB     IVB                   #
                  22 ,              #   OFFS     T                     #
                  8  ,              #   SELB     H                     #
                  24 ,              #   LABL     V                     #
                  0  ,              #   RTRN     *                     #
                  0  ,              #   SPRC     *                     #
                  0  ,              #   EPRC     *                     #
                  0  ,              #   PRGM     *                     #
                  0  ,              #   PTRM     *                     #
                  0  ,              #   ENTR     *                     #
         0  ,                       #   DIRC                           #
                  28 ,              #   LOAD     LD                    #
                  21 ,              #   SAVE     S                     #
                  31 ,              #   LOC     LC                     #
                  0  ,              #   DEAD     *                     #
                  18 ,              #   LDSC     P                     #
                  19 ,              #   ADSC     Q                     #
                  27 ,              #   SRV      PK                    #
                  26 ,              #   DRV      PJ                    #
                  5  ,              #   PAKB     E                     #
                  7  ,              #   UNPB     G                     #
                  7  ,              #   NRMB     G                     #
                  7  ,              #   NRRB                           #
                  41 ,              #   RLAY                           #
                  0  ,              #   EOS      **                    #
                  32 ,              #   BRAI     BR                    #
                  25 ,              #   LUAU     PI                    #
                  0  ,              #   CNTL     *                     #
                  29 ,              #   LODP     LDP                   #
                  0  ,              #   PSCP     **                    #
                  34 ,              #   XTYP     ***                   #
                  16 ,              #   TMWR     M                     #
                  16 ,              #   TMSR     M                     #
                  16 ,              #   TMBR     M                     #
                  17 ,              #   MSKC     N                     #
                  33 ,              #   LISC     LISC                  #
                  0 ,               #   TSSV                           #
                  39 ,              #   LINE                           #
                  17 ,              #   MSKL     N                     #
                  34 ,              #   BSLD                           #
                  35 ,              #   BSLC                           #
                  36 ,              #   BSRP                           #
                  0  ,              #   PISR                           #
                  0  ,              #   PFUN                           #
                  42 ,              #   BPSB                           #
                  ] ;               #   QICFOP$                        #
#                                                                      #
#                                                                      #
#        CODE FILE OPCODE IF APPLICABLE                                #
#                                                                      #
         ITEM     KFOP   I (0,53,7)  =  [ 
                  0           ,     #   NULL                           #
                  QCFOP"LAND" ,     #   LAND                           #
                  QCFOP"LOR"  ,     #   LOR                            #
                  QCFOP"LXOR" ,     #   LXOR                           #
                  QCFOP"LIMP" ,     #   LIMP                           #
                  QCFOP"STRK" ,     #   LNND                           #
                  QCFOP"LEQV" ,     #   LEQV                           #
                  QCFOP"COMP" ,     #   COMP                           #
                  QCFOP"CIRL" ,     #   LSHC                           #
                  QCFOP"RITA" ,     #   RSHC                           #
                  QCFOP"ICRL" ,     #   LSHV                           #
                  QCFOP"IRTA" ,     #   RSHV                           #
                  QCFOP"NORM" ,     #   NORM                           #
                  QCFOP"NRMR" ,     #   NRMR                           #
                  QCFOP"UNPK" ,     #   UNPK                           #
                  QCFOP"PACK" ,     #   PACK                           #
                  QCFOP"FADD" ,     #   FADD                           #
                  QCFOP"FSUB" ,     #   FSUB                           #
                  QCFOP"DADD" ,     #   DADD                           #
                  QCFOP"DSUB" ,     #   DSUB                           #
                  QCFOP"RADD" ,     #   RADD                           #
                  QCFOP"RSUB" ,     #   RSUB                           #
                  QCFOP"FMUL" ,     #   FMUL                           #
                  QCFOP"RMUL" ,     #   RMUL                           #
                  QCFOP"DMUL" ,     #   DMUL                           #
                  QCFOP"FDIV" ,     #   FDIV                           #
                  QCFOP"RDIV" ,     #   RDIV                           #
                  0           ,     #   IAOR                           #
                  QCFOP"IADD" ,     #   IADD                           #
                  0           ,     #   ISMP                           #
                  QCFOP"ISUB" ,     #   ISUB                           #
                  QCFOP"SUMI" ,     #   SUMI                           #
                  QCFOP"MASK" ,     #   MASK                           #
                  QCFOP"XXPB" ,     #   BXND     *                     #
                  QCFOP"JP"   ,     #   JP                             #
                  QCFOP"IR"   ,     #   IR                             #
                  QCFOP"OR"   ,     #   OR                             #
                  QCFOP"DF"   ,     #   DF                             #
                  QCFOP"ID"   ,     #   ID                             #
                  QCFOP"ZR"   ,     #   ZR                             #
                  QCFOP"NZ"   ,     #   NZ                             #
                  QCFOP"PL" ,       #   PL                             #
                  QCFOP"NG" ,       #   NG                             #
                  QCFOP"JP" ,       #   IJP                            #
                  0      ,          #   REPL                           #
                  0      ,          #   PCAL                           #
                  0      ,          #   SUBS                           #
                  0      ,          #   INVI                           #
                  0      ,          #   INVS                           #
                  0      ,          #   INVT                           #
                  0      ,          #   INVB                           #
                  0      ,          #   OFFS                           #
                  0      ,          #   SELB                           #
                  0      ,          #   LABL                           #
                  0      ,          #   RTRN                           #
                  0      ,          #   SPRC                           #
                  0      ,          #   EPRC                           #
                  0      ,          #   PRGM                           #
                  0      ,          #   PTRM                           #
                  0      ,          #   ENTR                           #
                  0      ,          #   DIRC                           #
                  0      ,          #   LOAD                           #
                  0      ,          #   SAVE                           #
                  0      ,          #   LOC                            #
                  0      ,          #   DEAD                           #
                  0      ,          #   LDSC                           #
                  0      ,          #   ADSC                           #
                  0      ,          #   SRV                            #
                  0      ,          #   DRV                            #
                  QCFOP"PACK" ,     #   PAKB                           #
                  QCFOP"UNPK" ,     #   UNPB                           #
                  QCFOP"NORM" ,     #   NRMB                           #
                  QCFOP"NRMR" ,     #   NRRB                           #
                  0      ,          #   RLAY                           #
                  0      ,          #   EOS                            #
                  0      ,          #   BRAI                           #
                  0      ,          #   LUAU                           #
                  0      ,          #   CNTL                           #
                  0      ,          #   LODP                           #
                  0      ,          #   PSCP                           #
                  0      ,          #   XTYP                           #
                  0      ,          #   TMWR                           #
                  0      ,          #   TMSR                           #
                  0      ,          #   TMBR                           #
                  0      ,          #   MSKC                           #
                  0      ,          #   LISC                           #
                  0 ,               #   TSSV                           #
                  0 ,               #   LINE                           #
                  0      ,          #   MSKL                           #
                  0 ,               #   BSLD                           #
                  0 ,               #   BSLC                           #
                  0 ,               #   BSRP                           #
                  0 ,               #   PISR                           #
                  0 ,               #   PFUN                           #
                  0 ,               #   BPSB                           #
                  ] ;               #   QICFOP$                        #
#                                                                      #
#                                                                      #
#        FUNCTIONAL UNIT OF  OPERATION                                 #
#                                                                      #
         ITEM     FUNCU  I (0,13,6)   =  [
                  NULU   ,          #   NULL                           #
                  LOGU   ,          #   LAND                           #
                  LOGU   ,          #   LOR                            #
                  LOGU   ,          #   LXOR                           #
                  LOGU   ,          #   LIMP                           #
                  LOGU   ,          #   LNND                           #
                  LOGU   ,          #   LEQV                           #
                  LOGU   ,          #   COMP                           #
                  SHIFU  ,          #   LSHC                           #
                  SHIFU  ,          #   RSHC                           #
                  SHIFU  ,          #   LSHV                           #
                  SHIFU  ,          #   RSHV                           #
                  SHIFU  ,          #   NORM                           #
                  SHIFU  ,          #   NRMR                           #
                  SHIFU  ,          #   UNPK                           #
                  SHIFU  ,          #   PACK                           #
                  FADU   ,          #   FADD                           #
                  FADU   ,          #   FSUB                           #
                  FADU   ,          #   DADD                           #
                  FADU   ,          #   DSUB                           #
                  FADU   ,          #   RADD                           #
                  FADU   ,          #   RSUB                           #
                  MULU1  ,          #   FMUL                           #
                  MULU1  ,          #   RMUL                           #
                  MULU1  ,          #   DMUL                           #
                  DIVU   ,          #   FDIV                           #
                  DIVU   ,          #   RDIV                           #
                  0      ,          #   IAOR                           #
                  LADU   ,          #   IADD                           #
                  0      ,          #   ISMP                           #
                  LADU   ,          #   ISUB                           #
                  DIVU   ,          #   SUMI                           #
                  SHIFU  ,          #   MASK                           #
                  INCU1  ,          #   BXND                           #
                  BRNU   ,          #   JP                             #
                  BRNU   ,          #   IR                             #
                  BRNU   ,          #   OR                             #
                  BRNU   ,          #   DF                             #
                  BRNU   ,          #   ID                             #
                  BRNU   ,          #   ZR                             #
                  BRNU   ,          #   NZ                             #
                  BRNU   ,          #   PL                             #
                  BRNU   ,          #   NG                             #
                  BRNU   ,          #   IJP                            #
                  0      ,          #   REPL                           #
                  0      ,          #   PCAL                           #
                  0      ,          #   SUBS                           #
                  0      ,          #   INVI                           #
                  0      ,          #   INVS                           #
                  0      ,          #   INVT                           #
                  0      ,          #   INVB                           #
                  0      ,          #   OFFS                           #
                  0      ,          #   SELB                           #
                  0      ,          #   LABL                           #
                  0      ,          #   RTRN                           #
                  0      ,          #   SPRC                           #
                  0      ,          #   EPRC                           #
                  0      ,          #   PRGM                           #
                  0      ,          #   PTRM                           #
                  0      ,          #   ENTR                           #
                  0      ,          #   DIRC                           #
                  0      ,          #   LOAD                           #
                  0      ,          #   SAVE                           #
                  0      ,          #   LOC                            #
                  0      ,          #   DEAD                           #
                  0      ,          #   LDSC                           #
                  0      ,          #   ADSC                           #
                  0      ,          #   SRV                            #
                  0      ,          #   DRV                            #
                  SHIFU  ,          #   PAKB                           #
                  SHIFU  ,          #   UNPB                           #
                  SHIFU  ,          #   NRMB                           #
                  SHIFU  ,          #   NRRB                           #
                  0      ,          #   RLAY                           #
                  0      ,          #   EOS                            #
                  0      ,          #   BRAI                           #
                  0      ,          #   LUAU                           #
                  0      ,          #   CNTL                           #
                  0      ,          #   LODP                           #
                  0      ,          #   PSCP                           #
                  0      ,          #   XTYP                           #
                  0      ,          #   TMWR                           #
                  0      ,          #   TMSR                           #
                  0      ,          #   TMBR                           #
                  0      ,          #   MSKC                           #
                  0      ,          #   LISC                           #
                  0 ,               #   TSSV                           #
                  0 ,               #   LINE                           #
                  0      ,          #   MSKL                           #
                  0 ,               #   BSLD                           #
                  0 ,               #   BSLC                           #
                  0 ,               #   BSRP                           #
                  0 ,               #   PISR                           #
                  0 ,               #   PFUN                           #
                  LADU ,     #BPSB - ASSUME ITS IADD                   #
                  ] ;               #   QICFOP$                        #
#                                                                      #
#                                                                      #
#                                                                      #
         ITEM     JTYPE  I  (0,24,3)   =   [
                  0 ,               #   NULL                           #
                  0 ,               #   LAND                           #
                  0 ,               #   LOR                            #
                  0 ,               #   LXOR                           #
                  0 ,               #   LIMP                           #
                  0 ,               #   LNND                           #
                  0 ,               #   LEQV                           #
                  0 ,               #   COMP                           #
                  0 ,               #   LSHC                           #
                  0 ,               #   RSHC                           #
                  0 ,               #   LSHV                           #
                  0 ,               #   RSHV                           #
                  0 ,               #   NORM                           #
                  0 ,               #   NRMR                           #
                  0 ,               #   UNPK                           #
                  0 ,               #   PACK                           #
                  0 ,               #   FADD                           #
                  0 ,               #   FSUB                           #
                  0 ,               #   DADD                           #
                  0 ,               #   DSUB                           #
                  0 ,               #   RADD                           #
                  0 ,               #   RSUB                           #
                  0 ,               #   FMUL                           #
                  0 ,               #   RMUL                           #
                  0 ,               #   DMUL                           #
                  0 ,               #   FDIV                           #
                  0 ,               #   RDIV                           #
                  0 ,               #   IAOR                           #
                  0 ,               #   IADD                           #
                  0 ,               #   ISMP                           #
                  0 ,               #   ISUB                           #
                  0 ,               #   SUMI                           #
                  0 ,               #   MASK                           #
                  0 ,               #   BXND                           #
                  0 ,               #   JP                             #
                  4 ,               #   IR                             #
                  5 ,               #   OR                             #
                  6 ,               #   DF                             #
                  7 ,               #   ID                             #
                  0 ,               #   ZR                             #
                  1 ,               #   NZ                             #
                  2 ,               #   PL                             #
                  3 ,               #   NG                             #
                  0 ,               #   IJP                            #
                  0 ,               #   REPL                           #
                  0 ,               #   PCAL                           #
                  0 ,               #   SUBS                           #
                  0 ,               #   INVI                           #
                  0 ,               #   INVS                           #
                  0 ,               #   INVT                           #
                  0 ,               #   INVB                           #
                  0 ,               #   OFFS                           #
                  0 ,               #   SELB                           #
                  0 ,               #   LABL                           #
                  0 ,               #   RTRN                           #
                  0 ,               #   SPRC                           #
                  0 ,               #   EPRC                           #
                  0 ,               #   PRGM                           #
                  0 ,               #   PTRM                           #
                  0 ,               #   ENTR                           #
                  0 ,               #   DIRC                           #
                  0 ,               #   LOAD                           #
                  0 ,               #   SAVE                           #
                  0 ,               #   LOC                            #
                  0 ,               #   DEAD                           #
                  0 ,               #   LDSC                           #
                  0 ,               #   ADSC                           #
                  0 ,               #   SRV                            #
                  0 ,               #   DRV                            #
                  0 ,               #   PAKB                           #
                  0 ,               #   UNPB                           #
                  0 ,               #   NRMB                           #
                  0 ,               #   NRRB                           #
                  0 ,               #   RLAY                           #
                  0 ,               #   EOS                            #
                  0 ,               #   BRAI                           #
                  0 ,               #   LUAU                           #
                  0 ,               #   CNTL                           #
                  0 ,               #   LODP                           #
                  0 ,               #   PSCP                           #
                  0 ,               #   XTYP                           #
                  0 ,               #   TMWR                           #
                  0 ,               #   TMSR                           #
                  0 ,               #   TMBR                           #
                  0 ,               #   MSKC                           #
                  0 ,               #   LISC                           #
                  0 ,               #   TSSV                           #
                  0 ,               #   LINE                           #
                  0 ,               #   MSKL                           #
                  0 ,               #   BSLD                           #
                  0 ,               #   BSLC                           #
                  0 ,               #   BSRP                           #
                  0 ,               #   PISR                           #
                  0 ,               #   PFUN                           #
                  0 ,               #   BPSB                           #
                  ] ;               #   QICFOP$                        #
#                                                                      #
#                                                                      #
         END
#                                                                      #
#         CIRCULAR LOAD REGISTER ARRAY INDEX                           #
         ARRAY    LRINX   [1:11]  S (1)   ; 
         BEGIN
         ITEM LRIX  I  (0,0,60)  =  [  # CIRCULAR LOAD REGISTER INDEX  #
                  XREG1, XREG2, XREG3, XREG4, XREG5,
                  XREG1, XREG2, XREG3, XREG4, XREG5,
                  XREG1  ]  ; 
         END
#        FUNCTIONAL UNIT EXECUTION TIME                                #
         ARRAY  FUNUTM  [0: NOFUNU]   S(1);                              LARRY-R
         BEGIN
           ITEM   EXTIM   I ( 0,0,60)  =
               [
                  0 ,               #   NULL UNIT                      #
                  4,                #   FLOATING ADD                   #
                  10,               #   MULTIPLY  1                    #
                  10,               #   MULTIPLY  2                    #
                  29,               #   FLOATING  DIVIDE               #
                  3 ,               #   LOGICAL                        #
                  3,                #   LONG ADD                       #
                  3,                #   SHIFT                          #
                  3,                #   INCREMENT 1                    #
                  3,                #   INCREMENT 2                    #
                  10 ,              #   BRANCH  UNIT  (AVERAGE)        #
                  8 ,               #   PSEUDO  LOAD                   #
                  8 ,               #   PSEUDO  STORE                  #
                  17 ,              #  READ   LCM                   #    LARRY-R
                  99 ,  ]    ;      #   NON EXISTENT                   #
         END
#**********************************************************************#
        #     FUNCTIONAL UNIT /FACILITY FREE TIME QUANTITIES  # 
         ARRAY  FCLTY [ 0:NOFUNU ]   S(1) ;                              LARRY-R
         BEGIN
               ITEM  FACL  I(0,0,60) ;
         END
  
      ARRAY REGFT[0:SUDOR] S(1);   #REGISTER FREE TIME AVAILAB# 
         BEGIN
               ITEM 
               REGFTI I(0,0,60) , 
               RRFT   I( 0,0,18) ,      # RESULT FREE TIME  # 
               ROFT   I( 0,42,18);      # OPERAND FREE TIME # 
         END
  
#        REGISTER  HISTORY TABLE    LABL, X0-X7, A0-A7                 #
         ARRAY    RHISTY [0:RHENT]  S(1) ;
         BEGIN
         ITEM     RHIST  I ( 0, 0, 60) ;
         END
#**********************************************************************#
#                                                                      #
         ARRAY    MIOP [0:2]  P(MIENS)  ; 
         BEGIN
         ITEM 
#        SCHEDULABLE  INSTRUCTION WITH MINIMUM ISSUE  TIME             #
         MINSZ    I ( 0, 0,60) ,    #  INSIZ                           #
         MRI      I ( 1, 0,60) ,    #  REGI                            #
         MRJ      I ( 2, 0,60) ,    #  REGJ                            #
         MRK      I ( 3, 0,60) ,    #  REGK                            #
         MABSO    I ( 4, 0,60) ,    #  ABSO                            #
         MINXA    I ( 5, 0,60) ,    #  INXA                            #
         MINX     I ( 6, 0,60) ,    #  INX                             #
#                                                                      #
         MISUT    I ( 7, 0,60) ,    #  ISUT                            #
         MEXUT    I ( 8, 0,60) ,    #  EXUT                            #
         MIETM    I ( 9, 0,60) ,    #  IETIM                           #
         MFUNU    I (10,0,60) ,    #   FUNU                            #
         MITYP     I (11,0,60) ,    #  INSTRUCTION TYPE                #
         MTOP1    I (12,0,60) ,     #   TOP1                           #
         MTOP2    I (13,0,60) ,     #   TOP2                           #
         MKCON    I (14,0,60) ,     #   K DESIGNATOR                   #
         MOPC     I (16,0,60)  ,    #   OPCOD                          #
         MFTIM    I (17,0,60)  ,    #   FTIM                           #
         MLSTYP   I (18,0,60) ,     #   LSTYP                          #
         MPFF     I (19,0,60) ;     #   PRIOP                          #
#                                                                      #
         END
#                                                                      #
#        NO SUBSCRIPT MASK                                             #
   ARRAY NOSBM    [0:0]  S(1) ; 
         BEGIN
         ITEM     NOSM   U (0,0,60) ; 
         ITEM     NOSBMA U (0,0,18)  = [O"777777"]; 
         ITEM     NOSBMB U (0,18,18) = [0]; 
         ITEM     NOSBMC U (0,36,24) = [O"77777777"]; 
         END
#                                                                      #
#        DUMMY ARRAY FOR  TYPE  OF UNSCHEDULABILITY                    #
#                                                                      #
   ARRAY UNTYPE   [ 0: 1 ]  S(1) ;
         BEGIN
         ITEM     UNTYP  I  (0,0,60) ;
         END
#                                                                      #
#        UNSCHEDULABILITY  ARRAY                                       #
   ARRAY UNSAR    [ 0: NUNENT ]   S(1)  ; 
         BEGIN
         ITEM     UNSTY  I  ( 0,0,6) ,
               UNSTP I (0,6,18) , 
               UNSTI I (0,24,18), 
                  UNSRJ  I  ( 0,48,6) , 
                  UNSRK  I  ( 0,54,6) ; 
         END
#        DATA FOR ENCODED ADDRESS                                      #
         ITEM 
         ABOF     I , 
         ASUBI  I,     # ICF POINTER OF SUBS EXPRESSION  #
         OFFST    I , 
         ABSO     I ,               #   ENTIRE ENCODED ADDRESS         #
         ABAS     I ; 
#        DUMMY ARRAY FOR ENCODED ADDRESS                               #
         ARRAY    DANCA  [ 0:1 ]   S(1)  ;
         BEGIN
         ITEM 
         ABASP    I ( 0, 0,18 ) ,   #  BASE  S.T.P.  POINTER           #
         AOFSP    I ( 0,42,18 ) ,   #  OFFSET                          #
         ASUBP    I ( 0,18,18 ) ,   #  SUBSCRIPT  ICFT POINTER         #
         ACTQ     U (0,36,3)    ,   # ACCESS TYPE                      # LARRY-R
         ABSOP    I (0,0,60)  ;     #   BASE, SUB, AT, OFFSET          #
         END
#**********************************************************************#
#        CODE FILE NOP                                                 #
         ARRAY    KNOP   [0:1]  S(1)  ; 
         BEGIN
         ITEM     KFNOP  I (0,0,60)  ;
         ITEM     KNOC   I (0,0,12)  =
                  [  QCFOP"NOP"  ,  ]  ;
         END
#                                                                      #
#        B REGISTER  DEDICATED VARIABLE AND CONSTANT ARRAY             #
         ITEM     BRDVN  I = 0 ;    #  NUMBER OF DEDICATED B INVIS     #
         ARRAY    BRDV  [0:7]  S(1) ; 
         BEGIN
#        S.T.P. TO VARIABLE OR CONSTANT DEDICATED TO B-REG             #
         ITEM     BRDVP  I (0,0,60) ; 
         END
#        OUT OF REG SETS THIS TRUE                                     #
#        CODE GEN RESETS FALSE                                         #
#        THIS IS TO FORCE THE GENERATION OF THE INSTRUCTION            #
#        FOR WHICH A REGISTER WAS FREED                                #
         ITEM     RPFRC  B  ; 
         ITEM     NSKED  I  ;       #   NUMBER  SCHEDULABLE  OPS       #
#**********************************************************************#
#        CODGEN 2 DATA                                                 #
    ITEM
#        DEBUG  DATA                                                   #
         NREDY    I = 0 ,           #   NUMBER OF READY OPS            #
         NSCN     I = 0 ,           #   NUMBER SCANNED                 #
         TCLOCK   I = 0 ,           #   ACCUMULATED CLOCK              #
         NSNOP    I = 0 ,           #   SEQUENCE  NOPS                 #
         NTNOP    I = 0 ,           #   TOTAL NOPS                     #
         NSOR     I = 0 ,           #   SEQUENCE  OUT OF REGISTERS     #
         NTOR     I = 0 ,           #   TOTAL OUT OF REGISTERS         #
         NSSV     I = 0 ,           #   SEQUENCE  SAVES - STORES       #
         NTSV     I = 0 ,           #   TOTAL                          #
         SDLY     I = 0 ,           #   SEQ  DELAY                     #
         TDLY     I = 0 ,           #   TOTAL                          #
         SQPC     I = 0 ,           #   SEQUENCE PARCEL COUNT          #
         PLABL    I ,               #   OPN1  OF LABL ENTRY            #
         CLCI     I ,               #   INITIAL CLC                    #
         WDT      I ,               # WORD TIME  ( 0 OR 4 )            #
         WDP      I ,               #  WORD TIME PLUS  ONE             #
         REGI     I ,    # REGISTER I -  LOW 3 BITS =  0-7             #
         REGJ     I ,    # REGISTER J -  LOW 3 BITS =  0-7             #
         REGK     I ,    # REGISTER K -  LOW 3 BITS =  0-7             #
         XWRTR    I ,    # TIME TO USE REG AS RESULT                   #
         XWRTO    I ,    # TIME TO USE REG AS OPERAND                  #
         OPCOD    I,                #  ICFT  OPCODE                    #
         ITYPE    I,                #  ICFT  INSTRUCTION  TYPE         #
         PRIOP    I ,               #   PFF  OF  OP  (FOR IINSK)       #
          BRK I=0,           #NUM OF B-REGS RESERVED BY SCHED FOR BPSBS#
         TOP1     I ,               #   BI - OPN1 [INX]                #
         TOP2     I ,               #   BI - OPN2 [INX]                #
         XPRS     I ,               #  INITIAL INDEX OF FIRST PSEUDO OP#
         INXA     I ,               #   PREVIOUS ICFT POINTER          #
         INX      I ,               #   CURRENT  ICFT POINTER          #
         INSIZ    I ,               #   INSTRUCTION SIZE (PARCELS)     #
         LGEN     I ,               #  LAST  GENERATED ICFT ENTRY      #
         LLRCH    I  =  0   ,       #   LAST LOAD REGISTER CHOSEN 0 1  #
         CDBLU    B ,               #  CHECK DOUBLE USE                #
         FORCE    B ,               #  FORCE  GENERATION               #
         NOCOD    B ,               #  NO CODE  FLAG                   #
# 0,1,2,3   UNSKED, SKEDULABLE,  ISSUABLE,  EXECUTABLE                 #
         INSTAT   I ,               # INSTRUCTION STATUS               #
         LSTYP    I ,               # LOAD/STORE  TYPE                 #
         CLOCK    I ,               #  INTERNAL CLOCK                  #
         ISUT     I ,               #  ISSUE TIME                      #
         EXUT     I ,               #  EXECUTION TIME                  #
         FTIM     I ,               #  FUNCTIONAL UNIT TIME            #
         IETIM    I ,               #  ISSUE + EXECUTION TIME          #
         IEFTM    I ,               #  ISSUE + EXUT + FUNCTION UNIT    #
         FUNU     I ,               #  FUNCTIONAL UNIT                 #
         TNOP2    I ,               #   OP2  FOR TYPE N  INSTRUCTIONS  #
         INSOPA   I ,               #   OP                             #
         INSOPB   I ,               #   POINTERS                       #
         INSOPC   I ,               #                                  #
         INSOPD   I ,               #                                  #
         INSOPE   I , 
         NINSA    I ,               #   BI  -  INSOPA                  #
         NINSB    I ,               #   BI  -  INSOPB                  #
         NINSC    I ,               #   BI  -  INSOPC                  #
         NINSD    I ,               #   BI  -  INSOPD                  #
         NINSE    I ,               #   BI  -  INSOPE                  #
         KACON    I ,               #   K ADDR CONSTANT  SI00          #
         T1       I , 
         T2       I , 
         TX       I , 
         TY       I , 
         TT1      I ,               #   TEMP             SI00          #
         TX1      I ,               #   TEMP X           SI00          #
         TX2      I ,               #   TEMP X           SI00          #
         NUNOP    I ,               #   NUMBER OF UNSCHEDULABLE OPS    #
         SUBRG    I ,               #   SUBSCRIPT REGISTER             #
         SRUSC    I ,               #   SUBSCRIPT REGISTER  USE COUNT  #
         THISXRG = -1 ,      # JUST FREED XREG   #
         LASTXRG =-1 ,    # LAST FREED XRE  # 
      PROTECT = -1;          #BROTHER OF LASTXRG# 
#                                                                      #
#**********************************************************************#
#        DEBUG COMMENT/REMARK  ARRAY                                   #
         ARRAY    SDLINE  [0:10]  S(1)  ; 
         BEGIN
         ITEM     SDC  C ( 0,0,10) ;
         END
#                                                                      #
#        DEBUGGING  REMARK  CONTROL                                    #
         ARRAY    RMCFCA  [0:0]  S(1)  ;
         BEGIN
         ITEM     RMCFC  I  (0,0,60)  ; 
         ITEM     RMCOP  I  (0,0,12) = [ QCFOP"RMRK" ]; 
         ITEM     RMCL  I  (0,54,6)  =  [ 4 ]   ; 
         END
#                                                                      #
#        DEBUGGING  COMMENT  CARD                                      #
         ARRAY    CMCFCA  [0:0]  S(1)  ;
         BEGIN
         ITEM     CMCFC  I (0,0,60) ; 
         ITEM     CMCOP  I (0,0,12) = [ QCFOP"CMNT"  ] ;
         ITEM     CMCL  I  (0,54,6)  =  [ 8 ]   ; 
         END
#        LET THIS BE -1  OR A POSITIVE INDEX TO THE ICFT COMPUTATION   #
#        OF THE SUBSCRIPT VALUE  (POSSIBLY 0 )                         #
         ITEM     SCOMP I ; 
#        COMP DESTROYS RECOMPUTABLE OPERAND                            #
         ITEM     CDROP  B   ;
#        SPECIAL RETURN FROM ISL00                                     #
         ITEM     SPRISL  B  = FALSE  ; 
         ITEM LODPINP B=FALSE;   # LODP IN PROCESS#                      LARRY-R
         ITEM LCMINP B=FALSE;     #FLAG LCM READ/WRITE IN PROCESS      # LCMISC 
         ARRAY CFOPA  [ 0 : QCFOP"QCFOP$" ]  P(1);                       LARRY-R
           ITEM                                                          LARRY-R
           CFOPTY  S:QCFOPTY (0,0,18) =   [    # CF-OPCODE CLASSIFC.   # LARRY-R
                     QCFOPTY"N"  ,     #  NULL        #                  LARRY-R
                  12(QCFOPTY"C") ,     #  ZR THRU LT  #                  LARRY-R
                   2(QCFOPTY"N") ,     #  REC,WEC     #                  LARRY-R
                   2(QCFOPTY"C") ,     #  RJ , JP     #                  LARRY-R
                     QCFOPTY"A"  ,     #  PS          #                  LARRY-R
                   9(QCFOPTY"B") ,     #  30 BIT SET  #                  LARRY-R
                  49(QCFOPTY"A") ,     #  NOP THRU WXJ   #               LARRY-R
                     QCFOPTY"L"  ,     #  LABL        #                  LARRY-R
                     QCFOPTY"D"  ,     #  CNTRL       #                  LARRY-R
                   2(QCFOPTY"N") ,     #  PSRD,PSRC   #                  LARRY-R
                     QCFOPTY"P"  ,     #  PRST        #                  LARRY-R
                     QCFOPTY"N"  ,     #  XJ          #                  LARRY-R
                     QCFOPTY"E"  ,     #  RMRK        #                  LARRY-R
                     QCFOPTY"F"  ,     #  CMNT        #                  LARRY-R
                     QCFOPTY"N"  ,     #  PSRF        #                  LARRY-R
                     QCFOPTY"S"  ,     #  CODE        #                  LARRY-R
                     QCFOPTY"AT" ,     #  TERM        #                  LARRY-R
                     QCFOPTY"K"  ,     #  LINE        #                  LARRY-R
                     QCFOPTY"N"  ,     #  TRB         #                  LARRY-R
                     QCFOPTY"T"  ,     #  TRC         #                  LARRY-R
                     QCFOPTY"TRJ",     #  TRJ         #                  LARRY-R
                     QCFOPTY"TIJP",    #  TIJP        #                  LARRY-R
                     QCFOPTY"N"        #  NON-EXIST   #                  LARRY-R
                                  ]  ,                                   LARRY-R
           CFOPEQ  S:QCFOP   ( 0 ,42,18)  =[ # EQIVALENT  30-BIT INSTRUC LARRY-R
                                               FOR  15-BIT SETS   #      LARRY-R
                      45(0) ,                # NULL THRU  BXMT    #      LARRY-R
                        QCFOP"AXPK" ,        #  SAI XJ  ->   SAI  XJ+0 # LARRY-R
                        QCFOP"BXPK" ,        #  SBI XJ  ->   SBI  XJ+0 # LARRY-R
                        QCFOP"XXPK" ,        #  SXI XJ  ->   SXI  XJ+0 # LARRY-R
                        QCFOP"AAPK" ,        #  SAI XJ  ->   SAI  AJ+0 # LARRY-R
                        QCFOP"BAPK" ,                                    LARRY-R
                        QCFOP"XAPK" ,                                    LARRY-R
                       3(0) ,                                            LARRY-R
                        QCFOP"ABPK" ,        #  SAI BJ  ->   SAI  BJ+0 # LARRY-R
                        QCFOP"BBPK" ,                                    LARRY-R
                     QCFOP"XBPK" ,                                       LARRY-R
                      31(0)          ]  ,    # TO END   #                LARRY-R
           CFOPSIZ           ( 0 ,18, 3)  =[ # PARCEL SIZE             # LARRY-R
                         0 ,                 # NULL                    # LARRY-R
                      16(2),                 # ZR  THRU JP             # LARRY-R
                         1 ,                 # PS                      # LARRY-R
                       9(2),                 # 30-BIT SETS             # LARRY-R
                      49(1),                                             LARRY-R
                      17(0)           ]  ,                               LARRY-R
           CFOPEND          B( 0 ,18, 1)  =[  #  FORCE UPPER OP        # LARRY-R
                     74(FALSE) ,                                         LARRY-R
                     13(TRUE),
                        FALSE , 
                      3(TRUE)  ]  ; 
         END      #      COM88K                                        #
          CONTROL LIST;      #COM88K# 
