Re: [Flashforth-devel] empty for PIC24 family

[Mikael N. <mik...@pp...>]

Hi Peter,
I have been meaning to thank you for tutorials.

Thank you !

I have not run the PIC24 code for a while on a chip with eeprom.
Probably the empty values are wrong somehow.
This could be related to some compile time configuration issue.
I cannot check it right now.

I don't remember why bit parameters between PIC24 and PIC18 are reversed.
Pure happenstance and sloppy thinking from my part...

You could also test the new BIT0: and BIT1: words while you are at it.
These are the same on all three architectures.
The speed when inlined should be the same as for pure assembly.

BR Mike

On 04/28/2014 03:47 PM, Peter Jacobs wrote:
> Mike,
>      I'm having a bit of fun updating the tutorials and extending them (a
> little) to the other architectures to which you've ported FF.
>
>      A small problem that I'm having tonight is that "empty" does not
> seem to reset the dictionary back to its original state of the
> PIC24FV16KM202.  If I put in a marker, I can take the dictionary back to
> the state before that marker, however, I forgot to do that before
> defining a few words and now I don't seem to be able to remove those
> words (short of reprogramming the chip).
>
>      Also, for the assembler words bset, and bclr, the order of bit and
> register-address arguments seem to be the reverse of the PIC18 family.
> Why is that?  (Just asking out of curiosity and, since I know almost
> nothing about the assembly language of these machines, I don't mind
> being told to read the docs.)
>
> Regards,
> Peter J.
>
> -speed-test
> marker -speed-test
> \ For the PIC24FV16KM202, waggle RB15 as quickly as we can,
> \ in both high- and low-level code.
>
> $02c8 constant trisb
> $02ca constant portb
> $02cc constant latb
> $02ce constant odcb
>
> 1 #15 lshift constant bit15
>
> : initRB15
>     bit15 trisb mclr \ RB15 as output
>     bit15 latb mclr \ initially known state
> ;
>
> \ high-level bit fiddling, presumably slow
> : blink-forth ( -- )
>     initRB15
>     begin
>       bit15 latb ! 0 latb ! \ one cycle, on and off
>       bit15 latb ! 0 latb !
>       bit15 latb ! 0 latb !
>       bit15 latb ! 0 latb !
>       cwd \ We have to kick the watch dog ourselves.
>     again
> ;
>
> \ low-level bit fiddling, via assembler
> : blink-asm ( -- )
>     initRB15
>     [
>     begin,
>       #15 latb bset,  #15 latb bclr, \ one cycle, on and off
>       #15 latb bset,  #15 latb bclr,
>       #15 latb bset,  #15 latb bclr,
>       #15 latb bset,  #15 latb bclr,
>       ] cwd [ \ kick the watch dog
>     again,
>     ]
> ;
>
>
>
> ------------------------------------------------------------------------------
> "Accelerate Dev Cycles with Automated Cross-Browser Testing - For FREE
> Instantly run your Selenium tests across 300+ browser/OS combos.  Get
> unparalleled scalability from the best Selenium testing platform available.
> Simple to use. Nothing to install. Get started now for free."
> http://p.sf.net/sfu/SauceLabs
> _______________________________________________
> Flashforth-devel mailing list
> Fla...@li...
> https://lists.sourceforge.net/lists/listinfo/flashforth-devel
>