标题: 单片机电陶炉设计,贡献源码和原理图文件 [打印本页]
作者: weihu    时间: 2017-11-18 03:39
标题: 单片机电陶炉设计,贡献源码和原理图文件
电陶炉电源板原理图



灯板原理图



电陶炉的单片机源程序如下:

  2. ;V1.4修改:童锁键检测时候由5S改成3S。
  3. ;****************************************
  4. ;            电陶炉               
  5. ;****************************************
  6. ;----------------------------------------
  7. ;O(∩_∩)O~O(∩_∩)O~O(∩_∩)O~O(∩_∩)O~O(∩_∩)O~
  8. ;----------------------------------------
  9. ;****************************************
  10. IAR                 EQU                 00H
  11. TMR0                 EQU                 01H
  12. PCL                 EQU                 02H
  13. FLAGS                EQU                 03H
  14. C                   EQU                 0
  15. DC                  EQU                 1
  16. Z                   EQU                 2
  17. MP                  EQU                 04H
  18. P0                  EQU                 05H
  19. P1                  EQU                 06H           
  20. P2                  EQU                 07H
  21.                                                                 ;08H NOT USED
  22. P0CL                EQU                 09H
  23. P0CH                EQU                 0AH
  24. P1CL                EQU                 0BH
  25. P1CH                EQU                 0CH
  26. P2C                 EQU                 0DH
  27.                                                                 ;0EH,0FH NOT USED
  28. SYS_GEN                EQU                 10H
  29. INT_EN                EQU                 11H
  30. INT_FLAG        EQU                 12H
  31. INT_EXT                EQU                 13H
  32. ADDATA                EQU                 14H
  33. ADCON                EQU                 15H
  34. CONV                EQU                        0
  35. EOC                        EQU                        3
  36. TMR1                EQU                 16H
  37. TMR1C                EQU                 17H
  38. T2CNT                EQU                 18H
  39. T2CON                EQU                 19H
  40. T2DATA                EQU                 1AH
  41.                                                                 ;1BH NOT USED
  42. PWM8DATA        EQU                 1CH
  43. PWM8CON                EQU                 1DH
  44. PWM10CON        EQU                 1EH
  45. PWM10DATA        EQU                 1FH
  46. COMPCON                EQU                 20H
  47. BUZCON                EQU                 21H
  48. TABLE_SPH        EQU                 22H
  49. TABLE_SPL        EQU                 23H
  50. TABLE_DATAH        EQU                 24H

  52. ADDATAL                EQU                 1BH
  53. KEY_C1                EQU                 2CH
  54. KEY_C                EQU                 2DH
  55. KEY_DATAL        EQU                 2EH
  56. KEY_DATAH        EQU                 2FH
  57. ;****************************************
  58. ;P0口

  60. ;P1口
  61. STB                        EQU                        P1,0
  62. AC                        EQU                        P1,1
  63. EN                        EQU                        P1,2
  64. FAN                        EQU                        P1,3
  65. BELL                EQU                        P1,3
  66. ;P2口               
  67. DIO                        EQU                        P2,0
  68. CLK                        EQU                        P2,1
  69. ;****************************************
  70. ;----------------------------------------
  71. ;O(∩_∩)O~O(∩_∩)O~O(∩_∩)O~O(∩_∩)O~O(∩_∩)O~
  72. ;----------------------------------------
  73. ;****************************************
  74. GPR0                EQU                ?
  75. GPR1                EQU                ?

  77. TCOUNT                EQU                ?

  79. RBEEP                EQU                ?
  80. RBEEPL                EQU                ?
  81. RBEEPH                EQU                ?

  83. ACF                        EQU                ?
  84. ACOLD                EQU                0
  85. AC_EN                EQU                1
  86. ACSET                EQU                ?
  87. ACNT                EQU                ?

  89. SEC                        EQU                ?
  90. MIN                        EQU                ?
  91. HOUR                EQU                ?
  92. SECL                EQU                ?
  93. SEC5S                EQU                ?
  94. AC_SEC                EQU                ?
  95. P_SEC                EQU                ?


  98. DELAY                EQU                ?
  99. COUNT                EQU                ?

  101. POWER                EQU                ?

  103. TEMP                EQU                ?
  104. BCD_REG                EQU                ?
  105. FEN1_COUNT        EQU                ?
  106. FEN3_COUNT        EQU                ?

  108. DISPLAY1        EQU                ?
  109. DISPLAY2        EQU                ?
  110. DISPLAY3        EQU                ?
  111. DISPLAY4        EQU                ?
  112. DISPLAY5        EQU                ?

  114. FANT                EQU                ?
  115. FANT1                EQU                ?

  117. B_SEC                EQU                ?
  118. DICOUNT                EQU                ?

  120. ADCOUNT                EQU                ?
  121. ADCOUNT1        EQU                ?
  122. DATAL                EQU                ?
  123. DATAH                EQU                ?
  124. TMPR_VAC        EQU                ?
  125. TMPR_PAN        EQU                ?
  126. TMPR_TR                EQU                ?


  129. TR_COUNT        EQU                ?
  130. TR_COUNT1        EQU                ?
  131. PAN_COUNT        EQU                ?
  132. PAN_COUNT1        EQU                ?
  133. PAN_COUNT2        EQU                ?
  134. VOL_COUNT        EQU                ?

  136. BCOUNT                EQU                ?

  138. SEC2S                EQU                ?


  141. ADAT0L                EQU                ?
  142. ADAT0H                EQU                ?
  143. ADCOUNT3        EQU                ?
  144. TEMP1                EQU                ?

  146. KCOUNT                EQU                ?                ;按键扫描
  147. KDATA                EQU                ?
  148. POWER1                EQU                ?        
  149. KEYF                EQU                ?
  150. KEY_EN                EQU                1
  151. KOLD                   EQU                ?   

  153. KCNTL                EQU                ?
  154. KCNTLL                EQU                ?

  156. KOLD1                EQU                ?
  157. KOLD2                EQU                ?
  158. KOLD3                EQU                ?
  159. KOLD4                EQU                ?
  160. KOLD5                EQU                ?



  164. FCOUNT0                EQU                ?
  165. FCOUNT                EQU                ?
  166. FCOUNT1                EQU                ?


  169. ERRF                EQU                ?

  171. WORK                EQU                ?
  172. ONOFF                EQU                0
  173. ERR                        EQU                1
  174. FAN1                EQU                2
  175. FON                        EQU                3
  176. TIMER                EQU                4
  177. TONG                EQU                5


  180. FLAG                EQU                ?
  181. SS                        EQU                0
  182. S05                        EQU                1                        ;0.5S
  183. TIME                EQU                2
  184. DJ                        EQU                3
  185. T_CHANGE        EQU                4
  186. FEN3                EQU                5
  187. DYE                        EQU                6                        ;电压错误
  188. SS1                        EQU                7



  192. FLAG1                EQU                ?
  193.                                                         ;0蜂鸣器        
  194. FIRST                EQU                1                ;上电全亮
  195. GW                        EQU                2                ;高温灯
  196. KS                        EQU                3                ;到达降功率开始计时
  197. HZ60                EQU                4                ;为1表示60HZ
  198. SD                        EQU                5                ;上电测试频率

  200. GL                        EQU                7                ;开可控硅处理



  204. ;EGWCOUNT1        EQU                ?
  205. ;EGWCOUNT2        EQU                ?
  206. EDYCOUNT1        EQU                ?
  207. ENFLAG                EQU                ?
  208. ENFLAG1                EQU                ?
  209. ENFLAG2                EQU                ?
  210. PCOUNT                EQU                ?


  213. BBCOUNT                EQU                ?
  214. WEN_D                EQU                ?


  217. POWER_TEMP        EQU                 ?
  218. COUNT10MS        EQU                ?


  221. POWER_J                EQU                ?

  223. GAOT                EQU                2BH
  224. ;****************************************
  225.                 ORG                 00H
  226.             JP                  START
  227. ;****************************************
  228.                 ORG                 01H
  229.                 NOP
  230. INTE_IN:
  231.                 LD                  GPR0,A                                ;中断现场保护
  232.                 LD                  A,FLAGS
  233.                 LD                  GPR1,A
  234.                
  235.                 SZB                 INT_FLAG,2                        ;定时2中断，125US进一次
  236.                 JP                  INT_TMR2
  237.                 CLR                 INT_FLAG

  239.                
  240. ;----------------------------------------
  241. INT_TMR2:                                                                ;定时2中断，125US进一次
  242.                 CLRB                INT_FLAG,2                        ;清中断标志位
  243.                 CLRWDT
  244.                 INCR                TCOUNT                                ;主程序时间计数
  245.                
  246. ;----------------------------------------               
  247. ;(～ o ～)Y(～ o ～)Y(～ o ～)Y(～ o ～)Y
  248. ;----------------------------------------
  249. ZZ_10MS:
  250.                 INCR                COUNT10MS
  251.                 LDIA                .80
  252.                 SUBA                COUNT10MS
  253.                 SNZB                FLAGS,C
  254.                 JP                        FAC_TESE
  255.                 CLR                        COUNT10MS
  256.                
  257.                 INCR                SECL
  258.                 INCR                AC_SEC
  259.                 INCR                B_SEC

  261. FAC_TESE:
  262.                 SNZB                ACF,ACOLD              
  263.                 JP                        FAC_LOW_TO_HIGH
  264. FAC_HIGH_TO_LOW:
  265.                 SZB                        AC            
  266.                 JP                        AC_BACK
  267.                 SZB                        AC
  268.                 JP                        AC_BACK
  269.                 SZB                        AC
  270.                 JP                        AC_BACK
  271.                 CLRB                 ACF,ACOLD
  272.                 JP                        AC_COM
  273. FAC_LOW_TO_HIGH:
  274.                 SNZB                AC            
  275.                 JP                        AC_BACK
  276.                 SNZB                AC
  277.                 JP                        AC_BACK
  278.                 SNZB                AC
  279.                 JP                        AC_BACK
  280.                 SETB                 ACF,ACOLD
  281.                 JP                        AC_COM
  282. AC_COM:
  283.                 SETB                ACF,AC_EN

  285.                 CLR                 ACNT
  286.                                 
  287.                 INCR                PCOUNT
  288.                 LDIA                .20
  289.                 SUBA                PCOUNT
  290.                 SNZB                FLAGS,C
  291.                 JP                        AC_BACK
  292.                 CLR                        PCOUNT
  293.                         
  294. AC_BACK:
  295. ;----------------------------------------               
  296. ;(～ o ～)Y(～ o ～)Y(～ o ～)Y(～ o ～)Y
  297. ;----------------------------------------
  298. BPBP：
  299.                 SNZB                FLAG1,0
  300.                 JP                        BPBP_BACK
  301.         
  302.                 SNZB                RBEEP,0
  303.                 JP                        BPBP_OFF
  304.                
  305.                 LDIA                08H
  306.                 XORR                P1

  308.                 SZDECR                RBEEPL
  309.                 JP                        BPBP_BACK
  310.                 SZDECR                RBEEPH
  311.                 JP                        BPBP_BACK
  312.                 LDIA                02H
  313.                 LD                        RBEEPH,A
  314.                 CLRB                 RBEEP,0
  315.                
  316. BPBP_OFF:
  317.                 SNZB                WORK,FAN1
  318.                 CLRB                BELL
  319. BPBP_BACK:
  320.                 LDIA                01H
  321.                 XORR                FLAG1
  322. ;----------------------------------------
  323. SET_WORK:        
  324.                 SZB                        WORK,ERR
  325.                 JP                        WORK_OFF                        
  326.                 SNZB                WORK,ONOFF
  327.                 JP                         WORK_OFF
  328.                 SZB                        FLAG,DJ
  329.                 JP                        WORK_OFF
  330.                
  331.                 LDIA                B'01111110'
  332.                 ANDA                ERRF
  333.                 SNZB                FLAGS,Z
  334.                 JP                        WORK_OFF
  335.                                 
  336.                 SNZB                ACF,AC_EN
  337.                 JP                  WORK_OFF1
  338.                
  339.                 ;CALL                SET_POWER
  340.                
  341.                 SNZB                FLAG1,GL                ;控制当前过零是否开可控硅
  342.                 JP                        SET_WORK_KK_COM1
  343.                
  344. SET_WORK_KK_COM:               
  345.                 CLRB                EN        
  346. SET_WORK_KK_COM1:                        
  347.                 INCR                DELAY
  348.                 LDIA                D'20'
  349.                 SUBA                DELAY
  350.                 SNZB                FLAGS,C
  351.                 JP                        WORK_BACK                  
  352. SET_WORK_COM:
  353. ;*****************************************
  354.                 CLR                        ACNT
  355.                 CLRB                ACF,AC_EN
  356.                 CLR                        DELAY               
  357. WORK_OFF:               
  358.                 CLRB                FLAG1,GL
  359. WORK_OFF1:               
  360.                 SETB                EN                                                            
  361. WORK_BACK:
  362.                 SZB                        RBEEP,0
  363.                 JP                        INT_BACK
  364.                
  365.                 SZB                        WORK,ONOFF
  366.                 JP                        ON_FAN
  367.                
  368.                 SZB                        WORK,FAN1
  369.                 JP                        ON_FAN
  370.         
  371.                 CLRB                FAN               
  372.                 JP                  INT_BACK

  374. ON_FAN:
  375.                 SETB                FAN
  376. INT_BACK:
  377. ;***********************************************
  378. REC_BACK:
  379.                 LD                  A,GPR0                                ;中断返回               
  380.                 CLRB                FLAGS,0                                ;只用到C位跟Z位
  381.                 SZB                 GPR1,0
  382.                 SETB                FLAGS,0
  383.                
  384.                 CLRB                FLAGS,2
  385.                 SZB                 GPR1,2
  386.                 SETB                FLAGS,2
  387.                 RETI        
  388. ;****************************************
  389. ;----------------------------------------
  390. ;~~~~(>_<)~~~~ ~~~~(>_<)~~~~ ~~~~(>_<)~~~
  391. ;----------------------------------------
  392. ;****************************************
  393.         
  394. START:
  395.                 NOP
  396.                 CLRWDT
  397.                 LDIA                00H        
  398.                 OPTION                                                                ;上电清WDT（必要）
  399. ;-------------初始化I/O------------------
  400.                
  401.                 LDIA                B'00000100'
  402.                 LD                        P1,A
  403.                 CLR                        P0
  404.                 CLR                        P2

  406.                
  407.                 LDIA                B'11111111'                                
  408.                 LD                  P0CH,A                                       
  409.                 LDIA                B'00111111'
  410.                 LD                  P0CL,A                                       
  411.                   
  412.                 LDIA                B'10010010'                                
  413.                 LD                  P1CH,A
  414.                 LDIA                B'10100010'
  415.                 LD                        P1CL,A
  416.                
  417.                 LDIA                B'00010010'
  418.                 LD                        P2C,A        

  420.                 LDIA                B'00000100'
  421.                 LD                        P1,A
  422.                 CLR                        P0
  423.                 CLR                        P2
  424.                
  425. SD_DELAY:
  426.                 CLRWDT
  427.                 NOP
  428.                 SZDECR                RBEEPL                                        ;上电延时
  429.                 JP                        SD_DELAY
  430.                 SZDECR                RBEEPH
  431.                 JP                        SD_DELAY                                                
  432.                                                                                        
  433. ;--------------清寄存器------------------
  434. CLR_RAM:                                                                        ;清掉所有RAM
  435.                 LDIA                0FH
  436.                 LD                  MP,A
  437. CLR_LOOP:
  438.                 INCR                MP
  439.                 CLR                 IAR
  440.                 LDIA                07FH
  441.                 SUBA                MP
  442.                 SNZB                FLAGS,0
  443.                 JP                  CLR_LOOP
  444. ;-------------初始化RAM------------------
  445. INIT_RAM:
  446.                 LDIA                03H
  447.                 LD                  SYS_GEN,A                                ;中断，AD总使能
  448.                
  449.                
  450.                 LDIA                02H
  451.                 LD                  KEY_C1,A
  452.                 LDIA                2BH
  453.                 LD                  KEY_C,A
  454.                 NOP
  455.                 SETB                KEY_C,7                        
  456.                                 
  457.                 LDIA                D'250'                                        ;8下125US
  458.                 LD                  T2DATA,A                                ;TMR2设置成250US
  459.                 LDIA                30H
  460.                 LD                  T2CON,A
  461.                 SETB                T2CON,0
  462.                
  463.                 LDIA                04H
  464.                 LD                  INT_EN,A                                ;定时2中断使能
  465.                                 
  466.                 SETB                RBEEP,0
  467.                 LDIA                02H
  468.                 LD                  RBEEPH,A
  469.                 LDIA                D'250'
  470.                 LD                  RBEEPL,A
  471.                
  472.                 SETB                FLAG1,FIRST                                ;上电全亮
  473.                 SETB                FLAG1,SD
  474.                
  475.                 LDIA                .60;D'100'                                ;长按键后每次时间
  476.                 LD                  KCNTL,A
  477.                 LDIA                D'10'
  478.                 LD                        KCNTLL,A               
  479.                         
  480.                 LDIA                B'00010110'
  481.                 LD                        ADCON,A

  483.                 SETB                 ADCON,CONV
  484.                 NOP
  485.                 NOP
  486.                 NOP
  487.                 NOP
  488.                 NOP
  489.                 CLRB                 ADCON,CONV
  490.                
  491.                                                         
  492. ;****************************************
  493. ;----------------------------------------
  494. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  495. ;----------------------------------------
  496. ;****************************************
  497. MAIN:

  499.                 LDIA                D'20'                                        ;125US*20=2.5MS一个分支
  500.                 SUBA                TCOUNT
  501.                 SNZB                FLAGS,C
  502.                 JP                  MAIN
  503. ;********************************************
  504.                 CLR                 TCOUNT
  505.                 CLRWDT

  507.                 LDIA                03H
  508.                 LD                  SYS_GEN,A                                ;中断、AD总使能
  509.                
  510.                 LDIA                D'250'                                        ;3.6M下250US
  511.                 LD                  T2DATA,A
  512.                
  513.                 SETB                INT_EN,2                                ;定时2中断使能
  514.                 LDIA                B'00000100'                                ;除了TMR2跟EXT1中断，其它中断都关闭
  515.                 ANDR                INT_EN
  516.                
  517.                 LDIA                31H
  518.                 SUBA                T2CON                                        ;T2CON为31时不写
  519.                 SZB                 FLAGS,Z
  520.                 JP                  MAIN_SUB
  521.                
  522.                 LDIA                30H                                                ;写操作会影响计时，在T2CON没有乱的时候不写
  523.                 LD                  T2CON,A
  524.                 SETB                T2CON,0        
  525. ;----------------------------------------
  526. MAIN_SUB:                                                                                                ;子程序
  527.                 CALL                SET_IO
  528.                 CALL                KSCAN
  529.                 CALL                MAINK               
  530.                
  531.                 CALL                SET_DISP               
  532.                
  533.                 CALL                KSCAN               
  534.                 CALL               WR_CTRL_CMD             ;设置写数据控制命令
  535.                CALL              DISP_ADR                          ;送显示地址
  536.         CALL              MODE_SET                ;设置COM与SEG位的个数
  537.         CALL               DISP_ON                 ;开显示/设置显示亮度     
  538.                 CALL                KSCAN        
  539.         CALL                SET_TIME
  540.                 CALL                KSCAN        
  541.         CALL                SET_TIME_AC
  542.                 CALL                KSCAN               
  543.                CALL                AD_TEST
  544.         
  545.         CALL                SET_POWER
  546.         CALL                SET_FAN_DENG
  547.         ;CALL                ERR_GW_TIME
  548.         CALL                ERR_DY_TIME
  549.         CALL                ERR_CHECK
  550. ;        CALL                ERR_WX_TIME                  
  551.                 JP                  MAIN
  552.                
  553. ;****************************************
  554. ;----------------------------------------
  555. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  556. ;----------------------------------------
  557. ;****************************************
  558. ERR_CHECK:
  559.                 SNZB                WORK,ONOFF
  560.                 JP                        ERR_CHECK_BACK0
  561.                 SNZB                WORK,ERR
  562.                 JP                        ERR_CHECK_BACK0
  563.                
  564.                 LDIA                .100
  565.                 SUBA                B_SEC
  566.                 SNZB                FLAGS,C
  567.                 JP                        ERR_CHECK_BACK
  568.                 CLR                        B_SEC
  569.                                 
  570.                 LDIA                .4
  571.                 SUBA                BBCOUNT
  572.                 SZB                        FLAGS,C
  573.                 JP                        ERR_CHECK_BACK
  574.                 INCR                BBCOUNT
  575.                 SETB                RBEEP,0
  576.                 LDIA                04H
  577.                 LD                        RBEEPH,A

  579. ERR_CHECK_BACK0:
  580.                 CLR                        B_SEC
  581.                
  582. ERR_CHECK_BACK:
  583.                 RET               
  584. ;****************************************
  585. ;----------------------------------------
  586. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  587. ;----------------------------------------
  588. ;****************************************               
  589. SET_IO:
  590.                 LDIA                B'11111111'                                
  591.                 LD                  P0CH,A                                       
  592.                 LDIA                B'00111111'
  593.                 LD                  P0CL,A                                       
  594.                   
  595.         ;        LDIA                B'10010010'                                
  596.         ;        LD                  P1CH,A
  597.                 LDIA                B'10100010'
  598.                 LD                        P1CL,A
  599.                
  600.                 LDIA                B'00010010'
  601.                 LD                        P2C,A               
  602.                
  603.                 RET                        
  604. ;****************************************
  605. ;----------------------------------------
  606. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  607. ;----------------------------------------
  608. ;****************************************
  609. ;KSCAN:        
  610. ;             CLR                        KCOUNT         
  611. ;KSCAN_1:         
  612. ;             INCR                KCOUNT              
  613. ;             SNZB                P0,3                  
  614. ;             JP                        KHAVE                          
  615.          
  616. ;            INCR                KCOUNT         
  617. ;            SNZB                P0,4               
  618. ;           JP                        KHAVE         
  619.          
  620. ;             INCR                KCOUNT         
  621. ;             SNZB                P0,5                 
  622. ;             JP                        KHAVE      
  623.             
  624. ;             INCR                KCOUNT         
  625. ;             SNZB                P0,6                 
  626. ;             JP                        KHAVE   

  628. ;             INCR                KCOUNT         
  629. ;             SNZB                P0,7               
  630. ;             JP                        KHAVE
  631.                                        
  632. ;KNO:         
  633. ;             LDIA                07EH         
  634. ;              ANDR                KEYF               
  635. ;             CLR                    KOLD               
  636. ;             CLR                    KEYC               
  637. ;             JP                    KSCAN_BACK  
  638. ;*************按键消抖***********
  639. ;KHAVE:         
  640. ;             LD                     A,KOLD               
  641. ;             SUBA                   KCOUNT               
  642. ;             SNZB                   FLAGS,Z         
  643. ;             JP                    KFLASH               
  644. ;             SZB                   KEYF,7                     
  645. ;             JP                   KREPEAT   
  646. ;      
  647. ;             INCR            KEYC                           
  648. ;             LDIA                   010H         
  649. ;             SUBA                   KEYC         
  650. ;             SNZB                   FLAGS,C         
  651. ;             JP                    KSCAN_BACK  
  652. ;KHAVE_1:                           
  653. ;             SETB             KEYF,0         
  654. ;KHAVE_2:         
  655. ;             SETB             KEYF,7         
  656. ;             JP                    KSCAN_BACK         
  657. ;KFLASH:         
  658. ;             LD                    A,KCOUNT         
  659. ;             LD                     KOLD,A               
  660. ;             CLR                    KEYC                          
  661. ;             JP                    KSCAN_BACK         
  662. ;KREPEAT:         
  663. ;             CLR                    KEYC
  664. ;KSCAN_BACK:                     
  665. ;             RET                        00H         
  666. ;****************************************
  667. ;----------------------------------------
  668. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  669. ;----------------------------------------
  670. ;****************************************        
  671. KSCAN:
  672.                 SZB                   RBEEP,0                                        ;有蜂鸣器不扫按键
  673.                 JP                        KSCAN_BACK

  675.                 SNZB                KEY_C1,7                                ;判断AD完成标志
  676.                 JP                  KSCAN_BACK
  677.                                        
  678.                 LD                  A,KEY_DATAL
  679.                 ADDR                ADAT0L
  680.                 SZB                 FLAGS,C
  681.                 INCR                ADAT0H
  682.                
  683.                 INCR                ADCOUNT3
  684.                 LDIA                .8                                        ;8次计数
  685.                 SUBA                ADCOUNT3
  686.                 SNZB                 FLAGS,C
  687.                 JP                  KEY_RESTA
  688.                 CLR                        ADCOUNT3
  689.                
  690. KEY_DAT:
  691.                 RRCR                ADAT0H
  692.                 RRCR                ADAT0L                                ;除以8
  693.                 RRCR                ADAT0H
  694.                 RRCR                ADAT0L               
  695.                 RRCR                ADAT0H
  696.                 RRCA                ADAT0L
  697.                 LD                  TEMP,A        
  698.                 CLR                        ADAT0H
  699.                 CLR                        ADAT0L               
  700.                
  701.                 LD                  A,KCOUNT                        ;用间接寻址获得该按键旧值
  702.                 CALL                TABLE_MP
  703.                 LD                  MP,A
  704.                
  705.                 LD                  A,TEMP                                ;比原来的大，没有按键，刷新旧值
  706.                 SUBA                IAR
  707.                 SNZB                 FLAGS,C
  708.                 JP                  K_MOVE        
  709.                
  710.                 LD                  TEMP1,A
  711.                 CALL                KEY_EN_TAB                        ;不同的按键下降的值不同
  712.                 SUBA                TEMP1
  713.                 SNZB                 FLAGS,C
  714.                 JP                  K_AVG
  715.                
  716. K_HAVE:
  717.                 LD                  A,KCOUNT                        
  718.                 SUBA                KOLD                                ;判断是否跟上次一样的按键，
  719.                 SNZB                 FLAGS,Z
  720.                 JP                  KFLASH
  721.                 SETB                KEYF,KEY_EN
  722.                 ;INCR                KEYC
  723.                 ;LDIA                01H
  724.                 ;SUBA                KEYC
  725.                 ;SNZB                FLAGS,C                                        ;消抖
  726.                 ;JP                  NEXT_KEY
  727.                 ;CLR                 KEYC
  728. KHAVE1:
  729.                 SZB                 KEYF,7                                ;重键标志位
  730.                 JP                  KREPEAT
  731.                 SETB                KEYF,7
  732.                 SETB                KEYF,0                                ;按键标志位
  733.                 LD                  A,KCOUNT
  734.                 LD                  KDATA,A               
  735.                 JP                  NEXT_KEY
  736. KFLASH:
  737.                 SZB                        KEYF,KEY_EN
  738.                 JP                        K_CLEAR
  739.                 SZB                 KEYF,7
  740.                 JP                  K_CLEAR                                ;有按键再检测到其他键，取消按键
  741.                 SETB                KEYF,KEY_EN
  742.                 LD                  A,KCOUNT                        ;保存键值
  743.                 LD                  KOLD,A
  744.                 ;CLR                 KEYC
  745.                 JP                  NEXT_KEY
  746.                
  747. KREPEAT:
  748.                 LDIA                05H
  749.                 SUBA                KCOUNT
  750.                 SZB                 FLAGS,Z
  751.                 JP                  K_REP_LONG1
  752.                
  753.                 LDIA                01H
  754.                 SUBA                KCOUNT
  755.                 SZB                        FLAGS,Z
  756.                 JP                        K_REP_LONG1
  757.                                                                                 ;ADD和DEC这2个有长按键
  758.                 LDIA                03H
  759.                 SUBA                KCOUNT
  760.                 SNZB                 FLAGS,Z
  761.                 JP                  NEXT_KEY
  762. K_REP_LONG:
  763.                 SNZB                WORK,ONOFF                        ;判断长按键条件
  764.                 JP                  NEXT_KEY
  765. ;                SNZB                 FLAG,T_CHANGE
  766. ;                JP                  NEXT_KEY
  767. K_LONG:
  768.                 SZDECR                KCNTL
  769.                 JP                  NEXT_KEY
  770.                 LDIA                .60;D'100'                                ;长按键后每次时间
  771.                 LD                  KCNTL,A

  773.                 SETB                KEYF,0
  774.                 SETB                KEYF,6                                ;长按键标志位
  775.                 JP                  NEXT_KEY
  776.                
  777. K_REP_LONG1:
  778.                 SNZB                WORK,ONOFF
  779.                 JP                        NEXT_KEY
  780.                 SNZB                FLAG,T_CHANGE
  781.                 JP                        NEXT_KEY
  782.                
  783.                 SZDECR                KCNTLL
  784.                 JP                        NEXT_KEY
  785.                 LDIA                D'10'
  786.                 LD                        KCNTLL,A

  788.                 SETB                KEYF,0
  789.                 SETB                KEYF,6                                ;长按键标志位
  790.                 JP                  NEXT_KEY               
  791.                
  792.                                 
  793.                
  794. K_CLEAR:        
  795.                 CLR                 KOLD1
  796.                 CLR                 KOLD2
  797.                 CLR                 KOLD3
  798.                 CLR                 KOLD4
  799.                 CLR                 KOLD5                        
  800.                 CLRB                KEYF,3
  801.                 CLRB                KEYF,6
  802.                 CLRB                KEYF,0                                
  803. NEXT_KEY:
  804.                 INCR                KCOUNT                                ;按键计数加一，检测下一个按键
  805.                 LDIA                06H
  806.                 SUBA                KCOUNT
  807.                 SNZB                FLAGS,C
  808.                 JP                        KEY_RESTA                        ;扫完一轮按键后，清状态
  809.                 LDIA                01H
  810.                 LD                        KCOUNT,A
  811.                
  812.                 SNZB                KEYF,KEY_EN
  813.                 JP                        KEY_NO        
  814.                 CLRB                KEYF,KEY_EN
  815.                 JP                        KEY_RESTA
  816. KEY_NO:
  817.                 CLR                 KEYF                                ;没有按键，清RAM
  818.                 ;CLR                 KEYC
  819.                 LDIA                .60;D'100'
  820.                 LD                  KCNTL,A
  821.                 LDIA                D'10'
  822.                 LD                        KCNTLL,A               
  823.                 SETB                KOLD,7               

  825. KEY_RESTA:

  827.                 CLR                 KEY_C1
  828.                 CLR                 KEY_C
  829.                 LDIA                B'10010010'                ;放电
  830.                 LD                  P1CH,A
  831.                 CLRB                P1,5
  832.                 NOP
  833.                 NOP
  834.                 NOP
  835.                 NOP
  836.                 NOP
  837.                 NOP
  838.                 NOP
  839.                 NOP
  840.                 NOP
  841.                 NOP

  843.                 LDIA                B'10001010'               
  844.                 LD                  P1CH,A
  845.                
  846.                 LDIA                02H
  847.                 LD                  KEY_C1,A
  848.                 CALL                KSCAN_TAB
  849.                 LD                  KEY_C,A
  850.                 NOP
  851.                 SETB                KEY_C,7                        
  852.                 JP                        KSCAN_BACK               
  853.                
  854. K_AVG:                                                                        ;3/4旧+1/4新给前一次
  855.                 CLR                 TEMP1               
  856.                 LD                  A,IAR
  857.                 ADDR                TEMP
  858.                 SZB                 FLAGS,C
  859.                 INCR                TEMP1
  860.                
  861.                 LD                  A,IAR
  862.                 ADDR                TEMP
  863.                 SZB                 FLAGS,C
  864.                 INCR                TEMP1
  865.                
  866.                 LD                  A,IAR
  867.                 ADDR                TEMP
  868.                 SZB                 FLAGS,C
  869.                 INCR                TEMP1

  871.                 RRCR                TEMP1
  872.                 RRCR                TEMP
  873.                 RRCR                TEMP1
  874.                 RRCA                TEMP
  875.                 LD                  IAR,A
  876.                 JP                  NEXT_KEY
  877. K_MOVE:
  878.                 LD                        A,TEMP
  879.                 LD                  IAR,A
  880.                 JP                  NEXT_KEY                                                                                
  881. KSCAN_BACK:
  882.                    RET                        



  886. ;****************************************
  887. ;----------------------------------------
  888. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  889. ;----------------------------------------
  890. ;****************************************        
  891. MAINK:
  892.                 SNZB                KEYF,0
  893.                 JP                  MAINK_BACK
  894.                 CLRB                KEYF,0
  895.                
  896.                 SETB                RBEEP,0
  897.                 LDIA                02H
  898.                 LD                  RBEEPH,A
  899.                 LDIA                D'156'
  900.                 LD                  RBEEPL,A
  901. MAINK_LOOP:
  902.                 LDIA                07H
  903.                 ANDA                KDATA                                ;判断哪个按键
  904.                 ADDR                PCL
  905.                 JP                  MAINK_NO_BUZ
  906.                 JP                  MAINK_DEC
  907.                 JP                  MAINK_TIMER
  908.                 JP                  MAINK_TONG
  909.                 JP                  MAINK_ONOFF                        
  910.                 JP                  MAINK_ADD               
  911.                 JP                        MAINK_NO_BUZ
  912.                 JP                        MAINK_NO_BUZ
  913.                                 
  914. MAINK_NO_BUZ:               
  915.                 CLRB                RBEEP,0
  916.                 JP                        MAINK_BACK
  917. ;----------------------------------------
  918. MAINK_TONG:
  919.                 SNZB                KEYF,6
  920.                 JP                        MAINK_NO_BUZ
  921.                 CLRB                KEYF,6
  922.                
  923.                
  924.                 SNZB                WORK,TONG
  925.                 JP                        TONG_ON
  926. TONG_OFF:
  927.                 CLRB                WORK,TONG
  928.                 JP                        MAINK_BACK
  929. TONG_ON:
  930.                 SETB                WORK,TONG
  931.                 JP                        MAINK_BACK                                
  932.                
  933.                
  934. ;****************************************
  935. MAINK_ONOFF:
  936.                 CLRB                KEYF,6
  937.                 ;SZB                 WORK,TONG        
  938.                 ;JP                  MAINK_NO_BUZ        
  939.                 SZB                        WORK,ONOFF
  940.                 JP                  MAINK_OFF
  941. MAINK_ON:               
  942.                 CLR                        WORK
  943.                 CLR                        FLAG
  944.                 SETB                WORK,ONOFF                    ;以下为开机默认
  945.                 SETB                FLAG,DJ                                ;待命状态
  946.                 SETB                WORK,FAN1
  947.                
  948. ;                SETB                FLAG1,GW
  949.                                 
  950.                 CLR                        POWER
  951.                 CLR                        GAOT
  952.                 CLRB                FLAG1,KS
  953.                                                 
  954.                 LDIA                .2
  955.                 LD                        HOUR,A
  956.                 CLR                        MIN
  957.                                 
  958.                 CLR                        P_SEC
  959.                 JP                  MAINK_BACK
  960. MAINK_OFF:
  961.                 SZB                        FLAG,DJ
  962.                 JP                        MAINK_OFF1
  963.                 CALL                SYS_OFF        
  964.                 JP                        MAINK_BACK
  965. MAINK_OFF1:
  966.                 CALL                SYS_OFF1
  967.                 JP                        MAINK_BACK
  968. ;----------------------------------------
  969. ;****************************************               
  970. MAINK_TIMER:
  971.                 CLRB                KEYF,6
  972.                 SNZB                 WORK,ONOFF               
  973.                 JP                  MAINK_NO_BUZ
  974.                 LDIA                B'01011110'               
  975.                 ANDA                ERRF
  976.                 SNZB                FLAGS,Z
  977.                 JP                        MAINK_NO_BUZ
  978.                 SZB                 WORK,TONG        
  979.                 JP                  MAINK_NO_BUZ
  980.                 SZB                        FLAG,DJ
  981.                 JP                        MAINK_NO_BUZ
  982.                
  983.                
  984.                 SZB                 FLAG,T_CHANGE
  985.                 JP                          MAINK_TIMER_OFF                                                
  986. MAINK_TIMER_ON:
  987.                 SETB                WORK,TIMER
  988.                 SETB                FLAG,TIME
  989.                 SETB                FLAG,T_CHANGE

  991.                 LDIA                .30
  992.                 LD                        MIN,A
  993.                 CLR                        HOUR
  994.                 LDIA                .60
  995.                 LD                        SEC,A
  996.                 CLRB                FLAG,SS
  997.                 CLR                        SECL
  998.                 LDIA                .10
  999.                 LD                        SEC5S,A
  1000.                 JP                        MAINK_BACK
  1001.         
  1002. MAINK_TIMER_OFF:
  1003.                 CLRB                WORK,TIMER
  1004.                 CLRB                FLAG,TIME
  1005.                 CLRB                FLAG,T_CHANGE
  1006.                 CLR                        MIN
  1007.                 LDIA                .2
  1008.                 LD                        HOUR,A
  1009.                 LDIA                .60
  1010.                 LD                        SEC,A
  1011.                 JP                  MAINK_BACK               
  1012. ;----------------------------------------
  1013. NOP
  1014. ;****************************************
  1015. MAINK_ADD:
  1016.                 SZB                        KEYF,6
  1017.                 CLRB                RBEEP,0
  1018.                 CLRB                KEYF,6
  1019.         
  1020.                 SNZB                 WORK,ONOFF               
  1021.                 JP                  MAINK_NO_BUZ               
  1022.                 LDIA                B'01011110'               
  1023.                 ANDA                ERRF
  1024.                 SNZB                FLAGS,Z
  1025.                 JP                        MAINK_NO_BUZ
  1026.                 SZB                 WORK,TONG        
  1027.                 JP                  MAINK_NO_BUZ
  1028.                                                 
  1029.                 SNZB                 WORK,TIMER
  1030.                 JP                  MAINK_ADD_POWER
  1031.                 SZB                         FLAG,T_CHANGE                  ;1表示时间加减模式
  1032.                 JP                  MAINK_ADD_TIME                                       
  1033. ;-------------------------------------
  1034. MAINK_ADD_POWER:
  1035.                 SZB                        WORK,TIMER
  1036.                 JP                        MAINK_ADD_POWER1
  1037.                 LDIA                D'2'
  1038.                 LD                        HOUR,A
  1039.                 CLR                        MIN
  1040.                 LDIA                D'60'
  1041.                 LD                        SEC,A
  1042. ;----------------------------------------               
  1043. MAINK_ADD_POWER1:
  1044.                 CALL                SJ_SHUAXIN
  1045.                 CLRB                FLAG,TIME                                ;显示功率
  1046.                
  1047.                 SZB                        FLAG,DJ
  1048.                 JP                        MR_MAX               
  1049.         
  1050.                 CLRB                FLAG,DJ
  1051.                 INCR                POWER                        
  1052.                 LDIA                D'11'                                        ;只有10档
  1053.                 SUBA                POWER
  1054.                 SNZB                 FLAGS,C
  1055.                 JP                  MAINK_BACK
  1056.                 LDIA                D'10'
  1057.                 LD                  POWER,A
  1058.                 JP                        MAINK_NO_BUZ        
  1059. ;----------------------------------------
  1060. MAINK_ADD_TIME:
  1061.                 CALL                SJ_SHUAXIN                                ;定时
  1062.                 SETB                FLAG,TIME
  1063.                         
  1064.                 LDIA                .10
  1065.                 ADDR                MIN        
  1066.                 LDIA                D'60'
  1067.                 SUBA                MIN
  1068.                 SNZB                FLAGS,C               
  1069.                 JP                        MAINK_BACK
  1070.                 LDIA                D'60'
  1071.                 SUBR                MIN
  1072.                 INCR                HOUR
  1073.                 LDIA                .3
  1074.                 SUBA                HOUR
  1075.                 SNZB                FLAGS,C
  1076.                 JP                        MAINK_BACK
  1077.                 CLR                        HOUR
  1078.                 CLR                        MIN
  1079.                 JP                        MAINK_BACK               
  1080. ;----------------------------------------
  1081. ;****************************************
  1082. MAINK_DEC:
  1083.                 SZB                        KEYF,6
  1084.                 CLRB                RBEEP,0
  1085.                 CLRB                KEYF,6
  1086.                
  1087.                 SNZB                 WORK,ONOFF               
  1088.                 JP                  MAINK_NO_BUZ               
  1089.                 LDIA                B'01011110'               
  1090.                 ANDA                ERRF
  1091.                 SNZB                FLAGS,Z
  1092.                 JP                        MAINK_NO_BUZ
  1093.                 SZB                 WORK,TONG        
  1094.                 JP                  MAINK_NO_BUZ
  1095.                                                 
  1096.                 SNZB                 WORK,TIMER
  1097.                 JP                  MAINK_DEC_POWER
  1098.                 SZB                         FLAG,T_CHANGE                  ;1表示时间加减模式
  1099.                 JP                  MAINK_DEC_TIME                                       
  1100. ;-------------------------------------
  1101. MAINK_DEC_POWER:
  1102.                 SZB                        WORK,TIMER
  1103.                 JP                        MAINK_DEC_POWER1
  1104.                 LDIA                D'2'
  1105.                 LD                        HOUR,A
  1106.                 CLR                        MIN
  1107.                 LDIA                D'60'
  1108.                 LD                        SEC,A
  1109. MAINK_DEC_POWER1:
  1110.                 CALL                SJ_SHUAXIN
  1111.                 CLRB                FLAG,TIME
  1112.                
  1113.                 SZB                        FLAG,DJ
  1114.                 JP                        MR_MIN               
  1115.         
  1116.                 CLRB                FLAG,DJ                                
  1117.                 LDIA                02H                                                ;最低为1档
  1118.                 SUBA                POWER
  1119.                 SNZB                 FLAGS,C
  1120.                 JP                  MAINK_NO_BUZ
  1121.                 DECR                POWER
  1122.                 JP                        MAINK_BACK        
  1123. MAINK_DEC_TIME:
  1124.                 CALL                SJ_SHUAXIN        
  1125.                 SETB                FLAG,TIME
  1126.                
  1127.                 DECR                MIN
  1128.                 LDIA                .60
  1129.                 SUBA                MIN
  1130.                 SNZB                FLAGS,C
  1131.                 JP                        MAINK_BACK
  1132.                 LDIA                .59
  1133.                 LD                        MIN,A
  1134.                
  1135.                 DECR                HOUR
  1136.                 LDIA                .3
  1137.                 SUBA                HOUR
  1138.                 SNZB                FLAGS,C
  1139.                 JP                        MAINK_BACK
  1140.                 LDIA                .2
  1141.                 LD                        HOUR,A
  1142.                 JP                        MAINK_BACK                                                               
  1143. ;----------------------------------------
  1144. ;****************************************
  1145. MR_MIN:
  1146.                 LDIA                01H
  1147.                 LD                        POWER,A
  1148.                 CLRB                FLAG,DJ
  1149.                 JP                        MAINK_BACK
  1150. MR_MAX:
  1151.                 LDIA                0AH
  1152.                 LD                        POWER,A
  1153.                 CLRB                FLAG,DJ
  1154.                 JP                        MAINK_BACK
  1155. ;----------------------------------------
  1156. ;****************************************
  1157. MAINK_BACK:
  1158.                 RET                                                        
  1159. ;****************************************
  1160. ;----------------------------------------
  1161. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1162. ;----------------------------------------
  1163. ;****************************************
  1164. SET_DISP:
  1165.                 CLR                        DISPLAY1
  1166.                 CLR                        DISPLAY2
  1167.                 CLR                        DISPLAY3
  1168.                 CLR                        DISPLAY4                                                
  1169.                 CLR                        DISPLAY5
  1170.                                                                         
  1171. SET_DISP_ON:                                                        
  1172.                 SNZB                FLAG1,GW
  1173.                 JP                        DISP_JIXU
  1174.                 SNZB                FLAG,SS1               
  1175.                 SETB                DISPLAY5,4                                        ;高温灯
  1176. DISP_JIXU:
  1177.                
  1178.                 SZB                 FLAG1,FIRST                                        ;初始为1,上电显示
  1179.                 JP                  SET_DISP_START        
  1180.                
  1181.                                 
  1182.                 SNZB                WORK,ONOFF
  1183.                 JP                         SET_DISP_OFF
  1184.                
  1185.                 SETB                DISPLAY5,2                                        ;电源灯
  1186.                
  1187.                 SZB                        WORK,TIMER
  1188.                 SETB                DISPLAY5,3
  1189.                 SZB                        WORK,TONG
  1190.                 SETB                DISPLAY5,5               
  1191.                
  1192.                 SZB                        ERRF,1                           
  1193.                 JP                        DISP_ERR_1                       
  1194.                 SZB                        ERRF,2                           
  1195.                 JP                        DISP_ERR_2
  1196.                 SZB                        ERRF,3                           
  1197.                 JP                        DISP_ERR_3                     
  1198.                 SZB                        ERRF,4                           
  1199.                 JP                        DISP_ERR_4
  1200. ;                SZB                        ERRF,5                  
  1201. ;                JP                        DISP_ERR_5
  1202.                 SZB                        ERRF,6                  
  1203.                 JP                        DISP_ERR_6                        
  1204.                
  1205.                 SZB                        FLAG,DJ                                                ;待机显示
  1206.                 JP                        SET_DISP_DAIJI        
  1207.                                                                                                                                        
  1208.                 SNZB                 WORK,TIMER
  1209.                 JP                  SET_DISP_POWER
  1210.                 SZB                 FLAG,T_CHANGE
  1211.                 JP                  SET_DISP_TIME
  1212.                 SNZB                 FLAG,TIME
  1213.                 JP                  SET_DISP_POWER
  1214.                 JP                        SET_DISP_TIME

  1216. ;**************************************
  1217. ;-----------设置时间显示---------------
  1218. SET_DISP_TIME:
  1219.                 LD                        A,MIN
  1220.                 CALL                BCD_CH
  1221.                 LD                        A,BCD_REG
  1222.                 CALL                TABLE_SEG
  1223.                 LD                        DISPLAY4,A
  1224.                
  1225.                 LD                        A,TEMP
  1226.                 CALL                TABLE_SEG
  1227.                 LD                        DISPLAY3,A
  1228.                
  1229.                 LD                        A,HOUR
  1230.                 CALL                TABLE_SEG
  1231.                 LD                        DISPLAY2,A
  1232.                
  1233.                 LDIA                0D7H                ; 0                                
  1234.                 LD                        DISPLAY1,A
  1235. DISPLAY1_1_1:
  1236.                 SETB                DISPLAY2,3
  1237.                 SETB                DISPLAY3,3
  1238.                 SNZB                 FLAG,SS
  1239.                 JP                  SET_DISP_BACK
  1240.                 CLRB                DISPLAY2,3
  1241.                 CLRB                DISPLAY3,3
  1242.                 SNZB                 FLAG,T_CHANGE               
  1243.                 JP                  SET_DISP_BACK
  1244.                 CLR                        DISPLAY1
  1245.                 CLR                        DISPLAY2
  1246.                 CLR                        DISPLAY3
  1247.                 CLR                        DISPLAY4
  1248.                 JP                  SET_DISP_BACK
  1249. ;**************************************
  1250. ;-----------设置功率显示---------------
  1251. SET_DISP_POWER:
  1252.                 LDIA                0D7H                                        ;0
  1253.                 LD                  DISPLAY4,A
  1254.                 LD                        DISPLAY3,A
  1255.                
  1256.                 LD                        A,POWER
  1257.                 CALL                TABLE_DISP_POWER
  1258.                
  1259.                 CALL                BCD_CH
  1260.                 LD                  A,BCD_REG
  1261.                 CALL                TABLE_SEG
  1262.                 LD                        DISPLAY2,A
  1263.                
  1264.                 LD                        A,TEMP
  1265.                 SZB                        FLAGS,Z
  1266.                 JP                        DISPLAY1_2_1
  1267.                 CALL                TABLE_SEG
  1268.                 LD                        DISPLAY1,A
  1269.                 JP                        SET_DISP_BACK
  1270. DISPLAY1_2_1:
  1271.                 CLR                        DISPLAY1
  1272.                 JP                        SET_DISP_BACK
  1273. ;**************************************        
  1274. ;**************************************               
  1275. SET_DISP_START:               
  1276.                 LDIA                0FFH
  1277.                 LD                        DISPLAY1,A
  1278.                 LD                        DISPLAY2,A
  1279.                 LD                        DISPLAY3,A
  1280.                 LD                        DISPLAY4,A
  1281.                 LD                        DISPLAY5,A
  1282.                 JP                        SET_DISP_BACK                        
  1283. ;**************************************        
  1284. SET_DISP_OFF:
  1285.                 SNZB                FLAG,SS
  1286.                 JP                        SET_DISP_BACK
  1287. SET_DISP_DAIJI:
  1288.                 SETB                DISPLAY5,2
  1289.                 LDIA                020H
  1290.                 LD                        DISPLAY1,A
  1291.                 LD                        DISPLAY2,A
  1292.                 LD                        DISPLAY3,A
  1293.                 LD                        DISPLAY4,A
  1294.                 JP                        SET_DISP_BACK               
  1295. ;**************************************        
  1296. DISP_ERR_1:
  1297.                 LDIA                067H                                
  1298.                 LD                        DISPLAY2,A
  1299.                 LDIA                090H
  1300.                 LD                        DISPLAY3,A
  1301.                 JP                        SET_DISP_BACK
  1302. DISP_ERR_2:
  1303.                 LDIA                067H                                
  1304.                 LD                        DISPLAY2,A
  1305.                 LDIA                0A7H
  1306.                 LD                        DISPLAY3,A
  1307.                 JP                        SET_DISP_BACK
  1308. DISP_ERR_3:
  1309.                 LDIA                067H                                
  1310.                 LD                        DISPLAY2,A
  1311.                 LDIA                0B5H
  1312.                 LD                        DISPLAY3,A
  1313.                 JP                        SET_DISP_BACK
  1314. DISP_ERR_4:
  1315.                 LDIA                067H                                
  1316.                 LD                        DISPLAY2,A
  1317.                 LDIA                0F0H
  1318.                 LD                        DISPLAY3,A
  1319.                 JP                        SET_DISP_BACK
  1320. DISP_ERR_5:
  1321.                 LDIA                067H                                
  1322.                 LD                        DISPLAY2,A
  1323.                 LDIA                075H
  1324.                 LD                        DISPLAY3,A
  1325.                 JP                        SET_DISP_BACK
  1326. DISP_ERR_6:
  1327.                 LDIA                067H                                
  1328.                 LD                        DISPLAY2,A
  1329.                 LDIA                077H
  1330.                 LD                        DISPLAY3,A
  1331.                 JP                        SET_DISP_BACK        
  1332. SET_DISP_BACK:
  1333.                 RET                        
  1334. ;****************************************
  1335. ;----------------------------------------
  1336. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1337. ;----------------------------------------
  1338. ;****************************************        
  1339. ;----------------------------------------
  1340. WR_CTRL_CMD:
  1341.                 SETB              STB
  1342.         LDIA              B'01000100'                              ;送读/写控制命令
  1343.         CALL              WR_1628
  1344.         SETB              STB
  1345.         RET                        
  1346. ;****************************************
  1347. ;----------------------------------------
  1348. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1349. ;----------------------------------------
  1350. ;****************************************        
  1351. ;----------------------------------------
  1352. DISP_ADR:               
  1353.                 SETB             STB                                           ;一个总周期送一个显示地址               
  1354. ;----------------------------------------                           
  1355. DISP_1_DATA:
  1356.                 LDIA                0C8H                                       
  1357.                CALL              WR_1628                                 
  1358.                 LD                        A,DISPLAY1                              
  1359.                 CALL             WR_1628
  1360.                
  1361.                
  1362. DISP_2_DATA:
  1363.                 SETB             STB
  1364.                 LDIA                0CAH                                       
  1365.                CALL              WR_1628                                 
  1366.                 LD                        A,DISPLAY2                              
  1367.                 CALL             WR_1628
  1368. DISP_3_DATA:
  1369.                 SETB             STB
  1370.                 LDIA                0CCH                                       
  1371.                CALL              WR_1628                                 
  1372.                 LD                        A,DISPLAY3                             
  1373.                 CALL             WR_1628
  1374. DISP_4_DATA:
  1375.                 SETB             STB
  1376.                 LDIA                0C6H                                       
  1377.                CALL              WR_1628                                 
  1378.                 LD                        A,DISPLAY4                              
  1379.                 CALL             WR_1628
  1380. DISP_5_DATA:
  1381.                 SETB             STB
  1382.                 LDIA                0C4H                                       
  1383.                CALL              WR_1628                                 
  1384.                 LD                        A,DISPLAY5                              
  1385.                 CALL             WR_1628        
  1386.                 RET                        
  1387. ;****************************************
  1388. ;----------------------------------------
  1389. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1390. ;----------------------------------------
  1391. ;****************************************        
  1392. ;----------------------------------------
  1393. MODE_SET:
  1394.                SETB              STB
  1395.                LDIA              B'00000011'                             ;设置显示模式(7 COM +10 SEGS)
  1396.                CALL              WR_1628
  1397.                SETB              STB
  1398.                RET                        
  1399. ;****************************************
  1400. ;----------------------------------------
  1401. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1402. ;----------------------------------------
  1403. ;****************************************        
  1404. ;----------------------------------------
  1405. NOP
  1406. DISP_ON:

  1408.                SETB              STB
  1409.                LDIA              B'10001001'                              ;开显示/灰度为4/16
  1410.                CALL              WR_1628
  1411.                SETB              STB
  1412.                RET               

  1414. ;****************************************
  1415. ;----------------------------------------
  1416. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1417. ;----------------------------------------
  1418. ;****************************************        
  1419. ;----------------------------------------
  1420. SET_TIME:
  1421.                 LDIA                D'50'
  1422.                 SUBA                SECL
  1423.                 SNZB                FLAGS,C
  1424.                 JP                        SET_TIME_BACK
  1425.                 CLR                        SECL
  1426.                
  1427.                 SETB                FLAG,S05
  1428.                
  1429.                 LDIA                01H
  1430.                 XORR                FLAG
  1431.                
  1432.                 INCR                SEC2S
  1433.                 LDIA                D'2'
  1434.                 SUBA                SEC2S
  1435.                 SNZB                FLAGS,C
  1436.                 JP                        SET_TIME_5S
  1437.                 CLR                        SEC2S
  1438.                 CLRB                FLAG1,FIRST
  1439.                                 
  1440. SET_TIME_5S:               
  1441.                 SZDECR                SEC5S                        
  1442.                 JP                  SET_TIME_DJ                                        ;待机一分钟后转关机
  1443.                 LDIA                D'10'                        
  1444.                 LD                  SEC5S,A        
  1445.                
  1446.                 LDIA                04H                                                        ;FLAG,TIME
  1447.                 XORR                FLAG                                                ;时间功率之间切换
  1448.                                                                                        
  1449.                 SNZB                 FLAG,T_CHANGE
  1450.                 JP                  SET_TIME_DJ
  1451.                 CLRB                FLAG,T_CHANGE
  1452.                 SETB                FLAG,TIME

  1454.                
  1455.                 LD                        A,MIN
  1456.                 SNZB                FLAGS,Z
  1457.                 JP                        SET_TIME_DJ
  1458.                 LD                        A,HOUR
  1459.                 SNZB                FLAGS,Z
  1460.                 JP                        SET_TIME_DJ
  1461.                 LDIA                D'2'
  1462.                 LD                        HOUR,A
  1463.                 CLR                        MIN
  1464.                 CLRB                FLAG,TIME
  1465.                 CLRB                WORK,TIMER
  1466.         
  1467. SET_TIME_DJ:
  1468.                 SNZB                WORK,ONOFF
  1469.                 JP                        SET_TIME_BACK1        
  1470.                 SNZB                FLAG,DJ
  1471.                 JP                        SET_TIME_BACK1
  1472.                 LDIA                B'01011110'               
  1473.                 ANDA                ERRF
  1474.                 SNZB                FLAGS,Z
  1475.                 JP                        SET_TIME_BACK1
  1476.                
  1477.                
  1478.                
  1479.                 INCR                FEN1_COUNT
  1480.                 LDIA                D'120'
  1481.                 SUBA                FEN1_COUNT
  1482.                 SNZB                FLAGS,C
  1483.                 JP                        SET_TIME_BACK
  1484.                 CLR                        FEN1_COUNT               
  1485.                 CALL                SYS_OFF1               
  1486. SET_TIME_BACK1:                                
  1487.                 CLR                        FEN1_COUNT
  1488. SET_TIME_BACK:
  1489.                 RET               
  1490.         
  1491. ;****************************************
  1492. ;----------------------------------------
  1493. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1494. ;----------------------------------------
  1495. ;****************************************
  1496. SET_TIME_AC:

  1498.                
  1499.                                        
  1500.                 LDIA                D'100'
  1501.                 SUBA                AC_SEC                                        ;制造1S
  1502.                 SNZB                 FLAGS,C
  1503.                 JP                  SET_TIME_AC_BACK
  1504.                 CLR                        AC_SEC
  1505.                
  1506.                 LDIA                80H
  1507.                 XORR                FLAG
  1508.                
  1509.                 SNZB                WORK,ONOFF
  1510.                 JP                        SET_TIME_AC_BACK
  1511.                 SZB                        WORK,ERR
  1512.                 JP                        SET_TIME_AC_BACK
  1513.                 SZB                        FLAG,DJ
  1514.                 JP                        SET_TIME_AC_BACK               
  1515.                
  1516.                 LDIA                .3                                                ;小于3挡不检测短路
  1517.                 SUBA                POWER
  1518.                 SNZB                FLAGS,C
  1519.                 JP                        SET_TIME_AC_GO_0
  1520.                                 
  1521.                 INCR                FEN3_COUNT
  1522.                 LDIA                D'180'
  1523.                 SUBA                FEN3_COUNT
  1524.                 SNZB                FLAGS,C
  1525.                 JP                        SET_TIME_AC_GO
  1526.                 SETB                FLAG,FEN3

  1528. SET_TIME_AC_GO_0:               
  1529.                 CLR                        FEN3_COUNT
  1530.                
  1531. SET_TIME_AC_GO:               
  1532.                 SZB                 FLAG,T_CHANGE
  1533.                 JP                        SET_TIME_AC_BACK               
  1534.                
  1535.                 LD                        A,HOUR
  1536.                 SNZB                FLAGS,Z               
  1537.                 JP                        TIME_AC_1
  1538.                 LD                        A,MIN
  1539.                 SNZB                FLAGS,Z
  1540.                 JP                        TIME_AC_1
  1541.                 JP                        TIME_AC_OFF        
  1542. TIME_AC_1:        
  1543.                 SZDECR                SEC
  1544.                 JP                  SET_TIME_AC_BACK
  1545.                 LDIA                D'60'
  1546.                 LD                  SEC,A        

  1548.                 DECR                MIN
  1549.                 LDIA                D'60'
  1550.                 SUBA                MIN
  1551.                 SNZB                FLAGS,C
  1552.                 JP                        SET_TIME_AC_BACK
  1553.                 LDIA                D'59'
  1554.                 LD                        MIN,A
  1555.                 DECR                HOUR
  1556.                 JP                        SET_TIME_AC_BACK
  1557. TIME_AC_OFF:
  1558.                 SETB                RBEEP,0
  1559.                 LDIA                04H
  1560.                 LD                         RBEEPH,A
  1561.                 LDIA                D'156'
  1562.                 LD                  RBEEPL,A
  1563.                 CALL                SYS_OFF        
  1564. SET_TIME_AC_BACK:
  1565.                 RET               
  1566. ;****************************************
  1567. ;----------------------------------------
  1568. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  1569. ;----------------------------------------
  1570. ;****************************************
  1571. AD_TEST:
  1572.                 LDIA                03H
  1573.                 LD                        SYS_GEN,A
  1574.                 LDIA                B'11111111'                                
  1575.                 LD                  P0CH,A                                       
  1576.                 LDIA                B'00111111'
  1577.                 LD                  P0CL,A               
  1578.                
  1579.                 SZB                        RBEEP,0
  1580.                 JP                        AD_BACK
  1581. AD_START:
  1582.                 LD                        A,ADCOUNT
  1583.                 ADDR                PCL                        
  1584.                 JP                        CHECK_VAD
  1585.                 JP                        CHECK_TR
  1586.                 JP                        CHECK_PAN

  1588. CHECK_VAD:
  1589.                 LDIA                B'00000110'
  1590.                 JP                        AD_START1
  1591. CHECK_TR:
  1592.                 LDIA                B'00100110'
  1593.                 JP                        AD_START1
  1594. CHECK_PAN:
  1595.                 LDIA                B'00010110'
  1596.                 JP                        AD_START1
  1597.                
  1598. AD_START1:               
  1599.                 LD                        ADCON,A
  1600.                 NOP
  1601.                 SETB                 ADCON,CONV
  1602.                 NOP
  1603.                 NOP
  1604.                 NOP
  1605.                 NOP
  1606.                 NOP
  1607.                 NOP
  1608.                 NOP
  1609.                 NOP
  1610.                 NOP
  1611.                 NOP
  1612.                 NOP
  1613.                 CLRB                 ADCON,CONV
  1614.                 NOP
  1615. WAIT1:
  1616.                 SNZB                ADCON,EOC
  1617.                 JP                        WAIT1
  1618.                 LD                        A,ADDATA

  1620.                 ADDR                DATAL
  1621.                 SZB                        FLAGS,C
  1622.                 INCR                DATAH
  1623.                
  1624.                 INCR                ADCOUNT1
  1625.                 LDIA                D'32'
  1626.                 SUBA                ADCOUNT1
  1627.                 SNZB                FLAGS,C
  1628.                 JP                        AD_BACK
  1629.                 CLR                        ADCOUNT1         
  1630.                 RRCR                 DATAH
  1631.                 RRCR                 DATAL
  1632.                 RRCR                 DATAH
  1633.                 RRCR                 DATAL
  1634.                 RRCR                DATAH
  1635.                 RRCR                DATAL
  1636.                 RRCR                DATAH
  1637.                 RRCR                DATAL
  1638.                 RRCR                DATAH
  1639.                 RRCR                DATAL
  1640.                 LDIA                03H
  1641.                 ANDA                ADCOUNT
  1642.                 ADDR                PCL
  1643.                 JP                        AD_VAD
  1644.                 JP                        AD_TR
  1645.                 JP                        AD_PAN

  1647. ;--------------------------------------------
  1648. ;*****************电压检测*******************
  1649.                
  1650. AD_VAD:
  1651.                         LD                                A,DATAL                        
  1652.                         LD                                TMPR_VAC,A
  1653.                         
  1654.                         SNZB                        WORK,ONOFF
  1655.                         JP                                AD_COM
  1656.                         SZB                                WORK,ERR
  1657.                         JP                                AD_COM                        
  1658.                         
  1659.                         LDIA                        D'190'
  1660.                         SUBA                        TMPR_VAC
  1661.                         SZB                                FLAGS,C
  1662.                         JP                                ERR_GAOYA
  1663.                         
  1664.                         LDIA                        D'97'
  1665.                         SUBA                        TMPR_VAC
  1666.                         SNZB                        FLAGS,C
  1667.                         JP                                ERR_DIYA
  1668.                         
  1669.                         
  1670.                         ;SZB                        FLAG,DYE
  1671.                         ;JP                                VOL_NO_ERR                                
  1672.                
  1673.                         SZB                                ERRF,1
  1674.                         JP                                CLR_GAOYA
  1675.                         SZB                                ERRF,2
  1676.                         JP                                CLR_DIYA
  1677. VOL_NO_ERR:
  1678.                         CLR                                VOL_COUNT
  1679.                         JP                                VAD_CHED
  1680. ERR_GAOYA:
  1681.                         SZB                                ERRF,1
  1682.                         JP                                VOL_NO_ERR
  1683.                         INCR                        VOL_COUNT
  1684.                         LDIA                        D'5'
  1685.                         SUBA                        VOL_COUNT
  1686.                         SNZB                        FLAGS,C
  1687.                         JP                                VAD_CHED
  1688.                         CLR                                VOL_COUNT
  1689.                         SETB                        ERRF,1
  1690.                         SETB                        RBEEP,0
  1691.                         LDIA                        04H
  1692.                         LD                                RBEEPH,A                        
  1693.                         JP                                VAD_CHED               
  1694. ERR_DIYA:
  1695.                         SZB                                ERRF,2
  1696.                         JP                                VOL_NO_ERR
  1697.                         INCR                        VOL_COUNT
  1698.                         LDIA                        D'5'
  1699.                         SUBA                        VOL_COUNT
  1700.                         SNZB                        FLAGS,C
  1701.                         JP                                VAD_CHED
  1702.                         CLR                                VOL_COUNT
  1703.                         SETB                        ERRF,2
  1704.                         SETB                        RBEEP,0
  1705.                         LDIA                        04H
  1706.                         LD                                RBEEPH,A                        
  1707.                         JP                                VAD_CHED        
  1708.         
  1709. CLR_GAOYA:
  1710.                         LDIA                        D'179'
  1711.                         SUBA                        TMPR_VAC
  1712.                         SZB                                FLAGS,C
  1713.                         JP                                VAD_CHED
  1714.                         
  1715.                         
  1716.                         INCR                        VOL_COUNT
  1717.                         LDIA                        D'5'
  1718.                         SUBA                        VOL_COUNT
  1719.                         SNZB                        FLAGS,C
  1720.                         JP                                VAD_CHED
  1721.                         CLR                                VOL_COUNT
  1722.                         CLRB                        ERRF,1
  1723.                         LDIA                        D'60'
  1724.                         LD                                ACSET,A
  1725.                         JP                                VAD_CHED
  1726. CLR_DIYA:
  1727.                         LDIA                        D'98'
  1728.                         SUBA                        TMPR_VAC
  1729.                         SNZB                        FLAGS,C
  1730.                         JP                                VAD_CHED
  1731.                         
  1732.                         
  1733.                         INCR                        VOL_COUNT
  1734.                         LDIA                        D'5'
  1735.                         SUBA                        VOL_COUNT
  1736.                         SNZB                        FLAGS,C
  1737.                         JP                                VAD_CHED
  1738.                         CLR                                VOL_COUNT
  1739.                         CLRB                        ERRF,2

  1741.                         JP                                VAD_CHED
  1742.                                                    
  1743. ;--------------------------------------------
  1744. ;--------------------------------------------              
  1745. VAD_CHED:
  1746.                 JP                    AD_COM        
  1747.                               
  1748. ;--------------------------------------------
  1749. ;*****************锅底检测*******************               
  1750. AD_PAN:
  1751.                         LD                                A,DATAL                                        ;温度AD
  1752.                         LD                                TMPR_PAN,A
  1753.                
  1754. ;                        SNZB                        WORK,ONOFF
  1755. ;                        JP                                AD_COM

  1757.                         SNZB                        WORK,ONOFF
  1758.                         JP                                AD_CHECK_RJ                                ;判断是热机还是冷机
  1759.                         SZB                                FLAG,DJ
  1760.                         JP                                AD_CHECK_RJ
  1761.                         SZB                                WORK,ERR
  1762.                         JP                                AD_COM
  1763.                         
  1764.                         LDIA                        D'185'                                        ;开路
  1765.                         SUBA                        TMPR_PAN
  1766.                         SZB                                FLAGS,C
  1767.                         JP                                PAN_ERR_KAI
  1768.                         
  1769.                         LDIA                        D'4'
  1770.                         SUBA                        TMPR_PAN
  1771.                         SNZB                        FLAGS,C
  1772.                         JP                                PAN_ERR_DUAN        
  1773.                         
  1774.                         CLR                                PAN_COUNT        
  1775.                         
  1776.                         LDIA                        D'161'
  1777.                         SUBA                        TMPR_PAN
  1778.                         SZB                                FLAGS,C
  1779.                         JP                                PAN_ERR_GAO_G                        ;关断
  1780.                                                                         
  1781. ;                        LDIA                        D'105'                                        ;650 DU
  1782. ;                        SUBA                        TMPR_PAN
  1783. ;                        SZB                                FLAGS,C
  1784. ;                        JP                                PAN_ERR_GAO_J                        

  1786.                         LDIA                        D'110'                                        ;600 DU                        
  1787.                         SUBA                        TMPR_PAN
  1788.                         SNZB                        FLAGS,C        
  1789.                         JP                                PAN_CLR_GAO               
  1790.                                                 
  1791.                         CLR                                PAN_COUNT1                                                                                   
  1792.                         JP                                PAN_CHED                        


  1795. AD_CHECK_RJ:
  1796.                         LDIA                        .52                                                ;250度
  1797.                         SUBA                        TMPR_PAN
  1798.                         SNZB                        FLAGS,C
  1799.                         JP                                LENG_JI
  1800. RE_JI:
  1801.                         INCR                        PAN_COUNT
  1802.                         LDIA                        D'5'
  1803.                         SUBA                        PAN_COUNT
  1804.                         SNZB                        FLAGS,C
  1805.                         JP                                AD_COM
  1806.                         CLR                                PAN_COUNT
  1807.                         CLRB                        ERRF,0
  1808.                         JP                                AD_COM
  1809. LENG_JI:                        
  1810.                         INCR                        PAN_COUNT1
  1811.                         LDIA                        D'5'
  1812.                         SUBA                        PAN_COUNT1
  1813.                         SNZB                        FLAGS,C
  1814.                         JP                                AD_COM
  1815.                         CLR                                PAN_COUNT1
  1816.                         SETB                        ERRF,0
  1817.                         JP                                AD_COM
  1818. PAN_ERR_KAI:
  1819.                         INCR                        PAN_COUNT
  1820.                         LDIA                        D'5'                                       
  1821.                         SUBA                        PAN_COUNT
  1822.                         SNZB                        FLAGS,C
  1823.                         JP                                PAN_CHED
  1824.                         CLR                                PAN_COUNT               

  1826.                         SETB                        WORK,ERR                                ;不可恢复错误

  1828.                         SETB                        ERRF,3
  1829.                         SETB                        RBEEP,0
  1830.                         LDIA                        04H
  1831.                         LD                                RBEEPH,A                        
  1832.                         JP                                PAN_CHED        

  1834. PAN_ERR_DUAN:
  1835.                         SNZB                        FLAG,FEN3                                ;3分钟后
  1836.                         JP                                PAN_CHED
  1837.                         JP                                PAN_ERR_KAI
  1838.                         
  1839. PAN_ERR_GAO_G:
  1840.                         INCR                        PAN_COUNT2
  1841.                         LDIA                        D'5'                                       
  1842.                         SUBA                        PAN_COUNT2
  1843.                         SNZB                        FLAGS,C
  1844.                         JP                                PAN_CHED
  1845.                         CLR                                PAN_COUNT2               

  1847.                         SETB                        ERRF,5                        
  1848.                         JP                                PAN_CHED        
  1849.                         
  1850. ;PAN_ERR_GAO_J:
  1851. ;                        INCR                        PAN_COUNT1
  1852. ;                        LDIA                        D'5'                                       
  1853. ;                        SUBA                        PAN_COUNT1
  1854. ;                        SNZB                        FLAGS,C
  1855. ;                        JP                                PAN_CHED
  1856. ;                        CLR                                PAN_COUNT1               
  1857. ;
  1858. ;                        SETB                        ERRF,0                                        ;降功率                                       
  1859. ;                        JP                                PAN_CHED                                

  1861. PAN_CLR_GAO:
  1862.                         SZB                                ERRF,5
  1863.                         JP                                PAN_CLR_ON
  1864. ;                        SZB                                ERRF,0
  1865. ;                        JP                                PAN_CLR_ON
  1866.                         CLR                                PAN_COUNT1
  1867.                         CLR                                PAN_COUNT2
  1868.                         
  1869.                         JP                                PAN_CHED
  1870. PAN_CLR_ON:                                                
  1871.                         INCR                        PAN_COUNT1
  1872.                         LDIA                        D'5'                                       
  1873.                         SUBA                        PAN_COUNT1
  1874.                         SNZB                        FLAGS,C
  1875.                         JP                                PAN_CHED
  1876.                         CLR                                PAN_COUNT1
  1877.                         
  1878.                         CLRB                        ERRF,5
  1879. ;                        CLRB                        ERRF,0
  1880.                         
  1881.                                 
  1882. ;--------------------------------------------
  1883. ;--------------------------------------------        
  1884. PAN_CHED:                                
  1885.                         JP                                AD_COM
  1886. ;--------------------------------------------
  1887. ;*****************主板检测*******************
  1888.                
  1889. AD_TR:
  1890.                         LD                                A,DATAL                                        ;温度AD
  1891.                         LD                                TMPR_TR,A
  1892. ;--------------------------------------------
  1893.                         SNZB                        WORK,ONOFF
  1894.                         JP                                AD_COM
  1895.                         SZB                                WORK,ERR
  1896.                         JP                                AD_COM                        
  1897.                                        
  1898.                         LDIA                        0E0H     
  1899.                         SUBA                        TMPR_TR
  1900.                         SZB                                FLAGS,C
  1901.                         JP                                TR_ERR_DUAN
  1902.                         
  1903.                         LDIA                        05H     
  1904.                         SUBA                        TMPR_TR
  1905.                         SNZB                        FLAGS,C
  1906.                         JP                                TR_ERR_KAI
  1907.                
  1908.                         CLR                                TR_COUNT                                                                                 
  1909.                
  1910.                         LDIA                        .145;D'194'                                        ;100
  1911.                         SUBA                        TMPR_TR
  1912.                         SZB                                FLAGS,C
  1913.                         JP                                TR_GAOWEN_G        
  1914.                         
  1915.                         LDIA                        .131;D'178'                                        ;90
  1916.                         SUBA                        TMPR_TR        
  1917.                         SZB                                FLAGS,C
  1918.                         JP                                TR_GAOWEN_J        
  1919.                         
  1920.                         LDIA                        .107;.159;D'105'                                        ;80               
  1921.                         SUBA                        TMPR_TR
  1922.                         SNZB                        FLAGS,C        
  1923.                         JP                                RT_CLR_GAOWEN                                
  1924.                                                 
  1925.                         CLR                                TR_COUNT1                                                   
  1926.                         JP                                TR_CHED

  1928. TR_ERR_DUAN:        
  1929.                         INCR                        TR_COUNT
  1930.                         LDIA                        D'5'                                       
  1931.                         SUBA                        TR_COUNT
  1932.                         SNZB                        FLAGS,C
  1933.                         JP                                TR_CHED
  1934.                         CLR                                TR_COUNT  
  1935.                         
  1936.                         SETB                        WORK,ERR              

  1938.                         SETB                        ERRF,4
  1939.                         SETB                        RBEEP,0
  1940.                         LDIA                        04H
  1941.                         LD                                RBEEPH,A
  1942.                         JP                                TR_CHED        

  1944. TR_ERR_KAI:
  1945.                         SNZB                        FLAG,FEN3                                ;3分钟后
  1946.                         JP                                TR_CHED
  1947.                         JP                                TR_ERR_DUAN


  1950. TR_GAOWEN_G:
  1951.                         SZB                                ERRF,6
  1952.                         JP                                TR_CHED
  1953.                                 
  1954.                         INCR                        TR_COUNT1
  1955.                         LDIA                        D'5'                                       
  1956.                         SUBA                        TR_COUNT1
  1957.                         SNZB                        FLAGS,C
  1958.                         JP                                TR_CHED
  1959.                         CLR                                TR_COUNT1               

  1961.                         SETB                        ERRF,6
  1962.                         SETB                        RBEEP,0
  1963.                         LDIA                        04H
  1964.                         LD                                RBEEPH,A
  1965.                         JP                                TR_CHED        
  1966. TR_GAOWEN_J:        
  1967.                         INCR                        TR_COUNT1
  1968.                         LDIA                        D'5'                                       
  1969.                         SUBA                        TR_COUNT1
  1970.                         SNZB                        FLAGS,C
  1971.                         JP                                TR_CHED
  1972.                         CLR                                TR_COUNT1               

  1974.                         SETB                        ERRF,7                                        ;降功率但是不报警
  1975.                         JP                                TR_CHED
  1976. RT_CLR_GAOWEN:
  1977.                         SZB                                ERRF,6
  1978.                         JP                                CLR_RT_ON
  1979.                         SZB                                ERRF,7
  1980.                         JP                                CLR_RT_ON
  1981.                         CLR                                TR_COUNT1
  1982.                         JP                                TR_CHED
  1983. CLR_RT_ON:
  1984.                         INCR                        TR_COUNT1
  1985.                         LDIA                        D'5'                                       
  1986.                         SUBA                        TR_COUNT1
  1987.                         SNZB                        FLAGS,C
  1988.                         JP                                TR_CHED
  1989.                         CLR                                TR_COUNT1               

  1991.                         CLRB                        ERRF,7        
  1992.                         CLRB                        ERRF,6                                
  1993.                         JP                                TR_CHED        
  1994.                         
  1995. ;--------------------------------------------        
  1996. TR_CHED:                                
  1997.                         JP                                AD_COM

  1999. ;--------------------------------------------
  2000. AD_COM:                       
  2001.                         CLR                                DATAL
  2002.                         CLR                                DATAH               
  2003.                         INCR                        ADCOUNT
  2004.                         LDIA                        D'3'
  2005.                         SUBA                        ADCOUNT
  2006.                         SNZB                        FLAGS,C
  2007.                         JP                                AD_BACK               
  2008.                         CLR                                ADCOUNT        
  2009. ;--------------------------------------------
  2010. AD_BACK:
  2011.                         RET                                

  2013. ;****************************************
  2014. ;----------------------------------------
  2015. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  2016. ;----------------------------------------
  2017. ;****************************************
  2018. SET_POWER:
  2019.                 SNZB                WORK,ONOFF
  2020.                 JP                        SET_POWER_OFF
  2021.                 SZB                        FLAG,DJ
  2022.                 JP                        SET_POWER_OFF
  2023. ;                SNZB                ACF,AC_EN
  2024. ;                JP                  SET_POWER_OFF               
  2025.                         
  2026.                 SZB                        ERRF,7
  2027.                 JP                        QZ_200                        ;强制最低档
  2028. ;                SZB                        ERRF,0                        ;冷机为1,热机为0
  2029. ;                JP                        QZ_200                        ;强制1000W
  2030.                
  2031.                 LD                  A,POWER
  2032.                 LD                  POWER_TEMP,A                                                        
  2033. SET_POWER1:
  2034.                 CALL                SET_TABLE_POWER
  2035.                 LD                        A,POWER1
  2036.                 LD                        POWER_J,A
  2037. ;***************************************************               
  2038. SET_POWER_DOWN:
  2039.                 LDIA                .92                                ;冷机降公率点
  2040.                 SNZB                ERRF,0
  2041.                 LDIA                .129                        ;热完机后温度点
  2042.                 LD                        WEN_D,A
  2043. ;***************************************************                                                
  2044. SET_POWER_DOWN_WEN:
  2045.                 LD                        A,WEN_D                        
  2046.                 SUBA                TMPR_PAN                        
  2047.                 SNZB                FLAGS,C
  2048.                 JP                        SET_POWER_1
  2049.                
  2050.                 SZB                        ERRF,0
  2051.                 SETB                FLAG1,KS                        
  2052.                                                                                 
  2053.                 DECR                POWER_J

  2055.                 LDIA                .8
  2056.                 ADDR                WEN_D               
  2057.                                 
  2058.                 LDIA                D'2'                                
  2059.                 SUBA                POWER_J                                
  2060.                 SNZB                FLAGS,C                                
  2061.                 JP                        SET_POWER_LOW               
  2062. ;***************************************************                        
  2063.                 LD                        A,WEN_D                        
  2064.                 SUBA                TMPR_PAN                        
  2065.                 SNZB                FLAGS,C
  2066.                 JP                        SET_POWER_1                        
  2067.                                                                                 
  2068.                 DECR                POWER_J
  2069.                 LDIA                .11
  2070.                 ADDR                WEN_D               
  2071.                                                                
  2072.                 LDIA                D'2'                                
  2073.                 SUBA                POWER_J                                
  2074.                 SNZB                FLAGS,C                                
  2075.                 JP                        SET_POWER_LOW               
  2076. ;***************************************************
  2077.                 LD                        A,WEN_D                        
  2078.                 SUBA                TMPR_PAN                        
  2079.                 SNZB                FLAGS,C
  2080.                 JP                        SET_POWER_1                        
  2081.                                                                                 
  2082.                 DECR                POWER_J
  2083.                 LDIA                .4
  2084.                 ADDR                WEN_D
  2085.                                                 
  2086.                 LDIA                D'2'                                
  2087.                 SUBA                POWER_J                                
  2088.                 SNZB                FLAGS,C                                
  2089.                 JP                        SET_POWER_LOW
  2090.                
  2091.                 SZB                        ERRF,0
  2092.                 JP                        SET_POWER_1
  2093.                                 
  2094. ;***************************************************
  2095.                 LD                        A,WEN_D                        
  2096.                 SUBA                TMPR_PAN                        
  2097.                 SNZB                FLAGS,C
  2098.                 JP                        SET_POWER_1                        
  2099.                                                                                 
  2100.                 DECR                POWER_J
  2101.                 INCR                WEN_D
  2102.                 INCR                WEN_D               
  2103.                                 
  2104.                 LDIA                D'2'                                
  2105.                 SUBA                POWER_J                                
  2106.                 SNZB                FLAGS,C                                
  2107.                 JP                        SET_POWER_LOW        
  2108.                
  2109. ;***************************************************
  2110.                 LD                        A,WEN_D                        
  2111.                 SUBA                TMPR_PAN                        
  2112.                 SNZB                FLAGS,C
  2113.                 JP                        SET_POWER_1                        
  2114.                                                                                 
  2115.                 DECR                POWER_J
  2116.                 ;DECR                POWER_J
  2117.                 ;INCR                WEN_D                        
  2118.                 LDIA                D'2'                                
  2119.                 SUBA                POWER_J                                
  2120.                 SNZB                FLAGS,C                                
  2121.                 JP                        SET_POWER_LOW                                
  2122. ;***************************************************
  2123.                 LD                        A,WEN_D                        
  2124.                 SUBA                TMPR_PAN                        
  2125.                 SNZB                FLAGS,C
  2126.                 JP                        SET_POWER_1                        
  2127.                                                                                 
  2128.                 DECR                POWER_J
  2129.                 DECR                POWER_J
  2130.                 INCR                WEN_D                                
  2131.                 LDIA                D'2'                                
  2132.                 SUBA                POWER_J                                
  2133.                 SNZB                FLAGS,C                                
  2134.                 JP                        SET_POWER_LOW               
  2135. ;***************************************************               
  2136.                 LD                        A,WEN_D                        
  2137.                 SUBA                TMPR_PAN                        
  2138.                 SNZB                FLAGS,C
  2139.                 JP                        SET_POWER_1                        
  2140.                                                                                 
  2141.                 DECR                POWER_J
  2142.                 ;DECR                POWER_J
  2143.                
  2144. ;                INCR                WEN_D
  2145.                                 
  2146.                 LDIA                D'2'                                
  2147.                 SUBA                POWER_J                                
  2148.                 SNZB                FLAGS,C                                
  2149.                 JP                        SET_POWER_LOW               
  2150. ;***************************************************               
  2151.                 LD                        A,WEN_D                        
  2152.                 SUBA                TMPR_PAN                        
  2153.                 SNZB                FLAGS,C
  2154.                 JP                        SET_POWER_1                        
  2155.                                                                                 
  2156.                 DECR                POWER_J
  2157.                 DECR                POWER_J
  2158.                 INCR                WEN_D                                
  2159.                 LDIA                D'2'                                
  2160.                 SUBA                POWER_J                                
  2161.                 SNZB                FLAGS,C                                
  2162.                 JP                        SET_POWER_LOW               
  2163. ;***************************************************
  2164.                 LD                        A,WEN_D                        
  2165.                 SUBA                TMPR_PAN                        
  2166.                 SNZB                FLAGS,C
  2167.                 JP                        SET_POWER_1                        
  2168.                                                                                 
  2169.                 DECR                POWER_J
  2170.                 DECR                POWER_J
  2171.                 INCR                WEN_D                                
  2172.                 LDIA                D'2'                                
  2173.                 SUBA                POWER_J                                
  2174.                 SNZB                FLAGS,C                                
  2175.                 JP                        SET_POWER_LOW               
  2176. ;***************************************************               
  2177.                 LD                        A,WEN_D                        
  2178.                 SUBA                TMPR_PAN                        
  2179.                 SNZB                FLAGS,C
  2180.                 JP                        SET_POWER_1                        
  2181.                                                                                 
  2182.                 DECR                POWER_J
  2183.                 DECR                POWER_J
  2184.                 ;INCR                WEN_D                                
  2185.                 LDIA                D'2'                                
  2186.                 SUBA                POWER_J                                
  2187.                 SNZB                FLAGS,C                                
  2188.                 JP                        SET_POWER_LOW               
  2189. ;***************************************************
  2190.                 LD                        A,WEN_D                        
  2191.                 SUBA                TMPR_PAN                        
  2192.                 SNZB                FLAGS,C
  2193.                 JP                        SET_POWER_1                        
  2194.                                                                                 
  2195.                 DECR                POWER_J
  2196.                 DECR                POWER_J
  2197.                 ;DECR                POWER_J
  2198.                 INCR                WEN_D                                
  2199.                 LDIA                D'2'                                
  2200.                 SUBA                POWER_J                                
  2201.                 SNZB                FLAGS,C                                
  2202.                 JP                        SET_POWER_LOW               
  2203. ;***************************************************        
  2204.                 LD                        A,WEN_D                        
  2205.                 SUBA                TMPR_PAN                        
  2206.                 SNZB                FLAGS,C
  2207.                 JP                        SET_POWER_1                        
  2208.                                                                                 
  2209.                 DECR                POWER_J
  2210.                 DECR                POWER_J
  2211.                 INCR                WEN_D                                
  2212.                 LDIA                D'2'                                
  2213.                 SUBA                POWER_J                                
  2214.                 SNZB                FLAGS,C                                
  2215.                 JP                        SET_POWER_LOW               
  2216. SET_POWER_LOW:
  2217.                 LDIA                D'2'
  2218.                 LD                        POWER_J,A
  2219.                 JP                        SET_POWER_1


  2222. SET_POWER_1:                        
  2223.                 LDIA                1FH
  2224.                 ANDA                POWER_J
  2225.                 ADDR                PCL
  2226.                 JP                        SET_POWER_OFF
  2227.                 JP                        POWER_100
  2228.                 JP                        POWER_200
  2229.                 JP                        POWER_300               
  2230.                 JP                        POWER_400
  2231.                 JP                        POWER_500
  2232.                 JP                        POWER_600
  2233.                 JP                        POWER_700
  2234.                 JP                        POWER_800
  2235.                 JP                        POWER_900
  2236.                 JP                        POWER_1000
  2237.                 JP                        POWER_1100
  2238.                 JP                        POWER_1200
  2239.                 JP                        POWER_1300
  2240.                 JP                        POWER_1400
  2241.                 JP                        POWER_1500
  2242.                 JP                        POWER_1600
  2243.                 JP                        POWER_1700
  2244.                 JP                        POWER_1800
  2245.                 JP                        POWER_1900
  2246.                 JP                        POWER_2000
  2247.                                                                
  2248.                                                                                                                         
  2249. POWER_100:
  2250.                 LDIA                B'00000001'
  2251.                 LD                        ENFLAG,A
  2252.                 CLR                        ENFLAG1
  2253.                 CLR                        ENFLAG2
  2254.                 JP                        POWER_COM
  2255.                                                 
  2256. POWER_200:
  2257.                 LDIA                B'00000001'
  2258.                 LD                        ENFLAG,A
  2259.                 LDIA                B'00000100'
  2260.                 LD                        ENFLAG1,A
  2261.                 LDIA                B'00000000'
  2262.                 LD                        ENFLAG2,A
  2263.                 JP                        POWER_COM
  2264.                
  2265. POWER_300:
  2266.                 LDIA                B'01000001'
  2267.                 LD                        ENFLAG,A
  2268.                 LDIA                B'00100000'
  2269.                 LD                        ENFLAG1,A
  2270.                 LDIA                B'00000000'
  2271.                 LD                        ENFLAG2,A
  2272.                 JP                        POWER_COM
  2273.                         
  2274. POWER_400:
  2275.                 LDIA                B'00100001'
  2276.                 LD                        ENFLAG,A
  2277.                 LDIA                B'10000100'
  2278.                 LD                        ENFLAG1,A
  2279.                 LDIA                B'00000000'
  2280.                 LD                        ENFLAG2,A
  2281.                 JP                        POWER_COM
  2282.                
  2283. POWER_500:
  2284.                 LDIA                B'00010001'
  2285.                 LD                        ENFLAG,A
  2286.                 LDIA                B'00010001'
  2287.                 LD                        ENFLAG1,A
  2288.                 LDIA                B'00000001'
  2289.                 LD                        ENFLAG2,A
  2290.                 JP                        POWER_COM
  2291.                
  2292. POWER_600:
  2293.                 LDIA                B'10001001'
  2294.                 LD                        ENFLAG,A
  2295.                 LDIA                B'00100100'
  2296.                 LD                        ENFLAG1,A
  2297.                 LDIA                B'00000010'
  2298.                 LD                        ENFLAG2,A
  2299.                 JP                        POWER_COM
  2300.                
  2301. POWER_700:
  2302.                 LDIA                B'01001001'
  2303.                 LD                        ENFLAG,A
  2304.                 LDIA                B'01001010'
  2305.                 LD                        ENFLAG1,A
  2306.                 LDIA                B'00000010'
  2307.                 LD                        ENFLAG2,A
  2308.                 JP                        POWER_COM
  2309.                
  2310. POWER_800:
  2311.                 LDIA                B'10100101'
  2312.                 LD                        ENFLAG,A
  2313.                 LDIA                B'10010100'
  2314.                 LD                        ENFLAG1,A
  2315.                 LDIA                B'00000010'
  2316.                 LD                        ENFLAG2,A
  2317.                 JP                        POWER_COM
  2318.                
  2319. POWER_900:
  2320.                 LDIA                B'10010101'
  2321.                 LD                        ENFLAG,A
  2322.                 LDIA                B'00101010'
  2323.                 LD                        ENFLAG1,A
  2324.                 LDIA                B'00000101'
  2325.                 LD                        ENFLAG2,A
  2326.                 JP                        POWER_COM
  2327.                
  2328. POWER_1000:
  2329.                 LDIA                B'00110011'
  2330.                 LD                        ENFLAG,A
  2331.                 LDIA                B'00110011'
  2332.                 LD                        ENFLAG1,A
  2333.                 LDIA                B'00000011'
  2334.                 LD                        ENFLAG2,A
  2335.                 JP                        POWER_COM
  2336.                
  2337. POWER_1100:
  2338.                 LDIA                B'00110011'
  2339.                 LD                        ENFLAG,A
  2340.                 LDIA                B'00110111'
  2341.                 LD                        ENFLAG1,A
  2342.                 LDIA                B'00000011'
  2343.                 LD                        ENFLAG2,A
  2344.                 JP                        POWER_COM
  2345.                
  2346. POWER_1200:
  2347.                 LDIA                B'00110011'
  2348.                 LD                        ENFLAG,A
  2349.                 LDIA                B'00111111'
  2350.                 LD                        ENFLAG1,A
  2351.                 LDIA                B'00000011'
  2352.                 LD                        ENFLAG2,A
  2353.                 JP                        POWER_COM
  2354.                
  2355. POWER_1300:
  2356.                 LDIA                B'00110011'
  2357.                 LD                        ENFLAG,A
  2358.                 LDIA                B'00111111'
  2359.                 LD                        ENFLAG1,A
  2360.                 LDIA                B'00001011'
  2361.                 LD                        ENFLAG2,A
  2362.                 JP                        POWER_COM

  2364. POWER_1400:
  2365.                 LDIA                B'10110011'
  2366.                 LD                        ENFLAG,A
  2367.                 LDIA                B'00111111'
  2368.                 LD                        ENFLAG1,A
  2369.                 LDIA                B'00001011'
  2370.                 LD                        ENFLAG2,A
  2371.                 JP                        POWER_COM

  2373. POWER_1500:
  2374.                 LDIA                B'10111011'
  2375.                 LD                        ENFLAG,A
  2376.                 LDIA                B'00111111'
  2377.                 LD                        ENFLAG1,A
  2378.                 LDIA                B'00001011'
  2379.                 LD                        ENFLAG2,A
  2380.                 JP                        POWER_COM

  2382. POWER_1600:
  2383.                 LDIA                B'01111011'
  2384.                 LD                        ENFLAG,A
  2385.                 LDIA                B'10111111'
  2386.                 LD                        ENFLAG1,A
  2387.                 LDIA                B'00000111'
  2388.                 LD                        ENFLAG2,A
  2389.                 JP                        POWER_COM

  2391. POWER_1700:
  2392.                 LDIA                B'10111111'
  2393.                 LD                        ENFLAG,A
  2394.                 LDIA                B'10111111'
  2395.                 LD                        ENFLAG1,A
  2396.                 LDIA                B'00001011'
  2397.                 LD                        ENFLAG2,A
  2398.                 JP                        POWER_COM

  2400. POWER_1800:
  2401.                 LDIA                B'01111111'
  2402.                 LD                        ENFLAG,A
  2403.                 LDIA                B'11111111'
  2404.                 LD                        ENFLAG1,A
  2405.                 LDIA                B'00000111'
  2406.                 LD                        ENFLAG2,A
  2407.                 JP                        POWER_COM

  2409. POWER_1900:
  2410.                 LDIA                B'11111111'
  2411.                 LD                        ENFLAG,A
  2412.                 LDIA                B'11111111'
  2413.                 LD                        ENFLAG1,A
  2414.                 LDIA                B'00001011'
  2415.                 LD                        ENFLAG2,A
  2416.                 JP                        POWER_COM

  2418. POWER_2000:                                                               
  2419.                 LDIA                B'11111111'
  2420.                 LD                        ENFLAG,A
  2421.                 LDIA                B'11111111'
  2422.                 LD                        ENFLAG1,A
  2423.                 LDIA                B'00001111'
  2424.                 LD                        ENFLAG2,A
  2425.                 JP                        POWER_COM                                                               
  2426.                                                                
  2427.                                                                
  2428. POWER_COM:
  2429.                 SZB                        ACF,AC_EN
  2430.                 JP                        SET_POWER_BACK


  2433.                 CLRB                FLAG1,GL
  2434.                 LDIA                1FH
  2435.                 ANDA                PCOUNT

  2437.                 ADDR                PCL
  2438.                 JP                        CL1
  2439.                 JP                        CL2
  2440.                 JP                        CL3               
  2441.                 JP                        CL4
  2442.                 JP                        CL5
  2443.                 JP                        CL6                                                                                
  2444.                 JP                        CL7
  2445.                 JP                        CL8
  2446.                 JP                        CL9                                                                        
  2447.                 JP                        CL10
  2448.                 JP                        CL11
  2449.                 JP                        CL12                                                               
  2450.                 JP                        CL13
  2451.                 JP                        CL14
  2452.                 JP                        CL15                                                               
  2453.                 JP                        CL16
  2454.                 JP                        CL17
  2455.                 JP                        CL18
  2456.                 JP                        CL19
  2457.                 JP                        CL20
  2458.                
  2459. CL1:
  2460.                 SNZB                ENFLAG,0
  2461.                 JP                        SET_POWER_BACK
  2462.                 SETB                FLAG1,GL
  2463.                 JP                        SET_POWER_BACK
  2464.                
  2465. CL2:
  2466.                 SNZB                ENFLAG,1
  2467.                 JP                        SET_POWER_BACK
  2468.                 SETB                FLAG1,GL
  2469.                 JP                        SET_POWER_BACK
  2470. CL3:
  2471.                 SNZB                ENFLAG,2
  2472.                 JP                        SET_POWER_BACK
  2473.                 SETB                FLAG1,GL
  2474.                 JP                        SET_POWER_BACK               
  2475. CL4:
  2476.                 SNZB                ENFLAG,3
  2477.                 JP                        SET_POWER_BACK
  2478.                 SETB                FLAG1,GL
  2479.                 JP                        SET_POWER_BACK
  2480. CL5:
  2481.                 SNZB                ENFLAG,4
  2482.                 JP                        SET_POWER_BACK
  2483.                 SETB                FLAG1,GL
  2484.                 JP                        SET_POWER_BACK
  2485. CL6:
  2486.                 SNZB                ENFLAG,5
  2487.                 JP                        SET_POWER_BACK
  2488.                 SETB                FLAG1,GL
  2489.                 JP                        SET_POWER_BACK                                                                                
  2490. CL7:
  2491.                 SNZB                ENFLAG,6
  2492.                 JP                        SET_POWER_BACK
  2493.                 SETB                FLAG1,GL
  2494.                 JP                        SET_POWER_BACK
  2495. CL8:
  2496.                 SNZB                ENFLAG,7
  2497.                 JP                        SET_POWER_BACK
  2498.                 SETB                FLAG1,GL
  2499.                 JP                        SET_POWER_BACK
  2500. CL9:
  2501.                 SNZB                ENFLAG1,0
  2502.                 JP                        SET_POWER_BACK
  2503.                 SETB                FLAG1,GL
  2504.                 JP                        SET_POWER_BACK                                                                        
  2505. CL10:
  2506.                 SNZB                ENFLAG1,1
  2507.                 JP                        SET_POWER_BACK
  2508.                 SETB                FLAG1,GL
  2509.                 JP                        SET_POWER_BACK
  2510. CL11:
  2511.                 SNZB                ENFLAG1,2
  2512.                 JP                        SET_POWER_BACK
  2513.                 SETB                FLAG1,GL
  2514.                 JP                        SET_POWER_BACK
  2515. CL12:
  2516.                 SNZB                ENFLAG1,3
  2517.                 JP                        SET_POWER_BACK
  2518.                 SETB                FLAG1,GL
  2519.                 JP                        SET_POWER_BACK                                                               
  2520. CL13:
  2521.                 SNZB                ENFLAG1,4
  2522.                 JP                        SET_POWER_BACK
  2523.                 SETB                FLAG1,GL
  2524.                 JP                        SET_POWER_BACK
  2525. CL14:
  2526.                 SNZB                ENFLAG1,5
  2527.                 JP                        SET_POWER_BACK
  2528.                 SETB                FLAG1,GL
  2529.                 JP                        SET_POWER_BACK
  2530. CL15:
  2531.                 SNZB                ENFLAG1,6
  2532.                 JP                        SET_POWER_BACK
  2533.                 SETB                FLAG1,GL
  2534.                 JP                        SET_POWER_BACK                                                               
  2535. CL16:
  2536.                 SNZB                ENFLAG1,7
  2537.                 JP                        SET_POWER_BACK
  2538.                 SETB                FLAG1,GL
  2539.                 JP                        SET_POWER_BACK
  2540. CL17:
  2541.                 SNZB                ENFLAG2,0
  2542.                 JP                        SET_POWER_BACK
  2543.                 SETB                FLAG1,GL
  2544.                 JP                        SET_POWER_BACK
  2545. CL18:
  2546.                 SNZB                ENFLAG2,1
  2547.                 JP                        SET_POWER_BACK
  2548.                 SETB                FLAG1,GL
  2549.                 JP                        SET_POWER_BACK
  2550. CL19:
  2551.                 SNZB                ENFLAG2,2
  2552.                 JP                        SET_POWER_BACK
  2553.                 SETB                FLAG1,GL
  2554.                 JP                        SET_POWER_BACK
  2555. CL20:                                
  2556.                 SNZB                ENFLAG2,3
  2557.                 JP                        SET_POWER_BACK
  2558.                 SETB                FLAG1,GL
  2559.                 JP                        SET_POWER_BACK
  2560.                
  2561. SET_POWER_OFF:               
  2562.                 SETB                EN
  2563.                 CLRB                FLAG1,GL                                                                                                               
  2564. SET_POWER_BACK:
  2565.                 RET                        
  2566. ;-----------------------------------------
  2567. QZ_200:
  2568.                 LDIA                D'2'
  2569.                 LD                  POWER_TEMP,A
  2570.                 JP                        SET_POWER1               
  2571. ;-----------------------------------------               
  2572. QZ_1000:
  2573.                 LDIA                D'5'
  2574.                 SUBA                POWER
  2575.                 SZB                        FLAGS,C
  2576.                 JP                        POWER_1000W
  2577.                 LD                        A,POWER
  2578.                 LD                  POWER_TEMP,A
  2579.                 JP                        SET_POWER1
  2580. POWER_1000W:
  2581.                 LDIA                D'5'
  2582.                 LD                  POWER_TEMP,A
  2583.                 JP                        SET_POWER1

  2585. ;****************************************
  2586. ;----------------------------------------
  2587. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  2588. ;----------------------------------------
  2589. ;****************************************
  2590. SET_FAN_DENG:
  2591. ;                SZB                        WORK,ONOFF
  2592. ;                JP                        SET_FAN_DENG_BACK
  2593. ;                                                               
  2594. ;                LDIA                .10                                ;50 DU
  2595. ;                SUBA                TMPR_PAN
  2596. ;                SZB                        FLAGS,C
  2597. ;                JP                        SET_FAN_DENG_ON
  2598.                
  2599.                                 
  2600. ;                CLRB                FLAG1,GW
  2601. ;                CLRB                WORK,FAN1
  2602. ;                JP                        CHECK_FAN_TR

  2604. ;SET_FAN_DENG_ON:
  2605. ;                SETB                FLAG1,GW
  2606. ;                SETB                WORK,FAN1
  2607. ;                JP                        SET_FAN_DENG_BACK
  2608. ;CHECK_FAN_TR:
  2609. ;                LDIA                .91
  2610. ;                SUBA                TMPR_TR
  2611. ;                SNZB                FLAGS,C
  2612. ;                JP                        SET_FAN_DENG_BACK
  2613. ;                SETB                WORK,FAN1

  2615. ;                SZB                        WORK,ONOFF
  2616. ;                JP                        SET_FAN_DENG_BACK

  2618.                 LDIA                .90
  2619.                 SUBA                TMPR_TR
  2620.                 SZB                        FLAGS,C
  2621.                 JP                        SET_WFAN_ON1
  2622.                
  2623.                 LDIA                .9
  2624.                 SUBA                TMPR_PAN
  2625.                 SZB                        FLAGS,C
  2626.                 JP                        SET_WFAN_ON2
  2627.                
  2628.                 INCR                FCOUNT1
  2629.                 LDIA                D'20'
  2630.                 SUBA                FCOUNT1
  2631.                 SNZB                FLAGS,C
  2632.                 JP                        SET_FAN_DENG_BACK
  2633.                 CLR                        FCOUNT1
  2634.                
  2635.                 CLRB                FLAG1,GW
  2636.                 SNZB                WORK,ONOFF
  2637.                 CLRB                WORK,FAN1
  2638.                 JP                        SET_FAN_DENG_BACK
  2639.                
  2640. SET_WFAN_ON1:
  2641.                 LDIA                .14
  2642.                 SUBA                TMPR_PAN
  2643.                 SZB                        FLAGS,C
  2644.                 JP                        SET_WFAN_ON2
  2645.                
  2646.                 LDIA                .95
  2647.                 SUBA                TMPR_TR
  2648.                 SNZB                FLAGS,C
  2649.                 JP                        SET_FAN_DENG_BACK
  2650.                
  2651.                 INCR                FCOUNT
  2652.                 LDIA                D'20'
  2653.                 SUBA                FCOUNT
  2654.                 SNZB                FLAGS,C
  2655.                 JP                        SET_FAN_DENG_BACK
  2656.                 CLR                        FCOUNT
  2657.                
  2658.                 SETB                WORK,FAN1
  2659.                 JP                        SET_FAN_DENG_BACK                                

  2661. SET_WFAN_ON2:
  2662.                 LDIA                .14
  2663.                 SUBA                TMPR_PAN
  2664.                 SNZB                FLAGS,C
  2665.                 JP                        SET_FAN_DENG_BACK


  2668.                 INCR                FCOUNT0
  2669.                 LDIA                D'20'
  2670.                 SUBA                FCOUNT0
  2671.                 SNZB                FLAGS,C
  2672.                 JP                        SET_FAN_DENG_BACK
  2673.                 CLR                        FCOUNT0
  2674.                
  2675.                 SETB                WORK,FAN1
  2676.                 SETB                FLAG1,GW
  2677.         
  2678. SET_FAN_DENG_BACK:
  2679.                 RET                                                        
  2680.                
  2681. NOP               

  2683. ;****************************************
  2684. ;----------------------------------------
  2685. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  2686. ;----------------------------------------
  2687. ;****************************************


  2690. ;****************************************
  2691. ;----------------------------------------
  2692. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  2693. ;----------------------------------------
  2694. ;****************************************
  2695. ERR_DY_TIME:
  2696.                 SNZB                FLAG,S05
  2697.                 JP                        ERR_DY_TIME_BACK
  2698.                 CLRB                FLAG,S05
  2699.                
  2700.                
  2701.                 SNZB                        WORK,ONOFF
  2702.                 JP                                XX_OOO                                
  2703.                 SZB                                FLAG,DJ
  2704.                 JP                                XX_OOO
  2705.                 SZB                                WORK,ERR
  2706.                 JP                                XX_OOO
  2707.                
  2708.                 LDIA                        .110
  2709.                 SUBA                        TMPR_PAN
  2710.                 SZB                                FLAGS,C
  2711.                 JP                                CLR_ERR0
  2712.                                 
  2713.                 SNZB                        FLAG1,KS
  2714.                 JP                                XX_OOO               
  2715.                
  2716.                 INCR                GAOT
  2717.                 LDIA                D'240'
  2718.                 SUBA                GAOT
  2719.                 SNZB                FLAGS,C
  2720.                 JP                        XX_OOO
  2721.                 CLR                        GAOT
  2722. CLR_ERR0:
  2723.                 CLRB                ERRF,0
  2724.                 CLRB                FLAG1,KS
  2725.                                 
  2726. XX_OOO:               
  2727.                 SNZB                WORK,ONOFF
  2728.                 JP                        ERR_DY_TIME_BACK
  2729.                 SZB                        WORK,ERR
  2730.                 JP                        ERR_DY_TIME_BACK
  2731.                
  2732.                
  2733.                 LDIA                B'00000110'
  2734.                 ANDA                ERRF
  2735.                 SZB                        FLAGS,Z
  2736.                 JP                        CLR_ERR_DY_TIME
  2737.                

  2739.                
  2740.                 INCR                EDYCOUNT1
  2741.                 LDIA                D'120'
  2742.                 SUBA                EDYCOUNT1
  2743.                 SNZB                FLAGS,C
  2744.                 JP                        ERR_DY_TIME_BACK
  2745.                 CLR                        EDYCOUNT1


  2748.                 CALL                SYS_OFF1                        
  2749.                                 
  2750. CLR_ERR_DY_TIME:
  2751.                 CLR                        EDYCOUNT1                                
  2752. ERR_DY_TIME_BACK:
  2753.                 RET               
  2754. ;****************************************
  2755. ;----------------------------------------
  2756. ;\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)/\(^o^)
  2757. ;----------------------------------------
  2758. ;****************************************



  2762. ;*************************************
  2763. SJ_SHUAXIN:
  2764.                 CLR                        SECL
  2765.                 LDIA                D'10'
  2766.                 LD                        SEC5S,A
  2767.                 CLRB                FLAG,SS
  2768.                 RET                        00H
  2769. ;*************************************
  2770. SYS_OFF1:
  2771.                 CLR                        WORK
  2772.                 CLR                        FLAG
  2773.                 JP                        SYS_COM
  2774. SYS_OFF:
  2775.                 CLR                        WORK
  2776.                 SETB                WORK,ONOFF
  2777.                 CLR                        FLAG
  2778.                 SETB                FLAG,DJ
  2779. SYS_COM:                                
  2780.                 CLR                        ERRF
  2781.                 CLR                        BBCOUNT
  2782.                 CLR                        FEN3_COUNT
  2783.                 CLR                        POWER
  2784.                 LDIA                02H
  2785.                 LD                        HOUR,A
  2786.                 CLR                        MIN
  2787.                 CLRB                FLAG1,KS
  2788.                
  2789.                 SETB                WORK,FAN1
  2790.                 LDIA                D'100'
  2791.                 LD                        FANT,A
  2792.                 LDIA                D'18'
  2793.                 LD                        FANT1,A
  2794.                
  2795.                 CLR                        TR_COUNT        
  2796.                 CLR                        TR_COUNT1        
  2797.                 CLR                        PAN_COUNT        
  2798.                 CLR                        PAN_COUNT1               
  2799.                 CLR                        VOL_COUNT        
  2800.                 CLR                        FCOUNT0
  2801.                 CLR                        FCOUNT
  2802.                 CLR                        FCOUNT1                                       
  2803.                 RET                        00H               
  2804. ;*************************************                        
  2805. TABLE_SEG:
  2806.                 ADDR                PCL
  2807.                 RET                        0D7H                ; 0
  2808.                 RET                        090H                ; 1
  2809.                 RET                        0A7H                ; 2
  2810.                 RET                        0B5H                ; 3
  2811.                 RET                        0F0H                ; 4
  2812.                 RET                        075H                ; 5
  2813.                 RET                        077H                ; 6
  2814.                 RET                        091H                ; 7
  2815.                 RET                        0F7H                ; 8
  2816.                 RET                        0F5H                ; 9
  2817.                 RET                        0F3H                ; A
  2818.                 RET                        076H                ; B
  2819.                 RET                        047H                ; C
  2820.                 RET                        0B6H                ; D
  2821.                 RET                        067H                ; E
  2822.                 RET                        063H                ; F
  2823. ;*************************************
  2824. TABLE_DISP_POWER:
  2825.                 ADDR                PCL
  2826.                 RET                        .0
  2827.                 RET                        .2
  2828.                 RET                        .4
  2829.                 RET                        .6
  2830.                 RET                        .8
  2831.                 RET                        .10
  2832.                 RET                        .12
  2833.                 RET                        .14
  2834.                 RET                        .16
  2835.                 RET                        .18
  2836.                 RET                        .20                                                                                                               
  2837. ;*************************************
  2838. ;*************************************
  2839. BCD_CH:                                                               
  2840.                 LD                        BCD_REG,A                                        ;调用前先把要分解的数放在A
  2841. BCD_ACT:
  2842.                 CLR                        TEMP
  2843. UP_10:
  2844.                 LDIA                D'10'        
  2845.                 SUBA                BCD_REG
  2846.                 SNZB                FLAGS,C
  2847.                 JP                        DO_10
  2848.                 LDIA                D'10'
  2849.                 SUBR                BCD_REG
  2850.                 INCR                TEMP
  2851.                 JP                        UP_10
  2852. DO_10:                                                                                        ;取个位给个位显示寄存器                        
  2853.                 RET                        00H
  2854.                
  2855. ORG                0700H               
  2856. ;*************************************
  2857. WR_1628:               
  2858.                LD                TEMP,A
  2859.                CLRB              STB
  2860.                LDIA              08H
  2861.                LD                COUNT,A
  2862. WR_LOOP:
  2863.                CLRB              CLK
  2864.                RRCR              TEMP
  2865.                CLRB              DIO
  2866.                SZB               FLAGS,C
  2867.                SETB              DIO
  2868.                SETB              CLK
  2869.                SZDECR           COUNT
  2870.                JP                 WR_LOOP
  2871.                RET               00H               
  2872. ;*************************************

  2874. KSCAN_TAB:
  2875.                 LDIA                07H
  2876.                 ANDA                KCOUNT
  2877. ……………………

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


所有资料51hei提供下载:
http://www.51hei.com/bbs/dpj-95826-1.html




作者: asusyt    时间: 2017-11-18 08:28
所有资料51hei提供下载:
http://www.51hei.com/bbs/dpj-95826-1.html

下载链接是你的干货开发板
作者: jeanwest    时间: 2018-7-3 12:25
感谢提供电路控制图，正在修理一个电陶炉，怀疑控制电路故障！
作者: 鹏博士PBs    时间: 2019-8-14 20:21
请问有对应发封装库吗



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