南昌大学-单片机课程设计-设计图-源程序

(上图硬件原理图可以另存为图片放大了看，清晰度五颗星，放心好了)
源程序清单
1．汇编程序
ORG 0000H ;主程序入口
0000 020030 LJMP MAIN
ORG 0003H ;外部中断0入口
0003 0200D4 LJMP A2D
ORG 000BH ;t0入口
000B 02007A LJMP SELECT
ORG 0013H ;外部中断1入口
0013 020062 LJMP KEY
ORG 0030H
MAIN: ;主程序
0030 75A886 MOV IE,#86H ;外部中断0，t0，外部中断1使能
0033 7590F6 MOV P1,#0F6H ;键盘初值
0036 758C3C MOV TH0,#3CH ;t0赋初值
0039 758AB0 MOV TL0,#0B0H
003C 758901 MOV TMOD,#01H ;设置t0工作方式为方式1
003F D288 SETB IT0 ;打开中断0
0041 120048 LCALL XUEHAO ;调用显示学号子程序
0044 7C1E MOV R4,#30 ;设置t0延时次数，即任务中延时1.5s的功能选择，因为定时器最多计时65536us，所以需要多次计时累计
0046 80FE SJMP $ ;踏步命令
0048 9001A7 XUEHAO: MOV DPTR,#XUEHAOTAB ;学号显示子程程序
004B 7A03 MOV R2,#3 ;3次刷新
004D 7B05 XUEHAO2:MOV R3,#5 ;每次发送5个显示码进数码管004F 7400 XUEHAO1:MOV A,#0 ;a清零，dptr自加来选择需要显示的字型码
0051 93 MOVC A,@A+DPTR ;查表，给a赋值
0052 F599 MOV SBUF,A ;a发送到串行口
0054 3099FD JNB TI,$ ;查询串行口发送中断标志位
0057 C299 CLR TI ;清除中断标志位，准备进行下一次发送
0059 A3 INC DPTR ;dptr加1，指向下一个字型码地址005A DBF3 DJNZ R3,XUEHAO1 ;执行显示5个字型码
005C 12018D LCALL DELAY1S ;延迟1s
005F DAEC DJNZ R2,XUEHAO2 ;刷新3次
0061 22 RET
0062 12019E KEY: LCALL DELAY10MS ;键盘按键响应程序
0065 20B311 JB P3.3,KEY1 ;延迟10ms之后判断是否按键还是按下状态，为按下则返回
0068 9001B6 MOV DPTR,#SHUZITAB ;dptr指向数字表首地址
006B 1200B4 LCALL JUDGEKEY ;调用判断键值子程序
006E 04 INC A ;键值加1调用字型码（因为硬件显示的数字比键值大1）
006F 93 MOVC A,@A+DPTR ;查表得字型码
0070 F599 MOV SBUF,A ;发送a到串行口进行显示
0072 3099FD JNB TI,$ ;
0075 C299 CLR TI
0077 D28C SETB TR0 ;打开定时器t0
0079 32 KEY1: RETI ;中断返回
SELECT: ;长按1.5s功能选择程序
007A 20B319 JB P3.3,SELECTOUT ;判断按键是否按下，否则返回
007D DC17 DJNZ R4,SELECTOUT ;判断是否达到1.5s，否则r4减1返
回（r4记录中断次数）
007F 1200B4 LCALL JUDGEKEY ;调用判断键值子程序0082 B40003 CJNE A,#0,SELECT1 ;得到a的键值，判断功能0085 12009D LCALL D2A
0088 B40103 SELECT1: CJNE A,#1,SELECT2
008B 120048 LCALL XUEHAO
008E B40303 SELECT2: CJNE A,#3,SELECT3
0091 1200CA LCALL ATOD
0094 7C1E SELECT3: MOV R4,#30 ;r4重新赋初值
0096 758C3C SELECTOUT:MOV TH0,#3CH ;定时计数器重新赋初值0099 758A0B MOV TL0,#0BH
009C 32 RETI ;中断返回
009D 900FFF D2A: MOV DPTR,#0FFFH ;数模转换程序
00A0 74C8 MOV A,#200
00A2 7A64 MOV R2,#100
00A4 14 D2A1: DEC A
00A5 F0 MOVX @DPTR,A
00A6 B400FB CJNE A,#0,D2A1
00A9 120195 LCALL DELAY3MS
00AC 04 D2A2: INC A
00AD F0 MOVX @DPTR,A
00AE B4C8FB CJNE A,#200,D2A2
00B1 DAF1 DJNZ R2,D2A1
00B3 22 RET
00B4 7800 JUDGEKEY: MOV R0,#0 ;键值判断程序
00B6 7400 MOV A,#0
00B8 309402 JNB P1.4,JP1
00BB 7801 MOV R0,#1
00BD 7590A7 JP1:MOV P1,#0A7H
00C0 309002 JNB P1.0,JP2
00C3 7402 MOV A,#2
00C5 28 JP2:ADD A,R0
00C6 7590F6 MOV P1,#0F6H
00C9 22 RET
00CA E4 ATOD: CLR A ;模数转换程序
00CB D2A8 SETB EX0 ;打开中断0
00CD 90FFFE MOV DPTR,#0FFFEH ;dptr指向adc0808首地址00D0 F0 MOVX @DPTR,A ;启动adc0808
00D1 7814 MOV R0,#20 ;重新设定采样次数
00D3 22 RET ;返回
A2D: ;模数转换中断响应程序
00D4 90FFFE MOV DPTR,#0FFFEH
00D7 D2D4 A2D1: SETB RS1 ;打开第三组
00D9 E0 MOVX A,@DPTR ;取得adc0808反馈值
00DA F5F0 MOV B,A ;把a中的值倒置（因为采样的时候是从高位到低位倒置的）
00DC 7400 MOV A,#0
00DE 30F702 JNB B.7,SS1
00E1 D2E0 SETB ACC.0
00E3 30F602 SS1:JNB B.6,SS2
00E6 D2E1 SETB ACC.1
00E8 30F502 SS2:JNB B.5,SS3
00EB D2E2 SETB ACC.2
00ED 30F402 SS3:JNB B.4,SS4
00F0 D2E3 SETB ACC.3
00F2 30F302 SS4:JNB B.3,SS5
00F5 D2E4 SETB ACC.4
00F7 30F202 SS5:JNB B.2,SS6
00FA D2E5 SETB ACC.5
00FC 30F102 SS6:JNB B.1,SS7
00FF D2E6 SETB ACC.6
0101 30F002 SS7:JNB B.0,SS8
0104 D2E7 SETB ACC.7
0106 75F033 SS8:MOV B,#51 ;以下将得到数值转换成bcd码，因为a 的范围是0~255，电压范围是0~5，所以将得到值除以51得到最高位整数值
0109 84 DIV AB ;然后第二位再乘10，除以51，得到第二位，以此类推
010A FB MOV R3,A
010B E5F0 MOV A,B
010D 75F00A MOV B,#10
0110 A4 MUL AB
0111 FA MOV R2,A
0112 E5F0 MOV A,B
0114 B4000A CJNE A,#00,LP1
0117 EA MOV A,R2
0118 75F033 MOV B,#51
011B 84 DIV AB
011C FA MOV R2,A
011D E5F0 MOV A,B
011F 800B SJMP LP2
0121 EA LP1: MOV A,R2
0122 04 INC A
0123 75F033 MOV B,#51
0126 84 DIV AB
0129 FA MOV R2,A
012A E5F0 MOV A,B
012C 75F00A LP2:MOV B,#10
012F A4 MUL AB
0130 F9 MOV R1,A
0131 E5F0 MOV A,B
0133 B40008 CJNE A,#0,LP3
0136 E9 MOV A,R1
0137 75F033 MOV B,#51
013A 84 DIV AB
013B F9 MOV R1,A
013C 8009 SJMP LP4
013E E9 LP3:MOV A,R1
013F 04 INC A
0140 75F033 MOV B,#51
0143 84 DIV AB
0144 2405 ADD A,#5
0146 F9 MOV R1,A
0147 120157 LP4:LCALL DIANYA
014A C2D4 CLR RS1
014C 90FFFE MOV DPTR,#0FFFEH
014F F0 MOVX @DPTR,A ;转换完成，最高位，次高位，最低位分别放在r3，r2，r1
0150 D882 DJNZ R0,A2D
0152 7814 MOV R0,#20
0154 C2A8 CLR EX0
0156 32 RETI
0157 74FF DIANYA: MOV A,#0ffH ;显示电压程序
0159 F599 MOV SBUF,A ;显示黑
015B 3099FD JNB TI,$
015E C299 CLR TI
0160 74FF MOV A,#0FFH
0162 F599 MOV SBUF,A
0164 3099FD JNB TI,$
0167 C299 CLR TI
0169 9001B6 MOV DPTR,#SHUZITAB
016C EB MOV A,R3
016D 93 MOVC A,@A+DPTR
016E 547F ANL A,#7FH
0170 F599 MOV SBUF,A
0172 3099FD JNB TI,$
0175 C299 CLR TI
0178 93 MOVC A,@A+DPTR
0179 F599 MOV SBUF,A
017B 3099FD JNB TI,$
017E C299 CLR TI
0180 E9 MOV A,R1
0181 93 MOVC A,@A+DPTR
0182 F599 MOV SBUF,A
0184 3099FD JNB TI,$
0187 C299 CLR TI
0189 12018D LCALL DELAY1S
018C 22 RET
018D 7D64 DELAY1S: MOV R5,#100 ;延时一秒子程序
018F 12019E DELAY1S1: LCALL DELAY10MS
0192 DDFB DJNZ R5,DELAY1S1
0194 22 RET
0195 7E06 DELAY3MS: MOV R6,#6 ;延时一秒子程序
0197 7FFA DELAY3MS1:MOV R7,#250
0199 DFFE DJNZ R7,$
019B DEFA DJNZ R6,DELAY3MS1
019D 22 RET
019E 7E14 DELAY10MS: MOV R6,#20 ;延时一秒子程序
01A0 7FFA DELAY10MS1:MOV R7,#250
01A2 DFFE DJNZ R7,$
01A4 DEFA DJNZ R6,DELAY10MS1
01A6 22 RET
01A7 FFFFF7
01AA F7F7 XUEHAOTAB:DB 0FFH,0FFH,0F7H,0F7H,0F7H ;学号显示表01AC FBFBAB
01AF A7B3 DB 0FBH,0FBH,0ABH,0A7H,0B3H
01B1 F9F9C0
01B4 82B0 DB 0F9H,0F9H,0C0H,82H,0B0H
01B6 C0F9A4
01B9 B09992
01BC 82F880
01BF 90 SHUZITAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;数字表
符号值类型
A2D = 00D4H CODE 标号
A2D1 = 00D7H CODE 标号
AC = 00D6H CONST 常量
ACC = 00E0H CONST 常量
ATOD = 00CAH CODE 标号
B = 00F0H CONST 常量
CY = 00D7H CONST 常量
D2A = 009DH CODE 标号
D2A1 = 00A4H CODE 标号
D2A2 = 00ACH CODE 标号
DELAY10MS = 019EH CODE 标号
DELAY10MS1 = 01A0H CODE 标号
DELAY1S = 018DH CODE 标号
DELAY1S1 = 018FH CODE 标号
DELAY3MS = 0195H CODE 标号
DELAY3MS1 = 0197H CODE 标号
DIANYA = 0157H CODE 标号
DPH = 0083H CONST 常量
DPL = 0082H CONST 常量
EA = 00AFH CONST 常量
ES = 00ACH CONST 常量
ET0 = 00A9H CONST 常量
ET1 = 00ABH CONST 常量
EX0 = 00A8H CONST 常量
EX1 = 00AAH CONST 常量
F0 = 00D5H CONST 常量
F1 = 00D1H CONST 常量
IE = 00A8H CONST 常量
IE0 = 0089H CONST 常量
IE1 = 008BH CONST 常量
IP = 00B8H CONST 常量
IT0 = 0088H CONST 常量
IT1 = 008AH CONST 常量
JP1 = 00BDH CODE 标号
JP2 = 00C5H CODE 标号
KEY = 0062H CODE 标号KEY1 = 0079H CODE 标号LP1 = 0121H CODE 标号LP2 = 012CH CODE 标号LP3 = 013EH CODE 标号LP4 = 0147H CODE 标号MAIN = 0030H CODE 标号OV = 00D2H CONST 常量P = 00D0H CONST 常量P0 = 0080H CONST 常量P1 = 0090H CONST 常量P2 = 00A0H CONST 常量P3 = 00B0H CONST 常量PCON = 0087H CONST 常量PS = 00BCH CONST 常量PSW = 00D0H CONST 常量PT0 = 00B9H CONST 常量PT1 = 00BBH CONST 常量PX0 = 00B8H CONST 常量PX1 = 00BAH CONST 常量RB8 = 009AH CONST 常量REN = 009CH CONST 常量RI = 0098H CONST 常量RS0 = 00D3H CONST 常量RS1 = 00D4H CONST 常量SBUF = 0099H CONST 常量SCON = 0098H CONST 常量SELECT = 007AH CODE 标号SELECT1 = 0088H CODE 标号SELECT2 = 008EH CODE 标号SELECT3 = 0094H CODE 标号SELECTOUT = 0096H CODE 标号SHUZITAB = 01B6H CODE 标号SM0 = 009FH CONST 常量SM1 = 009EH CONST 常量SM2 = 009DH CONST 常量SP = 0081H CONST 常量SS1 = 00E3H CODE 标号SS2 = 00E8H CODE 标号SS3 = 00EDH CODE 标号SS4 = 00F2H CODE 标号SS5 = 00F7H CODE 标号SS6 = 00FCH CODE 标号
SS8 = 0106H CODE 标号
TB8 = 009BH CONST 常量
TCON = 0088H CONST 常量
TF0 = 008DH CONST 常量
TF1 = 008FH CONST 常量
TH0 = 008CH CONST 常量
TH1 = 008DH CONST 常量
TI = 0099H CONST 常量
TL0 = 008AH CONST 常量
TL1 = 008BH CONST 常量
TMOD = 0089H CONST 常量
TR0 = 008CH CONST 常量
TR1 = 008EH CONST 常量
XUEHAO = 0048H CODE 标号
XUEHAO1 = 004FH CODE 标号
XUEHAO2 = 004DH CODE 标号
XUEHAOTAB = 01A7H CODE 标号
公有符号: 97
私有符号: 0
以下程序为wave输入源程序，不带机器码，方便同学复制粘贴体验神奇效果~
ORG 0000H ;主程序入口
LJMP MAIN
ORG 0003H ;外部中断0入口
LJMP A2D
ORG 000BH ;t0入口
LJMP SELECT
ORG 0013H ;外部中断1入口
LJMP KEY
ORG 0030H
MAIN: ;主程序
MOV IE,#86H ;外部中断0，t0，外部中断1使能
MOV P1,#0F6H ;键盘初值
MOV TH0,#3CH ;t0赋初值
MOV TL0,#0B0H
MOV TMOD,#01H ;设置t0工作方式为方式1
SETB IT0 ;打开中断0
LCALL XUEHAO ;调用显示学号子程序
MOV R4,#30 ;设置t0延时次数，即任务中延时1.5s的功能选择，因为定时器最多计时65536us，所以需要多次计时累计
SJMP $ ;踏步命令
XUEHAO: MOV DPTR,#XUEHAOTAB ;学号显示子程程序
MOV R2,#3 ;3次刷新
XUEHAO2:MOV R3,#5 ;每次发送5个显示码进数码管
XUEHAO1:MOV A,#0 ;a清零，dptr自加来选择需要显示的字型码MOVC A,@A+DPTR ;查表，给a赋值
MOV SBUF,A ;a发送到串行口
JNB TI,$ ;查询串行口发送中断标志位
CLR TI ;清除中断标志位，准备进行下一次发送
INC DPTR ;dptr加1，指向下一个字型码地址
DJNZ R3,XUEHAO1 ;执行显示5个字型码
LCALL DELAY1S ;延迟1s
DJNZ R2,XUEHAO2 ;刷新3次
RET
KEY: LCALL DELAY10MS ;键盘按键响应程序
JB P3.3,KEY1 ;延迟10ms之后判断是否按键还是按下状态，为按下则返回
MOV DPTR,#SHUZITAB ;dptr指向数字表首地址
LCALL JUDGEKEY ;调用判断键值子程序
INC A ;键值加1调用字型码（因为硬件显示的数字比键值大1）
MOVC A,@A+DPTR ;查表得字型码
MOV SBUF,A ;发送a到串行口进行显示
JNB TI,$ ;
CLR TI
SETB TR0 ;打开定时器t0
KEY1: RETI ;中断返回
SELECT: ;长按1.5s功能选择程序
JB P3.3,SELECTOUT ;判断按键是否按下，否则返回
DJNZ R4,SELECTOUT ;判断是否达到1.5s，否则r4减1返回（r4记录中断次数）
LCALL JUDGEKEY ;调用判断键值子程序
CJNE A,#0,SELECT1 ;得到a的键值，判断功能
LCALL D2A
SELECT1: CJNE A,#1,SELECT2
LCALL XUEHAO
SELECT2: CJNE A,#3,SELECT3
LCALL ATOD
SELECT3: MOV R4,#30 ;r4重新赋初值
SELECTOUT:MOV TH0,#3CH ;定时计数器重新赋初值
MOV TL0,#0BH
RETI ;中断返回
D2A: MOV DPTR,#0FFFH ;数模转换程序
MOV A,#200
MOV R2,#100
D2A1: DEC A
MOVX @DPTR,A
CJNE A,#0,D2A1
LCALL DELAY3MS
D2A2: INC A
MOVX @DPTR,A
CJNE A,#200,D2A2
DJNZ R2,D2A1
RET
JUDGEKEY: MOV R0,#0 ;键值判断程序
MOV A,#0
JNB P1.4,JP1
MOV R0,#1
JP1:MOV P1,#0A7H
JNB P1.0,JP2
MOV A,#2
JP2:ADD A,R0
MOV P1,#0F6H
ATOD: CLR A ;模数转换程序
SETB EX0 ;打开中断0
MOV DPTR,#0FFFEH ;dptr指向adc0808首地址
MOVX @DPTR,A ;启动adc0808
MOV R0,#20 ;重新设定采样次数
RET ;返回
A2D: ;模数转换中断响应程序
MOV DPTR,#0FFFEH
A2D1: SETB RS1 ;打开第三组
MOVX A,@DPTR ;取得adc0808反馈值
MOV B,A ;把a中的值倒置（因为采样的时候是从高位到低位倒置的）
MOV A,#0
JNB B.7,SS1
SETB ACC.0
SS1:JNB B.6,SS2
SETB ACC.1
SS2:JNB B.5,SS3
SETB ACC.2
SS3:JNB B.4,SS4
SETB ACC.3
SS4:JNB B.3,SS5
SETB ACC.4
SS5:JNB B.2,SS6
SETB ACC.5
SS6:JNB B.1,SS7
SETB ACC.6
SS7:JNB B.0,SS8
SETB ACC.7
SS8:MOV B,#51 ;以下将得到数值转换成bcd码，因为a的范围是0~255，电压范围是0~5，所以将得到值除以51得到最高位整数值
DIV AB ;然后第二位再乘10，除以51，得到第二位，以此类推MOV R3,A
MOV A,B
MOV B,#10
MUL AB
MOV R2,A
MOV A,B
CJNE A,#00,LP1
MOV A,R2
MOV B,#51
MOV R2,A
MOV A,B
SJMP LP2
LP1: MOV A,R2
INC A
MOV B,#51
DIV AB
ADD A,#5
MOV R2,A
MOV A,B
LP2:MOV B,#10
MUL AB
MOV R1,A
MOV A,B
CJNE A,#0,LP3
MOV A,R1
MOV B,#51
DIV AB
MOV R1,A
SJMP LP4
LP3:MOV A,R1
INC A
MOV B,#51
DIV AB
ADD A,#5
MOV R1,A
LP4:LCALL DIANYA
CLR RS1
MOV DPTR,#0FFFEH
MOVX @DPTR,A ;转换完成，最高位，次高位，最低位分别放在r3，r2，r1
DJNZ R0,A2D
MOV R0,#20
CLR EX0
RETI
DIANYA: MOV A,#0ffH ;显示电压程序
MOV SBUF,A ;显示黑
JNB TI,$
CLR TI
MOV A,#0FFH
MOV SBUF,A
JNB TI,$
MOV DPTR,#SHUZITAB
MOV A,R3
MOVC A,@A+DPTR
ANL A,#7FH
MOV SBUF,A
JNB TI,$
CLR TI
MOV A,R2
MOVC A,@A+DPTR
MOV SBUF,A
JNB TI,$
CLR TI
MOV A,R1
MOVC A,@A+DPTR
MOV SBUF,A
JNB TI,$
CLR TI
LCALL DELAY1S
RET
DELAY1S: MOV R5,#100 ;延时一秒子程序DELAY1S1: LCALL DELAY10MS
DJNZ R5,DELAY1S1
RET
DELAY3MS: MOV R6,#6 ;延时一秒子程序DELAY3MS1:MOV R7,#250
DJNZ R7,$
DJNZ R6,DELAY3MS1
RET
DELAY10MS: MOV R6,#20 ;延时一秒子程序DELAY10MS1:MOV R7,#250
DJNZ R7,$
DJNZ R6,DELAY10MS1
RET
XUEHAOTAB:DB 0FFH,0FFH,0F7H,0F7H,0F7H ;学号显示表DB 0FBH,0FBH,0ABH,0A7H,0B3H
DB 0F9H,0F9H,0C0H,82H,0B0H
SHUZITAB:DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H ;数字表。