DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦3ca9eb176⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tstartup«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦0b817e319⟧ »ctramos« 
            └─⟦this⟧

TextFile

tstartup automatic 1982.01.06
Anders Lindgård
:5: automatic upstart: program
<*start up processes*>
algol list.on;
setbaseusercat;
name(1):=long <:osaut:>; name(2):=0;
i:=lookup_entry(name,tail);
<*+2*>
if testop(2) then write(out,"nl",1,<:osaut lookup :>,i);
<*-2*>
if i=0 and tail(1)>0 then
begin
  <*start up area present*>
  zone start(128,1,stderror);
  open(start,4,<:osaut:>,0);
  i:=nextfreeterm(sysconpda);
  write(out,"nl",1,<:start up area present:>);
  outendcur(0);
  readcommandlist(start,condesc.curcondesc,true);
end else lock:=false;
resetbase;
write(out,"nl",1,<:ready:>,"nl",1);
outendcur(10);
if fpout then closeout;
algol list.off;
▶EOF◀