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