From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/avr8/lib/dot-res.frt | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 amforth-6.5/avr8/lib/dot-res.frt (limited to 'amforth-6.5/avr8/lib/dot-res.frt') diff --git a/amforth-6.5/avr8/lib/dot-res.frt b/amforth-6.5/avr8/lib/dot-res.frt new file mode 100644 index 0000000..398bd88 --- /dev/null +++ b/amforth-6.5/avr8/lib/dot-res.frt @@ -0,0 +1,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 ! +; -- cgit v1.2.3