boot1.asm

在DM642平台上

            .title  "Flash bootup utility for DM642 EVM"
            .option D,T
            .length 102
            .width  140
;          .sect ".boot_load"
            .global _boot
eprh      .equ 0x01a0ff9c 
ciprh     .equ 0x01a0ffa4  
cierh     .equ 0x01a0ffa8  
ccerh     .equ 0x01a0ffac   
erh       .equ 0x01a0ffb0   
eerh      .equ 0x01a0ffb4   
ecrh      .equ 0x01a0ffb8   
pcfglock  .equ 0x01b3f018
percfg    .equ 0x01b3f000
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
LEDCTLR   .equ 0x01b00000
LEDCTLR1  .equ 0x01b00004
LEDCTLR2  .equ 0x01b00008

loog      .equ 0x10c0010c ;定时时间长度
          .def _main
          .def loop
          .def loop1
          .def loop2
_main: 
               mvkl pcfglock,a1
       mvkh pcfglock,a1
       ldw  *a1,a2
       mvkl loog,b1
       mvkh loog,b1       
       stw  b1,*a1
       nop       
       mvkl percfg,a1
       mvkh percfg,a1
       ldw  *a1,a2
       mvkl 8h,b1
       mvkh 0,b1       
       or   b1,a2,a2
       stw  a2,*a1
       mvkl 128,a0
       bdec $,a0
       nop 9
       mvkl LEDCTLR,a1;中断子程序
       mvkh LEDCTLR,a1
       mvkl 0ffffh,b1 ;控制通用IO口的工作
       mvkh 0h,b1
       stw  b1,*a1
       mvkl LEDCTLR1,a1
       mvkh LEDCTLR1,a1
       mvkl 0ffffh,b1
       mvkh 00h,b1
       stw  b1,*a1
       mvkl LEDCTLR2,a1
       mvkh LEDCTLR2,a1
       mvkl 0ffffh,b1
       mvkh 00h,b1
       stw  b1,*a1;GP0=1 select IIC_set b2

       
       mvkl 1ah,b2
       mvkh 0h,b2 
       nop
       mvkl I2COAR0,a2
       mvkh I2COAR0,a2;设定主机地址
       stw  b2,*a2
       nop
        
       mvkl i2cier0,a1
       mvkh i2cier0,a1;设定i2c中断
       mvkl 0fh,b1
       mvkh 0h,b1
       stw  b1,*a1
       nop
       mvkl 5h,b2
       mvkh 0h,b2 
       nop
       mvkl i2cpsc0,a2
       mvkh i2cpsc0,a2;设定分频系数1
       stw  b2,*a2
       nop
       
       mvkl i2cclkh0,a1
       mvkh i2cclkh0,a1;设定分频系数2H
       mvkl 1bh,b1
       mvkh 0h,b1
       stw  b1,*a1
       nop
                                                                                                                                                                            
       mvkl 1bh,b2
       mvkh 0h,b2 
       nop
       mvkl i2cclkl0,a2
       mvkh i2cclkl0,a2;设定分频系数2L
       stw  b2,*a2
       nop  
       mvkl i2cmdr0,a2
       mvkh i2cmdr0,a2;设定工作模式rm=1
       ldw  *a2,a0
       mvkl 80h,b2
       mvkh 0h,b2 
       stw  b2,*a2
       nop

       nop 
       mvkl i2csar0,a1
       mvkh i2csar0,a1;设定从机地址57h 
       mvkl 57h,b1
       mvkh 0h,b1
       stw  b1,*a1
       nop
loop1: mvkl i2cstr0,a1
       mvkh i2cstr0,a1;bb=0?
       ldw  *a1,b2
       nop  5
       mvkl 1000h,a0 
       mvkh 0h,a0
       and  a0,b2,a0
 [a0]  b    loop1
       nop  5 
       mvkl 26a0h,b2
       mvkh 0h,b2 
       nop
       mvkl i2cmdr0,a2
       mvkh i2cmdr0,a2;设定工作模式
       stw  b2,*a2
       nop 
       mvk  0h,a8
       mvk  500h,b8;设定数据量 
loop2: mvkl i2cstr0,a1
       mvkh i2cstr0,a1;nack=0?
       ldw  *a1,a2
       mvkl 2h,a0 
       mvkh 0h,a0
       and  a0,a2,a0
 [a0]  b    loop1
       nop  5 
  ;     mvkl i2cdxr0,a1
   ;    mvkh i2cdxr0,a1;发送数据
  ;     mvkl 058h,b1
  ;     mvkh 0h,b1
  ;     stw  b1,*a1  
       nop  5
       mvkl i2cstr0,a1
       mvkh i2cstr0,a1;请求发送数据
       ldw  *a1,b1
       mvkl 10h,a0 
       mvkh 0h,a0
       and   a0,b1,a0
      ; stw  a0,*a1
 [!a0] b    loop2 
       nop 5  
       cmpeq a8,b8,a0
 [a0]  b    loop      
      add   1,a8,a8          
       mvkl i2cdxr0,a1
       mvkh i2cdxr0,a1;发送数据的值 
       mvkl 055h,b1
       mvkh 0h,b1
       stw  b1,*a1 
       b  loop2 
       nop 5
loop:  mvkl i2cmdr0,a1
       mvkh i2cmdr0,a1;设定数据量 
       ldw  *a1,b1
       mvkl 0800h,a0 
       mvkh 0h,a0
       or  a0,b1,a0
       stw  a0,*a1
       nop
       nop 
; [!a0] b    loop 
       mvkl 07fffh,a0
       mvkh 0,a0     
       nop 5
       nop
       bdec   _main,a0
        nop
        nop
        nop
        nop