n24c02.asm

包含93C46存储数字

;24C02储存开机次数实验 ,烧写后用手按复位键可以看到数码管每按一下加一。 
;硬件连接：数码管数据P0,数码管控制P2,24C02控制SDAP3.7 SCLP3.6   
;********************************************************************************
;*  日期:  2007-3-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳学林电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.51c51.com     http://www.8951.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司xlisp系列单片机实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳学林电子有限公司 www.51c51.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
        SDA24	EQU	P3.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