Trailing-Edge
-
PDP-10 Archives
-
tops10_703a_sys_atpch16_bb-fr67f-bb
-
p2s1.c16
There are 8 other files named p2s1.c16 in the archive. Click here to see a list.
REP 24/1 ;16C1
GLOBAL BIND P2S1V = #11^24 + 0^18 + #4560; ! Version Date: 22-Dec-86
WIT
GLOBAL BIND P2S1V = #11^24 + 0^18 + #4563; ! Version Date: 11-Feb-87
INS 265/1 ;16C2
4563 MEM 11-Feb-87
Add edit 4555 as 4563.
DEL 377/1 ;16C3
%4510% E165, ! Substring bound out of range error
REP 51/18 ;16C4
%4510%
%4510% ! Get the length of the character variable or array element
%4510% ! we're taking the substring from.
%4510%
%4510% IF .ANODE[OPRCLS] NEQ ARRAYREF
%4510% THEN CHLEN = .ANODE[IDCHLEN] ! ANODE is scalar, get its length
%4510% ELSE
%4510% BEGIN ! ARRAYREF
%4510%
%4510% CHLEN = .ANODE[ARG1PTR]; ! Array name
%4510% CHLEN = .CHLEN[IDCHLEN]; ! Length of array element
%4510%
%4510% END; ! ARRAYREF
%4510%
%4510% IF .LNODE[OPR1] EQL CONSTFL
%4510% THEN IF .LNODE[CONST2] LSS 1 ! Lower bound must be >= 1
%4510% OR ! and < CHLEN
%4510% (.CHLEN NEQ LENSTAR AND .LNODE[CONST2] GTR .CHLEN)
%4510% THEN FATLERR(.ISN,E165<0,0>); ! Give bounds error
%4510%
%4510% IF .UNODE[OPR1] EQL CONSTFL
%4510% THEN
%4510% BEGIN ! Upper bound is constant
%4510%
%4510% IF .UNODE[CONST2] LSS 1 ! Upper bound must be >= 1
%4510% OR ! and <= CHLEN
%4510% (.CHLEN NEQ LENSTAR AND .UNODE[CONST2] GTR .CHLEN)
%4510% THEN FATLERR(.ISN,E165<0,0>); ! Give bounds error
%4510%
%4510%
%4510% IF .LNODE[OPR1] EQL CONSTFL
%4510% THEN
%4510% BEGIN ! Upper and lower bounds are both constant
%4510%
%4510% ! Give a bounds error if the lower bound minus
%4510% ! one is >= the upper bound (i.e., the
%4510% ! user-specified lower bound is > the upper
%4510% ! bound).
%4510%
%4510% IF .LNODE[CONST2] GTR .UNODE[CONST2]
%4510% THEN FATLERR(.ISN,E165<0,0>) ! Give bounds error
%4510% END;
%4510% END;
%4510%
WIT
%4563%
SUM 142564