at24c02 iic

为什么我的程序跑不了，求救各位大虾T,.T

include"at 24c02.h"
org  0x00
start:

R:
                call I2C_INIT
             mov  a,@0x55
                mov  I2C_DATA,a
            call I2C_WRITE_BYTE
                call I2C_READ_BYTE
               
                        call I2C_WRITE_BYTE
                        call I2c_SequentialRead
                 
                nop
                JMP  R
ret


/*--------------------------------------------------------------
                    24C02送数据/命令程序
入口 : I2C_ADDR 地址
        I2C_DATA 数据
出口 ： 无
----------------------------------------------------------------*/
if I2C_SEQU_OP==1
I2C_PAGE_WRITE:
               call I2c_Start ; write command
               mov a,@0xa0
               call SendByte
               call I2C_CHACK__ACK
               mov a,I2C_ADDR
               call SendByte
               call I2C_CHACK__ACK


              ;--------------------------------
               mov a,@WRITE_NUM ; 连续写字节数量    3
               mov I2C_CNT_NUM,a
               mov a,@WRITE_BUF ; 缓冲区首地址    0x20
               mov r4,a
I2C_PAGE_LOOP:
               mov a,r0 ; 从缓存取一个数据
               call SendByte
               call I2C_CHACK__ACK
               inc r4 ; 缓存地址加一
               djz I2C_CNT_NUM
               jmp I2C_PAGE_LOOP
              ;--------------------------------
               call I2c_StOP
ret
endif
/*-----------------------------------------------------------
                     连续读取多个字节
入口： I2C_ADDR E2PROM开始地址
出口： I2C_DATA 数据
说明： 缓存的入口地址和读数据数量在头文件中宏定义
       也可以用寄存器传递。
;-----------------------------------------------------------*/
if I2C_SEQU_OP==1
I2c_SequentialRead:
               call I2c_Start ; COMMAND 先启动到 Random Read模式
               mov a,@0xa0  
               call SendByte
               call I2C_CHACK__ACK
               mov a,I2C_ADDR
               call SendByte
               call I2C_CHACK__ACK

               call I2C_START ; CURRENT READ
               mov a,@0xa1
               call SendByte
               call I2C_CHACK__ACK
                      


              ;-------------------------------- ; 连续读取指定个数据存到连续区域
               mov a,@READ_NUM  ;3
               mov I2C_CNT_NUM,a ; 连续读READ_NUM个数据
               mov a,@READ_BUF    ;2a
               mov r4,a ; 数据存放的缓存地址  
I2c_Sequential_loop:
               call ReadByte ; 读取一个数据
               mov I2C_DATA,a
               call I2c_Ack
               mov a,I2C_DATA
               mov r0,a ; 保存
               inc r4 ; 地址加一
               djz I2C_CNT_NUM
               jmp I2c_Sequential_loop

ret
endif
/******************************************************/
I2C_WRITE_BYTE:
    call  I2C_START
    mov   a,@0XA0;写命令       
    call  SENDBYTE       
    call  I2C_CHACK__ACK
    mov   a,I2C_ADDR
    call  SENDBYTE
    mov   a,I2C_DATA ;写入数据
    call  SENDBYTE
    call  I2C_CHACK__ACK:
    call  I2C_STOP
RET
;----------------------------------------------

;----------------------------------------------
I2C_READ_BYTE:
    call   I2C_START
    mov    a,@0XA0;
    call   SENDBYTE
    call   I2C_CHACK__ACK:
    mov    a,I2C_ADDR
    call   SENDBYTE
    call   I2C_CHACK__ACK:
;--------------------------------
    call   I2C_START
    mov    a,@0XA1
    call   SENDBYTE
    call   I2C_CHACK__ACK:
    call   READBYTE
    mov    a,I2C_DATA
    call   SENDBYTE
    call   I2C_STOP
RET
;--------------------------------------

;--------------------------------------
I2C_CHACK__ACK:
    clr  temp0
    BS SDA
    ;------------------
    mov a,@0xff
    IOW PORT6
    ;
call delay
    BS SCL
weit:   
         NOP
         NOP
    ;
    JBC  SDA
    jmp  weit  ;等待应答信号
    INC  temp0  ; temp ＝ 1 有响应， temp ＝ 0 没有响应
call delay
    BC   SCL
    ;------------------
    MOV A,@0X00
    IOW PORT6

ret
;------------------------------------

;-------------------------------------  
I2C_START:

         BS  SDA
         BS  SCL
call delay   
         BC  SDA
         NOP
call delay
         BC  SCL
RET
;------------------------------------

;------------------------------------
I2C_STOP:

         BC  SDA
         BS  SCL
         NOP
call delay   
         BS  SDA
         NOP
call delay
                  BS  SCL
RET
;----------------------------------------

;----------------------------------------
I2C_ACK:
        BC  SDA
call delay
        BS  SCL
call delay
        BC  SCL

RET
;----------------------------------------

;-----------------------------------------
I2C_NOACK:
        BS SDA
call delay
        BS  SCL
call delay
        BC  SCL
RET
;-------------------------------------------

;-------------------------------------------

SENDBYTE:
        MOV           A,@0x00
        IOW    Port6
        mov    temp0,a
        mov    a,@8
        mov    I2C_BYTE_CNT,a
        bc     scl
SEND_LOOP:
        RLC  temp0  ;MSB
        JBS  0X03,0 ;状态标志位
        JMP  $+3
        BS  SDA
        JMP  $+2
        BC  SDA
call delay
        BS  SCL
call delay
        BC  SCL
call delay
        DJZ  I2C_BYTE_CNT
        JMP  SEND_LOOP

        MOV           A,@0x00
        IOW    Port6          
       
       
RET
           

       
;---------------------------------------

;---------------------------------------

READBYTE:
;----------------------       
        mov  a,@0X01
        IOW  PORT6
;clr I2C_DATA


    mov  a,@8
        mov  I2C_BYTE_CNT,a
       
        bc  scl
                call delay
    bs  sda
            call delay
READ_LOOP:
    bs   SCL
            call delay
    rlc          I2C_DATA            
        BC    I2C_DATA,0
        JBC     SDA
        BS    I2C_DATA,0
             call delay
        Bc   SCL
                call delay
        DJZ  I2C_BYTE_CNT
        JMP  READ_LOOP
;---------------------
        mov  a,@0x00
        IOW PORT6
        mov  a,I2C_DATA   
RET
;--------------------------------------------------

;--------------------------------------------------
I2C_INIT:
                        MOV           A,@0X0E            ;4E: 上升沿触发，CE: 下降沿触发
                        BS     IOCS                        ;选择IOC51-IOCF1 R3 (状态寄存器)IO控制寄存器段选择位 1: 选择段1 (IOC51 ~ IOCC1)
       
                        MOV    A,@0X00
                        IOW    P6HCR                ;p6口内置上拉0x00 (下拉控制寄存器)
                        ;
                        BC     IOCS                        ;选择IOC50-IOCF0
                        MOV    A,@0x00
                        IOW    IOCC0                ;全部p6口开漏输出0xff (漏极开路控制寄存器)
                        ;
                        MOV    A,@0x00
                        IOW           IOCD0                ;p5上拉0x00  (上拉控制寄存器)
                        ;
                        MOV    A,@0xff
                        IOW    IOCB0                ;关闭P5下拉0xff (下拉控制寄存器)
                        ;               
                        MOV           A,@0X00                ;0 输入
                        IOW    IOC60                                                       
                        RET       
                       

;I2C_INIT:
;       mov  a,@0x01
  ;           IOW  SDA_PORT
   ;   
        ;    mov  a,@0x00
         ;   IOW  SCL_PORT
   ;
    ;         mov  a,@0x0d
     ;   IOW  P5
      ;  IOW  P6
      ;RET  
delay:


        mov a, @0x0b    ; 4us延迟
        mov temp0,a
B:     djz temp0
        jmp B
        nop

        clr temp0
ret





;-------------------------------------------------------