From: Paul Sture [p_sture@elias.decus.ch]
Sent: Thursday, October 31, 2002 5:18 PM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: <None>

In article <OFF8CE8C7A.5FE268DA-ON85256C62.006C3047@metso.com>, norm.raphael@metso.com writes:
> 
> Good catch!
> That might be a useful line to add at the end of the procedure  ;-) .

Given that VUPOMETER has a date prior to Alphas, I don't think
it's valid any more.

Here is another I picked up a couple of years ago. It was pretty accurate
when applied to my Vaxstation 3100, and seems reasonably good on the
Alphas I have tried. I modified it then to do an Alpha/VAX test, but
I'll warn you now it is not Itanium compliant :-)

$!
$ set noon
$ orig_privs        = f$setprv("ALTPRI")
$ process_priority  = f$getjpi(0,"PRIB")
$ cpu_multiplier    = 10                        ! VAX = 10 - Alpha/AXP = 40
$ cpu_round_add     =  1                        ! VAX =  1 - Alpha/AXP =  9
$ if f$edit(f$getsyi("arch_name"),"upcase,trim") .eqs. "ALPHA"
$ then
$       cpu_multiplier = 40
$       cpu_round_add  =  9
$ endif
$ cpu_round_divide  = cpu_round_add + 1
$ init_counter      = cpu_multiplier * 525
$ init_loop_maximum = 205
$ start_cputime     = f$getjpi(0,"CPUTIM")
$ loop_index        = 0
$ 10$:
$     loop_index = loop_index + 1
$     if loop_index .ne. init_loop_maximum then goto 10$
$ end_cputime  = f$getjpi(0,"CPUTIM")
$ init_vups    = ((init_counter / (end_cputime - start_cputime) + -
                   cpu_round_add) / cpu_round_divide) * cpu_round_divide
$ loop_maximum = (init_vups * init_loop_maximum) / 10
$ base_counter = (init_counter * init_vups) / 10
$ vups         = 0
$ times_through_loop = 0
$ 20$:
$    start_cputime = f$getjpi(0,"CPUTIM")
$    loop_index = 0
$    30$:
$        loop_index = loop_index + 1
$        if loop_index .ne. loop_maximum then goto 30$
$    end_cputime = f$getjpi(0,"CPUTIM")
$    new_vups = ((base_counter / (end_cputime - start_cputime) + -
                  cpu_round_add) / cpu_round_divide) * cpu_round_divide
$    if  new_vups .eq. vups then goto 40$
$    vups = new_vups
$    times_through_loop = times_through_loop + 1
$ if times_through_loop .le. 5 then goto 20$
$ 40$:
$ new_privs = f$setprv(orig_privs)
$ set message /nofacility/noidentification/noseverity/notext
$ ASSIGN/SYSTEM/EXEC  'vups'  MACHINE_VUPS_RATING
$ set message /facility/identification/severity/text
$ write sys$output "Approximate System VUPs Rating :  ", -
                   vups / 10,".", vups - ((vups / 10) * 10)
$ exit

Result on my Alpha PWS 600au (598 MHz according to CLUE CONFIG):

Approximate System VUPs Rating :  757.0

The 466MHz DS10 at work comes out with over 900 on the same test. 


-- 
Paul Sture
Switzerland