Elapsed_Int-18 Alteration

[Rob]

Hmmm,

although I said the penny had dropped, I don't seem to be able to make the code work where you said to put it:

</i></font>StartTimer:
    <b>IF </b>OSC = 48 <b>THEN              </b><font color="#000080"><i>; IF OSCILLATOR IS 48MHz THEN
        </i></font>@ BSF T1CON,T1CKPS0, 0    <font color="#000080"><i>; SET PRESCALE VALUE TO 2
    </i></font><b>ENDIF
    </b>T1CON.1 = 0                   <font color="#000080"><i>; (TMR1CS) Select FOSC/4 Clock Source
    </i></font>T1CON.3 = 0                   <font color="#000080"><i>; (T1OSCEN) Disable External Oscillator
    </i></font>T1CON.0 = 1                   <font color="#000080"><i>; (TMR1ON) Start TIMER1
</i></font><b>RETURN</b>

Now when I compile my program, it comes up with the error: Bad expression or missing THEN. (Elapsed_INT-18.bas)

Is this because the oscillator has been defined in my program and not in the Elapsed_INT-18? I've had problems similar to this before when I've tried to create simple modules like you do (not saying that yours are simple I mean my ones!). I like that style of programming I just can't seem to make it work.

Thanks for any help.

Rob

P.s. I looked up your thread "Show us your colours"... I like it!

[Darrel Taylor]

Try it like this ...

<font color="#000000"><b>StartTimer</b>:
<font color="#000080">@   IF OSC == 48                  </font><font color="#0000FF"><b><i>; IF OSCILLATOR IS 48MHz THEN
</i></b></font><font color="#000080">@       BSF T1CON,T1CKPS0, 0      </font><font color="#0000FF"><b><i>; SET PRESCALE VALUE TO 2
</i></b></font><font color="#000080">@   ENDIF
    </font><b>T1CON</b>.<font color="#800000"><b>1 </b></font>= <font color="#800000"><b>0                   </b></font><font color="#0000FF"><b><i>; (TMR1CS) Select FOSC/4 Clock Source
    </i></b></font><b>T1CON</b>.<font color="#800000"><b>3 </b></font>= <font color="#800000"><b>0                   </b></font><font color="#0000FF"><b><i>; (T1OSCEN) Disable External Oscillator
    </i></b></font><b>T1CON</b>.<font color="#800000"><b>0 </b></font>= <font color="#800000"><b>1                   </b></font><font color="#0000FF"><b><i>; (TMR1ON) Start TIMER1
</i></b></font><font color="#008000"><b>RETURN
</b></font>

The OSC value isn't directly available to PBP.

Or, you could make it available, and do it that way...

<font color="#000000"><b>PicOSC  </b><font color="#008000"><b>CON </b></font><b>EXT
</b><font color="#000080">@PicOSC = OSC

</font><b>StartTimer</b>:
    <font color="#008000"><b>IF </b></font><b>PicOSC </b>= <font color="#800000"><b>48 </b></font><font color="#008000"><b>THEN           </b></font><font color="#0000FF"><b><i>; IF OSCILLATOR IS 48MHz THEN
</i></b></font><font color="#000080">@       BSF T1CON,T1CKPS0, 0      </font><font color="#0000FF"><b><i>; SET PRESCALE VALUE TO 2
    </i></b></font><font color="#008000"><b>ENDIF
    </b></font><b>T1CON</b>.<font color="#800000"><b>1 </b></font>= <font color="#800000"><b>0                   </b></font><font color="#0000FF"><b><i>; (TMR1CS) Select FOSC/4 Clock Source
    </i></b></font><b>T1CON</b>.<font color="#800000"><b>3 </b></font>= <font color="#800000"><b>0                   </b></font><font color="#0000FF"><b><i>; (T1OSCEN) Disable External Oscillator
    </i></b></font><b>T1CON</b>.<font color="#800000"><b>0 </b></font>= <font color="#800000"><b>1                   </b></font><font color="#0000FF"><b><i>; (TMR1ON) Start TIMER1
</i></b></font><font color="#008000"><b>RETURN
</b></font>

[Rob]

Cool - it's working now! Cheers for showing me the second way as well as I think it may help me out with writing modules like you do!

Thanks very much

Rob