From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/avr8/lib/dot-res.frt | 19 ------------------- 1 file changed, 19 deletions(-) delete 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 deleted file mode 100644 index 398bd88..0000000 --- a/amforth-6.5/avr8/lib/dot-res.frt +++ /dev/null @@ -1,19 +0,0 @@ - -\ 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