MOV   P1,#Bit_Number     ;select the desired bit
    MOV   P1.7,C             ;copy carry to output bit
    SETB  P2.0               ;strobe the bit into CPLD
    CLR   P2.0