Proton BASIC Compiler - Number of Cycles


  • PicŪ Basic


  • Number of Cycles

    If you want to know the number of cycles it takes to perform a task on a PICŪ the following gives an example...

    INCLUDE "PROTON_G20.INT" 'Proton 20MHz Graphics LCD
    DIM TIMER1 AS TMR1L.WORD 'See help file
    DIM X AS FLOAT
    DIM Y AS FLOAT 'Dim some FLOATS
    DIM Z AS FLOAT

    DELAYMS 500 'Give PICŪ a chance to wake-up

    CLS 'Clear the GLCD

    X = 1234.321 'Load 1234.321 into X FLOAT
    Y = 3.33 'Load 3.33 into Y FLOAT

    CLEAR TIMER1 'Clear TIMER1
    '#########################
    T1CON = %00000001 'Enable the Timer

    Z = X * Y 'Code to calculate

    T1CON = %00000000 'Stop the Timer
    '#########################

    PRINT AT 0,0,"CYCLES ",DEC TIMER1 'Print out the number of Cycles
    PRINT AT 2,0,"ANSWER ",DEC Z 'Print out Answer
    END
    contributed by RON