设为首页收藏本站
开启辅助访问 切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

热门： 51单片机 | 24小时必答区 | 单片机教程 | 单片机DIY制作 | STM32 | Cortex M3 | 模数电子 | 电子DIY制作 | 音响/功放 | 拆机乐园 | Arduino | 嵌入式OS | 程序设计

搜索
»论坛 › 嵌入式/单片机论坛 › 51单片机 › 51单片机21路加热温度控制程序（汇编）
返回列表 发新帖
查看: 4719|回复: 1
收起左侧

51单片机21路加热温度控制程序（汇编）

[复制链接]
ID:70976 发表于 2014-12-26 22:40 | 显示全部楼层 |阅读模式
  1. ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  2. ;原理：通过改变加热管通电和断电时间比达到控制温度作用。
  3. ;可以独立设置21路加热管通断的百分比值。
  4. ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  5. ;设置参数方法：同时按下主机面板上的“区域”和“上调”（或“下调”）键，
  6. ;调到需要设定参数的区域后，停止按按键，然后再同时按下“参数”和“上调”（或“下调”）键，
  7. ;设定该区域的参数，参数设定范围0~100%，当设定参数为0%时关闭加热管，
  8. ;当设定参数为100%时加热管常通电，当设定参数为50%时加热管通断时间比为1:1（即各50%），
  9. ;其他参数以此类推。
  10. ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

  12.       SC01# EQU P0.0    ;1#输出
  13.       SC02# EQU P0.1    ;2#输出，以下雷同，共24路输出
  14.       SC03# EQU P0.2
  15.       SC04# EQU P0.3
  16.       SC05# EQU P0.4
  17.       SC06# EQU P0.5
  18.       SC07# EQU P0.6
  19.       SC08# EQU P0.7

  21.       SC09# EQU P1.0
  22.       SC10# EQU P1.1
  23.       SC11# EQU P1.2
  24.       SC12# EQU P1.3
  25.       SC13# EQU P1.4
  26.       SC14# EQU P1.5
  27.       SC15# EQU P1.6
  28.       SC16# EQU P1.7

  30.       SC17# EQU P2.0
  31.       SC18# EQU P2.1
  32.       SC19# EQU P2.2
  33.       SC20# EQU P2.3
  34.       SC21# EQU P2.4
  35.       SC22# EQU P2.5
  36.       SC23# EQU P2.6
  37.       SC24# EQU P2.7

  39.       XS1A2 EQU P3.0    ;RXD,P3.0接74LS164 1A2端，用于显示，不能改变
  40.       XSCLK EQU P3.1    ;TXD,P3.1接74LS164 CLK端，用于显示，不能改变

  42.       AJQUY EQU P3.2    ;设置区域的按键，要同时按下区域键和上调或下调键方可调节
  43.       AJCSH EQU P3.3    ;设置参数的按键，要同时按下参数键和上调或下调键方可调节
  44.       AJSHT EQU P3.4    ;上调按键
  45.       AJXIT EQU P3.5    ;下调按键

  47.       SDA   EQU P3.6    ;EEPROM数据传送口，必须接上拉电阻，否则有时开机不正常
  48.       SCL   EQU P3.7    ;EEPROM时钟传送口，必须接上拉电阻，否则有时开机不正常

  50.       KMWDT EQU 0E1H    ;看门狗地址

  52.       ORG  0000H ;程序执行开始地址
  53.       LJMP KS    ;跳至KS
  54.       ORG  0003H ;外中断0中断程序入口
  55.       RETI              ;跳至INT_0中断服务程序
  56.       ORG  000BH        ;定时器T0中断程序入口
  57.       LJMP INTT0        ;中断返回
  58.       ORG  0013H ;外中断1中断入口
  59.       RETI         ;中断返回
  60.       ORG  001BH ;定时器T1中断程序入口
  61.       RETI         ;跳至INTT1中断服务程序
  62.       ORG  0023H ;串口中断入口地址
  63.       RETI

  65.       ORG  0200H
  66. ;------------------------------------
  67. ;开机初始化
  68. ;------------------------------------
  69. KS:   MOV KMWDT,#00111100B ;设置看门狗
  70.       MOV R0,#0FFH      ;延时，待电源正常后系统才开始工作
  71.       DJNZ R0,$
  72.       MOV P0,#0FFH
  73.       MOV P1,#0FFH
  74.       MOV P2,#0FFH
  75.       MOV P3,#0FFH
  76.       MOV SP,#70H
  77.       MOV TMOD,#01H    ;设置T0为16位定时器，方式1
  78.       MOV TH0,#0D8H    ;设定T0的定时初值，12M晶振，定时为10ms，
  79.       MOV TL0,#0F0H    ;通断总时间周期=10ms×100（因为分成100%）=1s
  80.       SETB ET0         ;允许T0中断
  81.       SETB EA          ;开中断

  83.       MOV 6FH,#00H     ;6FH为10mS时间到标志，现置零


  86. ;开始运行,调用存储器保存的数据
  87. ;------------------------------------
  88.       LCALL  READ_DATA ;将EEPROM中原里程数据调入内存

  90. ;------------------------------------
  91.       MOV 48H,#1       ;设定开机后显示屏显示1#区域的参数
  92.       LCALL LEDXS1     ;调用显示程序
  93. ;------------------------------------

  95. ;把各区域内的参数值提取用于控制和显示
  96.       MOV 50H,30H      ;50H为1#输出时间参数值缓存区
  97.       MOV 51H,31H      ;51H为2#输出时间参数值缓存区
  98.       MOV 52H,32H      ;以下以此类推
  99.       MOV 53H,33H
  100.       MOV 54H,34H
  101.       MOV 55H,35H
  102.       MOV 56H,36H
  103.       MOV 57H,37H
  104.       MOV 58H,38H
  105.       MOV 59H,39H

  107.       MOV 5AH,3AH
  108.       MOV 5BH,3BH
  109.       MOV 5CH,3CH
  110.       MOV 5DH,3DH
  111.       MOV 5EH,3EH
  112.       MOV 5FH,3FH
  113.       MOV 60H,40H
  114.       MOV 61H,41H
  115.       MOV 62H,42H
  116.       MOV 63H,43H

  118.       MOV 64H,44H
  119.       MOV 65H,45H
  120.       MOV 66H,46H
  121.       MOV 67H,47H
  122. ;------------------------------------

  124. ;各输出运行状态标志置零
  125.       CLR 01H         ;01H为1#输出运行状态标志（区分输出是高电平还是低电平）
  126.       CLR 02H         ;02H为2#输出运行状态标志（区分输出是高电平还是低电平）
  127.       CLR 03H         ;以下以此类推
  128.       CLR 04H
  129.       CLR 05H
  130.       CLR 06H
  131.       CLR 07H
  132.       CLR 08H
  133.       CLR 09H

  135.       CLR 0AH
  136.       CLR 0BH
  137.       CLR 0CH
  138.       CLR 0DH
  139.       CLR 0EH
  140.       CLR 0FH
  141.       CLR 10H
  142.       CLR 11H
  143.       CLR 12H
  144.       CLR 13H

  146.       CLR 14H
  147.       CLR 15H
  148.       CLR 16H
  149.       CLR 17H
  150.       CLR 18H
  151.       SETB TR0         ;启动T0

  153. ;------------------------------------
  154. ;按键处理程序
  155. ;------------------------------------
  156. L1:   JB AJQUY,L5      ;设置区域值
  157.       MOV P0,#0FFH     ;设置区域时关闭所有输出口
  158.       MOV P1,#0FFH
  159.       MOV P2,#0FFH
  160.       JB AJSHT,L3      ;上调区域，此时同时显示该区域的参数
  161.       MOV A,48H
  162.       CJNE A,#24,L2    ;检查调节区域值是否到达24区
  163.       SJMP L0          ;到达24区的停止
  164. L2:   INC 48H          ;调节区域值步进加1
  165.       SJMP L0

  167. L3:   JB AJXIT,L1      ;下调区域，此时同时显示该区域的参数
  168.       MOV A,48H
  169.       CJNE A,#1,L4     ;检查调节区域值是否到达1区
  170.       SJMP L0          ;到达1区的停止
  171. L4:   DEC 48H          ;调节区域值步进减1

  173. L0:   MOV A,#2FH       ;30H起开始放参数值，1区对应30H，2区对应31H，其他雷同
  174.       ADD A,48H        ;48H放当前区域值
  175.       MOV R1,0E0H      ;0E0H即为A的地址
  176.       MOV 49H,@R1      ;49H放当前区域的参数值
  177.       LCALL LEDXS1     ;调用显示子程序
  178.       LCALL YS1        ;延时
  179.       SJMP L1          ;返回再执行
  180. ;_____________________________________

  182. L5:   JB AJCSH,L00     ;设置参数值
  183.       MOV P0,#0FFH     ;设置区域时关闭所有输出口
  184.       MOV P1,#0FFH
  185.       MOV P2,#0FFH
  186.       MOV A,#2FH       ;30H起开始放参数值，因为以下要加1，所以从2FH开始
  187.       ADD A,48H
  188.       MOV R1,0E0H      ;0E0H即为A的地址
  189.       MOV 49H,@R1
  190.       JB AJSHT,L7      ;上调参数

  192.       MOV A,49H
  193.       CJNE A,#100,L6   ;参数等于100%不能再调
  194.       SJMP L0
  195. L6:   INC 49H          ;参数调节步进加1
  196.       SJMP L9

  198. L7:   JB AJXIT,L1      ;下调参数
  199.       MOV A,49H
  200.       CJNE A,#0,L8     ;参数等于0%不能再调
  201.       SJMP L0
  202. L8:   DEC 49H          ;参数调节步进减1
  203. L9:   MOV @R1,49H
  204.       LCALL LEDXS1     ;调用显示子程序
  205.       LCALL WRITE_DATA ;把参数值数据存入EEPROM，防止掉电数据丢失
  206.       LCALL YS1        ;延时
  207.       SJMP L1          ;返回再执行

  209. ;------------------------------------
  210. ;输出
  211. ;------------------------------------
  212. L00:  MOV A,30H       ;检查1#参数是否为0%
  213.       JNZ L01         ;1#参数不为0%时继续检测
  214.       SETB SC01#      ;1#参数为0%时关闭1#输出
  215.       SJMP L10        ;关闭1#输出后转检测2#端口
  216. L01:  CJNE A,#100,L02 ;检查1#参数是否为100%
  217.       CLR SC01#       ;1#参数为100%时1#有输出
  218.       SJMP L10        ;接通1#输出后转检测2#端口
  219. L02:  JB 01H,L03      ;判断1#输出是高电平还是低电平
  220.       CLR SC01#       ;1#输出是高电平的且不为0%或100#的按参数运行
  221.       DEC 50H         ;参数减法，直到为0
  222.       MOV A,50H
  223.       JNZ L10         ;参数减到0，未到0的转检测2#端口
  224.       CLR C           ;参数减到0，开始转为关闭,清空C
  225.       MOV A,#100      ;关闭的时间参数=100-原设定的参数
  226.       SUBB A,30H      ;原设定的参数放在30H
  227.       MOV 50H,A       ;关闭的时间参数放在50H
  228.       SETB 01H        ;置位，为1表示输出状态由高电平转为低电平
  229. L03:  SETB SC01#      ;按设定的时间参数高电平输出完后转为低电平输出
  230.       DEC 50H         ;参数减法，直到为0
  231.       MOV A,50H
  232.       JNZ L10         ;参数减到0，未到0的转检测2#端口
  233.       MOV 50H,30H     ;低电平按设定的时间参数输出完后返回转为高电平输出
  234.       CLR 01H         ;清标志位，为0表示输出状态由低电平转为高电平

  236. L10:  MOV A,31H       ;以下以此类推
  237.       JNZ L11
  238.       SETB SC02#
  239.       SJMP L20
  240. L11:  CJNE A,#100,L12
  241.       CLR SC02#
  242.       SJMP L20
  243. L12:  JB 02H,L13
  244.       CLR SC02#
  245.       DEC 51H
  246.       MOV A,51H
  247.       JNZ L20
  248.       CLR C
  249.       MOV A,#100
  250.       SUBB A,31H
  251.       MOV 51H,A
  252.       SETB 02H
  253. L13:  SETB SC02#
  254.       DEC 51H
  255.       MOV A,51H
  256.       JNZ L20
  257.       MOV 51H,31H
  258.       CLR 02H

  260. L20:  MOV A,32H
  261.       JNZ L21
  262.       SETB SC03#
  263.       SJMP L30
  264. L21:  CJNE A,#100,L22
  265.       CLR SC03#
  266.       SJMP L30
  267. L22:  JB 03H,L23
  268.       CLR SC03#
  269.       DEC 52H
  270.       MOV A,52H
  271.       JNZ L30
  272.       CLR C
  273.       MOV A,#100
  274.       SUBB A,32H
  275.       MOV 52H,A
  276.       SETB 03H
  277. L23:  SETB SC03#
  278.       DEC 52H
  279.       MOV A,52H
  280.       JNZ L30
  281.       MOV 52H,32H
  282.       CLR 03H

  284. L30:  MOV A,33H
  285.       JNZ L31
  286.       SETB SC04#
  287.       SJMP L40
  288. L31:  CJNE A,#100,L32
  289.       CLR SC04#
  290.       SJMP L40
  291. L32:  JB 04H,L33
  292.       CLR SC04#
  293.       DEC 53H
  294.       MOV A,53H
  295.       JNZ L40
  296.       CLR C
  297.       MOV A,#100
  298.       SUBB A,33H
  299.       MOV 53H,A
  300.       SETB 04H
  301. L33:  SETB SC04#
  302.       DEC 53H
  303.       MOV A,53H
  304.       JNZ L40
  305.       MOV 53H,33H
  306.       CLR 04H

  308. L40:  MOV A,34H
  309.       JNZ L41
  310.       SETB SC05#
  311.       SJMP L50
  312. L41:  CJNE A,#100,L42
  313.       CLR SC05#
  314.       SJMP L50
  315. L42:  JB 05H,L43
  316.       CLR SC05#
  317.       DEC 54H
  318.       MOV A,54H
  319.       JNZ L50
  320.       CLR C
  321.       MOV A,#100
  322.       SUBB A,34H
  323.       MOV 54H,A
  324.       SETB 05H
  325. L43:  SETB SC05#
  326.       DEC 54H
  327.       MOV A,54H
  328.       JNZ L50
  329.       MOV 54H,34H
  330.       CLR 05H

  332. L50:  MOV A,35H
  333.       JNZ L51
  334.       SETB SC06#
  335.       SJMP L60
  336. L51:  CJNE A,#100,L52
  337.       CLR SC06#
  338.       SJMP L60
  339. L52:  JB 06H,L53
  340.       CLR SC06#
  341.       DEC 55H
  342.       MOV A,55H
  343.       JNZ L60
  344.       CLR C
  345.       MOV A,#100
  346.       SUBB A,35H
  347.       MOV 55H,A
  348.       SETB 06H
  349. L53:  SETB SC06#
  350.       DEC 55H
  351.       MOV A,55H
  352.       JNZ L60
  353.       MOV 55H,35H
  354.       CLR 06H

  356. L60:  MOV A,36H
  357.       JNZ L61
  358.       SETB SC07#
  359.       SJMP L70
  360. L61:  CJNE A,#100,L62
  361.       CLR SC07#
  362.       SJMP L70
  363. L62:  JB 07H,L63
  364.       CLR SC07#
  365.       DEC 56H
  366.       MOV A,56H
  367.       JNZ L70
  368.       CLR C
  369.       MOV A,#100
  370.       SUBB A,36H
  371.       MOV 56H,A
  372.       SETB 07H
  373. L63:  SETB SC07#
  374.       DEC 56H
  375.       MOV A,56H
  376.       JNZ L70
  377.       MOV 56H,36H
  378.       CLR 07H

  380. L70:  MOV A,37H
  381.       JNZ L71
  382.       SETB SC08#
  383.       SJMP L80
  384. L71:  CJNE A,#100,L72
  385.       CLR SC08#
  386.       SJMP L80
  387. L72:  JB 08H,L73
  388.       CLR SC08#
  389.       DEC 57H
  390.       MOV A,57H
  391.       JNZ L80
  392.       CLR C
  393.       MOV A,#100
  394.       SUBB A,37H
  395.       MOV 57H,A
  396.       SETB 08H
  397. L73:  SETB SC08#
  398.       DEC 57H
  399.       MOV A,57H
  400.       JNZ L80
  401.       MOV 57H,37H
  402.       CLR 08H

  404. L80:  MOV A,38H
  405.       JNZ L81
  406.       SETB SC09#
  407.       SJMP L90
  408. L81:  CJNE A,#100,L82
  409.       CLR SC09#
  410.       SJMP L90
  411. L82:  JB 09H,L83
  412.       CLR SC09#
  413.       DEC 58H
  414.       MOV A,58H
  415.       JNZ L90
  416.       CLR C
  417.       MOV A,#100
  418.       SUBB A,38H
  419.       MOV 58H,A
  420.       SETB 09H
  421. L83:  SETB SC09#
  422.       DEC 58H
  423.       MOV A,58H
  424.       JNZ L90
  425.       MOV 58H,38H
  426.       CLR 09H

  428. L90:  MOV A,39H
  429.       JNZ L91
  430.       SETB SC10#
  431.       SJMP LA0
  432. L91:  CJNE A,#100,L92
  433.       CLR SC10#
  434.       SJMP LA0
  435. L92:  JB 0AH,L93
  436.       CLR SC10#
  437.       DEC 59H
  438.       MOV A,59H
  439.       JNZ LA0
  440.       CLR C
  441.       MOV A,#100
  442.       SUBB A,39H
  443.       MOV 59H,A
  444.       SETB 0AH
  445. L93:  SETB SC10#
  446.       DEC 59H
  447.       MOV A,59H
  448.       JNZ LA0
  449.       MOV 59H,39H
  450.       CLR 0AH

  452. LA0:  MOV A,3AH
  453.       JNZ LA1
  454.       SETB SC11#
  455.       SJMP LB0
  456. LA1:  CJNE A,#100,LA2
  457.       CLR SC11#
  458.       SJMP LB0
  459. LA2:  JB 0BH,LA3
  460.       CLR SC11#
  461.       DEC 5AH
  462.       MOV A,5AH
  463.       JNZ LB0
  464.       CLR C
  465.       MOV A,#100
  466.       SUBB A,3AH
  467.       MOV 5AH,A
  468.       SETB 0BH
  469. LA3:  SETB SC11#
  470.       DEC 5AH
  471.       MOV A,5AH
  472.       JNZ LB0
  473.       MOV 5AH,3AH
  474.       CLR 0BH

  476. LB0:  MOV A,3BH
  477.       JNZ LB1
  478.       SETB SC12#
  479.       SJMP LC0
  480. LB1:  CJNE A,#100,LB2
  481.       CLR SC12#
  482.       SJMP LC0
  483. LB2:  JB 0CH,LB3
  484.       CLR SC12#
  485.       DEC 5BH
  486.       MOV A,5BH
  487.       JNZ LC0
  488.       CLR C
  489.       MOV A,#100
  490.       SUBB A,3BH
  491.       MOV 5BH,A
  492.       SETB 0CH
  493. LB3:  SETB SC12#
  494.       DEC 5BH
  495.       MOV A,5BH
  496.       JNZ LC0
  497.       MOV 5BH,3BH
  498.       CLR 0CH

  500. LC0:  MOV A,3CH
  501.       JNZ LC1
  502.       SETB SC13#
  503.       SJMP LD0
  504. LC1:  CJNE A,#100,LC2
  505.       CLR SC13#
  506.       SJMP LD0
  507. LC2:  JB 0DH,LC3
  508.       CLR SC13#
  509.       DEC 5CH
  510.       MOV A,5CH
  511.       JNZ LD0
  512.       CLR C
  513.       MOV A,#100
  514.       SUBB A,3CH
  515.       MOV 5CH,A
  516.       SETB 0DH
  517. LC3:  SETB SC13#
  518.       DEC 5CH
  519.       MOV A,5CH
  520.       JNZ LD0
  521.       MOV 5CH,3CH
  522.       CLR 0DH

  524. LD0:  MOV A,3DH
  525.       JNZ LD1
  526.       SETB SC14#
  527.       SJMP LE0
  528. LD1:  CJNE A,#100,LD2
  529.       CLR SC14#
  530.       SJMP LE0
  531. LD2:  JB 0EH,LD3
  532.       CLR SC14#
  533.       DEC 5DH
  534.       MOV A,5DH
  535.       JNZ LE0
  536.       CLR C
  537.       MOV A,#100
  538.       SUBB A,3DH
  539.       MOV 5DH,A
  540.       SETB 0EH
  541. LD3:  SETB SC14#
  542.       DEC 5DH
  543.       MOV A,5DH
  544.       JNZ LE0
  545.       MOV 5DH,3DH
  546.       CLR 0EH

  548. LE0:  MOV A,3EH
  549.       JNZ LE1
  550.       SETB SC15#
  551.       SJMP LF0
  552. LE1:  CJNE A,#100,LE2
  553.       CLR SC15#
  554.       SJMP LF0
  555. LE2:  JB 0FH,LE3
  556.       CLR SC15#
  557.       DEC 5EH
  558.       MOV A,5EH
  559.       JNZ LF0
  560.       CLR C
  561.       MOV A,#100
  562.       SUBB A,3EH
  563.       MOV 5EH,A
  564.       SETB 0FH
  565. LE3:  SETB SC15#
  566.       DEC 5EH
  567.       MOV A,5EH
  568.       JNZ LF0
  569.       MOV 5EH,3EH
  570.       CLR 0FH

  572. LF0:  MOV A,3FH
  573.       JNZ LF1
  574.       SETB SC16#
  575.       SJMP LFA
  576. LF1:  CJNE A,#100,LF2
  577.       CLR SC16#
  578.       SJMP LFA
  579. LF2:  JB 10H,LF3
  580.       CLR SC16#
  581.       DEC 5FH
  582.       MOV A,5FH
  583.       JNZ LFA
  584.       CLR C
  585.       MOV A,#100
  586.       SUBB A,3FH
  587.       MOV 5FH,A
  588.       SETB 10H
  589. LF3:  SETB SC16#
  590.       DEC 5FH
  591.       MOV A,5FH
  592.       JNZ LFA
  593.       MOV 5FH,3FH
  594.       CLR 10H

  596. LFA:  MOV A,40H
  597.       JNZ LF10
  598.       SETB SC17#
  599.       SJMP LFB
  600. LF10: CJNE A,#100,LF11
  601.       CLR SC17#
  602.       SJMP LFB
  603. LF11: JB 11H,LF12
  604.       CLR SC17#
  605.       DEC 60H
  606.       MOV A,60H
  607.       JNZ LFB
  608.       CLR C
  609.       MOV A,#100
  610.       SUBB A,40H
  611.       MOV 60H,A
  612.       SETB 11H
  613. LF12: SETB SC17#
  614.       DEC 60H
  615.       MOV A,60H
  616.       JNZ LFB
  617.       MOV 60H,40H
  618.       CLR 11H

  620. LFB:  MOV A,41H
  621.       JNZ LF20
  622.       SETB SC18#
  623.       SJMP LFC
  624. LF20: CJNE A,#100,LF21
  625.       CLR SC18#
  626.       SJMP LFC
  627. LF21: JB 12H,LF22
  628.       CLR SC18#
  629.       DEC 61H
  630.       MOV A,61H
  631.       JNZ LFC
  632.       CLR C
  633.       MOV A,#100
  634.       SUBB A,41H
  635.       MOV 61H,A
  636.       SETB 12H
  637. LF22: SETB SC18#
  638.       DEC 61H
  639.       MOV A,61H
  640.       JNZ LFC
  641.       MOV 61H,41H
  642.       CLR 12H

  644. LFC:  MOV A,42H
  645.       JNZ LF30
  646.       SETB SC19#
  647.       SJMP LFD
  648. LF30: CJNE A,#100,LF31
  649.       CLR SC19#
  650.       SJMP LFD
  651. LF31: JB 13H,LF32
  652.       CLR SC19#
  653.       DEC 62H
  654.       MOV A,62H
  655.       JNZ LFD
  656.       CLR C
  657.       MOV A,#100
  658.       SUBB A,42H
  659.       MOV 62H,A
  660.       SETB 13H
  661. LF32: SETB SC19#
  662.       DEC 62H
  663.       MOV A,62H
  664.       JNZ LFD
  665.       MOV 62H,42H
  666.       CLR 13H

  668. LFD:  MOV A,43H
  669.       JNZ LF40
  670.       SETB SC20#
  671.       SJMP LFE
  672. LF40: CJNE A,#100,LF41
  673.       CLR SC20#
  674.       SJMP LFE
  675. LF41: JB 14H,LF42
  676.       CLR SC20#
  677.       DEC 63H
  678.       MOV A,63H
  679.       JNZ LFE
  680.       CLR C
  681.       MOV A,#100
  682.       SUBB A,43H
  683.       MOV 63H,A
  684.       SETB 14H
  685. LF42: SETB SC20#
  686.       DEC 63H
  687.       MOV A,63H
  688.       JNZ LFE
  689.       MOV 63H,43H
  690.       CLR 14H


  693. LFE:  MOV A,44H
  694.       JNZ LF50
  695.       SETB SC21#
  696.       SJMP LFF
  697. LF50: CJNE A,#100,LF51
  698.       CLR SC21#
  699.       SJMP LFF
  700. LF51: JB 15H,LF52
  701.       CLR SC21#
  702.       DEC 64H
  703.       MOV A,64H
  704.       JNZ LFF
  705.       CLR C
  706.       MOV A,#100
  707.       SUBB A,44H
  708.       MOV 64H,A
  709.       SETB 15H
  710. LF52: SETB SC21#
  711.       DEC 64H
  712.       MOV A,64H
  713.       JNZ LFF
  714.       MOV 64H,44H
  715.       CLR 15H

  717. LFF:  MOV A,45H
  718.       JNZ LF60
  719.       SETB SC22#
  720.       SJMP LFG
  721. LF60: CJNE A,#100,LF61
  722.       CLR SC22#
  723.       SJMP LFG
  724. LF61: JB 16H,LF62
  725.       CLR SC22#
  726.       DEC 65H
  727.       MOV A,65H
  728.       JNZ LFG
  729.       CLR C
  730.       MOV A,#100
  731.       SUBB A,45H
  732.       MOV 65H,A
  733.       SETB 16H
  734. LF62: SETB SC22#
  735.       DEC 65H
  736.       MOV A,65H
  737.       JNZ LFG
  738.       MOV 65H,45H
  739.       CLR 16H

  741. LFG:  MOV A,46H
  742.       JNZ LF70
  743.       SETB SC23#
  744.       SJMP LFH
  745. LF70: CJNE A,#100,LF71
  746.       CLR SC23#
  747.       SJMP LFH
  748. LF71: JB 17H,LF72
  749.       CLR SC23#
  750.       DEC 66H
  751.       MOV A,66H
  752.       JNZ LFH
  753.       CLR C
  754.       MOV A,#100
  755.       SUBB A,46H
  756.       MOV 66H,A
  757.       SETB 17H
  758. LF72: SETB SC23#
  759.       DEC 66H
  760.       MOV A,66H
  761.       JNZ LFH
  762.       MOV 66H,46H
  763.       CLR 17H

  765. LFH:  MOV A,47H
  766.       JNZ LF80
  767.       SETB SC24#
  768.       SJMP LFI
  769. LF80: CJNE A,#100,LF81
  770.       CLR SC24#
  771.       SJMP LFI
  772. LF81: JB 18H,LF82
  773.       CLR SC24#
  774.       DEC 67H
  775.       MOV A,67H
  776.       JNZ LFI
  777.       CLR C
  778.       MOV A,#100
  779.       SUBB A,47H
  780.       MOV 67H,A
  781.       SETB 18H
  782. LF82: SETB SC24#
  783.       DEC 67H
  784.       MOV A,67H
  785.       JNZ LFI
  786.       MOV 67H,47H
  787.       CLR 18H
  788. ;------------------------------------
  789. ;等待10mS到
  790. ;------------------------------------
  791. LFI:  LCALL DISP          ;调用显示程序
  792. L123: MOV A,6FH
  793.       MOV KMWDT,#00111100B;设置看门狗
  794.       CJNE A,#01H,L123
  795.       MOV 6FH,#00H
  796.       LJMP L1

  798. ;------------------------------------
  799. z;显示转化程序，48H放区域值，49H放到参数值，转换后6AH放区域值高位，
  800. ;6BH放区域值低位，6CH、6DH、6EH放参数值，
  801. ;------------------------------------
  802. LEDXS1:MOV B,#10          ;显示程序,为拆分计数值送显示器作准备
  803.       MOV A,48H           ;余数作个位
  804.       DIV AB              ;将计数值除以10，高位进A，余数进B
  805.       MOV 6BH,B
  806.       JNZ LOOP1
  807.       MOV 6AH,#10
  808.       SJMP LOOP2
  809. LOOP1:MOV 6AH,A

  811. LOOP2:MOV A,#2FH
  812.       ADD A,48H
  813.       MOV R1,0E0H
  814.       MOV 49H,@R1
  815.       MOV B,#10           ;显示程序,为拆分计数值送显示器作准备
  816.       MOV A,49H           ;余数作个位
  817.       DIV AB              ;将计数值除以10，高位进A，余数进B
  818.       MOV 6EH,B
  819.       MOV B,#10
  820.       DIV AB
  821.       MOV 6DH,B
  822.       JNZ LOOP3
  823.       MOV 6CH,#10
  824.       SJMP LOOP4
  825. LOOP3:MOV 6CH,A
  826. LOOP4:LCALL DISP
  827.       RET

  829. ;------------------------------------
  830. ;显示程序
  831. ;------------------------------------

  833. DISP: SETB XS1A2          ;P3.0端口置1
  834.       SETB XSCLK          ;P3.1端口置1
  835.       MOV SCON,#00H       ;初始化串行口方式0
  836.       MOV R2,#05H         ;显示5位数
  837.       MOV R1,#6EH         ;60H-65H为显示缓冲区
  838.       MOV DPTR,#SETTAB    ;字形表的入口地址
  839. L00P: MOV A,@R1           ;取最高位的待显示数据
  840.       MOVC A,@A+DPTR      ;查表获取字形码
  841.       MOV SBUF,A          ;送串口显示
  842. DELAY:JNB TI,DELAY        ;等待发送完毕
  843.       CLR TI              ;清发送标志
  844.       DEC R1              ;指针下移一位，准备取下一个待显示数
  845.       DJNZ R2,L00P        ;直到6个数据全显示完。
  846.       CLR XS1A2           ;P3.0端口置0
  847.       CLR XSCLK           ;P3.1端口置0
  848.       RET
  849. SETTAB:DB 03H 9FH 25H 0DH 99H 49H 41H 1FH 01H 09H 0FFH

  851.                           ; 0 1 2 3 4 5 6 7 8 9 消隐码

  853. ;------------------------------------
  854. ;10mS时间中断
  855. ;------------------------------------

  857. INTT0:PUSH ACC            ;10mS时间中断
  858.       PUSH PSW
  859.       MOV TH0,#0D8H       ;重置时间参数为10mS（晶振为12M）
  860.       MOV TL0,#0F0H
  861.       MOV KMWDT,#00111100B;设置看门狗
  862.       MOV 6FH,#01H        ;6FH为10mS时间到标志
  863.       POP PSW
  864.       POP ACC
  865.       RETI


  868. YS1:  MOV R6,#70H         ;延时子程序
  869. Y10:  MOV R7,#0FFH
  870. Y11:  NOP
  871.       NOP
  872.       NOP
  873.       DJNZ R7,Y11
  874.       MOV KMWDT,#00111100B;设置看门狗
  875.       DJNZ R6,Y10
  876.       RET

  878. ;------------------------------------
  879. ;EEPROM操作程序
  880. ;------------------------------------
  881. ;-----------------------------------------------------
  882. ;写N字节数据子程序
  883. ;-----------------------------------------------------
  884. WRITE_DATA:
  885.          MOV R0,#00H         ;数据写入首地址
  886.          MOV R1,#30H         ;
  887. WR_LOOP: MOV B,@R1
  888.          LCALL WRITE_BYTE    ;将查表结果写入24C02
  889.          INC R0              ;地址+1
  890.          INC R1
  891.          MOV KMWDT,#00111100B;设置看门狗
  892.          CJNE R1,#48H,WR_LOOP;24个数写入完毕?
  893.          RET

  895. ;-----------------------------------------------------
  896. ;读N字节数据子程序
  897. ;从24C02读出数据
  898. ;-----------------------------------------------------

  900. READ_DATA:
  901.          MOV R0,#00H         ;设定读取的初始地址
  902.          MOV R1,#30H         ;
  903. RE_LOOP: LCALL READ_BYTE     ;读EEPROM
  904.          MOV KMWDT,#00111100B;设置看门狗
  905.          LCALL STOP
  906.          MOV @R1,A
  907.          INC R0              ;地址+1
  908.          INC R1
  909.          CJNE R1,#48H,RE_LOOP;24个数写入完毕?
  910.          RET

  912. ;----------------------------------------------------
  913. ;写操作子程序
  914. ;输入参数: R0---要写入的地址，B---要写入的数据
  915. ;----------------------------------------------------
  916. WRITE_BYTE:
  917.        LCALL START

  919.        MOV A,#0A0H
  920.        LCALL  SENDBYTE
  921.        LCALL  WAITACK
  922.        MOV KMWDT,#00111100B ;设置看门狗

  924.        MOV A,R0
  925.        LCALL SENDBYTE
  926.        LCALL  WAITACK

  928.        MOV A,B
  929.        LCALL SENDBYTE
  930.        LCALL  WAITACK
  931.        LCALL STOP

  933.        LCALL DELAY_5MS      ;每写入1个字节，延时若干MS
  934.        RET
  935. ;----------------------------------------------------
  936. ;读操作子程序
  937. ;输入参数：R0---要读的字节地址,
  938. ;输出参数: A---结果
  939. ;----------------------------------------------------
  940. READ_BYTE:
  941.        LCALL START
  942.        MOV A,#0A0H
  943.        LCALL SENDBYTE
  944.        LCALL  WAITACK

  946.        MOV A,R0
  947.        LCALL SENDBYTE
  948.        LCALL  WAITACK

  950.        LCALL START
  951.        MOV A,#0A1H
  952.        LCALL SENDBYTE
  953.        LCALL  WAITACK
  954.        LCALL  RCVBYTE
  955.        RET
  956. ;-----------------------------------------------------
  957. ;从IIC总线上接收一个字节数据
  958. ;出口参数：A---接收数据存放在A中
  959. ;-----------------------------------------------------
  960. RCVBYTE:
  961.        MOV R7,#08        ;一个字节共接收8位数据
  962.        CLR  A
  963.        SETB  SDA         ;释放SDA数据线
  964. R_BYTE:
  965.        CLR  SCL
  966.        NOP
  967.        NOP
  968.        NOP
  969.        NOP
  970.        SETB SCL          ;启动一个时钟周期，读总线
  971.        NOP
  972.        NOP
  973.        NOP
  974.        NOP
  975.        MOV C,SDA         ;将SDA状态读入C
  976.        RLC A             ;结果移入Ａ
  977.        SETB  SDA         ;释放SDA数据线
  978.        DJNZ R7,R_BYTE    ;判断8位数据是否接收完全？
  979.        RET
  980. ;----------------------------------------------------
  981. ;向IIC总线发送一个字节数据
  982. ;入口参数：A---待发送数据存放在A中
  983. ;----------------------------------------------------
  984. SENDBYTE:
  985.        MOV R7,#08
  986. S_BYTE:
  987.        RLC A
  988.        MOV SDA,C
  989.        SETB SCL
  990.        NOP
  991.        NOP
  992.        NOP
  993.        NOP
  994.        CLR SCL
  995.        DJNZ R7,S_BYTE   ;8位发送完毕?
  996.        RET
  997. ;-----------------------------------------------------
  998. ;等待应答信号
  999. ;等待从机返回一个响应信号
  1000. ;-----------------------------------------------------
  1001. WAITACK:
  1002.        CLR  SCL
  1003.        SETB SDA         ;释放SDA信号线
  1004.        NOP
  1005.        NOP
  1006.        SETB SCL
  1007.        NOP
  1008.        NOP
  1009.        NOP
  1010.        MOV C,SDA
  1011.        JC  WAITACK      ;SDA为低电平，返回了响应信号
  1012.        CLR  SDA
  1013.        CLR  SCL
  1014.        RET
  1015. ;----------------------------------------------------
  1016. ;启动信号子程序
  1017. ;----------------------------------------------------
  1018. START:
  1019.        SETB SDA
  1020.        SETB SCL
  1021.        NOP
  1022.        CLR SDA
  1023.        NOP
  1024.        NOP
  1025.        NOP
  1026.        NOP
  1027.        CLR SCL
  1028.        RET
  1029. ;----------------------------------------------------
  1030. ;停止信号子程序
  1031. ;----------------------------------------------------
  1032. STOP:  MOV KMWDT,#00111100B;设置看门狗
  1033.        CLR SDA
  1034.        NOP
  1035.        SETB SCL
  1036.        NOP
  1037.        NOP
  1038.        NOP
  1039.        NOP
  1040.        SETB SDA
  1041.        NOP
  1042.        NOP
  1043.        CLR  SCL
  1044.        CLR  SDA
  1045.        RET
  1046. ;----------------------------------------------------
  1047. ;延时5MS子程序
  1048. ;输入参数：5MS
  1049. ;输出参数: 无
  1050. ;影响资源: R5,R6等
  1051. ;----------------------------------------------------
  1052. DELAY_5MS:
  1053.       MOV R6,#10
  1054. DE_LP:
  1055.       MOV R5,#250
  1056.       DJNZ R5,$
  1057.       MOV KMWDT,#00111100B;设置看门狗
  1058.       DJNZ R6,DE_LP
  1059.       RET


  1062. ;------------------------------------
  1063. ;软件陷阱
  1064. ;------------------------------------
  1065.       ORG 0B00H           ;软件陷阱
  1066.       NOP
  1067.       NOP
  1068.       NOP
  1069.       LJMP KS   

  1071.       END
复制代码


加热管, 单片机, 百分比, 主机

相关帖子
回复

使用道具 举报

ID:7485 发表于 2014-12-29 19:36 | 显示全部楼层
有些地方使用循环应该可以精简代码。
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

Powered by 单片机教程网

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