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$