* SORT EOF                                              HEADER  C:SREF  0001.000
*                                                                       0002.000
*              SORT EOF                                                 0003.000
*                                                                       0004.000
         M.PGM     C:SREF,MPX-32,3.6.1,00                               0005.000
*                                                                       0006.000
*    CALLIING SEQUENCE                                                  0007.000
*        BL        C:SREF                                               0008.000
*        AC        SCB            A(SORT CONTROL BLOCK)                 0009.000
*        AC        JET            RETURN ENTRY JET                      0010.000
*                                                                       0011.000
         DEF       C:SREF                                               0012.000
*                                                                       0013.000
         M.REQS                                                         0014.000
* PARAMETER DISPLACEMENTS                                               0015.000
SCBDSP   EQU       0                                                    0016.000
JETDSP   EQU       1W                                                   0017.000
* SORT CONTROL BLOCK LAYOUT                                             0018.000
SCBSTS   EQU       8W             SORT STATUS                           0019.000
SCBRTN   EQU       20W            INPUT/OUTPUT PROCEDURE RTNS           0020.000
*                                                                       0021.000
EOS      EQU       X'1'            END OF SOURCE MASK                   0022.000
*                                                                       0023.000
C:SREF   EQU       $                                                    0024.000
         TRR       R0,R1                                                0025.000
         LW        R2,SCBDSP,X1   R2 -> SCB                             0026.000
         LW        R3,JETDSP,X1   R3 -> JET                             0027.000
         LI        R7,EOS         INDICATE SORT END OF FILE             0028.000
         ORMW      R7,SCBSTS,X2                                         0029.000
         STW       R7,SCBSTS,X2                                         0030.000
         ZMW       0,X3           ZER0 JET ENTRY                        0031.000
         ZMW       1W,X3                                                0032.000
         ABR       R0,28                                                0033.000
         TRSW      R0                                                   0034.000
         END                                                            0035.000
