Retro1.org codex

*DECK NP$CIO
*IF DEF,XFR 
USETEXT NX$ACBX 
PROC NP$CIO(CODE);
# TITLE NP$CIO - CALL CIO. FOR FILE TRANSFER APPLICATION ONLY  #
 
      BEGIN  # NP$CIO # 
 
# 
**    PROC NAME          AUTHOR         DATE
*     NP$CIO             L.T.NGUYEN     83/03/22
* 
*     CALLCIO GENERATES RA+1 CALLS TO CALL CIO. 
* 
*     PROC NP$CIO(CODE) 
* 
*     ENTRY      CODE   - CIO CODE USED IN RA+1 CALL. 
*                FTTINDEX  - INDEX INTO FTT TABLE ( GLOBAL )
* 
*     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.
* 
# 
      XREF
        BEGIN 
        PROC NP$CSYS ;
       END
      ITEM CODE      I;              # CIO FUNCTION CODE #
      P<FET$CIO>  =  FTTFETADR[FTTINDEX]; 
      FETEC = 0;
      FETCIOF[0]  =  CODE;
      FETEP[0] = TRUE ; 
      CIOFETADDR[0]  =  P<FET$CIO> ;
      NP$CSYS (CIOCALL);             # ISSUE I/O REQUEST #
 
      RETURN; 
      END    # NP$CIO # 
 
      TERM
*ENDIF