|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 26880 (0x6900)
Types: TextFile
Names: »algollibman«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »algollibman«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »algollibman«
\f
H. C. Ørsted Institute
Computer Department
Universitetsparken 5
DK-2100 København Ø
HCØ RC8000 algol8 library
General procedures
"algollibman"
Anders Lindgård
(Editor)
70/8
1980-12-20
\f
1
Scope of the library
--------------------
The scope of the library is to provide the users of the RC8000
computer with a manual of all algol8 procedures of common interest.
Most procedures may be used on the RC4000 computer as well. A
guideline for description of programs and procedures is found in
the file "guideline".
The library is divided into sub-libraries, and a list of relevant
user manuals is found in the file "listman".
\f
2
Alphabetic list of new programs:
boolean procedure cleararea
boolean procedure disccopy
procedure outshortcl
integer procedure printfile
integer procedure readparam
integer procedure writestdent
\f
3
1978-03-01
Anders Lindgård
boolean procedure cleararea
Every word of a file describing a backing store area is set to
zero.
Call: cleararea(file)
cleararea (return value, boolean). true if file is
cleared, false otherwise.
file (call value, string). The name of the file.
The string file must contain the name of an
existing backing store file.
The procedure checks that file is a catalog
entry and describes a backing store area and
that it may be used for exclusive access. In
case of an error an errormessage is written
on current output, but the program is not
terminated.
Language: ALGOL
---------
Maintenance level: user
------------------
1978-09-17
Anders Lindgård
boolean procedure disccopy
Copies the content of one discfile to another discfile. If the
input file is greater than the outputfile no copying takes place.
The procedure is especially suited if both files are placed on the
same disc. The procedure optimizes the use of primary store and
there is no copying of data in primary store.
Call: disccopy(infile,outfile)
disccopy (return value, boolean). true if file is
copied, false otherwise.
infile (call value, string). The name of the input
file.
outfile (call value, string). The name of the result-
file.
The strings infile and outfile must contain the names of existing
backing store files.
In case of an error an errormessage is written on the zone out,
but the program is not terminated, except if the resultfile cannot
be used for exclusive access.
The procedure is based on the algoritm given in the RC infor-
\f
4
mation note: DH770905.
Language: ALGOL
---------
Maintenance level: user
------------------
1980-10-24
Anders Lindgård
procedure outshortcl
Writes a shortclock on the zone with the following format:
d.<year><month><day>.<hour><min>
Call: outshortcl(z,clock)
z (call value, zone). The zone on which the
shortclock is written. (call value, integer).
clock The shortclock value to be written. This
could be tail(6) from a filedescriptor.
Language: ALGOL
---------
Maintenance level: user
------------------
1980-10-24
Anders Lindgård
integer procedure printfile
Sends a message to the PRIMO module to print the file "file" on
the printer "printer". Default printer is "lp"
Call: printfile(printer,file)
printfile (return value, integer).
Result of the operation.
printfile>0 : transport number
printfile<0 : error
printer (call value, string). The name of a filedesc-
riptor describing the printer or the empty
string <::> in which case <:lp:> is used.
file (call value, string). The name of the file to
be printed.
In case of an error an warning is written on the zone out, but
\f
5
the program is not terminated.
Language: ALGOL
---------
Maintenance level: user
------------------
1980-10-22
Anders Lindgård
integer procedure readparam
The procedure scans the file processor parameter list of the
program call.
Call:readparam(a)
readparam (return value, integer).
Kind of item stored in the array a.
-1: <text>= (only possible in the first call
0: end of parameter list
1: <sp><integer>
2: <sp><text>
3: .<integer>
4: .<text>
a (return value, real array). An integer item
is assigned to the first element in a, a text
item to the first and second item.
The parameter list is scanned using system(4,---. Each parameter
can only be read once.
The procedure was originally programmed and described by P. Bruun
Madsen.
Language: ALGOL
---------
Maintenance level: user
------------------
1978-09-01
Anders Lindgård
integer procedure writestdent
Examines a filedescriptor with head and tail given in an integer
array and writes on current output a description of the entry
\f
6
according to the options given in a boolean array. It is assumed
that the filedescriptor fullfills the rules for filedescriptors
given in System 3 Utility Programs Part I (RCSL 31-D364). For
external algol procedures and variables a rather complete analysis
may be performed, see Code procedures and run time organisation of
algol 5 programs RCSL 55-D199.
Call: writestdent(headandtail,options)
writestdent (return value, integer). The number of lines
written on current output.
headandtail (call value, integer array). The head and
tail of the filedescriptor. Must be declared
from -6 to 10, where element -6 to 0 contains
the head and 1 to 10 contains the tail. The
information may be obtained using the monitor
procedure number 76, "lookup head and tail",
see RC8000 monitor part 2 (RCSL 31-D477).
options (call value, boolean array). Contains the
various options for the output. Must be
declared from 1 to 11 or greater.
The options are:
1 = details
2 = survey
3 = test
4 = externals
5 = not used
6 = abswords
7 = points
8 = printsegments
9 = not used
10= print_no_of_externals
11= printprocess
For examples of use see the program writestd.
Language: ALGOL
---------
Maintenance level: user
------------------
\f
▶EOF◀