以下做成FC即可

L #Input //定义Input为IN dword
T #InputTemp //定义InputTemp 为TEMPdword
L 0
T #Num //定义NUM为OUT word，清0

Lp: L #InputTemp
AD DW#16#1 //把输入和16进制1相与
T #NumTemp //后存到NumTemp(TEMP word类型)

L #InputTemp
SRD 1 //把InputTemp左移1位
T #InputTemp

L #NumTemp
L #Num
+I
T #Num

L #InputTemp //比较是否为0
L DW#16#0
<>D
JCB Lp