找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開始

搜索
查看: 7559|回復(fù): 8
打印 上一主題 下一主題
收起左側(cè)

單片機(jī)控制PT2313 CD3313 1602顯示 匯編程序

  [復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
源程序《LM4766+PT2313-hifi放大器控制程序》  歷盡千辛萬(wàn)苦、查找資料才把2313的部分摳出來(lái)修改變成自己想要的  覺得其2313很多功能用不到只有音量和高低音控
單片機(jī)是12C5A60S2 使用內(nèi)部IRC時(shí)鐘   旋轉(zhuǎn)編碼器用的是EC11
初次使用時(shí)按住旋轉(zhuǎn)編碼器不放在通電 程序會(huì)把預(yù)置的高低音寫入單片機(jī)內(nèi)部存儲(chǔ)區(qū) 直到正常顯示在松手  以后再開機(jī)不用按了 （除非高低音異常）
打算在加個(gè)電壓顯示 結(jié)果沒能實(shí)現(xiàn)（沒系統(tǒng)的學(xué)過(guò)編程 自己沒事琢磨玩的）

51hei截圖20200510134520.jpg (191.17 KB, 下載次數(shù): 172)

51hei截圖20200510134520.jpg

51hei截圖20200510134530.jpg (128.27 KB, 下載次數(shù): 153)

51hei截圖20200510134530.jpg

51hei截圖20200510134539.jpg (124.67 KB, 下載次數(shù): 149)

51hei截圖20200510134539.jpg

51hei截圖20200510134548.jpg (127.22 KB, 下載次數(shù): 150)

51hei截圖20200510134548.jpg

51hei截圖20200510134556.jpg (111.52 KB, 下載次數(shù): 155)

51hei截圖20200510134556.jpg

51hei.png (18.99 KB, 下載次數(shù): 159)

51hei.png

STC12C5A60S2 PT2313 1602顯示 - 旋轉(zhuǎn)編碼器 - 內(nèi)部存儲(chǔ)高低音.rar

47.88 KB, 下載次數(shù): 98, 下載積分: 黑幣 -5

評(píng)分

參與人數(shù) 1黑幣 +50 收起 理由
admin + 50 共享資料的黑幣獎(jiǎng)勵(lì)！

查看全部評(píng)分

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏6 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:328014 發(fā)表于 2020-5-10 14:44 | 只看該作者
好東東,下面是樓主的源碼:

  2. ;;12M晶振可用
  3. ;----------------------
  4.        ISP_DATA  EQU 0C2H ;定義EEPROM相關(guān)寄存器
  5.        ISP_ADDRH EQU 0C3H ;此類寄存器地址需參考所用單片機(jī)的手冊(cè)來(lái)設(shè)置
  6.        ISP_ADDRL EQU 0C4H ;
  7.        ISP_CMD   EQU 0C5H
  8.        ISP_TRIG  EQU 0C6H
  9.        ISP_CONTR EQU 0C7H
  10. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  11.                  P4 EQU 0C0H
  12.        P4SW EQU 0BBH;;;將P4設(shè)置成功普通IO口
  13.            P4M1 EQU 0B3H
  14.        P4M0 EQU 0B4H

  16.            MOV P4SW,#70H; #70H = P4.4\P4.5\P4.6

  18.             BASS_TONE         EQU         34H        ;低音控制緩沖
  19.         TREBLE_TONE EQU         35H        ;高音控制緩沖
  20.         M_VOL                 EQU         32H        ;主音量控制緩沖

  22.         IN_BUFF         EQU           33H        ;輸入選擇緩存
  23.                 PT2314_MSB         EQU         3DH        ;發(fā)送PT2314數(shù)高位
  24.             MUTE_BIT BIT  P3.2;靜音狀態(tài)指示

  26.                 SCL         BIT  P0.2;P3.4;
  27.         SDA         BIT  P0.3;P3.5;
  28.                 DAT1 EQU 13H         ;
  29.         DAT2 EQU 14H         ;

  31.             MOV DAT2,#7;
  32.             MOV DAT1,#7;  
  33.                 RS        BIT        P3.6        ;定義RS為P2.5
  34.             RW        BIT        P3.7        ;定義RW為P2.6
  35.             E        BIT        P4.0        ;定義E為P2.7
  36.             SETB P1.1;
  37.             SETB P0.2;
  38.                 SETB P0.3;
  39.                 SETB P0.4;
  40.                 SETB P0.5;
  41.                 SETB P0.6;
  42.                 CLR  P0.7;
  43. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  44.     MOV 36H,#02H;VOL
  45.     MOV 37H,#03H;VOL
  46.     MOV 38H,#04H;O
  47.         MOV 39H,#05H;F O
  48.     MOV 40H,#06H;F N
  49.     MOV 41H,#07H;+ -
  50.         MOV 42H,#08H;BASS
  51.     MOV 43H,#09H;BASS
  52.     MOV 44H,#10H;+ -
  53.         MOV 45H,#11H;TR
  54.         MOV 46H,#12H;TR
  55.         MOV 47H,#13H;IN
  56.         MOV 48H,#14;TR<
  57.         MOV 49H,#14;BASS<
  58. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;          
  59.                 MOV   M_VOL,#30        ;開機(jī)時(shí)默認(rèn)音量為第30級(jí)  0級(jí)聲音最大(一共0-63級(jí))
  60.                 MOV IN_BUFF,#45H;輸入通道默認(rèn)2  1 #44H    2 #45H    3 #46H
  61. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;               
  62.                 JNB P0.4,EEPROMW_0
  63.                 LJMP YZ1;
  64. EEPROMW_0:               
  65.            LCALL ERASE
  66.            MOV DPTR,#00H     ;第1扇區(qū)
  67.            MOV A,DAT1;DAT1;
  68.            ACALL EEPROMW     ;寫一字節(jié)
  69.            LCALL DELAY10;
  70.            MOV DPTR,#100H     ;第2扇區(qū)
  71.            MOV A,DAT2;
  72.            ACALL EEPROMW     ;寫一字節(jié)

  74. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  75. YZ1:   MOV DPTR,#00H     ;第1扇區(qū)起始地址;存入新鍵值
  76.            LCALL EEPROMR         ;讀
  77.            MOV TREBLE_TONE,A;MOV M_VOL,A;
  78.            LCALL DELAY10;
  79.            MOV DPTR,#100H     ;第1扇區(qū)起始地址;存入新鍵值
  80.            LCALL EEPROMR          ;
  81.            MOV BASS_TONE,A;   
  82.           
  83.            LCALL VOL_DIV; 調(diào)用音量除用以顯示
  84.            LCALL BASS_DIV;調(diào)用低音強(qiáng)度查表用以顯示
  85.            LCALL TR_DIV;  高音強(qiáng)度查表用以顯示       
  86.            LCALL YZ;          調(diào)用預(yù)置音量
  87. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  88. ;×××××××××××××××××××××××××
  89. LCD:MOV        P2,#38H        ;設(shè)置功能
  90.         LCALL        XML
  91.         MOV        P2,#38H        ;設(shè)置功能
  92.         LCALL        XML
  93.         MOV        P2,#01H        ;清除屏幕
  94.         LCALL        XML
  95.         MOV        P2,#0CH        ;設(shè)置顯示屏開,光標(biāo)關(guān)
  96.         LCALL        XML
  97.         MOV        P2,#1CH        ;設(shè)置
  98.         LCALL        XML
  99.         LCALL DIP2;
  100.         LCALL DIP1;BASS+TR          DIP1顯示低音 高音強(qiáng)弱 -7 0 +7
  101.         ;主程序
  102.         JNB P0.4,$;
  103.         LCALL DELAY10;
  104.         JNB P0.4,$;
  105. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  106. MAINN:         MOV 48H,#14;
  107.       MOV 49H,#14;
  108.           LCALL DIP1;
  109. MAIN:  
  110.      JNB P0.6,KI111;+vol
  111.          JNB P0.5,KI222;-vol
  112.          JNB P0.4,MAIN11;KK77;        MUTE
  113.      LJMP MAIN;
  114. KI111:LJMP KK111
  115. KI222:LJMP KK222;
  116. MAIN11:        LCALL T2MS;
  117.         JB P0.4,MAIN;
  118.                 LCALL T2MS;
  119.                 LCALL T2MS;
  120.                 LCALL T2MS;
  121.                 LCALL T2MS;
  122.                 LCALL T2MS;
  123.                 LCALL T2MS;
  124.                 LCALL T2MS;
  125.                 LCALL T2MS;
  126.                 LCALL T2MS;
  127.                 LCALL T2MS;
  128.                 LCALL T2MS;
  129.                 LCALL T2MS;
  130.                 LCALL T2MS;
  131.                 LCALL T2MS;
  132.                 LCALL T2MS;
  133.                 LCALL T2MS;
  134.                 LCALL T2MS;
  135.                 LCALL T2MS;
  136.                 LCALL T2MS;
  137.                 LCALL T2MS;
  138.                 LCALL T2MS;
  139.                 LCALL T2MS;
  140.                 JNB P0.4,GH;
  141.                 LCALL KK7;
  142.                 LJMP MAINN;
  143. MUTES:        JNB P0.4,$;
  144.                 LJMP MAINN;
  145. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  146. GH:           JB MUTE_BIT,MUTES;
  147.         MOV 48H,#16;           
  148.            LCALL DIP1;
  149.            JNB P0.4,$
  150.                 LCALL T2MS;
  151.                 JNB P0.4,$
  152.            MOV  66H,#245
  153.        MOV  67H,#245
  154.            MOV  68H,#10
  155. MAIN1:   
  156.      JNB P0.6,KI333;+vol
  157.          JNB P0.5,KI444;-vol
  158.          JNB P0.4,MAIN22;KK77;        MUTE
  159.          DJNZ 68H,MAIN1;
  160.          DJNZ  67H,MAIN1
  161.           DJNZ  66H,MAIN1
  162.      LJMP MAINN;
  163. KI333:LJMP KK333;
  164. KI444:LJMP KK444;
  165. MAIN22:        LCALL DELAY10;
  166.         JB P0.4,MAIN1;
  167.                 JNB P0.4,$
  168.                 LCALL DELAY10;
  169.                 JNB P0.4,$
  170. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  171.                 MOV 48H,#14;
  172.         MOV 49H,#16;
  173.                 LCALL DIP1;
  174.                 MOV  66H,#245
  175.        MOV  67H,#245
  176.            MOV  68H,#10
  177. MAIN2:   
  178.      JNB P0.6,KI555;+vol
  179.          JNB P0.5,KI666;-vol
  180.          JNB P0.4,MAIN33;KK77;        MUTE
  181. ;    LJMP MAIN2;
  182.          DJNZ 68H,MAIN2;
  183.          DJNZ  67H,MAIN2
  184.           DJNZ  66H,MAIN2
  185.      LJMP MAINN;
  186. KI555:LJMP KK555;
  187. KI666:LJMP KK666;
  188. MAIN33:        LCALL DELAY10;
  189.         JB P0.4,MAIN2;
  190.                 JNB P0.4,$
  191.                 LCALL DELAY10;
  192.                 JNB P0.4,$
  193.                 LJMP MAINN;
  194. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  195. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  196. ;×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××

  198. ;秒延時(shí)子程序
  199. DELAY10:
  200. MOV         R4,#10;10
  201. D10:
  202. MOV         R5,#248;248
  203. DJNZ         R5,$
  204. DJNZ         R4,D10
  205. RET

  207. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  208. T2MS:   MOV R6,#248
  209. D21:        MOV R7,#248
  210.                 DJNZ R7,$
  211.                 DJNZ R6,D21
  212.                 RET
  213. ;EEPROM相關(guān)操作
  214. ;-----------------------
  215. ERASE:;擦除
  216.        MOV ISP_ADDRH,DPH   ;送高地址
  217.        MOV ISP_ADDRL,DPL   ;送低地址
  218.        MOV ISP_CONTR,#83H  ;允許ISP/IAP操作(6~12MHz)
  219.        MOV ISP_CMD,#03H    ;扇區(qū)擦除
  220.        ACALL ISPCF         ;觸發(fā)IAP
  221.        ACALL ISP_DISABLE   ;禁止ISP/IAP操作
  222.        RET
  223. ;----------------------
  224. EEPROMW:;寫
  225.        MOV ISP_DATA,A      ;ACC里是要寫入的數(shù)據(jù)
  226.        MOV ISP_ADDRH,DPH   ;送高地址
  227.        MOV ISP_ADDRL,DPL   ;送低地址
  228.        MOV ISP_CONTR,#83H  ;允許ISP/IAP操作(6~12MHz)
  229.        MOV ISP_CMD,#02H    ;送寫命令
  230.        ACALL ISPCF         ;觸發(fā)IAP
  231.        ACALL ISP_DISABLE   ;禁止ISP/IAP操作
  232.        RET
  233. ;----------------------
  234. EEPROMR: ;讀
  235.        MOV ISP_ADDRH,DPH   ;送高地址
  236.        MOV ISP_ADDRL,DPL   ;送低地址
  237.        MOV ISP_CONTR,#83H  ;允許ISP/IAP操作(6~12MHz)
  238.        MOV ISP_CMD,#01H    ;送讀命令
  239.        ACALL ISPCF         ;觸發(fā)IAP
  240.        MOV A,ISP_DATA      ;讀出的數(shù)據(jù)放到ACC
  241.        ACALL ISP_DISABLE   ;禁止ISP/IAP操作
  242.        RET
  243. ;----------------------
  244. ISPCF: ;觸發(fā)ISP/IAP
  245.        MOV ISP_TRIG,#5AH; #46H  ;以MCU型號(hào)來(lái)定;STC12C2052(46H/0B9H)
  246.        MOV ISP_TRIG,#0A5H; #0B9H ;11F和15F系列相同(5AH/0A5H)
  247.        NOP
  248.        RET
  249. ;----------------------
  250. ISP_DISABLE: ;禁止ISP/IAP操作(出于安全考慮才要)
  251.        MOV ISP_CONTR,#00H
  252.        MOV ISP_CMD,#00H
  253.        MOV ISP_TRIG,#00H
  254.        MOV ISP_ADDRH,#0FFH
  255.        MOV ISP_ADDRL,#0FFH
  256.        RET
  257. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  258. EEPROMW_1:      
  259.            LCALL ERASE
  260.            MOV DPTR,#00H     ;第1扇區(qū)
  261.            MOV A,TREBLE_TONE;MOV A,M_VOL;
  262.            ACALL EEPROMW     ;寫一字節(jié)
  263.            LCALL DELAY10
  264.            LCALL DELAY10
  265.            MOV DPTR,#100H     ;第2扇區(qū)
  266.            MOV A,BASS_TONE;
  267.            ACALL EEPROMW     ;寫一字節(jié)
  268.            RET;
  269. ;=============================================
  270. ;高低音調(diào)用
  271. CTRL_SHUI:
  272.                 MOV        DPTR,#TONG_DATA
  273.                 MOVC        A,@A+DPTR
  274.                 RET
  275. TONG_DATA:
  276.            DB 00H,01H,02H,03H,04H,05H,06H,07H
  277.            DB 0EH,0DH,0CH,0BH,0AH,09H,08H
  278. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  279. ;主音量調(diào)用
  280. VOL:
  281. MOV        DPTR,#VOL_DATA
  282. MOVC        A,@A+DPTR
  283. RET
  284. VOL_DATA:
  285.            DB 3FH,3EH,3DH,3CH,3BH,3AH,39H,38H,37H,36H ;
  286.                    DB 35H,34H,33H,32H,31H,30H,2FH,2EH,2DH,2CH
  287.                    DB 2BH,2AH,29H,28H,27H,26H,25H,24H,23H,22H
  288.                    DB 21H,20H,1FH,1EH,1DH,1CH,1BH,1AH,19H,18H
  289.                    DB 17H,16H,15H,14H,13H,12H,11H,10H,0FH,0EH
  290.                    DB 0DH,0CH,0BH,0AH,09H,08H,07H,06H,05H,04H
  291.                    DB 03H,02H,01H,00H  ;(PT2313主音量63)
  292. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  293. ;顯示調(diào)用
  294. TABLE:  INC          A
  295.         MOVC         A,@A+PC
  296.         RET
  297.         DB 30H,31H,32H,33H,34H,35H,36H,37H,38H,39H,2DH,2BH,4FH,46H,20H,4EH,7FH;;1602
  298.            ;0   1   2   3   4   5   6   7   8   9        -        +   O        F  空位        N        ←   顯示
  299.                    ;0   1   2   3   4        5        6        7        8        9        10        11        12        13        14        15        16  查表數(shù)
  300. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  301. ;高低音顯示調(diào)用
  302. TAB:
  303. MOV DPTR,#TABLE1
  304.                 MOVC A,@A+DPTR         ;         以A中的數(shù)值為地址偏移量進(jìn)行查表
  305.                 ret;
  306. TABLE1:  
  307.            DB 37H,36H,35H,34H,33H,32H,31H,30H,31H,32H,33H,34H,35H,36H,37H
  308.            ;   7   6   5   4   3   2   1   0   1   2   3   4   5   6   7   顯示
  309.                    ;   0   1   2   3   4   5   6   7   8   9   10  11  12  13  14  查表數(shù)
  310. ;==============================================

  312. $INCLUDE (DIP.ASM)
  313. $INCLUDE (YZ.ASM)
  314. $INCLUDE (PT2314_WR.ASM)
  315. $INCLUDE (KEYDAT.ASM)
  316. $INCLUDE (VOL.ASM)
  317. $INCLUDE (BASS.ASM)
  318. $INCLUDE (TR.ASM)
  319. $INCLUDE (MUTE.ASM)



  323.         END
復(fù)制代碼
回復(fù)

使用道具 舉報(bào)

板凳
ID:96926 發(fā)表于 2020-10-6 13:28 | 只看該作者
有沒原理圖
回復(fù)

使用道具 舉報(bào)

地板
ID:261025 發(fā)表于 2020-10-9 20:17 | 只看該作者

不需要原理圖啊  看程序就知道怎么接     2313的原理圖網(wǎng)上很多
回復(fù)

使用道具 舉報(bào)

5#
ID:742085 發(fā)表于 2023-3-25 23:15 | 只看該作者
麻煩 可提供 打板文件 和原理圖 謝謝...
回復(fù)

使用道具 舉報(bào)

6#
ID:102189 發(fā)表于 2023-4-16 19:50 | 只看該作者
程序是不是有問題呀顯示屏不能顯示
回復(fù)

使用道具 舉報(bào)

7#
ID:1071715 發(fā)表于 2023-4-19 21:36 來(lái)自手機(jī) | 只看該作者
程序能不能燒錄到st89c52芯片上使用？
回復(fù)

使用道具 舉報(bào)

8#
ID:23844 發(fā)表于 2023-4-22 08:11 | 只看該作者
這個(gè)移植不方便,會(huì)匯編的都是高手
回復(fù)

使用道具 舉報(bào)

9#
ID:1071715 發(fā)表于 2023-4-23 07:30 | 只看該作者
哪位大神可以把程序移植到stc89c52RC上運(yùn)行
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

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

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表