r24c02.asm

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

;文件名称:R24C02.ASM
;将24C02中00～07H空间的数据读到内部RAM的40~47H空间
	SCL EQU P1.0
	SDA EQU P1.1
	ORG 0000H
RD_EEROM:
	MOV R6,#08H
	MOV 30H,#00H
	MOV R0,#30H
	MOV R1,#40H
R_LOOP: 
	LCALL START
	MOV A,#0A0H
	LCALL WBYTE
	MOV A,@R0
	LCALL WBYTE
R_LOOP1:
	LCALL START
	MOV A,#0A1H
	LCALL WBYTE
	LCALL RBYTE
	MOV @R1,A
	INC R1
	DJNZ R6,R_LOOP1
	LCALL STOP24
	SJMP $
;------------------------------------------
RBYTE: 
	NOP
	MOV R3,#08H
RBY0:
	CLR SCL
	NOP
	SETB SCL
	NOP
	MOV C,SDA
	RLC A
	DJNZ R3,RBY0
	CLR SCL
	NOP
	SETB SDA
	NOP
	SETB SCL
	RET
;----------------------------------------------
WBYTE: 
	MOV R3,#08H
WBY0: 
	CLR SCL
	NOP
	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
	NOP
	NOP
	CLR SCL
	RET
;---------------------------------
STOP24: 
	CLR SCL
	NOP
	CLR SDA
	NOP
	SETB SCL
	NOP
	SETB SDA
	NOP
	CLR SCL
	RET
END