;********************************************************************************
;*  標題:北京啟東微芯LJD-SY-5100單片機實驗系統(tǒng)24c02讀寫程序                   *
;*  文件:TLC549.asm                                                             *
;*  日期:  2005-6-1                                                             *
;*  版本:  1.0                                                                  *
;*  作者 :啟東微芯                                                                 
;*  網(wǎng)站： http://www.LJD-2008.COM                                              *
;********************************************************************************
;*  描述:                                                                       *
;*         單步運行觀看存儲單元數(shù)據(jù)變化 讀和寫                                                                     
;*         發(fā)送 和接受字節(jié)子程序要連續(xù)執(zhí)行                                      *
;********************************************************************************
;* 【聲明】 此程序僅用于學習與參考，引用請注明版權(quán)和作者信息！                  *
;********************************************************************************
SDA BIT P1.0
SCL BIT P1.1
R_DATA    EQU 30H           ;讀數(shù)據(jù)存儲緩沖區(qū)
          ORG 0000H
	  MOV P1,#60H
WR_EEROM: MOV  R6,#06      ;存儲計數(shù)器 
	  LCALL START
          MOV A,#0A0H      ;器件地址寫
          LCALL WBYTE       
  
W_LOOP:   MOV  A,#00H      ;存儲單元地址
          LCALL WBYTE    
          MOV DPTR,#TAB    ;要寫數(shù)據(jù)地?
W_LOOP1:  MOV A,#00H
          
          MOVC A,@A+DPTR
          LCALL WBYTE
          INC DPTR 
	  
          DJNZ R6,W_LOOP1
          LCALL STOP
	  JMP RD_EEROM
          SJMP $

;---------------------------
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
;---------------------------------------
;停止信號
;******************************************
STOP:    CLR SCL
         NOP
         CLR SDA
         NOP
         SETB SCL
         NOP
         SETB SDA
         NOP 
         CLR SCL
         RET
;*****************************************************************************
;隨機讀
;*****************************************************************************

RD_EEROM: MOV  R6,#06      ;存儲計數(shù)器 
          MOV  R0, #30H      
	  LCALL START
          MOV A,#0A0H    ;器件地址寫
          LCALL WBYTE       
          MOV  A,#00H      ;存儲單元地址
          LCALL WBYTE
	  NOP
	  NOP
	  NOP
	  LCALL START
	  NOP
          MOV A,#0A1H      ;器件地址讀
          LCALL WBYTE       
R_LOOP:   nop
          NOP
	  NOP
          NOP
R_LOOP1:  LCALL READ    
          MOV R0,#30H
          MOV @R0,A
          LCALL STOP
          SJMP $
READ:     NOP 
          MOV R3,#08H
	  NOP
H1:       CLR SCL
          NOP 
          SETB SCL
          NOP
          MOV C,SDA          
          RLC A 
          CLR SCL 
          DJNZ R3,H1
          CLR SCL
          NOP
          SETB SDA
	  NOP
	  SETB SCL
          RET
TAB:DB 10H,11H,22H,33H,44H,55H,66H,77H
          END