*DECK C$IOSET 
          IDENT  C$IOSET
          TITLE  C$IOSET - SET UP COLLATING SEQUENCE FOR AAM FILES
,ILES 
          MACHINE  ANY,I
  
          SST 
          COMMENT  SET UP I/O COLL SEQS 
          B1=1
 C.IOSET  SPACE  4
**        C.IOSET - SET UP COLLATING SEQENCE FOR IS, AK AND DA FILES
* 
*         CALLED BY CBAKOC, CBDAOC, CBISOC
*         CALLING SEQ:  
*         SA0    FIT
*         . 
*         . 
*         . 
*         RJ     =XC.IOSET
* 
*         IF CMU MODE, WE SIMPLY PUT THE ADDR IN C.PRGCS INTO THE -DCT- 
*                FIELD IN THE FIT.
* 
* 
*         REGISTERS USED: 
*                X  - - - - - 5 6 7 
*                A  - - - - - 5 6 - 
*                B  - - - 3 4 - 6 7 
*         ENTRY POINT:  
          ENTRY  C.IOSET
* 
*CALL CCPARCM 
  
  
 C.IOSET  DATA   0
          STORE  A0,CDT=0    CLEAR COLLATING TO DISPLAY - CRM SETS IT 
          SA2    =XC.CCPAR   GET CONTROL CARD PARAMETERS
          LX2    59-#AUDIT
          PL     X2,SETCS    JP IF ANSI=AUDIT NOT SPECIFIED 
          STORE  A0,DCT=0    AUDIT TESTS BEING RUN - USE DEFAULT
          EQ     C.IOSET
 SETCS    BSS    0
          SA5    =XC.PRGCS
          STORE  A0,DCT=X5
          EQ     C.IOSET
  
          END 
