找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 5713|回复: 11
打印 上一主题 下一主题
收起左侧

单片机+TM1637显示模块,EC11编码器,电风扇长定时+自然风汇编程序

  [复制链接]
跳转到指定楼层
楼主
电风扇定时时间60分钟觉得短了些,如果一直开的话,吹到天亮人也难受,能定时三四小时比较合适,手头上有若干闲置了十余年的STC89C51RC,所以就用它来制作个长定时器,使用EC11带开关旋转编码器调时间,很便宜,一块多钱一只还包邮,也可以用按键代替编码器,只是调时间的时候不如编码器那么方便快捷,显示用TM1637四位数码管显示模块,3块钱包邮,便宜又好用,它能显示到99小时,所以最长定时可达99小时59分59秒,虽然实际使用不需要那么长的定时。制作好后不对电风扇作任何改动,只是把双向可控硅的T1、T2分别与原定时器那两根线接好就可以了,也就是与原定时器并联,把原定时器调到OFF位置。单片机改用其他型号的话,需要改动一些地方,如EEPROM操作、扇区地址、数量、特殊功能寄存器地址、看门狗预分频数等等.

电路原理图如下:



单片机源程序如下:
  1. ;===================================================================================
  2. ;TM1637显示模块,EC11编码器,电风扇长定时+自然风汇编程序
  3. ;杨小强,2020年6月
  4. ;单片机:STC89C51RC,晶振:11.0592MHz
  5. ;显示:(TM1637)4位数码管显示模块
  6. ;调整、设置:EC11带开关5脚旋转编码器,也可以用按键代替
  7. ;电源:闲置5V手机充电器
  8. ;
  9. ;最长定时99小时59分59秒,简单的采用间歇通/断电方式模拟自然风,周期可调,用可控硅控制通断。
  10. ;
  11. ;按编码器开关1次:正常/自然风切换,自然风状态时LED指示灯亮,可控硅间歇通断电
  12. ;按编码器开关2次:定时时间清零,风扇电机断电,两次按键动作之间不大于0.6秒
  13. ;
  14. ;长按编码器开关5秒以上15秒以内,松开按键后进入设置状态,退出设置状态:设置完第五项后按编码器开关、或任意一
  15. ;项中停15秒无任何操作,就自动保存并退出。根据数码管左边显示的数字进行以下各项设置,通过旋转编码器加或减,
  16. ;按编码器开关进入下一项设置:
  17. ;一、显示1——设置自然风状态时,通断电周期时长,5~30秒,默认为10秒
  18. ;二、显示2——设置自然风时电机通电时长,最短为2秒;最长为上一项所设的周期减3秒,比如上一项设置的周期为10秒,
  19. ;             则本项最多可以设置到7秒;
  20. ;三、显示3——设置3小时以下定时调整时,编码器每转动一格的增(减)值:5、10、15、20、25、30分钟,默认10分钟,
  21. ;             3小时以上增(减)值30分钟;10小时以上增(减)值1个小时;20小时以上增(减)值2个小时
  22. ;四、显示4——设置电风扇插电就自动填入的定时时间,0~30小时,默认8小时
  23. ;五、显示5——设置数码管亮度,1~8级,默认为3级
  24. ;
  25. ;长按编码器开关15秒:恢复各项默认设置,数码管显示88:88
  26. ;
  27. ;设置保存失败显示5秒E1
  28. ;
  29. ;--------------------------- 端口定义 ---------------------------
  30.         CLK        EQU P1.5   ;接显示模块TM1637的CLK
  31.         DIO        EQU P1.6   ;接显示模块TM1637的DIO
  32.         EC11A        EQU P3.2   ;接编码器的A引脚,外部中断INT0,也可以接一个按键代替
  33.         EC11B        EQU P3.3   ;接编码器的B引脚,外部中断INT1,也可以接一个按键代替
  34.         EC11K        EQU P3.4   ;接编码器的按键开关引脚
  35.         RLED        EQU P0.4   ;只要发生过复位就一直保持低电平,如有需要可接上LED方便观察
  36.         LED        EQU P0.5   ;自然风状态LED指示灯,低电平亮
  37.         MOC        EQU P0.7   ;接MOC3022光控可控硅,低电平时风扇电机通电

  38. ;--------------------------- 位地址及RAM的使用 ---------------------------
  39. ;(20H)第0位:1=编码器已经转动,等待主程序处理,0=没有转动或主程序已处理
  40. ;(20H)第1位:1=编码器顺时针正转;0=编码器逆时针反转
  41. ;(20H)第2位:1=自然风状态;0=正常状态
  42. ;(20H)第3位:1=禁止;0=允许。进行各项设置时使用,允许/禁止检查剩余时间
  43. ;(20H)第4位:1=闪烁显示;0=不闪烁。进行各项设置时用
  44. ;(20H)第5位:1=不显示,0=显示,数字及冒号闪烁时用,由T0中断每0.5秒取反一次
  45. ;(20H)第6位:1=显示3秒88:88;0=正常
  46. ;(20H)第7位:1=显示5秒E1;0=正常

  47.         FWBZ1        EQU        022H        ;复位判断标志1,也作EEPROM数据判断标志
  48.         FWBZ2        EQU        023H        ;复位判断标志2,也作EEPROM数据判断标志
  49.         ZRFZQ        EQU        024H        ;自然风时通断电周期时长
  50.         ZRFSJ        EQU        025H        ;自然风时电机通电时长
  51.         BMQZJ        EQU        026H          ;编码器每转动一小格的增(减)值
  52.         SDDS        EQU        027H        ;上电就自动设定的定时时间(小时)
  53.         SMGLD        EQU        028H          ;数码管亮度
  54.         DSSJS        EQU        029H        ;定时时间,时
  55.         DSSJF        EQU        02AH          ;定时时间,分
  56.         DSSJM        EQU        02BH        ;定时时间,秒
  57.         ZQ        EQU        02CH        ;T0中断使用,自然风通断电周期时长
  58.         SJ        EQU        02DH        ;T0中断使用,自然风时电机通电时长
  59.         SJJS        EQU        02EH          ;时间计数,每10毫秒减1,为0后定时时间减1秒,重新把HMJS处定义的计数值放入这里
  60.         MJS        EQU        02FH        ;按键处理时用,秒计数,每秒减1,直到为0
  61.         SSSC        EQU        030H        ;闪烁时长,每秒减1,直到为0
  62.         XSHC1        EQU        031H        ;上次显示的内容,与当前不同就立即显示,相同就每0.5秒显示一次
  63.         XSHC2        EQU        032H        ;上次显示的内容,与当前不同就立即显示,相同就每0.5秒显示一次
  64.         XXSZ        EQU        033H        ;下限数值,进行各项设置时用
  65.         SXSZ        EQU        034H        ;上限数值,进行各项设置时用
  66.         ZXM1        EQU        035H        ;显示用,待发送到TM1637的字形码1
  67.         ZXM2        EQU        036H        ;显示用,待发送到TM1637的字形码2
  68.         ZXM3        EQU        037H        ;显示用,待发送到TM1637的字形码3
  69.         ZXM4        EQU        038H        ;显示用,待发送到TM1637的字形码4
  70.         DSZJ        EQU        039H        ;加减定时时间使用
  71.         DISPL        EQU        03AH         ;设置要显示的目标:
  72.                                 ;0=显示定时时间
  73.                                 ;1=显示1——设置自然风状态时的通断电周期时长
  74.                                 ;2=显示2——设置自然风时电机通电时长
  75.                                 ;3=显示3——设置3小时以下定时调整时,编码器每转动一小格的增(减)值
  76.                                 ;4=显示4——设置上电自动填入的定时时间
  77.                                 ;5=显示5——设置数码管亮度

  78. ;--------------- 看门狗、EEPROM特殊功能寄存器地址 ---------------
  79.         AUXR                EQU 08EH        ;辅助寄存器
  80.         WDT_CONTR        EQU 0E1H        ;看门狗地址
  81.         IAP_DATA         EQU 0E2H        ;数据寄存器,读出、写入的数据放在此处
  82.         IAP_ADDRH        EQU 0E3H        ;地址寄存器高八位
  83.         IAP_ADDRL        EQU 0E4H        ;地址寄存器低八位
  84.         IAP_CMD                EQU 0E5H        ;命令寄存器,0=关闭,1=读,2=写,3=擦除
  85.         IAP_TRIG        EQU 0E6H        ;命令触发寄存器,每次操作先放入46H再放入B9,命令立即被触发起动
  86.         IAP_CONTR        EQU 0E7H        ;控制寄存器,Flash操作允许/禁止及等待时间
  87.         ENABLE_IAP        EQU 083H ;定义Flash操作等待时间及允许IAP/ISP/EEPROM操作的常数,时钟<12MHz时为83H

  88. ;==========================================================================
  89.         ORG        0000H
  90.         LJMP        START

  91.         ORG        0003H                ;外部中断INT0入口
  92.         LJMP        INT_0                ;外部中断INT0入口

  93.         ORG        000BH                ;T0中断入口
  94.         LJMP        T0INT                ;T0中断入口

  95.         ORG        0013H                ;外部中断INT1入口
  96.         LJMP        INT_1                ;外部中断INT1入口

  97.         ORG        0030H                ;程序代码始址安排在30H

  98. ;------------------------------------------------------------------------------------------------
  99. ;定义时间计数值,当定时时间实际走时误差较大时,可调整此数值使误差减小
  100. ;例如每分钟快7秒,就把此数值改为112D(7秒÷60秒×100≈12,12+100=112);每分钟慢6秒,就
  101. ;把此数值改为90D(6秒÷60秒×100=10,100-10=90)
  102. ;------------------------------------------------------------------------------------------------
  103. HMJS:        DB        100D                ;定义时间计数值,100表示100×10毫秒=1秒,后面的D表示是十进制数

  104. ;--------------- 定时器0中断(10毫秒产生一次中断) ---------------
  105. T0INT:        PUSH        ACC
  106.         PUSH        PSW
  107.         LCALL        TIME                ;处理各项时间
  108.         LCALL        Control                ;根据条件控制自然风LED指示灯和可控硅(或继电器)
  109.         LCALL        DISPLAY                ;显示
  110.         POP        PSW
  111.         POP        ACC
  112.         RETI

  113. ;--------------- 外部中断INT0,P3.2接编码器A引脚 ---------------
  114. INT_0:        PUSH        PSW
  115.         JB        00H,INT0_1        ;如果位地址0H为1就退出中断处理程序,等待主程序处理
  116.         SETB        00H                ;把位地址00H置为1,表示编码器已转动,等待主程序处理
  117.         SETB        01H                ;是顺时针正转,把位地址01H置为1
  118. INT0_1:        POP        PSW
  119.         RETI

  120. ;--------------- 外部中断INT1,P3.3接编码器B引脚 ---------------
  121. INT_1:        PUSH        PSW
  122.         JB        00H,INT1_1        ;如果位地址0H为1就退出中断处理程序,等待主程序处理
  123.         SETB        00H                ;把位地址00H置为1,表示编码器已转动,等待主程序处理
  124.         CLR        01H                ;是逆时针反转,把位地址01H置为0
  125. INT1_1:        POP        PSW
  126.         RETI

  127. ;--------------- 设置各项默认值 ----------------
  128. SZMRZ:        MOV        ZRFZQ,#10        ;自然风状态时,通断电周期时长(秒)
  129.         MOV        ZRFSJ,#5        ;自然风时电机通电时长(秒)
  130.         MOV        BMQZJ,#10          ;编码器每转动一小格的+、-值(分钟))
  131.         MOV        SDDS,#8                ;上电就自动设定的定时时间(小时)
  132.         MOV        SMGLD,#3          ;数码管亮度,8级亮度最高
  133.         RET

  134. ;--------------- T0、INT0、INT1中断设置 ----------------
  135. SETINT:        ANL        AUXR,#7FH        ;定时器时钟12T模式
  136.         ANL        TMOD,#0F0H        ;设置定时器模式
  137.         MOV        TL0,#000H        ;设置定时初值,10毫秒产生一次中断(晶振:11.0592MHz)
  138.         MOV        TH0,#0DCH        ;设置定时初值,10毫秒产生一次中断(晶振:11.0592MHz)
  139.         CLR        TF0                ;清除TF0标志
  140.         SETB        ET0                ;允许定时器0中断
  141.         SETB        TR0                ;定时器0开始计时
  142.         SETB        IT0                ;设外部中断INT0为下降沿触发
  143.         SETB        EX0                ;允许外部中断INT0
  144.         SETB        IT1                ;设外部中断INT1为下降沿触发
  145.         SETB        EX1                ;允许外部中断INT1
  146.         SETB        EA                ;允许全局中断
  147.         RET

  148. ;--------------- 启动看门狗及喂狗,11.0592MHz预分频数=4(142.2毫秒),00111001B(39H) ----------------
  149. WG:        MOV        WDT_CONTR,#00111001B
  150.         RET

  151. ;******************************************** 主程序开始 ********************************************
  152. START:        MOV        SP,#050H        ;设置堆栈指针
  153.         MOV        A,FWBZ1                ;
  154.         CJNE        A,#0C8H,START0        ;
  155.         MOV        A,FWBZ2                ;检查复位判断标志,不相同说明是初次上电,从初始化开始运行
  156.         CJNE        A,#0D9H,START0        ;
  157.         LCALL        SETINT                ;中断设置
  158.         CLR        RLED                ;RAM内容没变,说明是被干扰等原因复位,不是初次上电,点亮复位LED指示灯
  159.         MOV        A,DISPL                ;
  160.         CJNE        A,#5,SAT1        ;不管是什么原因复位,只要RAM不被改变就跳过初始化,继续运行
  161.         LJMP        STARTB                ;
  162. SAT1:        CJNE        A,#4,SAT2        ;
  163.         LJMP        STARTA                ;
  164. SAT2:        CJNE        A,#3,SAT3        ;根据DISPL的内容跳转到复位前的位置
  165.         LJMP        START9                ;
  166. SAT3:        CJNE        A,#2,SAT4        ;
  167.         LJMP        START8                ;
  168. SAT4:        CJNE        A,#1,START2        ;
  169.         LJMP        START7                ;
  170. START0:        CLR        A
  171.         MOV        R0,#30H                ;
  172.         MOV        R1,#20H                ;
  173. START1:        MOV        @R1,A                ;初始化,从RAM地址20H开始清零30H个字节
  174.         INC        R1                ;
  175.         DJNZ        R0,START1        ;
  176.         LCALL        SETINT                ;初始化,中断设置
  177.         MOV        FWBZ1,#0C8H        ;初始化,放入复位判断标志1到RAM
  178.         MOV        FWBZ2,#0D9H        ;初始化,放入复位判断标志2到RAM
  179.         LCALL        REEP                ;初始化,读EEPROM保存的各项设置,如果没有就设为默认值并保存
  180.         SETB        RLED                ;初始化,设RLED为高电平,复位LED指示灯不亮
  181. ;
  182. START2:        LCALL        WG                ;喂狗
  183.         MOV        DISPL,#0        ;设置要显示的目标,0=显示定时时间
  184.         CLR        06H                ;位地址06H置为0,显示定时时间
  185.         CLR        07H                ;位地址07H置为0,显示定时时间
  186.         JNB        00H,START3        ;如果位地址00H为0(编码器没有转动)就转移
  187.         SETB        EC11A                ;拉高编码器A引脚电平
  188.         SETB        EC11B                ;拉高编码器B引脚电平
  189.         JNB        EC11A,START3        ;如果仍为0(低电平)就转移,说明还没有旋转到卡点位置
  190.         JNB        EC11B,START3        ;如果仍为0(低电平)就转移,说明还没有旋转到卡点位置
  191.         LCALL        DSSJZJ                ;AB引脚都为高电平了,已经旋转到卡点位置,根据方向增减定时时间
  192.         CLR        00H                ;把位地址00H置为0,表示已经响应并处理编码器旋转动作
  193. START3:        LCALL        SKEY                ;扫描编码器按键开关
  194.         JNC        START2                ;没有按键动作(C=0)就转移
  195.         LCALL        KEY                ;有按键动作,调用编码器按键开关处理子程序
  196.         CJNE        A,#1,START4        ;如果不是按下1次(正常/自然风切换)就转移
  197.         CPL        02H                ;是按1次,位地址第02位取反,自然风/正常状态切换
  198.         LJMP        START2
  199. START4:        CJNE        A,#2,START5        ;如果不是2(定时时间置为零)就转移
  200.         LCALL        DSSJQL                ;是按2次,定时时间清零
  201.         LJMP        START2
  202. START5:        CJNE        A,#3,START7        ;如果不是3(恢复默认设置)就转移
  203.         LCALL        SZMRZ                ;恢复各项默认设置
  204.         SETB        06H                ;把位地址06H设置为1,数码管显示3秒88:88
  205.         MOV        SSSC,#3                ;3秒
  206.         MOV        ZXM1,#0FFH        ;8
  207.         MOV        ZXM2,#0FFH        ;8
  208.         MOV        ZXM3,#0FFH        ;8
  209.         MOV        ZXM4,#0FFH        ;8
  210.         LCALL        DISP                ;显示
  211. START6:        MOV        A,SSSC
  212.         LCALL        WG                ;喂狗
  213.         JNZ        START6                ;等待SSSC为0秒
  214.         LCALL        WSET                ;保存设置
  215.         LCALL        KEYEX                ;等待按键松开
  216.         LJMP        START2
  217. START7:        MOV        DISPL,#1        ;是4,进入各项设置,1=显示“1——设置自然风状态时通断电周期时长”
  218.         LCALL        ZQSZ                ;周期时长设置
  219.         JNZ        START8                ;如果是按下编码器按键开关返回,就转移,进行下一项设置
  220.         LJMP        START2                ;是15秒无操作自动保存返回,设置结束
  221. START8:        MOV        DISPL,#2        ;2=显示“2——设置自然风时电机通电时长”
  222.         LCALL        TDSC                ;通电时长设置
  223.         JNZ        START9                ;如果是按下编码器按键开关返回,就转移,进行下一项设置
  224.         LJMP        START2                ;是15秒无操作自动保存返回,设置结束
  225. START9:        MOV        DISPL,#3        ;3=显示“3——设置2小时以下定时调整时,编码器每转动一格的增(减)值”
  226.         LCALL        BMQZJZ                ;编码器增减值设置
  227.         JNZ        STARTA                ;如果是按下编码器按键开关返回,就转移,进行下一项设置
  228.         LJMP        START2                ;是15秒无操作自动保存返回,设置结束
  229. STARTA:        MOV        DISPL,#4        ;4=显示“4——设置插电自动填入的定时时间”
  230.         LCALL        SDDSSJ                ;上电定时时间设置(小时)
  231.         JNZ        STARTB                ;如果是按下编码器按键开关返回,就转移,进行下一项设置
  232.         LJMP        START2                ;是15秒无操作自动保存返回,设置结束
  233. STARTB:        MOV        DISPL,#5        ;5=显示“5——设置数码管亮度”
  234.         LCALL        LDSZ                ;亮度设置
  235.         LJMP        START2

  236. ;--------------------------------------------------------------------------------------------------------
  237. ;子程序:根据编码器旋转方向加减定时时间。
  238. ;3小时及以下,按设置的值加减:5、10、15、20、25、30分钟
  239. ;3小时以上每次增(减)30分钟;10小时以上每次增(减)1个小时;20小时以上每次增(减)2个小时
  240. ;--------------------------------------------------------------------------------------------------------
  241. DSSJZJ:        MOV        DSSJM,#59        ;先放入59到定时时间(秒)
  242.         MOV        A,DSSJS                ;装入定时时间(时)
  243.         CJNE        A,#20,DSZJ1        ;当前“时”是否等于或大于20
  244. DSZJ1:        JC        DSZJ2                ;小于就转移
  245.         MOV        DSZJ,#2                ;等于或大于20,加减2个小时
  246.         LJMP        DSZJ4
  247. DSZJ2:        CJNE        A,#10,DSZJ3        ;当前“时”是否等于或大于10
  248. DSZJ3:        JC        DSZJ8                ;小于就转移
  249.         MOV        DSZJ,#1                ;等于或大于10,加减1个小时
  250. DSZJ4:         JNB        01H,DSZJ6        ;如果位地址01H为0(逆时针反转)就转移
  251.         ADD        A,DSZJ                ;是正转,加
  252.         CJNE        A,#100,DSZJ5        ;加完后是否等于或大于100
  253. DSZJ5:        JC        DSZJ7                ;如果小于就转移,把A放回到DSSJS
  254.         MOV        DSSJS,#99        ;已经大于99了,直接设置为99:59:59
  255.         MOV        DSSJF,#59        ;已经大于99了,直接设置为99:59:59
  256.         RET
  257. DSZJ6:        SUBB        A,DSZJ                ;是反转,减
  258. DSZJ7:        MOV        DSSJS,A                ;把计算结果放入DSSJS
  259.         RET
  260. DSZJ8:        MOV        DSZJ,BMQZJ        ;把设置的“增(减)值”放入DSZJ
  261.         CJNE        A,#3,DSZJ11        ;当前“时”不是3就转移
  262.         JB        01H,DSZJ12         ;是3,如果位地址01H为1(正转)就转移,把DSZJ处的“增(减)值”改为30(分钟)
  263.         MOV        A,DSSJF                ;是反转,装入定时时间(分)
  264.         JZ        DSZJ13                ;如果当前“分”为0(3:00)就转移,按设置的增(减)值减
  265.         CJNE        A,#30,DSZJ9        ;“分”不为0,是否等于或大于30
  266. DSZJ9:        JC        DSZJ10                ;小于就转移,把0放入定时时间(分),使时间变为3:00
  267.         SUBB        A,#30                ;等于或大于,减30分
  268.         MOV        DSSJF,A                ;把计算结果放入定时时间(分)
  269.         RET
  270. DSZJ10:        MOV        DSSJF,#0        ;小于30,把0放入定时时间(分),使时间变为3:00
  271.         RET
  272. DSZJ11:        JC        DSZJ13                 ;小于3就转移
  273. DSZJ12:        MOV        DSZJ,#30        ;大于3:00,把DSZJ处的“增(减)值”改为30(分钟)
  274. DSZJ13:        MOV        A,DSSJF                ;装入定时时间(分)
  275.         JNB        01H,DSZJ16         ;如果位地址01H为0(逆时针反转)就转移
  276.         ADD        A,DSZJ                ;是正转,当前“分”直接加DSZJ处的“增(减)值”
  277.         CJNE        A,#60,DSZJ14        ;加完后“分”是否等于或大于60
  278. DSZJ14:        JC        DSZJ15                ;小于60就转移,把A放入定时时间(分)
  279.         SUBB        A,#60                ;等于或大于60,就减60,然后小时加1
  280.         MOV        DSSJF,A                ;把A放入定时时间(分)
  281.         MOV        A,DSSJS                ;装入“时”
  282.         INC        A                ;小时加1
  283.         MOV        DSSJS,A
  284.         CJNE        A,#3,DSZJ19        ;加完后“时”不是3就转移,退出
  285.         CLR        A                ;加完后大于3:00了,把0放入定时时间(分),使时间变为3:00
  286. DSZJ15:        MOV        DSSJF,A
  287.         RET
  288. DSZJ16:        CJNE        A,DSZJ,DSZJ17        ;是逆时针反转,当前“分”是否等于或大于DSZJ处的“增(减)值”
  289. DSZJ17:        JC        DSZJ20                ;小于就转移
  290.         SUBB        A,DSZJ                ;等于或大于,定时时间(分)减“增(减)值”
  291.         MOV        DSSJF,A                ;把计算结果放入定时时间(分)
  292.         JZ        DSZJ18                ;如果“分”为0就转移
  293.         RET
  294. DSZJ18:        CJNE        A,DSSJS,DSZJ19        ;如果“时”不为0就转移
  295.         MOV        DSSJM,A                ;“时、分”都为0,“秒”也清零
  296. DSZJ19:        RET
  297. DSZJ20:        MOV        A,DSZJ                ;“分”小于“增(减)值”,装入DSZJ处的“增(减)值”
  298.         CLR        C                ;进位标志清0
  299.         SUBB        A,DSSJF                ;“增(减)值”减“定时时间(分)”
  300.         MOV        DSSJF,A                ;减完后的结果暂时放入DSSJF
  301.         MOV        A,#60
  302.         SUBB        A,DSSJF                ;60减上面的计算结果,得出定时时间(分),然后小时减1
  303.         MOV        DSSJF,A                ;得出的数放入定时时间(分)
  304.         MOV        A,DSSJS                ;装入定时时间(时)
  305.         JZ        DSSJQL                ;如果“时”为0就转移(不够减了,把定时时间清零)
  306.         DEC        DSSJS                ;“时”不为0,减1
  307.         RET
  308. DSSJQL: CLR        A
  309.         MOV        DSSJS,A                ;定时时间清零
  310.         MOV        DSSJF,A                ;定时时间清零
  311.         MOV        DSSJM,A                ;定时时间清零
  312.         RET

  313. ;----------------------------------------------------------------------------------------
  314. ;设置自然风通断电周期时长,5~30秒
  315. ;----------------------------------------------------------------------------------------
  316. ZQSZ:        MOV        XXSZ,#5                ;下限为5秒
  317.         MOV        SXSZ,#30        ;上限为30秒
  318.         LJMP        LDSZ1

  319. ;----------------------------------------------------------------------------------------
  320. ;设置自然风时电机通电时长,最短为2秒;最长为上一项(自然风通断电周期)所设的周期减3秒
  321. ;----------------------------------------------------------------------------------------
  322. TDSC:        MOV        A,ZRFZQ                ;装入“自然风通断电周期”
  323.         SUBB        A,#3                ;减3秒
  324.         MOV        SXSZ,A                ;放入上限值
  325.         MOV        XXSZ,#2                ;下限为2秒
  326.         LJMP        LDSZ1

  327. ;----------------------------------------------------------------------------------------
  328. ;设置2小时以下定时调整时,编码器每转动一小格的增(减)值,5、10、15、20、25、30分钟
  329. ;----------------------------------------------------------------------------------------
  330. BMQZJZ:        MOV        XXSZ,#5                ;下限为5
  331.         MOV        SXSZ,#30        ;上限为30
  332.         MOV        R4,#5                ;调整时的加减步长值
  333.         LJMP        SZTZ

  334. ;----------------------------------------------------------------------------------------
  335. ;设置插电就自动填入的定时时间,0~30小时
  336. ;----------------------------------------------------------------------------------------
  337. SDDSSJ:        MOV        XXSZ,#0                ;下限为0小时
  338.         MOV        SXSZ,#30        ;上限为30小时
  339.         LJMP        LDSZ1

  340. ;----------------------------------------------------------------------------------------
  341. ;设置数码管亮度,1~8级,8级亮度最高
  342. ;----------------------------------------------------------------------------------------
  343. LDSZ:        MOV        XXSZ,#1                ;下限为1
  344.         MOV        SXSZ,#8                ;上限为8
  345. LDSZ1:        MOV        R4,#1                ;调整时的加减步长值
  346.         LJMP        SZTZ

  347. ;----------------------------------------------------------------------------------------
  348. ;子程序:根据XXSZ、SXSZ设定的上下限范围、编码器旋转方向,调整DISPL指向的对象。
  349. ;无操作10秒后开始闪烁显示,15秒自动保存并退出;有按键动作就保存并退出
  350. ;入口参数:下限值放入XXSZ;上限值放入SXSZ;R4=加、减步长值
  351. ;出口参数:15秒无操作自动保存退出A=0;按编码器按键开关保存退出A=1
  352. ;----------------------------------------------------------------------------------------
  353. SZTZ:        MOV        MJS,#15                ;放入15秒
  354.         CLR        03H                ;位地址03H置为0,允许检查剩余时间
  355. SZTZ1:        LCALL        SKEY                ;扫描编码器按键开关
  356.         JNC        SZTZ2                ;没有按键动作(C=0)就转移
  357.         CLR        04H                ;有按键动作,把位地址04H置为0,不闪烁显示
  358.         LCALL        WSET                ;保存设置
  359.         LCALL        KEYEX                ;等待按键松开
  360.         LCALL        SKEY1                ;延时10毫秒
  361.         LCALL        SKEY1                ;
  362.         LCALL        SKEY1                ;共延时30毫秒
  363.         MOV        A,#1                ;按编码器按键开关保存退出A=1
  364.         RET
  365. SZTZ2:        JB        00H,SZTZ4        ;如果位地址00H为1(编码器已经转动)就转移
  366.         MOV        A,MJS                ;没有转动,装入秒计数到寄存器A
  367.         JZ        SZTZ3                ;如果秒计数为0(15秒无操作)就转移
  368.         JB        03H,SZTZ1        ;不为0,如果位地址03H为1就转移,不检查剩余时间
  369.         CJNE        A,#5,SZTZ1        ;检查剩余时间,如果不是5秒就转移,继续扫描编码器
  370.         SETB        04H                ;还剩5秒,把位地址04H置为1,设置为闪烁显示
  371.         MOV        SSSC,A                ;闪烁时长5秒放入SSSC
  372.         SETB        03H                ;位地址03H置为1,禁止检查剩余时间
  373.         LJMP        SZTZ1
  374. SZTZ3:        CLR        04H                ;15秒时间到,把位地址04H置为0,不闪烁显示
  375.         LCALL        WSET                ;保存设置
  376.         CLR        A                ;15秒无操作自动保存退出A=0
  377.         RET
  378. SZTZ4:        CLR        04H                ;编码器已经转动,把位地址04H置为0,不闪烁显示
  379.         SETB        EC11A                ;拉高编码器A引脚电平
  380.         SETB        EC11B                ;拉高编码器B引脚电平
  381.         JNB        EC11A,SZTZ        ;如果仍为0(低电平)就转移,说明还没有旋转到卡点位置
  382.         JNB        EC11B,SZTZ        ;如果仍为0(低电平)就转移,说明还没有旋转到卡点位置
  383.         MOV        A,DISPL                ;AB引脚都为高电平,已经旋转到卡点位置了,装入要设置的目标项
  384.         DEC        A                ;减1
  385.         ADD        A,#ZRFZQ        ;加上各项设置的起始地址
  386.         MOV        R0,A                ;把得出的具体地址放入R0
  387.         JB        01H,SZTZ7         ;如果位地址01H为1(顺时针正转)就转移
  388.         MOV        A,XXSZ                ;是反转,装入下限数值到A寄存器
  389.         ADD        A,R4                ;加步长值
  390.         MOV        MJS,A                ;把下限值+步长值的结果暂时放入MJS
  391.         MOV        A,@R0                ;装入R0指向的RAM地址的调整对象数值
  392.         CJNE        A,MJS,SZTZ5        ;调整对象数值与“下限值+步长值”比较
  393. SZTZ5:        JC        SZTZ6                ;如果调整对象数值小于“下限值+步长值”(不够减)就转移
  394.         SUBB        A,R4                ;等于或大于,减步长值
  395.         MOV        @R0,A                ;把计算结果放回去
  396.         LJMP        SZTZ10
  397. SZTZ6:        MOV        @R0,XXSZ        ;不够减了,直接放入下限值
  398.         LJMP        SZTZ10
  399. SZTZ7:        MOV        A,@R0                ;是正转,装入R0指向的RAM地址的调整对象数值
  400.         ADD        A,R4                ;加步长值
  401.         CJNE        A,SXSZ,SZTZ8        ;加完后与上限数值比较
  402. SZTZ8:        JC        SZTZ9                ;如果小于就转移
  403.         MOV        @R0,SXSZ        ;等于或大于,直接放入上限值
  404.         LJMP        SZTZ10
  405. SZTZ9:        MOV        @R0,A                ;小于上限数值,把计算结果放回去
  406. SZTZ10:        CLR        00H                ;把位地址00H置为0,表示已经处理编码器旋转动作
  407.         LJMP        SZTZ

  408. ;----------------------------------------------------------------------------------------
  409. ;子程序:编码器按键开关处理
  410. ;出口参数:A=1(按了1次);A=2(按了2次);A=3长按达到了15秒;A=4长按达到了5秒
  411. ;----------------------------------------------------------------------------------------
  412. KEY:        MOV        MJS,#15                ;放入等待时间,15秒
  413. KEY1:        MOV        A,MJS                ;装入等待时间
  414.         JNZ        KEY2                ;如果不为0就转移,时间未到
  415.         MOV        A,#3                ;为0,时间到了,放入3到A寄存器,长按达到了15秒
  416.         RET
  417. KEY2:        LCALL        SKEY                ;扫描按键
  418.         JC        KEY1                ;如果C=1(按键还没松开),就继续扫描
  419.         CJNE        A,#10,KEY3        ;按键松开了,剩余时间与10比较,不等于就转移
  420.         LJMP        KEY4                ;等于10,长按时间达到了5秒(15-10=5)
  421. KEY3:        JNC        KEY5                ;大于10就转移
  422. KEY4:        MOV        A,#4                ;等于或小于10,放入4到A寄存器,长按时间达到了5秒以上
  423.         RET
  424. KEY5:        LCALL        KEYA                ;大于10,按下的时间小于5秒,扫描按键600毫秒
  425.         JZ        KEY6                ;如果600毫秒内有按键动作就转移
  426.         RET                        ;600毫秒内没有按键动作,这时A=1(按了1次),退出
  427. KEY6:        LCALL        KEYEX                ;等待第二次按键松开
  428.         MOV        A,#2                ;按键松开了,A=2(按了2次)
  429.         RET

  430. ;------------------ 扫描按键开关600毫秒,有按键动作A=0,无按键动作A=1 ------------------
  431. KEYA:        PUSH        03H
  432.         MOV        03H,#60                ;等待600毫秒,10*60=600毫秒
  433. KEYB:        MOV        A,SJJS                ;装入(10)毫秒计数
  434. KEYC:        CJNE        A,SJJS,KEYD        ;如果不相同就转移,说明时间已经过了10毫秒
  435.         LCALL        SKEY                ;扫描按键
  436.         JC        KEYE                ;如果有按键动作(C=1)就转移
  437.         LJMP        KEYC
  438. KEYD:        DJNZ        03H,KEYB        ;03H减1,不为0就转移,继续扫描
  439.         POP        03H
  440.         MOV        A,#1                ;600毫秒等待时间已到,A=1没有按键动作
  441.         RET
  442. KEYE:        POP        03H
  443.         CLR        A                ;600毫秒内有按键动作A=0
  444.         RET

  445. ;------------------ 等待按键松开 ------------------
  446. KEYEX:        LCALL        SKEY                ;扫描按键
  447.         JC        KEYEX                ;如果C=1(按键还没松开),就继续扫描
  448.         RET

  449. ;------------------ 按键开关扫描,未按C=0,已按下C=1 ------------------
  450. SKEY:        SETB        EC11K                ;按键开关设为高电平
  451.         JNB        EC11K,SKEY1        ;为0(低电平)就转移,表示按键开关已经被按下
  452. SKEY0:        CLR        C                ;为1(高电平),C置为0,没有按键动作
  453.         LCALL        WG                ;喂狗
  454.         RET
  455. SKEY1:        PUSH        00H                ;按键已被按下,延时10毫秒
  456.         PUSH        01H                ;延时10毫秒
  457.         MOV        00H,#87                ;延时10毫秒
  458.         MOV        01H,#10                ;延时10毫秒
  459. SKEY2:        DJNZ        01H,SKEY2        ;延时10毫秒
  460.         DJNZ        00H,SKEY2        ;延时10毫秒
  461.         POP        01H                ;延时10毫秒
  462.         POP        00H                ;延时10毫秒
  463.         SETB        EC11K                ;延时结束后再次把按键开关设为高电平
  464.         JB        EC11K,SKEY0        ;为1就转移,按键开关未被有效按下
  465.         SETB        C                ;为1,按键动作有效,置C为1
  466.         LCALL        WG                ;喂狗
  467.         RET

  468. ;*************************** 以下为EEPROM操作子程序 **********************************
  469. ;STC89C51RC有4K字节的EEPROM,由8个扇区组成,每个扇区512字节,地址2000H-2FFFH
  470. ;第1扇区:2000H~21FFH,第2扇区:2200H~23FFH……第8扇区:2E00H~2FFFH
  471. ;-------------------------------------------
  472. ;读一字节,A=读出的数据
  473. Byte_Read:
  474.         MOV        IAP_CONTR,#ENABLE_IAP        ;打开IAP功能,设置Flash操作等待时间(83H)
  475.         MOV        IAP_CMD,#01                ;设置为IAP/ISP/EEPROM字节读模式命令(1)
  476.         MOV        IAP_TRIG,#46H                ;先送46H
  477.         MOV        IAP_TRIG,#0B9H                ;再送B9H,ISP/IAP命令立即被触发起动
  478.         NOP
  479.         MOV        A,IAP_DATA                ;读出的数据在IAP_DATA单元中,送入累加器A
  480.         RET
  481. ;-------------------------------------------
  482. ;字节编程,A=需写入的数据
  483. Byte_Program:
  484.         MOV        IAP_CONTR,#ENABLE_IAP        ;打开IAP功能,设置Flash操作等待时间(83H)
  485.         MOV        IAP_CMD,#02                ;设置为IAP/ISP/EEPROM字节编程模式命令(2)
  486.         MOV        IAP_DATA,A                ;要编程的数据先送进IAP_DATA寄存器
  487.         MOV        IAP_TRIG,#46H                ;先送46H
  488.         MOV        IAP_TRIG,#0B9H                ;再送B9H,ISP/IAP命令立即被触发起动
  489.         RET
  490. ;-------------------------------------------
  491. ;擦除扇区
  492. Sector_Erase:
  493.         MOV        IAP_CONTR,#ENABLE_IAP        ;打开IAP功能,设置Flash操作等待时间(83H)
  494.         MOV        IAP_CMD,#03                ;设置为IAP/ISP/EEPROM扇区擦除模式命令(3)
  495.         MOV        IAP_TRIG,#46H                ;先送46H
  496.         MOV        IAP_TRIG,#0B9H                ;再送B9H,ISP/IAP命令立即被触发起动
  497.         NOP
  498.         RET

  499. ;---------- 读EEPROM保存的各项设置,如果没有就设置为默认值并保存 ------------
  500. REEP:        LCALL        RE00                ;读EEPROM保存的各项设置
  501.         MOV        A,SDDS                ;装入“上电就自动设定的定时时间(小时)”
  502.         JZ        REEP0                ;如果是0就转移,退出
  503.         MOV        DSSJS,A                ;放入“定时时间(小时)”
  504.         MOV        DSSJM,#59        ;放入59到“定时时间(秒)”
  505. REEP0:        RET
  506. RE00:        MOV        IAP_ADDRH,#020H        ;从第一个扇区开始搜索,地址的高8位
  507. RE01:        MOV        IAP_ADDRL,#0        ;从第一个扇区开始搜索,地址的低8位
  508.         LCALL        Byte_Read        ;读第一个字节,返回:A=读出的数据
  509.         CJNE        A,FWBZ1,RE03        ;是否保存在当前扇区,不是就转移到RE03
  510.         INC        IAP_ADDRL        ;EEPROM字节地址增1
  511.         LCALL        Byte_Read        ;读第二个字节
  512.         CJNE        A,FWBZ2,RE03        ;第二个字节是否相符
  513.         MOV        R1,#ZRFZQ        ;相符,从ZRFZQ开始放置读出的设置值
  514.         MOV        R2,#5                ;总共5个字节
  515. RE02:        INC        IAP_ADDRL        ;EEPROM字节地址增1
  516.         LCALL        Byte_Read        ;读一个字节,返回:A=读出的数据
  517.         MOV        @R1,A                ;放到R1指向的RAM地址
  518.         INC        R1                ;RAM地址增1
  519.         DJNZ        R2,RE02                ;未读完就继续
  520.         RET                        ;读完了,退出
  521. RE03:        MOV        A,IAP_ADDRH        ;装入扇区地址的高8位
  522.         ADD        A,#2                ;扇区增1
  523.         MOV        IAP_ADDRH,A        ;放入IAP_ADDRH
  524.         CJNE        A,#30H,RE01        ;如果未搜索完最后一个扇区+2(2EH+2=30H)就转移,继续搜索
  525.         LCALL        SZMRZ                ;已经搜索全部八个扇区,未找到保存的内容,设置为默认值
  526.         MOV        R0,#8                ;总扇区数量,共8个扇区
  527.         LJMP        WSET3                ;跳转到WSET3保存设置

  528. ;------------------ 保存设置,不固定保存到某个扇区,各扇区轮流使用 ------------------
  529. WSET:        MOV        R0,#8                ;扇区总数量,共8个扇区
  530.         MOV        IAP_ADDRH,#020H        ;从第一个扇区开始搜索上次保存的设置
  531. WSET1:        MOV        IAP_ADDRL,#0        ;地址低位指向第一个字节
  532.         LCALL        Byte_Read        ;读第一个字节,返回:A=读出的数据
  533.         CJNE        A,FWBZ1,WSET7        ;如果与EEPROM数据判断标志1不相同就转移
  534.         INC        IAP_ADDRL        ;第一个字节相同,EEPROM字节地址增1
  535.         LCALL        Byte_Read        ;读第二个字节
  536.         CJNE        A,FWBZ2,WSET7        ;如果与EEPROM数据判断标志2不相同就转移
  537.         MOV        IAP_ADDRL,#0        ;是在当前扇区,地址指向扇区第一个字节
  538.         LCALL        Sector_Erase        ;擦除当前扇区,另换一个扇区保存
  539. WSET2:        MOV        A,IAP_ADDRH        ;装入扇区地址高位到寄存器A
  540.         CJNE        A,#020H,WSET3        ;当前扇区地址高位如果不是20H(第一个扇区)就转移
  541.         MOV        IAP_ADDRH,#30H        ;是20H,把IAP_ADDRH设置为最后一个扇区+2(2EH+2=30H)
  542. WSET3:        DEC        IAP_ADDRH        ;减1
  543.         DEC        IAP_ADDRH        ;再减1,指向上一个扇区首址
  544.         MOV        IAP_ADDRL,#0        ;低8位指向扇区第一个字节
  545.         LCALL        Sector_Erase        ;擦除整个扇区
  546.         MOV        R1,#FWBZ1        ;要保存的内容始址
  547.         MOV        R2,#7                ;共7个字节
  548. WSET4:        MOV        A,@R1                ;装入R1指向的RAM地址的内容到A
  549.         LCALL        Byte_Program        ;字节编程(写入EEPROM)
  550.         INC        IAP_ADDRL        ;EEPROM地址加1
  551.         INC        R1                ;RAM地址增1
  552.         DJNZ        R2,WSET4        ;未保存完就继续
  553.         MOV        IAP_ADDRL,#0        ;保存完了,扇区地址低位指向0(当前扇区首址)
  554.         LCALL        Byte_Read        ;读出来检查看是否写入成功
  555.         CJNE        A,FWBZ1,WSET5        ;如果与EEPROM数据判断标志1不相同就转移
  556.         INC        IAP_ADDRL        ;EEPROM地址加1
  557.         LCALL        Byte_Read        ;读第二个字节
  558.         CJNE        A,FWBZ2,WSET5        ;如果与EEPROM数据判断标志2不相同就转移
  559.         RET                        ;成功了,退出
  560. WSET5:        DJNZ        R0,WSET2        ;如果未试完8个扇区就转移到WSET2继续往前一个扇区写
  561.         SETB        07H                ;已经试完8个扇区,都失败了,位地址07H置为1
  562.         MOV        SSSC,#5                ;显示E1五秒
  563.         MOV        ZXM1,#0                ;消隐码
  564.         MOV        ZXM2,#079H        ;E
  565.         MOV        ZXM3,#006H        ;1
  566.         MOV        ZXM4,#0                ;消隐码
  567.         LCALL        DISP                ;显示
  568. WSET6:        MOV        A,SSSC
  569.         LCALL        WG                ;喂狗
  570.         JNZ        WSET6                ;等待SSSC为0秒
  571.         CLR        07H                ;显示结束,位地址07H置为0
  572.         RET
  573. WSET7:        MOV        A,IAP_ADDRH        ;装入扇区地址高位
  574.         ADD        A,#2                ;加2,指向下一个扇区首址
  575.         MOV        IAP_ADDRH,A        ;放回IAP_ADDRH
  576.         CJNE        A,#30H,WSET1        ;如果未到最后一个扇区地址高位+2(2EH+2=30H)就转移到WSET1继续搜索
  577.         LJMP        WSET3                ;是30H,已经搜索完所有扇区,未找到上次保存的数据,跳转到WSET3保存当前设置
  578. ;***************************************** 以上为EEPROM操作子程序 ********************************************

  579. ;------------------------------------------------------------------------------------------
  580. ;子程序:T0中断调用,时间计数及倒计时处理
  581. ;------------------------------------------------------------------------------------------
  582. TIME:        MOV        A,SJJS                 ;装入(10)毫秒时间计数
  583.         JZ        TIME2                ;如果是0就转移
  584.         DEC        SJJS                ;不是0,减1
  585.         CJNE        A,#50,TIME1        ;如果不是50就转移退出
  586.         CPL        05H                ;位地址第05位取反,数字及冒号闪烁时用,每0.5秒取反一次
  587. TIME1:        RET
  588. TIME2:        CPL        05H                ;是0,位地址第05位取反,数字及冒号闪烁时用,每0.5秒取反一次
  589.         MOV        DPTR,#HMJS        ;把定义的时间计数值地址装入数据指针DPTR
  590.         MOVC        A,@A+DPTR        ;从程序存储区装入时间计数值到A寄存器
  591.         MOV        SJJS,A                ;时间计数值放入SJJS,重新计数
  592.         MOV        A,MJS                 ;装入秒计数
  593.         JZ        TIME20                ;如果是0就转移
  594.         DEC        MJS                ;不是0,减1秒
  595. TIME20:        MOV        A,SSSC                 ;装入闪烁时长秒计数
  596.         JZ        TIME3                ;如果是0就转移
  597.         DEC        SSSC                ;不是0,减1秒
  598. TIME3:        MOV        A,SJ                ;装入自然风时电机通电时长到寄存器A
  599.         JZ        TIME4                ;如果是0就转移
  600.         DEC        SJ                ;不是0,减1秒
  601. TIME4:        MOV        A,ZQ                ;装入自然风变化周期时长到寄存器A
  602.         DEC        ZQ                ;先减1
  603.         JNZ        TIME5                ;如果不是0就转移
  604.         MOV        ZQ,ZRFZQ        ;是0,重新装入设置值
  605.         MOV        SJ,ZRFSJ        ;是0,重新装入设置值
  606. TIME5:        MOV        A,DSSJM                ;装入定时时间(秒)到寄存器A
  607.         JZ        TIME7                ;如果是0就转移
  608.         CJNE        A,#59,TIME6        ;如果不是59秒就转移
  609.         MOV        A,DSSJF                ;是59秒,检查“时”
  610.         JNZ        TIME6                ;不是0就转移
  611.         MOV        A,DSSJS                ;检查“分”
  612.         JNZ        TIME6                ;不是0就转移
  613.         MOV        DSSJM,A                ;“时、分”都是0,把“秒”也清零
  614.         RET
  615. TIME6:        DEC        DSSJM                ;不是0,减1秒
  616.         RET
  617. TIME7:        MOV        A,DSSJF                ;装入定时时间(分)到寄存器A
  618.         JZ        TIME8                ;如果是0就转移
  619.         DEC        DSSJF                ;不是0,减1分
  620.         MOV        DSSJM,#59        ;把59放入定时时间(秒)
  621.         RET
  622. TIME8:        MOV        A,DSSJS                ;装入定时时间(时)到寄存器A
  623.         JZ        TIME9                ;如果是0就转移,退出
  624.         DEC        DSSJS                ;不是0,小时减1
  625.         MOV        DSSJM,#59        ;把59放入定时时间(秒)
  626.         MOV        DSSJF,#59        ;把59放入定时时间(分)
  627. TIME9:        RET

  628. ;---------------------------------------------------------------------------------------------
  629. ;子程序:T0中断调用,根据条件控制自然风状态LED指示灯和可控硅
  630. ;---------------------------------------------------------------------------------------------
  631. Control:SETB        LED                ;先熄灭自然风LED指示灯
  632.         JNB        02H,CTL00        ;如果位地址02H(正常/自然风切换)为0(正常)就转移,保持熄灭状态
  633.         CLR        LED                ;为1,自然风状态,点亮LED指示灯
  634. CTL00:        MOV        A,DSSJM                ;装入定时时间(秒)到寄存器A
  635.         JNZ        CTL02                ;如果不是0就转移
  636.         MOV        A,DSSJF                ;装入定时时间(分)到寄存器A
  637.         JNZ        CTL02                ;如果不是0就转移
  638.         MOV        A,DSSJS                ;装入定时时间(时)到寄存器A
  639.         JNZ        CTL02                ;如果不是0就转移
  640. CTL01:        SETB        MOC                ;置MOC为高电平,断电
  641.         RET
  642. CTL02:        JNB        02H,CTL03        ;如果位地址02H(正常/自然风切换)为0(正常)就转移,通电
  643.         MOV        A,SJ                ;是自然风状态,装入自然风时电机通电时长到寄存器A
  644.         JZ        CTL01                ;如果为0(通电倒计时结束)就转移,断电
  645. CTL03:        CLR        MOC                ;置MOC为低电平,通电
  646.         RET

  647. ;------------------------------------------------------------------------------------------
  648. ;子程序:T0中断调用,显示定时时间及各项设置的内容
  649. ;------------------------------------------------------------------------------------------
  650. DISPLAY:JB        06H,DPYSZ1        ;如果位地址06H为1就转移退出,主程序显示88:88
  651.         JB        07H,DPYSZ1        ;如果位地址07H为1就转移退出,主程序显示E1
  652.         MOV        A,DISPL                ;装入要显示的目标
  653.         JZ        DISPL0                ;如果是0(显示定时时间)就转移
  654. DPYSZ:        PUSH        ACC
  655.         MOV        DPTR,#SEGTAB        ;查表获取字形码
  656.         MOVC        A,@A+DPTR        ;查表获取字形码
  657.         MOV        ZXM1,A                ;项目编号字形码放到待发送TM1637区1
  658.         MOV        ZXM2,#40H        ;放入“-”的字形码到待发送TM1637区2
  659.         POP        ACC
  660.         DEC        A                ;减1
  661.         PUSH        01H
  662.         MOV        R1,#ZRFZQ        ;各项设置值始址
  663.         ADD        A,R1                ;加上项目号
  664.         MOV        R1,A                ;得出设置项目的实际地址放入R1
  665.         MOV        A,@R1                ;装入设置值
  666.         POP        01H
  667.         MOV        B,A                ;放入B寄存器
  668.         CJNE        A,XSHC1,DPYSZ3        ;当前设置值与显示缓存1不相同就转移,立即显示
  669.         MOV        A,SJJS                 ;相同,装入时间计数
  670.         JNZ        DPYSZ2                ;不是0就转移,每半秒(遇到50或0)显示一次
  671.         LJMP        DPYSZ3                ;是0,显示
  672. DPYSZ1:        RET
  673. DPYSZ2:        CJNE        A,#50,DPYSZ1        ;不是50就转移退出,每半秒(遇到50或0)显示一次
  674. DPYSZ3:        MOV        XSHC1,B                ;当前设置值放入显示缓存1
  675.         JNB        04H,DPYSZ4        ;如果位地址04H为0(不闪烁)就转移
  676.         JNB        05H,DPYSZ4        ;为1,闪烁显示,如果位地址05H为0(显示)就转移
  677.         CLR        A                ;为1,处于闪烁显示中的“不显示”状态,放入消隐码
  678.         MOV        ZXM1,A                ;放入消隐码
  679.         MOV        ZXM2,A                ;放入消隐码
  680.         MOV        ZXM3,A                ;放入消隐码
  681.         MOV        ZXM4,A                ;放入消隐码
  682.         LJMP        disp                ;跳转到disp,发送4个字节数据到TM1637显示
  683. DPYSZ4:        MOV        A,B                ;当前设置值放入A寄存器
  684.         LCALL        DISPL6                ;转换并获取字形码放到待发送TM1637区3和4
  685.         LJMP        disp                ;跳转到disp,发送4个字节数据到TM1637显示
  686. DISPL0:        MOV        A,DSSJS                ;显示定时时间,装入定时时间(时)
  687.         CJNE        A,XSHC1,DISPL3        ;定时时间(时)与显示缓存1不相同就转移,显示
  688.         MOV        A,DSSJF
  689.         CJNE        A,XSHC2,DISPL3        ;定时时间(分)与显示缓存2不相同就转移,显示
  690.         MOV        A,SJJS                 ;时、分都相同,装入(10)毫秒时间计数
  691.         JNZ        DISPL2                ;不是0就转移
  692.         LJMP        DISPL3                ;是0,显示,每半秒(遇到50或0)显示一次
  693. DISPL1:        RET
  694. DISPL2:        CJNE        A,#50,DISPL1        ;不是50就转移,每半秒(遇到50或0)显示一次
  695. DISPL3:        MOV        XSHC1,DSSJS        ;当前时间放入显示缓存1
  696.         MOV        XSHC2,DSSJF        ;当前时间放入显示缓存2
  697.         MOV        A,DSSJM                ;
  698.         JNZ        DISPL4                ;检查当前定时时间是否全部为0,不是就转移
  699.         MOV        A,DSSJF                ;
  700.         JNZ        DISPL4                ;检查当前定时时间是否全部为0,不是就转移
  701.         MOV        A,DSSJS                ;
  702.         JNZ        DISPL4                ;检查当前定时时间是否全部为0,不是就转移
  703.         CLR        05H                ;定时时间为0,把位地址05H置为0,冒号不闪烁显示
  704. DISPL4:        MOV        A,DSSJS                ;装入“时”
  705.         MOV        B,#10                ;转换为BCD码
  706.         DIV        AB                ;转换为BCD码
  707.         MOV        DPTR,#SEGTAB        ;查表获取字形码
  708.         MOVC        A,@A+DPTR        ;查表获取字形码
  709.         MOV        ZXM1,A                ;字形码放入待发送TM1637区1
  710.         XCH        A,B                ;A、B寄存器内容交换
  711.         MOVC        A,@A+DPTR        ;查表获取字形码
  712.         JB        05H,DISPL5        ;如果05H为1就转移,不显示冒号
  713.         ORL        A,#10000000B        ;为0,把最高位置为1,显示冒号(字形码的最高位为1就显示冒号)
  714. DISPL5:        MOV        ZXM2,A                ;放入待发送TM1637区2
  715.         MOV        A,DSSJF                ;装入“分”
  716.         LCALL        DISPL6                ;转换并获取字形码放到待发送TM1637区3和4
  717.         LJMP        disp                ;跳转到disp,发送4个字节数据到TM1637显示
  718. DISPL6:        MOV        B,#10                ;转换为BCD码
  719.         DIV        AB                ;转换为BCD码
  720.         MOV        DPTR,#SEGTAB        ;查表获取字形码
  721.         MOVC        A,@A+DPTR        ;查表获取字形码
  722.         MOV        ZXM3,A                ;字形码放入待发送TM1637区3
  723.         XCH        A,B                ;A、B寄存器内容交换
  724.         MOVC        A,@A+DPTR        ;查表获取字形码
  725.         MOV        ZXM4,A                ;字形码放入待发送TM1637区4
  726.         RET

  727. ;------------------ 发送4个字节数据到TM1637显示,地址自动加1 ------------------
  728. disp:        LCALL        Srt
  729.         MOV          A,#040H                ;数据命令设置40H:地址自动加1,写数据到显示寄存器
  730.         LCALL        Writebyte        ;发送一个字节
  731.         LCALL        Stop
  732.         NOP
  733.         LCALL        Srt
  734.         MOV          A,#0C0H                ;地址命令设置C0H:初始地址为00H
  735.         LCALL        Writebyte        ;发送一个字节
  736.         PUSH        01H
  737.         PUSH        06H
  738.         MOV        06H,#4                ;发送4个字节数据
  739.         MOV          R1,#ZXM1        ;等待发送的字形码始址
  740. disp1:        MOV          A,@R1                ;装入要发送的字形码
  741.         LCALL        Writebyte        ;发送一个字节
  742.         INC          R1                ;地址加1
  743.         DJNZ        06H,disp1            ;如果还未发送完就继续
  744.         POP        06H
  745.         POP        01H
  746.         LCALL        Stop
  747.         LCALL        Srt
  748.         MOV        A,SMGLD                ;装入设置的数码管亮度(1~8)
  749.         ADD        A,#087H                ;加上87H后即为对应的亮度控制命令88H~8FH
  750.         LCALL        Writebyte        ;按设置的亮度开显示
  751.         LJMP         Stop

  752. ;------------------ 发送8bit(一个字节)数据到TM1637,A=要发送的数据,从低位开始 ------------------
  753. Writebyte:
  754.         PUSH        00H
  755.         MOV        00H,#8                ;发送8位数据
  756. WBY1:        CLR          CLK                ;拉低CLK
  757.         JNB          ACC.0,WBY2        ;A寄存器的低位(0位)如果为0就转移
  758.         SETB         DIO                ;为1,拉高DIO
  759.         SJMP         WBY3
  760. WBY2:        CLR          DIO                ;为0,拉低DIO
  761. WBY3:        NOP         
  762.         NOP         
  763.         NOP         
  764.         NOP         
  765.         NOP         
  766.         SETB         CLK                ;拉高CLK
  767.         CLR          C                ;进位标志清0
  768.         RRC          A                ;A寄存器内容带进位循环右移
  769.         DJNZ        00H,WBY1            ;如果还未发送完8bit数据就继续
  770. WBY4:        CLR          CLK                ;8位数据发送完了
  771.         NOP
  772.         MOV        00H,#05                ;设置等待应答信号计数值,防止万一与TM1637通讯失败而造成死循环
  773. WBY5:        DEC        00H                ;减1,正常情况下ACK应答信号很快,第一次减1就会有应答
  774.         MOV        A,00H                ;装入计数值到A
  775.         JZ        WBY6                ;如果为0就转移退出,说明与TM1637通讯失败,或TM1637不存在
  776.         JB        DIO,WBY5        ;不为0,判断TM1637发过来的ACK应答信号,未应答(为1,高电平)就转移
  777. WBY6:        POP        00H
  778.         NOP         
  779.         NOP         
  780.         NOP
  781.         SETB         CLK
  782.         NOP         
  783.         NOP         
  784.         NOP
  785.         RET         

  786. ;------------------ Start子程序 ------------------
  787. Srt:        SETB         DIO        ;拉高DIO
  788.         SETB         CLK        ;拉高CLK
  789.         NOP         
  790.         NOP         
  791.         NOP         
  792.         NOP         
  793.         NOP         
  794.         SETB         DIO        ;拉高DIO
  795.         NOP         
  796.         NOP         
  797.         NOP         
  798.         NOP         
  799.         NOP         
  800.         CLR          DIO        ;拉低DIO
  801.         NOP         
  802.         NOP         
  803.         NOP         
  804.         NOP         
  805.         NOP         
  806.         CLR          CLK        ;拉低CLK
  807.         RET         

  808. ;------------------ Stop子程序 ------------------
  809. Stop:        CLR          CLK
  810.         NOP         
  811.         NOP         
  812.         NOP         
  813.         NOP         
  814.         NOP         
  815.         NOP         
  816.         NOP         
  817.         NOP         
  818.         NOP         
  819.         NOP         
  820.         CLR          DIO
  821.         NOP         
  822.         NOP         
  823.         NOP         
  824.         NOP         
  825.         NOP         
  826.         NOP         
  827.         NOP         
  828.         NOP         
  829.         NOP         
  830.         NOP         
  831.         SETB         CLK
  832.         NOP         
  833.         NOP         
  834.         NOP         
  835.         NOP         
  836.         NOP         
  837.         NOP         
  838.         NOP         
  839.         NOP         
  840.         NOP         
  841.         NOP         
  842.         NOP         
  843.         NOP         
  844.         NOP         
  845.         NOP         
  846.         NOP         
  847.         SETB         DIO
  848.         NOP         
  849.         NOP         
  850.         NOP         
  851.         NOP         
  852.         NOP         
  853.         CLR          CLK
  854.         CLR          DIO
  855.         RET         

  856. ;------------------ 字形表 ------------------
  857. SEGTAB:
  858.         DB  00111111B  ;0(3FH)
  859.         DB  00000110B  ;1(06H)
  860.         DB  01011011B  ;2(5BH)
  861.         DB  01001111B  ;3(4FH)
  862.         DB  01100110B  ;4(66H)
  863.         DB  01101101B  ;5(6DH)
  864.         DB  01111101B  ;6(7DH)
  865.         DB  00000111B  ;7(07H)
  866.         DB  01111111B  ;8(7FH)
  867.         DB  01101111B  ;9(6FH)
  868.         DB  01110111B  ;A(77H)
  869.         DB  01111100B  ;B(7CH)
  870.         DB  00111001B  ;C(39H)
  871.         DB  01011110B  ;D(5EH)
  872.         DB  01111001B  ;E(79H)
  873.         DB  01110001B  ;F(71H)
  874.         DB  00000000B  ;消隐码(00)

  875. ;------------------------------------------------------------------------------------------

  876.         END
复制代码

以上资料51hei下载地址:
电风扇长定时器.rar (95.52 KB, 下载次数: 93)


评分

参与人数 2黑币 +100 收起 理由
新乡家电维修 + 10 共享资料的黑币奖励!
admin + 90 共享资料的黑币奖励!

查看全部评分

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏20 分享淘帖 顶2 踩
回复

使用道具 举报

沙发
ID:517951 发表于 2020-11-13 21:34 | 只看该作者
完全汇编,牛!
回复

使用道具 举报

板凳
ID:756506 发表于 2020-11-14 08:24 | 只看该作者
楼主好牛,汇编玩的这么溜,膜拜!
回复

使用道具 举报

地板
ID:8222 发表于 2020-11-15 08:51 | 只看该作者
这是个大牛!!很厉害!!
回复

使用道具 举报

5#
ID:8222 发表于 2021-1-6 13:30 | 只看该作者
看汇编,就象看天书!!牛人才能玩这个!!
回复

使用道具 举报

6#
ID:23844 发表于 2021-1-30 17:36 | 只看该作者
汇编玩的溜,大侠级别,如果没有写注释的话,比较难看懂。楼主威武
回复

使用道具 举报

7#
ID:87631 发表于 2021-2-2 16:37 | 只看该作者
牛人啊,这只在学校玩过,现在不玩了
回复

使用道具 举报

8#
ID:430492 发表于 2022-4-7 13:05 | 只看该作者
楼主好牛汇编玩的这么溜,膜拜中!!!!
回复

使用道具 举报

9#
ID:76044 发表于 2022-8-25 11:20 | 只看该作者
楼主 能否辛苦下把TM1637显示这部分的汇编代码发一下,如让数码管显示1.2.3.4.5.6,辛苦一下,很期待
回复

使用道具 举报

10#
ID:53978 发表于 2022-9-1 17:05 | 只看该作者
可以用TM1650吗?
回复

使用道具 举报

11#
ID:748535 发表于 2022-11-8 16:10 | 只看该作者
不错不错  , 可以移植
回复

使用道具 举报

12#
ID:1088110 发表于 2023-7-11 16:52 | 只看该作者
这汇编666
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|51黑电子论坛 |51黑电子论坛6群 QQ 管理员QQ:125739409;技术交流QQ群281945664

Powered by 单片机教程网

快速回复 返回顶部 返回列表