*DECK     CPCTEXT - SYSTEM TEXT FOR CPU PROGRAMS USING *CPC*. 
          IDENT  CPCTEXT
          STEXT 
          LIST   F,X
          TITLE  CPCTEXT - SYSTEM TEXT FOR CPU PROGRAMS USING *CPC*.
          COMMENT   SYSTEM TEXT FOR CPU PROGRAMS USING *CPC*. 
 CPCTEXT  SPACE  4
***       CPCTEXT - SYSTEM TEXT FOR CPU PROGRAMS USING *CPC*. 
* 
* 
*         CONTROL DATA  PROPRIETARY PRODUCT.
*         COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.
 CPCTEXT  SPACE  4
***              CPCTEXT CONTAINS ALL SYSTEM MACROS, MICROS,
*         AND SYMBOLS  FOR COMPASS CPU PROGRAMS THAT USE THE
*         CPU COMMUNICATION ROUTINE  (CPC)  FOR I/O  AND RUN
*         UNDER THE CDC CYBER OPERATING SYSTEM. 
 ACTCOM   SPACE  4
***       *CALL  ACTCOM      AT THIS IDENT+1
*CALL     ACTCOM             CPU PROGRAM SYSTEM ACTION REQUEST MACROS.
 COMAFET  SPACE  4
***       *CALL  COMAFET     AT THIS IDENT+1
*CALL     COMAFET            FILE ENVIRONMENT TABLE GENERATION MACROS.
 COMSRAS  SPACE  4
***       *CALL  COMSRAS     AT THIS IDENT+3
          TITLE  COMSRAS - SYSTEM COMMUNICATION SYMBOLS.
          SKIP   1           SKIP CTEXT CARD IN COMSRAS 
*CALL     COMSRAS            SYSTEM COMMUNICATION SYMBOLS.
 CPSYS    SPACE  4
***       *CALL  CPSYS       AT THIS IDENT+1
*CALL     CPSYS              CPU INPUT/OUTPUT MACROS USING *CPC*. 
 SISICOM  SPACE  4
          PURGMAC  RECALL 
RECALL    MACRO    LFN
          IFC      EQ,$LFN$$,3
  RJ =XCPC
+         VFD      18D/3RRCL,2/2,40D/0
          IFNE     0,0,3
+         SA1      =X_LFN 
  RJ =XCPC
+         VFD      18D/1,2/1,40D/777777B
          ENDM
***       *CALL  SISICOM     AT THIS IDENT+1
*CALL     SISICOM            INDEXED SEQUENTIAL MACROS. 
 END      SPACE  4
          END    CPCTEXT
