LAD GR3,0
----GR1,GR1
JMI COUNT
SLL GR1,1
JMI COUNT
JZE FINISH
JMP LOOP
LAD GR3,1,GR3
JMP LOOP

抜けてるところだけだが、おそらくこうじゃないかと思うが
GR1,GR1の所だけが分からん
方針としては最上位ビットを順次判定していく
最上位1なら負数になるからJMIで飛ばす

久しぶりにCASL2見たから命令語間違ってるかもしれん