SPL,L,O ! NAME: DP.. ! SOURCE: 92067-18225 ! RELOC: 92067-16185 ! PGMR: G.A.A. ! ! *************************************************************** ! * (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 DP..(8) "92067-16185 REV.1903 760511" ! ! LET INPRS, \INVERSE PARSE ROUTINE EXEC, \SYSTEM OPEN, \FMGR OPEN READF \FMGR READ BE SUBROUTINE,EXTERNAL ! ! ! LET C.BUF, \INPUT BUFFER ECH., \ITS LENGTH CAM.O \LOG LU BE INTEGER,EXTERNAL ! ! ! DP..: SUBROUTINE GLOBAL B377_377K;UBLK_20000K !SET BLANK AND MASK ASSEMBLE["CCB"; \REPLACE THE FIRST DELIM "EXT C.DLM";\ "ADB C.DLM";\ "CLE,ERB";\ "LDA 1,I";\ "AND B377";\ "IOR UBLK";\ "STA 1,I";\ "SEZ";\ "INB"] ADD_.B. CALL EXEC(2,CAM.O,$ADD,@C.BUF-ADD+ECH.) RETURN END END END$