&HERE    PROC  &P,1                                                     ESE00010
ESETL3   NAME  X'40'                                                    ESE00020
ESETL    NAME  X'40'                                                    ESE00030
ESETL?   NAME  X'40'                                                    ESE00040
RELSE?   NAME  X'80'                                                    ESE00050
RELSE3   NAME  X'80'                                                    ESE00060
RELSE    NAME  X'80'                                                    ESE00070
TRUNC?   NAME  X'82'                                                    ESE00080
TRUNC3   NAME  X'82'                                                    ESE00090
TRUNC    NAME  X'82'                                                    ESE00100
FEOV?    NAME  X'84'                                                    ESE00110
FEOV3    NAME  X'84'                                                    ESE00120
FEOV     NAME  X'84'                                                    ESE00130
FEOVD?   NAME  X'84'                                                    ESE00140
FEOVD3   NAME  X'84'                                                    ESE00150
FEOVD    NAME  X'84'                                                    ESE00160
WAITF?   NAME  X'86'                                                    ESE00170
WAITF3   NAME  X'86'                                                    ESE00180
WAITF    NAME  X'86'                                                    ESE00190
POINTS?  NAME  X'C1'                                                    ESE00200
POINTS3  NAME  X'C1'                                                    ESE00210
POINTS   NAME  X'C1'                                                    ESE00220
NOTE?    NAME  X'C2'                                                    ESE00230
NOTE3    NAME  X'C2'                                                    ESE00240
NOTE     NAME  X'C2'                                                    ESE00250
&HERE    DC    0Y(0)                    SET ALIGNMENT                   ESE00260
         DO    1-('&P(1)'='')           OP1 NULL                        ESE00270
         DO    1-(('&P(1)'(1,1)='(')++('&P(1)'(1,1)>'Z'))   SYMBOL ?    ESE00280
         L     1,=A(&P(1))              LOAD R1$, FILENAME ADDRESS      ESE00290
         GOTO  .LBL02                                                   ESE00300
         ENDO                                                           ESE00310
         DO    1-(('&P(1)'='(1)')++('&P(1)'='1'))       R1 SPECIFIED    ESE00320
         PNOTE 'P','INVALID REGISTER NOTATION USED FOR OPERAND 1'       ESE00330
         ENDO                                                           ESE00340
         GOTO  .LBL02                                                   ESE00350
         ENDO                                                           ESE00360
         PNOTE '*','OPERAND 1 OMITTED, REG 1 ASSUMED LOADED'            ESE00370
.LBL02   LABEL                                                          ESE00380
         MVI   49(1),&P(0)              SET FUNCTION CODE               ESE00390
         L     15,52(,1)                LOAD ADDR OF COMMON I/O         ESE00400
         BALR  14,15                    LINK TO COMMON                  ESE00410
         END                                                            ESE00420
