Trailing-Edge
-
PDP-10 Archives
-
bb-bt99h-bb
-
act0.c12
There is 1 other file named act0.c12 in the archive. Click here to see a list.
REP 24/1 ;12C1
GLOBAL BIND ACT0V = #10^24 + 0^18 + #2510; ! Version Date: 4-Jan-85
WIT
GLOBAL BIND ACT0V = #10^24 + 0^18 + #2537; ! Version Date: 4-Jan-85
INS 261/1 ;12C2
2537 CDM 16-JUL-85
When no FMT= or NML= is given in a format expression,
FMT= is default. FMTSCAN is called, but doesn't
know if it is FMT= has really been given or not.
Add argument to indicate this.
REP 52/15 ;12C3
QFMT = FMTSCAN(); ! read format specifier
WIT
%2537% QFMT = FMTSCAN(TRUE); ! read format specifier
REP 102/17 ;12C4
QFMT = FMTSCAN(); ! read format expression
WIT
%2537% QFMT = FMTSCAN(FALSE); ! read format expression
REP 156/17 ;12C5
QFMT = FMTSCAN();
WIT
%2537% QFMT = FMTSCAN(TRUE);
REP 1/19 ;12C6
ROUTINE FMTSCAN= ! [1465] New
WIT
ROUTINE FMTSCAN(FMTGIVEN)= ! [2537] argument added
INS 7/19 ;12C7
! FMTGIVEN TRUE or FALSE depending on whether "FMT=" was really
! seen in the user's program.
REP 30/19 ;12C8
F = .LEXL; ! set format specifier to
! namelist name
WIT
F = .LEXL; ! set format specifier to
! namelist name
INS 35/19 ;12C9
%2537% IF .FMTGIVEN EQL TRUE THEN
SUM 20655