incdir  include:
                incdir  powerasm:source/powerpc_lib/warprace/

**      '(C) Copyright 1997 Haage & Partner Computer GmbH'
**           All Rights Reserved

                include powerpc/ppcmacros.i
                include powerpc/powerpc.i
                include warprace.i

                xref    _PowerPCBase
                xref    Empty68K

                xdef    PPCMain

                smalldata
                escapestr

                section code

LOOPCOUNT       =       1000

PPCMain
                prolog
                push    r31
                mr      r31,r5
                li      r3,LOOPCOUNT
                mtctr   r3
                lwz     r3,WRI_STARTTIMER_PPC(r31)
                mtlr    r3
                lwz     r3,WRI_LINKERDB(r31)
                blrl
.loop
                RUN68K  Empty68K
                bdnz    .loop
                lwz     r3,WRI_STOPTIMER_PPC(r31)
                mtlr    r3
                lwz     r3,WRI_LINKERDB(r31)
                blrl
                li      r4,LOOPCOUNT
                divwu   r3,r3,r4
                pop     r31
                epilog