MACRO                                                          00001000
&NM      DMSFRES &T,&TYPCALL=SVC                                        00002000
         LCLA  &C                                                       00003000
         AIF   ('&T' EQ 'CKON').CKON                                    00004000
         AIF   ('&T' EQ 'CKOFF').CKOFF                                  00005000
         AIF   ('&T' EQ 'INIT1').INIT1                                  00006000
         AIF   ('&T' EQ 'INIT2').INIT2                                  00007000
         AIF   ('&T' EQ 'CHECK').CHECK                                  00008000
         AIF   ('&T' EQ 'UREC').UREC                                    00009000
         AIF   ('&T' EQ 'CALOC').CALOC                                  00010000
         MNOTE 8,'ILLEGAL ARGUMENT &T'                                  00011000
         MEXIT                                                          00012000
.CALOC   ANOP                                                           00013000
&C       SETA  &C+1                                                     00014000
.UREC    ANOP                                                           00015000
&C       SETA  &C+1                                                     00016000
.CHECK   ANOP                                                           00017000
&C       SETA  &C+1                                                     00018000
.INIT2   ANOP                                                           00019000
&C       SETA  &C+1                                                     00020000
.INIT1   ANOP                                                           00021000
&C       SETA  &C+1                                                     00022000
.CKOFF   ANOP                                                           00023000
&C       SETA  &C+1                                                     00024000
.CKON    ANOP                                                           00025000
&C       SETA  &C+1                                                     00026000
.*                                                                      00027000
.*                                                                      00028000
&C       SETA  256*&C+10                                                00029000
         AIF   ('&TYPCALL' EQ 'BALR').BALR                              00030000
         AIF   ('&TYPCALL' EQ 'SVC').SVC                                00031000
         MNOTE 8,'TYPCALL NOT SVC OR BALR'                              00032000
         MEXIT                                                          00033000
.SVC     ANOP                                                           00034000
&NM      SVC   203                                                      00035000
         DC    H'&C'                   DMSFRES CODE                     00036000
         MEXIT                                                          00037000
.BALR    ANOP                                                           00038000
         USING NUCON,0                                                  00039000
&NM      MVC   CODE203,=H'&C'                                           00040000
         L     15,=V(DMSFRES)                                           00041000
         BALR  14,15                                                    00042000
         MEND                                                           00043000