|
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: 1536 (0x600)
Types: TextFile
Names: »readparinp«
└─⟦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*
1980-10-22
Anders Lindgård
*nl1*
*ct*
integer procedure readparam
*nl1*
*rj**np*
The procedure scans the file processor parameter list
of the program call.
*nl2*
Call:readparam(a)*nl*
*lm55*
*mt 1, readparam**cm 6 spaces*(return value, integer).
*sj*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>
*rj*
*mt 1, 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.
*lm0*
*nl2**np*
The parameter list is scanned using system(4,---. Each parameter
can only be read once.
*np*
The procedure was originally programmed and described by
P. Bruun Madsen.
*lm0**nl2*
*ns 1,2,Language: ALGOL*
---------*nl*
*ns 1,2,Maintenance level: user*
------------------*nl*
*ef*
▶EOF◀