&HERE    PROC  &P,2                                                     SET00010
SETL3    NAME                                                           SET00020
SETL     NAME                                                           SET00030
&HERE    DC    0Y(0)                    SET ALIGNMENT                   SET00040
         DO    '&P(1)'=''                                               SET00050
         PNOTE '*','OPERAND 1 OMITTED, REG 1 ASSUMED LOADED'            SET00060
         GOTO  .L1                                                      SET00070
         ENDO                                                           SET00080
         DO    1-(('&P(1)'(1,1)='(')++('&P(1)'(1,1)>'Z'))   SYMBOL ?    SET00090
         L     1,=A(&P(1))              LOAD R1, FILENAME ADDRESS       SET00100
         GOTO  .L1                                                      SET00110
         ENDO                                                           SET00120
         DO    ('&P(1)'='(1)'=0)**('&P(1)'='1'=0)                       SET00130
         PNOTE 'P','INVALID REGISTER NOTATION USED FOR OPERAND 1'       SET00140
         ENDO                                                           SET00150
.L1      LABEL                                                          SET00160
         DO    '&P(2)'='BOF'                                            SET00170
         MVI   49(1),0                  SET FUNCTION CODE               SET00180
         GOTO  .L3                                                      SET00190
         ENDO                                                           SET00200
         DO    '&P(2)'='KEY'                                            SET00210
         MVI   49(1),2                  SET FUNCTION CODE               SET00220
         GOTO  .L3                                                      SET00230
         ENDO                                                           SET00240
         DO    '&P(2)'='GKEY'                                           SET00250
         MVI   49(1),3                  SET FUNCTION CODE               SET00260
         GOTO  .L3                                                      SET00270
         ENDO                                                           SET00280
         DO    '&P(2)'='ID'                                             SET00290
         MVI   49(1),1                  SET FUNCTION CODE               SET00300
         GOTO  .L3                                                      SET00310
         ENDO                                                           SET00320
         PNOTE 'P','OPERAND 2 OMITTED'                                  SET00330
.L3      LABEL                                                          SET00340
         L     15,52(1)                 LOAD I/O ADDRESS                SET00350
         BALR  14,15                    LINK TO I/O MODULE              SET00360
         END                                                            SET00370
