从终端输入缓冲区加载到参数堆栈

Question

为什么这段代码不起作用？

TIB 10 ACCEPT
TIB SP@ 1 cells - 10 cmove

在该代码中,我尝试输入一个字符串并将其存储在终端输入缓冲区中,然后将其存储在参数堆栈中.

但是.SI看到这不起作用.

Answer 1

参数堆栈朝向低内存增长

示例代码的主要问题是参数堆栈向低内存增长.因此,副本目标的起点应该是更高的内存地址(在现有/已定义的参数堆栈内).而不是

TIB SP@ 1 cells - 10 cmove

它应该是:

TIB SP@ 1 cells + 10 cmove

下一个问题是参数堆栈上的字符串没有足够的存储空间.ACCEPT已经遗留了一个单元格(32位系统上的四个字节),即实际的字符数.样本输入"user10181"(9个字符),

TIB 10 ACCEPT

结果是:

.S <1> 9  ok

暂时忘记那个额外的元素¹,为了进行详细说明,我们在参数堆栈上分配了四个单元格(实际值,例如235,无关紧要),32位系统上的16个字节:

235 DUP DUP DUP

结果TIB SP@ 1 cells + 10 cmove是:

.S <5> 9 235 8241 541085779 541215060  ok

我们看到四个单元中的三个(每个都有四个字节)被覆盖cmove(如预期的那样).

不幸的是,我们复制的字节不是预期的.解码三个已更改单元格(十进制)的输出,首先来自

8241 541085779 541215060

到十六进制:

2031 20405053 20424954

然后解码为ASCII:

20 31 20 40 50 53 20 42 49 54
   1      @  P  S     B  I  T

和逆转(我们首先是高内存而测试平台是小端):

 "TIB SP@ 1 "

这是我们第二行的前十个字符TIB SP@ 1 cells + 10 cmove.因此很明显终端输入缓冲器(TIB)在这种情况下太暂时不能使用.

第三个问题的解决方案是在我们要求用户输入之前编译所有代码.例如,把它写成一个单词,inputOnStack:

: inputOnStack TIB 10 ACCEPT 235 DUP DUP DUP TIB SP@ 1 cells + 10 cmove ;

结果是:

inputOnStack user10181  ok
.S <5> 9 235 24881 942747697 1919251317  ok

这对应于"user10181",第十个字符是"a"(最可能来自"a" inputOnStack).

测试平台:

^{1.更高级的代码版本可以使用实际的字符数.在任何情况下,如果将此代码集成到其他代码中,它应该以一种方式DROPped来平衡堆栈.}