修改 win32forth61404/src/kernel/fkernel.f 的 TR 定義
\ xTR ( adr n table -- ) 2011/11/29 爽哥
CODE TR \ ebx <== table
pop edi \ edi <== len
pop ecx \ ecx <== addr
push edx \ save edx
add edi, ecx \ edi <== addr + len
xor eax, eax \ eax <== 0
@@1: cmp edi, ecx \ goto @@4, if edi >= ecx
jb short @@4
mov al, [ecx] \ al <== [ecx]
cmp al, # $80 \ goto @@2, if eax >= # $809
jae short @@2
mov dl, [ebx] [eax] \ dl <== uppercase of al
mov [ecx], dl \ [ecx] <== dl \ 原字母換成大寫
jmp short @@3 \ goto @@3
@@2: inc ecx \ ecx <== exc + 1 \ 跳過中文字
@@3: inc ecx \ ecx <== exc + 1
jmp short @@1 \ back @@1
@@4: xor edi, edi \ edi <= 0
pop edx \ restore edx
pop ebx \ tos
next c;
再執行 setup 重新安裝