&DL      PROC  &P,2                                                     00000000
XRB#PCAL NAME  X   . RBP SVC MACRO CALL                                 00000100
RBPCALL  NAME  0                                                        00000200
RB#PCAL  NAME  1                                                        00000300
.* .                                                                    00000400
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00000500
.* .                                                                  * 00000600
.* . THIS AND ALL RELATED PROGRAMS ARE PROPERTY OF                    * 00000700
.* .                                                                  * 00000800
.* . UNIVAC CONTAINING ITS CONFIDENTIAL INFORMATION                   * 00000900
.* .                                                                  * 00001000
.* . * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ** 00001100
         GBL   &U9400,&U93,&VS9                                         00001200
         GBL   &USER94                                                  00001300
         DO    '&USER94'=''                                             00001400
&USER94  SET   0                                                        00001500
         ENDO                                                           00001600
         PRINT OFF                                                      00001610
         SYSTEM                                                         00001611
         PRINT ON                                                       00001612
.* .                                                                    00001700
.* .     R1 CONTAINS IN THE UPPER BYTE THE RBP FUNCTION CODE            00001800
.* .                    THE LOWER BYTES ARE THE USERS PREAMBLE ADDR     00001900
.* .                                                                    00002000
         DO    '&P(1)'='(1)'                                            00002100
         GOTO  .R1OK                                                    00002200
         ENDO                                                           00002300
         PNOTE 'P','REGISTER 1 PARAMETER MISSING'                       00002400
         GOTO  .EXIT                                                    00002500
.R1OK    LABEL                                                          00002600
         DO    '&P(2)'='RBPOUT'                                         00002700
         GOTO  .P2OK                                                    00002800
         ENDO                                                           00002900
         PNOTE 'P','PARAMETER TWO IS MISSING OR INVALID'                00003000
         GOTO  .EXIT                                                    00003100
.P2OK    LABEL                                                          00003200
         DO    '&DL'=''=0                                               00003300
&DL      DS    0H                                                       00003400
         GOTO  .START                                                   00003500
         ENDO                                                           00003600
         DS    0H                                                       00003700
.START   LABEL                                                          00003800
         LA    1,0(,1)                                                  00003900
         O     1,RBP#&SYSNDX                                            00004000
         B     RBS#&SYSNDX                                              00004100
RBP#&SYSNDX DC AL3(0)                                                   00004200
         DO    ('&P(2)'='RBPOUT')                                       00004300
         DC    YL1(1)                   . REQUEST TO RETRIEVE OUTPUT    00004400
*                                       . FROM RBPOUT SPOOL FILE        00004500
         ENDO                                                           00004600
         DO    &USER94                                                  00004700
RBS#&SYSNDX SVC SV#MCP                  . CALL ICAM                     00004800
         ENDO                                                           00004900
         DO    &U93                                                     00005000
RBS#&SYSNDX SVC 09                      . CALL ICAM                     00005100
         ENDO                                                           00005200
         DO    &VS9                                                     00005210
         CNOP  0,4                                                      00005211
RBS#&SYSNDX TM 0(1),X'80'          . IRL?                               00005212
         BNO   *+8                 .  NO                                00005213
         OI    *+7,X'80'           . SAVE IRL FLAG IN SUB-FUNCTION CODE 00005214
         SVC   98                                                       00005215
         ENDO                                                           00005216
         DC    AL2((128*/8)++4)         . RBP SUBFUNCTION CODE          00005300
.EXIT    LABEL                                                          00005400
         END                                                            00005500
