* SORT RETURN                                           HEADER  C:SRTX  0001.000
*                                                                       0002.000
*                  SORT RETURN                                          0003.000
*                                                                       0004.000
         M.PGM     C:SRTX,MPX-32,3.6.1,00                               0005.000
*                                                                       0006.000
*    CALLIING SEQUENCE                                                  0007.000
*        BL        C:SRTX                                               0008.000
*        AC        SCB            A(SORT CONTROL BLOCK)                 0009.000
*                                                                       0010.000
         DEF       C:SRTX                                               0011.000
*                                                                       0012.000
         M.REQS                                                         0013.000
* PARAMETER DISPLACEMENTS                                               0014.000
SCBDSP   EQU       0                                                    0015.000
* SORT CONTROL BLOCK LAYOUT                                             0016.000
SCBRTN   EQU       20W            INPUT/OUTPUT PROCEDURE RTNS           0017.000
*                                                                       0018.000
C:SRTX   EQU       $                                                    0019.000
         TRR       R0,R1                                                0020.000
         LW        R2,0,X1                                              0021.000
         BU        *SCBRTN,X2                                           0022.000
         END                                                            0023.000
