久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊

QQ登錄

只需一步，快速開始

搜索
查看: 5011|回復: 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 | 顯示全部樓層
有些地方使用循環應該可以精簡代碼。
回復

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

手機版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術交流QQ群281945664

Powered by 單片機教程網

快速回復 返回頂部 返回列表
主站蜘蛛池模板： 日本精品视频 | 中文字幕免费在线 | 欧美日韩一区二区视频在线观看 | 欧美一级二级视频 | www成年人视频 | 美女在线国产 | 久久国产精品免费一区二区三区 | 男人亚洲天堂 | 嫩草网 | 亚洲精品久久 | 亚洲最大看片网站 | 亚洲第一区久久 | 免费午夜视频 | 国产精品久久久久久久久久久久久 | 99re在线视频 | 国产区免费视频 | 精品国产乱码久久久久久丨区2区 | 亚洲网站免费看 | 在线观看av网站 | 日韩中文字幕一区二区 | 午夜a v电影| www.色综合| 亚洲精品色 | 久久精品久久久久久 | 91精品在线播放 | 中文字幕在线视频免费视频 | 国产高清精品在线 | 亚洲精品久久久久中文字幕欢迎你 | 在线观看av不卡 | 国产亚洲精品久久19p | 国产片侵犯亲女视频播放 | 国产区一区 | 免费国产一区 | 网络毛片 | 午夜精品久久久久久久久久久久 | 99re热这里只有精品视频 | 一区二区三区四区不卡视频 | 97在线观视频免费观看 | 亚洲一区二区精品视频在线观看 | 欧美一区二区三区免费在线观看 | 亚洲一区中文字幕 |