&LABL    PROC  &X,1                                                     MR$00010
MA#P7    NAME                                                           MR$00020
MR$OPN   NAME           .SORT OPEN                           . 06/06/72 MR$00030
&LABL    XR    0,0                                                      MR$00040
         L     15,=A(MR$ORT)                                            MR$00050
         DO    '&X(1)'=''                                               MR$00060
         PNOTE *,'SORT ASSUMES REGISTER 1 CONTAINS MR$PRM ADDRESS'      MR$00070
         GOTO  .SKIP                                                    MR$00080
         ENDO                                                           MR$00090
         DO    '&X(1)'='(1)'                                            MR$00100
         GOTO  .SKIP                                                    MR$00110
         ENDO                                                           MR$00120
         L     1,=A(&X(1))                                              MR$00130
.SKIP    LABEL                                                          MR$00140
         BALR  14,15                                                    MR$00150
         END                                                            MR$00160
