       TCD     *                                                        COSP0070
       REM     MNEMONIC EQUIVALENCES FOR NON-DATA SELECT CALLS          COSP0080
       REM                                                              COSP0090
 .RDC. EQU     0              RESET DATA CHANNEL (NOP)                  COSP0100
 .SDL. EQU     1              SET DENSITY LOW                           COSP0110
 .SDH. EQU     2              SET DENSITY HIGH                          COSP0120
 .REW. EQU     3              REWIND                                    COSP0130
 .RUN. EQU     4              REWIND AND UNLOAD                         COSP0140
 .BSR. EQU     5              BACKSPACE RECORD                          COSP0150
 .BSF. EQU     6              BACKSPACE FILE                            COSP0160
 .WEF. EQU     7              WRITE END OF FILE                         COSP0170
 DBLSP EQU     4*512          SPR EXIT FOR DOUBLE SPACE                 COSP0180
       ORG     SYSCUR                                                   COSP0200
       BCI     1,COSP                                                   COSP0210
       ORG     SYSTRA                                                   COSP0220
       TTR     COSP                                                     COSP0230
       ORG     8192                                                     COSP0240
COSP   TSX    .NDATA,4                                                  COSP0250
       PZE     SYSUT2,,.REW.                                            COSP0250
       TSX     .NDATA,4                                                 COSP0250
       PZE     SYSUT1,,.REW.                                            COSP0250
       TSX     ACTBEG,4                                                 COSP0250
       PZE     SYSUT2,1,8443                                            COSP0250
       PZE     COSPA,,COSPA                                             COSP0250
       TSX     ACTBEG,4                                                 COSP0250
       PZE     SYSUT1,1,8452                                            COSP0250
       MPY     MP1,,MP1                                                 COSP0250
       TSX     .NDATA,4                                                 COSP0250
       PZE     SYSUT2,,.WEF.                                            COSP0250
       TRA     COSPA+1                                                  COSP0250
       TSX     ACTBEG,4                                                 COSP0250
       PZE     SYSUT2,1,8413                                            COSP0250
       PZE     COSPA,,COSPA                                             COSP0250
       CLA     SYSJOB                                                   COSP0250
       SSP                                                              COSP0250
       STO     SYSJOB                                                   COSP0250
COSPX  CAL     LIST                                                     COSP0250
       SLW     SYSIN1                                                   COSP0250
       TSX     .NDATA,4                                                 COSP0250
       PZE     SYSUT2,,.REW.                                            COSP0250
       TSX     .NDATA,4                                                 COSP0250
       PZE     SYSUT1,,.REW.                                            COSP0250
COSPB  TRA     SYSRET                                                   COSP0250
COSPA  TRA     *+1                                                      COSP0250
       TSX     .PROUT,4                                                 COSP0250
       PZE     2,,0                                                     COSP0250
       PZE     M1,,14+DBLSP                                             COSP0250
       PZE     M2,,14+DBLSP                                             COSP0250
COSPC  TSX     .PAUSE,4                                                 COSP0250
       SWT     1                                                        COSP0250
       TRA     COSP                                                     COSP0250
       CLA     IBSNXT                                                   COSP0250
       STO     SYSGET                                                   COSP0250
       CLA     SYSJOB                                                   COSP0250
       SSM                                                              COSP0250
       STO     SYSJOB                                                   COSP0250
       TRA     SYSRET                                                   COSP0250
MP1    TSX     .PROUT,4                                                 COSP0250
       PZE     2,,0                                                     COSP0250
       PZE     M3,,14+DBLSP                                             COSP0250
       PZE     M2,,14+DBLSP                                             COSP0250
       TRA     COSPC                                                    COSP0250
M1     BCI     9, ERROR WRITING ON UNIT A 4. TO RETRY  PUSH START.      COSP0250
M2     BCI     9, TO GO TO NEXT JOB SET SSW 1 DOWN AND PUSH START.      COSP0250
M3     BCI     9, ERROR WRITING ON UNIT B11. TO RETRY  PUSH START.      COSP0250
C1     BCI     9,$EXECUTE   IBJOB                                       COSP0250
C2     BCI     9,$IBJOB     NOSOURCE                                    COSP0250
C3     BCI     9,$IBLDR  COSPS LIBE                                     COSP0250
C4     BCI     9,$ENTRY     COSPS                                       COSP0250
C5     BCI     9,$ATTACH    B1                                          COSP0250
C6     BCI     9,$AS        SYSCK1                                      COSP0250
C7     BCI     9,$SWITCH    SYSIN1,SYSUT2                               COSP0250
C8     BCI     9,$SWITCH    SYSIN2,SYSCHK1                              COSP0250
C9     BCI     9,$ATTACH    B5                                          COSP0250
C10    BCI     9,$AS        SYSUT2                                      COSP0250
IBS    BCI     9,$IBSYS                                                 COSP0250
REST   BCI     9,$RESTORE                                               COSP0250
       TIX     C9,,14                                                   COSP0250
       TIX     C10,,14                                                  COSP0250
       TIX     C5,,14                                                   COSP0250
       TIX     C6,,14                                                   COSP0250
       TIX     C8,,14                                                   COSP0250
       TIX     C1,,14                                                   COSP0250
       TIX     C2,,14                                                   COSP0250
       TIX     C3,,14                                                   COSP0250
       TXH     C4,,14                                                   COSP0250
       TXH     C7,,14                                                   COSP0250
LIST   MZE     500,,4                                                   COSP0250
IBSNXT BCI     9,IBSNXT                                                 COSP0250
       ORG     COSPX                                                    COSP0250
L20023 CAL     SYSUT1                                                   COSP0250
       ORG     COSPB                                                    COSP0250
       TRA     IBSNXT+3                                                 COSP0250
       ORG     IBSNXT+3                                                 COSP0250
       CLA     ACTDAT+5                                                 COSP0250
       TNZ     *+3                                                      COSP0250
       CLA     *+3                                                      COSP0250
       STO     ACTDAT+5                                                 COSP0250
       TRA     SYSRET                                                   COSP0250
       PZE     50000,,0                                                 COSP0250
       END     0                                                        COSP0250
