Hi, Matthias,
I think error can be fixed by dividing mcu_maxdp value by 
two.
Something like this:

: .res ( -- )
     base @ >r
     decimal
     ver ."  running at " f_cpu &1000 um/mod . drop ." kHz 
" cr
     s" mcu-info" environment? if
  
       2 + @i 2/ dp -

        ." free FLASH cells        " u. cr
        else
          ." no flash size information available " cr
        then
        ." free RAM bytes          " unused u. cr
        ." used EEPROM bytes       " edp u. cr
        ." used data stack cells   " depth u. cr
        ." used return stack cells " rp0 rp@ - 1- 1- 2/ u. cr
        ." free return stack cells " rp@ sp0 - 1+ 1+ 2/ u. cr
     r> base !
; 

Vladimir

------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today.
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Amforth-devel mailing list for http://amforth.sf.net/
Amforth-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amforth-devel

Reply via email to