COMKOPD 
COMMON
          CTEXT  COMKOPD - *OPDEF*-S FOR *TAF*. 
          SPACE  4,10 
          BASE   DECIMAL
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 OPD      SPACE  4,10 
***       OPD - *OPDEF*-S USED BY *TAF*.
*         G. W. PROPP.       80/07/22.
 OPD      SPACE  4,10 
***       *COMKOPD* DEFINES THE *OPDEF*-S AND MACROS NEEDED TO
*         MODIFY INSTRUCTIONS AT INITIALIZATION.  THE *INMOD* MACRO 
*         MAKES IT POSSIBLE TO SPECIFY A MODIFIER ON ALL 30-BIT 
*         INCREMENT INSTRUCTIONS.  THIS MODIFER MUST BE IN THE FORM 
*         OF A POINTER TO ONE OF THE TABLE POINTERS THAT IS SET 
*         DYNAMICALLY AT INITIALIZATION TIME.  THE INSTRUCTION WILL 
*         BE MODIFIED DURING INITIALIZATION.
* 
*         EXAMPLE - 
*         TA1    B5,VTST
* 
*         THIS WILL GENERATE A 30-BIT INSTRUCTION OF THE FOLLOWING FORM 
*         SA1    B5+K 
* 
*         WHERE K = THE FIRST WORD ADDRESS OF THE TERMINAL STATUS 
*         TABLE.
 INMOD    SPACE  4,15 
**        INMOD - INSTRUCTION MODIFICATION MACRO. 
* 
*         INMOD  PTRA,LWAF
* 
*         ENTRY  *PTRA* = POINTER TO DESIRED ADDRESS. 
*                *LWAF* = IF DEFINED, USE LWA INSTEAD OF FWA AT *PTRA*. 
*                         BITS 17-0 OF *PTRA* POINT TO LWA. 
*                         BITS 31-24 OF *PTRA* POINT TO FWA.
  
  
          PURGMAC  INMOD
 INMOD    MACRO  PTRA,LWAF
          LOCAL  INM1,INM2
          MACREF INMOD
 INM1     SET    *P 
 INM2     SET    *
 .A       IFEQ   INM1,60
 INM1     SET    0
 INM2     SET    *-1
 .A       ENDIF 
 TINST    RMT 
          VFD    12/2000B+INM1
 .A       IFC    EQ,*LWAF** 
          VFD    12/0 
 .A       ELSE
          VFD    12/4000B 
 .A       ENDIF 
          VFD    18/PTRA
          VFD    18/INM2
 TINST    RMT 
          ENDM
 OPDEFS   SPACE  4,10 
*         *OPDEF*-S USED WITH *INMOD*.
  
  
 TAAQ,Q   OPDEF  P1,P2,P3,P4
          SA.P1  A.P2+P3
          INMOD  P4 
          ENDM
  
 TAA,Q    OPDEF  P1,P2,P4 
          SA.P1  A.P2+0 
          INMOD  P4 
          ENDM
  
 TAAQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SA.P1  A.P2+P3
          INMOD  P4,P5
          ENDM
  
 TAA,Q,Q  OPDEF  P1,P2,P4,P5
          SA.P1  A.P2+0 
          INMOD  P4,P5
          ENDM
  
 TABQ,Q   OPDEF  P1,P2,P3,P4
          SA.P1  B.P2+P3
          INMOD  P4 
          ENDM
  
 TAB,Q    OPDEF  P1,P2,P4 
          SA.P1  B.P2+0 
          INMOD  P4 
          ENDM
  
 TABQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SA.P1  B.P2+P3
          INMOD  P4,P5
          ENDM
  
 TAB,Q,Q  OPDEF  P1,P2,P4,P5
          SA.P1  B.P2+0 
          INMOD  P4,P5
          ENDM
  
 TAXQ,Q   OPDEF  P1,P2,P3,P4
          SA.P1  X.P2+P3
          INMOD  P4 
          ENDM
  
 TAX,Q    OPDEF  P1,P2,P4 
          SA.P1  X.P2+0 
          INMOD  P4 
          ENDM
  
 TAXQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SA.P1  X.P2+P3
          INMOD  P4,P5
          ENDM
  
 TAX,Q,Q  OPDEF  P1,P2,P4,P5
          SA.P1  X.P2+0 
          INMOD  P4,P5
          ENDM
  
 TAQ,Q    OPDEF  P1,P3,P4 
          SA.P1  B0+P3
          INMOD  P4 
          ENDM
  
 TAQ,Q,Q  OPDEF  P1,P3,P4,P5
          SA.P1  B0+P3
          INMOD  P4,P5
          ENDM
  
 TBAQ,Q   OPDEF  P1,P2,P3,P4
          SB.P1  A.P2+P3
          INMOD  P4 
          ENDM
  
 TBA,Q    OPDEF  P1,P2,P4 
          SB.P1  A.P2+0 
          INMOD  P4 
          ENDM
  
 TBAQ,Q,Q OPDEF  P1,P2,P3,P4,Q5 
          SB.P1  A.P2+P3
          INMOD  P4,P5
          ENDM
  
 TBA,Q,Q  OPDEF  P1,P2,P4,P5
          SB.P1  A.P2+0 
          INMOD  P4,P5
          ENDM
  
 TBBQ,Q   OPDEF  P1,P2,P3,P4
          SB.P1  B.P2+P3
          INMOD  P4 
          ENDM
  
 TBB,Q    OPDEF  P1,P2,P4 
          SB.P1  B.P2+0 
          INMOD  P4 
          ENDM
 TBBQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SB.P1  B.P2+P3
          INMOD  P4,P5
          ENDM
  
 TBB,Q,Q  OPDEF  P1,P2,P4,P5
          SB.P1  B.P2+0 
          INMOD  P4,P5
          ENDM
  
 TBXQ,Q   OPDEF  P1,P2,P3,P4
          SB.P1  X.P2+P3
          INMOD  P4 
          ENDM
  
 TBX,Q    OPDEF  P1,P2,P4 
          SB.P1  X.P2+0 
          INMOD  P4 
          ENDM
  
 TBXQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SB.P1  X.P2+P3
          INMOD  P4,P5
          ENDM
  
 TBX,Q,Q  OPDEF  P1,P2,P4,P5
          SB.P1  X.P2+0 
          INMOD  P4,P5
          ENDM
  
 TBQ,Q    OPDEF  P1,P3,P4 
          SB.P1  B0+P3
          INMOD  P4 
          ENDM
  
 TBQ,Q,Q  OPDEF  P1,P3,P4,P5
          SB.P1  B0+P3
          INMOD  P4,P5
          ENDM
  
 TJQ      OPDEF  P1 
          RJ     0
          INMOD  P1 
          ENDM
 TXAQ,Q   OPDEF  P1,P2,P3,P4
          SX.P1  A.P2+P3
          INMOD  P4 
          ENDM
  
 TXA,Q    OPDEF  P1,P2,P4 
          SX.P1  A.P2+0 
          INMOD  P4 
          ENDM
  
 TXAQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SX.P1  A.P2+P3
          INMOD  P4,P5
          ENDM
  
 TXA,Q,Q  OPDEF  P1,P2,P4,P5
          SX.P1  A.P2+0 
          INMOD  P4,P5
          ENDM
  
 TXBQ,Q   OPDEF  P1,P2,P3,P4
          SX.P1  B.P2+P3
          INMOD  P4 
          ENDM
  
 TXB,Q    OPDEF  P1,P2,P4 
          SX.P1  B.P2+0 
          INMOD  P4 
          ENDM
  
 TXBQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SX.P1  B.P2+P3
          INMOD  P4,P5
          ENDM
 TXB,Q,Q  OPDEF  P1,P2,P4,P5
          SX.P1  B.P2+0 
          INMOD  P4,P5
          ENDM
  
 TXXQ,Q   OPDEF  P1,P2,P3,P4
          SX.P1  X.P2+P3
          INMOD  P4 
          ENDM
  
 TXX,Q    OPDEF  P1,P2,P4 
          SX.P1  X.P2+0 
          INMOD  P4 
          ENDM
  
 TXXQ,Q,Q OPDEF  P1,P2,P3,P4,P5 
          SX.P1  X.P2+P3
          INMOD  P4,P5
          ENDM
  
 TXX,Q,Q  OPDEF  P1,P2,P4,P5
          SX.P1  X.P2+0 
          INMOD  P4,P5
          ENDM
  
 TXQ,Q    OPDEF  P1,P3,P4 
          SX.P1  B0+P3
          INMOD  P4 
          ENDM
  
 TXQ,Q,Q  OPDEF  P1,P3,P4,P5
          SX.P1  B0+P3
          INMOD  P4,P5
          ENDM
  
          ENDX
