&HERE    PROC  &P,2                                                     SEE00010
SEEK3    NAME  X'85'                                                    SEE00020
SEEK     NAME  X'85'                                                    SEE00030
&HERE    DC    0Y(0)                    SET ALIGNMENT                   SEE00040
         DO    '&P(1)'=''               OP1 NULL                        SEE00050
         PNOTE '*','OPERAND 1 OMITTED, REG 1 ASSUMED LOADED'            SEE00060
         GOTO  .LBL01                                                   SEE00070
         ENDO                                                           SEE00080
         DO    1-(('&P(1)'(1,1)='(')++('&P(1)'(1,1)>'Z'))   SYMBOL ?    SEE00090
         L     1,=A(&P(1))              LOAD R1$, FILENAME ADDRESS      SEE00100
         GOTO  .LBL01                                                   SEE00110
         ENDO                                                           SEE00120
         DO    1-(('&P(1)'='(1)')++('&P(1)'='1'))       R1 SPECIFIED    SEE00130
         PNOTE 'P','INVALID REGISTER NOTATION USED FOR OPERAND 1'       SEE00140
         ENDO                                                           SEE00150
.LBL01   LABEL                                                          SEE00160
         DO    '&P(2)'=''               OP2 NULL                        SEE00170
         PNOTE '*','OPERAND 2 OMITTED, REG 0 ASSUMED LOADED'            SEE00180
         GOTO  .LBL02                                                   SEE00190
         ENDO                                                           SEE00200
         DO    1-(('&P(2)'(1,1)='(')++('&P(2)'(1,1)>'Z'))   SYMBOL ?    SEE00210
         L     0,=A(&P(2))              LOAD R0$,PCA ADDRESS            SEE00220
         GOTO  .LBL02                                                   SEE00230
         ENDO                                                           SEE00240
         DO    1-(('&P(2)'='(0)')++('&P(2)'='0'))       R0 SPECIFIED    SEE00250
         PNOTE 'P','INVALID REGISTER NOTATION USED FOR OPERAND 2'       SEE00260
         ENDO                                                           SEE00270
.LBL02   LABEL                                                          SEE00280
         MVI   49(1),&P(0)              SET FUNCTION CODE               SEE00290
         L     15,52(,1)                LOAD ADDR OF COMMON I/O         SEE00300
         BALR  14,15                    LINK TO COMMON                  SEE00310
         END                                                            SEE00320
