VUPS measuring utility

[John A. Dundas III]

$! Newsgroups: comp.os.vms
$! Path: 
news.rrz.uni-hamburg.de!cs.tu-berlin.de!fu-berlin.de!news.mathworks.com
!howland.erols.net!EU.net!main.Germany.EU.net!Dortmund.Germany.EU.net!ns.knirsch
.de!weller!ifwb!vax3.wupper.de!aw
$! From: aw at vax3.wupper.de (Andreas W Wylach)
$! Subject: Re: What dp VUPs really measure ?
$! Sender: news at ifwb.wupper.de (Net News Admin)
$! Message-ID: <E0o2yE.CA7 at ifwb.wupper.de>
$! Date: Sun, 10 Nov 1996 18:20:38 GMT
$! Lines: 86
$! Reply-To: aw at vax3.wupper.de
$! References: <55vfv1$fje at news.NetVision.net.il> 
<56006q$pt5$1 at nntpd.lkg.dec.co
m> <5618vk$pl0 at paperboy.ids.net>
$! Organization: CDrei - Wuppertal - Germany
$!
$!
$! In article <5618vk$pl0 at paperboy.ids.net>, 
mike at kronos.egr-ri.ids.net (Mike Um
bricht) writes:
$! |>In article <56006q$pt5$1 at nntpd.lkg.dec.com>, 
lionel at quark.zko.dec.com (Stev
e Lionel) writes:
$! |>>
$! |>>In article <55vfv1$fje at news.NetVision.net.il>, Uri Raz
$! |>><s2845543 at t2.technion.ac.il> writes:
$! |>>|>
$! |>>|>  After reading some articles trying to compare SPEC measures to VUP
$! |>>|> measures, I've started wondering what VUPs really measure.
$! |>>
$! |>>VUPs are similar in concept to the SPEC suite in that there is a specific
$! |>>collection of benchmark programs that are run and a performance range is
$! |>
$! |>Where can I get the code for the VUP benchmark programs?  Do you have a
$! |>reference that details how VUPs are defined?
$! |>
$! |>>The VUP rating is mostly of historical interest now.
$! |>
$! |>I am with a group called the Retro-Computing Society of RI - a 
user group f
or
$! |>individuals that collect older computer systems.  I am 
interested in runnin
g
$! |>the benchmark on our 750.  (Yes, I know what the answer is, but 
I'd like to
  see
$! |>how it is calculated.)
$! |>
$! |>-mike
$! |>
$!
$! Here we go, the dcl code for VUPS :
$!
$! CALCULATE_VUPS:
$!
$ 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
$ 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
$!
$! Have fun.
$!
$! see ya,
$! Andreasw
$! --
$! IfwBOnline Wuppertal,  Maerkische Str. 28,  D-42281 Wuppertal, 
F.R.Germa
ny
$! Andreas W. Wylach,                  | AW at IFWB.WUPPER.DE
$! AW at VAX1.wupper.de | AW at VAX3.wupper.de  | Local DECNet: VAX3::AW
$! Information system from students for students, WupperNet
$! @CDrei Wuppertal (FRG) /Miami (USA) - Competence, Consulting, Connectivity
$! --
$! This is comp.os.vms, not alt.read.my.mind (Carl J. Lydick)
$! --
$! This is WBIG New York, listen yo', there are a lot of dogs out 
there. (NOT. B
IG)

-- 
John A. Dundas III
Director, Information Technology Services Infrastructure, Caltech
Mail Code: 014-81, Pasadena, CA  91125-8100
Phone: 626.395.3392 FAX: 626.449.6973