ASMB,R,Q
      NAM #GTPL,7 91750-1X011 REV 2013 791129 (L) 
      ENT #GTOP 
      EXT GTOPN 
      SPC 2 
*     SUBROUTINE TO RETURN THE "OPEN" FLAG FOR DCBS 
*         (VERSION FOR RTE-L) 
      SPC 2 
*     SOURCE: 91750-18011 
*     RELOC.: 91750-1X011 
*     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.       *
******************************************************************
* 
* 
      SPC 2 
#GTOP NOP 
      JSB GTOPN     ASSEMBLE AN "OPEN" FLAG FOR CALLER
      DEF *+1 
      JMP #GTOP,I   RETURN
      END 
                                                                                                                                                                  