Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!tut.cis.ohio-state.edu!mailrus!cornell!uw-beaver!sumax!polari!tm
From: tm@polari.UUCP (Toshi Morita)
Newsgroups: comp.binaries.apple2
Subject: SIEVE
Keywords: Pidgin program
Message-ID: <2232@polari.UUCP>
Date: 24 Jul 90 05:56:37 GMT
Distribution: na
Organization: Seattle Online Public Unix (206) 328-4944
Lines: 96


Demo Pidgin program


;
; Sieve benchmark
;

top;

byte FL(10001);

int IIN;
byte NU;
int ICO;
int IPR;
int IRE;

byte AA;
byte CR;
int ITH;
byte TN;
int ISI;
byte ZE;

byte SP;

;
; main code
;

beginmain(AC,IAV);

    CR=+013;
    SP=+032;

    ZE=+000;

    ITH=+00003;
    TN=+010;
    ISI=+10000;

    ms 'Sieve x 1'
    ms '0...     '
    write CR;

    NU=+255;
        while;
            NU++;
            AA=NU<!TN;
        on AA;

            ICO=+00000;             Set number of primes to zero

            IIN=+00000;
                while;              Clear flags array to one
                    IIN++;
                    AA=IIN<=ISI;
                on AA;
                    FL(IIN)=+001;
                endwhile;

            IIN=+00000;
                while;
                    IIN++;
                    AA=IIN<=ISI;
                on AA;
                    AA=FL(IIN);
                        if AA;
                            IPR=IIN+IIN;
                            IPR=IPR+ITH;
;                            decprt IPR;
;                            write SP;
                            IRE=IIN+IPR;

                                while;
                                    AA=IRE<!ISI;
                                on AA;
                                    FL(IRE)=ZE;
                                    IRE=IRE+IPR;
                                endwhile;

                            ICO++;
                        endif;
                endwhile;

        endwhile;

    ms '...done. ';
    write CR;
    decprt ICO;
    ms ' primes. ';

endmain;

bottom;