Re: [Flashforth-devel] problems with recent source build (FlashForth 5 PIC18F46K22 13.06.2019)

[craig b. <dab...@ya...>]

 Mike,

Out of sheer annoyance and desperation, I went through my source-text with a fairly large fire-axe and cut out all of the comments, everything ALREADY DEFINED, anything that popped out "?" or a COMPILE ONLY, and the drivers for chips that weren't on this board. Size dropped from over 63k to just under 29k and nothing that wasn't intended to get fed in to be compiled was left. LO-and-BEHOLD it reliably loads consistantly.
Being in a hurry under pressure bit me again, you'ld think I'ld learn (old bears take a while to pick up new tricks).

One of the new things I needed was increment and decrement for double-cell 32-bits. This seems quick on the Pic18 and I haven't found a hole in the logic yet:

$ffeb constant SWrw \ PLUSW0 \ FSR0 + Offset to Sp in W

: d1+ ( d -- d+1 ) \ increment double on stack
 [ $fd movlw, SWrw f, a, incf, ]
 [ $fe movlw, status $0 a, btfsc, SWrw f, a, incf, ]
 [ $ff movlw, status $0 a, btfsc, SWrw f, a, incf, ]
 [ $00 movlw, status $0 a, btfsc, SWrw f, a, incf, ]
;

: d1- ( d -- d-1 ) \ decrement double on stack
 [ $fd movlw, SWrw f, a, decf, ]
 [ $fe movlw, status $0 a, btfss, SWrw f, a, decf, ]
 [ $ff movlw, status $0 a, btfss, SWrw f, a, decf, ]
 [ $00 movlw, status $0 a, btfss, SWrw f, a, decf, ]
;


Thanks once again for your patience and attention,
craig



     On Friday, August 30, 2019, 5:36:39 AM EDT, Mikael Nordman <mik...@fl...> wrote:  
 
 Hi Craig.

If your flash DP grows over $ec00 it will overwrite the system DPs in 
eeprom.

There is no check or warning about this limit.

You can put 'flash here cr u. cr' in your source files to see what 
happens.

BR Mike

On 2019-08-29 23:19, craig bair via Flashforth-devel wrote:
> Am I violating some limit I'm unaware of yet? (It IS a lot of words...)
> Is there an earlier known-stable version of the source that I should be 
> using?
> Could I be puting something into a colon-definition that could trash a
> system pointer?
> 
> Any thoughts and/or suggestions appreciated gratly.
> Thanks.
> craig bair
> 
> 
> _______________________________________________
> Flashforth-devel mailing list
> Fla...@li...
> https://lists.sourceforge.net/lists/listinfo/flashforth-devel

-- 
--
Mikael


_______________________________________________
Flashforth-devel mailing list
Fla...@li...
https://lists.sourceforge.net/lists/listinfo/flashforth-devel