Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - cobolb.c11
There are 4 other files named cobolb.c11 in the archive. Click here to see a list.
 REP 10/1	;11C1
	;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1974, 1981, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 21/1	;11C2
	;V12B****************
	;MJC	27-MAR-85	[1567] Check if current file is the same as the first
	;				one in a SAME AREA clause.
 REP 22/28	;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 5658