MACRO                                                          00001000
&N       DMSKEY &TYPE,&STACK                                            00002000
         LCLA  &C                                                       00003000
         LCLB  &TU,&TR,&TN,&TL,&NS                                      00004000
&TN      SETB  ('&TYPE' EQ 'NUCLEUS')                                   00005000
&TR      SETB  ('&TYPE' EQ 'RESET')                                     00006000
&TU      SETB  ('&TYPE' EQ 'USER')                                      00007000
&TL      SETB  ('&TYPE' EQ 'LASTUSER')                                  00008000
         AIF   (&TN OR &TR OR &TU OR &TL).OK                            00009000
         MNOTE 8,'DMSKEY001E ARG NOT ''USER'', ''RESET'', ''NUCLEUS'' O*00010000
               OR ''LASTUSER'''                                         00011000
         MEXIT                                                          00012000
.OK      ANOP                                                           00013000
&NS      SETB  ('&STACK' EQ 'NOSTACK')                                  00014000
&C       SETA  256*(&TN+2*&TR+4*&TU+8*&TL+64*&NS)+8                     00015000
&N       SVC   203                                                      00016000
         DC    H'&C'                   'DMSKEY' CODE                    00017000
         MEND                                                           00018000