aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/avr8/lib/forth2012/core/environment-q.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/avr8/lib/forth2012/core/environment-q.frt')
-rw-r--r--amforth-6.5/avr8/lib/forth2012/core/environment-q.frt53
1 files changed, 0 insertions, 53 deletions
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