SPL,L,O,M ! NAME: DP.. ! SOURCE: 92070-18019 ! RELOC: 92070-16019 ! 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) " 92070-1X019 REV.1941 790712" ! ! ! EXTERNAL SUBROUTINES LET EXEC BE SUBROUTINE,EXTERNAL ! EXTERNAL INTEGERS LET C.BUF BE INTEGER,EXTERNAL !INPUT BUFFER LET C.DLM BE INTEGER,EXTERNAL !FIRST DELIMITER LET CAM.O BE INTEGER,EXTERNAL !LOG LU LET ECH BE INTEGER,EXTERNAL !INPUT CHAR COUNT ! ! DP..: SUBROUTINE GLOBAL B377_377K;UBLK_20000K !SET BLANK AND MASK ASSEMBLE["CCB"; \REPLACE THE FIRST DELIM "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$