*DECK CALLCIO 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
USETEXT COMAFET 
PROC CALLCIO(CODE); 
# TITLE CALLCIO - CALL CIO.  #
  
      BEGIN  # CALLCIO #
  
# 
**    CALLCIO - CALL CIO. 
* 
*     CALLCIO GENERATES RA+1 CALLS TO CALL CIO. 
* 
*     PROC CALLCIO(CODE)
* 
*     ENTRY      CODE   - CIO CODE USED IN RA+1 CALL. 
*                CIORECALL - IF TRUE, RECALL IS USED ON THE CIO CALL. 
*                <FTTENT> = FWA FTT ENTRY.
* 
*     EXIT       RA+1 CALL IS MADE. 
*                FET CODE FIELD IS UPDATED. 
* 
*     PROCESS    PUT CODE IN FET. 
*                FORMAT RA+1 CALL.
*                CALL SYSTEM TO MAKE RA+1 REQUEST FOR CIO.
* 
# 
      ITEM CODE      I;              # CIO FUNCTION CODE #
  
# 
****  PROC CALLCIO - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC CALLSYS;                # MAKES RA+1 CALLS # 
        END 
  
# 
****  PROC CALLCIO - XREF LIST END. 
# 
                                               CONTROL EJECT; 
      P<LFET>  =  FTTFETADR;
      LFETEC = 0; 
      LFETCIOF[0]  =  CODE; 
      CIOFETADDR[0]  =  FTTFETADR;
      CALLSYS (CIOCALL);             # ISSUE I/O REQUEST #
  
      END    # CALLCIO #
  
      TERM
