Thanks to Charles to have made the source readable !

I'll only point to 2 obvious errors:

	ACALL_LIGHT1_ON


BACK: 	MOV A,P1 	;READ DATA FROM PORT 1 
	MOV SBUF,A 	;GIVE A COPY TO SBUF 
	MOV P2,A 	;WRITE IT TO P2 
	SJMP BACK 	;STAY IN LOOP INDEFINITELY 

No waiting for the transfer ? If the meaning is to wait for serial interrupt, the loop mustn't include reload of SBUF. Use SJMP $ instead.

Regards, Slobodan