&PL      PROC  &P,4                                                     CCB00010
CCB      NAME                                                           CCB00020
*                                                                       CCB00030
*        COMMAND CONTROL BLOCK                                          CCB00040
*                                                                       CCB00050
         LCL   &IO$P3                                                   CCB00060
         LCL   &IO$CK                                                   CCB00070
         LCL   &X                                                       CCB00080
&X       SET   '&PL.        '(1,8)                                      CCB00090
&X DS    0F                                                             CCB00100
         DC    X'0'                     CONTROL 1                       CCB00110
         DC    X'0'                     I/O COUNT                       CCB00120
         DC    X'80'                    TRANSMISSION                    CCB00130
         DO    '&P(4)'=''                                               CCB00140
         DC    X'0'                     CONTROL 2                       CCB00150
         GOTO  .IO$1                                                    CCB00160
         ENDO                                                           CCB00170
         DC    AL1(&P(4))               CONTROL 2                       CCB00180
.IO$1    LABEL                                                          CCB00190
         DC    A(0)                     NEXT CCW ADDRESS                CCB00200
         DC    A(0)                     RESIDUAL BYTE COUNT             CCB00210
         DC    A(&P(2))                 COMMAND ADDRESS WORD            CCB00220
         DO    '&P(3)'=''                                               CCB00230
&IO$P3   SET   0                                                        CCB00240
         GOTO  .IO$PIO                                                  CCB00250
         ENDO                                                           CCB00260
&IO$P3   SET   &P(3)                                                    CCB00270
         DO    &IO$P3>16                                                CCB00280
         PNOTE 'P','PARAMETER 3 > 16'                                   CCB00290
         ENDO                                                           CCB00300
&IO$CK   SET   &IO$P3**1                                                CCB00310
         DO    &IO$CK>0                                                 CCB00320
         PNOTE 'P','PARAMETER 3 ODD'                                    CCB00330
         ENDO                                                           CCB00340
.IO$PIO  LABEL                                                          CCB00350
         DC    A(&P(1)+&IO$P3+14)  PIOCB POINTER                        CCB00360
         DC    XL8'0'                   SENSE + STATUS                  CCB00370
         END                                                            CCB00380
