SPL,L,O,M ! NAME: RN.. ! SOURCE: 92070-18029 ! RELOC: 92070-16029 ! PGMR: G.A.A. MOD. M.L.K. ! ! *************************************************************** ! * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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 RN..(7) " 92070-1X029 REV.1941 790712" ! ! THE RN ROUTINE ALLOWS THE OPERATOR TO ! CHANGE FILE NAMES. ! ! COMMAND: ! ! RN,NAMR,NEWNAME ! ! WHERE NAMR IS THE FILES NAME REFERENCE ! INCLUDING SECURITY CODE AND ! CARTRIDGE ID IF APPROPIATE ! ! NEWNAME IS THE NEW FILE NAME ! ! ! EXTERNAL SUBROUTINES LET IER. BE SUBROUTINE,EXTERNAL,DIRECT LET NAMF BE SUBROUTINE,EXTERNAL ! EXTERNAL INTEGERS LET .E.R BE INTEGER,EXTERNAL LET O.BUF BE INTEGER,EXTERNAL LET N.OPL BE INTEGER,EXTERNAL ! ! RN..: SUBROUTINE (N,LI,E) GLOBAL L5_[L1_@LI+1]+4 NAMF(O.BUF,.E.R ,$L1,$L5,N.OPL,$(@N.OPL+1)) IER. RETURN END END END$