From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- .../avr8/lib/forth2012/core/environment-q.frt | 53 ---------------------- 1 file changed, 53 deletions(-) delete mode 100644 amforth-6.5/avr8/lib/forth2012/core/environment-q.frt (limited to 'amforth-6.5/avr8/lib/forth2012/core/environment-q.frt') diff --git a/amforth-6.5/avr8/lib/forth2012/core/environment-q.frt b/amforth-6.5/avr8/lib/forth2012/core/environment-q.frt deleted file mode 100644 index e16428d..0000000 --- a/amforth-6.5/avr8/lib/forth2012/core/environment-q.frt +++ /dev/null @@ -1,53 +0,0 @@ -\ environment queries are placed in a -\ separate wordlist. - -\ #require imove.frt - -\ we have to distinguish between interpreted (RAM) -\ and compiled (Flash) strings. First the RAM -\ strings - -: (environment?) \ addr len -- 0|x*i -1 - environment search-wordlist dup - if >r execute r> then -; - - -\ the compiled (Flash) strings are transferred -\ to RAM and this copy processed afterwards. -: [environment?] - ( iaddr len -- ) - dup >r - here imove - here r> (environment?) -; - -\ a state smart word to decide what to do. -: environment? - state @ if - postpone [environment?] - else - (environment?) - then -; immediate - -\ some environment queries - -\ save the definitions word list for this file -\ and switch to the environment queries wordlist -get-current environment set-current - -: /counted-strings &60 ; -: floored 0 ; -: address-unit-bits $10 ; -: max-char $ff ; -: max-d $7fffffff. ; -: max-ud $ffffffff. ; -: max-n $7fff ; -: max-u $ffff ; - -: return-stack-cells &10 ; -: stack-cells &10 ; - -\ reset the definition word list -set-current -- cgit v1.2.3