Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/cobst.c13
There are 10 other files named cobst.c13 in the archive. Click here to see a list.
 INS 33/1	;13C1
	;04-Apr-85	MJC	[1145] Fix edit 1127. Allow a LINK and GO of a
	;				COBOL program with overlays.
 INS 43/2	;13C2
		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 63290