*DECK SM5FAST 
          PROC SM5FAST(YESNO);
  
#**       SM5FAST -  SET RAW PARAMETER OF FAST I/O                     #
#                                                                      #
#     CALLING SEQUENCE:                                                #
#         CALL SM5FAST                                                 #
#                                                                      #
#     DOES:                                                            #
#IF CALLED IN THE WRONG ORDER,                                         #
#             ISSUE A DIAGNOSTIC, AND                                  #
#             RETURN.                                                  #
#         IF *YESNO* = "YES",                                          #
#             SAVE RAW PARAMETER OF "FASTIO"                           #
  
  
          BEGIN 
          ITEM  YESNO        C(10);    # "YES" OR "NO"                 #
  
*CALL A 
  
*CALL E$
  
*CALL RP$ 
  
*CALL SQ$ 
  
          XREF
              BEGIN 
              PROC  S$ERROR;           # HANDLE A USER ERROR           #
              FUNC  S$INSEQ  B;        # TRUE IFF CALL IN SEQUENCE     #
              PROC  S$SVREL;           # SAVE RAW PARAM. FROM RELOC.   #
              END 
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
#     IF CALLED IN THE WRONG ORDER,                                    #
#         ISSUE A DIAGNOSTIC, AND                                      #
#         RETURN.                                                      #
  
          IF NOT S$INSEQ(SQ$"SM5FAST") THEN 
              BEGIN 
              S$ERROR(E$110);          # CALL OUT OF SEQUENCE          #
#***#         RETURN; 
              END 
  
#     IF *YESNO* = "YES" THEN                                          #
#         SAVE RAW PARAMETER OF "FASTIO"                               #
  
          IF (C<0,3>YESNO EQ "YES") 
                      OR
             (C<0,1>YESNO EQ "Y") THEN
              BEGIN 
              RP$TYPE = RP$T"FASTIO"; 
              S$SVREL(RP$); 
              END 
  
          END  # SM5FAST #
          TERM
