COMCECM 
COMMON
          CTEXT  COMCECM - ECS INTERPRETIVE MODE MACROS.
          SPACE  4,10 
          BASE   D
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 ECM      SPACE  4,10 
***       COMCECM - ECS INTERPRETIVE MODE MACROS. 
*         S. V. PRESTON.     76/04/23.
*         A. J. BEEKMAN.     77/05/27.
 ECM      SPACE  4,10 
***       *COMCECM* CONTAINS REDEFINITIONS OF THE ECS READ AND WRITE
*         INSTRUCTIONS TO CALL THE INTERPRETIVE MODE PROCESSORS,
*         *REC=* AND *WEC=*, CONTAINED IN *COMCECS*.  ALSO, *RD* AND
*         *WT* INSTRUCTIONS ARE DEFINED TO ALLOW READING AND WRITING
*         ECS NON-INTERPRETIVELY WHILE IN INTERPRETIVE MODE.
 RE       SPACE  4,10 
***       RE - READ ECS IN INTERPRETIVE MODE. 
* 
*         RE     K
*         RE     BJ 
*         RE     BJ+K 
* 
*         ENTRY  (BJ)+K = THE WORD COUNT FOR THE READ TRANSFER. 
* 
*         CALLS  REC=.
  
          PURGDEF REQ 
          PURGDEF REB 
          PURGDEF REBQ
  
 REQ      OPDEF  K
+ RJ =XREC= 
- WC B0+K 
  SB0 B0+ 
  ENDM
  
 REB      OPDEF  BJ 
+ RJ =XREC= 
- WC B.BJ+0 
  SB0 B0+ 
  ENDM
  
 REBQ     OPDEF  BJ,K 
+ RJ =XREC= 
- WC B.BJ+K 
  SB0 B0+ 
  ENDM
 WE       SPACE  4,10 
***       WE - WRITE ECS IN INTERPRETIVE MODE.
* 
*         WE     K
*         WE     BJ 
*         WE     BJ+K 
* 
*         ENTRY  (BJ)+K = THE WORD COUNT FOR THE WRITE TRANSFER.
* 
*         CALLS  WEC= 
  
          PURGDEF WEQ 
          PURGDEF WEB 
          PURGDEF WEBQ
  
 WEQ      OPDEF  K
+ RJ =XWEC= 
- WC B0+K 
  SB0 B0+ 
  ENDM
  
 WEB      OPDEF  BJ 
+ RJ =XWEC= 
- WC B.BJ+0 
  SB0 B0+ 
  ENDM
  
 WEBQ     OPDEF  BJ,K 
+ RJ =XWEC= 
- WC B.BJ+K 
  SB0 B0+ 
  ENDM
 RD       SPACE  4,10 
***       RD - READ ECS NON-INTERPRETIVELY IN INTERPRETIVE MODE.
* 
*         RD     K
*         RD     BJ 
*         RD     BJ+K 
* 
*         ENTRY  (BJ)+K = THE WORD COUNT FOR THE READ TRANSFER. 
  
  
          PURGDEF RDQ 
          PURGDEF RDB 
          PURGDEF RDBQ
  
 RDQ      OPDEF  K
+ RW B0+K 
  ENDM
  
 RDB      OPDEF  BJ 
+ RW B.BJ+0 
  ENDM
  
 RDBQ     OPDEF  BJ,K 
+ RW B.BJ+K 
  ENDM
 WT       SPACE  4,10 
***       WT - WRITE ECS NON-INTERPRETIVELY IN INTERPRETIVE MODE. 
* 
*         WT     K
*         WT     BJ 
*         WT     BJ+K 
* 
*         ENTRY  (BJ)+K = THE WORD COUNT FOR THE WRITE TRANSFER.
  
  
          PURGDEF WTQ 
          PURGDEF WTB 
          PURGDEF WTBQ
  
 WTQ      OPDEF  K
+ WW B0+K 
  ENDM
  
 WTB      OPDEF  BJ 
+ WW B.BJ+0 
  ENDM
  
 WTBQ     OPDEF  BJ,K 
+ WW B.BJ+K 
  ENDM
  
*         DEFINE AUXILLIARY OP-CODES. 
  
 WCBQ     CPOP   1,000B,020B
 RWBQ     CPOP   1,011B,020B
 WWBQ     CPOP   1,012B,020B
          SPACE  4,10 
          BASE   *
          ENDX
