《Forth 入门》章节试读

《Forth 入门》的笔记-第9页

对于Gforth或现在比较流行的Forth系统
字符并不需要一定是大写输入
15 spaces
也可以得到正确的结果。

《Forth 入门》的笔记-第91页

：compound 这段代码中的一行
2dup r% + dup + ." Baiance " .
应为 2dup r% + dup ." Baiance " .
多了个“+”号

《Forth 入门》的笔记-第109页

第一行注释中 upper-case-lerrer拼写错误，应为upper-case-letter

《Forth 入门》的笔记-第97页

代码应为：
: DOUBLED
6 1000 21 1 DO CR ." YEAR " I 2 U.R
2DUP R% + DUP ." BALANCE " .
DUP 2000 > IF CR CR ." more than doubled in "
I . ." years " LEAVE
THEN
LOOP 2DROP ;

《Forth 入门》的笔记-第127页

为了加深对变量使用的理解，我写了个字，用来画正方形。
PaintingSquare ( 边长 -- )
代码如下：
variable 行数
: 单竖线 0 行数 @ 2 swap - 2 * 1 swap - ." + " for ." " next ." + " cr ;
: 竖线 0 行数 @ 2 - for 单竖线 drop next drop ;
: 横线 0 行数 @ for ." + " next cr drop ;
: PaintingSquare 1 - dup 1 > if 行数 ! cr 横线 竖线 横线 else drop cr ." error " cr then ;
设置了个简单的保护，当边长小于等于2时，回报“error”

《Forth 入门》的笔记-第110页

65535 . -1 OK
由于Gforth中单精度直接是32位，所以并不会得到-1的结果。要想得到-1，应输入的数字为4294967295

《Forth 入门》的笔记-第12页

初学者可以通过输入
see
来查看某个字的内部定义
see emit
: (emit)
outfile-id emit-file drop ;
latestxt
Defer emit
IS emit
ok
see cr
: cr
newline type ; ok
see newline
Code newline
( $403E3E ) mov dword ptr 42A6F8 , ebx \ $89 $1D $F8 $A6 $42 $0
( $403E44 ) sub esi , # 8 \ $83 $EE $8
( $403E47 ) lea eax , dword ptr 23F [esp] \ $8D $84 $24 $3F $2 $0 $0
( $403E4E ) mov byte ptr 23F [esp] , # A \ $C6 $84 $24 $3F $2 $0 $0 $A
( $403E56 ) add ebx , # 4 \ $83 $C3 $4
( $403E59 ) mov dword ptr 4 [esi] , eax \ $89 $46 $4
( $403E5C ) mov dword ptr [esi] , # 1 \ $C7 $6 $1 $0 $0 $0
( $403E62 ) mov edi , dword ptr FC [ebx] \ $8B $7B $FC
( $403E65 ) jmp 4014A4 \ $E9 $3A $D6 $FF $FF
end-code
ok

《Forth 入门》的笔记-第110页

65535 . OD 应为 65535 . OK

《Forth 入门》的笔记-第69页

: ?emit ( c-- ) dup if emit else >>>droop<<< then ;
“droop”这个词多了个“o” 应为“drop”

《Forth 入门》的笔记-第108页

位逻辑小节中，找出所指位（如第四位）的值是：“0”还是“1”；
应该说的是第五位。

《Forth 入门》的笔记-第114页

.date的定义
在gforth中，应该这样
: .date ( ud-- )
<# # # [char] - hold # #
[char] - hold # # #>
type ;