SPL,L,O,M 
!     NAME:   RP..
!     SOURCE: 92071-18030 
!     RELOC:  92071-16030 
!     PGMR:   M.L.K.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
      NAME RP..(7) "92071-1X030 REV.2041 800307"
! 
!  EXTERNAL SUBROUTINES 
      LET EXEC      BE SUBROUTINE,EXTERNAL
      LET IDRPL     BE SUBROUTINE,EXTERNAL
      LET IER.      BE SUBROUTINE,EXTERNAL,DIRECT 
      LET OPEN.     BE SUBROUTINE,EXTERNAL
!  EXTERNAL INTEGERS
      LET I.BUF     BE INTEGER,EXTERNAL 
      LET N.OPL     BE INTEGER,EXTERNAL 
! 
RP..: SUBROUTINE(N,LIS,ER) GLOBAL 
      LET LIS(64)   BE INTEGER                   !PARSED PARAMETERS 
! 
      IF LIS(1) # 3  THEN GOTO BDPRM             !TEST FOR ILLEGAL PARM 
      IF LIS(5) = 0  THEN[                       \IF 2ND PRAM NULL
          FOR I_ 1 TO 4  DO[                     \ COPY PARM 1 TO 
          LIS(I+4)_ LIS(I)]]                     ! PARM 2 
      IF LIS(5) # 3  THEN GOTO BDPRM             !TEST FOR ILLEGAL PARM 
! 
      OPEN.(I.BUF,LIS(2),N.OPL,5)                !OPEN & FORCE TO TYPE 1
      IER.                                       !TEST FOR READ ERRORS
      IDRPL(I.BUF,ER,LIS(6),1)                   !PERMANENT RP
!     CLOSE(I.BUF)                               !NOW CLOSE IT
      EXEC(100034K,LIS(6)); RETURN               !TRY AND LOAD IT 
      RETURN                                     !ALL DONE
! 
!     ERROR RETURNS 
! 
BDPRM:DO[ER_ 56; RETURN]
      END 
      END 
! 
      END$
                                                                                                                                                                                                