|
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: 768 (0x300)
Types: TextFile
Names: »tfloattest«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »tfloattest«
begin
real r1,r2,r3,r4,r5,r6,r7,r8,r9,r0,
time,time1,cpu,base;
integer i1,i2,i3,i4,i5,i6,i7,i8,i9,i0;
i2:= -1;
i3:= 77777.77777777;
for i5 := 1,100,1000,10000,50000,100000,500000,
1000000 step 1000000 until 8000000 do
begin
systime(1,0,base);
cpu:=systime(1,base,time);
for i1:=1 step 1 until i5 do
begin
i2:=i2+i1;
i2:= i2*i2*i2*i2*i2*i2*i2*i2*i2;
r3:= r2+r2+r2+r2*r2*r2*r2*r2-r2-r2-r2-r2-r2/r3/r2/r2/r2;
end;
cpu:=systime(1,base,time1) - cpu;
time := time1 - time;
write(out,"nl",1,
<<-dddd.dddd>,<: cpu = :>,cpu,<: real= :>,time,
<: r3= :>,r3,<<-ddddddd>,<: i2= :>,i2,<: no. of calc.= :>,
i5);
fp_proc(34) close up:(0,out,'nl');
end;
end
▶EOF◀