Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lexica.c12
There is 1 other file named lexica.c12 in the archive. Click here to see a list.
 REP 24/1	;12C1
	GLOBAL BIND LEXICV = #10^24 + 0^18 + #2526;	! Version Date:	27-Mar-85
 WIT
	GLOBAL BIND LEXICV = #10^24 + 0^18 + #2545;	! Version Date:	27-Jul-85
 INS 370/1	;12C2
	2540	AlB	27-Jul-85
		When a program contains an extra period at the end of a statement
		line, the lexical scanner looks for a dotted operator.  Since it
		fails when it runs out of statement, it erroneously skips past the
		next statement.

		Macros ACMMISOPER and ACMMISOP1 were modified to recognize that if
		they are already at end of statement when the error occurs, then quit
		immediately instead of skipping to end of statement.

	2545	CDM	26-Aug-85
		Detect too many digits on the end of STOP/PAUSE statements and
		stop saving them away.  Too many digits will write over memory
		that isn't allocated for the literal constant.

 REP 67/16	;12C3
		STATE _ STSIXDIGIT;
		ACTION _ ACT6DIGIT;
		IF .SUM EQL 6 THEN FATLEX( PLIT'6-digit number?0', PLIT'larger number?0', E0<0,0> );

		REPLACEI(POINTER,.CHAR);
 WIT
	%2545%	BIND NDIGITS = 6;	! MAX OF SIX CHARACTERS (STANDARD SAYS 5)

		STATE _ STSIXDIGIT;
		ACTION _ ACT6DIGIT;

	%2545%	IF .SUM LSS NDIGITS 
	%2545%	THEN REPLACEI(POINTER,.CHAR)
	%2545%	ELSE IF .SUM EQL NDIGITS 
			THEN FATLEX( PLIT'6-digit number?0', PLIT'larger number?0', E0<0,0> );

 REP 48/19	;12C4
		CALLR ( STSKIP, STRETNX );
		LEAVE BIGCHAR
 WIT
	%2540%	IF .CHAR EQL EOS
	%2540%	THEN
	%2540%	BEGIN
	%2540%		STATE = STRETNX;
	%2540%		LEAVE NEWSTATE;
	%2540%	END
	%2540%	ELSE
	%2540%	BEGIN
	%2540%		CALLR (STSKIP, STRETNX);
	%2540%		LEAVE BIGCHAR;
	%2540%	END
 REP 159/19	;12C5
		CALLR ( STSKIP, STRETNX);
		VALUE _ EOSLEX^18;
		LEAVE BIGCHAR
 WIT
		VALUE _ EOSLEX^18;
	%2540%	IF .CHAR EQL EOS
	%2540%	THEN
	%2540%	BEGIN
	%2540%		STATE = STRETNX;
	%2540%		LEAVE NEWSTATE;
	%2540%	END
	%2540%	ELSE
	%2540%	BEGIN
	%2540%		CALLR (STSKIP, STRETNX);
	%2540%		LEAVE BIGCHAR;
	%2540%	END
 SUM 134419