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