JNB SDA,$

do this:
George:  jb SDA,Ralph
         clr px.y
         jmp George
Ralph:   setb px.y