MACRO                                                          02000000
&NAME    CMWTO &MT=,&MSG=,&REG=,&WAIT=NO,&DISP=,&SIZE=                  04000000
         LCLA  &D                                                       06000000
         AIF   (T'&REG NE 'O').A1                                       08000000
         AIF   (T'&MT NE 'O' AND T'&MSG NE 'O').A4                      10000000
         MNOTE 8,'MT AND/OR MSG OPERANDS MISSING'                       12000000
         MEXIT                                                          14000000
.A4      ANOP                                                           16000000
&D       SETA  (&MSG-1)*4                                               18000000
&NAME    L     R1,&MT .                 MESSAGE MODULE ADDRESS          20000000
         L     R1,&D.(R1) .               MESSAGE ADDRESS               22000000
         AGO   .A5                                                      24000000
.A1      ANOP                                                           26000000
         AIF   ('&REG' EQ '(1)').A2                                     28000000
&NAME    LR    R1,&REG .                MESSAGE ADDRESS                 30000000
         AGO   .A5                                                      32000000
.A2      ANOP                                                           34000000
&NAME    DS    0H .                     NAME FIELD OF ROUTINE           36000000
.A5      ANOP                                                           38000000
         AIF   ('&DISP' EQ '6').A3                                      40000000
         AIF   ('&WAIT' EQ 'YES').A3                                    42000000
         OI    CESWT4,X'20' .           NO WAIT REQUESTED               44000000
.A3      ANOP                                                           46000000
         AIF   (T'&SIZE EQ 'O').A6                                      48000000
         AIF   ('&SIZE'(1,1) EQ '(').A7                                 50000000
         MVI   0(R1),&SIZE .               SIZE OF REPLY                52000000
         AGO   .A6                                                      54000000
.A7      ANOP                                                           56000000
         STC   &SIZE,0(R1) .               SIZE OF REPLY                58000000
.A6      ANOP                                                           60000000
         L     R15,PARPRADR .           ENTRY TO PARALLEL PRINT         62000000
         LA    R15,&DISP.(R15) .            ENTRY POINT IN DPRINT       64000000
         BALR  R14,R15 .                LINK TO MODULE                  66000000
         MEND                                                           68000000