设为首页收藏本站
在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名：电子顶级开发网)

手机号码，快捷登录

手机号码，快捷登录

找回密码

  登录   注册  

快捷导航
创芯云服务  : 创芯大讲堂  | 创芯人才网 | 数字IC职业培训  EETOP诚邀线上IC培训讲师!
搜帖子
EETOP 创芯网论坛 (原名：电子顶级开发网)»论坛 › 德州仪器技术分享 › TI 处理器 › FM8PC 实验代码分享
返回列表 发新帖
查看: 5026|回复: 3

[资料] FM8PC 实验代码分享

[复制链接]
zjbilang
发表于 2015-11-3 07:59:05 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？注册

x




  1. ;==============================================================================
  2. ; FEELING TECHNOLOGY CORP.
  3. ;==============================================================================                        
  4. ;IC     : FM8PC71A
  5. ;CPUCLK : 1 MHz
  6. ;WDT    : Disable                                                                                                                        

  8. ;------------------------------------------------------------------------------
  9. ;MODIFY BY     : KL Lai                                                                              
  10. ;DATE          : 2011-0905
  11. ;VER           : 1.00                                                                        
  12. ;------------------------------------------------------------------------------
  13.                   
  14. #include   "C71AS_define.ash"                             
  15.                  
  16. SEL_CPUCLK_DELAY    EQU    01D  ; 1=1MHz , 2=2MHz , 4=4MHz , 8=8MHz , 16=16MHz                                                                       
  17.                                                                                        
  18. ;=====================================================================                              
  19. ;-------------------------- ROM Areas --------------------------------                                    
  20. ;=====================================================================
  21.                                                                                                    
  22.                 ORG     000H                                                                        
  23.                 GOTO    reset                                                   
  24.                                                                         
  25.                 ORG     003H         
  26.                                          
  27. ;---------------------------------------------------------------------
  28. INT_VECTOR:                                                
  29.                 MOVAR   INTACCTMP               ;Push Stack           
  30.                 SWAPR   STATUS,A                             
  31.                 MOVAR   INTSTATMP               
  32.                 MOVR    EFR_1,A
  33.                 MOVAR   INTEFR1TMP            
  34.                  
  35.                 BCR     EFR_1,ROMBK_B           ;ROM BANK0
  36.                 BCR     EFR_1,RAMBK_B           ;RAM BANK0
  37.                                                      
  38.                 BTRSC   intflag,paif_b                                
  39.                 GOTO    paitask                 ;porta   
  40.                                           
  41.                 BTRSC   intflag,pbif_b
  42.                 GOTO    pbitask                 ;portb            
  43.                                              
  44.                 BTRSC   PWM0CR,P0TMIF_B      
  45.                 GOTO    PWM0Itask               ;PWM0
  46.                               
  47.                 BTRSC   PWM1CR,P1TMIF_B
  48.                 GOTO    PWM1Itask               ;PWM1
  49.                
  50.                 BTRSC   PWM2CR,P2TMIF_B
  51.                 GOTO    PWM2Itask               ;PWM2
  52.                
  53.                 BTRSC   PWM3CR,P3TMIF_B           
  54.                 GOTO    PWM3Itask               ;PWM3
  55.                                        
  56.                 BTRSC   ADCON_2,ADCIF_B
  57.                 GOTO    ADCItask                ;ADC                                                      
  58.                  
  59.                                              
  60. int_exit:               
  61.                 MOVR    INTEFR1TMP,A            ;Pop Stack
  62.                 MOVAR   EFR_1
  63.                 SWAPR   INTSTATMP,A            
  64.                 MOVAR   STATUS                           
  65.                 SWAPR   INTACCTMP,R
  66.                 SWAPR   INTACCTMP,A   
  67.                 RETFIE               

  69. ;=====================================================================
  70. ;------------------ Main Programme Beginning -------------------------
  71. ;=====================================================================

  73.                                                                                                 
  74.                            
  75. ;=====================================================================
  76. ;=====================================================================

  78. ; Variable : m=Low-byte , n=High-byte
  79. ; Delay Time = n*256*40us + (m+1)*40us   
  80. ; The Min. delay time = 40us , the Max. delay time = 2631680us = 2631.68ms

  82. FM_Delay_40us   MACRO n,m
  83.                              
  84.     movia   m
  85.     movar   DlyCnt_L
  86.     movia   n
  87.     movar   DlyCnt_M
  88.                                     
  89.     CALL    F_Dec_counter_40us     ;6 cycles

  91. ENDM

  93. ;--------------------------------------------------
  94.                      
  95. FC_delay_40us:                     
  96.                                  
  97. if SEL_CPUCLK_DELAY=01D
  98.    call    Eight_Cycle
  99.    call    Four_Cycle
  100. endif
  101.                           
  102. if SEL_CPUCLK_DELAY=02D
  103.    call    Sixteen_Cycle
  104.    call    Sixteen_Cycle
  105. endif
  106.                      
  107. if SEL_CPUCLK_DELAY=04D
  108.    call    Eight_Cycle
  109.    call    Sixteen_Cycle
  110.    call    Sixteen_Cycle
  111.    call    Sixteen_Cycle
  112.    call    Sixteen_Cycle
  113. endif

  115. if SEL_CPUCLK_DELAY=08D
  116.    movia   007h
  117.    movar   DlyCnt_temp   
  118.    call    Sixteen_Cycle
  119.    nop
  120.    decrsz  DlyCnt_temp,r
  121.    goto    $-3                 ;20
  122.    nop              
  123.    call    Eight_Cycle
  124. endif

  126. if SEL_CPUCLK_DELAY=16D   
  127.    movia   00fh
  128.    movar   DlyCnt_temp  
  129.    call    Sixteen_Cycle
  130.    nop                    
  131.    decrsz  DlyCnt_temp,r      
  132.    goto    $-3                 ;20
  133.    nop
  134.    call    Eight_Cycle                          
  135. endif
  136.               
  137. F_Dec_counter_40us:   
  138.    movia   0xFF   
  139.    addar   DlyCnt_L,r
  140.    btrsc   status,0
  141.    incr    DlyCnt_M,r
  142.    addar   DlyCnt_M,r
  143.    btrsc   status,0   
  144.    goto    FC_delay_40us              ;8 cycles

  146. F_exit_delay_40us:                   ;7 cycles        
  147.                                      ;counter overflow

  149. if SEL_CPUCLK_DELAY=01D
  150.    nop
  151.    goto    $+1
  152.    goto    $+1   
  153. endif                                    
  154.                                     
  155. if SEL_CPUCLK_DELAY=02D
  156.    nop
  157.    call    Eight_Cycle
  158.    call    Sixteen_Cycle   
  159. endif

  161. if SEL_CPUCLK_DELAY=04D
  162.    nop
  163.    call    Sixteen_Cycle
  164.    call    Sixteen_Cycle
  165.    call    Sixteen_Cycle
  166.    call    Sixteen_Cycle                 
  167. endif

  169. if SEL_CPUCLK_DELAY=08D
  170.    movia   007h
  171.    movar   DlyCnt_temp   
  172.    call    Sixteen_Cycle
  173.    nop
  174.    decrsz  DlyCnt_temp,r
  175.    goto    $-3                 ;20
  176.    goto    $+1
  177.    goto    $+1         
  178. endif

  180. if SEL_CPUCLK_DELAY=16D
  181.    movia   00fh
  182.    movar   DlyCnt_temp  
  183.    call    Sixteen_Cycle
  184.    nop
  185.    decrsz  DlyCnt_temp,r
  186.    goto    $-3                 ;20
  187.    goto    $+1
  188.    goto    $+1        
  189. endif     
  190.    RETURN                           


  193. Sixteen_Cycle:   
  194.               goto $+1
  195.               goto $+1
  196.               goto $+1
  197.               goto $+1
  198. Eight_Cycle:   
  199.               goto $+1
  200.               goto $+1                        
  201.               RETURN

  203. Four_Cycle:                          
  204.               RETURN              
  205. ;---------------------------------------------------------------------               
  206. ;---------------------------------------------------------------------
  207. ; Variable : n
  208. ; Delay Time ~= n*100ms
  209. ; The Min. delay time = 0ms , the Max. delay time = 25500ms = 25.5s
  210. ; パ?Delay?丁耕?, ??ぃ暗弘絋?璸衡

  212. FM_Delay_ms   MACRO n
  213.             
  214.              movia   n
  215.              movar   DlyCnt_H
  216.              movr    DlyCnt_H,A
  217.              btrsc   status,2
  218.              goto    $+9                       ;If counter=0 , exit count

  220. ;Dec_counter_ms:
  221.              clrwdt                        
  222.              movia   195d
  223.              movar   DlyCnt_L
  224.              movia   009d
  225.              movar   DlyCnt_M                  
  226.              CALL    FC_delay_40us              ;100ms                                            
  227.              decrsz  DlyCnt_H,R
  228.              goto    $-7                       ;Dec_counter_ms
  229.                                                                           
  230. ;exit_delay_ms:        
  231.                      
  232. ENDM                                                      
  233.                                                                                                                     
  234. ;=====================================================================                                 
  235. ;=====================================================================                                                
  236.                                                       
  237.                                     
  238. reset:                                                                                                   
  239.              NOP
  240.              NOP
  241.              NOP
  242.              clrwdt                     
  243.                                       
  244.              BCR       WDT,WDTE_B               //Disable Watch dog timer           
  245.              NOP                                          
  246.              NOP
  247.                                                                                                                                                          
  248.              CALL      CLEAR_RAM                                                                             
  249.                                                                         
  250.              CALL      RESET_INIT                                                                       
  251.                                                                  
  252.              CALL      IO_INITIAL     
  253.                                                                                                                                                                                                                                                                                                                                                                                     
  254.              CALL      ADC_CON_INITIAL                                                      
  255.             
  256.              FM_Delay_ms    2           ;DELAY 200MS   
  257.                                                                   
  258.              NOP   
  259.              NOP                                                        
  260.                            
  261.                                  
  262. MAIN_LOOP:                                                
  263.              CLRWDT
  264.              NOP
  265.              NOP                                                                                 
  266.              NOP                                                                                 
  267.              CALL      GET_ADC_DATA            //Polling ADC conversion has completed ?            
  268.              NOP
  269.              NOP
  270.              NOP                                       
  271.              GOTO      MAIN_LOOP                                


  274.                                                       
  275.             
  276. ;-----------------------------------------------------------
  277. GET_ADC_DATA:                                                                                                               
  278.              BSR       ADCON_1,ADCST_B         //Start to ADC sample, when ADC is trigger mode.
  279.                                     
  280.              BTRSC     ADCON_1,ADCST_B            
  281.              GOTO      $-1              
  282.              NOP
  283.              NOP
  284.              MOVR      ADCLB,A
  285.              MOVAR     ADCLB_TEMP            //Move ADCLB data to ADCLB_TEMP register
  286.              MOVR      ADCHB,A  
  287.              MOVAR     ADCHB_TEMP            //Move ADCHB data to ADCHB_TEMP register                                                
  288.              RETURN                                                                                               
  289. ;-----------------------------------------------------------                                            
  290.                                                   








  299. ;=====================================================================
  300. ;=====================================================================                                                                                                              
  301. ADC_CON_INITIAL:
  302.              BSR       ADCON_1,CHSEL0_B        //ADC input channel is PB1  
  303.              BCR       ADCON_1,CHSEL1_B        
  304.              BCR       ADCON_1,CHSEL2_B
  305.                                                                      
  306.              BCR       ADCON_1,ADCSR0_B
  307.              BCR       ADCON_1,ADCSR1_B        //ADC clock is Fcpu/8   
  308.                                                                            
  309.              BCR       ADCON_2,SVREFH_B        //Internal VREFH  
  310.                                                                                                      
  311.              BCR       ADCON_2,ADCNT_B         //Trigger mode
  312.                                                                      
  313.              BCR       ADCON_2,DACOEN_B        //Disable DAC output to PB3                          
  314.              BSR       ADCON_2,ADCTMS_B        //Fixed convert timing
  315.              BCR       ADCON_2,ADCIF_B         //Clear ADC completed flag
  316.              BCR       ADCON_2,ADCIE_B         //Disable ADC interrupt
  317.                                                                     
  318.              BSR       ADCON_2,SELVER0_B        
  319.              BSR       ADCON_2,SELVER1_B       //Internal VREFH = 2V
  320.             
  321.              BSR       ADCON_1,ADCEN_B         //Enable ADC
  322.              RETURN         


  325. ;=====================================================================
  326. ;=================== I/O Mode Setting ================================
  327. ;=====================================================================                                         
  328. IO_INITIAL:
  329.              MOVIA     00000000B
  330.              IOST      PAMODE0         
  331.              MOVIA     11111111B              
  332.              IOST      PAMODE1
  333.               
  334.              MOVIA     0FFH
  335.              MOVAR     PORTA
  336.                               
  337.              MOVIA     00000000B  
  338.              IOST      PBMODE0
  339.              MOVIA     11101101B               //PB1, PB4 are input mode
  340.              IOST      PBMODE1                 //Because PB1 as AIN pin ,PB4 as VREFH pin
  341.                                                                            
  342.              MOVIA     0FFH                          
  343.              MOVAR     PORTB     
  344.             
  345.              FM_Delay_40us   000D,049D         //Delay 2 ms
  346.                              
  347.              RETURN
  348.                           
  349.                                  
  350. ;=====================================================================
  351. ;=====================================================================                 
  352. paitask:                                      
  353.             BCR        INTFLAG,PAIF_B  
  354.             GOTO       int_exit
  355.                                 
  356. pbitask:                           
  357.             BCR        INTFLAG,PBIF_B  
  358.             GOTO       int_exit
  359.                        
  360. PWM0Itask:                                                   
  361.             BCR        PWM0CR,P0TMIF_B   
  362.             GOTO       int_exit                                 
  363.                                     
  364. PWM1Itask:                                                   
  365.             BCR        PWM1CR,P0TMIF_B
  366.             GOTO       int_exit
  367.                                                                                                                     
  368. PWM2Itask:                                                   
  369.             BCR        PWM2CR,P2TMIF_B   
  370.             GOTO       int_exit                                 
  371.                                     
  372. PWM3Itask:                                                   
  373.             BCR        PWM3CR,P3TMIF_B
  374.             GOTO       int_exit
  375.                        
  376. ADCItask:                          
  377.             BCR        ADCON_2,ADCIF_B
  378.             NOP
  379.             NOP
  380.             MOVR       ADCLB,A
  381.             MOVAR      ADCLB_TEMP            //Move ADCLB data to ADCLB_TEMP register
  382.             MOVR       ADCHB,A  
  383.             MOVAR      ADCHB_TEMP            //Move ADCHB data to ADCHB_TEMP register
  384.             GOTO       int_exit   
  385.                                                       
  386. ;=====================================================================
  387. ;=====================================================================   
  388. CLEAR_RAM:
  389.             MOVIA      040H
  390.             MOVAR      FSR                     
  391.                              
  392. CLEAR_LOOP:                          
  393.             CLRR       INDF
  394.             MOVIA      07FH  
  395.             XORAR      FSR,A               
  396.             BTRSC      STATUS,Z_B   
  397.             RETURN               
  398.             INCR       FSR,R         
  399.             GOTO       CLEAR_LOOP
  400.                                                 
  401. ;=====================================================================
  402. ;=====================================================================
  403. RESET_INIT:                 
  404.             CLRR       INTEN  
  405.             CLRR       INTFLAG   
  406.             CLRR       PAIE
  407.             CLRR       PBIE                             
  408.             RETURN                                         
  409. ;=====================================================================
  410. ;=====================================================================



复制代码
feling, FM8PC, MCU

相关帖子
回复

举报

醉逍遥642
发表于 2015-12-4 21:55:01 | 显示全部楼层
此帖仅作者可见
EETOP创芯人才网职位发布入口

举报

tykids
发表于 2015-12-29 16:32:42 | 显示全部楼层
此帖仅作者可见

举报

yexingqi
发表于 2016-1-1 11:00:37 | 显示全部楼层
此帖仅作者可见

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

站长推荐 上一条 /2 下一条


小黑屋| 手机版| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-12-21 14:42 , Processed in 0.022031 second(s), 9 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表