DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »tprocdes«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦162d2eb5b⟧ »talgprog« 
            └─⟦this⟧ 

TextFile

message procdes
procdes=set 40 disc
scope project procdes
procdes=algol
1978-11-01
begin
integer pda,kind;
array process(1:2);
boolean common,address,times,claim,queue,total;
array procname,txt(1:3);

procedure writecommon(pda);
value pda; integer pda;
begin
integer array c(1:1);
integer i;
array field name;
i:=1;
name:=6;
redefarray (c,pda-4,100);
kind:=c(3);
write(out,"nl",1,<<-ddddddddd>,c(1),"sp",3,c(2),
"nl",1,"sp",6,string c.name(increase(i)),"nl",1,
<:kind = :>,kind);
if kind=0 then
begin
  if queue then write(out,"nl",1,<:next message :>,<<dddddd>,c(9),
               <:last message :>,c(10),
               <:next process :>,c(11),
               <:last process :>,c(12));
  if address then write(out,"nl",1,<:first address :>,<<dddddd>,c(13),
               <:last address :>,c(13));
  if claim then write(out,"nl",1,<:buf :>,c(15) shift (-12),
    "sp",4,<:area :>,c(15) extract 12,
    "nl",1,<:internal :>,c(16) shift (-12));
end kind=0;
end;
initfp;
total:=false;
readbfp(<:queue:>,queue,false);
readbfp(<:address:>,address,false);
readbfp(<:claim:>,claim,false);
if readsfp(<:name:>,procname,<::>) then
  begin
  if readsfpnext(fpnr,txt) and txt(1)=real <:total:> then
  total:=common:=address:=times:=claim:=queue:=true;
  pda:=description(procname);
  if pda=0 then write(out,"nl",1,<:process not found :>) else
  begin
   writecommon(pda);
  end;
  end;
end
mode 15.no list.no
▶EOF◀