*DECK SMEND 
          PROC  SMEND;
  
*CALL COPYRIGHT 
#**       SMEND -  END PARAMETER-GATHERING AND START SORT/MERGE        #
#                                                                      #
#     CALLING SEQUENCE-                                                #
#         CALL SMSORT        (E.G.)                                    #
#         ...                                                          #
#         CALL SMEND                                                   #
#                                                                      #
#     DOES-                                                            #
#         THIS ENDS PARAMETER-GATHERING (VIA CALLS TO SM<XXX>) AND     #
#         STARTS SORT/MERGE PROCESSING.                                #
#                                                                      #
#     NOTE-                                                            #
#         THIS AND THE OTHER SM<XXX> PROCEDURES ARE 100 PER CENT       #
#         EXTERNALLY COMPATIBLE WITH SORT4 PROCEDURES OF THE SAME NAME.#
  
  
          BEGIN 
  
*CALL A 
  
*CALL E$
  
*CALL SQ$ 
  
          XREF
              BEGIN 
              PROC  S$ERROR;             # HANDLE INTERNAL ERROR       #
              FUNC  S$INSEQ  B;        # IFF CALL IN SEQUENCE          #
              PROC  S$LOADM;           # LOAD MAIN MODULE              #
              END 
  
          XREF
*CALL S$CALLR 
  
  
          ITEM  UNUSED       I;        # NO. OF UNUSED WORDS IN BLOCK  #
  
CONTROL DISJOINT; 
  
CONTROL INERT;
  
CONTROL EJECT;
  
  
#     IF CALLED OUT OF ORDER,                                          #
#         DIAGNOSE, AND                                                #
#         EXIT.                                                        #
  
          IF NOT S$INSEQ(SQ$"SMEND") THEN 
              BEGIN 
#***#         S$ERROR(E$110);          # CALL OUT OF SEQUENCE          #
              END 
  
#     EXECUTE SORT/MERGE                                               #
  
          S$CALLR = 3;                 # NOTE TYPE OF CALLER           #
          S$LOADM;                     # (LOAD AND) EXECUTE SORT/MERGE #
  
  
          END  # SMEND #
          TERM
