WDTRST EQU 0A6H
	ORG 0000H
	LJMP START
	ORG 030H
START:MOV WDTRST,#01EH
		MOV WDTRST,#0E1H
	;*****************
MAIN:	MOV R0,#08H
	CLR C
	MOV A,#0FFH
PLAYP1: RLC A
	MOV P1,A
	ACALL D10MS
	MOV WDTRST,#01EH
	MOV WDTRST,#0E1H
	CLR C
	DJNZ R0, PLAYP1
	;***************
	MOV R0,#08H
	CLR C
	MOV A,#0FFH
PLAYP3: RLC A
	MOV P3,A
	ACALL D10MS
	MOV WDTRST,#01EH
	MOV WDTRST,#0E1H
	CLR C
	DJNZ R0, PLAYP3
	;***************
	MOV R0,#08H
	CLR C
	MOV A,#0FFH
PLAYP2: RLC A
	MOV P2,A
	ACALL D10MS
	MOV WDTRST,#01EH
	MOV WDTRST,#0E1H
	CLR C
	DJNZ R0, PLAYP2
	;***************
	MOV R0,#08H
	CLR C
	MOV A,#0FFH
PLAYP0: RRC A
	MOV P0,A
	ACALL D10MS
	MOV WDTRST,#01EH
	MOV WDTRST,#0E1H
	CLR C
	DJNZ R0, PLAYP0
	;***************
	MOV P0,#0FFH
	MOV P1,#0FFH
	MOV P2,#0FFH
	MOV P3,#0FFH
	AJMP MAIN
	;***************
D10MS:  MOV R7,#18
DEL1:	MOV R6,#255
DEL2:	DJNZ R6,DEL2
	DJNZ R7,DEL1
	RET
	END