GGCAT 的LZW压缩算法怎么用?(50分)

我想用GGCAT LZW压缩算法. 可是总是出错.
不知道是我的问题. 还是 算法出错.
哪位大侠可以写一个例子给我看看?
谢谢.

Procedure OutV(Value:Integer);
Asm
Mov EDX,Value
Inc OB
And OB,3
Cmp OB,1
Je @OB1
Cmp OB,2
Je @OB2
Cmp OB,3
Je @OB3
@OB0:Mov ECX, DstPtr
Mov EAX,EDX
Shr AX,8
OR EAX,DW
Mov [ECX],EAX <---------此处出错.
Add ECX,4
Mov [Ecx],DL
Inc ECX
Mov DstPtr,Ecx
Jmp @Exit

不会吧？
我一直用啊。

我怎么用起来就是有问题阿.

是不是d6?
d5没问题。

我的就是d5 啊 . 有空给我写一个例子吧. 谢谢. 放到我信箱. QQ上的那个.

****
例子在老赵的机器上就可以正常运行. 在我这里就是运行错误. 怎么搞的. 难道同一个程序在不同机器上编译出来的代码不一样?

搞定了. 原来是没有打开优化的原因.

各位大虾：我在Delphi7下编译mylzwlite.pas在同样的地方出错，我也打开了优化，但还是不行。请指教。