標(biāo)題: mk7a11p單片機(jī)的電子壺源程序 [打印本頁(yè)]
作者: xitaopeng    時(shí)間: 2018-7-8 22:13
標(biāo)題: mk7a11p單片機(jī)的電子壺源程序
mk7a11p mcu的電子壺源程序 供大家參考


單片機(jī)源程序如下:
  1. #include  "mk7a11p.inc"  ;編譯該文檔需包含"mk7a11p.inc"文件
  2. ;------------------------------------------------------------------
  3. ;芯片型號(hào)（mk7a11p）
  4. ;------------------------------------------------------------------
  5. ;配置寄存器設(shè)置說(shuō)明（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計(jì)時(shí)
  16. pb_buf          equ                  0x23         ;端口緩存
  17. del_r0               equ                   0x24         ;延時(shí)計(jì)數(shù)
  18. del_r1                equ                  0x25         ;延時(shí)計(jì)數(shù)
  19. gs_flag         equ             0x26        ;高水位標(biāo)志
  20. cs_flag         equ             0x27        ;常水位標(biāo)志
  21. ns_flag         equ             0x28        ;濃縮位標(biāo)志
  22. fmq_flag        equ             0x29        ;蜂鳴器標(biāo)志位
  23. ct1_flag        equ            0x2A        ;加熱次數(shù)標(biāo)志
  24. ct2_flag        equ            0x2B        ;加熱次數(shù)標(biāo)志
  25. ct3_flag        equ            0x2C        ;加熱次數(shù)標(biāo)志
  26. grcs_flag        equ            0x2e        ;加熱次數(shù)標(biāo)志
  27. grcs0_flag        equ            0x2e        ;加熱次數(shù)標(biāo)志
  28. ;------------------------------------------------------------------
  29.                    org                   0x3fe           ;mk7a11p的中斷向量地址定義
  30.                      lgoto                 int                   ;跳轉(zhuǎn)到中斷程序入口
  31.                       org                0x3ff           ;mk7a11p的復(fù)位向量地址定義
  32.                      lgoto                main                   ;跳轉(zhuǎn)到主程序入口
  33. ;------------------------------------------------------------------
  34.                     org                   0x000
  35. int                                                 ;中斷入口地址
  36.                                                  ;保護(hù)現(xiàn)場(chǎng)
  37.                    movam                  a_buf
  38.                    swap                   status,a
  39.                    movam                  status_buf
  40.                    ;---------------------------------------------------------------
  41.                    btsc                   irqf,tm0f          ;判斷是不是tmr0溢出中斷
  42.                    lgoto           int_tm0          ;進(jìn)入tmr0中斷服務(wù)程序
  43.                    ;---------------------------------------------------------------
  44. int_end
  45.                                                    ;中斷結(jié)束要恢復(fù)現(xiàn)場(chǎng)
  46.                    swap                   status_buf,a
  47.                    movam                  status
  48.                    swap                   a_buf,m          ;這里不能用"mov a_buf,a"因?yàn)?br />
  49.                    swap                   a_buf,a          ;"mov a_buf,a"會(huì)影響status
  50.                    reti
  51. ;------------------------------------------------------------------
  52. int_tm0                                                ;tmr0中斷服務(wù)程序
  53.                    bc                   irqf,tm0f          ;清除tmr0中斷標(biāo)志
  54.                    ;---------------------------------------------------------------
  55.                    inc                   tm_r,m
  56.                    movla                  .1                   ;4x250=1s
  57.                    xor                   tm_r,a
  58.                    btss                   status,z        ;邏輯結(jié)果操作結(jié)果零標(biāo)記位
  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 ;延時(shí)消抖
  68.                 lgoto delay
  69.                 movla                  .255
  70.                      movam                  del_r0
  71.                 decsz del_r1,m
  72.                 lgoto delay
  73.                 ret                              ;子程序返回
  74. main                                            ;主程序入口地址定義
  75.                    ;PortA端口方向及狀態(tài)設(shè)定
  76.                     movla              b'11110000'
  77.                  iodir                 porta
  78.                     clr                   porta
  79.                   clr                  pa_pdm
  80.                     ;------------------------------------------------------
  81.                       ;PortB端口方向及狀態(tài)設(shè)定pb2高水位鍵盤(pán)和綠燈控制
  82.                   movla                b'11001001';六個(gè)鍵 PB0 PB3設(shè)置為輸入
  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個(gè)IO喚醒使能
  123.                      ;movla          b'11111111'
  124.                     ;movam          wake_up
  125.                       ;---------------------------------------------------
  126.                     ;配置TMR0,預(yù)分頻比為1:16
  127.                     ;TMR0初始值為250
  128.                      movla              b'11000011'
  129.                     select
  130.                        movla                  .12
  131.                      movam                  tmr0                   ;tmr0的溢出時(shí)間是：250x16=4ms
  132.                       ;---------------------------------------------------
  133.                    ;tmr0中斷使能
  134.                
  135.                      ;inc                   del_r0,m                  ;tmr0的溢出時(shí)間是：250x16=4ms
  136.                      movla                  .255
  137.                      movam                  del_r0
  138.                      movla                  .255
  139.                      movam                  del_r1
  140.                   ;--------------------------------------延時(shí)一段時(shí)間等待電路穩(wěn)定
  141.                 lcall           delay
  142.                   lcall           delay
  143.                     lcall           delay
  144.    ;                   lcall           delay
  145.    ;                     lcall           delay
  146. ;--------------------------------------——————第一次讀取按鍵；

  148. duqu1
  149.                movla                b'11001101'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  150.                iodir                  portb            ; pb2 設(shè) 置為輸入
  151.                mov                   portb,a           ;讀取端口狀態(tài)
  152.                movam                  pb_buf           ;保存端口狀態(tài)
  153.                COM              pb_buf, m       ;取反端口狀態(tài)
  154.                lgoto            qu01_flag        ;延時(shí)狀態(tài)
  155. yqu0
  156.                movla                b'11001101'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  157.                iodir                  portb            ; pb2 設(shè) 置為輸入
  158.                mov                   portb,a           ;二次讀取端口狀態(tài)
  159.                AND              pb_buf, m
  160.                BTSc                   pb_buf,2        ;測(cè)試pb2 為5零sikp高水位測(cè)試位
  161.                lgoto            qingchu
  162.                BTSc                   pb_buf,3        ;測(cè)試pb2 為5零sikp高水位測(cè)試位
  163.                lgoto            qingchu
  164.                movam                  pb_buf          ;一次測(cè)試pb0通過(guò) 。
  165.                inc              grcs0_flag,m
  166.                BTSs                   grcs0_flag,7     ;八次測(cè)試pb0通過(guò) 。
  167.                lgoto            duqu1
  168.                BTSs                   grcs0_flag,6     ;八次測(cè)試pb0通過(guò) 。
  169.                lgoto            duqu1
  170.                BTSs                   grcs0_flag,5     ;八次測(cè)試pb0通過(guò) 。
  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'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  180.                iodir                  portb            ; pb2 設(shè) 置為輸入
  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      ;只可能一個(gè)鍵被按下檢測(cè)到后直接跳轉(zhuǎn)加熱
  215. sns_flag
  216.                BTSc                   pb_buf,3       ;測(cè)試pb3 為零sikp
  217.                lgoto            scs_flag
  218.                movla                  .1
  219.                MOVAM            ns_flag
  220.                lgoto            jiare_flag      ;只可能一個(gè)鍵被按下檢測(cè)到后直接跳轉(zhuǎn)加熱
  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 ;打開(kāi)蜂鳴器
  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    ;關(guān)閉蜂鳴器
  240.                
  241.                 bs              portb, 1       ;繼電器打開(kāi)全功率加熱。
  242.                 bs              portb, 0
  243.               ;  bs              portb, 0       ;繼電器打開(kāi)全功率加熱。
  244.                

  246.                
  247. jiare
  248.                 mov                   portb,a           ;讀取端口狀態(tài)
  249.                     movam                  pb_buf           ;保存端口狀態(tài)
  250.                 btss                   pb_buf,0        ;測(cè)試pb0
  251.                       lgoto           jiare           ;等待溫控器信號(hào)為零時(shí)跳出循環(huán)體
  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        ;測(cè)試pb0
  262.                 lgoto           jiare           ;等待溫控器信號(hào)為零時(shí)跳出循環(huán)體
  263.                        nop
  264.                 nop
  265.                 nop
  266.                 nop
  267.                 lcall           delay
  268.                 nop
  269.                 nop
  270.                 nop
  271.                 nop
  272.                 btss                   pb_buf,0        ;測(cè)試pb0
  273.                 lgoto           jiare           ;等待溫控器信號(hào)為零時(shí)跳出循環(huán)體
  274.                 nop
  275.                 nop
  276.                 nop
  277.                 nop
  278.                 nop
  279.                 nop
  280.                 nop
  281.                 nop
  282.                 btss                   pb_buf,0        ;測(cè)試pb0
  283.                 lgoto           jiare           ;等待溫控器信號(hào)為零時(shí)跳出循環(huán)體


  286. ;------------------------------------------------------------加熱完成延時(shí)加熱；

  288.                BTSc                   gs_flag,0            ;為一表示高電平?jīng)]有按鍵，跳過(guò)指令
  289.                lgoto            wcjiare1              ;高水位加熱后直接完成加熱狀態(tài)
  290.                BTSc                   cs_flag,0
  291.                lgoto            csjiare_flag       ;常水位加熱后延時(shí)2分鐘
  292.                BTSc                  ns_flag,0
  293.                lgoto            nsjiare1_flag      ;濃縮水位加熱后延時(shí)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';六個(gè)鍵 PB0 PB3設(shè)置為輸入
  330.                iodir                  portb      ; pb2 設(shè) 置為輸出
  331.                 bs              portb, 4        ;紅色指示燈滅，
  332.                 bc              portb, 1       ;關(guān)閉繼電器打開(kāi)全功率加熱。
  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        ;關(guān)蜂鳴器，
  350. ;----------------------------------------------------------加熱延時(shí)完成關(guān)閉加熱；
  351. ;----------------------------------------------------------加熱完成二次讀取按鍵；
  352. baowen
  353.                movla                b'11001101'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  354.                iodir                  portb            ; pb2 設(shè) 置為輸入
  355.                mov                   portb,a           ;讀取端口狀態(tài)
  356.                movam                  pb_buf           ;保存端口狀態(tài)
  357.                COM              pb_buf, m       ;取反端口狀態(tài)
  358.                lgoto            qu1_flag        ;延時(shí)狀態(tài)
  359. yqu
  360.                movla                b'11001101'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  361.                iodir                  portb            ; pb2 設(shè) 置為輸入
  362.                mov                   portb,a           ;二次讀取端口狀態(tài)
  363.                AND              pb_buf, m
  364.                BTSc                   pb_buf,2        ;測(cè)試pb2 為5零sikp高水位測(cè)試位
  365.                lgoto            qingchu0
  366.                BTSc                   pb_buf,3        ;測(cè)試pb2 為5零sikp高水位測(cè)試位
  367.                lgoto            qingchu0
  368.                movam                  pb_buf          ;一次測(cè)試pb0通過(guò) 。
  369.                inc              grcs_flag,m
  370.                BTSs                   grcs_flag,7     ;八次測(cè)試pb0通過(guò) 。
  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'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  380.                iodir                  portb            ; pb2 設(shè) 置為輸入
  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       ;測(cè)試pb3 為零sikp濃縮水位測(cè)試位
  402.                lgoto            scs1_flag      ;不是高水位也不是濃縮水位
  403.                BTSc                   gs_flag,0      ;是濃縮水位，
  404.                lgoto            sss_flag       ;高水位轉(zhuǎn)濃縮水位，轉(zhuǎn)加熱6分鐘
  405.                BTSc                   cs_flag,0       ;是濃縮不是高水位
  406.                lgoto             loop3       ;常水位轉(zhuǎn)濃縮水位，加熱四分鐘
  407.                lgoto             jiare2        ;是濃縮水位，不是高水位，也不是常水位轉(zhuǎn)保溫加熱
  408. scs1_flag                                      ;二次讀取為常水位。
  409.                BTSc                  gs_flag,0
  410.                lgoto            loop           ;高水位轉(zhuǎn)常水位 加熱兩分鐘
  411.                lgoto            jiare2        ;不是高水位轉(zhuǎn)常水位轉(zhuǎn)到保溫加熱。
  412. loop
  413.                 BTSc                  ct1_flag,0
  414.                 lgoto            jiare2
  415.                 inc                   ct1_flag,m
  416.                 movla                b'11001001'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  417.                iodir                  portb            ; pb2 設(shè) 置為輸入
  418.                 bc              portb, 2        ;綠色指示燈亮
  419.                 bc              portb, 4        ;紅色指示燈亮，
  420.                 bs              portb, 1       ;繼電器打開(kāi)全功率加熱。
  421.                movla                  .120
  422.                MOVAM            fmq_flag
  423. nsjiare44_flag                                ;延時(shí)
  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          ;延時(shí)加熱后轉(zhuǎn)保溫加熱
  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'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  439.                 iodir                  portb            ; pb2 設(shè) 置為輸入
  440.                 bc              portb, 2        ;綠色指示燈亮
  441.                 bc              portb, 4        ;紅色指示燈亮，
  442.                 bs              portb, 1       ;繼電器打開(kāi)全功率加熱。
  443.                movla                  .120
  444.                MOVAM            fmq_flag
  445. nsjiare45_flag                                ;延時(shí)
  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       ;繼電器打開(kāi)全功率加熱。
  458.                 movla                  .230
  459.                 MOVAM            fmq_flag
  460. nsjiare46_flag                                ;延時(shí)
  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         ;延時(shí)六分鐘加熱后轉(zhuǎn)保溫加熱
  469. loop3
  470.                BTSc                  ct3_flag,0
  471.                lgoto            jiare2
  472.                inc                   ct3_flag,m
  473.                 movla                b'11001001'      ;六個(gè)鍵 PB0 PB3設(shè)置為輸入
  474.                iodir                  portb            ; pb2 設(shè) 置為輸入
  475.                 bc              portb, 2        ;綠色指示燈亮
  476.                bc              portb, 4        ;紅色指示燈亮，
  477.                bs              portb, 1       ;繼電器打開(kāi)全功率加熱。
  478.                 movla                  .240
  479.                 MOVAM            fmq_flag
  480. nsjiare47_flag                                ;延時(shí)
  481.                  lcall           delay
  482.                  lcall           delay
  483.                     lcall           delay
  484.                       lcall           delay
  485.                         lcall           delay
  486. ……………………

  488. …………限于本文篇幅 余下代碼請(qǐng)從51黑下載附件…………
復(fù)制代碼

所有資料51hei提供下載:
14 6A12_dzkwh.rar (15.45 KB, 下載次數(shù): 6)


作者: learned    時(shí)間: 2019-8-31 23:40
沒(méi)有電路圖嗎？大佬



歡迎光臨 (http://www.torrancerestoration.com/bbs/) Powered by Discuz! X3.1