Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/p2s1.c20
There are 7 other files named p2s1.c20 in the archive. Click here to see a list.
 REP 2/1	;20C1
	!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1972, 1987
 WIT
	!COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1972, 1987, 1988
 REP 24/1	;20C2
	GLOBAL BIND P2S1V = #11^24 + 0^18 + #4601;	! Version Date:	31-Dec-87
 WIT
	GLOBAL BIND P2S1V = #11^24 + 0^18 + #4603;	! Version Date:	1-Aug-88
 REP 263/1	;20C3
	***** End V10 Development *****
 WIT
	***** End V11 Development *****
 INS 278/1	;20C4
	4603	DCE	1-Aug-88
		Fix up edit 4517/4563 so that ICHAR(substring) does not give an
		undeserved error.  Convert to lower/length format properly.

 REP 25/19	;20C5
	%4517%		BASE NODE:ARG1;
 WIT
	%4517%		BASE NODE;
 REP 156/19	;20C6
	%4517%				NODE = .CNODE[ARG4PTR];     !ARRAYREF/VARIABLE
 WIT
	!**;[4603], DCE, 1-Aug-88, P2SILF @8625 (after edit 4563 applied)
	%4603%				NODE = .ARGNODE[ARG4PTR];     !ARRAYREF/VARIABLE
 REP 164/19	;20C7
	%4517%
	%4517%					! Make all substrings of length 1
	%4517%					IF .ARGNODE[OPERSP] NEQ SUBSTRLEN 
	%4517%					OR .LEN[OPR1] NEQ CONSTFL OR .LEN[CONST2] NEQ 1
	%4517%					THEN 
	%4517%					BEGIN
	%4517%						IF .LEN[OPR1] NEQ CONSTFL AND .LEN[OPR1] NEQ VARFL
	%4517%						THEN SAVSPACE(EXSIZ-1,.ARGNODE[ARG1PTR]);
	%4517%
	%4517%						IF .LEN NEQ .ONEPLIT
	%4517%						THEN
	%4517%						BEGIN
 WIT

	%4603%					IF NOT .FLGREG<BOUNDS>  ! Careful - keep everything when debugging!
	%4603%					THEN	! We convert to SUBSTRLEN with length of 1
	%4603%					BEGIN
	%4603%						ARGNODE[OPERSP] = SUBSTRLEN; ! Make it length
	%4603%						IF .LEN NEQ .ONEPLIT
	%4603%						THEN	! Make length one
	%4603%						BEGIN
	%4603%							! Clean out old node
	%4603%							IF .LEN[OPR1] NEQ CONSTFL AND .LEN[OPR1] NEQ VARFL
	%4603%							THEN SAVSPACE(EXSIZ-1,.ARGNODE[ARG1PTR]);
 DEL 184/19	;20C8
	%4517%					ARG1 = .ARGNODE[ARG1PTR];
 SUM 20862