i2c_write.asm

在DM642平台上

;;;;;;;;----------初始化i2c外设
I2COAR0   .equ 0x01b40000
i2cier0   .equ 0x01b40004
i2cstr0   .equ 0x01b40008
i2cclkl0  .equ 0x01b4000c
i2cclkh0  .equ 0x01b40010
i2ccnt0   .equ 0x01b40014
i2cdrr0   .equ 0x01b40018
i2csar0   .equ 0x01b4001c
i2cdxr0   .equ 0x01b40020
i2cmdr0   .equ 0x01b40024
i2cisrc0  .equ 0x01b40028
reserved  .equ 0x01b4002c
i2cpsc0   .equ 0x01b40030
i2cpid10  .equ 0x01b40034
i2cpid20  .equ 0x01b40038
          .def loop
          .def loop1
          .def loop2
          .def loop3
;;;;;;;;;;传递函数,a31为基址,写入地址  写入数据    
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
       mvk    0h,a8
       mvk    2h,b8;设定数据量
       mvkl   0h,b31 
       mvkh   0h,b31
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
loop1: mvkl   i2cstr0,a1
       mvkh   i2cstr0,a1;bb=0?
       ldw    *a1,b2
       nop    
       mvkl   1000h,a0 
       mvkh   0h,a0
       and    a0,b2,a0
 [a0]  b      loop1
       nop    5
        ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;判断总线忙不忙
       mvkl   66a0h,b2
       mvkh   0h,b2 
       nop
       mvkl   i2cmdr0,a2
       mvkh   i2cmdr0,a2;设定工作模式
       stw    b2,*a2
       nop    9
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;开始传输数据
       mvk    0h,a8
       mvk    02h,b8;设定数据量 
       zero   b31
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
loop2: mvkl   i2cstr0,a1
       mvkh   i2cstr0,a1;nack=0?
       ldw    *a1,a2
       mvkl   2h,a0 
       mvkh   0h,a0
       and    a0,a2,a0
 [a0]  b      loop2
       nop    5 
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;察看是否有总线响应
       mvkl   i2cstr0,a1
       mvkh   i2cstr0,a1;请求发送数据
       ldw    *a1,b1
       mvkl   10h,a0 
       mvkh   0h,a0
       and    a0,b1,a0
       nop    9
 [!a0] b      loop2 
       nop    9 
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;察看缓冲器里的数据是否准备好
       cmpeq  a8,b8,a0
 [a0]  b      loop 
     ;  nop    2  ;这里加延时会出现错误___________________? 
       add    1,a8,a8 
       ldw    *b31++,b28 
       nop    5        
       mvkl   i2cdxr0,a1
       mvkh   i2cdxr0,a1;发送数据的值 
       ;从机为57h发送55有相应
       stw    b28,*a1 
       nop     
       mvkl   09fffh,b1
       mvkh   00h,b1
       bdec   $,b1    
       nop    5
       b      loop2 
       nop    5
       ;;;;;;;;;;;;;;;;;;;;;; 发送数据
loop:  mvkl   i2cstr0,a1
       mvkh   i2cstr0,a1;nack=0?
       ldw    *a1,a2
       mvkl   2h,a0 
       mvkh   0h,a0
       and    a0,a2,a0
 [a0]  b      loop
;loop: 
       mvkl   i2cstr0,a1
       mvkh   i2cstr0,a1;ardy=0
       ldw    *a1,a2
       mvkl   4h,a0 
       mvkh   0h,a0
       and    a0,a2,a0 
 [!a0] b      loop  
       nop    5  
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;察看是否成功访问
       mvkl   0d600h,b1
       bdec   $,b1
       nop    5
       mvkl   i2cmdr0,a1
       mvkh   i2cmdr0,a1
       ldw    *a1,b1     
       mvkl   0dfffh,a2
       mvkh   0ffffh,a2                                                                                                                                                                                                                                     
       and    a2,b1,a0
       stw    a0,*a1
       nop    5
       ;;;;;;;;;;;;;;;;;;;;;
       mvkl   i2cmdr0,a1
       mvkh   i2cmdr0,a1
       ldw    *a1,b1   
       mvkl   0800h,a0 
       mvkh   0h,a0
       or     a0,b1,a0
       stw    a0,*a1
       nop    5
       ;;;;;;;;;;;;;;;;;;;;;;;;;
       ;;;;;;;;;;;;;;;;;;;;;;;
       mvkl   0ffffh,b0
       mvkh   0h,b0    
       nop    5
       nop
       bdec   $,b0
       nop    5 
       ;;;;;;;;;;;;;;;;;;发送停止
loop3: nop    9
       nop    9
       mvkl   i2cstr0,a1
       mvkh   i2cstr0,a1;bb=1?
       ldw    *a1,b2
       nop    9
       mvkl   1000h,a0 
       mvkh   0h,a0
       and    a0,b2,a0
       stw    a0,*a1
      
 [a0]  b      loop3
       nop
       nop