;FM3808 test program useing 8052

;data:2003/02/19

 	ORG    0000H

      	LJMP 	STAR

       	ORG 	0003H

       	LJMP 	KINT

       	ORG 	000BH

       	LJMP 	ITXY

       	ORG 	100H

STAR:	MOV 	SP,#0C2H

	CALL  	CLRARE		;Clear  ram of 8052

	CALL	SET3808		;Set the Register of clock

MAIN:	MOV	DPH,#07FH

	MOV	DPL,#0F0H

MAIN1:	MOVX	A,@DPTR

	ANL	A,#040H

	JZ	MAIN1

	CALL	RADTM38		;read the clock 

	CPL	P1.0

	JMP	MAIN

;read the clock 

RADTM38:MOV	R1,#07H		;

	MOV	R0,#50H

	MOV	DPH,#07FH	

	MOV	DPL,#0F0H

	MOV	A,#05H

	MOVX	@DPTR,A

	MOV	DPL,#0F9H

RADTM39:MOVX 	A,@DPTR

	MOV	@R0,A

	INC	R0

	INC	DPTR

	DJNZ	R1,RADTM39

	MOV	DPH,#07FH

	MOV	DPL,#0F0H

	MOV	A,#04H

	MOVX	@DPTR,A

	RET

;*****************************************4	

;FM3808 time set	

SET3808:MOV	DPH,#07FH

	MOV	DPL,#0F2H

	MOV	A,#080H		;	

	MOVX 	@DPTR,A		;Put #080H into 7FF2H

	INC	DPTR

	MOVX 	@DPTR,A		;Put #080H into 7FF3H

	INC	DPTR

	MOVX 	@DPTR,A		;put #080H into 7FF4H

	INC	DPTR

	MOVX 	@DPTR,A		;Put #080H into 7FF5H

	MOV	DPL,#0F0H

	MOVX	A,@DPTR		;clear the flag of FM3808

	MOV	DPL,#0F7H	;Put #0FFH into 7FF7H

	MOV	A,#0FFH

	MOVX	@DPTR,A		

	MOV	DPL,#0F6H	;Put #060H into 7FF6H 

	MOV	A,#006H

	MOVX	@DPTR,A		;7FF0H enable change the clock 

	MOV	DPL,#0F0H	;Enable Change clock 

	MOV	A,#06H		;Put #006h into 7FF0H

	MOVX 	@DPTR,A

	MOV	DPL,#0FFH	;Put #002H into 7FFFH

	MOV	A,#02H

	MOVX 	@DPTR,A		

	DEC	DPL		;Put #002H into 7FFEH

	MOVX 	@DPTR,A

	DEC	DPL		;Put #002H into 7FFDH

	MOVX 	@DPTR,A

	DEC	DPL		;Put #002H into 7FFCH

	MOV	A,#06H

	MOVX 	@DPTR,A	

	DEC	DPL		;Put #006H into 7FFBH

	MOV	A,#03H

	MOVX 	@DPTR,A

	DEC	DPL		;Put #003H into 7FFAH	

	MOVX 	@DPTR,A

	DEC	DPL		;Put #003H into 7FF9H	

	MOVX 	@DPTR,A

	MOV	DPL,#0F0H	;Set over 

	MOV	A,#04H		

	MOVX	@DPTR,A

	MOV	DPL,#0F8H	;Put #000H into 7FF8H

	MOV	A,#00H		

	MOVX	@DPTR,A

	MOV	DPL,#0F0H	;Put #040H into 7FF0H

	MOV	A,#040H

	MOVX	@DPTR,A

	RET

;CLEAR THE RAM OF 8052(清除8052内部RAM)

CLRARE:	MOV	01H,#0C0H

	MOV	00H,#02H

CLRARE1:MOV	A,#000H

	MOV	@R0,A	

	INC	R0

	DJNZ	R1,CLRARE1

	RET

KINT:	RETI

ITXY:	RETI

	END