24c02.asm

24C02的计数器

;24c02的开机计数器，系统复位一次数码管加1
;***************************************************************************
;*  [e-mail]		     (51c51 test web)     www.8951.com     *
;*  Create by :石学军      www.51c51.com 更多例程请登陆网站        	   *
;***************************************************************************
SDA24	EQU	P2.7
SCLK24	EQU	P3.6
	ORG	0000H
	AJMP	MAIN
	ORG	0030H
MAIN:
	CLR	P3.7		;打开写保护
	MOV	DPTR,#TAB
	MOV	A,#00H		;读地址
	LCALL	RD24
	CJNE	A,#10,TT
TT:	JNC	TT1
	AJMP	TT2
TT1:	MOV	A,#00
TT2:	MOV	30H,A
	MOVC	A,@A+DPTR	
	CLR	P2.6		;开数码管
	MOV	P0,A		;送显示	
	MOV	A,30H
	INC	A
	MOV	B,A
	MOV	A,#00H
	LCALL	WT24
	AJMP	$
TAB:	DB	28H,7EH,0A2H,62H,74H,61H,21H,7AH,20H,60H


RD24:  PUSH ACC		;读24C02子程序。			
        SETB SDA24				
        CLR SCLK24			
        CALL START24	;启动
        MOV A,#0A0H  			
        CALL SHIFT8 	;移位			
        CALL ACK	;响应				
        POP ACC  					
        CALL SHIFT8 				
        CALL ACK					
        CALL START24				
        MOV A,#0A1H  			
        CALL SHIFT8				
        CALL ACK					
        SETB SDA24				
        MOV R7,#8					
        CLR A						
        SETB SDA24				
RD000:  RL A		;8个位				
        SETB SCLK24				
        MOV C,SDA24				
        MOV ACC.0,C				
        CLR SCLK24				
        DJNZ R7,RD000			
        RET						
;-------------------------------
;写入24C02程序：					
WT24:   PUSH ACC					
        SETB SDA24				
        CLR SCLK24				
        CALL START24				
        MOV A,#0A0H  			
        CALL SHIFT8  			
        CALL ACK					
        POP ACC  					
        CALL SHIFT8  			
        CALL ACK					
        MOV A,B  					
        CALL SHIFT8				
        CALL ACK					
        CALL STOP					
        CALL DELAY2				
        RET
; -------------------------------
;开始条件
START24:CLR SDA24		
        SETB SDA24
        SETB SCLK24
        CLR SDA24 
        CLR SCLK24
        RET

;停止条件
STOP:   CLR SDA24		
        SETB SCLK24
        SETB SDA24
        RET

;应答信号
ACK:    SETB SCLK24		
        CLR SCLK24
        RET

;读、写数据
SHIFT8: MOV R7,#8		
SH01:   RLC A
        MOV SDA24,C
        SETB SCLK24
        CLR SCLK24
        DJNZ R7,SH01
        RET

DELAY2:			;延时
	NOP
	NOP
	NOP
	NOP
	RET
END