&HERE    PROC  &P,1                                                     SET00010
SETFL3   NAME  41                                                       SET00020
SETFL?   NAME  41                                                       SET00030
SETFL    NAME  41                                                       SET00040
ENDFL3   NAME  42                                                       SET00050
ENDFL?   NAME  42                                                       SET00060
ENDFL    NAME  42                                                       SET00070
&HERE    DC    0Y(0)                    SET ALIGNMENT                   SET00080
         DO    '&P(1)'=''               OP1 NULL                        SET00090
         PNOTE '*','OPERAND 1 OMITTED, REG 1 ASSUMED LOADED'            SET00100
         GOTO  .LBLEND                                                  SET00110
         ENDO                                                           SET00120
         DO    1-(('&P(1)'(1,1)='(')++('&P(1)'(1,1)>'Z'))   SYMBOL ?    SET00130
         L     1,=A(&P(1))              LOAD R1$, FILENAME ADDRESS      SET00140
         GOTO  .LBLEND                                                  SET00150
         ENDO                                                           SET00160
         DO    1-(('&P(1)'='(1)')++('&P(1)'='1'))       R1 SPECIFIED    SET00170
         PNOTE 'P','INVALID REGISTER NOTATION USED FOR OPERAND 1'       SET00180
         ENDO                                                           SET00190
.LBLEND  LABEL                                                          SET00200
         DO    &P(0)=42                                                 SET00210
         MVI   49(1),X'42'                                              SET00220
         L     15,52(1)                                                 SET00230
         BALR  14,15                                                    SET00240
         ENDO                                                           SET00250
         SVC   &P(0)                    ISSUE SVC                       SET00260
         END                                                            SET00270
