*COMDECK BUG202C
  # #     CONTROL  NOLIST;   #BUG202C#
  
  #    THIS COMDECK IS CALLED BY: 
*         CGENINT            (COMPASS ROUTINE)
*         BUG202P            (SYMPL ROUTINE)
* 
*      NOTE-
*         *CGENINT* DEPENDS ON THE EXISTING STRUCTURE OF THIS COMDECK.
*         IF YOU MAKE CHANGES TO THIS COMDECK,  THEY WILL PROBABLY
*         EITHER WORK CORRECTLY OR GET ASSEMBLY ERRORS IN CGENINT.
*         BUT TO BE SURE YOU SHOULD CHECK CGENINT.
  # 
  
  
          DEF  #NFLG=10#  BUG202C$NFLG  #10#;    # BIT NO. OF LAST FLAG#
          DEF  #NFUN=40#  BUG202C$NFUN  #40#;    # MAX SAVED FUNCTIONS #
  
          COMMON  BUG202C;
          BEGIN 
          ARRAY BUG202C$$FLG [0:1];    # DEBUG CONTROL FLAGS           #
              BEGIN 
              ITEM  BUG202C$WORD U(0, 0,60);     # DEBUG CONTROL FLAGS #
  
              ITEM  BUG202C$ANYF   B(0, 0, 1);   # IF ANY FLAGS ARE SET#
              ITEM  BUG202C$DMPA   B(0, 1, 1);   # DUMP ADVANCE-VERB   #
              ITEM  BUG202C$DMPO   B(0, 2, 1);   # DUMP OTEXT          #
              ITEM  BUG202C$DMPR   B(0, 3, 1);   # DUMP REGTABL        #
              ITEM  BUF202C$DUMP   B(0, 4, 1);   # *DUMP* COMMANDS     #
              ITEM  BUG202C$EGO    B(0, 5, 1);   # *EGO* COMMANDS      #
              ITEM  BUG202C$EXEC   B(0, 6, 1);   # *EXECUTE* COMMANDS  #
              ITEM  BUG202C$GEN    B(0, 7, 1);   # *GEN* COMMANDS      #
              ITEM  BUG202C$IF     B(0, 8, 1);   # *IF* COMMANDS       #
              ITEM  BUG202C$OTHR   B(0, 9, 1);   # OTHER COMMANDS      #
              ITEM  BUG202C$CALL   B(0,10, 1);   # *CALLZ*/*RETURNZ*   #
              ITEM  BUG202C$NUML   B(0,58, 1);
              ITEM  BUG202C$NONE B(0,59, 1);     # (NEVER PRINTED)     #
              END 
  
          ARRAY BUG202C$$LIM [0:BUG202C$NFLG] S(1);   # DEBUGGED LINES #
              BEGIN 
              ITEM  BUG202C$BEGL   U(0, 0,30);   # BEGINNING LINE LIMIT#
              ITEM  BUG202C$ENDL   U(0,30,30);   # ENDING LINE LIMIT   #
              END 
  
          ARRAY BUG202C$$FUN [1:BUG202C$NFUN] P(6);   # FUNCTION VALS  #
              BEGIN 
              ITEM  BUG202C$ARG  U(0, 0,60);     # ARGUMENT ORDINAL    #
              ITEM  BUG202C$FUN  U(1, 0,60);     # FUNCTION ORDINAL    #
              ITEM  BUG202C$TABL U(2, 0,60);     # TABLE REFERENCE     #
              ITEM  BUG202C$VARG U(3, 0,60);     # VALUE OF ARGUMENT   #
              ITEM  BUG202C$VFIX U(4, 0,60);     # VALUE OF FIXED CELL #
              ITEM  BUG202C$VFUN U(5, 0,60);     # VALUE OF FUNCTION   #
              END 
  
          ITEM  BUG202C$ADDR I;        # ADDRESS OF BEG. OF COMMAND    #
          ITEM  BUG202C$EGAD I;        # LATEST EGO ADDRESS            #
          ITEM  BUG202C$EGNM C(7);     # LATEST EGO NAME               #
          ITEM  BUG202C$EGON I;        # EGO LEVEL NUMBER              #
          ITEM  BUG202C$JMPD I;        # 1 IFF JUMP TAKEN              #
          ITEM  BUG202C$JUMP I;        # FROM EVALADDRESS              #
          ITEM  BUG202C$LINE I;        # CURRENT LINE NUMBER           #
          ITEM  BUG202C$OP   I;        # OPCODE OF COMMAND             #
          ITEM  BUG202C$OTXT I;        # OTEXT PTR. TO BEG. OF COMMAND #
          ITEM  BUG202C$POS  I;        # BIT POS. OF BEG. OF COMMAND   #
          ITEM  BUG202C$PTR  I;        # INDEX TO LAST-USED FUNC. ENTRY#
          ITEM  BUG202C$SOP  I;        # SUB-OPCODE OF COMMAND         #
          ITEM  BUG202C$SPTR I;        # VALUE OF STACK$PTR            #
  
          END  #BUG202C#
  
  # #     CONTROL  LIST;     #BUG202C#
