@
dump
.
0<
+
probe-scsi

ok testa testb testc 
ok 

ok testa 
ok testb 
ok testc 
ok 

More [<space>,<cr>,q] ? 

byte

8 ビット値。 

cell

実装によって定義される固定サイズのセルであり、アドレス単位と対応のビット数で指定されます。データスタック要素、復帰スタック要素、アドレス、実行トークン、フラグ、整数は 1 セル幅です。 

OpenBoot システムでは、セルは最低 32 ビットからなり、十分に仮想アドレスを格納できます。セルサイズは実装によって異なることがあります。「32 ビット」実装のセルサイズは 4 であり、「64 ビット」実装のセルサイズは 8 です。 

doublet

16 ビット値。 

octlet

64 ビット値。64 ビット実装にかぎり定義されます。 

quadlet

32 ビット値。 

ok decimal 
ok 

ok hex 
ok 

ok 10 .d
16
ok 

ok 44     (値 44 がスタックの一番上に乗る)
ok 7      (値 7 がスタックの一番上に乗り、44はそのすぐ下になる)
ok 

ok showstack
44 7 ok 8
44 7 8 ok noshowstack 
ok 

44 7 8 ok +
44 f ok +
53 ok 

53 ok 12
53 12 ok .
12
53 ok .
53
ok   (ここではスタックは空)
ok 3 5 + .
8
ok   (ここではスタックは空) 
ok . 
Stack Underflow 
ok 

前後に空白文字を入れて表示される代替スタック結果。たとえば、( input -- addr len false | result true )。

未知のスタック項目 (1 つまたは複数)。 

未知のスタック項目 (1 つまたは複数)。スタックコメントの両側に使用した場合は、両側に同じスタック項目があることを意味します。 

空白区切り文字。先行空白文字は無視されます。 

可変境界アドレス。 

メモリーアドレス (一般的に仮想アドレス)。 

メモリー領域のアドレスと長さ。 

8 ビット値 (1 セル中の下位バイト)。 

7 ビット値 (1 セル中の下位バイト)。最上位ビットは不定。 

カウント値。 

長さ。 

カウント値または長さ。 

倍 (拡張) 精度数。2 セルで、スタックの上部には、最上位のセルが置かれる。quadlet (32 ビット)。 

行末区切り文字。 

0 (false フラグ)。 

通常の符号付き 1 セルの値。 

符号付きまたは符号なしの 1 セルの値。 

ゼロスタック項目。 

Octlet (符号付き 64 ビット値)。 

Octlet  

(64 ビット) 境界のアドレス。 

8 バイト数値。 

物理アドレス (実際のハードウェアアドレス)。 

物理アドレスの下位/上位セル。 

パックされた文字列。 

Quadlet (32 ビット値、1 セル中の下位 4 バイト) 

Quadlet (32 ビット値) 境界のアドレス。 

-1 (true フラグ)。(真) 

1 セル、符号なし 32 ビット値、正の値 (32 ビット)。 

仮想アドレス (ソフトウェアが使用するアドレス)。 

Doublet (16 ビット) 境界のアドレス。 

Doublet (16 ビット値、1 セル中の下位 2 バイト)。 

任意の 1 セルのスタック項目。 

データ項目の下位／上位ビット 

実行トークン。 

フラグ。名前は用途を示します (たとえば、 done? ok? error?)。

パックされない文字列のアドレスと長さ。 

制御フロー用スタック項目。実装に依存します。 

コンパイルスタックダイアグラム。 

実行スタックダイアグラム。 

復帰スタックダイアグラム。 

( ??? -- ) 

スタックを空にします。 

( ... -- ... u ) 

スタック上の項目数を返します。 

( x -- ) 

一番上のスタック項目を削除します。 

( x1 x2 -- ) 

スタックから 2 つの項目を削除します。 

( x1 x2 x3 -- ) 

スタックから 3 つの項目を削除します。 

( x -- x x )  

一番上のスタック項目を複製します。 

( x1 x2 -- x1 x2 x1 x2 ) 

2 つのスタック項目を複製します。 

( x1 x2 x3 -- x1 x2 x3 x1 x2 x3 ) 

3 つのスタック項目を複製します。 

( x -- x x | 0 ) 

一番上のスタック項目がゼロ以外の場合、複製します。 

( x1 x2 -- x2 ) 

2番目のスタック項目を削除します。 

( x1 x2 -- x1 x2 x1 ) 

2 番目のスタック項目をスタックの一番上にコピーします。 

( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 ) 

初めから 2 つのスタック項目をコピーします。 

( xu ... x1 x0 u -- xu ... x1 x0 xu ) 

u 番目のスタック項目をコピーします (1 pick = over)。

( x -- ) (R: -- x ) 

スタック項目を復帰スタックに転送します。 

( -- x ) ( R: x -- ) 

復帰スタック項目をスタックに転送します。 

( -- x ) ( R: x -- x ) 

復帰スタックの一番上をスタックにコピーします。  

( xu ... x1 x0 u -- xu-1 ... x1 x0 xu ) 

u 箇のスタック項目を回転します (2 roll = rot)。

( x1 x2 x3 -- x2 x3 x1 ) 

3 つのスタック項目を逆方向に回転します。 

( x1 x2 x3 -- x3 x1 x2 ) 

3 つのスタック項目を逆方向に回転します。 

( x1 x2 x3 x4 x5 x6 -- x3 x4 x5 x6 x1 x2 ) 

3 対のスタック項目を回転します。 

( x1 x2 -- x2 x1 ) 

一番上の 2 つのスタック項目を入れ換えます。 

( x1 x2 x3 x4 -- x3 x4 x1 x2 ) 

2 対のスタック項目を入れ換えます。 

( x1 x2 -- x2 x1 x2 ) 

一番上のスタック項目を 2 番目の項目の下にコピーします。 

5 77 ok dup     (一番上のスタック項目を複製) 
5 77 77 ok .    (一番上のスタック項目を削除し、表示) 
77 
5 77 ok

: new-name

( -- ) 

ワード new-name の新しいコロン定義を開始します。

;  

( -- ) 

コロン定義を終了します。 

ok : add4  + + + .  ;
ok 

ok 1 2 3 3 + + + .
9
ok 1 2 3 3 add4
9
ok 

ok : add4 
]  + + + 
]  . 
]  ; 
ok 

( nu1 nu2 -- sum ) 

nu1 + nu2 の加算を行います。

( nu1 nu2 -- diff ) 

nu1 - nu2 の減算を行います。

( nu1 nu2 -- prod ) 

nu1 * nu2 の乗算を行います。

( n1 n2 n3 -- quot ) 

nu1 * nu2 / n3 を計算します。入力、出力、中間値はすべて 1 つのセルに入ります。

( n1 n2 -- quot ) 

n1 を n2 で割ります。剰余は捨てられます。

( nu1 -- nu2 ) 

1 を足します。 

( nu1 -- nu2 ) 

1 を引きます。 

( nu1 -- nu2 ) 

2 を足します。 

( nu1 -- nu2 )  

2 を引きます。 

( n -- u ) 

絶対値。 

( start len -- len+start start ) 

do または ?do ループ用に start、len を end、start に変換します。

( n -- n | n+1 ) 

最も近い偶数の整数 >= n に丸めます。

( n1 n2 -- n3 ) 

n1 と n2 の大きいほうの値を n3 とします。 

( n1 n2 -- n3 ) 

n1 と n2 の小さいほうの値を n3 とします。 

( n1 n2 -- rem ) 

n1 / n2 の剰余を計算します。

( n1 n2 n3 -- rem quot ) 

n1 * n2 / n3 の剰余と商。

( n1 n2 -- rem quot ) 

n1 / n2 の剰余と商。

( n1 -- n2 ) 

n1 の符号を変更します。

(u1 u2 -- uprod ) 

符号なしの 2 つの数値を乗算し、符号なしの積を生じます。 

( u1 u2 -- urem uquot ) 

符号なし 1 セル数値を符号なし 1 セル数値で割り、 1 セルの剰余と商を生じます。 

( x1 u -- x2 ) 

lshift の同義語。

( x1 u -- x2 ) 

rshift の同義語。

( x1 -- x2 ) 

2 を掛けます。 

( x1 -- x2 ) 

2 で割ります。 

( x1 u -- x2 ) 

x1 を u ビット 右に算術シフトします。

( x1 x2 -- x3 ) 

ビット単位の論理積。 

( x1 -- x2 ) 

x1 の全ビットを反転します。

( x1 u -- x2 ) 

x1 を u ビット左シフトし、下位ビットにゼロを埋め込みます。

( x1 -- x2 ) 

invert の同義語。

( x1 x2 -- x3 ) 

ビット単位の論理和。 

( x1 u -- x2 ) 

x1 を u ビット右シフトし、上位ビットにゼロを埋め込みます。

( x1 -- x2 ) 

1 ビット右へ論理シフトし、上位ビットにゼロをシフトします。 

( x1 x2 -- x3 ) 

ビット単位排他的論理和。 

( d1 d2 -- d.sum ) 

d1 を d2 に足し、倍精度数 d.sum を生じます。 

( d1 d2 --d.diff ) 

d1 から d2 を引き、倍精度数 d.diff を生じます。 

( d n -- rem quot ) 

d を n で割ります。

( n1 n2 -- d ) 

符号付き乗算を行い、倍精度数の積を生じます。 

( n1 -- d1 ) 

数値を倍精度数に変換します。 

( d n -- rem quot ) 

d を n で割ります。対称除算。

( u1 u2 -- ud ) 

符号なし乗算を行い、符号なし倍精度数の積を生じます。 

( ud u -- urem uprod ) 

ud を u で割ります。

( b.low b2 b3 b.hi -- quad ) 

4 バイトを結合して quadlet (32 ビット) を作ります。 

( b.low b.hi -- word ) 

2 バイトを結合して doublet (16 ビット) を作ります。 

( quad1 -- quad2 ) 

quadlet 内の 4 バイトを逆に並べ替えます。 

( quad -- b.low b2 b3 b.hi ) 

quadlet を 4 バイトに分割します。 

( quad1 -- quad2 ) 

quadlet 内の 2 つの doublet をスワップします。 

( quad -- w.low w.hi ) 

quadlet を 2 つの doublet に分割します。 

( word1 -- word2 ) 

doublet 内の 2 バイトをスワップします。 

( word -- b.low b.hi ) 

doublet を 2 バイトに分割します。 

( w.low w.hi -- quad ) 

2 つの doublet を結合して quadlet を作ります。 

bxjoin

( b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi -- o ) 

8 バイトを結合して octlet を作ります。 

lxjoin

( quad.lo quad.hi -- o ) 

2 つの quadlet を結合して octlet を作ります。 

wxjoin

( w.lo w.2 w.3 w.hi -- o ) 

4 つの doublet を結合して octlet を作ります。 

xbflip

( oct1 -- oct2 ) 

octlet 内の 8 バイトを逆に並べ替えます。 

xbsplit

( o -- b.lo b.2 b.3 b.4 b.5 b.6 b.7 b.hi ) 

octlet を 8 バイトに分割します。 

xlflip

( oct1 -- oct2 ) 

octlet 内の 2 つの quadlet をスワップします。各 quadlet 内の 4 バイトは逆に並べ替えられません。 

xlsplit

( o -- quad.lo quad.hi ) 

octlet を 2 つの quadlet に分割します。 

xwflip

( oct1 -- oct2 ) 

octlet 内の 4 つの doublet を逆に並べ替えます。各 doublet 内の 2 バイトは並べ替えられません。 

xwsplit

( o -- w.lo w.2 w.3 w.hi ) 

octlet を 4 つの doublet に分割します。 

( n1 -- n1 | a-addr) 

必要な場合、 n1 大きくして可変境界アドレスを生じます。

( -- n ) 

バイトのアドレス単位数 : 1。 

( nu1 -- nu2 ) 

chars の同義語。

( addr1 index -- addr2 ) 

addr1 を/c の値の index 倍増やします。

( addr1 -- addr2 ) 

char+ の同義語。

( addr1 -- addr2 ) 

addr1 を /n の値だけ増やします。

( nu1 -- nu2 ) 

nu1 に /n の値を掛けます。

( addr1 -- addr2 ) 

addr1 を /c の値だけ増やします。

( nu1 -- nu2 ) 

nu1 に /c の値を掛けます。

( -- n ) 

quadlet のアドレス単位数 : 通常 4。 

( nu1 -- nu2 ) 

nu1 に /l の値を掛けます。

( addr1 index -- addr2 ) 

addr1 を /l の値の index 倍増やします。

( addr1 -- addr2 ) 

addr1 を /l の値だけ増やします。

( -- n ) 

セルのアドレス単位数。 

( nu1 -- nu2 ) 

cells の同義語。

( addr1 index -- addr2 ) 

addr1 を /n の値 index 倍増やします。

( addr1 -- addr2 ) 

cell+ の同義語。

( -- n ) 

doublet のアドレス単位数 : 通常 2。 

( nu1 -- nu2 ) 

nu1 に /w の値を掛けます。

( addr1 index -- addr2 ) 

addr1 を /w の値の index 倍増やします。

( addr1 -- addr2 ) 

addr1 を/w の値だけ増やします。

( -- n ) 

octlet のアドレス単位数 : 通常 8。 

( nu1 -- nu2 ) 

nu1 に /x の値を掛けます。

( addr1 index -- addr2 ) 

addr1 を /x の値のindex 倍増やします。

( addr1 -- addr2 ) 

addr1 を /x の値だけ増やします。

ok 4028 l@ 
ok 4029 l@ 
Memory address not aligned 
ok 

( x a-addr -- ) 

数値を a-addr に格納します。

( nu a-addr -- ) 

nu を a-addr に格納されている数値に加算します。

( a-addr -- x ) 

数値を a-addr から取り出します。

( x1 x2 a-addr -- ) 

2 つの数値を a-addr に格納します。 x2 が下位アドレス。

( a-addr -- x1 x2 )  

2 つの数値を a-addr から取り出します。x2 が下位アドレス。

( addr len -- ) 

addr からの len バイトを空白文字 (10 進の 32) に設定します。

( byte addr -- ) 

byte を addr に格納します。

( addr -- byte ) 

byte を addr から取り出します。

( addr -- false | byte true ) 

addr の 1 バイトを取り出します。アクセスが成功した場合はそのデータと true を返し、読み取りエラーが発生した場合は false を返します。

( byte addr -- okay? ) 

byte を addr に格納します。アクセスが成功した場合は true を返し、書き込みエラーが発生した場合は false を返します。

( addr1 addr2 len -- diff? ) 

2 つのバイト配列を比較します。両配列が等しい場合は diff? = 0、異なる最初のバイトにおいて、addr1 の文字列の方が小さい場合は diff?= -1、それ以外の場合は diff? = 1 になります。

( addr len -- ) 

addr から len バイトのメモリーを表示します。

( addr len -- ) 

addr から len バイトのメモリーを 0 に設定します。

( addr len byte -- ) 

addr から len バイトのメモリーを値 byte に設定します。

( q qaddr -- ) 

quadlet q を qaddr に格納します。

( qaddr -- q ) 

quadlet q を qaddr から取り出します。

( qaddr len -- ) 

指定された領域の各 quadlet 内のバイトを逆に並べ替えます。 

( qaddr len -- ) 

指定された領域の各 quadlet をスワップします。 

( qaddr -- false | quad true ) 

quadlet を qaddr から取り出します。アクセスが成功した場合はそのデータと true を返し読み取りエラーが発生した場合は false を返します。

( q qaddr -- okay? ) 

quadlet 8 を qaddr に格納します。アクセスが成功した場合は true を返し、書き込みエラーが発生した場合は false を返します。

( src-addr dest-addr len -- ) 

src-addr から dest-addr に len バイトをコピーします。

( a-addr -- ) 

a-addr に false を格納します。

( a-addr -- ) 

a-addr に true を格納します。

( q addr -- ) 

quadlet q を任意の境界に格納します。

( addr -- q ) 

quadlet q を任意の境界で取り出します。

( w addr -- ) 

doublet w を任意の境界に格納します。

( addr -- w ) 

doublet w を任意の境界で取り出します。

( w waddr -- ) 

doublet w を waddr に格納します。

( waddr -- w) 

doublet w を waddr から取り出します。

( waddr -- n ) 

doublet n を waddr から符号拡張して取り出します。

( waddr len -- ) 

指定された領域の各 doublet 内のバイトをスワップします。 

( waddr -- false | w true ) 

doublet w の数値を waddrから取り出します。アクセスが成功した場合はそのデータと true を返し、読み取りエラーが発生した場合は false を返します。

( w waddr -- okay? ) 

doublet w の数値を waddr に格納します。アクセスが成功した場合はそのデータと true を返し、読み取りエラーが発生した場合は false を返します。

( qaddr -- n ) 

quadlet を qaddr から符号を拡張して取り出します。 

( oaddr -- o ) 

octlet を 64 ビット 境界アドレスから取り出します。 

( o oaddr -- ) 

octlet を 64 ビット 境界アドレスに格納します。 

xbflips

( oaddr len -- ) 

指定された領域の各 octlet 内の 8 バイトを逆に並べ替えます。len が /x の整数倍でない場合は、動作は不定です。

xlflips

( oaddr len -- ) 

指定された領域の各 octlet 内の 2 つの quadlet をスワップします。各 quadlet 内の 4 バイトは逆に並べ替えられません。len が /x の整数倍でない場合は、動作は不定です。

xwflips

( oaddr len -- ) 

指定された領域の各 octlet 内の 4 つの doublet を逆に並べ替えます。各 doublet 内の 2 バイトはスワップされません。len が /x の整数倍でない場合は、動作は不定です。

ok 10000 20 dump						
(仮想アドレス 10000 からの 20 バイトを表示)
       ¥/ 1  2  3  4  5  6  7   8  9  a  b  c  d  e  f  v123456789abcdef
 10000 05 75 6e 74 69 6c 00 40  4e d4 00 00 da 18 00 00 .until.@NT..Z...
 10010 ce da 00 00 f4 f4 00 00  fe dc 00 00 d3 0c 00 00 NZ..tt..‾¥..S...
ok 

( len -- a-addr ) 

len バイトの空きメモリーを割り当てます。割り当てた仮想アドレスを返します。

( a-addr len -- ) 

alloc-mem で割り当てられていたメモリーを開放します。

( -- ) (E: ... -- ??? ) 

新しいコロン定義の作成を開始します。 

( -- ) 

新しいコロン定義の作成を終了します。 

( -- ) (E: ... -- ??? ) 

old-name と同じ操作をする new-name を作成します。

( size -- ) (E: -- a-addr )  

指定されたデータバッファーを作成します。name は a-addr を返します。 

( x -- ) (E: -- x )  

定数 (たとえば、3 constant bar) を作成します。

( x1 x2 -- ) (E: -- x1 x2 )  

2 つの数値の定数を作成します。  

( -- ) (E: -- a-addr )  

別のコマンドにより設定される動作を行う新しいコマンドを作成します。 

( name-str name-len -- ) 

name-string によって指定される名前を使用して create を実行します。

( -- ) (E: ... -- ??? )  

別の動作を行うコマンドを作成します。to で変更します。

( ... -- ... a-addr ) 

(E: ... -- ??? )  

create で作成されたワードの実行時の動作を指定します。

( offset size -- offset+size ) (E: addr -- addr+offset ) 

指定された name でフィールドオフセットポインタを作成します。 

( -- 0 ) 

struct...field 定義を開始します。

( x -- ) (E: -- x )  

指定された変数を作成します。to で変更します。

( -- ) (E: -- a-addr )  

指定された変数を作成します。name は a-addr を返します。 

ok 22 value foo
ok foo 3 + .
25
ok 

ok 43 value thisval
ok thisval .
43
ok 10 to thisval
ok thisval .
10
ok 

ok variable bar
ok 33 bar !
ok bar @ 2 + .
35
ok 

ok hex
ok defer printit
ok ['] .d  to  printit
ok ff printit
255
ok : myprint (n -- ) ." It is " .h
] ." in hex " ;
ok ['] myprint to printit
ok ff printit
It is ff in hex
ok 

( -- xt ) 

指定されたワードを辞書から検索します。実行トークンを返します。外部定義を使用します。 

( -- xt ) 

内部、外部のどちらの定義でも使用される点以外は、 ' と同じです。

( xt -- ) 

実行トークンが xt を使用するすべてのコマンドのリストを表示します。

( str len -- xt true | str len false ) 

str,len によって指定されるワードを探します。見つかった場合は、xt と true をスタックに残します。見つからなかった場合は、名前の文字列と false をスタックに残します。 

( pstr -- xt n | pstr false ) 

pstr によって指定されるワードを探します。見つかった場合は、xt と true をスタックに残します。見つからなかった場合は、名前の文字列と false をスタックに残します。(パックされた文字列を使用しないようにするため、 $find を使用するよう推奨します)。

( -- ) 

指定されたワードを逆コンパイルします。 

( xt -- ) 

実行トークンが xt であるワードを逆コンパイルします。 

( text-addr text-len -- ) 

text-string を含むすべてのコマンド名を表示します。 

( -- ) 

text を含むすべてのコマンド名を表示します text 内には空白文字はありません。

( -- )  

次に説明するように辞書内のすべてのワードを表示します。 

ok ' input .calls
	Called from input at 1e248d8
	Called from io at 1e24ac0
	Called from install-console at 1e33598
	Called from install-console at 1e33678
ok

ok see see
: see 
	⊆ [⊆] (see) catch if 
		drop 
	then 
; 
ok

ok sifting input
		In vocabulary options 
(1e333f8) input-device 
		In vocabulary forth 
(1e2476c) input							(1e0a9b4) set-input							(1e0a978) restore-input 
(1e0a940) save-input						(1e0a7f0) more-input?						(1e086cc) input-file 
ok

( n -- ) 

数値を辞書に入れます。 

( byte -- ) 

1 バイトを辞書に入れます。 

( word -- ) 

16 ビット数値を辞書に入れます。 

( quad -- ) 

32 ビット数値を辞書に入れます。 

( -- ) 

解釈を開始します。 

( -- ) 

解釈を終了し、コンパイルを再開します。 

( n -- ) 

辞書に n バイトを割り当てます。

( xt -- a-addr ) 

実行トークンからデータフィールドアドレスを見つけます。 

( a-addr -- xt ) 

データフィールドアドレスから実行トークンを見つけます。 

( -- ) 

次のワードを実行時にコンパイルします。(代わりに postpone を使用するよう推奨します。)

( -- ) 

次の (すぐ次の) ワードをコンパイルします。(代わりに postpone を使用するよう推奨します。)

( -- addr ) 

辞書の先頭アドレス。 

( -- ) 

最後の定義を即値としてマークします。 

( n -- ) 

defer ワードまたは value に新しい処理を実装します。

( n -- ) 

数値をコンパイルします。 

( -- addr ) 

Forth システムの開始アドレスを返します。 

( -- ) 

old-word を word-to-patch の new-word に置き換えます。

( new-n old-n xt -- ) 

old-n を xt によって示されるワードの new-n に置き換えます。

( -- ) 

ワード name の実行を遅らせます。

( ... -- ??? ) 

コンパイル中のワードへの再帰呼び出しをコンパイルします。 

( -- ) 

辞書内のコンパイル中のコロン定義の名前を見るようにし、したがって、そのワードの名前をそれ自身の定義内で再帰的に使用可能にします。 

( -- addr ) 

コンパイル状態のゼロ以外の変数。 

( o -- ) 

octlet、o をコンパイルして辞書に入れます (doublet 境界)。

( n -- ) 

数値を現在の基数で表示します。 

( n size -- ) 

数値を固定幅フィールドで表示します。 

( -- ) 

データスタックの内容を表示します。 

( ??? -- ??? ) 

各 ok プロンプトの前で自動的に .s を実行します。

( ??? -- ??? ) 

各 ok プロンプトの前でのスタック表示をオフにします。

( u -- ) 

符号なし数値を表示します。 

( u size -- ) 

数値を固定幅フィールドで表示します。 

( n -- ) 

基数を変更しないで n を 10 進で表示します。

( n -- ) 

基数を変更しないで n を 16 進で表示します。

( -- addr ) 

基数を格納している変数。 

( -- ) 

基数を 10 進に設定します。 

( -- n ) 

number を 10 進に変換します。基数は変更されません。

( -- ) 

基数を 16 進に設定します。 

( -- n ) 

number を 16 進に変換します。基数は変更されません。

ok decimal     (基数を 10 進に変更)
ok 4 h# ff 17 2
4 255 17 2 ok 

ok hex
ok ff .  ff .d
ff 255 
:

( -- ) 

コメントを開始します。習慣上スタックダイアグラム用に使用されます。 

( -- ) 

行の残りの部分をコメントとして扱います。 

( -- char ) 

次のワードの最初の ASCII 文字の数値を取り出します。 

( addr len1 -- len2 ) 

コンソールの入力デバイスから編集された入力行を獲得し、addr に格納します。len1 は許容される最大長です。len2 は実際に受け取られる長さです。

( addr len -- ) 

コンソールから入力行を獲得して表示し、 addr に格納します。(代わりに accept を使用するよう推奨します。)

( -- char ) 

入力デバイスのキーボードから 1 文字を読みます。 

( -- flag ) 

入力デバイスのキーボードでキーが押された場合 true。 

( char -- str len ) 

入力バッファーからの、char で区切られたテキストを構文解析します。

( -- str len ) 

入力バッファーからの、空白文字で区切られたテキストを、先行空白文字を読み飛ばして構文解析します。 

( char -- pstr ) 

入力文字列から char で区切られる文字列を集め、メモリー位置 pstr に入れます。(代わりに parse を使用するよう推奨します。)

( -- ) 

後の表示に備えて、文字列をコンパイルします。 

( -- ) 

出力カーソルを現在行の先頭に戻します。 

( -- ) 

ディスプレイ上の行を終了し、次の行に進みます。 

( char -- ) 

文字を表示します。 

( -- flag ) 

スクロール制御プロンプト More [<space>,<cr>,q] ? を有効にします。リターンフラグは、ユーザーが出力を終了する場合 true です。

( -- ) 

空白文字 を表示します。

( +n -- )  

+n 箇の空白文字を表示します。

( addr +n -- ) 

addr から始まる +n 箇の文字を表示します。

ok 3 . 44 . cr 5 .
3 44
5
ok 

ok ascii a 
61 ok 42
61 42 ok emit emit
Ba
ok 

( addr len -- ) 

addr から始まり、長さが len のバイトの配列をパックされた文字列としてコンパイルし、辞書の先頭に入れます。

( -- addr len ) 

翻訳結果またはコンパイル結果の入力ストリーム文字列をまとめます。 

文字列 cccを表示します。

( -- )  

文字列 ccc を即時に表示します。

( addr +n1 -- addr +n2 ) 

後続空白文字を削除します。 

( -- char ) 

空白文字の ASCII コード。10 進の 32。 

( pstr -- addr +n ) 

パックされている文字列をアンパックします。 

( char -- lowercase-char ) 

文字を小文字に変換します。 

( addr len char -- addrR lenR addrL lenL ) 

文字列を char で分割します (char は捨てられます)。

( addr len pstr -- pstr ) 

文字列 addr,len をパックされた文字列として pstr に格納します。

( char -- uppercase-char ) 

文字を大文字に変換します。 

ok  : testing 34 .  ." This is a test"  55 . ;
ok
ok testing
34 This is a test55
ok 

( device -- ) 

入力用のデバイス、たとえば ttya、keyboard、または device-specifier を選択します。

( device -- ) 

入出力用のデバイスを選択します。 

( device -- ) 

出力用のデバイス、たとえば ttya、keyboard、または device-specifier を選択します。

ok ttya input
ok

ok keyboard input 
ok

ok ttya output
ok

ok ttya io
ok 

ok " /sbus/cgsix" output

ok " screen" output

Return (Enter) 

現在の行の編集を終了し、カーソルの現在の位置に関係なく、表示されている 1 行全部をインタプリタに渡します。 

Control-B 

1 文字位置戻ります。 

Escape B 

1 語戻ります。 

Control-F 

1 文字位置進みます。 

Escape F 

1 語進みます。 

Control-A 

行の始めまで戻ります。 

Control-E 

行の終わりに進みます。 

Delete 

前の 1 文字を消去します。 

Backspace 

前の 1 文字を消去します。 

Control-H 

前の 1 文字を消去します。 

Escape H 

語の初めからカーソルの直前まで消去し、消去した文字を保存バッファーに格納します。 

Control-W 

語の初めからカーソルの直前まで消去し、消去した文字を保存バッファーに格納します。 

Control-D 

カーソル位置の次の文字を消去します。 

Escape D 

カーソル位置から語の終りまで消去し、消去した文字を保存バッファーに格納します。 

Control-K 

カーソル位置から行の終りまで消去し、消去した文字を保存バッファーに格納します。 

Control-U 

1 行を全部消去し、消去した文字を保存バッファーに格納します。 

Control-R 

1 行を表示しなおします。 

Control-Q 

次の文字の前に引用符を付けます (制御文字を挿入できます)。 

Control-Y 

保存バッファーの内容をカーソル位置の前に挿入します。 

Control-P 

コマンド履歴バッファー内の 1 行前のコマンド行を表示します。 

Control-N 

コマンド履歴バッファー内の次のコマンド行を表示します。 

Control-L 

コマンド履歴バッファーすべてを表示します。 

Control-Space 

現在のワードの名前を補完します。 

Control-? 

現在のワードのすべての一致候補を表示します。 

Control-/ 

現在のワードのすべての一致候補を表示します。 

( n1 n2 -- flag ) 

n1 < n2 の場合 true。

( n1 n2 -- flag ) 

n1 <= n2 の場合 true。

( n1 n2 -- flag ) 

n1 != n2 の場合 true。

( n1 n2 -- flag ) 

n1 = n2 の場合 true。

( n1 n2 -- flag ) 

n1 > n2 の場合 true。

( n1 n2 -- flag ) 

n1 >= n2 の場合 true。

( n -- flag ) 

n < 0 の場合 true。

( n -- flag ) 

n <= 0 の場合 true。

( n -- flag ) 

n <> 0 の場合 true。

( n -- flag ) 

n = 0 の場合 true (さらにフラグを反転します)。

( n -- flag ) 

n > 0 の場合 true。

( n -- flag )  

n >= 0 の場合 true。

( n min max -- flag ) 

min <= n <= max の場合 true。

( -- 0 ) 

FALSE (偽) の値 0。

( -- -1 ) 

TRUE (真) の値 -1。

( u1 u2 -- flag ) 

u1 < u2 の場合 true。u1、u2 とも符号なし。

( u1 u2 -- flag ) 

u1 <= u2 の場合 true。u1、u2 とも符号なし。

( u1 u2 -- flag ) 

u1 > u2 の場合 true。u1、u2 とも符号なし。

( u1 u2 -- flag ) 

u1 >= u2 の場合 true。u1、u2 とも符号なし。

( n min max -- flag ) 

min <= n < max の場合 true。

ok 3 6 > .
0     (3 は 6 より大きくない) 
ok 

if

( flag -- ) 

flag が true の場合、このコマンドの後のコードを実行します。

else

( -- ) 

flag が false の場合、このコマンドの後のコードを実行します。

then

( -- ) 

ifelsethen を終了します。

flag if
	(true の場合これを実行)
then	
(通常どおりに実行を継続

flag if
	(true の場合これを実行)
else
	(false の場合これを実行)
then	
(通常どおりに実行を継続)

ok : testit  (n -- ) 
] 5 >  if  ." good enough " 
] else  ." too small " 
] then 
] ." Done. "  ; 
ok
ok 8 testit
good enough Done. 
ok 2 testit 
too small Done. 
ok 

( selector -- selector )  

caseendcase 条件付き構造を開始します。

( selector -- ) 

caseendcase 条件付き構造を終了します。

( -- ) 

caseendcase 条件付き構造内の ofendof 句を終了します。

( selector test-value -- selector | {empty} ) 

case 条件付き構造内の ofendof 句を開始します。

ok : testit  (testvalue -- )
]	case
]		0  of  ." It was zero "     endof 
]		1  of  ." It was one "	     endof 
]		ff of  ." Correct "     endof 
]		-2 of  ." It was minus-two "	     endof 
]		(default )  ." It was this value: "  dup . 
]	endcase   ." All done."  ; 
ok
ok 1 testit
It was one All done.
ok ff testit
Correct All done.
ok 4 testit
It was this value: 4 All done.
ok 

( -- ) 

beginagain 無限ループを終了します。

( -- ) 

Begin a beginwhilerepeat、 beginuntil、または beginagain ループを開始します。

( -- ) 

beginwhilerepeat ループを終了します。

( flag -- ) 

flag が true である間、 beginuntil ループの実行を続けます。

( flag -- ) 

flag が true の間、 beginwhilerepeat ループの実行を続けます。

begin any commands flag until

begin any commands flagwhile
more commands	 repeat

ok begin 4000 c@ . key? until     (任意のキーが押されるまで繰り返す)
43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43 43
ok 

( n -- ) 

do+loop 構造を終了します。ループインデックスに n を加算し、do に戻ります (n < 0 の場合は、インデックスは start から end まで使用されます)。

( end start -- ) 

?doloop の 0 回またはそれ以上の実行を開始します。インデックスは start から end-1 まで使用されます。end = start の場合はループは実行されません。

( flag -- ) 

flag がゼロ以外の場合、doloop から抜けます。

( end start -- ) 

doloop を開始します。インデックスは start から end-1 まで使用されます。

例： 10 0 do i . loop ( 0 1 2...d e f と出力します。)

( -- n ) 

ループインデックスをスタックに残します。 

( -- n ) 

1 つ外側のループのループインデックスをスタックに残します。 

( -- ) 

doloop から抜けます。

( -- ) 

doloop を終了します。

ok 10 5 do i .  loop 
5 6 7 8 9 a b c d e f
ok
ok 2000 1000 do i .  i c@ . cr   i c@ ff = if leave then  4 +loop 
1000 23
1004 0
1008 fe
100c 0
1010 78
1014 ff
ok : scan (byte -- ) 
]    6000 5000
     (5000 〜 6000 のメモリー領域を走査して指定のバイト値に
      一致しないバイトを調べる)
]    do dup i c@ <> (byte error? ) 
]     if i . then  (byte ) 
]     loop 
]     drop (the original byte was still on the stack, discard it ) 
]  ; 
ok 55 scan 
5005 5224 5f99 
ok 6000 5000 do i i c! loop
     (メモリー領域にステップパターンを埋め込む)
ok       
ok 500 value testloc 
ok : test16 (-- ) 1.0000 0 (do 0-ffff )
     (指定位置に異なる 16 ビット値を書き込む)
]     do i testloc w! testloc w@ i <> (error? )     (さらに位置をチェック)
]       if ." Error - wrote " i . ." read " testloc w@ . cr 
]        leave (exit after first error found )     (この行は省略可能)
]       then 
]     loop 
]  ; 
ok test16 
ok 6000 to testloc 
ok test16 
Error - wrote 200 read 300 
ok 

ok 10 5 do i .  loop 
5 6 7 8 9 a b c d e f
ok
ok 2000 1000 do i .  i c@ . cr   i c@ ff = if leave then  4 +loop 
1000 23
1004 0
1008 fe
100c 0
1010 78
1014 ff
ok : scan (byte -- ) 
]    6000 5000
     (5000 〜 6000 のメモリー領域を走査して指定のバイト値に
      一致しないバイトを調べる)
]    do dup i c@ <> (byte error? ) 
]      if i . then  (byte ) 
]    loop 
]    drop (the original byte was still on the stack, discard it ) 
]  ; 
ok 55 scan 
5005 5224 5f99 
ok 6000 5000 do i i c! loop
     (メモリー領域にステップパターンを埋め込む)
ok       
ok 500 value testloc 
ok : test16 (-- ) 1.0000 0 (do 0-ffff )
     (指定位置に異なる 16 ビット値を書き込む)
]     do i testloc w! testloc w@ i <> (error? )     (さらに位置をチェック)
]       if ." Error - wrote " i . ." read " testloc w@ . cr 
]        leave (exit after first error found )     (この行は省略可能)
]       then 
]     loop 
]  ; 
ok test16 
ok 6000 to testloc 
ok test16 
Error - wrote 200 read 300 
ok 

( -- ) 

現在の実行を終了させ、キーボードコマンドを解釈します。 

( abort? -- ) 

abort? が true の場合は、実行を終了させてメッセージを表示します。

( addr len -- ) 

addr len から Forth のソースを解釈します。 

( xt -- ) 

実行トークンがスタックにあるワードを実行します。 

( -- ) 

現在のワードから復帰します (カウント付きループでは使用できません)。 

( -- ) 

スタック内容をまったく変えない点を除いて、 abort と同じです。