FORTH-83 標準指令
曾慶潭 Ching-Tang Tseng
ilikeforth@gmail.com
Hamilton, New Zealand
30 November 2008
堆疊註解之方式： ( 執行前 –- 執行後 )
堆疊代號縮寫說明：
n 任意16位元整數或16位元有號數。
+n 正的16位元有號數。
u 16位元無號數。
+i 正的堆疊指標，堆疊頂數值( +i本身不算 )之指標為0。
f 旗號，0 表假，-1 ( 十六進制FFFF )表真。
d 任意32位元整數或32位元有號數。
c 任意8位元數值( 高效8位元不使用 )或指ASCII符號。
addr 記憶體位址。
x 任意FORTH順序碼。
string 含兩個參數：一為字串位址，另一為字串長度，其中字串長度在堆疊頂端，且最大為255。
cfa FORTH指令之解碼欄位址。
pfa FORTH指令之參數欄位址。
『 ... 』 位於此符號中的中文，均為譯者賦予的較適當中文名稱。
1. 堆疊操作指令
DUP ( n - - n , n ) 複製堆疊頂端之值。
DROP ( n - - ) 丟棄堆疊頂端之值。
SWAP ( n1 , n2 - - n2 , n1 ) 互換堆疊頂上兩值。
OVER ( n1 , n2 - - n1 , n2 , n3 ) n3為n1之複製。
ROT ( n1 , n2 , n3 - - n2 , n3 , n1 ) 將n1旋轉置放至堆疊頂端。
PICK ( . . . +i - - . . . n ) 複製n(i)至堆疊頂端。
ROLL ( . . . +i - - . . . ) 將n(i)旋轉置放至堆疊頂端。
?DUP ( n - - 0 | n , n ) 若n不為0則複製n。
DEPTH ( - - +n ) 取得在使用DEPTH前放入堆疊數值之個數。『堆疊深度』
>R ( n1 - - ) 將n1推入回返堆疊。
R@ ( - - n1 ) 從回返堆疊複製n1。
R> ( - - n1 ) 從回返堆疊取回n1。
2. 記憶體操作指令
@ ( addr - - n ) 取出位址中之內容( 16位元 )。『飛取』
C@ ( addr - - c ) 取出位址中之內容( 8位元，而高效8位元內容為0 )。
! ( n , addr - - ) 將n存入位址中。『存妥』
C! ( c , addr - - ) 將c存入位址中。
+! ( n , addr - - ) 將n加存入位址中。
CMOVE ( addr1 , addr2 , u - - ) 『字元式搬運』
從addr1處搬移u個8位元數據至addr2處，低效位址先搬。
CMOVE> (addr1 , addr2, u - - )
從addr1處搬移u個8位元數據至addr2處，高效位址先搬。
FILL ( addr , u , c - - ) 『填入』
從addr處開始，將u個位元組( 每組8個位元 )填入c。
3. 算術運算操作指令
+ ( n1 , n2 - - sum ) n1加上n2。
- ( n1 , n2 - - diff ) n1減去n2。
* ( n1 , n2 - - product ) n1乘以n2。
/ ( n1 , n2 - - quotient ) n1除以n2 ( 餘數捨去 )。
MOD ( n1 , n2 - - remainder ) n1除以n2所得之餘數。
/MOD ( n1 , n2 - - rem , quot ) /與MOD二指令合併執行。
1+ ( n1 - - n2 ) n2=n1+1
1- ( n1 - - n2 ) n2=n1-1
2+ ( n1 - - n2 ) n2=n1+2
2- ( n1 - - n2 ) n2=n1-2
2/ ( n1 - - n2 ) n2=n1/2 ( 有號數 )。
ABS ( n1 - - u1 ) u1為n1之絕對值。
NEGATE ( n1 - - n2 ) n2=0-n1 ( 2的補數 )。
MAX ( n1 , n2 - - maximum ) 留下n1與n2中之較大者。
MIN ( n1 , n2 - - minimum ) 留下n1與n2中之較小者。
UM* ( u1 , u2 - - ud-product ) u1 * u2 ( 無號數 )。
UM/MOD ( u1, u2 - - u-rem , u-quo ) 與/MOD相似，但為無號數。
D+ ( dn1 , dn2 - - dn-sum ) dn1加上dn2。
DNEGATE ( dn1 - - dn2 ) dn2=0-dn1 ( 2的補數 )。
*/ ( n1 , n2 , n3 - - quot )
n1乘以n2後除以n3，其中之積為32位元之過渡數值。(『32位元』應改述為『雙整數』較妥)
4. 邏輯運算操作指令
AND ( n1 , n2 - - n1-and-n2 ) 『而且』 每一位元分別進行邏輯『且』( AND )之運算。
OR ( n1 , n2 - - n1-or-n2 )『或者』 每一位元分別進行邏輯『或』( OR )之運算。
XOR ( n1 , n2 - - n1-xor-n2) 『一是一非』
每一位元分別進行邏輯『一是一非則為真』( XOR )之運算。
NOT ( n1 - - not-n1 )『不對』邏輯上之1的補數。
5. 比較運算操作指令
< ( n1 , n2 - - f ) 若n1<n2則留下旗號真。
> ( n1 , n2 - - f ) 若n1>n2則留下旗號真。
= ( n1 , n2 - - f ) 若n1=n2則留下旗號真。
0< ( n - - f ) 若n為負數則留下旗號真。
0> ( n - - f ) 若n為正數則留下旗號真。
0= ( n - - f ) 若n=0則留下旗號真。
u< ( u1 , u2 - - f ) 若u1 < u2則留下旗號真( 無號數 )。
d< ( d1 , d2 - - f ) 若d1 < d2則留下旗號真。
6. 流程控制操作指令
QUIT ( - - )『潰停』
清除回返堆疊，設定系統為執譯狀態，然後接受且執譯新的輸入。
ABORT ( - - )『放棄執行』
清除數據堆疊並執行QUIT。
※ 下列指令限用於編譯狀態且立即被執行( f被其下個指令耗用 )：
BEGIN ... x1 ... f UNTIL
重複執行指令串 x1直到 f為真。
BEGIN ... x1 ... f WHILE ... x2 ... REPEAT
重複執行指令串 x1直到 f為假，當 f 為真時仍執行 x2。
f IF ... x1 ... THEN
若 f為真則執行 x1。
f IF ... x1 ... ELSE ... x2 ... THEN
若 f為真則執行 x1否則執行 x2。
※ DO設定n2為起始指標值，n1為其上限指標值，並從堆疊上移除此二數。
n1 n2 DO ... x1 ... LOOP
重複x1然後將指標增加1，當指標等於其上限值時停止此迴路。
n1 n2 DO ... x1 ... n +LOOP
重複x1然後將指標增加n，當指標之值越過其上限值減1與上限值之間時停止此迴路。
DO ... x1 ... LEAVE ... x2 ... LOOP
立即脫離迴路，不執行x2。『離開迴路』
其他流程控制用指令( 限用於編譯狀態 ) ：
EXIT ( - - )立即脫離定義指令，但勿用於迴路DO … LOOP/+LOOP中。『跳出』
I ( - - n ) n為DO … LOOP/+LOOP之最內層指標。
J ( - - n ) n為DO … LOOP/+LOOP之次外層指標。
7. 輸入與輸出操作指令
KEY ( - - c ) 從輸入裝置上讀取一個 ASCII值。
EXPECT ( addr , +n - - )
讀取+n個字元或直到遇到回位鍵為止，並將其轉置於addr開始之緩衝區。
SPAN ( - - addr )
取得最近執行之EXPECT讀取的確實字元數目所放置之位址。
EMIT ( c - - ) 顯示一個ASCII字元。
TYPE ( string - - ) 顯示一個字串或數個字元。
CR ( - - ) 執行換列動作。
SPACE ( - - ) 顯示空白。
SPACES ( n - - ) 顯示n個空白。
. ( n - - ) 顯示n，若n為負數則前置負號。( 『.』可唸作『拓印』)
U. ( u - - ) 顯示u。
8. 轉換操作指令
BASE ( - - addr ) 為數基存放之位址，用於基底轉換。『基底』
DECIMAL( - - ) 設定BASE存放10( 以十進制為基底 )。
PAD ( - - addr ) 臨時緩衝區之位址( 至少有84個字元長 )。『暫存區位址』
WORD ( c - - addr )
從輸入字串中讀入包封字串之地址，此輸入字串以c為標界字元，或直到最後一個字元為止( 忽略前置標界字元 )。
COUNT ( addr - - string )
使用於非包封字串，長度置於addr，字元開始位址為addr+1。
-TRAILING ( string1 - - string2 )
將string1之尾部空白字棄除以縮短長度。
CONVERT ( +d1 , addr1 - - +d2 , addr2 )
轉換addr1+1開始的字串成相對應的堆疊數字，將此數值累加在雙整數d1上，轉換終止於第一個非數字的字母( 就是addr2 )。
以下為數字輸出轉換操作指令，
可轉換一個雙精度數值成為置於PAD之數字字串：
<# ( d1 - - d1 ) 設定轉換開始。『開始削剖』數字
# ( d1 - - d2 ) 轉換d1之一位數。『削剖一位』數字
#S ( d1 – 0 , 0 ) 轉換其後之所有位數。『削剖出剩下的』數字
HOLD ( d1 , c - - d1 ) 加入ASCII符號c到字串中去。
SIGN ( d1 - - d1 , n ) 若n<0則加入ASCII符號『-』到字串前。
#> ( d1 - - string ) 終止轉換，留下字串。『削剖結束』
9. 詞典操作指令
’ name ( - - cfa ) 『遞給』
在現行搜尋順序中找出name指令而將其cfa留下。
FIND ( addr - - cfa , f )『搜尋』
在現行搜尋順序中找出位於addr之包封指令，找到了則留下cfa與代表真之旗號值，否則仍留下addr與代表假之旗號值0。
EXECUTE ( cfa - - )按所給之cfa執行指令。『執行』
>BODY ( cfa - - pfa ) 按所給之cfa換算成pfa。
HERE ( - - addr ) 字典區下一個可用位置之位址。系統字典區記憶體只用到『此處』
ALLOT ( n - - ) 保留字典區後續n個位元組空間。『控留』記憶體
, ( n - - ) 將n編譯入字典。『嵌碼』( 嵌音『看』)
FORTH ( - - ) 主要字彙，執行後成為第一個被搜尋之字彙。
DEFINITIONS ( - - )『收納新定義指令』
將現在編譯字彙設定成與搜尋順序中第一個字彙相同。
FORGET name ( - - )『忘掉』
將name與所有其後所加之指令從現行編譯字彙中刪除。
10. 編譯操作指令
STATE ( - - addr )『狀態』
表示編譯狀態之變數所在的位址，( 若為編譯狀態以非0表示 )。
[ ( - - ) 設定系統為執譯狀態( 立即型態 )。『不編納了』
] ( - - ) 設定系統為編譯狀態。『恢復編納』
IMMEDIATE ( - - ) 使最近定義之指令成為立即型態。『立即化』
: name x1 ; ( - - ) 『:』唸作『開始定義』，『;』唸作『定義結束』
於字典區建立指令name之進入名稱並編譯順序碼x1，遇到半冒號時停止編譯，此指令之執行動作為執行x1。
CREATE name ( - - ) 此後name指令執行時 ( - - addr )
於字典區建立指令name之進入名稱，當執行此指令時將其下一個可用字典空間之位址留下，但被定址處無資料儲存。『創造』資料結構
DOES> x1 ( - - ) 此後涉及指令執行時 ( - - pfa )
將最近完整定義之指令重新定義其執行動作，當被改變之定義指令執行時，其pfa被置於堆疊且控制轉移給順序碼x1( 立即型態 )。『實踐』後續指令
CONSTANT name ( n - - ) 此後name執行時 ( - - n )
建立具有數值n之常數名稱。
VARIABLE name ( - - ) 此後name執行時 ( - - addr )
建立變數名稱，變數使用時留下變數之位址於堆疊上。
VOCABULARY name ( - - ) 此後name執行時 ( - - )
建立字彙名稱，字彙使用時可用來改變第一個搜尋順序為此字彙。
( ccc ) ( - - ) ccc可被視為註解。
FORTH-83 ( - - ) 顯示為83標準系統之訊息。
下列為限用於編譯狀態並立即執行之指令：
.” ccc ” ( - - ) 編譯字串ccc，當執行時顯示此字串。『拓印字串』
ABORT” ccc ” ( f - - )『放棄執行』
編譯字串ccc，當執行時若旗號f為真則顯示字串並放棄執行後續指令。
LITERAL ( n - - ) 此後涉及指令執行時 ( - - n )『列妥』
編譯n，當稍後執行時留下n在堆疊上。
['] name ( - - cfa )
將名為name指令之cfa視同數值編譯之。
[COMPILE] name ( - - )
編譯名為name指令之cfa，但此指令必須為立即指令。
COMPILE name ( - - )
用於一個編譯指令的定義中，當該定義稍後被執行時，此名為name之指令會重新編譯入字典中，以取代被執行。
11. 周邊裝置操作指令
BLOCK ( u - - addr )『區塊』
從現行大容量儲存裝置( 如磁碟上之某檔案 )讀取第u個區塊至緩衝區，並送回緩衝區之位址。
BUFFER ( u - - addr )
設定第u個區塊為可用緩衝區，並送回其位址但其內容尚未標示定獻。
UPDATE ( - - )
標定最近使用之區塊以便最後重寫入大容量儲存裝置。
SAVE-BUFFERS ( - - )
將所有標定過的區塊重寫入大容量儲存裝置。
FLUSH ( - - )『閃存』
執行SAVE-BUFFERS指令，並開放所有緩衝區( 關閉所有開啟之檔案 )。
TIB ( - - addr ) 現行輸入( 鍵盤 )字串之位址。
#TIB ( - - addr ) 現行TIB中所含字元之數目所放置的位址。『#』代表此位址之內容為存放數量的意思。
BLK ( - - addr ) 現行輸入區塊( 0表輸入來自鍵盤 )之位址。
>IN ( - - addr ) 輸入字串目前之偏移值所放置的位址。『>』代表此變數的內容為指到某位址的意思。
將被系統執譯的下一個來源文字的地址由BLK與>IN之內容決定：
BLK @ = 0 表示 addr = ( TIB @ ) + ( >IN @ )
BLK @ = u 表示 addr = ( u BLOCK ) + ( >IN @ )
LOAD ( u - - )『載入』
先保留BLK與>IN，再設定BLK為u而>IN為0以重新指定輸入，輸入完畢後，重新叫回BLK與>IN。
附註 ： 20241010 重新整理後貼出。
