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