&HERE    PROC  &P,1                                                     LBR00010
LBRET$   NAME  0                                                        LBR00020
LBRET?   NAME  0                                                        LBR00030
LBRET3   NAME  0                                                        LBR00040
LBRET    NAME  0                                                        LBR00050
         LCL   &N                                                       LBR00060
&HERE    DC    0Y(0)                                                    LBR00070
         DO    '&P(1)'=''                                               LBR00080
         PNOTE '*','OPERAND 1 OMITTED, LBRET 1 ASSUMED'                 LBR00090
         GOTO  .LBL01                                                   LBR00100
         ENDO                                                           LBR00110
         DO    '&P(1)'='1'                                              LBR00120
         GOTO  .LBL01                                                   LBR00130
         ENDO                                                           LBR00140
         DO    '&P(1)'='3'              LBRET 3 ?                       LBR00150
&N       SET   3                                                        LBR00160
         GOTO  .LBLEND                                                  LBR00170
         ENDO                                                           LBR00180
         DO    '&P(1)'='2'                                              LBR00190
&N       SET   2                                                        LBR00200
         GOTO  .LBLEND                                                  LBR00210
         ENDO                                                           LBR00220
         PNOTE 'P','OPERAND 1 INVALID, LBRET 1 ASSUMED'                 LBR00230
.LBL01   LABEL                                                          LBR00240
&N       SET   1                                                        LBR00250
.LBLEND  LABEL                                                          LBR00260
         SLL   0,16                                                     LBR00270
         LR    1,15                                                     LBR00280
         LA    15,&N                                                    LBR00290
         AR    0,15                                                     LBR00300
         SVC   44                                                       LBR00310
         END                                                            LBR00320
