MAP1 TAPS
MAP2 PORTS(4)
 MAP3 VALUE(4)
  MAP4 DB(12),F
MAP1 SZ
MAP2 SIZE(9),S,16
? TAB(-1,0);"Benchmark and Multiple Terminal Test. Written 12/24/79."
? TAB(6,1);"1.  The outermost loop consists of one hundred iterations."
? "2.  The 2nd loop consists of 100 iterations with one Disk access."
? "3.  The 3rd loop consists of 25 iterations with a conditional test on each."
? "4.  The 3rd loop also contains one addition and one multiplication."
? "5.  CRT I/O is performed on the first and second levels only."
? "6.  Timing reports are generated on every iteration of the outside loop."
for i=1 to 100
       ? tab(19,1);"Level one - Iteration number";i;space(10)
       START=TIME
       open #1,"DSK0:SPC1.DAT[100,3]",RANDOM,432,X
       for j=1 to 100
               ? tab(21,1);"   Level two - Iteration number";j;space(10)
               READ #1,PORTS(1),SZ
               Y=0
               for k=1 to 25
                       if X=X Y=Y+1:Y=Y*2
                       next
               next
       close #1
       FINISH=TIME-START
       ? TAB(23,1);"RUNTIME - PASS";i;"=";FINISH/60;"SECONDS"
       TOTAL=TOTAL+FINISH
       next
? "Total runtime for 100 passes =";TOTAL/60/60;"Minutes."
END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.