PDP-10 Archive: autopatch/cobolb.c11 from bb-kl11f-bm_tops20_v7_0_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/cobolb.c11

There are 4 other files named cobolb.c11 in the archive. Click here to see a list.

 REP 11/1	;11C1
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 REP 27/1	;11C2
	;V12*****************
	;NAME	DATE		COMMENTS

 WIT
	;NAME	DATE		COMMENTS
	;V13******************
	;MJC	27-MAR-85	[1567] Check if current file is the same as the first
	;				one in a SAME AREA clause.
	;V12B*****************
 REP 20/26	;11C3
	IA38AA:	LDB	TE,FI.SAL	;GET SAME-AREA LINK
 WIT
	IA38AA:	MOVE	TE,-1(SAVPTR)	;[1567]GET POINTER TO THE FIRST FILE
		HRLS	TE		;[1567]GET IT IN BOTH HALFS
		CAMN	TE,TB		;[1567]SAME FILE AGAIN?
		EWARNJ	E.174		;[1567]'FILE ALREADY IN SAME-AREA CLAUSE'
		LDB	TE,FI.SAL	;GET SAME-AREA LINK
 SUM 183504