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