MOV   P1,#Bit_Number+080h ;select bit & make sure
                             ;P1.7 is an input
    SETB  P2.1               ;enable read @ CPLD
    MOV   C,P1.7             ;copy the bit to carry
    CLR   P2.1