*DECK     CMPLTXT 
          IDENT  CMPLTXT
 CMPLTXT  TITLE  CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT 
          STEXT 
          SST 
          LIST   F,X
          COMMENT  COMPILER PRODUCT"S ASSEMBLY TEXT   190=          SPAC
          SPACE  3
***       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT FOR COMPILERS
*         THAT USE CCG ( COMMON CODE GENERATOR ). 
* 
*         THIS TEXT CONTAINS SYMBOL, MACRO AND MICRO DEFINITIONS
*         NECESSARY TO ASSEMBLE THE HOST COMPILER.
*         THE TEXT IS DIVIDED UP INTO THE FOLLOWING SECTIONS -
*          INSTALLATION DEPENDENT INSTALLATION PARAMETERS.
*          STRUCTURED FIELD DEFINITION MACROS.
*          I/O CODING CONVENTIONS AND MACROS
*          GENERAL MACROS 
*          MACROS FOR DEBUGGING 
*         CCG FIELD DEFINITIONS, EQU"S AND MACROS.
*CALL     OPTIONS 
*CALL     COMADEF 
*CALL     CCOMGCM 
*CALL     CCGILFD 
 WC       SPACE  3,14 
 WRITEP   SPACE  3,14 
**        WRITEP - WRITE PSEUDO OP WORD TO *SLIST* FILE 
* 
*         ENTRY  (X6) = LOW 48 BITS OF PSEUDO OP WORD 
* 
*         WRITEP OPNAME 
  
 WRITEP   MACRO  OPCD 
          R=     B3,OC.OPCD 
          RJ     =XWPW# 
          ENDM
 ADDWRD   SPACE  3
**        ADDWRD - ADD WORD TO MANAGED TABLE. 
* 
*         ADDWRD TABLE,REG
*         ENTRY  *TABLE* = TABLE NUMBER.
*                *REG* = REGISTER NAME OR EXPRESSION FOR WORD TO ADD. 
*         USES   A0, X1.
  
          PURGMAC ADDWRD
 ADDWRD   MACRO  A,B
          R=     X1,B 
          R=     A0,=XZ$A 
          RJ     =XADW$ 
 ADDWRD   ENDM
 ALLOC    SPACE  3
**        ALLOC - ALLOCATE TABLE SPACE. 
* 
*         ALLOC  TABLE,WORDS
*         ENTRY  *TABLE* = TABLE NUMBER.
*                *WORDS* = WORD COUNT OF TABLE. 
  
          PURGMAC ALLOC 
 ALLOC    MACRO  A,B
          R=     X1,B 
          R=     A0,=XZ$A 
          RJ     =XATS$ 
 ALLOC    ENDM
  
          END 
