i2cwrite DIO,Clk,$40,$02,[%10010000,0]:pause 15Basla: i2cread DIO,Clk,$40,$02,[HdcCnf,HdcCnf1] hserout [Dec HdcCnf," ",bin8 HdcCnf," ",bin8 HdcCnf1 ,13] toggle portb.3 pause 500 HdcCnf = 0 goto basla