* SORT OUTPUT EXIT                                      HEADER  C:SOX   0001.000
*                                                                       0002.000
*               SORT OUTPUT EXIT                                        0003.000
*                                                                       0004.000
         M.PGM     C:SOX,MPX-32,3.6.1,00                                0005.000
*                                                                       0006.000
*    CALLING  SEQUENCE                                                  0007.000
*        BL        C:SOX                                                0008.000
*        AC        SCB            SORT CONTROL BLOCK                    0009.000
*        ACW       JET            JET RETURN                            0010.000
*                                                                       0011.000
         DEF       C:SOX                                                0012.000
*                                                                       0013.000
         M.REQS                                                         0014.000
* PARAMETER DISPLACEMENTS                                               0015.000
SCBDSP   EQU       0W                                                   0016.000
JETDSP   EQU       1W                                                   0017.000
* SORT CONTROL BLOCK LAYOUT                                             0018.000
SCBRA    EQU       3W              SORT RECORD ADDRESS                  0019.000
SCBSTS   EQU       8W              SORT STATUS                          0020.000
SCBRTN   EQU       20W             INPUT/OUTPUT PROCEDURE RTN           0021.000
*                                                                       0022.000
C:SOX   EQU       $                                                     0023.000
         TRR       R0,R1                                                0024.000
         LW        R2,SCBDSP,X1    R2 -> SCB                            0025.000
         LW        R3,JETDSP,X1    R3 -> JET                            0026.000
         ADI       R0,2W                                                0027.000
*                                                                       0028.000
         LW        R6,0W,X3        R6 = JET0                            0029.000
         LW        R7,1W,X3        R7 = JET1                            0030.000
         LW        R5,=X'0000FFFF'                                      0031.000
         STW       R5,0W,X3                                             0032.000
         STW       R0,1W,X3                                             0033.000
         CI        R6,0                                                 0034.000
         BCF       EQ,*SCBRTN,X2                                        0035.000
         CI        R7,0                                                 0036.000
         BCF       EQ,*SCBRTN,X2                                        0037.000
         TRSW      R0                                                   0038.000
         END                                                            0039.000
