HP2000/Access - in it's final form - alive!!

From: Mike Gemeny <MGemeny_at_pgcps.org>
Date: Thu Jan 15 02:06:07 2004

Jay,
 Congrats on getting your system back up!
 
I have a favor to ask. Could you give us times for Access to run these HP benchmarks. HP was kind enough to give us times for a number of other systems, but Access was not around when these numbers were published. I guess we should know which CPU type your Main is too.
 
Were you able to get the HP2000 Access running under SIMH? It sure sucks a lot less juice than real hardware, and that translates directly into heat. The heat is reusable in the winter (free heat) but in the summer you have to pay a second time to get rid of the heat (AC).
 
I have a number of other HIB tapes that I need to get converted and tested. Are you in a position to convert dot-tap files back to real (reel) tapes? If so I can post things for you and send you a URL for them. Otherwise I would have to get some scratch tapes and cut them here and mail them.
How much disk are you running? We'll have to set up HIBE tapes that will fit on your system. We usually run 2 simulated 2883 disks for an Access simulation (50 MEG total) but that could be pushed up if we need it.
 
Keep us posted.
 
Mike.
 
BTEST
10 REM HP benchmark taken from "E" IMS. Rekeyed by MWG.
20 REM
30 REM System Time to Run
40 REM C' 2 Min. 2.8 sec.
50 REM F 1 Min. 16.5 sec.
60 REM C 2 Min. 2.5 sec.
70 REM E 1 Min. 23.6 sec.
80 REM Access Unk. Jay? Want to help out here?
90 REM
100 READ L
110 IF L<0 THEN 999
120 DATA 60000.
130 DATA -1
140 PRINT "START=";TIM(0)
150 X=0
160 X=X+1
170 IF X<L THEN 160
180 PRINT "X=";X;"STOP=";TIM(0)
190 GOTO 100
999 END

FPTS9
1 REM HP benchmark from "E" IMS. Rekeyed by MWG
2 REM
3 REM system time to run
4 REM C' 1 min. 58.2 sec.
5 REM F 1 min. 16.4 sec.
6 REM C 1 min. 58.2 sec.
7 REM E 1 min. 15.4 sec.
8 REM Access Unk. <-- Jay? want to help here?
10 DATA 5000
20 READ L
30 K=0
40 PRINT "start=";TIM(0)
50 I=0
60 J=50
70 I=I+J+100*(I-J)^2
80 I=I+I+I+I+I+I+I+I+I+I+I+I
90 J=I-J+I-J+I-J+I-J
100 I=J^(-2)+I*I*I
110 K=K+1
120 IF K<L THEN 50
130 PRINT "STOP=";TIM(0)
140 END

 
Received on Thu Jan 15 2004 - 02:06:07 GMT