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