w24c02.asm

MCS-51单片机实验 39个实用实验和源码

;文件名称:W24C02.ASM
;将数据99H写入到24C02中00～07H空间
	SCL 	EQU P1.0
	SDA 	EQU P1.1
ORG 	0000H
WR_EEROM: 
	MOV R6,#08H
	MOV 30H,#00H
	MOV R0,#30H
W_LOOP: 
	LCALL WR_DATA
W_LOOP2:
	 INC @R0	;写00～07H地址
	DJNZ R6,W_LOOP1
	SJMP STOP
W_LOOP1:
	 LCALL WR_DATA2
	 SJMP W_LOOP2
STOP: 
	LCALL STOP24
	SJMP $
;-------------------------------------
WR_DATA:
	 LCALL START
	MOV A,#0A0H
	LCALL WBYTE
WR_DATA1:
	 MOV A,@R0
	LCALL WBYTE
WR_DATA2: 
	MOV A,#99H
	LCALL WBYTE
	RET 
;-------------------------------------
WBYTE:
	 NOP
	MOV R3,#08H
WBY0: 
	CLR SCL
	RLC A
	MOV SDA,C
	SETB SCL
	DJNZ R3,WBY0
	CLR SCL
	NOP
	SETB SCL
	NOP
	JB SDA,$
	CLR SCL
	NOP
	RET
;---------------------------------
START: 
	CLR SCL
	NOP
	SETB SDA
	NOP
	SETB SCL
	NOP
	CLR SDA
	NOP
	CLR SCL
	RET
;---------------------------------
STOP24:
	 CLR SCL
	CLR SDA
	NOP
	SETB SCL
	NOP
	SETB SDA
	NOP
	CLR SCL
	RET
	
	END