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