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