发布于 2006-03-18 10:21:01
0楼
SUBROUTINE_BLOCK GRAY_B:SBR0
TITLE=格雷码与二进制互转(字节)
// 输入编码为二进制时,转换结果为格雷码,类型参数为'B'
// 输入编码为格雷码时,转换结果为二进制,类型参数为'G'(实际上非'B'即可)
VAR_INPUT
bInType:BYTE; // 输入数据编码:'G'=格雷码、'B'=二进制
bIn:BYTE; // 待转换数据
END_VAR
VAR_OUTPUT
bOut:BYTE; // 转换结果
END_VAR
BEGIN
Network 1
LD SM0.0
MOVB LB1, LB2
Network 2
LBL 0
Network 3
LD SM0.0
[COLOR=red]SRB LB1, 1
XORB LB1, LB2[/COLOR]
Network 4
LDB= LB0, 'B'
CRET
Network 5
LDB<> LB1, 0
JMP 0
END_SUBROUTINE_BLOCK
转换算法是长度自适应的,如果需要转换8位以上的,将In/Out变量定义为WORD,红色的语句处换成相应的字指令即可
生命存在的方式只有两种:腐烂或燃烧