Glossary
Quartus memo words, in library order |
Forth word | stack descriptor | line# | memo file |
carray | ( n "name" -- ) | 5 | arcfour |
j+! | ( n -- ) | 12 | arcfour |
init-S | ( -- ) | 14 | arcfour |
mix-S | ( K-addr length -- ) | 16 | arcfour |
arcfourkey | ( K-addr length -- ) | 25 | arcfour |
arcfour | ( M-addr length -- ) |
28 | arcfour |
MD5 | ( c-addr u -- c-addr2 16 ) | 42 | arcfour |
ASSEMBLER | | 6 | asm68k |
CODE | | 11
| asm68k |
END-CODE | | 16 | asm68k |
FORTH | | 21 | asm68k |
2, | | 23 | asm68k |
?, | | 24 | asm68k |
define: | | 26 | asm68k |
postfix | | 30 | asm68k |
prefix |
| 31 | asm68k |
fix | | 32 | asm68k |
instr: | | 36 | asm68k |
.b | |
42 | asm68k |
.w | | 43 | asm68k |
.l | | 44 | asm68k |
sz | | 46 | asm68k |
long? | | 52 | asm68k |
-sz1 | | 53 | asm68k |
regs | | 56 | asm68k |
mode | |
59 | asm68k |
field | | 75 | asm68k |
dn? | ( ea -- ea flag ) | 82 | asm68k |
src | ( ea ins -- ea ins' ) |
83 | asm68k |
dst | ( ea ins -- ea ins' ) | 84 | asm68k |
double? | ( mode -- flag ) | 94 | asm68k |
index? | ( [n]
mode -- [a] mode ) | 96 | asm68k |
more? | ( ea -- flag ) | 102 | asm68k |
,more | ( ea -- ) | 103 | asm68k |
extra? |
( [n] mode -- mode ) | 108 | asm68k |
,extra | ( -- ) | 113 | asm68k |
imm | | 120 | asm68k |
immsr |
| 130 | asm68k |
iq | | 136 | asm68k |
ieaa | | 143 | asm68k |
isr | | 151
| asm68k |
ibit | | 170 | asm68k |
setclass | | 4 | asm68k.part2 |
ibra | | 6 | asm68k.part2
|
idbr | | 13 | asm68k.part2 |
iset | | 18 | asm68k.part2 |
MOVE | | 24 | asm68k.part2 |
MOVEQ | | 26 | asm68k.part2 |
MOVE>USP | ( An ) | 28 | asm68k.part2 |
MOVE<USP | ( An ) | 29 | asm68k.part2 |
MOVEM> | | 30 | asm68k.part2 |
MOVEM< | | 32 | asm68k.part2 |
MOVEP | | 34 | asm68k.part2 |
CMPM | | 39 | asm68k.part2 |
EXG | | 41 | asm68k.part2 |
EXT | ( Dn ) | 47 | asm68k.part2 |
SWAP | ( Dn ) | 48 | asm68k.part2 |
STOP | ( n ) | 49 | asm68k.part2 |
TRAP | ( n ) | 50 | asm68k.part2 |
LINK |
( n An ) | 51 | asm68k.part2 |
UNLK | ( An ) | 52 | asm68k.part2 |
EOR | ( Dn ea ) | 53 | asm68k.part2 |
CMP | (
ea Dn ) | 54 | asm68k.part2 |
ibcd | | 57 | asm68k.part2 |
idd | | 64 | asm68k.part2 |
idea |
| 71 | asm68k.part2 |
iead | | 82 | asm68k.part2 |
iea | | 91 | asm68k.part2 |
ieas | |
102 | asm68k.part2 |
icon | | 110 | asm68k.part2 |
THEN | ( fwdref -- ) | 118 | asm68k.part2 |
IF | ( condition -- fwdref ) |
121 | asm68k.part2 |
ELSE | ( oldfwdref -- newfwdref ) | 123 | asm68k.part2 |
BEGIN | ( -- target ) | 126 | asm68k.part2 |
UNTIL
| ( target cond -- ) | 127 | asm68k.part2 |
AGAIN | ( target -- ) | 129 | asm68k.part2 |
WHILE | ( cond -- fwdref ) | 130 | asm68k.part2
|
REPEAT | ( target fwdref -- ) | 131 | asm68k.part2 |
FOR | ( Dn -- Dn target ) | 134 | asm68k.part2 |
NEXT | ( Dn target -- ) |
136 | asm68k.part2 |
assert-error | ( x -- ) | 8 | assert |
assertion( | | 11 | assert |
assert0( | |
24 | assert |
assert1( | | 27 | assert |
assert2( | | 30 | assert |
assert3( | | 33 | assert
|
assert( | | 36 | assert |
backlight | ( bool --) | 3 | backlight |
backlight? | ( -- bool) | 6 | backlight
|
bitmap | ( height width "name" -- ) | 3 | bitmap |
date>day-of-week | | 34 | calendar |
kday | ( d1 k o -- d2) |
36 | calendar |
before | ( d1 k -- d2) | 42 | calendar |
on-or-before | ( d1 k -- d2) | 43 | calendar |
nearest | ( d1 k -- d2) |
44 | calendar |
on-or-after | ( d1 k -- d2) | 45 | calendar |
after | ( d1 k -- d2) | 46 | calendar |
nth | ( d1 k n -- d2) |
48 | calendar |
last | ( d1 k -- d2) | 54 | calendar |
first | ( d1 k -- d2) | 55 | calendar |
second | ( d1 k -- d2) |
56 | calendar |
third | ( d1 k -- d2) | 57 | calendar |
fourth | ( d1 k -- d2) | 58 | calendar |
fifth | ( d1 k -- d2) |
59 | calendar |
leapyear? | ( year -- bool) | 61 | calendar |
dmy>date | ( day month year -- d) | 66 | calendar |
reduce | ( ud1 ud2
-- udquot udrem) | 86 | calendar |
date>year | ( d -- year) | 89 | calendar |
date>dmy | ( d -- day month year) | 108 | calendar |
iso>date | ( day week year -- d) | 125 | calendar |
date>iso | ( d -- day week year) | 132 | calendar |
of | |
5 | case |
endof | | 10 | case |
endcase | | 13 | case |
thens | | 5 | condthens |
VALUE | ( x "name" --) | 3 | core-ext |
TO | ( x "name" --) | 6 | core-ext |
2R> | | 11 | core-ext
|
2>R | | 12 | core-ext |
2R@ | | 13 | core-ext |
?DO | | 15 | core-ext |
DO
| | 21 | core-ext |
?resolve-do | | 23 | core-ext |
LOOP | | 26 | core-ext |
+LOOP |
| 30 | core-ext |
C" | | 34 | core-ext |
ERASE | | 38 | core-ext |
PAD | |
40 | core-ext |
WITHIN | | 42 | core-ext |
D>S | | 44 | core-ext |
.R | | 46 | core-ext
|
U> | | 48 | core-ext |
U.R | | 50 | core-ext |
WITHIN | ( test low high -- flag) | 53 | core-ext
|
[COMPILE] | | 56 | core-ext |
UseCard | ( n -- ) | 13 | DataMgr |
OpenDB | ( mode zaddr len -- dbr. ) | 16 |
DataMgr |
CloseDB | ( dbr. -- ) | 22 | DataMgr |
CreateDB | | 25 | DataMgr |
dm* | ( d n -- d*n) | 4 | dblmath
|
dm/ | ( d +n -- d/n) | 5 | dblmath |
ud/mod | ( ud1 ud2 -- udr udq) | 9 | dblmath |
dmod | ( d +n -- +m) | 18 | dblmath
|
admod | ( d +n -- +m) | 22 | dblmath |
disassembler | | 9 | disasm |
w@ | ( a -- x ) | 14 | disasm |
b@ | ( a -- byte ) | 15 | disasm |
l@ | ( a -- x. ) | 16 | disasm |
approximate | | 21 | disasm |
exact
| | 22 | disasm |
doing-call | | 29 | disasm |
not-doing-call | | 30 | disasm |
byte>cell |
( byte -- n ) | 32 | disasm |
>flag | ( bool -- flag ) | 36 | disasm |
bits | ( n offset bits -- bits-of-n ) | 38 | disasm |
bit-set? | ( n bit -- flag ) | 41 | disasm |
op-bits | ( off #bits -- n ) | 44 | disasm |
op-bit? | ( bit# -- flag ) | 47 |
disasm |
op-btst | ( bit# -- ) | 50 | disasm |
6&7 | ( -- 6&7 ) | 59 | disasm |
6&7? | ( -- flag ) | 60 |
disasm |
op>>9 | ( -- op>>9 ) | 62 | disasm |
op>>3 | ( -- op>>3 ) | 63 | disasm |
a2+ | |
65 | disasm |
param | | 67 | disasm |
.# | ( -- ) | 69 | disasm |
., | ( -- ) | 71 | disasm |
bin.# | ( -- ) | 73 | disasm |
set-size | ( -- ) | 76 | disasm |
>arg | | 78 | disasm |
size$ |
| 80 | disasm |
.size | | 84 | disasm |
.long | | 86 | disasm |
.word | |
87 | disasm |
.byte | | 88 | disasm |
.base-char | | 90 | disasm |
done? | | 97 | disasm
|
+long | | 98 | disasm |
+cycles | | 99 | disasm |
+mem | | 100 | disasm |
+if-long
| | 101 | disasm |
is-mem | | 102 | disasm |
.imm | | 104 | disasm |
.areg | |
112 | disasm |
.dreg | | 113 | disasm |
.( | | 115 | disasm |
.) | | 116 |
disasm |
.an | | 117 | disasm |
.a@ | ( .areg .) | 118 | disasm |
.a@+ | ( .areg ." ) | 119 | disasm
|
.-a@ | | 120 | disasm |
.num | | 121 | disasm |
.dw | ( -- ) | 123 | disasm |
.param-size
| ( -- ) | 125 | disasm |
cstype | ( cs-addr u -- ) | 129 | disasm |
.called-name? | ( cfa -- ) | 132 | disasm |
.args-reladr
| ( adr -- ) | 137 | disasm |
.,r) | | 140 | disasm |
.an+w | ( op -- ) | 144 | disasm |
.param |
| 148 | disasm |
.an+r+b | | 3 | disasm.part2 |
.pc+r+b | | 7 | disasm.part2 |
.pc+w | |
9 | disasm.part2 |
.abs.w | | 11 | disasm.part2 |
.abs.l | | 13 | disasm.part2 |
.ext | ( op -- ) | 16
| disasm.part2 |
.source | | 21 | disasm.part2 |
,source | | 27 | disasm.part2 |
,areg | | 28
| disasm.part2 |
,dreg | | 29 | disasm.part2 |
.movem | | 32 | disasm.part2 |
nib4:0 | | 38 |
disasm.part2 |
dism-clr | | 43 | disasm.part2 |
nib4:4 | | 46 | disasm.part2 |
nib4:6 | | 53 |
disasm.part2 |
nib4:8 | | 59 | disasm.part2 |
nib4:10 | | 69 | disasm.part2 |
nib4:14 | | 74 |
disasm.part2 |
nib4:12 | | 83 | disasm.part2 |
nib4-unique | | 89 | disasm.part2 |
nib4-special | |
99 | disasm.part2 |
.nib4-reg | | 108 | disasm.part2 |
nib4 | | 129 | disasm.part2 |
.dest | |
3 | disasm.part3 |
nib1-3 | | 8 | disasm.part3 |
dyn$ | | 18 | disasm.part3 |
.stat-bit | | 21
| disasm.part3 |
nib0-unique | | 25 | disasm.part3 |
nib0$ | | 40 | disasm.part3 |
nib0-dest | |
44 | disasm.part3 |
nib0 | | 49 | disasm.part3 |
.cond$ | | 75 | disasm.part3 |
.cond | | 79 |
disasm.part3 |
set-high-branch | ( adr -- ) | 81 | disasm.part3 |
uncond-bra? | ( adr -- ) | 84 | disasm.part3 |
cond-bra? | ( adr -- ) |
90 | disasm.part3 |
nib5 | | 94 | disasm.part3 |
nib6 | | 112 | disasm.part3 |
.moveq | |
124 | disasm.part3 |
nib8 | | 128 | disasm.part3 |
nib9 | | 3 | disasm.part4 |
nib11 | | 20 |
disasm.part4 |
.mul | | 36 | disasm.part4 |
.exg | | 47 | disasm.part4 |
nib12 | | 49 | disasm.part4
|
.rot$ | | 63 | disasm.part4 |
.rotlr | | 66 | disasm.part4 |
nib14 | | 70 | disasm.part4 |
nib13 | | 79 | disasm.part4 |
init-disasm | | 95 | disasm.part4 |
disasm | ( a -- a+ flag ) | 100 | disasm.part4
|
forth? | | 111 | disasm.part4 |
see | | 141 | disasm.part4 |
outinit | ( -- ) | 14 | doc |
outfree | ( -- ) | 18 | doc |
out, | ( c -- ) | 23 | doc |
OpenDocDB | | 26 | doc |
CloseDocDB |
( dbr. -- ) | 30 | doc |
Decompress | ( addr. len -- a. n ) | 35 | doc |
GetRecord | ( index -- addr u ) | 64 | doc |
display
| ( c-addr. u -- ) | 76 | doc |
go | | 80 | doc |
Evaluate-Buf | ( -- ) | 30 | docinc |
Eval-Record |
( c-addr. u -- ) | 39 | docinc |
needed? | ( c-addr u -- flag ) | 60 | docinc |
DocIncluded | ( c-addr u -- ) | 64 | docinc |
DocNeeded | ( c u -- ) | 117 | docinc |
DocInclude | ( "name" -- ) | 120 | docinc |
DocNeeds | ( "name" -- ) | 122
| docinc |
DocInclude" | ( "name<">" -- ) | 124 | docinc |
DocNeeds" | ( "name<">" -- ) | 126 | docinc |
M+ | | 3 | double |
D= | | 4 | double |
D< | | 5 | double |
D0< |
| 6 | double |
D0= | | 7 | double |
D>S | | 8 | double |
D. | | 9 |
double |
2ROT | | 10 | double |
environment | ( -- ) | 4 | environment |
end-environment | ( -- ) | 6 | environment
|
ENVIRONMENT? | | 29 | environment |
coords@ | ( -- y x ) | 44 | Events |
itemid | | 46 | Events |
KEY? | ( -- flag ) | 3 | facility |
AT-XY | ( col row -- ) | 9 | facility |
TIME&DATE | | 4 | facility-ext
|
FlushQueue | ( -- ) | 5 | Fields |
FieldFocus | ( fieldid -- ) | 8 | Fields |
string>Field | ( c-addr u fieldID -- Err ) |
16 | Fields |
Field>string | ( c-addr fieldID -- len ) | 22 | Fields |
-frot | ( F: r1 r2 r3 -- r3 r1 r2 ) | 4 | float-ext |
F~ | ( F:
r1 r2 r3 -- ) | 7 | float-ext |
zeroes | ( n -- ) | 17 | float-ext |
(point) | | 23 | float-ext |
#trailing0 |
( c-addr u -- u1 ) | 25 | float-ext |
(f.) | ( F: r -- ) | 31 | float-ext |
F. | ( F: r --) | 47 | float-ext |
REPRESENT
| | 3 | float |
GetObjectIndex | ( objectid -- index ) | 3 | Forms |
GetObjectPtr | ( objectid -- ptr. ) | 7 | Forms |
GetControlValue | ( controlid -- flag ) | 12 | Forms |
SetControlValue | ( flag controlid -- ) | 17 | Forms |
SetLabel | ( &string. controlid --
) | 22 | Forms |
until-drawn | ( formID -- ) | 25 | Forms |
PopupForm | ( formID -- ) | 32 | Forms |
line | ( y2 x2
y1 x1 --) | 3 | graphics |
point | ( y x -- ) | 4 | graphics |
rpoint | ( y x --) | 7 | graphics |
point2 | ( y x --
y x) | 9 | graphics |
point4 | ( y x -- y -x) | 11 | graphics |
point8 | ( y x --) | 13 | graphics |
circle | ( radius
cy cx --) | 16 | graphics |
rounded-rectangle | | 27 | graphics |
rectangle | ( height width y x --) | 33 | graphics |
erase-rounded-rectangle | | 36 | graphics |
erase-rectangle | | 41 | graphics |
frame | | 46 | graphics |
at | ( y x --) | 63 | graphics |
cursor-position | ( -- y x ) | 65 | graphics |
(ID) | ( <cccc> -- id. ) | 8 | ids
|
[ID] | | 14 | ids |
ID | ( <cccc> -- ) | 18 | ids |
inputfldlen | ( -- len ) | 22 | input |
center-title | ( c-addr u -- ) | 26 | input |
get-input | | 33 | input |
string | | 69 | input |
test | | 70 | input |
(allocate) | ( u -- a. ior ) | 5 | Mem |
(free) | ( a. -- ior ) | 8 | Mem |
(size)
| ( a. -- u ) | 9 | Mem |
(resize) | ( a. u -- ior ) | 10 | Mem |
MemoDBR | | 10 | memo |
OpenMemoDB |
( -- ) | 13 | memo |
CloseMemoDB | ( -- ) | 17 | memo |
WriteNewMemo | ( zstring length -- ) | 20 | memo |
testdata |
| 31 | memo |
testdata1 | | 32 | memo |
test | | 34 | memo |
t | | 41
| memo |
dir | | 44 | memo |
inrange? | ( a. -- flag ) | 6 | memory |
rel>Handle | ( a -- h. ) | 9 |
memory |
Handle>rel | ( h. -- a 0=success|ior ) | 12 | memory |
ALLOCATE | ( u -- a ior ) | 17 | memory |
FREE | ( a -- ior ) |
20 | memory |
RESIZE | ( a1 u -- a2 ior ) | 23 | memory |
size | ( a -- u ) | 28 | memory |
o | | 10 |
music |
v | | 11 | music |
t | | 12 | music |
whole | | 14 | music |
half |
| 15 | music |
quarter | | 16 | music |
eighth | | 17 | music |
sixteenth | |
18 | music |
dot | | 19 | music |
reset | | 21 | music |
note | | 24 | music |
seed | ( ud -- ) | 3 | random |
rand | ( -- n ) | 4 | random |
getregs | | 6 | regs |
#8 | |
12 | regs |
.regs | | 16 | regs |
OpenResDB | | 7 | resources |
use-resources | |
13 | resources |
set | ( n <c> -- ) | 8 | roman |
symbol>value | ( char -- value ) | 20 | roman |
symbol10x | ( sym -- sym*10 )
| 22 | roman |
rn | ( <digit> <string> -- ) | 25 | roman |
digit>roman | ( c -- addr ) | 34 | roman |
roman>
| ( addr u -- n ) | 39 | roman |
roman10x | ( addr u -- ) | 52 | roman |
>roman | ( u1 -- addr u2 ) | 64 | roman |
bartype | ( u -- ) | 73 | roman |
split-roman | ( u -- nnn 1000's ) | 79 | roman |
romantype | ( +n -- ) | 85 | roman |
unique | | 6 | safe |
matchtag | | 10 | safe |
;; | | 12 | safe |
; |
| 14 | safe |
:noname | | 17 | safe |
: | | 18 | safe |
compiletime | ( xt "name" --) |
20 | safe |
anytime | ( xt "name" --) | 29 | safe |
comp? | | 38 | safe |
checkaddr | |
40 | safe |
check0 | | 44 | safe |
checkbase | | 46 | safe |
2or | ( d1. d2. -- d3. ) | 43 | serial
|
InitSerLib | ( -- err ) | 63 | serial |
serSysTrap | ( # -- ) | 68 | serial |
serSysTrap2n | ( a b # -- n ) | 71 |
serial |
serSysTrap4n | ( a b c d # -- n ) | 73 | serial |
serClearErr | ( -- ) | 76 | serial |
serOpen | ( baud. -- err ) |
79 | serial |
serClose | ( -- err ) | 82 | serial |
serSend10A | ( &addr. len. -- err ) | 86 | serial |
str>lstr | ( &addr len
-- &addr. len. ) | 89 | serial |
serSend10 | ( &addr len -- err ) | 92 | serial |
serSendA | ( &addr. len. -- #. err ) | 96 |
serial |
serSend | ( &addr len -- #. err ) | 102 | serial |
serSendWait | ( -- err ) | 105 | serial |
set-timeout | ( timeout. -- ) |
112 | serial |
get-timeout | ( -- timeout. ) | 115 | serial |
serRecv10A | ( &addr. len. -- err ) | 119 | serial |
serRecv10 | ( &addr
len -- err ) | 124 | serial |
serRecvA | ( &addr. len. -- #. err ) | 128 | serial |
serRecv | ( addr cnt -- #. err ) | 133 | serial
|
serRecvCheck | ( -- bytes. err ) | 137 | serial |
serRecvFlush | ( -- ) | 141 | serial |
serRecvWaitA | ( bytes. -- err ) |
145 | serial |
serRecvWait | ( bytes -- err ) | 149 | serial |
serSetRecvBuffA | | 153 | serial |
serSetRecvBuff | ( &addr len
-- err ) | 157 | serial |
serGetStatus | ( -- cts dsr err ) | 161 | serial |
serGetSettings | ( &settings -- err ) | 172 | serial |
serSetSettings | ( &settings -- err ) | 175 | serial |
cts? | ( -- flag ) | 178 | serial |
simple-handler | | 13
| simple-handler |
SystemSound | ( soundID --) | 3 | sound |
SndOldDoCmd | ( &sndcmd -- err) | 6 | sound |
sound | ( vol0..64 ms hz
--) | 11 | sound |
/STRING | | 3 | string |
BLANK | | 5 | string |
field | ( n "fieldname"
-- ) | 6 | struct |
end-struct | ( s "structname" --) | 10 | struct |
sizeof | ( "structname" -- s) | 14 | struct |
EMPTY-STACK | ( ... -- ) | 32 | tester |
ERROR | ( c-addr u -- ) | 37 | tester |
{ | | 50 | tester |
-> | ( ... -- ) | 54 | tester |
} | | 63 | tester |
TESTING | ( -- ) | 83 | tester |
type.left |
| 4 | textalign |
pixel-width | ( c-addr u -- width ) | 8 | textalign |
type.right | | 11 | textalign |
type.center
| ( c-addr u center -- ) | 16 | textalign |
unnest | | 11 | tinylocals |
&unnest. | | 16 | tinylocals |
use-locals | | 18 | tinylocals |
test | ( 0 -- 0 1 2 3 4 5 4 3 2 1 0 ) | 25 | tinylocals |
binary | | 5 | tinynums
|
tinychar | ( "name" -- ) | 7 | tinynums |
tinyspace | ( -- ) | 88 | tinynums |
tinycr | ( -- ) | 90 | tinynums
|
tinyemit | ( char -- ) | 93 | tinynums |
tinytype | ( c-addr u -- ) | 101 | tinynums |
place | ( a1 n1 a2 -- ) | 6 |
toolkit |
place, | ( a1 n1 -- ) | 9 | toolkit |
bounds | ( a n -- a+n a ) | 13 | toolkit |
>lower | ( C -- c ) | 16
| toolkit |
>upper | ( c -- C ) | 19 | toolkit |
append | ( at ut as us -- at ut+us ) | 24 | toolkit |
array | ( cells <name>
-- ) | 27 | toolkit |
under+ | ( n1 x1 n2 -- n1+n2 x1 ) | 31 | toolkit |
enum | ( n -- ) | 34 | toolkit |
[end] |
| 38 | toolkit |
[defined] | | 40 | toolkit |
0allot | ( chars -- ) | 42 | toolkit |
3drop | |
45 | toolkit |
4drop | | 46 | toolkit |
6drop | | 47 | toolkit |
[THEN] | ( --) | 3 | tools-ext
|
[ELSE] | ( --) | 6 | tools-ext |
[IF] | ( flag --) | 11 | tools-ext |
([if]) | ( flag --) | 14 | tools-ext |
([else]) | ( --) | 30 | tools-ext |
table | | 2 | trig |
(sin) | ( n -- n') | 27 | trig |
sin |
( n -- n') | 30 | trig |
cos | ( n -- n') | 34 | trig |
black | | 7 | turtle |
white | |
7 | turtle |
goto | ( y x ) | 8 | turtle |
drawto | ( toY toX --) | 9 | turtle |
turtle | |
12 | turtle |
sindist | ( angle distance -- yOffset) | 14 | turtle |
cosdist | ( angle distance -- xOffset) | 16 | turtle |
turn | ( angle
--) | 18 | turtle |
fwd | ( distance --) | 19 | turtle |
OSversion | ( -- minor major ) | 7 | Ver |
z" | ( ...<">
-- runtime: c-addr u ) | 5 | zstrings |