Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
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