给你一个子程序:
bcdtobin:
'USE VR(1) AS DATA SOURSE
VR(0)=VR(1)
n0=VR(0) AND $000f
GOSUB shiftdata
n1=VR(0) AND $000f
GOSUB shiftdata
n2=VR(0) AND $000f
GOSUB shiftdata
n3=VR(0) AND $000f
VR(1)=n0+n1*10+n2*100+n3*1000
RETURN
shiftdata:
'use vr(0) as data sourse
FOR bit=0 TO 12
IF(READ_BIT(bit+4,0)=1) THEN
SET_BIT(bit,0)
ELSE
CLEAR_BIT(bit,0)
ENDIF
NEXT bit
RETURN