标题: mk7a11p单片机的电子壶源程序 [打印本页]
作者: xitaopeng    时间: 2018-7-8 22:13
标题: mk7a11p单片机的电子壶源程序
mk7a11p mcu的电子壶源程序 供大家参考


单片机源程序如下:
  1. #include  "mk7a11p.inc"  ;编译该文档需包含"mk7a11p.inc"文件
  2. ;------------------------------------------------------------------
  3. ;芯片型号（mk7a11p）
  4. ;------------------------------------------------------------------
  5. ;配置寄存器设置说明（CONFIG）
  6. ;1-----------FOSC=RC    ;LS,NS,HS,RC
  7. ;2-----------INRC=ON    ;ON,OFF
  8. ;3-----------CPT=OFF    ;ON,OFF
  9. ;4-----------WDTE=Disable   ;Enable,Disable
  10. ;5-----------LV=Low Vol Reset ON  ;Low Vol Reset ON,Low Vol Reset OFF
  11. ;6-----------RESET=...input...   ;...input...,...reset...
  12. ;------------------------------------------------------------------
  13. a_buf           equ                   0x20                   ;acc缓存器
  14. status_buf          equ                   0x21                   ;status缓存器
  15. tm_r                   equ                   0x22                   ;1s计时
  16. pb_buf          equ                  0x23         ;端口缓存
  17. del_r0               equ                   0x24         ;延时计数
  18. del_r1                equ                  0x25         ;延时计数
  19. gs_flag         equ             0x26        ;高水位标志
  20. cs_flag         equ             0x27        ;常水位标志
  21. ns_flag         equ             0x28        ;浓缩位标志
  22. fmq_flag        equ             0x29        ;蜂鸣器标志位
  23. ct1_flag        equ            0x2A        ;加热次数标志
  24. ct2_flag        equ            0x2B        ;加热次数标志
  25. ct3_flag        equ            0x2C        ;加热次数标志
  26. grcs_flag        equ            0x2e        ;加热次数标志
  27. grcs0_flag        equ            0x2e        ;加热次数标志
  28. ;------------------------------------------------------------------
  29.                    org                   0x3fe           ;mk7a11p的中断向量地址定义
  30.                      lgoto                 int                   ;跳转到中断程序入口
  31.                       org                0x3ff           ;mk7a11p的复位向量地址定义
  32.                      lgoto                main                   ;跳转到主程序入口
  33. ;------------------------------------------------------------------
  34.                     org                   0x000
  35. int                                                 ;中断入口地址
  36.                                                  ;保护现场
  37.                    movam                  a_buf
  38.                    swap                   status,a
  39.                    movam                  status_buf
  40.                    ;---------------------------------------------------------------
  41.                    btsc                   irqf,tm0f          ;判断是不是tmr0溢出中断
  42.                    lgoto           int_tm0          ;进入tmr0中断服务程序
  43.                    ;---------------------------------------------------------------
  44. int_end
  45.                                                    ;中断结束要恢复现场
  46.                    swap                   status_buf,a
  47.                    movam                  status
  48.                    swap                   a_buf,m          ;这里不能用"mov a_buf,a"因为
  49.                    swap                   a_buf,a          ;"mov a_buf,a"会影响status
  50.                    reti
  51. ;------------------------------------------------------------------
  52. int_tm0                                                ;tmr0中断服务程序
  53.                    bc                   irqf,tm0f          ;清除tmr0中断标志
  54.                    ;---------------------------------------------------------------
  55.                    inc                   tm_r,m
  56.                    movla                  .1                   ;4x250=1s
  57.                    xor                   tm_r,a
  58.                    btss                   status,z        ;逻辑结果操作结果零标记位
  59.                    lgoto           int_end
  60.                    clr                   tm_r
  61.                    ;---------------------------------------------------------------
  62.                    movla                  b'00100000'
  63.                    xor                   portb,m                ;PA0的High Low切换
  64.                    lgoto           int_end
  65. ;------------------------------------------------------------------
  66. delay
  67.                 decsz del_r0,m ;延时消抖
  68.                 lgoto delay
  69.                 movla                  .255
  70.                      movam                  del_r0
  71.                 decsz del_r1,m
  72.                 lgoto delay
  73.                 ret                              ;子程序返回
  74. main                                            ;主程序入口地址定义
  75.                    ;PortA端口方向及状态设定
  76.                     movla              b'11110000'
  77.                  iodir                 porta
  78.                     clr                   porta
  79.                   clr                  pa_pdm
  80.                     ;------------------------------------------------------
  81.                       ;PortB端口方向及状态设定pb2高水位键盘和绿灯控制
  82.                   movla                b'11001001';六个键 PB0 PB3设置为输入
  83.                     iodir                  portb
  84.                     clr                   portb
  85.                     clr                  pb_pod      ;lou ji kai lu
  86.                    clr                  pb_pdm     ;gong neng xuan ze
  87.                    clr                 pb_pup     ;shang la dian zu qi
  88.                 bs              pb_pup, 0
  89.                 ;bs              pb_pup, 3
  90.                        ;------------------------------------------------------初始化
  91.                 movla                         .0
  92.                 MOVAM            a_buf
  93.                  movla                  .0
  94.                 MOVAM            status_buf
  95.                  movla                  .0
  96.                 MOVAM            tm_r
  97.                  movla                  .0
  98.                 MOVAM            pb_buf
  99.                 movla                         .0
  100.                 MOVAM            gs_flag
  101.                  movla                  .0
  102.                 MOVAM            cs_flag
  103.                  movla                  .0
  104.                 MOVAM            ns_flag
  105.                  movla                  .0
  106.                 MOVAM            fmq_flag
  107.                 movla                         .0
  108.                 MOVAM            ct1_flag
  109.                  movla                  .0
  110.                 MOVAM            ct2_flag
  111.                  movla                  .0
  112.                 MOVAM            ct3_flag
  113.                  movla                  .0
  114.                  MOVAM           grcs_flag
  115.                  movla                  .0
  116.                  MOVAM           grcs0_flag

  118.                  ;bs              pb_pup, 3
  119.               ; movla                  b'00000001'
  120.                  ;        xor                   portb,m                ;PA0的High Low切换
  121.                        ;----------------------------------------------------------
  122.                    ;PortB端口8个IO唤醒使能
  123.                      ;movla          b'11111111'
  124.                     ;movam          wake_up
  125.                       ;---------------------------------------------------
  126.                     ;配置TMR0,预分频比为1:16
  127.                     ;TMR0初始值为250
  128.                      movla              b'11000011'
  129.                     select
  130.                        movla                  .12
  131.                      movam                  tmr0                   ;tmr0的溢出时间是：250x16=4ms
  132.                       ;---------------------------------------------------
  133.                    ;tmr0中断使能
  134.                
  135.                      ;inc                   del_r0,m                  ;tmr0的溢出时间是：250x16=4ms
  136.                      movla                  .255
  137.                      movam                  del_r0
  138.                      movla                  .255
  139.                      movam                  del_r1
  140.                   ;--------------------------------------延时一段时间等待电路稳定
  141.                 lcall           delay
  142.                   lcall           delay
  143.                     lcall           delay
  144.    ;                   lcall           delay
  145.    ;                     lcall           delay
  146. ;--------------------------------------——————第一次读取按键；

  148. duqu1
  149.                movla                b'11001101'      ;六个键 PB0 PB3设置为输入
  150.                iodir                  portb            ; pb2 设 置为输入
  151.                mov                   portb,a           ;读取端口状态
  152.                movam                  pb_buf           ;保存端口状态
  153.                COM              pb_buf, m       ;取反端口状态
  154.                lgoto            qu01_flag        ;延时状态
  155. yqu0
  156.                movla                b'11001101'      ;六个键 PB0 PB3设置为输入
  157.                iodir                  portb            ; pb2 设 置为输入
  158.                mov                   portb,a           ;二次读取端口状态
  159.                AND              pb_buf, m
  160.                BTSc                   pb_buf,2        ;测试pb2 为5零sikp高水位测试位
  161.                lgoto            qingchu
  162.                BTSc                   pb_buf,3        ;测试pb2 为5零sikp高水位测试位
  163.                lgoto            qingchu
  164.                movam                  pb_buf          ;一次测试pb0通过 。
  165.                inc              grcs0_flag,m
  166.                BTSs                   grcs0_flag,7     ;八次测试pb0通过 。
  167.                lgoto            duqu1
  168.                BTSs                   grcs0_flag,6     ;八次测试pb0通过 。
  169.                lgoto            duqu1
  170.                BTSs                   grcs0_flag,5     ;八次测试pb0通过 。
  171.                lgoto            duqu1
  172.                BTSc                    pb_buf,2
  173.                lgoto            sns_flag
  174.                lgoto            sgs_flag
  175. qu01_flag
  176.                movla                    .200
  177.                MOVAM            fmq_flag
  178. qu011_flag
  179.                movla                b'11001001'      ;六个键 PB0 PB3设置为输入
  180.                iodir                  portb            ; pb2 设 置为输入
  181.                bc               portb, 2        ;绿色指示灯亮
  182.                nop
  183.                nop
  184.                nop
  185.                nop
  186.                nop
  187.                nop
  188.                nop
  189.                nop
  190.                nop
  191.                nop
  192.                nop
  193.                nop
  194.                nop
  195.                nop
  196.                nop
  197.                nop
  198.                nop
  199.                nop
  200.                nop
  201.                nop
  202.                DECSZ          fmq_flag, m
  203.                lgoto           qu011_flag
  204.                lgoto            yqu0            ;
  205. qingchu
  206.                movla                  .0
  207.                MOVAM           grcs0_flag
  208.                lgoto            duqu1

  210.               
  211. sgs_flag
  212.                movla                  .1
  213.                MOVAM            gs_flag
  214.                lgoto            jiare_flag      ;只可能一个键被按下检测到后直接跳转加热
  215. sns_flag
  216.                BTSc                   pb_buf,3       ;测试pb3 为零sikp
  217.                lgoto            scs_flag
  218.                movla                  .1
  219.                MOVAM            ns_flag
  220.                lgoto            jiare_flag      ;只可能一个键被按下检测到后直接跳转加热
  221. scs_flag       movla                  .1
  222.                MOVAM            cs_flag
  223. ;----------------------------------------------------------------电路全功率加热
  224. jiare_flag
  225.                 bc              portb, 4        ;红色指示灯亮，
  226.                 movla                  b'10000001'
  227.                movam                  irqm
  228.                clr                 irqf
  229.                 ;bs              portb, 5 ;打开蜂鸣器
  230.                 movla                  .5
  231.                      movam                  del_r1
  232.                 lcall           delay          ;蜂鸣器响一声，
  233.                 ;lcall           delay          ;蜂鸣器响一声，
  234.                   lcall           delay          ;蜂鸣器响一声，
  235.                     lcall           delay          ;蜂鸣器响一声，
  236.                 movla                  b'00000000'
  237.                movam                  irqm
  238.                clr                 irqf
  239.                 ;bc              portb, 5    ;关闭蜂鸣器
  240.                
  241.                 bs              portb, 1       ;继电器打开全功率加热。
  242.                 bs              portb, 0
  243.               ;  bs              portb, 0       ;继电器打开全功率加热。
  244.                

  246.                
  247. jiare
  248.                 mov                   portb,a           ;读取端口状态
  249.                     movam                  pb_buf           ;保存端口状态
  250.                 btss                   pb_buf,0        ;测试pb0
  251.                       lgoto           jiare           ;等待温控器信号为零时跳出循环体
  252.                       nop
  253.                        bc              portb, 4        ;红色指示灯亮，
  254.                 nop
  255.                 nop
  256.                 nop
  257.                 nop
  258.                 nop
  259.                 nop
  260.                 nop
  261.                 btss                   pb_buf,0        ;测试pb0
  262.                 lgoto           jiare           ;等待温控器信号为零时跳出循环体
  263.                        nop
  264.                 nop
  265.                 nop
  266.                 nop
  267.                 lcall           delay
  268.                 nop
  269.                 nop
  270.                 nop
  271.                 nop
  272.                 btss                   pb_buf,0        ;测试pb0
  273.                 lgoto           jiare           ;等待温控器信号为零时跳出循环体
  274.                 nop
  275.                 nop
  276.                 nop
  277.                 nop
  278.                 nop
  279.                 nop
  280.                 nop
  281.                 nop
  282.                 btss                   pb_buf,0        ;测试pb0
  283.                 lgoto           jiare           ;等待温控器信号为零时跳出循环体


  286. ;------------------------------------------------------------加热完成延时加热；

  288.                BTSc                   gs_flag,0            ;为一表示高电平没有按键，跳过指令
  289.                lgoto            wcjiare1              ;高水位加热后直接完成加热状态
  290.                BTSc                   cs_flag,0
  291.                lgoto            csjiare_flag       ;常水位加热后延时2分钟
  292.                BTSc                  ns_flag,0
  293.                lgoto            nsjiare1_flag      ;浓缩水位加热后延时6分钟
  294. csjiare_flag
  295.                movla                  .121
  296.                MOVAM            fmq_flag
  297. csjiare1_flag
  298.                    lcall           delay
  299.                   lcall           delay
  300.                   lcall           delay
  301.                   lcall           delay
  302.                   lcall           delay
  303.                 DECSZ    fmq_flag, m
  304.                 LGOTO    csjiare1_flag
  305.                 LGOTO    wcjiare1
  306. nsjiare1_flag
  307.                movla                  .180
  308.                MOVAM            fmq_flag
  309. nsjiare11_flag
  310.                 lcall           delay
  311.                   lcall           delay
  312.                     lcall           delay
  313.                       lcall           delay
  314.                        lcall           delay
  315.                 DECSZ    fmq_flag, m
  316.                 LGOTO    nsjiare11_flag
  317. nsjiare2_flag
  318.                movla                  .180
  319.                MOVAM            fmq_flag
  320. nsjiare22_flag
  321.                 lcall           delay
  322.                   lcall           delay
  323.                     lcall           delay
  324.                       lcall           delay
  325.                         lcall           delay
  326.                DECSZ            fmq_flag, m
  327.                LGOTO            nsjiare22_flag
  328. wcjiare1
  329.                movla                b'11001001';六个键 PB0 PB3设置为输入
  330.                iodir                  portb      ; pb2 设 置为输出
  331.                 bs              portb, 4        ;红色指示灯灭，
  332.                 bc              portb, 1       ;关闭继电器打开全功率加热。
  333.                 bs              portb, 2        ;绿色指示灯亮
  334.                movla                  .10             ;蜂鸣器响十声，
  335.                MOVAM            fmq_flag
  336. sss1_flag
  337.                movla                  b'10000001'
  338.                movam                  irqm
  339.                clr                 irqf
  340.                lcall           delay
  341.                lcall           delay
  342.                movla                  b'00000000'
  343.                movam                  irqm
  344.                clr                 irqf
  345.                lcall           delay
  346.                lcall           delay
  347.                DECSZ           fmq_flag, m
  348.                LGOTO           sss1_flag
  349.                bc              portb, 5        ;关蜂鸣器，
  350. ;----------------------------------------------------------加热延时完成关闭加热；
  351. ;----------------------------------------------------------加热完成二次读取按键；
  352. baowen
  353.                movla                b'11001101'      ;六个键 PB0 PB3设置为输入
  354.                iodir                  portb            ; pb2 设 置为输入
  355.                mov                   portb,a           ;读取端口状态
  356.                movam                  pb_buf           ;保存端口状态
  357.                COM              pb_buf, m       ;取反端口状态
  358.                lgoto            qu1_flag        ;延时状态
  359. yqu
  360.                movla                b'11001101'      ;六个键 PB0 PB3设置为输入
  361.                iodir                  portb            ; pb2 设 置为输入
  362.                mov                   portb,a           ;二次读取端口状态
  363.                AND              pb_buf, m
  364.                BTSc                   pb_buf,2        ;测试pb2 为5零sikp高水位测试位
  365.                lgoto            qingchu0
  366.                BTSc                   pb_buf,3        ;测试pb2 为5零sikp高水位测试位
  367.                lgoto            qingchu0
  368.                movam                  pb_buf          ;一次测试pb0通过 。
  369.                inc              grcs_flag,m
  370.                BTSs                   grcs_flag,7     ;八次测试pb0通过 。
  371.                lgoto            baowen
  372.                BTSc                   pb_buf,2
  373.                lgoto            sns1_flag
  374.                lgoto            jiare2
  375. qu1_flag
  376.                movla                  .100
  377.                MOVAM            fmq_flag
  378. qu11_flag
  379.                movla                b'11001001'      ;六个键 PB0 PB3设置为输入
  380.                iodir                  portb            ; pb2 设 置为输入
  381.                bs              portb, 2        ;绿色指示灯亮
  382.                nop
  383.                nop
  384.                nop
  385.                nop
  386.                nop  
  387.                nop   
  388.                nop
  389.                nop
  390.                nop
  391.                nop
  392.                DECSZ          fmq_flag, m
  393.                lgoto           qu11_flag
  394.                lgoto            yqu            ;
  395. qingchu0
  396.                movla                  .0
  397.                MOVAM           grcs_flag
  398.                lgoto            baowen

  400. sns1_flag
  401.                BTSc                   pb_buf,3       ;测试pb3 为零sikp浓缩水位测试位
  402.                lgoto            scs1_flag      ;不是高水位也不是浓缩水位
  403.                BTSc                   gs_flag,0      ;是浓缩水位，
  404.                lgoto            sss_flag       ;高水位转浓缩水位，转加热6分钟
  405.                BTSc                   cs_flag,0       ;是浓缩不是高水位
  406.                lgoto             loop3       ;常水位转浓缩水位，加热四分钟
  407.                lgoto             jiare2        ;是浓缩水位，不是高水位，也不是常水位转保温加热
  408. scs1_flag                                      ;二次读取为常水位。
  409.                BTSc                  gs_flag,0
  410.                lgoto            loop           ;高水位转常水位 加热两分钟
  411.                lgoto            jiare2        ;不是高水位转常水位转到保温加热。
  412. loop
  413.                 BTSc                  ct1_flag,0
  414.                 lgoto            jiare2
  415.                 inc                   ct1_flag,m
  416.                 movla                b'11001001'      ;六个键 PB0 PB3设置为输入
  417.                iodir                  portb            ; pb2 设 置为输入
  418.                 bc              portb, 2        ;绿色指示灯亮
  419.                 bc              portb, 4        ;红色指示灯亮，
  420.                 bs              portb, 1       ;继电器打开全功率加热。
  421.                movla                  .120
  422.                MOVAM            fmq_flag
  423. nsjiare44_flag                                ;延时
  424.                  lcall           delay
  425.                   lcall           delay
  426.                     lcall           delay
  427.                       lcall           delay
  428.                         lcall           delay
  429.                 DECSZ          fmq_flag, m
  430.                 LGOTO        nsjiare44_flag
  431.                 lgoto           wcjiare1          ;延时加热后转保温加热
  432. sss_flag
  433.                 BTSc                  ct2_flag,0
  434.                 lgoto            jiare2
  435.                 BTSc                  ct1_flag,0
  436.                 lgoto         nsjiare045_flag
  437.                 inc                   ct2_flag,m
  438.                 movla                b'11001001'      ;六个键 PB0 PB3设置为输入
  439.                 iodir                  portb            ; pb2 设 置为输入
  440.                 bc              portb, 2        ;绿色指示灯亮
  441.                 bc              portb, 4        ;红色指示灯亮，
  442.                 bs              portb, 1       ;继电器打开全功率加热。
  443.                movla                  .120
  444.                MOVAM            fmq_flag
  445. nsjiare45_flag                                ;延时
  446.                  lcall           delay
  447.                   lcall           delay
  448.                     lcall           delay
  449.                       lcall           delay
  450.                         lcall           delay
  451.                 DECSZ    fmq_flag, m
  452.                 LGOTO    nsjiare45_flag
  453. nsjiare045_flag
  454.                inc                  ct2_flag,m
  455.                bc             portb, 2        ;绿色指示灯灭
  456.                bc              portb, 4        ;红色指示灯亮，
  457.                bs              portb, 1       ;继电器打开全功率加热。
  458.                 movla                  .230
  459.                 MOVAM            fmq_flag
  460. nsjiare46_flag                                ;延时
  461.                 lcall           delay
  462.                   lcall           delay
  463.                     lcall           delay
  464.                       lcall           delay
  465.                        lcall           delay
  466.                 DECSZ    fmq_flag, m
  467.                 LGOTO    nsjiare46_flag
  468.                 lgoto            wcjiare1         ;延时六分钟加热后转保温加热
  469. loop3
  470.                BTSc                  ct3_flag,0
  471.                lgoto            jiare2
  472.                inc                   ct3_flag,m
  473.                 movla                b'11001001'      ;六个键 PB0 PB3设置为输入
  474.                iodir                  portb            ; pb2 设 置为输入
  475.                 bc              portb, 2        ;绿色指示灯亮
  476.                bc              portb, 4        ;红色指示灯亮，
  477.                bs              portb, 1       ;继电器打开全功率加热。
  478.                 movla                  .240
  479.                 MOVAM            fmq_flag
  480. nsjiare47_flag                                ;延时
  481.                  lcall           delay
  482.                  lcall           delay
  483.                     lcall           delay
  484.                       lcall           delay
  485.                         lcall           delay
  486. ……………………

  488. …………限于本文篇幅 余下代码请从51黑下载附件…………
复制代码

所有资料51hei提供下载:
14 6A12_dzkwh.rar (15.45 KB, 下载次数: 6)


作者: learned    时间: 2019-8-31 23:40
没有电路图吗？大佬



欢迎光临 (http://www.51hei.com/bbs/) Powered by Discuz! X3.1