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$ 
                                                                                            