Google
 

Trailing-Edge - PDP-10 Archives - BB-L014E-BM - autopatch/datast.c05
There are no other files named datast.c05 in the archive.
 REP 5/1	;05C1
	!COPYRIGHT (C) 1972,1981 BY DIGITAL EQUIPMENT CORPORATION
	!AUTHOR: S. MURPHY/DCE/TFV/AHM
 WIT
	!COPYRIGHT (C) 1972,1981,1982 BY DIGITAL EQUIPMENT CORPORATION
	!AUTHOR: S. MURPHY/DCE/TFV/AHM/EGM
 REP 17/1	;05C2
	GLOBAL BIND DATASV = 6^24 + 0^18 + 52;	! Version Date:	25-Sep-81
 WIT
	GLOBAL BIND DATASV = 6^24 + 0^18 + #1157;	! Version Date: 11-Jun-82
 INS 51/1	;05C3
	***** End V6 Development *****

	1157	EGM	11-Jun-82
		Alter error FTNMVC to indicate whether there are more or less data
		items that constants in a DATA statement.

 REP 254/1	;05C4
		THEN  WARNERR(.ISN,E57<0,0>);	!GIVE WARNING
 WIT
	%[1157]% THEN  WARNERR(PLIT'is less than?0',.ISN,E57<0,0>);	!GIVE WARNING
 REP 504/1	;05C5
			WARNERR(.ISN,E57<0,0>);	!PRINT WARNING MESSAGE
 WIT
	%[1157]%	WARNERR(PLIT'is greater than?0',.ISN,E57<0,0>);	!PRINT WARNING MESSAGE
 SUM 103497