* RETURN SORTED RECORD                                  HEADER  C:RETN  0001.000
*                                                                       0002.000
*                                                                       0003.000
*              RETURN SORTED RECORD                                     0004.000
*                                                                       0005.000
         M.PGM     C:RETN,MPX-32,3.6.1,00                               0006.000
*                                                                       0007.000
*    CALLING SEQUENCE                                                   0008.000
*        BL        C:RETN                                               0009.000
*        DATAW     RETATTR        RETURN ATTRIBUTES                     0010.000
*        AC        FIT            RETURN FILE IDENTIFICATION TABLE      0011.000
*        AC        SCB            SORT CONTROL BLOCK                    0012.000
*                                                                       0013.000
         DEF       C:RETN                                               0014.000
         EXT       SORTERR                                              0015.000
*                                                                       0016.000
         M.REQS                                                         0017.000
* PARAMETER DISPLACEMENTS                                               0018.000
RTNATTR  EQU       0                                                    0019.000
FITDSP   EQU       1W                                                   0020.000
SCBDSP   EQU       2W                                                   0021.000
* SORT CONTROL BLOCK LAYOUT                                             0022.000
SCBRA    EQU       3W              SORT RECORD ADDRESS                  0023.000
SCBRL    EQU       4W              RECORD LENGTH                        0024.000
SCBSTS   EQU       8W              SORT STATUS                          0025.000
SCBRTN   EQU       20W             INPUT/OUTPUT PROCEDURE RTN           0026.000
* FILE IDENTIFICATION TABLE LAYOUT                                      0027.000
STATFLD  EQU       -2W             STATUS FIELD                         0028.000
RECLOC   EQU       9W              ADDRESS OF RECORD AREA               0029.000
*                                                                       0030.000
EOS      EQU       X'1'            END OF SORT MASK                     0031.000
*                                                                       0032.000
C:RETN  EQU       $                                                     0033.000
         TRR       R0,R1                                                0034.000
         LW        R2,SCBDSP,X1    R2 -> SCB                            0035.000
         LW        R3,FITDSP,X1    R3 -> FIT                            0036.000
         ADI       R0,3W                                                0037.000
         LW        R7,SCBSTS,X2    CHECK END-OF-SORT                    0038.000
         BZ        RET090                                               0039.000
         CI        R7,EOS          CHECK SORT ERROR                     0040.000
         BCT       EQ,RETXIT                                            0041.000
         LW        R5,=G'SZ05'                                          0042.000
         BL        SORTERR                                              0043.000
RET090   EQU       $                                                    0044.000
         LW        R6,RTNATTR,X1   CHECK AT-END ATTRIBUTE               0045.000
         TBR       R6,31                                                0046.000
         BCF       SET,RET100                                           0047.000
         ADI       R0,2W                                                0048.000
*                                                                       0049.000
RET100   EQU       $                                                    0050.000
         LW        R7,SCBRL,X2     LOAD RECORD LENGTH                   0051.000
         LW        R3,RECLOC,X3    R3 -> FIT RECORD ADDRESS             0052.000
         ADR       R3,R7           R7 -> END OF USER RECORD             0053.000
         LW        R1,SCBRA,X2     R1 -> SORT RECORD ADDRESS            0054.000
RET250   EQU       $                                                    0055.000
         LB        R6,0,X1                                              0056.000
         STB       R6,0,X3                                              0057.000
         ABR       R1,31                                                0058.000
         ABR       R3,31                                                0059.000
         CAR       R3,R7                                                0060.000
         BCF       EQ,RET250                                            0061.000
RETXIT   EQU       $                                                    0062.000
         TRSW      R0                                                   0063.000
         END                                                            0064.000
