Google
 

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