aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/lib/forth-2012/core/environment-q.frt
blob: 3ba440f54d1c6a080b85d89f2db04e5dde0e67f4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
\ environment queries are placed in a
\ separate wordlist.

: environment? \ addr len -- 0|x*i -1
    environment search-wordlist dup
    if >r execute r> then
;

\ 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