DataMuseum.dk

top - metrics - download

    Length: 3072 (0xc00)
    Types: TextFile
    Names: »printtautxt«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦e6c2bcfa6⟧ »cryprog« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦e6c2bcfa6⟧ »cryprog« 
            └─⟦this⟧ 

TextFile

;ali time.200 lines.7000

mode list.yes
lookup printtautxt
printtau=set 180 disc3
scope day printtau
lookup rydlist
if ok.yes
mode 15.yes
hjk=lookup statevar2 allstatel allstatel2 
if ok.no
contract from.crypr statevar allstatel allstatel2
hjk=lookup statevar ionloop ryglobal alutproc ryproc coreproc,
    rydseg rydstruct
if ok.no
contract from.crypr statevar ionloop ryglobal alutproc coreproc,
    rydseg rydstruct
hjk=lookup calctaupr printoscpr
if ok.no
contract from.cryprog calctaupr printoscpr
printtau=algol blocks.yes
printtau
1980-10-10
begin
  integer i,llmin,fp,c,char,
  maxlines,lines,res,tablenr,
  totpage,Zold;
long field time;
real brmin;
integer array tail,ctail(1:10);
array output,name(1:3);
boolean publish,lifetimes,taukey,brkey,
  first,line,notext,tp,multiplet,
  nocase,numcut,print;

procedure writepage(parentno,parterm,tablenr);
value parentno,tablenr;
integer parentno,tablenr;
integer array parterm;
begin
if publish then
begin
  writeff;
  lines:=1;
  writelines(2);
  write(out,"sp",44);
  S:=chargestate(2);
  comment writeatsym(out,S,atno,Z);
  write(out,"sp",1,<<d>,totpage);
  writelines(4);
end publish else
begin
  writeff;
  lines:=1;
end;
if -,publish and totpage=1 then begin
  writelines(1);
  write(out,"sp",20);
  time:=28;
  writedate(out,1.0*chargestate.time);
  writelines(2);
  end;
end writepage;
algol list.off copy.rydstruct;
algol list.off copy.rydseg;
algol list.off copy.alutproc;
algol list.off copy.coreproc;
algol list.off copy.ryproc;
algol list.off copy.calctaupr;
algol list.off copy.printoscpr;

algol list.off copy.ryglobal;
multiplet:=false;
readrfp(<:branch:>,brmin,0);
readifp(<:llmin:>,llmin,0);
readifp(<:lines:>,maxlines,68);
readbfp(<:lifetimes:>,lifetimes,true);
readbfp(<:taukey:>,taukey,false);
readbfp(<:branchkey:>,brkey,false);
readbfp(<:nounit:>,notext,true);
readbfp(<:nocase:>,nocase,true);
readbfp(<:publish:>,publish,false);
if publish then begin
  maxlines:=100+8;
  maxlines:=maxlines+6;
  comment Phys. Scr.;
  end;
tp:=false;
packtext(output,<: unknown:>);
if readlsfp(output) then begin
  res:=connectcuro(output);
  if res<>0 then begin
    unstackcuro;
    alarm(<:***connect output :>,string inc(output),res);
    end;
  tp:=output(1) shift (-32)=real <:tp:> shift (-32);
  if tp then write(out,false,100);
  end;
readifp(<:table:>,tablenr,0);
readbfp(<:line:>,line,false);
line:=false; <*is no longer in diprec*>
readinfp(name,1);
totpage:=0;
lines:=1;
writelines(2);
lines:=maxlines;
Zold:=-1;

algol list.off copy.ionloop;
print:=chargesegdes(16)<0;
numcut:=chargestate(15)=-1;
  if survey then
  begin
  res:=connectcuro(<:c:>);
  if res=0 then
    begin
    write(out,"nl",1); writeatsym(out,S,atno,Z);
    outendcur(0);
    end;
  unstackcuro;
  end survey;
  calctau(bsname,parterm,chargestates);
  if print then printosc(bsname,parterm,0);
end end end ionloop;
writelines(1);
outendcur(12);
if tp then write(out,false,100);
if fpout then closeout;
write(out,<:<10>pages :>,totpage);
end;
mode 15.no list.no
▶EOF◀