&PL      PROC  &P,1                                                     AWA00010
AWAKE    NAME  0                                                        AWA00020
.*       AWAKE ECB-ADDR                                                 AWA00030
.*                                                                      AWA00040
.*       SUMMARY OF CODE GENERATED                                      AWA00050
.*       NOTE! LABELS ARE NOT GENERATED BY THE MACRO. THE DISPLACEMENTS AWA00060
.*             TO THE LABELS ARE CALCULATED AND GENERATED BY THE MACRO. AWA00070
.*                                                                      AWA00080
.*       NUMBER OF BYTES GENERATED IS BETWEEN 2 AND 14.                 AWA00090
.*                                                                      AWA00100
.*       P1 MAY BE AN ADDRESS, OR REGISTER 1, EXPRESSED AS (1) OR 1, OR AWA00110
.*       BLANK (BLANK MEANS MACRO APPLIES TO JOB STEP OR PRIMARY TASK). AWA00120
.*                                                                      AWA00130
.*                                                                      AWA00140
.*                                                                      AWA00150
.*       &AA IS DEFINED AS &P(1)=BLANK                                  AWA00160
.*       &BB IS DEFINED AS &P(1) IS DIFFERENT THAN 1 OR BLANK.          AWA00170
.*                                                                      AWA00180
.*       CODE GENERATED                 CONDITIONS                      AWA00190
.*       SR    1,1                      &AA                             AWA00200
.*       CNOP  0,4                      &BB                             AWA00210
.*       L     1,ACON1                  &BB                             AWA00220
.*       B     HERE                     &BB                             AWA00230
.* ACON1 DC    A(&P(1))                 &BB                             AWA00240
.* HERE  EQU   *                                                        AWA00250
.*       SVC   12                                                       AWA00260
.*                                                                      AWA00270
.*                                                                      AWA00280
         LCL   &AA,&BB,&X                                               AWA00290
&AA      SET   '&P(1)'=''                                               AWA00300
&BB      SET   ('&P(1)'='(1)')++('&P(1)'='1')++('&P(1)'='')=0           AWA00310
.*                                                                      AWA00320
&X       SET   '&PL.        '(1,8)                                      AWA00330
&X           DS    0H                                                   AWA00340
         DO    &AA                                                      AWA00350
                   SR    1,1                                            AWA00360
         ENDO                                                           AWA00370
         DO    (&BB=0)**(&AA=0)                                         AWA00380
         LA    1,0(1)                   CLEAR MS BYTE                   AWA00390
         ENDO                                                           AWA00400
         DO    &BB                                                      AWA00410
                   CNOP  0,4                                            AWA00420
                   L     1,*+8                                          AWA00430
                   B     *+8                                            AWA00440
                   DC    AL4(&P(1))                                     AWA00450
         ENDO                                                           AWA00460
                   SVC   12             AWAKE                           AWA00470
         END                                                            AWA00480
