Forth 文本解释程序

body, table{font-family: 微软雅黑; font-size: 13.5pt}
table{border-collapse: collapse; border: solid gray; border-width: 2px 0 2px 0;}
th{border: 1px solid gray; padding: 4px; background-color: #DDD;}
td{border: 1px solid gray; padding: 4px;}
tr:nth-child(2n){background-color: #f8f8f8;}

      FORTH 中有一组用户变量，由这组变量记录和保存程序的运行环境。DP 指向词典区的下一个可用地址。SP0 指向参数堆栈的起点。RP0 指向返回堆栈的起点。

SP@	（- addr）	参数堆栈指针
SP!	( n - ）	把参数堆栈指针设置成规定的数值
RP@	（- addr）	返回堆栈指针
RP！	（n - ）	把返回堆栈指针置为规定的数值

:  QUIT     FORTH 的主要循环。接收来自终端的输入并解释执行，如果成功则显示“ok”.  

        SP0  @  '  TIB   !     置终端输入缓存区在参数堆栈上方。

        BLK  OFF     令 BLK 为0，处理来自终端的输入。

        [COMPILE]  [     令 STATE 为0，使系统处于解释状态。

        BEGIN     进入 FORTH 主要循环。

            RP0  @  RP!  STATUS     初始化返回堆栈指针。送出一个回车换行。

            QUERY     催促使用者从终端输入下一行并将输入行传送到 TIB 中。

            RUN     处理所接收的行。

            STATE  @  NOT     如果 STATE 为0，系统处于执行状态。

            IF  ."  OK"  THEN     显示出信息"ok"。

        AGAIN  ;     无穷循环：一行处理完毕后要求得到下一行。

---

:  RUN  ( - )     改进了的解释程序，运行分行输入一个冒号定义。

        STATE  @  IF     若 STATE 不为0。系统必须处于编译状态。

        ]     调用编译程序。

        STATE  @  NOT     编译完一源行后再次检查 STATE 之值。

           IF  INTERPRET  THEN     若系统已脱离了编译状态，那么就执行该行的剩余部分，否则退出。

        ELSE  INTERPRET     STATE 为0，执行命令

        THEN  ;

---

RUN 的过程就是： IF 编译  ELSE  执行  THEN  ;   

:  INTERPRET   ( - )     forth 解释程序循环：分离出输入流中的词，如果它在词典中有定义，则执行之。否则将其转换为一个数字并放置到参数栈上。
        BEGIN
             ?STACK                 检查堆栈有无上溢或下溢
             DEFINED               取出输入流中的下一个词，返回它的 cfa 及一个标志
             IF  EXECUTE          如果该词已被定义，则执行
             ELSE  NUMBER     否则转换成为一个数字
                  DOUBLE?         它是一个双精度数吗？
                  NOT  IF  DROP  THEN             不是就丢弃它的高 16 位，仅保留低 16 位
             THEN
             FALSE                    在堆栈上为 DONE? 留下一个 FALSE；解释程序死循环，一直在运行
             DONE?                  到了行的末端了？
         UNTIL  ;                     如果已到行结束处，退出循环；否则再次循环去处理下一词。

      // DEFINED 首先取出输入流中的下一个词并把它放到词缓冲区中，然后再词典中搜索该词，若该词在词典中存在，则把它的 cfa 放在堆栈上，并在其后跟上一个为真标志。然后就是 EXECUTE 接过堆栈上的 cfa 执行该定义。如果该词不在词典中，控制程序就传给命令 NUMBER ，以期待把缓冲区中的字符串转换成为一个数字。

      在循环开始处 ？STACK 检查堆栈是否有溢出发生。若有溢出系统就被迫转去执行 ABORT，于是一切就从新开始。如果在数字转换过程中遇到错误，系统也同样转去 ABORT 处执行。这两种情况就是非正常脱离解释循环的条件。

:  ?STACK      ( - )          检查参数堆栈是否上溢或下溢，若溢出则控制返回终端。
        SP@                      取出现行堆栈指针的值
        SP0  @                  取出栈底的位置
        SWAP  U<            检查是否下溢
        ABORT"  STACK Underflow"                若下溢则执行 ABORT"
        SP@  PAD            PAD 之值同时也是参数栈顶的上限
        U<                         检查是否上溢
        ABORT"  Stack Overflow"  ;                 若上溢则也执行 ABORT"

      FORTH 工作的主要轮廓是一个二重循环：外循环是 QUIT 循环；内循环是 INTERPRET 循环。FORTH 启动后即执行 QUIT ，QUIT 选择终端作为输入设备，调用 QUERY 等待使用者从键盘输入一命令行。输入行送至终端输入缓冲区后，QUIT 调用 RUN 处理已接收进来的命令行。RUN 有两个分支：若系统处于编译状态，则 RUN 调用编译程序对所接收的源行进行编译，当从键盘上键入一个冒号开头的定义时，就进入 RUN 的这一个分支；若系统处于解释状态（又叫执行状态），则调用解释程序 INTERPRET 。INTERPRET 调用 DEFINED ，DEFINED 有两个任务：检测出输入流中下一个词并把它复制到词典缓冲区( WORD）；再词典中搜索放在词缓冲区中的词( FIND )。// WORD 首先调用 PARSE-WORD ，PARSE-WORD 能够确定输入流来自哪一个输入缓存区。因此文本解释程序不仅仅能处理来自终端的源行，而且能够处理来自磁盘块的源行。输入流不能输入太多字符，如果输入流耗尽，FORTH 就退出 INTERPRET 循环而回到 QUIT 外循环。