欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 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://m.raoushi.com/bbs/) Powered by Discuz! X3.1