DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »ttestterm«

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

TextFile

job
testterm=set 100
testterm=algol
Anders Lindgård
1978-10-20
begin
integer n,i,j,k,times,sh,chars,bytes,reals,bl;
real cpu,cpu0,time,time0,tn;
integer array ia(1:10);
array text(1:128);
movestring(text, 1,<:123456789012345678901234567890:>);
movestring(text, 6,<:abcdefghijklmnopqrstuvwxyzæøå<7>:>);
movestring(text,11,<:123456789098765432101234567890:>);
movestring(text,16,<:abcdefghijklmnopqrstuvwxyzæøå$:>);
movestring(text,21,<:135790246813579024681357902468:>);
movestring(text,26,<:abcdefghijklmnopqrstuvwxyzæøå#:>);
movestring(text,31,<:!"#$'()=ü*`+?><;,./:^-12345678:>);
movestring(text,36,<:!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!:>);
movestring(text,41,<:!"!"!"!"!"!"!"!"!"!"!"!"!"!"!":>);
movestring(text,46,<:()()()()()()()()()()()()()()():>);
movestring(text,51,<:123456789012345678901234567890:>);
movestring(text,56,<:abcdefghijklmnopqrstuvwxyzæøå):>);
for i:=61 step 1 until 90 do text(i):=text(i-59);
movestring(text,91,<:$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$:>);
for i:=96 step 1 until 128 do text(i):=text(i-95);
reals:=128;
bytes:=4*reals;
chars:=6*reals;
read(in,n,times,sh);
write(out,<:<10>times :>,times,
          <:<10>n     :>,n,
          <:<10>shares:>,sh);
setposition(out,0,0);

begin
zone array z(n,reals*sh,sh,stderror);
array name(1:2);

for i:=1 step 1 until n do
begin
  readstring(in,name,1);
  j:=1;
  open(z(i),8,string name(increase(j)),0);
  j:=1;
  write(out,<:<10>name :>,string name(increase(j)));
  setposition(out,0,0);
  if monitor(8,z(i),k,ia)<>0 then system(9,i,<:reservation:>);
  for j:=1 step 1 until sh  do
  begin
  outrec6(z(i),bytes);
  for bl:=1 step 1 until reals do z(i,bl):=text(if bl<=reals-2 then bl else 91);
  end setstring;
end loop;
for i:=1 step 1 until n do check(z(i));

cpu0:=systime(1,0,time0);
for j:=1 step 1 until times do
begin
  for i:=1 step 1 until n do
  begin
    outrec6(z(i),bytes);
  end n;
end times;
for i:=1 step 1 until n do check(z(i));
cpu:=systime(1,time0,time)-cpu0;
tn:=time/times;
write(out,<:<10>times   :>,times,
          <:<10>n       :>,n,
          <:<10>cpu     :>,<<ddddd.dd>,cpu,
          <:<10>real    :>,time,
          <:<10>cpu/t/n :>,<< ddd.dddd>,cpu/times/n,
          <:<10>real/t/n:>,tn/n,
          <:<10>c/s     :>,chars/tn);
end array block;
end;
▶EOF◀