# Copyright (C) 2001-2005, The Perl Foundation.
# $Id: /mirror/trunk/examples/benchmarks/mops.pasm 20926 2007-08-30T21:25:32.006552Z chromatic  $

=head1 NAME

examples/benchmarks/mops.pasm - Calculate a benchmark for Integer PMCs

=head1 SYNOPSIS

    % ./parrot examples/benchmarks/mops.pasm

=head1 DESCRIPTION

Calculates a value for M ops/s (million operations per second) using
C<Integer> PMCs.

=cut

        new    P1, 'Integer'
        new    P2, 'Integer'
        new    P3, 'Integer'
        new    P4, 'Integer'
        new    P5, 'Integer'

        set    P2, 0
        set    P3, 1
        set    P4, 10000000

        print  "Iterations:    "
        print  P4
        print  "\n"

        # Eeevil hack.
        add    P5, P5, P4
        add    P5, P5, P4

        print  "Estimated ops: "
        print  P5
        print  "\n"

        time   N1

REDO:   sub    P4, P4, P3
        if     P4, REDO

        print  "done\n"
DONE:   time   N5

        sub    N2, N5, N1

        print  "Elapsed time:  "
        print  N2
        print  "\n"

        set    N1, P5
        div    N1, N1, N2
        set    N2, 1000000.0
        div    N1, N1, N2

        print  "M op/s:        "
        print  N1
        print  "\n"

        end

=head1 SEE ALSO

F<examples/mops/mops.c>,
F<examples/mops/mops.cs>,
F<examples/mops/mops.il>,
F<examples/mops/mops.p6>,
F<examples/mops/mops.pl>,
F<examples/mops/mops.ps>,
F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme>.

=cut
