*COMDECK COMQCIO                   03NOV80
  
# 
      COMQCIO - CIO DEFINITIONS.
# 
  
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
# 
***   COMQCIO - CIO FUNCTION CODES AND CALLS. 
* 
*     CIORTN  - CIO FUNCTION CODE TO RETURN A FILE. 
# 
  
    DEF CIOCLR     #O"174"#;         # CLOSE, RETURN #
    DEF CIOCLU     #O"170"#;         # CLOSE, UNLOAD (EVICT) #
    DEF CIOREW     #O"50"#;         # REWIND #
    DEF CIOWEF     #O"034"#;         # WRITEF # 
  
    COMMON COMQCIO;                  # CIO DEFINITIONS #
      BEGIN  # COMMON BLOCK COMQCIO # 
# 
**    CIO RA+1 CALL DEFINITION. 
# 
      ARRAY CIO[0:0] S(1);
        BEGIN 
        ITEM $CIO       C(00,00,03) = ["CIO"];
        ITEM CIORCL     B(00,19,01);  # RECALL BIT #
        ITEM CIOADR     U(00,42,18);
        END 
  
      END  # COMMON BLOCK COMQCIO # 
  
      # END OF COMDECK COMQCIO #
                                               CONTROL LIST;
