*DECK BUG202T 
          IDENT  BUG202T
          TITLE  BUG202T -  DEBUG TABLES FOR (20,2) OVERLAY 
          COMMENT  "SUBSYS" 
          COMMENT  DEBUG TABLES FOR (20,2) OVERLAY
          SST                      ACCESS *DEBUGC* ASSEMBLY OPTION
          SPACE  4
**        BUG202T -  DEBUG TABLES FOR (20,2) OVERLAY) 
* 
*         SEE *BUG202P RINT* FOR DETAILS. 
  
DEBUGC    IFEQ   DEBUGC,1          IF DEBUG VERSION OF COMPILER 
          SPACE  4
          USE    /BUG202T/
          CON    ACTS 
          CON    CMND 
          CON    FIX
          CON    FUN
          CON    INS
          CON    MOD
          CON    TBL
          USE    *
          TITLE  MISCELLANEOUS DECLARATIONS 
  
 #         OPSYN  NIL 
  
*CALL DEF 
  
*CALL M$
  
          PURGMAC  STATUS 
 STATUS   MACRO  STATNAME 
          QUAL   STATNAME 
 #STATNUM SET    0
 STATUS   ENDM
          SPACE  3
 COMMA1   IF     -DEF,COMMA 
 ,        MACRO  MNEMONIC 
          COMMA  MNEMONIC 
 ,        ENDM
 COMMA1   ENDIF 
          PURGMAC  COMMA
 COMMA    MACRO  MNEMONIC 
 #STATNUM SET    #STATNUM+1 
 MNEMONIC EQU    #STATNUM 
 COMMA    ENDM
          SPACE  3
 ;        MACRO  ARG
          QUAL   *
 ;        ENDM
  
          STATUS COMMAND
*CALL COMMANDS
  
          STATUS SUBCOM 
*CALL SUBCOMS 
  
          STATUS  BUG202A 
*CALL BUG202AS
          TITLE  ACTS, CMND -  PRINT ACTIONS AND COMMAND NAMES
          MACRO  ACTS,NAME,FLAG,F1,F2,F3,F4,F5,F6,F7,F8 
          IF     DEF,/COMMAND/NAME,2
 #T1      SET    /COMMAND/NAME
          SKIP   1
 #T1      SET    M$C+/SUBCOM/NAME 
          ORG    CMND+#T1 
          CON    10H_NAME 
          ORG    ACTS+#T1 
          QUAL   BUG202A
          VFD    6/FLAG,4/F1,4/F2,4/F3,4/F4,4/F5,4/F6,4/F7,4/F8,22/0
          QUAL   *
 ACTS     ENDM
  
  
 ACTS     BSSZ   M$C+M$SUBCOM 
 CMND     BSSZ   M$C+M$SUBCOM 
  
 ADDZ     ACTS   9,FUNC1,FUNC2,FUNC3
 ANDZ     ACTS   9,FUNC1,FUNC2,FUNC3
 BRANCH   ACTS   8,ADDR 
 CALLZ    ACTS   10,ADDR,DEPTH
 EGO      ACTS   5,EGO
 EQZ      ACTS   9,FUNC1,FUNC2,FUNC3
 ERROR    ACTS   0
 EXECUTE  ACTS   10,ADDR
 FORCEUP  ACTS   59 
 GENLP    ACTS   7
 GENM     ACTS   7
 GENOBJ   ACTS   7
 GENVFD   ACTS   7,GENVFD 
 GEN1     ACTS   7,INSTR,FUNC4,FUNC2,FUNC3
 GEN2     ACTS   7,INSTR,FUNC2,FUNC3
 GEN3     ACTS   7,INSTR,FUNC3,FUNC2,FUNC4
 GEN5     ACTS   7,INSTR,FUNC2,FUNC3,FUNC4,FUNC5,FUNC6,FUNC7,FUNC8
 GEZ      ACTS   9,FUNC1,FUNC2,FUNC3
 GOTOCASE ACTS   8,FUNC1,ADDR 
 GTZ      ACTS   9,FUNC1,FUNC2,FUNC3
 IFZEQ    ACTS   8,FUNC1,FUNC2,ADDR 
 IFZGE    ACTS   8,FUNC1,FUNC2,ADDR 
 IFZGT    ACTS   8,FUNC1,FUNC2,ADDR 
 IFZLE    ACTS   8,FUNC1,FUNC2,ADDR 
 IFZLT    ACTS   8,FUNC1,FUNC2,ADDR 
 IFZNE    ACTS   8,FUNC1,FUNC2,ADDR 
 LEZ      ACTS   9,FUNC1,FUNC2,FUNC3
 LSHIFT   ACTS   9,FUNC1
 LTZ      ACTS   9,FUNC1,FUNC2,FUNC3
 MAXZ     ACTS   9,FUNC1,FUNC2,FUNC3
 MOVEZ    ACTS   9,FUNC1,FUNC2
 MULTZ    ACTS   9,FUNC1,FUNC2,FUNC3
 NEZ      ACTS   9,FUNC1,FUNC2,FUNC3
 NOTE     ACTS   9,NOTE 
 QUOTZ    ACTS   9,FUNC1,FUNC2,FUNC3
 GEN4     ACTS   7,INSTR,FUNC2
 POP      ACTS   9,POP
 PUSH     ACTS   9,FUNC1
 REMZ     ACTS   9,FUNC1,FUNC2,FUNC3
 RETURNZ  ACTS   10,DEPTH 
 STOPZ    ACTS   9
 SUBCOM   ACTS
 SUBZ     ACTS   9,FUNC1,FUNC2,FUNC3
          ORG    CMND+M$C+M$SUBCOM
          TITLE  FIX -  NAMES OF FIXED CELLS
          PURGMAC  STATUS 
 STATUS   OPSYN  NIL
  
          PURGMAC  COMMA
 COMMA    MACRO  NAME 
 M1       MICRO  1,, NAME 
 #T1      MICCNT M1 
          VFD    6/#T1,54/9H_NAME 
 COMMA    ENDM
  
          PURGMAC  ;
 ;        OPSYN  NIL
  
*                            (TO AVOID 2-TYPE ERRORS IN *COMDECK FIXED) 
 REGU     EQU    0
 REGV     EQU    0
 REGW     EQU    0
 REGX     EQU    0
  
  
 FIX      VFD    6/4,54/9H_NULL 
*CALL FIXED 
          TITLE  FUN -  NAMES OF FUNCTIONS
  
  
 FUN      VFD    6/8,54/9H_NULLFUNC 
          STATUS FUNCTION 
*CALL FUNCTIONS 
          TITLE  INS -  NAMES OF ASSEMBLER INSTRUCTIONS 
          PURGMAC  CONTROL
 CONTROL  OPSYN  NIL
  
  
          PURGMAC  NULL 
 NULL     MACRO 
          VFD    6/4,54/6H_NULL 
 NULL     ENDM
  
  
  
 INS      BSS    0
*CALL OPNAMES 
          TITLE  MOD, TBL -  NAMES OF TABLE MODIFIERS AND TABLES
  
          PURGMAC  STATUS 
 STATUS   MACRO  STATNAME 
          IFC    EQ, STATNAME TABLETYPE ,2
 TBL      BSS    0
          SKIP   1
 MOD      BSS    0
 STATUS   ENDM
  
  
  
*CALL TABLETYP
          SPACE  4
DEBUGC    ENDIF 
  
          END 
