         PROC  &P,1,&LV=,&LA=,&A=0
XM7GMP   NAME
GETCORE  NAME
.* * * * *  * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
.*                                                                  *
.*    THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY        *
.*                                                                  *
.*   UNIVAC CONTAINING ITS PROPRIETARY,CONFIDENTIAL INFORMATION     *
.*                                                                  *
.* * * * *  * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
         DO    ('&P(1)'='E')
         DO    '&LA'=''
         DO    '&LV'=''
         AGO   .ERROR
         ENDO
         CNOP  0,4
         B     *+8
         DC    F'&LV'
         L     R1$,*-4
         AGO   .GETSUB
         ENDO
         L     R1$,&LA
         AGO   .GETSUB
         ENDO
         DO    ('&P(1)'='R')
         DO    ('&LV'='(1)')=0
         CNOP  0,4
         B     *+8
         DC    F'&LV'
         L     R1$,*-4
         ENDO
         AGO   .GETSUB
         ENDO
         AGO   .ERROR
.GETSUB  L     RF$,=V(XM7GMN)
         BALR  RE$,RF$
.OUT     ANOP
         DO    ('&P(1)'='E')
         DO    ('&A'='0')=0
         ST    R1$,&A
         ENDO
         ENDO
         AGO   .ENDX
.ERROR   PNOTE '      INCORRECT PARAMETER SPECIFICATION     '
.ENDX    ANOP
         END
