SETB	P1.2
	MOV	A,P1
	ANL	A,#00000100b
	JNZ	SIG
	CALL	sign_on
	JMP	EXIT
SIG:	CALL	sign_off
EXIT:	END