MACRO                                                          00001000
&N       SVCENT &LOC,&SV                                                00002000
&N       DMSKEY NUCLEUS                                                 00003000
         USING NUCON,0                                                  00004000
         L     15,ASVCSECT             POINT TO SVCSECT                 00005000
         USING SVCSECT,15                                               00006000
         ST    14,&SV                  SAVE REG 14 TEMPORARILY          00007000
         BALR  15,0                    GET ADDRESSABILITY               00008000
         USING *,15                                                     00009000
         LA    15,&LOC                 POINT TO 'REAL' ROUTINE ADDR     00010000
         BALR  14,15                   CALL 'REAL' ROUTINE              00011000
         DROP  15                                                       00012000
         LR    14,15                   SAVE RETURN CODE TEMPORARILY     00013000
         DMSKEY RESET                                                   00014000
         LTR   15,14                   RESTORE RETURN CODE FROM ROUTINE 00015000
         L     14,ASVCSECT             POINT TO SVCSECT                 00016000
         USING SVCSECT,14                                               00017000
         L     14,&SV                  RESTORE REG 14                   00018000
         DROP  14                                                       00019000
         BR    14                      RETURN TO CALLER                 00020000
         MEND                                                           00021000