$! 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
$! _at_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
Received on Thu Oct 21 2004 - 15:16:52 BST