ASMB,R,Q,C
      NAM #GTPX,7 91750-1X012 REV 2013 791129 (IV,M)
      ENT #GTOP 
* 
*     SOURCE: 91750-18012 
*     RELOC.: 91750-1X012 
*     PRGMR:  LYLE WEIMAN NOV 1979
* 
******************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  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.       *
******************************************************************
* 
* 
*     SUBROUTINE TO RETURN THE "OPEN" FLAG FOR DCBS 
*       (VERSION FOR RTE-IV & M)
      SPC 2 
#GTOP NOP 
      LDA XEQT      LOAD ID SEGMENT ADDRESS 
      JMP #GTOP,I   RETURN
XEQT  EQU 1717B     CURRENTLY-EXECUTING PROGRAM ID SEGMENT ADDR 
      END 
                                                                                                                                                              