$! 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@vax3.wupper.de (Andreas W Wylach)
$! Subject: Re: What dp VUPs really measure ?
$! Sender: news@ifwb.wupper.de (Net News Admin)
$! Message-ID: <E0o2yE.CA7@ifwb.wupper.de>
$! Date: Sun, 10 Nov 1996 18:20:38 GMT
$! Lines: 86
$! Reply-To: aw@vax3.wupper.de
$! References: <55vfv1$fje@news.NetVision.net.il> <56006q$pt5$1@nntpd.lkg.dec.com> <5618vk$pl0@paperboy.ids.net>
$! Organization: CDrei - Wuppertal - Germany
$! 
$! 
$! In article <5618vk$pl0@paperboy.ids.net>, mike@kronos.egr-ri.ids.net (Mike Umbricht) writes:
$! |>In article <56006q$pt5$1@nntpd.lkg.dec.com>, lionel@quark.zko.dec.com (Steve Lionel) writes:
$! |>>
$! |>>In article <55vfv1$fje@news.NetVision.net.il>, Uri Raz 
$! |>><s2845543@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 for
$! |>individuals that collect older computer systems.  I am interested in running
$! |>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    = 40			! VAX = 10 - Alpha/AXP = 40
$ cpu_round_add     =  9			! 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.Germany
$! Andreas W. Wylach, 		       | AW@IFWB.WUPPER.DE
$! AW@VAX1.wupper.de | AW@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. BIG)