Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobst.c12
There are no other files named cobst.c12 in the archive.
 REP 10/1	;12C1
	;COPYRIGHT (C) 1976, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1976, 1981, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 30/1	;12C2
	;04-Apr-85	MJC	[1145] Fix edit 1127. Allow a LINK and GO of a
	;				COBOL program with overlays.
 INS 43/2	;12C3
		HRROI	T1,.GTPRG		;[1145] GET USER PROGRAM NAME
		GETTAB	T1,			;[1145]
		  JRST	MPRTNH			;[1145] PRE 6.03
		HRROI	T2,.GTRFN		;[1145] GET PROGRAM'S RUN FILENAME
		GETTAB	T1,			;[1145]
		  JRST	MPRTNH			;[1145] PRE 6.03
		CAME	T1,T2			;[1145] ARE BOTH THE SAME?
		CAMN	T2,['LINK']		;[1145] NO, RUN FROM LINK?
		TRNA				;[1145] YES, GET WHERE PROG
		  JRST	MPRTNH			;[1145] THIS IS A LINK AND GO
						;[1145]  SKIP GETTING INFO ON LINK
 SUM 211442