disp_device_on:  DB ".Device  ON",0ah,0dh,00h
disp_device_off: DB ".Device  OFF",0ah,0dh,00h
;-------------------------------------
kcd_check1:mov SL_BUFF,#'1'   ;send device number
	   acall tx_main

           rrc a	     ;LSB is pushed to carry flag for comparision
	   jc device1_off    ;'0'=>ON; '1'=>OFF

	   mov dptr,#disp_device_on ;send device ON status
	   acall disp_message
			
	   sjmp kcd_check2	  ;check next

device1_off:mov dptr,#disp_device_off	  ;send device OFF status
	    acall disp_message