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