;应答位检查 ----------------------
CACK: SETB SDA ;正常应答(SDA=0),F0=0;否则,F0=1
SETB SCL
CLR F0
MOV C,SDA
JNC CEND
SETB F0
CEND: CLR SCL
RET