;CHUONG TRINH DIEU KHIEN PORT 0, 1, 2 ,3  SANG DAN LEN TAT HET
		ORG	0000H
STD32LED:	MOV	P0,#00H
		MOV	P1,#00H
		MOV	P2,#00H
		MOV	P3,#00H

STD32LED1:	CALL	DELAY100MS
		SETB	C
		CALL	XTRAI_P01
		SETB	C
		CALL	XTRAI_P32
		JNC	STD32LED1

STD32LED2:	CLR	C
		CALL	XTRAI_P01
		CLR	C
		CALL	XTRAI_P32
		CALL	DELAY100MS
		JC	STD32LED2
		JMP	STD32LED1

XTRAI_P01:	MOV	A,P0
		RLC	A
		MOV	P0,A

		MOV	A,P1
		RLC	A
		MOV	P1,A
		RET
XTRAI_P32:	MOV	A,P3
		RRC	A
		MOV	P3,A

		MOV	A,P2
		RRC	A
		MOV	P2,A
		RET
$INCLUDE(TV_DELAY.ASM)