mirror of https://github.com/mgcaret/of816.git
59 lines
1.6 KiB
ArmAsm
59 lines
1.6 KiB
ArmAsm
|
|
; Environmental Queries dictionary
|
|
|
|
; See config.inc for the options that control the conditionals here
|
|
; If max_search_order is > 0, then more entries or overridden entries
|
|
; can be placed into the environmental queries dictionary by doing:
|
|
; $ENV?-WL SET-CURRENT and then defining the new values (usually via
|
|
; VALUE or 2VALUE).
|
|
|
|
dstart "env"
|
|
|
|
; magic word in case user makes this the only dictionary in the search order.
|
|
; it will bail the user out by executing the FORTH word
|
|
.if max_search_order > 0
|
|
dword XYZZY,"XYZZY",F_IMMED
|
|
.else
|
|
hword XYZZY,"XYZZY",F_IMMED
|
|
.endif
|
|
ENTER
|
|
.dword FORTH
|
|
EXIT
|
|
eword
|
|
|
|
.if env_query_level > 0
|
|
|
|
; Environmental queries
|
|
denvq xCOUNTEDSTR,"/COUNTED-STRING",$FF
|
|
denvq xHOLD,"/HOLD",word_buf_size
|
|
.if pad_size > 0
|
|
denvq xPAD,"/PAD",pad_size
|
|
.endif
|
|
denvq xADDRU,"ADDRESS-UNIT-BITS",8
|
|
denvq xFLOORED,"FLOORED",$FFFFFFFF
|
|
denvq xMAXCHAR,"MAX-CHAR",$FF
|
|
denvq xMAXD,"MAX-D",$FFFFFFFF,$7FFFFFFF
|
|
denvq xMAXN,"MAX-N",$7FFFFFFF
|
|
denvq xMAXU,"MAX-U",$FFFFFFFF
|
|
denvq xMAXUD,"MAX-UD",$FFFFFFFF,$FFFFFFFF
|
|
denvq xRSTKC,"RETURN-STACK-CELLS",64
|
|
denvq xSTKC,"STACK-CELLS",64
|
|
.if env_query_level > 1
|
|
denvq xCORE,"CORE",$FFFFFFFF
|
|
denvq xEXCEPTION,"EXCEPTION",$FFFFFFFF
|
|
denvq xEXCEPTION_EXT,"EXCEPTION-EXT",$FFFFFFFF
|
|
.endif
|
|
.if include_fcode
|
|
denvq xFCODE,"FCODE",$FFFFFFFF
|
|
.endif
|
|
.if max_search_order > 0
|
|
.if env_query_level > 1
|
|
denvq xSEARCH_ORDER,"SEARCH-ORDER",$FFFFFFFF
|
|
denvq xSEARCH_ORDER_EXT,"SEARCH-ORDER-EXT",$FFFFFFFF
|
|
.endif
|
|
denvq xWORDLISTS,"WORDLISTS",max_search_order
|
|
.endif
|
|
|
|
.endif
|
|
dend
|