includereg52h>defineucharunsignedchardefineuintunsignedintsbitrs=P3^0;sbitlcden=P3^1;sbits1=P3^6;