*DECK SMSORT
          IDENT  SMSORT 
          TITLE  SMSORT -  START PASSING PARAMETERS TO SORT 
  
          COMMENT  START PASSING PARAMETERS TO SORT 
          SPACE  4
**        SMSORT -  START PASSING PARAMETERS TO SORT
* 
*     CALLING SEQUENCE- 
*         SMSORT(<MRL>[,<BA>]); 
* 
*     GIVEN-
*         <MRL> = MAXIMUM RECORD LENGTH IN CHARACTERS.
*         <BA> = DESIRED NUMBER OF WORDS OF CENTRAL MEMORY TO BE USED 
*           BY SORT.
* 
*     DOES- 
*         SETS NPARMS = NUMBER OF PARAMETERS
*           (HOPEFULLY 1 OR 2)
*         CALLS S$SORT(N, <MRL>[,<BA>]) 
  
  
          ENTRY  SMSORT 
 SMSORT   SUBR
          CALL   S$CPARM     COUNT PARAMETERS, SET APLIST 
          CALL   S$SORT      PROCESS PARAMETERS 
          EXIT
  
  
          END 
