Trailing-Edge
-
PDP-10 Archives
-
bb-jr93h-bb
-
7,6/ap019/listng.c19
There are 9 other files named listng.c19 in the archive. Click here to see a list.
REP 24/1 ;19C1
GLOBAL BIND LISTNV = #11^24 + 0^18 + #4564; !Version Date: 13-Feb-87
WIT
GLOBAL BIND LISTNV = #11^24 + 0^18 + #4602; !Version Date: 13-Jan-88
INS 216/1 ;19C2
4602 DCE 13-Jan-88
Remove edit 4564. It only worked in the simplest case, and there
were several other problems which are now corrected in LEXICA and
LEXCLA.
REP 230/1 ;19C3
%4564% CLASLINE,
WIT
!%4602% CLASLINE,
REP 45/16 ;19C4
%4564% LOCAL NOCODEYET;
WIT
!%4602% LOCAL NOCODEYET;
REP 68/16 ;19C5
%4564% NOCODEYET = 1;
WIT
!%4602% NOCODEYET = 1;
REP 76/16 ;19C6
%2500% IF .HASCODE(CELL)
%4564% THEN
%4564% BEGIN
%4564% BLTLINL(.CELL); ! Copy the code line
%4564% IF .CLASLINE GTR .LINENUM(CELL) !Found code on line
%4564% THEN NOCODEYET = 0; ! after CLASLINE
%4564% END
%4564% ELSE IF .NOCODEYET ! If haven't reached code after
%4564% THEN CLASLINE = .LINENUM(CELL); ! CLASLINE then increment CLASLINE
WIT
%4602% IF .HASCODE(CELL) THEN BLTLINL(.CELL); ! Copy the code line
SUM 188544