         SYSTEM   SIG7FDP
         SYSTEM   BPM
PGMSEG0  CSECT    0
         USECT    PGMSEG0
         REF      DC1,SC1,INIT
         DEF      SSORT,RSORT,CCT01,LDTC,DCBADDR
         DEF      FINALEND
         REF      F:SORTIN,F:SORTOUT
* LEAVE ABOVE REF BEFORE F:SCRF1 SO THEY WILL LOAD FIRST
         REF      F:SCRF1,F:SCRF2,F:SCRF3,F:SCRF4,F:SCRF5,F:SCRF6
         REF      F:SCRF7,F:SCRF8,F:SCRF9,F:SCRF10,F:SCRF11,F:SCRF12
         REF      F:SCRF13,F:SCRF14,F:SCRF15,F:SCRF16,F:SCRF17
DCBADDR  DATA,4   F:SCRF1,F:SCRF2,F:SCRF3,F:SCRF4,F:SCRF5,F:SCRF6,;
                  F:SCRF7,F:SCRF8,F:SCRF9,F:SCRF10,F:SCRF11,F:SCRF12,;
                  F:SCRF13,F:SCRF14,F:SCRF15,F:SCRF16,F:SCRF17
CCT01    DATA     0                 1 IF MAIN PROG CALLED
SORTSAVE RES      15
BEGIN    LCI      15
         STM,1    SORTSAVE
         B        INIT
SSORT    RES      0
         BAL,1    SC1               SEQN SORT
         B        FINALEND
RSORT    RES      0
         BAL,1    DC1               RANDOM SORT
FINALEND RES      0
         M:FCP    1
         LCI      5
         LM,1     SORTSAVE
         LCI      6
         LM,10    SORTSAVE+9
         MTH,0    CCT01             IS IT SUB ROUTINE CALLED
         BEZ      ENDSORT1           YES
         M:EXIT
ENDSORT1 RES      0
,LDTC    M:LDTRC  'XXXXX'           LOAD AND TRANS TO CALLER
         END      BEGIN
