单片机控制PT2313 CD3313 1602显示 汇编程序

源程序《LM4766+PT2313-hifi放大器控制程序》  历尽千辛万苦、查找资料才把2313的部分抠出来修改变成自己想要的  觉得其2313很多功能用不到只有音量和高低音控
单片机是12C5A60S2 使用内部IRC时钟   旋转编码器用的是EC11
初次使用时按住旋转编码器不放在通电 程序会把预置的高低音写入单片机内部存储区 直到正常显示在松手  以后再开机不用按了 （除非高低音异常）
打算在加个电压显示 结果没能实现（没系统的学过编程 自己没事琢磨玩的）

好东东,下面是楼主的源码:

1. 
   
2. ;;12M晶振可用
   
3. ;----------------------
   
4.        ISP_DATA  EQU 0C2H ;定义EEPROM相关寄存器
   
5.        ISP_ADDRH EQU 0C3H ;此类寄存器地址需参考所用单片机的手册来设置
   
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设置成功普通IO口
    
13.            P4M1 EQU 0B3H
    
14.        P4M0 EQU 0B4H
    
15. 
    
16.            MOV P4SW,#70H; #70H = P4.4\P4.5\P4.6
    
17. 
    
18.             BASS_TONE         EQU         34H        ;低音控制缓冲
    
19.         TREBLE_TONE EQU         35H        ;高音控制缓冲
    
20.         M_VOL                 EQU         32H        ;主音量控制缓冲
    
21. 
    
22.         IN_BUFF         EQU           33H        ;输入选择缓存
    
23.                 PT2314_MSB         EQU         3DH        ;发送PT2314数高位
    
24.             MUTE_BIT BIT  P3.2;静音状态指示
    
25. 
    
26.                 SCL         BIT  P0.2;P3.4;
    
27.         SDA         BIT  P0.3;P3.5;
    
28.                 DAT1 EQU 13H         ;
    
29.         DAT2 EQU 14H         ;
    
30. 
    
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        ;开机时默认音量为第30级  0级声音最大(一共0-63级)
    
60.                 MOV IN_BUFF,#45H;输入通道默认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扇区
    
67.            MOV A,DAT1;DAT1;
    
68.            ACALL EEPROMW     ;写一字节
    
69.            LCALL DELAY10;
    
70.            MOV DPTR,#100H     ;第2扇区
    
71.            MOV A,DAT2;
    
72.            ACALL EEPROMW     ;写一字节
    
73. 
    
74. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
75. YZ1:   MOV DPTR,#00H     ;第1扇区起始地址;存入新键值
    
76.            LCALL EEPROMR         ;读
    
77.            MOV TREBLE_TONE,A;MOV M_VOL,A;
    
78.            LCALL DELAY10;
    
79.            MOV DPTR,#100H     ;第1扇区起始地址;存入新键值
    
80.            LCALL EEPROMR          ;
    
81.            MOV BASS_TONE,A;   
    
82.           
    
83.            LCALL VOL_DIV; 调用音量除用以显示
    
84.            LCALL BASS_DIV;调用低音强度查表用以显示
    
85.            LCALL TR_DIV;  高音强度查表用以显示       
    
86.            LCALL YZ;          调用预置音量
    
87. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
88. ;×××××××××××××××××××××××××
    
89. LCD:MOV        P2,#38H        ;设置功能
    
90.         LCALL        XML
    
91.         MOV        P2,#38H        ;设置功能
    
92.         LCALL        XML
    
93.         MOV        P2,#01H        ;清除屏幕
    
94.         LCALL        XML
    
95.         MOV        P2,#0CH        ;设置显示屏开,光标关
    
96.         LCALL        XML
    
97.         MOV        P2,#1CH        ;设置
    
98.         LCALL        XML
    
99.         LCALL DIP2;
    
100.         LCALL DIP1;BASS+TR          DIP1显示低音 高音强弱 -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. ;×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××
     
197. 
     
198. ;秒延时子程序
     
199. DELAY10:
     
200. MOV         R4,#10;10
     
201. D10:
     
202. MOV         R5,#248;248
     
203. DJNZ         R5,$
     
204. DJNZ         R4,D10
     
205. RET
     
206. 
     
207. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
208. T2MS:   MOV R6,#248
     
209. D21:        MOV R7,#248
     
210.                 DJNZ R7,$
     
211.                 DJNZ R6,D21
     
212.                 RET
     
213. ;EEPROM相关操作
     
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    ;扇区擦除
     
220.        ACALL ISPCF         ;触发IAP
     
221.        ACALL ISP_DISABLE   ;禁止ISP/IAP操作
     
222.        RET
     
223. ;----------------------
     
224. EEPROMW:;写
     
225.        MOV ISP_DATA,A      ;ACC里是要写入的数据
     
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         ;触发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         ;触发IAP
     
240.        MOV A,ISP_DATA      ;读出的数据放到ACC
     
241.        ACALL ISP_DISABLE   ;禁止ISP/IAP操作
     
242.        RET
     
243. ;----------------------
     
244. ISPCF: ;触发ISP/IAP
     
245.        MOV ISP_TRIG,#5AH; #46H  ;以MCU型号来定;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扇区
     
261.            MOV A,TREBLE_TONE;MOV A,M_VOL;
     
262.            ACALL EEPROMW     ;写一字节
     
263.            LCALL DELAY10
     
264.            LCALL DELAY10
     
265.            MOV DPTR,#100H     ;第2扇区
     
266.            MOV A,BASS_TONE;
     
267.            ACALL EEPROMW     ;写一字节
     
268.            RET;
     
269. ;=============================================
     
270. ;高低音调用
     
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. ;主音量调用
     
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. ;显示调用
     
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  查表数
     
300. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
301. ;高低音显示调用
     
302. TAB:
     
303. MOV DPTR,#TABLE1
     
304.                 MOVC A,@A+DPTR         ;         以A中的数值为地址偏移量进行查表
     
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  查表数
     
310. ;==============================================
     
311. 
     
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)
     
320. 
     
321. 
     
322. 
     
323.         END

复制代码

有没原理图

fushandz 发表于 2020-10-6 13:28
有没原理图

不需要原理图啊  看程序就知道怎么接     2313的原理图网上很多

麻烦 可提供 打板文件 和原理图 谢谢...

程序是不是有问题呀显示屏不能显示

程序能不能烧录到st89c52芯片上使用？

这个移植不方便,会汇编的都是高手

哪位大神可以把程序移植到stc89c52RC上运行