DAY01PGM CSECT                         STANDARD ALC ENTRY CODE          00010000
         USING *,12                    STANDARD ALC ENTRY CODE          00020000
         STM   14,12,12(13)            STANDARD ALC ENTRY CODE          00030000
         LR    12,15                   STANDARD ALC ENTRY CODE          00040000
         LR    14,13                   STANDARD ALC ENTRY CODE          00050000
         LA    13,SAVE                 STANDARD ALC ENTRY CODE          00060000
         ST    13,8(14)                STANDARD ALC ENTRY CODE          00070000
         ST    14,SAVE+4               STANDARD ALC ENTRY CODE          00080000
         WTO   'HELLO ABEND! (#1)'     MESSAGE - BEFORE COMPUTATION     00090006
         AP    COUNTER1,COUNTER2       ADD TWO PACKED FIELDS            00100006
         WTO   'HELLO ABEND! (#2)'     MESSAGE - AFTER COMPUTATION      00110006
EXIT0    L     13,SAVE+4               STANDARD ALC EXIT CODE           00120006
         LM    14,12,12(13)            STANDARD ALC EXIT CODE           00130006
         LA    15,0                    STANDARD ALC EXIT CODE           00140006
         BR    14                      STANDARD ALC EXIT CODE           00150006
SAVE     DC    18F'0'                  OUR SAVE AREA                    00160000
COUNTER1 DC    PL4'1'                  OUR 1ST COUNTER SET TO 1         00170006
COUNTER2 DS    PL4                     OUR 2ND COUNTER SET TO 2         00180006
         END   ,                       END OF PROGRAM                   00190006