Trailing-Edge
-
PDP-10 Archives
-
decuslib20-09
-
decus/20-34/rehlp5.rno
There are 3 other files named rehlp5.rno in the archive. Click here to see a list.
.RIGHT MARGIN 80.JUSTIFY.USE'.OUTPUT WIDTH 59.OUTPUT LENGTH 10
.PROGRAM
SUBROUTINE REHELP(ITTY)
C RENBR(REHLP5/PDP10 TYPE INSTRUCTIONS)
C
C DONALD BARTH, HARVARD BUSINESS SCHOOL
C
.PREFACE WRITE(ITTY,$)
.TEXT
This program renumbers and/or lists FORTRAN programs.
Commands typed by user consist of name of output renumbered
file and/or name of output listing file, then = and list of
input files using 80 characters or less per line. _& or ,
must terminate line if next line continues command. Command
can be read from file if name of file is typed with @.
Extensions .NEW, .LPT, .FOR and .RNB are defaults for
renumbering, listing, input and command files. File names
can include device and path to 1 SFD level. If 2 output
names are given, comma should separate these and switch with
at least 1 must imply use. Switches have form
/letter:number:number where numbers are optional. Title for
each page can be specified between apostrophes and implies
that associated name is of listing file.
.SKIP
Following switches are recognized.
.SKIP.LEFT MARGIN 2
.INDENT-2
A#followed by number of spaces to add left of statements in
IF THEN block or in DO loop. /A or /A:0 equals /A:1
.INDENT-2
B#followed by smallest statement number in renumbered output
.INDENT-2
C#column formatted renumbered output with statement numbers
ending in column 5. Statement text will start in column 7
.INDENT-2
E#followed by number of extra tables of contents. /E or
/E:0 equals /E:1
.INDENT-2
F#listing device has form feed. Pages in listing will be
separated by form feeds if output is to LPT device. /F
can be followed by number of lines printable per page. /F
or /F:0 equals /F:60
.INDENT-2
G#followed by number of blank lines to be listed between
FORTRAN statements. No extra blank lines are listed
between comment lines. /G or /G:0 equals /G:1
.INDENT-2
I#followed by increment between statement numbers in
renumbered output. Negative increment, such as specified
by /I:-1, gives smallest number at end of program.
Smallest number will be absolute value of increment unless
/B specifies non-zero smallest number. /I or /I:0 equals
/I:1
.INDENT-2
J#followed by number of blank lines to be at top of 1st, at
bottom of 2nd and top of 3rd pages, etc. This can be
followed by number of blank lines to be at bottom of 1st,
at top of 2nd and bottom of 3rd pages, etc. These blank
lines are inserted to allow top binding of unburst fanfold
paper and must be included in printing line limit
specified by /F or /L
.INDENT-2
K#long lines are to be kept intact in listing
.INDENT-2
L#pages in listing will be separated by counted line feeds.
/L can be followed by number of lines printable per page.
This can be followed by total number of lines per page.
/S:0 is assumed if /S has not already been selected. /L
or /L:0 equals /L:60:66
.INDENT-2
M#if issued not followed by a number, old statement numbers
are maintained. If M is followed by 2 numbers, then these
are lowest and highest statement numbers to be modified
.INDENT-2
P#followed by first page number in listing. /P or /P:0
equals /P:1
.INDENT-2
S#followed by number of characters printable beyond normal
right margin. Excess characters are right justified on
following line. /S or /S:0 gives 70 character lines.
/S:13 equals /K
.INDENT-2
T#tab formatted renumbered output. Tab character will
precede statement text
.INDENT-2
U#column formatted renumbered output with statement numbers
starting in column 1. Statement text will start in column
7
.INDENT-2
V#listing is to be viewed on this terminal
.INDENT-2
W#followed by width of tab stop columns to be used when
converting tabs to spaces in comment lines. Tabs in
comment lines are not converted in renumbered output
unless /W is typed. /W or /W:0 equals /W:8
.SKIP.LEFT MARGIN 0
Listing file is identified by /E, /F, /G, /J, /K, /L, /P,
/S, /V or '. Default options are initial page number 1,
form feeds, intact long lines, single spacing, and 1 table
of contents.
.SKIP
Renumbered output is identified by /B, /C, /I, /M, /T or /U.
Default options are smallest statement number 1, increment 1
and column format.
.SKIP.EJECT
.PROGRAM
RETURN
END