Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93f-bb - 7,6/ap019/p2s1.c19
There are 9 other files named p2s1.c19 in the archive. Click here to see a list.
 REP 24/1	;19C1
	GLOBAL BIND P2S1V = #11^24 + 0^18 + #4566;	! Version Date:	15-Jun-87
 WIT
	GLOBAL BIND P2S1V = #11^24 + 0^18 + #4601;	! Version Date:	31-Dec-87
 INS 272/1	;19C2
	4601	DCE	31-Dec-87
		Allow for neg flags in SKARITH skeleton optimizations.  This routine
		may get called twice due to single character assignment statements.
		The first call may set neg flags.  The second call needs to be able
		to accomodate this.

 INS 84/8	;19C3

	!4601	If this is the second pass through the skeleton optimizer, some
	!4601	neg flags may have been set by the first pass.  Handle them here.

	%4601%	IF .CNODE[A1NEGFLG] THEN V<ARG1NEG> = NOT .V<ARG1NEG>;
	%4601%	IF .CNODE[A2NEGFLG] THEN V<ARG2NEG> = NOT .V<ARG2NEG>;
	%4601%	CNODE[A1NEGFLG] = 0;
	%4601%	CNODE[A2NEGFLG] = 0;

 REP 127/8	;19C4
		THEN
		BEGIN
			IF .V<ARG2NEG>
			THEN
	%2544%		CNODE[A2NEGFLG] = IF .CNODE[A2NEGFLG] THEN 0 ELSE 1;
		END
 WIT
	%4601%	THEN CNODE[A2NEGFLG] = .V<ARG2NEG>
 SUM 218573