*COMDECK     COMCPUIO  - COMMON INPUT/OUTPUT ROUTINES.
          IPARAMS 
          SYSCOM B1 
          TITLE  CPUCIO - COMMON INPUT/OUTPUT ROUTINES. 
          COMMENT  COMMON INPUT/OUTPUT ROUTINES.
 CPUCIO   SPACE  4,8
**        CPUCIO - COMMON INPUT/OUTPUT ROUTINES.
* 
*         R. H. GOODELL.     76/07/26.
* 
*         CPUCIO CONTAINS THE STANDARD I/O COMMON DECKS.
  
  
*CALL     COMCCIO            I/O FUNCTION PROCESSOR.
          ENTRY  CIO= 
*CALL     COMCRDC            READ CODED LINE, -C- FORMAT. 
          ENTRY  RDC= 
*CALL     COMCRDH            READ CODED LINE, -H- FORMAT. 
          ENTRY  RDH= 
*CALL     COMCRDO            READ ONE WORD. 
          ENTRY  RDO= 
*CALL     COMCRDS            READ CODED LINE TO STRING BUFFER.
          ENTRY  RDS= 
*CALL     COMCRDW            READ WORDS TO WORKING BUFFER.
          ENTRY  RDW= 
*CALL     COMCWTC            WRITE CODED LINE, -C- FORMAT.
          ENTRY  WTC= 
*CALL     COMCWTH            WRITE CODED LINE, -H- FORMAT.
          ENTRY  WTH= 
*CALL     COMCWTO            WRITE ONE WORD.
          ENTRY  WTO= 
*CALL     COMCWTS            WRITE CODED LINE FROM STRING BUFFER. 
          ENTRY  WTS= 
*CALL     COMCWTW            WRITE WORDS FROM WORKING BUFFER. 
          ENTRY  WTW= 
  
 CMUR     EQU    RA.CMU      SIGN BIT IS CMU-AVAILABLE FLAG 
  
  
          END 
