SET
SAVE
= L 0.1//以上保存状态
L #IN//读取输入的实数
RND //取整
JO I007//如果溢出则跳转到i007
PUSH //没有溢出的话，把accu1的数放入accu2中
AD DW#16#FFFF8000//加双整数DW#16#FFFF8000
JZ I008//如果结果为0则跳转到i008
XOD DW#16#FFFF8000//accu1,accu2中的数按位取异或关系
JZ I008//如果异或后的结果为0则跳转到i008
I007: CLR
= L 0.1//L0.1复位
I008: TAK //交换accu1和accu2
T #OUT//输出
CLR
A L 0.1
SAVE
SAVE//保存状态字
BE //程序结束