aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/lib/dot-res.frt
blob: 398bd881a37b0a26b6cf5915f24b7d54b6805400 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

\ dump free ressources
: .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       " ehere 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 !
;