|
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: 2304 (0x900)
Types: TextFile
Names: »wrstdeinp«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦8c6b0f8fa⟧ »cdes«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦8c6b0f8fa⟧ »cdes«
└─⟦this⟧
<se *< *pl 297,21,240,13,4*
*pn 0,0**lw 170* *ld 12* *ps*
*qr*
1978-09-01
Anders Lindgård
*nl1*
*ct*
integer procedure writestdent
*nl1*
*rj**np*
Examines a filedescriptor with head and tail given in an integer array
and writes on current output a description of the entry 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.
*nl2*
Call: writestdent(headandtail,options)*nl*
*lm55*
*mt 1, writestdent**cm 6 spaces*(return value, integer).
The number of lines written on current output.*nl*
*mt 1, 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).
*nl*
*mt 1, options*(call value, boolean array). Contains the various
options for the output. Must be declared from 1 to 11 or greater.
*lm0*
*nl2**np*
The options are:*nl*
1 = details*nl*
2 = survey*nl*
3 = test*nl*
4 = externals*nl*
5 = not used*nl*
6 = abswords*nl*
7 = points*nl*
8 = printsegments*nl*
9 = not used*nl*
10= print_no_of_externals*nl*
11= printprocess*nl*
*np*
For examples of use see the program writestd.
*lm0**nl2*
*ns 1,2,Language: ALGOL*
---------*nl*
*ns 1,2,Maintenance level: user*
------------------*nl*
*ef*
▶EOF◀