Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
sta0.c11
There are 2 other files named sta0.c11 in the archive. Click here to see a list.
REP 24/1 ;11C1
GLOBAL BIND STA0V = #10^24 + 0^18 + #2507; ! Version Date: 20-Dec-84
WIT
GLOBAL BIND STA0V = #10^24 + 0^18 + #2534; ! Version Date: 13-Jun-85
INS 356/1 ;11C2
2534 MEM 13-Jun-85
In SUBASSIGN set the STORD bit in the left hand expression of the
assignment and delete the call to NAMSET.
INS 398/1 ;11C3
%2534% CREFIT,
REP 39/4 ;11C4
%1661% ! If LHS is a substring of a scalar, call NAMSET to set STORD for it
%1661% VAR = .LHS[ARG4PTR];
%1661% IF .VAR[OPRCLS] EQL DATAOPR
%1661% THEN IF NAMSET(VARIABL1,.VAR) LSS 0
%1661% THEN RETURN .VREG;
WIT
%1661% VAR = .LHS[ARG4PTR];
%2534% VAR[IDATTRIBUT(STORD)] = 1;
%2534% IF .FLGREG<CROSSREF> THEN CREFIT( .VAR, SETT );
SUM 122395