|
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: »extfloat«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »extfloat«
external procedure fl;
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;
for i5 := 1,100,1000,10000,50000,100000,500000,
1000000 step 1000000 until 8000000 do
begin
i2:=800000;
r3:=0.1;
systime(1,0,base);
cpu:=systime(1,base,time);
for i1:=1 step 1 until i5 do
begin
r2:=i1;
r3:= r2+r2+r2+r2*r2*r2*r2*r2-r2-r2-r2-r2-r2/(r3/r2);
i2:=i2*i1*i1*i1*i1*i1;
end;
cpu:=systime(1,base,time1) - cpu;
time := time1 - time;
write(out,"nl",1,
<<-dddd.ddddd>,<: cpu = :>,cpu,<: real :>,time,
<: r3= :>,r3,<<-dddddddd>,<: i2= :>,i2,<: no. of calc.= :>,
i5);
end;
end;
end;
▶EOF◀