CR
|
"
|
( [text<">< >] -- text-str text-len )
|
C7
|
#
|
( ud1 -- ud2 )
|
C9
|
#>
|
( ud -- str len )
|
CR
|
'
|
( "old-name< >" -- xt )
|
-
|
(
|
( [text<)> --)
|
CR
|
(.)
|
( n -- str len )
|
20
|
*
|
( nu1 nu2 -- prod )
|
1E
|
+
|
( nu1 nu2 -- sum )
|
6C
|
+!
|
( nu a-addr -- )
|
D3
|
,
|
( x -- )
|
1F
|
-
|
( nu1 nu2 -- diff )
|
9D
|
.
|
( nu -- )
|
CR
|
."
|
( [text<)>] -- )
|
CR
|
.(
|
( [text<)>] -- )
|
21
|
/
|
( n1 n2 -- quot )
|
CR
|
: (colon)
|
( "new-name< >" -- colon-sys ) ( E: ... -- ??? )
|
CR
|
; (semicolon)
|
( -- )
|
3A
|
<
|
( n1 n2 -- less? )
|
96
|
<#
|
( -- )
|
CR
|
<<
|
( x1 u -- x2 )
|
43
|
<=
|
( n1 n2 -- less-or-equal? )
|
3D
|
<>
|
( n1 n2 -- not-equal? )
|
3C
|
=
|
( n1 n2 -- equal? )
|
0B
|
>
|
( n1 n2 -- greater? )
|
42
|
>=
|
( n1 n2 -- greater-or-equal? )
|
CR
|
>>
|
( x1 u -- x2 )
|
CR
|
?
|
( addr -- )
|
6D
|
@
|
( a-addr -- x )
|
CR
|
[']
|
( [old-name< >] -- xt )
|
-
|
\
|
( -- )
|
-
|
]tokenizer
|
( -- )
|
A5
|
0
|
( -- 0 )
|
36
|
0<
|
( n -- less-than-0? )
|
37
|
0<=
|
( n -- less-or-equal-to-0? )
|
35
|
0<>
|
( n -- not-equal-to-0? )
|
34
|
0=
|
( nulflag -- equal-to-0? )
|
38
|
0>
|
( n -- greater-than-0? )
|
39
|
0>=
|
( n -- greater-or-equal-to-0? )
|
A6
|
1
|
( -- 1 )
|
CR
|
1+
|
( nu1 -- nu2 )
|
CR
|
1-
|
( nu1 -- nu2 )
|
A4
|
-1
|
( -- -1 )
|
A7
|
2
|
( -- 2 )
|
77
|
2!
|
( x1 x2 a-addr -- )
|
59
|
2*
|
( x1 -- x2 )
|
CR
|
2+
|
( nu1 -- nu2 )
|
CR
|
2-
|
( nu1 -- nu2 )
|
57
|
2/
|
( x1 -- x2 )
|
76
|
2@
|
( a-addr -- x1 x2 )
|
A8
|
3
|
( -- 3 )
|
29
|
>>a
|
( x1 u -- x2 )
|
0216
|
abort
|
( ... -- ) (R:... -- )
|
2D
|
abs
|
( n -- u )
|
CR
|
accept
|
( addr len1 -- len2 )
|
CR
|
again
|
( C: dest-sys -- )
|
0213
|
alarm
|
( xt n -- )
|
-
|
alias
|
( E: ... -- ???) ( "new-name< >old-name< >" -- )
|
AE
|
aligned
|
( n1 -- n1|a-addr )
|
8B
|
alloc-mem
|
( len -- a-addr )
|
CR
|
allot
|
( len -- )
|
23
|
and
|
( x1 x2 -- x3 )
|
CR
|
ascii
|
( [text< >] -- char )
|
12
|
b(")
|
( -- str len ) ( F: /FCode-string/ -- )
|
11
|
b(')
|
( -- xt ) ( F: /FCode#/ -- )
|
B7
|
b(:)
|
( E: ... -- ??? ) ( F: -- colon-sys )
|
C2
|
b(;)
|
( -- ) ( F: colon-sys -- )
|
A0
|
base
|
( -- a-addr )
|
13
|
bbranch
|
( -- ) ( F: /FCode-offset/ -- )
|
14
|
b?branch
|
( don't-branch? -- ) ( F: /FCode-offset/ --)
|
BD
|
b(buffer:)
|
( E: -- a-addr ) ( F: size -- )
|
C4
|
b(case)
|
( sel -- sel ) ( F: -- )
|
BA
|
b(constant)
|
( E: -- n ) ( F: n -- )
|
BB
|
b(create)
|
( E: -- a-addr ) ( F: -- )
|
BC
|
b(defer)
|
( E: ... -- ??? ) ( F: -- )
|
17
|
b(do)
|
( limit start -- ) ( F: /FCode-offset/ -- )
|
18
|
b(?do)
|
( limit start -- ) ( F: /FCode-offset/ -- )
|
CR
|
begin
|
( C: -- dest-sys ) ( -- )
|
DE
|
behavior
|
( defer-xt -- contents-xt )
|
AB
|
bell
|
( -- 0x07 )
|
C5
|
b(endcase)
|
( sel | <nothing> -- ) ( F: -- )
|
C6
|
b(endof)
|
( -- ) ( F: /FCode-offset/ -- )
|
44
|
between
|
( n min max -- min<=n<=max? )
|
BE
|
b(field)
|
( E: addr -- addr+offset ) ( F: offset size -- offset+size )
|
A9
|
bl
|
( -- 0x20 )
|
CR
|
blank
|
( addr len -- )
|
1B
|
b(leave)
|
( F: -- )
|
015B
|
blink-screen
|
( -- )
|
10
|
b(lit)
|
( -- n ) ( F: /FCode-num32/ -- )
|
7F
|
bljoin
|
( bl.lo b2 b3 b4.hi -- quad )
|
15
|
b(loop)
|
( -- ) ( F: /FCode-offset/ -- )
|
16
|
b(+loop)
|
( delta -- ) ( F: /FCode-offset/ -- )
|
B1
|
b(<mark)
|
( F: -- )
|
85
|
body>
|
( a-addr -- xt )
|
86
|
>body
|
( xt -- a-addr )
|
1C
|
b(of)
|
( sel of-val -- sel | <nothing> ) ( F: /FCode-offset/ -- )
|
AC
|
bounds
|
( n cnt -- n+cnt n )
|
B2
|
b(>resolve)
|
( -- ) ( F: -- )
|
AA
|
bs
|
( -- 0x08 )
|
C3
|
b(to)
|
( x -- )
|
CR
|
buffer:
|
( E: -- a-addr ) ( len "new-name< >" -- )
|
B8
|
b(value)
|
( E: -- x ) ( F: x -- )
|
B9
|
b(variable)
|
( E: -- a-addr ) ( F: -- )
|
B0
|
bwjoin
|
( b.lo b.hi -- w )
|
02 41
|
bxjoin
|
( b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi -- o )
|
023E
|
byte-load
|
( addr xt -- )
|
75
|
c!
|
( byte addr -- )
|
D0
|
c,
|
( byte -- )
|
5A
|
/c
|
( -- n )
|
-
|
/c*
|
( nu1 -- nu2 )
|
71
|
c@
|
( addr -- byte )
|
5E
|
ca+
|
( addr1 index -- addr2 )
|
CR
|
ca1+
|
( addr1 -- addr2 )
|
62
|
char+
|
( addr1 -- addr2 )
|
020E
|
$call-method
|
( ... method-str method-len ihandle -- ??? )
|
0208
|
call-package
|
( ... xt ihandle -- ??? )
|
0209
|
$call-parent
|
( ... method-str method-len -- ??? )
|
CR
|
carret
|
( -- 0x0D )
|
CR
|
case
|
( C: -- case-sys) ( sel -- sel )
|
0217
|
catch
|
( ... xt -- ??? error-code | ??? false )
|
65
|
cell+
|
( addr1 -- addr2 )
|
69
|
cells
|
( nu1 -- nu2 )
|
62
|
char+
|
( addr1 -- addr2 )
|
016C
|
char-height
|
( -- height )
|
66
|
chars
|
( nu1 -- nu2 )
|
016D
|
char-width
|
( -- width )
|
0236
|
child
|
( phandle.parent -- phandle.child )
|
0206
|
close-package
|
( ihandle -- )
|
0153
|
column#
|
( -- column# )
|
0151
|
#columns
|
( -- columns )
|
7A
|
comp
|
( addr1 addr2 len -- n )
|
DD
|
compile,
|
( xt -- )
|
CR
|
constant
|
( E: -- x ) ( x "new-name< >" -- )
|
CR
|
control
|
( [text< >] -- char )
|
84
|
count
|
( pstr -- str len )
|
0220
|
cpeek
|
( addr -- false | byte true )
|
0223
|
cpoke
|
( byte addr -- okay? )
|
92
|
cr
|
( -- )
|
91
|
(cr
|
( -- )
|
CR
|
create
|
( E: -- a-addr ) ( "new-name< >" -- )
|
CR
|
d#
|
( [number< >] -- n )
|
D8
|
d+
|
( d1 d2 --d.sum )
|
D9
|
d-
|
( d1 d2 -- d.diff )
|
CR
|
.d
|
( n -- )
|
-
|
decimal
|
( -- )
|
CR
|
decimal
|
( -- )
|
021B
|
decode-int
|
( prop-addr1 prop-len1 -- prop-addr2 prop-len2 n )
|
0128
|
decode-phys
|
( prop-addr1 prop-len1 -- prop-addr2 prop-len2 phys.lo ... phys.hi )
|
021C
|
decode-string
|
( prop-addr1 prop-len1 -- prop-addr2 prop-len2 str len )
|
016A
|
default-font
|
( -- addr width height advance min-char #glyphs )
|
CR
|
defer
|
( E: ... -- ??? ) ( "new-name< >" -- )
|
015E
|
delete-characters
|
( n -- )
|
0160
|
delete-lines
|
( n -- )
|
021E
|
delete-property
|
( nam-str nam-len -- )
|
51
|
depth
|
( -- u )
|
0201
|
device-name
|
( str len -- )
|
011A
|
device-type
|
( str len -- )
|
0120
|
diagnostic-mode?
|
( -- diag? )
|
A3
|
digit
|
( char base -- digit true | char false )
|
0121
|
display-status
|
( n -- )
|
CR
|
do
|
( C: -- dodest-sys ) ( limit start -- ) (R: -- sys )
|
CR
|
?do
|
( C: -- dodest-sys ) ( limit start -- ) ( R: -- sys )
|
0157
|
draw-character
|
( char -- )
|
0161
|
draw-logo
|
( line# addr width height -- )
|
46
|
drop
|
( x -- )
|
52
|
2drop
|
( x1 x2 -- )
|
CR
|
3drop
|
( x1 x2 x3 -- )
|
47
|
dup
|
( x -- x x )
|
53
|
2dup
|
( x1 x2 -- x1 x2 x1 x2 )
|
CR
|
3dup
|
( x1 x2 x3 -- x1 x2 x3 x1 x2 x3 )
|
50
|
?dup
|
( x -- 0 | x x)
|
CR
|
else
|
( C: orig-sys1 -- orig-sys2 ) ( -- )
|
8F
|
emit
|
( char -- )
|
0112
|
encode+
|
( prop-addr1 prop-len1 prop-addr2 prop-len2 -- prop-addr3 prop-len3 )
|
0115
|
encode-bytes
|
( data-addr data-len -- prop-addr prop-len )
|
0111
|
encode-int
|
( n -- prop-addr prop-len )
|
0113
|
encode-phys
|
( phys.lo ... phys.hi -- prop-addr prop-len )
|
0114
|
encode-string
|
( str len -- prop-addr prop-len )
|
00
|
end0
|
( -- )
|
FF
|
end1
|
( -- )
|
CR
|
endcase
|
( C: case-sys -- ) ( sel | <nothing> -- )
|
CR
|
endof
|
( C: case-sys1 of-sys -- case-sys2 ) ( -- )
|
CR
|
erase
|
( addr len -- )
|
015A
|
erase-screen
|
( -- )
|
CR
|
eval
|
( ... str len -- ??? )
|
CD
|
evaluate
|
(... str len -- ??? )
|
1D
|
execute
|
( ... xt -- ??? )
|
33
|
exit
|
( -- ) (R: sys -- )
|
8A
|
expect
|
( addr len -- )
|
-
|
external
|
( -- )
|
CA
|
external-token
|
( -- ) ( F: /FCode-string FCode#/ -- )
|
CR
|
false
|
( -- false )
|
0174
|
fb1-blink-screen
|
( -- )
|
0177
|
fb1-delete-characters
|
( n -- )
|
0179
|
fb1-delete-lines
|
( n -- )
|
0170
|
fb1-draw-character
|
( char -- )
|
017A
|
fb1-draw-logo
|
( line# addr width height -- )
|
0173
|
fb1-erase-screen
|
( -- )
|
0176
|
fb1-insert-characters
|
( n -- )
|
0178
|
fb1-insert-lines
|
( n -- )
|
017B
|
fb1-install
|
( width height #columns #lines -- )
|
0175
|
fb1-invert-screen
|
( -- )
|
0171
|
fb1-reset-screen
|
( -- )
|
017C
|
fb1-slide-up
|
( n -- )
|
0172
|
fb1-toggle-cursor
|
( -- )
|
0184
|
fb8-blink-screen
|
( -- )
|
0187
|
fb8-delete-characters
|
( n -- )
|
0189
|
fb8-delete-lines
|
( n -- )
|
0180
|
fb8-draw-character
|
( char -- )
|
018A
|
fb8-draw-logo
|
( line# addr width height -- )
|
0183
|
fb8-erase-screen
|
( -- )
|
0186
|
fb8-insert-characters
|
( n -- )
|
0188
|
fb8-insert-lines
|
( n -- )
|
018B
|
fb8-install
|
( width height #columns #lines -- )
|
0185
|
fb8-invert-screen
|
( -- )
|
0181
|
fb8-reset-screen
|
( -- )
|
0182
|
fb8-toggle-cursor
|
( -- )
|
87
|
fcode-revision
|
( -- n )
|
CR
|
fcode-version2
|
( -- )
|
FC
|
ferror
|
( -- )
|
CR
|
field
|
( E: addr -- addr+offset ) ( offset size "new-name< >" -- offset+size )
|
79
|
fill
|
( addr len byte -- )
|
CB
|
$find
|
( name-str name-len -- xt true | name-str name-len false )
|
0207
|
find-method
|
( method-str method-len phandle -- false | xt true )
|
0204
|
find-package
|
( name-str name-len -- false | phandle true )
|
0127
|
finish-device
|
( -- )
|
016E
|
>font
|
( char -- addr )
|
-
|
fload
|
( [filename<cr>] -- )
|
016F
|
fontbytes
|
( -- bytes )
|
0162
|
frame-buffer-adr
|
( -- addr )
|
8C
|
free-mem
|
( a-addr len -- )
|
0105
|
free-virtual
|
( virt size -- )
|
021d
|
get-inherited-property
|
( nam-str nam-len -- true | prop-addr prop-len false )
|
0125
|
get-msecs
|
( -- n )
|
021A
|
get-my-property
|
( nam-str nam-len -- true | prop-addr prop-len false )
|
021F
|
get-package-property
|
( name-str name-len phandle -- true | prop-addr prop-len false )
|
DA
|
get-token
|
( fcode# -- xt immediate? )
|
CR
|
h#
|
( [number< >] -- n )
|
CR
|
.h
|
( n -- )
|
-
|
headerless
|
( -- )
|
-
|
headers
|
( -- )
|
AD
|
here
|
( -- addr )
|
-
|
hex
|
( -- )
|
CR
|
hex
|
( -- )
|
95
|
hold
|
( char -- )
|
19
|
i
|
( -- index ) ( R: sys -- sys )
|
CR
|
if
|
( C: -- orig-sys ) ( do-next? -- )
|
020B
|
ihandle>phandle
|
( ihandle -- phandle )
|
015D
|
insert-characters
|
( n -- )
|
015F
|
insert-lines
|
( n -- )
|
C0
|
instance
|
( -- )
|
01 2B
|
interpose
|
( adr len phandle -- )
|
0154
|
inverse?
|
( -- white-on-black? )
|
0155
|
inverse-screen?
|
( -- black? )
|
26
|
invert
|
( x1 -- x2 )
|
015C
|
invert-screen
|
( -- )
|
011C
|
is-install
|
( xt -- )
|
011D
|
is-remove
|
( xt -- )
|
011E
|
is-selftest
|
( xt -- )
|
0214
|
(is-user-word)
|
( E: ... -- ??? ) ( name-str name-len xt -- )
|
1A
|
j
|
( -- index ) ( R: sys -- sys )
|
8E
|
key
|
( -- char )
|
8D
|
key?
|
( -- pressed? )
|
73
|
l!
|
( quad qaddr -- )
|
D2
|
l,
|
( quad -- )
|
6E
|
l@
|
( qaddr -- quad )
|
02 42
|
<l@
|
( qaddr -- n )
|
5C
|
/l
|
( -- n )
|
68
|
/l*
|
( nu1 -- nu2 )
|
60
|
la+
|
( addr1 index -- addr2 )
|
64
|
la1+
|
( addr1 -- addr2 )
|
0227
|
lbflip
|
( quad1 -- quad2 )
|
0228
|
lbflips
|
( qaddr len -- )
|
7E
|
lbsplit
|
( quad -- b.lo b2 b3 b4.hi )
|
82
|
lcc
|
( char1 -- char2 )
|
CR
|
leave
|
( -- ) ( R: sys -- )
|
CR
|
?leave
|
( exit? -- ) ( R: sys -- )
|
0240
|
left-parse-string
|
( str len char -- R-str R-len L-str L-len )
|
0152
|
line#
|
( -- line# )
|
94
|
#line
|
( -- a-addr )
|
CR
|
linefeed
|
( -- 0x0A )
|
0150
|
#lines
|
( -- rows )
|
CR
|
loop
|
( C: dodest-sys -- ) ( -- ) ( R: sys1 -- <nothing> | sys2)
|
CR
|
+loop
|
( C: dodest-sys -- ) ( delta -- ) ( R: sys1 -- <nothing> | sys2 )
|
0222
|
lpeek
|
( qaddr -- false | quad true )
|
0225
|
lpoke
|
( quad qaddr -- okay? )
|
27
|
lshift
|
( x1 u -- x2 )
|
0226
|
lwflip
|
( quad1 -- quad2 )
|
0237
|
lwflips
|
( qaddr len -- )
|
7C
|
lwsplit
|
( quad -- w1.lo w2.hi )
|
02 43
|
lxjoin
|
( quad.lo quad.hi -- o )
|
01A4
|
mac-address
|
( -- mac-str mac-len )
|
0130
|
map-low
|
( phys.lo ... size -- virt )
|
0124
|
mask
|
( -- a-addr )
|
2F
|
max
|
( n1 n2 -- n1|n2 )
|
0122
|
memory-test-suite
|
( addr len -- fail? )
|
2E
|
min
|
( n1 n2 -- n1|n2 )
|
22
|
mod
|
( n1 n2 -- rem )
|
2A
|
/mod
|
( n1 n2 -- rem quot )
|
0119
|
model
|
( str len -- )
|
78
|
move
|
( src-addr dest-addr len -- )
|
0126
|
ms
|
( n -- )
|
0102
|
my-address
|
( -- phys.lo ... )
|
0202
|
my-args
|
( -- arg-str arg-len )
|
020A
|
my-parent
|
( -- ihandle )
|
0203
|
my-self
|
( -- ihandle )
|
0103
|
my-space
|
( -- phys.hi )
|
020D
|
my-unit
|
( -- phys.lo ... phys.hi )
|
5D
|
/n
|
( -- n )
|
CR
|
/n*
|
( nu1 -- nu2 )
|
61
|
na+
|
( addr1 index -- addr2 )
|
CR
|
na1+
|
( addr1 -- addr2 )
|
B6
|
named-token
|
( -- ) ( F: /FCode-string FCode#/ -- )
|
2C
|
negate
|
( n1 -- n2 )
|
011F
|
new-device
|
( -- )
|
B5
|
new-token
|
( -- ) ( F: /FCode#/ -- )
|
023D
|
next-property
|
( previous-str previous-len phandle -- false | name-str name-len true )
|
4D
|
nip
|
( x1 x2 -- x2 )
|
7B
|
noop
|
( -- )
|
CR
|
not
|
( x1 -- x2 )
|
A2
|
$number
|
( addr len -- true | n false )
|
CR
|
of
|
( C: case-sys1 -- case-sys2 of-sys ) ( sel of-val -- sel | <nothing> )
|
6B
|
off
|
( a-addr -- )
|
CC
|
offset16
|
( -- )
|
6A
|
on
|
( a-addr -- )
|
0205
|
open-package
|
( arg-str arg-len phandle -- ihandle | 0 )
|
020F
|
$open-package
|
( arg-str arg-len name-str name-len -- ihandle | 0 )
|
24
|
or
|
( x1 x2 -- x3 )
|
93
|
#out
|
( -- a-addr )
|
48
|
over
|
( x1 x2 -- x1 x2 x1 )
|
54
|
2over
|
( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 )
|
83
|
pack
|
( str len addr -- pstr )
|
011B
|
parse-2int
|
( str len -- val.lo val.hi )
|
023C
|
peer
|
( phandle -- phandle.sibling )
|
4E
|
pick
|
( xu ... x1 x0 u -- xu ... x1 x0 xu )
|
0110
|
property
|
( prop-addr prop-len name-str name-len -- )
|
012A
|
pop-package
|
( -- )
|
0129
|
push-package
|
( phandle -- )
|
31
|
r>
|
( -- x ) ( R: x -- )
|
32
|
r@
|
( -- x ) ( R: x -- x )
|
9E
|
.r
|
( n size -- )
|
30
|
>r
|
( x -- ) ( R: -- x)
|
0231
|
rb!
|
( byte addr -- )
|
0230
|
rb@
|
( addr -- byte )
|
0116
|
reg
|
( phys.lo ... phys.hi size -- )
|
CR
|
repeat
|
( C: orig-sys dest-sys -- ) ( -- )
|
0158
|
reset-screen
|
( -- )
|
0235
|
rl!
|
( quad qaddr -- )
|
0234
|
rl@
|
( qaddr -- quad )
|
4F
|
roll
|
( xu ... x1 x0 u -- xu-1 ... x1 x0 xu )
|
4A
|
rot
|
( x1 x2 x3 -- x2 x3 x1 )
|
4B
|
-rot
|
( x1 x2 x3 -- x3 x1 x2 )
|
56
|
2rot
|
( x1 x2 x3 x4 x5 x6 -- x3 x4 x5 x6 x1 x2 )
|
28
|
rshift
|
( x1 u -- x2 )
|
0233
|
rw!
|
( w waddr -- )
|
0232
|
rw@
|
( waddr -- w )
|
022E
|
rx@
|
( xaddr -- o )
|
022F
|
rx!
|
( o xaddr -- )
|
CR
|
s"
|
( [text<">] -- test-str text-len )
|
CR
|
s.
|
( n -- )
|
C8
|
#s
|
( ud -- 0 0 )
|
9F
|
.s
|
( ... -- ... )
|
0131
|
sbus-intr>cpu
|
( sbus-intr# -- cpu-intr# )
|
0163
|
screen-height
|
( -- height )
|
0164
|
screen-width
|
( -- width )
|
023F
|
set-args
|
( arg-str arg-len unit-str unit-len -- )
|
016B
|
set-font
|
( addr width height advance min-char #glyphs -- )
|
DB
|
set-token
|
( xt immediate? fcode# -- )
|
98
|
sign
|
( n -- )
|
CR
|
space
|
( -- )
|
CR
|
spaces
|
( cnt -- )
|
88
|
span
|
( -- a-addr )
|
F0
|
start0
|
( -- )
|
F1
|
start1
|
( -- )
|
F2
|
start2
|
( -- )
|
F3
|
start4
|
( -- )
|
DC
|
state
|
( -- a-addr )
|
CR
|
struct
|
( -- 0 )
|
0215
|
suspend-fcode
|
( -- )
|
49
|
swap
|
( x1 x2 -- x2 x1 )
|
55
|
2swap
|
( x1 x2 x3 x4 -- x3 x4 x1 x2 )
|
CR
|
then
|
( C: orig-sys -- ) ( -- )
|
0218
|
throw
|
( ... error-code -- ??? error-code | ...)
|
CR
|
to
|
( param [old-name< >] -- )
|
0159
|
toggle-cursor
|
( -- )
|
-
|
tokenizer[
|
( -- )
|
CR
|
true
|
( -- true )
|
4C
|
tuck
|
( x1 x2 -- x2 x1 x2 )
|
90
|
type
|
( text-str text-len -- )
|
99
|
u#
|
( u1 -- u2 )
|
97
|
u#>
|
( u -- str len )
|
9A
|
u#s
|
( u1 -- u2 )
|
9B
|
u.
|
( u -- )
|
40
|
u<
|
( u1 u2 -- unsigned-less? )
|
3F
|
u<=
|
( u1 u2 -- unsigned-less-or-equal? )
|
3E
|
u>
|
( u1 u2 -- unsigned-greater? )
|
41
|
u>=
|
( u1 u2 -- unsigned-greater-or-equal? )
|
CR
|
(u.)
|
( n -- addr len )
|
58
|
u2/
|
( x1 -- x2 )
|
D4
|
um*
|
( u1 u2 -- ud.prod )
|
D5
|
um/mod
|
( ud u -- urem uquot )
|
2B
|
u/mod
|
( u1 u2 -- urem uquot )
|
89
|
unloop
|
( -- ) ( R: sys -- )
|
CR
|
until
|
( C: dest-sys -- ) ( done? -- )
|
81
|
upc
|
( char1 -- char2 )
|
9C
|
u.r
|
( u size -- )
|
0219
|
user-abort
|
( ... -- ) ( R: ... -- )
|
CR
|
value
|
( E: -- x) ( x "new-name< >"-- )
|
CR
|
variable
|
( E: -- a-addr ) ( "new-name< >"-- )
|
FD
|
version1
|
( -- )
|
74
|
w!
|
( w waddr -- )
|
D1
|
w,
|
( w -- )
|
6F
|
w@
|
( waddr -- w )
|
5B
|
/w
|
( -- n )
|
67
|
/w*
|
( nu1 -- nu2 )
|
70
|
<w@
|
( waddr -- n )
|
5F
|
wa+
|
( addr1 index -- addr2 )
|
63
|
wa1+
|
( addr1 -- addr2 )
|
80
|
wbflip
|
( w1 -- w2 )
|
0236
|
wbflips
|
( waddr len -- )
|
AF
|
wbsplit
|
( w -- b1.lo b2.hi )
|
CR
|
while
|
( C: dest-sys -- orig-sys dest-sys ) ( continue? -- )
|
0166
|
window-left
|
( -- border-width )
|
0165
|
window-top
|
( -- border-height )
|
45
|
within
|
( n min max -- min<=n<max? )
|
7D
|
wljoin
|
( w.lo w.hi -- quad )
|
0221
|
wpeek
|
( waddr -- false | w true )
|
0224
|
wpoke
|
( w waddr -- okay? )
|
0244
|
wxjoin
|
( w.lo w.2 w.3 w.hi -- o )
|
0245
|
x,
|
( o -- )
|
0246
|
x@
|
( xaddr -- o )
|
0247
|
x!
|
( o xaddr -- )
|
0248
|
/x
|
( -- n )
|
0249
|
/x*
|
( nu1 -- nu2 )
|
024a
|
xa+
|
( addr1 index -- addr2 )
|
024b
|
xa1+
|
( addr1 -- addr2 )
|
024c
|
xbflip
|
( oct1 -- oct2 )
|
024d
|
xbflips
|
( xaddr len -- )
|
024e
|
xbsplit
|
( o -- b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi )
|
024f
|
xlflip
|
( oct1 -- oct2 )
|
0250
|
xlflips
|
( xaddr len -- )
|
0251
|
xlsplit
|
( o -- quad.lo quad.hi )
|
25
|
xor
|
( x1 x2 -- x3 )
|
0252
|
xwflip
|
( oct1 -- oct2 )
|
0253
|
xwflips
|
( xaddr len -- )
|
0254
|
xwsplit
|
( o -- w.lo w.2 w.3 w.hi )
|