*DECK CALLRHF 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
USETEXT COMAFET 
PROC CALLRHF (SUBFUNC); 
# TITLE CALLRHF - CALL RHF SUBSYSTEM.  #
  
      BEGIN  # CALLRHF #
  
# 
**    CALLRHF - CALL RHF SUBSYSTEM. 
* 
*     CALLRHF GENERATES A CALL TO THE RHF SUBSYSTEM IN ORDER TO DO A
*     NETXFR FUNCTION.
* 
*     PROC CALLRHF (SUBFUNC)
* 
*     ENTRY      SUBFUNC  - FUNCTION CODE TO STUFF IN RHF FET.
*                <FTTENT> - FWA FTT ENTRY.
* 
*                NOTE: IF AUTO-RECALL IS REQUIRED, THE CALLING ROUTINE
*                  MUST SET THE RECALL BIT IN ARRAY SSCXCALL AND THEN 
*                  CLEAR IT AFTERWARDS. 
* 
*     EXIT       NONE.
* 
*     PROCESS    PUT SUBFUNC INTO RHF FET.
*                FORMAT RA+1 CALL.
*                CALL SYSTEM TO MAKE AN RA+1 REQUEST FOR SCP IN ORDER 
*                  TO PERFORM A NETXFR FUNCTION.
* 
# 
  
      ITEM SUBFUNC    I;             # RHF SUBFUNCTION CODE # 
  
# 
****  PROC CALLRHF - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        PROC CALLSYS;                # MAKES RA+1 CALLS # 
        END 
  
# 
****  PROC CALLRHF XREF LIST END. 
# 
                                               CONTROL EJECT; 
      RFETRHFF[0]  =  SUBFUNC;
      RHF$FETFC[0] = SUBFUNC;      # SAVE FET FUNCTION CODE # 
      SSCXPARAMA[0]  =  FTTPBLKADR; 
      CALLSYS (SSCXCALL);            # ISSUE I/O TO RHF SUBSYSTEM # 
      DBGXFT = DBGXFT + 1;
  
      END    # CALLRHF #
  
      TERM
