* /* MACCOMP Y-1 SC1C5/PZD81                                         */ 01050002
* /* MACSTAT Y-1 72277                                               */ 01100002
         MACRO                                                          01110002
&NAME    STIMER &TYPE,&EXIT,&DINTVL=,&BINTVL=,&TUINTVL=,&TOD=,&MICVL=,&*02000002
               GMT=,&ERRET=                                             03000002
* /* MACDATE Y-1 72277                                               */ 03050002
         LCLB  &B(9)                                                    04000002
         LCLA  &SUM                                                     05000002
         AIF   ('&TYPE' EQ '' OR '&DINTVL&BINTVL&TUINTVL&TOD&MICVL&GMT'*06000002
                EQ '').E2                                               07000002
         AIF   ('&EXIT' NE '' AND '&TYPE' EQ 'WAIT').NMNOTE      A26596 08000002
&B(1)    SETB  ('&TYPE' EQ 'TASK')                                      09000002
&B(2)    SETB  ('&TYPE' EQ 'REAL')                                      10000002
&B(3)    SETB  ('&TYPE' EQ 'WAIT')                                      11000002
&B(4)    SETB  ('&DINTVL' NE '')                                        12000002
&B(5)    SETB  ('&BINTVL' NE '')                                        13000002
&B(6)    SETB  ('&TUINTVL' NE '')                                       14000002
&B(7)    SETB  ('&TOD' NE '')                                           15000002
&B(8)    SETB  ('&MICVL' NE '')                                         16000002
&B(9)    SETB  ('&GMT' NE '')                                           17000002
         AIF   (&B(1)+&B(2)+&B(3) NE 1).E1                              18000002
         AIF   (&B(1) AND (&B(7) OR &B(9))).E3                          19000002
&NAME    IHBINNRA &DINTVL&BINTVL&TUINTVL&TOD&MICVL&GMT,&EXIT            20000002
         AIF   ('&ERRET' EQ '').NORET                                   21000002
&SUM     SETA  8                                  RETURN CODE FLAG      22000002
.NORET   AIF   ('&EXIT' NE '').CONTA                                    23000002
         AIF   (&B(1) AND &B(6)).SRSVC                                  24000002
&SUM     SETA  &SUM+&B(3)+3*&B(2)+16*&B(5)+48*&B(4)+112*&B(7)+32*&B(8)+*25000002
               96*&B(9)                                                 26000002
.LC      LA    0,&SUM.(0,0)                       LOAD FLAG BYTE        27000002
.ZSHIFT  SLL   0,24(0)                           SHIFT TO HI-ORDER BYTE 28000002
         AGO   .SVC                                                     29000002
.SRSVC   AIF   (&SUM NE 0).LC                     TEST FOR RC REQUESTED 30000002
         SR    0,0                                INDICATE TASK,TUINTVL 31000002
         AGO   .SVC                                                     32000002
.SPZRT   LA    0,48+&SUM.(0,0)                    LOAD FLAG BYTE        33000002
         AGO   .ZSHIFT                                                  34000002
.CONTA   AIF   (&B(1) AND &B(6)).RETCK                                  35000002
&SUM     SETA  &SUM+3*&B(2)+16*&B(5)+48*&B(4)+112*&B(7)+32*&B(8)+96*&B(*36000002
               9)                                                       37000002
.LCEX    LA    14,&SUM.(0,0)                                            38000002
.SHIFT   SLL   14,24(0)                          SHIFT TO HI-ORDER BYTE 39000002
         OR    0,14                              AND PACK WITHEXIT ADDR 40000002
         AGO   .SVC                                                     41000002
.RETCK   AIF   (&SUM NE 0).LCEX                   TEST FOR RC REQUESTED 42000002
.SVC     SVC   47                                ISSUE STIMER SVC       43000002
         AIF   ('&ERRET' EQ '').DONE                                    44000002
         LTR   15,15                   ANY RETURN CODE                  45000002
         AIF   ('&ERRET'(1,1) EQ '(').BCR                               46000002
         BNZ   &ERRET                  YES. BR TO USER EXIT             47000002
         AGO   .DONE                                                    48000002
.BCR     BCR   7,&ERRET(1)                                              49000002
.DONE    MEXIT                                                          50000002
.SPECRT  LA    14,48+&SUM.(0,0)                   LOAD FLAG BYTE        51000002
         AGO   .SHIFT                                                   52000002
.NMNOTE  ANOP                                                    A26596 53000002
         MNOTE 12,'WAIT AND EXIT ADDRESS INVALID'                A26596 54000002
         MEXIT                                                          55000002
.E3      ANOP                                                           56000002
         MNOTE 16,'TASK WITH GMT OR TOD INVALID'                        57000002
         MEXIT                                                          58000002
.E1      IHBERMAC 36,,&TYPE,,,0                                         59000002
         MEXIT                                                          60000002
.E2      IHBERMAC 01                                                    61000002
         MEXIT                                                          62000002
         MEND                                                           63000002