03 中文化

修改 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 重新安裝