mov a,#33h ;hex equivalent for 'S' lcall send setb sda setb scl