2614D |
SetSysFlag
|
( # → )
Sets the system flag with number #.
<REF>TEXT:Flags
|
26044 |
ClrSysFlag
|
( # → )
Clears the system flag with number #.
<REF>TEXT:Flags
|
26170 |
TestSysFlag
|
( # → flag )
Returns TRUE if system flag is set.
<REF>TEXT:Flags
|
26152 |
SetUserFlag
|
( # → )
Set the user flag with number #.
<REF>TEXT:Flags
|
26049 |
ClrUserFlag
|
( # → )
Clear the user flag with number #.
<REF>TEXT:Flags
|
26175 |
TestUserFlag
|
( # → flag )
Returns TRUE if user flag is set.
<REF>TEXT:Flags
|
2F259 |
RCLSYSF
|
( → hxs )
Recalls system flags from 1 to 64.
<REF>TEXT:Flags
|
2F25F |
(STOSYSF)
|
( hxs → )
Stores system flags from 1 to 64.
<REF>TEXT:Flags
|
2F23E |
DOSTOSYSF
|
( hxs → )
Stores system flags from 1 to 64, checking
for changes in LASTARG flag.
|
2F25A |
(RCLSYSF2)
|
( → hxs )
Recalls system flags from 65 to 128.
|
2F260 |
(STOSYSF2)
|
( hxs → )
Stores system flags from 65 to 128.
|
2F25B |
RCLUSERF
|
( → hxs )
Recalls user flags from 1 to 64.
|
2F261 |
(STOUSERF)
|
( hxs → )
Stores user flags from 1 to 64.
|
2F25C |
(RCLUSERF2)
|
( → hxs )
Recalls user flags from 65 to 128.
|
2F262 |
(STOUSERF2)
|
( hxs → )
Stores user flags from 65 to 128.
|
2F3A9 |
(STOALLFcont)
|
( hxs_usr hxs_sys → )
Stores user and system flags from 1 to
64. First is user flags, second is system
flags.
|
2F3AA |
(STOALLFcont2)
|
( hxs_sys1 hxs_usr1 hxs_sys2 hxs_usr2 → )
Expects 4 hxs and stores them as user and
system flags.
|
3B76C |
(DOSTOALLF)
|
( {} → )
Stores system and user flags. Expects a list
with two or four hxs. The first two are the
system and user flags, respectively, from 1
to 64. The last two, if present, are the
system and user flags, respectively, from 65
to 128.
|
25F23 |
SaveSysFlags
|
( → )
Save system flags in a virtual stack.
<REF>TEXT:Flags
|
25F22 |
RestoreSysFlags
|
( → )
Restore system flags from virtual stack,
popping that level.
<REF>TEXT:Flags
|
2ABF0 |
RunSafeFlags
|
Run Stream:
( ob → )
Evaluates the next object in the runstream,
but saves and restores the system flags
around it. Uses DoRunSafe. This is very
useful.
<REF>TEXT:Flags
|
2AB69 |
RunInApprox
|
Run Stream:
( ob → )
Eval next object in runstream with system
flags 20, 21 clear and 22, 105, 102, 120 set.
--
Flags: -20 -21 -22 -105 -102 -120
|
2AC0E |
DoRunSafe
|
( ob → hxs1 hxs2 )
Evaluate ob and put the system flags as they
were before the evaluation on the stack.
Used by RunSafeFlags and RunSafeFlagsNoError.
|
2ABD7 |
RunSafeFlagsNoError
|
Run Stream:
( ob → )
:: 'R DoRunSafe 2DROP ;
|
2EFA5 |
DOHEX
|
( → )
Switch stack display format of HEX strings to
hexadecimal.
<REF>TEXT:Flags
|
2EFA8 |
DODEC
|
( → )
Switch stack display format of HEX strings to
decimal.
<REF>TEXT:Flags
|
2EFA6 |
DOBIN
|
( → )
Switch stack display format of HEX strings to
binary.
|
2EFA7 |
DOOCT
|
( → )
Switch stack display of HEX strings to octal.
|
2EFBF |
BASE
|
( → # )
Returns #10h, #10d, #10b or #10o. In decimal
terms, 16 for hexadecimal base, 10 for
decimal base, 8 for octal base or 2 for
binary base.
|
2605D |
DOSTD
|
( → )
Internal version of user word STD.
|
26053 |
DOFIX
|
( # → )
Internal version of user word FIX.
|
26058 |
DOSCI
|
( # → )
Internal version of user word SCI.
|
2604E |
DOENG
|
( # → )
Internal version of user word ENG.
|
261A7 |
savefmt1
|
( → )
Saves the current number format, and changes
to STD mode.
|
261A2 |
rstfmt1
|
( → )
Restores the number format saved by
savefmt1. Only one set of flags can be saved,
there is no nesting of these entries.
|
2FFDB |
SETRAD
|
( → )
Set angular mode to RAD.
|
25EF3 |
RAD?
|
( → flag )
Is angular mode RAD?
|
2FFBD |
SETDEG
|
( → )
Set angular mode DEG.
|
2FFEF |
SETGRAD
|
( → )
Set angular mode GRAD.
|
25EBA |
DPRADIX?
|
( → flag )
Returns TRUE if current radix is ".".
|
256AC |
UNDO_OFF
|
( → )
Turns saving of the last stack for UNDO off.
|
256A7 |
UNDO_ON
|
( → )
Turns saving of the last stack for UNDO on.
|
256A2 |
UNDO_ON?
|
( → flag )
Tests if last stack saving for UNDO is on.
|
25E6C |
1A/LockA
|
( → )
Equivalent to pressing the ALPHA key, turns
on ALPHA mode for either 1 keypress or until
the next ALPHA keypress, depending on system
flag 60.
--
Flags: -60
|