XCH A,r0    ;Get r0
       DEC A
       JNZ nxtr1   ;Is it Zero ? Turn off the bit, else next bit
       clr P2.0 
nxtr1: XCH A,r0    ;PUT DECREMENTED register back !