4.1 流水灯
程序介绍：利用P1 口通过一定延时轮流产生低电平
输出，以达到发光二极管轮流亮的效果。实际应用中例如： 广告灯箱彩灯、霓虹灯闪烁。 程序实例（LAMP.ASM） ORG 0000H AJMP MAIN ORG 0030H MAIN: 9
MOV A,#00H
MOV P1,A ;灭所有的灯 MOV A,#11111110B MAIN1:
MOV P1,A ;开最左边的灯 ACALL DELAY ;延时
RL A ;将开的灯向右边移 AJMP MAIN ;循环 DELAY:
MOV 30H,#0FFH D1: MOV 31H,#0FFH D2: DJNZ 31H,D2 DJNZ 30H,D1 RET END
4.2 方波输出
程序介绍：P1.0 口输出高电平，延时后再输出低电
平，循环输出产生方波。实际应用中例如：波形发生器。 程序实例（FAN.ASM）： ORG 0000H MAIN:
;直接利用P1.0 口产生高低电平地形成方波////////////// ACALL DELAY SETB P1.0 ACALL DELAY 10
CLR P1.0 AJMP MAIN
;////////////////////////////////////////////////// DELAY:
MOV R1,#0FFH DJNZ R1,$ RET
END
五、定时器功能实例 5.1 定时1 秒报警
程序介绍：定时器1 每隔1 秒钟将p1.o 的输出状态改变1 次，以达到定时报警的目的。实际应用例如：定时报警器。 程序实例（DIN1.ASM）： ORG 0000H AJMP MAIN ORG 000BH
AJMP DIN0 ;定时器0 入口 MAIN:
TFLA G EQU 34H ;时间秒标志，判是否到50 个 0.2 秒，即50*0.2=1 秒
MOV TMOD,#00000001B;定时器0 工作于方式 1
MOV TL0,#0AFH
MOV TH0,#3CH ;设定时时间为0.05 秒，定时 20 次则一秒 11
SETB EA ;开总中断
SETB ET0 ;开定时器0 中断允许 SETB TR0 ;开定时0 运行 SETB P1.0
LOOP: AJMP LOOP DIN0:
;是否到一秒//////////////////////////////////////// INCC: INC TFLAG MOV A,TFLAG CJNE A,#20,RE MOV TFLAG,#00H CPL P1.0
;////////////////////////////////////////////////// RE:
MOV TL0,#0AFH
MOV TH0,#3CH ;设定时时间为0.05 秒，定时 20 次则一秒 RETI END
5.2 频率输出公式 介绍：f=1/t
s51 使用12M 晶振，一个周期是1 微秒使用定时器1 工作于方式0，最大值为65535，以产生200HZ 的频率为 例：
200=1/t:推出t=0.005 秒，即5000 微秒,即一个高电
12
平或低电平的时间为2500 微秒。这样，定时值应设为 65535-2500=63035，将它转换为十六进制则为:F63B。 具体程序请看f200.asm 频率递增：
200HZ:63035:F63B 250HZ:63535:F82F 300HZ:63868:F97C 5.3 200HZ 频率输出
程序介绍：利用定时器定时，在P1.0 口产生200HZ 的频率输出。实际应用例如：传感器前级推动。 程序实例（F200.ASM）： ORG 0000H AJMP MAIN ORG 001BH AJMP DIN0 MAIN:
CLR P1.0 ;产生一个低电平，实际上 是从p1.0 口产生频率
MOV TMOD,#00010000B ;定时器1 工作于方式0 MOV TH1,#0F6H
MOV TL1,#3BH ;频率产生的时间，详细请 见频率公式
SETB EA ;开总中断 13
SETB TR1 ;开定时器1 运行 SETB ET1 ;开定时器1 允许 LOOP: AJMP LOOP ;无限循环
DIN0: CPL P1.0 ;产生一个高电平，
下次来就是低电平（因为取反），一个高电平和一个低电平 形成一个周期 MOV TH1,#0F6H
MOV TL1,#3BH ;重置频率产生时间 RETI ;返回 END
5.4 200——250HZ 变化频率输出
程序介绍：利用定时器定时时间的变化，由P1.0 口 产生200——250HZ 变化的频率。实际应用例如：传感器 前级推动、频率发生器。 程序实例（F250.ASM）： ORG 0000H AJMP MAIN ORG 001BH AJMP DIN1
MAIN:
;定义频率200 和300////////////////////////////////// F2H EQU 30H F2L EQU 31H F3H EQU 32H F3L EQU 33H 14
;////////////////////////////////////////////////// ;定义频率保持初值////////////////////////////////// MOV R1,#50 MOV R2,#02H
;////////////////////////////////////////////////// ;频率赋初值//////////////////////////////////////// MOV F2H,#0F6H MOV F2L,#3BH MOV F3H,#0F8H MOV F3L,#2FH
;////////////////////////////////////////////////// CLR P1.0 ;在P1.0 口产生一个低
电平，一个脉冲是由一个高电平和一个低电平组成的 MOV TMOD,#00010000B ;定时器工作于方式1 MOV TH1,F2H
MOV TL1,F2L ;200HZ 输出 SETB EA ;开总中断
SETB TR1 ;开定时器1 运行 SETB ET1 ;开定时器1 允许 LOOP: AJMP LOOP DIN1:
CPL P1.0 ;取反P1.0 口，实际
是为了不断的将p1.0 的电平关系转换，即产生了频率 ;频率保持时间////////////////////////////////////// DJNZ R1,RE MOV R1,#50 DJNZ R2,RE MOV R2,#02H 15
;////////////////////////////////////////////////// MOV A,F2H
CJNE A,F3H,XIA ;频率高位到300HZ 的高位了吗？
AJMP JIA ;频率高位没到
300HZ 的高位值，直接将低位值加1 XIA: INC F2L MOV A,F2L
CJNE A,#00H,RE INC F2H MOV A,F2H CJNE A,F3H,RE
;/////////////////////////////////////////////
;频率高位加到300HZ 的高位值了，低位加一，到300HZ 的低 位值了吗，没到出去，到了关定时器 JIA:
INC F2L ;到了将200HZ 频率的低位加1 MOV A,F2L
CJNE A,#F3L,RE CLR TR1
;///////////////////////////////////////////// RE:
MOV TH1,F2H MOV TL1,F2L RETI END 16
六、数显
0——9999 显示
程序介绍：利用S51 的串行口功能，实现数码管0— —9999 的循环显示。实际应用例如：电子计分牌。 程序实例（9999.ASM）： ORG 0000H MAIN:
GEE EQU 30H SHI EQU 31H BEI EQU 32H
QIAN EQU 33H ;定义个十百千 MOV GEE,#00H MOV SHI,#00H MOV BEI,#00H
MOV QIAN,#00H ;赋初值
MOV SCON,#00H ;串行口工作于方式 0.同步移位
;显示个，十，百，千////////////////////////////////// DISPLAY:
ACALL DELAY ;延时 MOV DPTR,#SETTAB MOV A,GEE
MOVC A,@A+DPTR MOV SBUF,A D1: JNB TI,D1
17 CLR TI
MOV DPTR,#SETTAB MOV A,SHI
MOVC A,@A+DPTR MOV SBUF,A D2: JNB TI,D2 CLR TI
MOV DPTR,#SETTAB MOV A,BEI
MOVC A,@A+DPTR MOV SBUF,A D3: JNB TI,D3 CLR TI
MOV DPTR,#SETTAB MOV A,QIAN MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI
;///////////////////////////////////////////// ;个，十，百，千的依次加一///////////////////// INC GEE MOV A,GEE
CJNE A,#0AH,DISPLAY MOV GEE,#00H INC SHI MOV A,SHI
CJNE A,#0AH,DISPLAY 18
MOV SHI,#00H INC BEI MOV A,BEI
CJNE A,#0AH,DISPLAY MOV BEI,#00H INC QIAN MOV A,QIAN
CJNE A,#0AH,DISPLAY MOV QIAN,#00H AJMP DISPLAY
;////////////////////////////////////////////////// ;延时////////////////////////////////////////////// DELAY: MOV R1,#0FFH E1: MOV R2,#0FFH
DJNZ R2,$ DJNZ R1,E1 RET
;///////////////////////////////////////////// SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H,0FEH, F6H,0EEH,3EH,9CH,7AH,9EH,8EH ;数显代码 END
七、AD 转换
7.1 AD 转换（数码显示）
程序介绍：利用ADC0809 模拟通道3 输入电压，经单片机 19
处理后在数码管上用相对应的16 进制数显示出来，0—5V 对 应为0--0FFH,实际应用例如：数据采集。
程序操作：程序写完上电运行后，用本机配带的专用起微调 图15 所示电位器，会在数码管上看到随不同电压而变化的对 应16 进制值。也可以用 万用表实ADC0809IN3 脚 电压，来检验所对应显 示的16 进制数。 图15
程序实例（ad.asm）: ORG 0000H MAIN1:
ACALL DELAY ;延时
ACALL AD ;呼叫AD 子程序
;将转换的数字量屏蔽高位低位送显//////////////////// MOV 31H,30H MOV A,30H ANL A,#0FH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D1: JNB TI,D1 CLR TI
;////////////////////////////////////////////////// ;将转换的数字量屏蔽低位高位送显//////////////////// MOV A,30H 20
ANL A,#0F0H SWAP A
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A
D2: JNB TI,D2 CLR TI
;////////////////////////////////////////////////// AJMP MAIN1 ;返回主程序
AD: MOV DPTR,#7F00H ;指向转换地址 MOV A,#03H ;指向转换口 MOVX @DPTR,A ;转换 MOV R1,#H
D3: DJNZ R1,D3 ;等100 微秒转换完 MOVX A,@DPTR ;转换后的值给A MOV 30H,A ;转换的值给30H RET
DELAY: ;延时 MOV R2,#0FFH
D14: MOV R3,#0FFH D12: DJNZ R3,D12 DJNZ R2,D14 RET SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH 21
7.2 十六进制两位数加法器（数码显示）
程序介绍：将ADC0809 输入的两个不同电压（相同电 压也可相加，只是为举例说明，所以取不同电压）所对应 的16 进制数相加显示出来。实际应用例如：取代加法运放 电路。
程序操作：程序写完上电运行后，用本机配带的钟表
起微调图16 所示电位器，输入两个不同电压，数码管会显 示两个不同的对应16 进制数，随后数码管会显示两个16 进制数相加的值。
程序实例（add2.asm）: ORG 0000H MAIN:
ADNUMBER EQU 30H ;AD 转换值 ADDNUMBER EQU 31H ;加数值1 ADL EQU 32H ;//
ADH EQU 33H ;ADL 转换高低位值 DISL EQU 34H ;//
DISH EQU 35H ;显示高低位值
ADDTOTAL EQU 36H ;第一次AD 转换值 ADDJW EQU 37H ;加法进位数 ADDHOLD EQU 38H
;赋初值//////////////////////////////////////////// MOV ADDHOLD,#00H MOV ADDNUMBER,#00H MOV ADL,#00H MOV ADH,#00H MOV DISL,#00H 22
MOV DISH,#00H MOV ADDJW,#00H MOV ADDTOTAL,#00H
;////////////////////////////////////////////////// MAIN1:
ACALL AD ;呼叫AD 子程序 ACALL DELAY ;延时
ACALL CAIFEN ;呼叫AD 值拆分为高 低的程序
ACALL DISPLAY ;呼叫显示子程序 MOV A,ADNUMBER ;取AD 值
CJNE A,ADDHOLD,ADD3 ;与上次AD 值比
较，不相等，即输入了新的AD 值，去AD3 执行 AJMP MAIN1 ;是相等的，证
明没有输入新的AD 值，回去显示老的AD 值 ADD3: MOV A,ADDHOLD CJNE A,#00H,ADD4
MOV ADDHOLD,ADNUMBER ;有一种情况就
是是第一次进来，AD 保持值里面是放的初值00，与取的AD 值 不同，是这种情况，也返回去 AJM MAIN1
ADD4: MOV ADDNUMBER,ADDHOLD ;是真的输入
了新的AD 值，将上次AD 值给加数，为调加法程序做准备 MOV ADDHOLD,ADNUMBER ;将这次的AD 值也保持起来。准备与上一个AD 值相加
;显示这次输入的AD 值//////////////////////////////// ACALL DELAY ACALL CAIFEN 23
ACALL DISPLAY
;////////////////////////////////////////////////// DISPLAY1:
ACALL DELAY ;延时
ACALL ADD1 ;呼叫加法子程序 ACALL DISPLAY ;显示
LOOP: AJMP LOOP ;返回主程序
;///////////////////////////////////////AD 转换
AD:
MOV DPTR,#7F00H;指向转换地址 MOV A,#03H ;指向转换口 MOVX @DPTR,A ;转换 MOV R1,#H
D1: DJNZ R1,D1 ;等100 微秒转换完 MOVX A,@DPTR ;转换后的值给A MOV ADNUMBER,A ;转换的值给30H RET
;////////////////////////////////////////////////// ;拆分AD 值程序////////////////////////////////////// CAIFEN:
MOV A,ADNUMBER ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADNUMBER ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL 24
MOV DISH,ADH ;给显示值 RET
;////////////////////////////////////////////////// ;显示////////////////////////////////////////////// DISPLAY: MOV A,DISL
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D3: JNB TI,D3 CLR TI MOV A,DISH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI
MOV A,ADDJW
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D5: JNB TI,D5 CLR TI
MOV SBUF,#00H D6: JNB TI,D6 CLR TI RET
;////////////////////////////////////////////////// 25
;加法程序////////////////////////////////////////// ADD1: CLR C
MOV A,ADDNUMBER ;取上次AD 值 ADDC A,ADDHOLD ;与这次AD 值相加 MOV ADDTOTAL,A ;将此次加的值给和 值
JNC ADDJW1 ;有无进位？
INC ADDJW ;有进位，进位值给 ADDJW
ADDJW1: ANL A,#0FH MOV DISL,A ;加值取低位 MOV A,ADDTOTAL ANL A,#0F0H SWAP A
MOV DISH,A ;加值取高位 RET
;////////////////////////////////////////////////// DELAY: ;延时 MOV R3,#0AH
DD1: MOV R1,#0FFH D2 : MOV R2,#0FFH DJNZ R2,$ DJNZ R1,D2 DJNZ R3,DD1 RET SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 26
0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH END
7.3 软件滤波
程序介绍（7.31—7.34）：您如果接触过模电就知道， 在采集电压量时经常会碰到干扰，而在模电中经常所采用 的方法就是加电容滤波，这是用硬件实现的。实际上软件 完全可以达到滤波的效果，现在介绍的是一种最经典的方 法。在一次电压量的采集中，在很短的时间内对它进行6
次采集，将它转换为数字量后求和（7.31），分析出6 次 输入中的最大值和最小值（7.32），然后减去最大值和最 小值（7.33），除以4（7.44）得到平均值。这样实际上 就完成了一次软件滤波。省去了复杂的硬件，而且取得了 好而精确的效果。实际应用例如：精确数据采集。 程序操作：程序写入上电运行后，用本实验仪自带的
钟表起微调电位器依次输入6 个电压量。7.31 程序会显示 和值，7.32 会继续显示最大和最小值，7.33 程序会继续显 示减后所剩的值，7.34 程序会继续显示除4 后的值。 算法说明：为什么要选择取6 个数进行计算呢？因为 在汇编中做计算是非常麻烦的，取6 个数，减去最大值和 最小值后，取平均值是除4.计算机的内部计算都是二进 制，而二进制每除一个2，实际上是向右移一次。所以为 了计算方便，我们选择取6 个数，最后在算除法的时候， 只需要用单片机自带的右移位命令移2 次就行了。 27
7.31 十六进制六位数加法（数码显示） 程序实例(add6.asm): ORG 0000H MAIN:
ADNUMBER EQU 30H ;AD 转换值 ADDNUMBER EQU 31H ;加数值1 ADL EQU 32H ;//
ADH EQU 33H ;ADL 转换高低位值 DISL EQU 34H ;//
DISH EQU 35H ;显示高低位值
ADDTOTAL EQU 36H ;第一次AD 转换值 ADDJW EQU 37H ;加法进位数 ADDHOLD EQU 38H
ADDFLAG EQU 39H ;加标志 ENDFLAG EQU 40H
;赋初值//////////////////////////////////////////// MOV ADDHOLD,#00H MOV ADDNUMBER,#00H MOV ADL,#00H MOV ADH,#00H MOV DISL,#00H MOV DISH,#00H MOV ADDJW,#00H MOV ADDFLAG,#00H MOV ENDFLAG,#00H
MOV ADDTOTAL,#00H
;//////////////////////////////////////////////////
MAIN1: 28
;显示AD 值////////////////////////////////////////// ACALL DELAY ACALL DELAY ACALL AD MAIN3:
ACALL CAIFEN ACALL DISPLAY
;////////////////////////////////////////////////// ;加这次的AD 值，并判是否加了六次，是的话就进入死循环 ACALL DELAY ACALL ADD1 ACALL DISPLAY INC ADDFLAG MOV A,ADDFLAG CJNE A,#06H,MAIN2 LOOP: AJMP LOOP
;////////////////////////////////////////////////// ;没有加到六次，继续取值加，如果没有来新AD 值，还是去 显示上次加的值，有新AD 值来了，显示这次AD 值，并加上上 次AD 值，显示/////////////////////////////////////// MAIN2: ACALL DELAY ACALL AD
MOV A,ADNUMBER
CJN A,ADDTOTAL,MAIN3 AJM MAIN2
;////////////////////////////////////////////////// ;////////////////////////////////////////////AD 转换 AD: 29
MOV DPTR,#7F00H ;指向转换地址 MOV A,#03H ;指向转换口 MOVX @DPTR,A ;转换 MOV R1,#H
D1: DJNZ R1,D1 ;等100 微秒转换完 MOVX A,@DPTR ;转换后的值给A MOV ADNUMBER,A ;转换的值给30H RET
;////////////////////////////////////////////////// ;拆分AD 值程序////////////////////////////////////// CAIFEN:
MOV A,ADNUMBER ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADNUMBER ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL
MOV DISH,ADH ;给显示值 RET
;////////////////////////////////////////////////// ;显示////////////////////////////////////////////// DISPLAY: MOV A,DISL
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A 30
D3: JNB TI,D3 CLR TI MOV A,DISH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI
MOV A,ADDJW
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D5: JNB TI,D5 CLR TI
MOV SBUF,#00H D6: JNB TI,D6 CLR TI RET
;////////////////////////////////////////////////// ;加法程序////////////////////////////////////////// ADD1: CLR C
MOV ADDTOTAL,ADNUMBER MOV A,ADNUMBER ADDC A,ADDHOLD MOV ADDHOLD,A JNC ADDJW1 INC ADDJW
31
ADDJW1: ANL A,#0FH MOV DISL,A ;加值取低位 MOV A,ADDHOLD ANL A,#0F0H SWAP A
MOV DISH,A ;加值取高位 RET
;/////////////////////////////////////////////// DELAY: ;延时 MOV R3,#0AH
DD1: MOV R1,#0FFH D2 : MOV R2,#0FFH DJNZ R2,$ DJNZ R1,D2 DJNZ R3,DD1 RET SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH END
7.32 求六位和中的最大值和最小值（数码显示） 程序实例（add61.asm）: ORG 0000H MAIN:
ADNUMBER EQU 30H ;AD 转换值 ADL EQU 32H ;// 32
ADH EQU 33H ;ADL 转换高低位值 DISL EQU 34H ;//
DISH EQU 35H ;显示高低位值
ADDTOTAL EQU 36H ;第一次AD 转换值 ADDJW EQU 37H ;加法进位数 ADDHOLD EQU 38H
ADDFLAG EQU 39H ;加标志 ENDFLAG EQU 40H
ADH1 EQU 41H ;AD 中最大的值 ADL1 EQU 42H ;AD 中最小的值 ADHOLDH EQU 43H
ADHOLDL EQU 44H ;求AD 最大值与最小
值时AD 的比较值，即以此两个值为比较中转 FOUR EQU 45H
SUB EQU 46H ;减去高低位后的值
JWHOLD EQU 47H ;保存进位值
;赋初值//////////////////////////////////////////// MOV ADDHOLD,#00H MOV ADL,#00H MOV ADH,#00H MOV DISL,#00H MOV DISH,#00H MOV ADDJW,#00H MOV ADDFLAG,#00H MOV ENDFLAG,#00H MOV ADDTOTAL,#00H MOV ADH1,#00H MOV ADL1,#00H 33
MOV ADHOLDH,#00H MOV FOUR,#00H MOV ADHOLDL,#00H MOV JWHOLD,#00H MOV SUB,#00H
;////////////////////////////////////////////////// MAIN1:
ACALL DELAY ACALL DELAY
ACALL AD ;取AD 值 MAIN3: ACALL CAIFEN ACALL DISPLAY ;显示 ACALL DELAY ACALL DELAY
;算最大值和最小值////////////////////////////////// ACALL ADDH ACALL ADDL
;////////////////////////////////////////////////// ;加和值显示/////////////////////////////////////// ACALL ADD1 ACALL DISPLAY
;////////////////////////////////////////////////// ;判是否加到了6 次/////////////////////////////////// INC ADDFLAG MOV A,ADDFLAG CJNE A,#06H,MAIN2
;///////////////////////////////////////////////// ACALL DELAY 34
ACALL DELAY
ACALL DELAY ACALL DELAY ACALL DELAY ACALL DELAY
ACALL CAIFEN1 ;拆最小值 ACALL CAIFEN2 ;拆最大值
ACALL DISPLAY ;显示最大值最小值 LOOP: AJMP LOOP
;判有没有来新AD 值，没有显示以前，有显示现在的/////// MAIN2:
ACALL DELAY ACALL AD
MOV A,ADNUMBER
CJNE A,ADDTOTAL,MAIN3 AJMP MAIN2
;////////////////////////////////////////////////// ;AD 转换//////////////////////////////////////////// AD: MOV DPTR,#7F00H ;指向转换地址 MOV A,#03H ;指向转换口 MOVX @DPTR,A ;转换 MOV R1,#H
D1: DJNZ R1,D1 ;等100 微秒转换完 MOVX A,@DPTR ;转换后的值给A MOV ADNUMBER,A ;转换的值给30H RET
;////////////////////////////////////////////////// ;拆分AD 值程序////////////////////////////////////// 35
CAIFEN:
MOV A,ADNUMBER ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADNUMBER ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL
MOV DISH,ADH ;给显示值 RET
;////////////////////////////////////////////////// ;显示////////////////////////////////////////////// DISPLAY: MOV A,DISL
MOV DPTR,#SETTAB
MOVC A,@A+DPTR MOV SBUF,A D3: JNB TI,D3 CLR TI MOV A,DISH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI
MOV A,ADDJW
MOV DPTR,#SETTAB 36
MOVC A,@A+DPTR MOV SBUF,A D5: JNB TI,D5 CLR TI MOV A,FOUR
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D6: JNB TI,D6 CLR TI RET
;//////////////////////////////////////////////// ;加法程序//////////////////////////////////////// ADD1: CLR C
MOV ADDTOTAL,ADNUMBER MOV A,ADNUMBER ADDC A,ADDHOLD MOV ADDHOLD,A JNC ADDJW1 INC ADDJW
ADDJW1: ANL A,#0FH MOV DISL,A ;加值取低位 MOV A,ADDHOLD ANL A,#0F0H SWAP A
MOV DISH,A ;加值取高位 RET 37
;////////////////////////////////////////////////// ;AD 值中的最大值////////////////////////////////////
ADDH:
MOV A,ADH1
CJNE A,#00H,ADDH1 MOV ADH1,ADNUMBER AJMP RE
ADDH1: MOV A,ADNUMBER CLR C
SUBB A,ADH1 JC RE
MOV ADH1,ADNUMBER RE: RET
;////////////////////////////////////////////////// ;AD 值中的最小值//////////////////////////////////// ADDL:
MOV A,ADL1
CJNE A,#00H,ADDL1 MOV ADL1,ADNUMBER AJMP RE1
ADDL1: MOV A,ADNUMBER CLR C
SUBB A,ADL1 JNC RE1
MOV ADL1,ADNUMBER RE1: RET
;////////////////////////////////////////////////// ;分解AD 最小值的个，十位//////////////////////////// 38
CAIFEN1: MOV A,ADL1 ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADL1 ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL
MOV DISH,ADH ;给显示值 RET
;///////////////////////////////////////////// ;分解AD 最大值的个，十位/////////////////////// CAIFEN2: MOV A,ADH1 ANL A,#0FH
MOV ADL,A ;取低位
MOV A,ADH1 ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV JWHOLD,ADDJW MOV ADDJW,ADL
MOV FOUR,ADH ;给显示值 RET
;////////////////////////////////////////////////// DELAY: ;延时 MOV R3,#0AH 39
DD1: MOV R1,#0FFH D2 : MOV R2,#0FFH DJNZ R2,$ DJNZ R1,D2 DJNZ R3,DD1 RET
;////////////////////////////////////////////////// SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH END
7.33 求减去最大和最小值后的值（数码显示） 程序实例（add62.asm） ORG 0000H MAIN:
ADNUMBER EQU 30H ;AD 转换值 ADL EQU 32H ;//
ADH EQU 33H ;ADL 转换高低位值 DISL EQU 34H ;//
DISH EQU 35H ;显示高低位值
ADDTOTAL EQU 36H ;第一次AD 转换值 ADDJW EQU 37H ;加法进位数 ADDHOLD EQU 38H
ADDFLAG EQU 39H ;加标志 ENDFLAG EQU 40H
ADH1 EQU 41H ;AD 中最大的值 40
ADL1 EQU 42H ;AD 中最小的值 ADHOLDH EQU 43H
ADHOLDL EQU 44H ;求AD 最大值与最小
值时AD 的比较值，即以此两个值为比较中转
FOUR EQU 45H
SUB EQU 46H ;减去高低位后的值 JWHOLD EQU 47H ;保存进位值
;赋初值/////////////////////////////////////////// MOV ADDHOLD,#00H MOV ADL,#00H MOV ADH,#00H MOV DISL,#00H MOV DISH,#00H MOV ADDJW,#00H MOV ADDFLAG,#00H MOV ENDFLAG,#00H MOV ADDTOTAL,#00H MOV ADH1,#00H MOV ADL1,#00H MOV ADHOLDH,#00H MOV FOUR,#00H MOV ADHOLDL,#00H MOV JWHOLD,#00H MOV SUB,#00H
;////////////////////////////////////////////////// MAIN1:
ACALL DELAY ACALL DELAY 41
ACALL AD ;取AD 值 MAIN3: ACALL CAIFEN ACALL DISPLAY ;显示 ACALL DELAY ACALL DELAY
;算最大值和最小值////////////////////////////////// ACALL ADDH ACALL ADDL
;////////////////////////////////////////////////// ;加和值显示/////////////////////////////////////// ACALL ADD1 ACALL DISPLAY
;///////////////////////////////////////////////// ;判是否加到了6 次////////////////////////////////// INC ADDFLAG MOV A,ADDFLAG CJNE A,#06H,MAIN2
;////////////////////////////////////////////////// ACALL DELAY
ACALL DELAY ACALL DELAY ACALL DELAY ACALL DELAY ACALL DELAY
ACALL CAIFEN1 ;拆最小值 ACALL CAIFEN2 ;拆最大值
ACALL DISPLAY ;显示最大值最小值 ACALL DELAY 42
ACALL DELAY
ACALL JIAN1 ;呼叫减最大值最小 值程序
ACALL CAIFEN3 ;拆分
ACALL DISPLAY ;显示减去最大值最 小值后的值 ACALL DELAY ACALL DELAY ACALL DELAY LOOP: AJMP LOOP
;判有没有来新AD 值，没有显示以前，有显示现在的/// MAIN2:
ACALL DELAY ACALL AD
MOV A,ADNUMBER
CJNE A,ADDTOTAL,MAIN3 AJMP MAIN2
;///////////////////////////////////////////////// ;AD 转换/////////////////////////////////////////// AD:
MOV DPTR,#7F00H ;指向转换地址 MOV A,#03H ;指向转换口 MOVX @DPTR,A ;转换 MOV R1,#H
D1: DJNZ R1,D1 ;等100 微秒转换完 MOVX A,@DPTR ;转换后的值给A MOV ADNUMBER,A ;转换的值给30H RET 43
;////////////////////////////////////////////////// ;拆分AD 值程序////////////////////////////////////// CAIFEN:
MOV A,ADNUMBER ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADNUMBER ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL
MOV DISH,ADH ;给显示值 RET
;////////////////////////////////////////////////// ;显示////////////////////////////////////////////// DISPLAY: MOV A,DISL
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D3: JNB TI,D3 CLR TI MOV A,DISH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI 44
MOV A,ADDJW
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D5: JNB TI,D5 CLR TI MOV A,FOUR
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D6: JNB TI,D6 CLR TI RET
;///////////////////////////////////////////// ;加法程序///////////////////////////////////// ADD1: CLR C
MOV ADDTOTAL,ADNUMBER MOV A,ADNUMBER ADDC A,ADDHOLD
MOV ADDHOLD,A JNC ADDJW1 INC ADDJW ADDJW1: ANL A,#0FH
MOV DISL,A ;加值取低位 MOV A,ADDHOLD ANL A,#0F0H 45 SWAP A
MOV DISH,A ;加值取高位 RET
;///////////////////////////////////////////////// ;AD 值中的最大值/////////////////////////////////// ADDH:
MOV A,ADH1
CJNE A,#00H,ADDH1 MOV ADH1,ADNUMBER AJMP RE
ADDH1: MOV A,ADNUMBER CLR C
SUBB A,ADH1 JC RE
MOV ADH1,ADNUMBER RE: RET
;////////////////////////////////////////////////// ;AD 值中的最小值//////////////////////////////////// ADDL:
MOV A,ADL1
CJNE A,#00H,ADDL1 MOV ADL1,ADNUMBER AJMP RE1
ADDL1: MOV A,ADNUMBER CLR C
SUBB A,ADL1 JNC RE1
MOV ADL1,ADNUMBER 46
RE1: RET
;////////////////////////////////////////////////// ;分解AD 最小值的个，十位//////////////////////////// CAIFEN1: MOV A,ADL1 ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADL1 ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL
MOV DISH,ADH ;给显示值 RET
;///////////////////////////////////////////////// ;分解AD 最大值的个，十位/////////////////////////// CAIFEN2: MOV A,ADH1 ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADH1 ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV JWHOLD,ADDJW MOV ADDJW,ADL
MOV FOUR,ADH ;给显示值 RET 47
;////////////////////////////////////////////////// ;分解减去最高位和最低位的数//////////////////////// CAIFEN3: MOV A,SUB ANL A,#0FH MOV ADL,A MOV A,SUB ANL A,#0F0H SWAP A MOV ADH,A MOV DISL,ADL MOV DISH,ADH RET
;////////////////////////////////////////////////// ;减去最高位和最低位//////////////////////////////// JIAN1:
MOV FOUR,#00H MOV ADDJW,JWHOLD
MOV A,ADDHOLD ;取和值 CLR C
SUBB A,ADH1 ;减最高位
JNC JIAN2
DEC ADDJW ;有进位，高位减一 JIAN2: CLR C
SUBB A,ADL1 ;减低位
JNC TUI ;无进位出去，有进 位高位减一 48
DEC ADDJW
TUI: MOV SUB,A ;取减的值给SUB RET
;////////////////////////////////////////////////// ;滤波////////////////////////////////////////////// DELAY: ;延时 MOV R3,#0AH
DD1: MOV R1,#0FFH D2 : MOV R2,#0FFH DJNZ R2,$ DJNZ R1,D2 DJNZ R3,DD1 RET
;////////////////////////////////////////////////// SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH END
7.34 除4 所得软件滤波值（数码显示） 程序实例（add63.asm）： ORG 0000H MAIN:
ADNUMBER EQU 30H ;AD 转换值 ADL EQU 32H ;//
ADH EQU 33H ;ADL 转换高低位值 DISL EQU 34H ;// 49
DISH EQU 35H ;显示高低位值
ADDTOTAL EQU 36H ;第一次AD 转换值 ADDJW EQU 37H ;加法进位数 ADDHOLD EQU 38H
ADDFLAG EQU 39H ;加标志 ENDFLAG EQU 40H
ADH1 EQU 41H ;AD 中最大的值 ADL1 EQU 42H ;AD 中最小的值
ADHOLDH EQU 43H
ADHOLDL EQU 44H ;求AD 最大值与最小
值时AD 的比较值，即以此两个值为比较中转 FOUR EQU 45H
SUB EQU 46H ;减去高低位后的值 JWHOLD EQU 47H ;保存进位值
;赋初值////////////////////////////////////////// MOV ADDHOLD,#00H MOV ADL,#00H MOV ADH,#00H MOV DISL,#00H MOV DISH,#00H MOV ADDJW,#00H MOV ADDFLAG,#00H MOV ENDFLAG,#00H MOV ADDTOTAL,#00H MOV ADH1,#00H MOV ADL1,#00H MOV ADHOLDH,#00H MOV FOUR,#00H 50
MOV ADHOLDL,#00H MOV JWHOLD,#00H MOV SUB,#00H
;////////////////////////////////////////////////// MAIN1:
ACALL DELAY ACALL DELAY
ACALL AD ;取AD 值 MAIN3: ACALL CAIFEN ACALL DISPLAY ;显示 ACALL DELAY ACALL DELAY
;算最大值和最小值//////////////////////////////// ACALL ADDH ACALL ADDL
;////////////////////////////////////////////////// ;加和值显示//////////////////////////////////////// ACALL ADD1 ACALL DISPLAY
;////////////////////////////////////////////////// ;判是否加到了6 次/////////////////////////////////// INC ADDFLAG MOV A,ADDFLAG
CJNE A,#06H,MAIN2
;///////////////////////////////////////////////// ACALL DELAY ACALL DELAY ACALL DELAY 51
ACALL DELAY ACALL DELAY ACALL DELAY
ACALL CAIFEN1 ;拆最小值 ACALL CAIFEN2 ;拆最大值
ACALL DISPLAY ;显示最大值最小值 ACALL DELAY ACALL DELAY
ACALL JIAN1 ;呼叫减最大值最小值程序 ACALL CAIFEN3 ;拆分
ACALL DISPLAY ;显示减去最大值最小值后的 值
ACALL DELAY ACALL DELAY ACALL DELAY
ACALL LUBO ;滤波程序 ACALL DELAY ACALL CAIFEN3
ACALL DISPLAY ;显示 LOOP: AJMP LOOP
;判有没有来新AD 值，没有显示以前，有显示现在的/////// MAIN2:
ACALL DELAY ACALL AD
MOV A,ADNUMBER
CJNE A,ADDTOTAL,MAIN3 AJMP MAIN2
;////////////////////////////////////////////////// 52
;AD 转换//////////////////////////////////////////// AD:
MOV DPTR,#7F00H ;指向转换地址 MOV A,#03H ;指向转换口 MOVX @DPTR,A ;转换 MOV R1,#H
D1: DJNZ R1,D1 ;等100 微秒转换完 MOVX A,@DPTR ;转换后的值给A MOV ADNUMBER,A ;转换的值给30H
RET
;////////////////////////////////////////////// ;拆分AD 值程序////////////////////////////////// CAIFEN:
MOV A,ADNUMBER ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADNUMBER ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL
MOV DISH,ADH ;给显示值 RET
;////////////////////////////////////////////////// ;显示////////////////////////////////////////////// DISPLAY: MOV A,DISL
MOV DPTR,#SETTAB 53
MOVC A,@A+DPTR MOV SBUF,A D3: JNB TI,D3 CLR TI MOV A,DISH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI
MOV A,ADDJW
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D5: JNB TI,D5 CLR TI MOV A,FOUR
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D6: JNB TI,D6 CLR TI RET
;//////////////////////////////////////////////////
;加法程序////////////////////////////////////////// ADD1: CLR C
MOV ADDTOTAL,ADNUMBER 54
MOV A,ADNUMBER ADDC A,ADDHOLD MOV ADDHOLD,A JNC ADDJW1 INC ADDJW
ADDJW1: ANL A,#0FH MOV DISL,A ;加值取低位 MOV A,ADDHOLD ANL A,#0F0H SWAP A
MOV DISH,A ;加值取高位 RET
;////////////////////////////////////////////////// ;AD 值中的最大值//////////////////////////////////// ADDH:
MOV A,ADH1
CJNE A,#00H,ADDH1 MOV ADH1,ADNUMBER AJMP RE
ADDH1: MOV A,ADNUMBER CLR C
SUBB A,ADH1 JC RE
MOV ADH1,ADNUMBER RE: RET
;////////////////////////////////////////////////// ;AD 值中的最小值//////////////////////////////////// ADDL: 55
MOV A,ADL1
CJNE A,#00H,ADDL1 MOV ADL1,ADNUMBER AJMP RE1
ADDL1: MOV A,ADNUMBER CLR C
SUBB A,ADL1 JNC RE1
MOV ADL1,ADNUMBER RE1: RET
;////////////////////////////////////////////////// ;分解AD 最小值的个，十位//////////////////////////// CAIFEN1: MOV A,ADL1 ANL A,#0FH
MOV ADL,A ;取低位 MOV A,ADL1 ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV DISL,ADL
MOV DISH,ADH ;给显示值 RET
;//////////////////////////////////////////////// ;分解AD 最大值的个，十位////////////////////////// CAIFEN2: MOV A,ADH1 ANL A,#0FH 56
MOV ADL,A ;取低位 MOV A,ADH1 ANL A,#0F0H SWAP A
MOV ADH,A ;取高位 MOV JWHOLD,ADDJW MOV ADDJW,ADL
MOV FOUR,ADH ;给显示值 RET
;////////////////////////////////////////////////// ;分解减去最高位和最低位的数//////////////////////// CAIFEN3: MOV A,SUB ANL A,#0FH MOV ADL,A MOV A,SUB ANL A,#0F0H SWAP A MOV ADH,A MOV DISL,ADL MOV DISH,ADH RET
;////////////////////////////////////////////////// ;减去最高位和最低位//////////////////////////////// JIAN1:
MOV FOUR,#00H MOV ADDJW,JWHOLD
MOV A,ADDHOLD ;取和值 57 CLR C
SUBB A,ADH1 ;减最高位 JNC JIAN2
DEC ADDJW ;有进位，高位减一 JIAN2: CLR C
SUBB A,ADL1 ;减低位
JNC TUI ;无进位出去，有进位高位 减一
DEC ADDJW
TUI: MOV SUB,A ;取减的值给SUB RET
;////////////////////////////////////////////////// ;滤波////////////////////////////////////////////// LUBO:
;除2//利用二进制右移位来实现/////////////////////// CLR C
MOV A,ADDJW RRC A
MOV ADDJW,A MOV A,SUB RRC A MOV SUB,A
;////////////////////////////////////////////////// ;再除一次2，达到除4 的效果//// ////////////////////// CLR C
MOV A,ADDJW RRC A 58
MOV ADDJW,A MOV A,SUB RRC A MOV SUB,A
;////////////////////////////////////////////////// RET
;////////////////////////////////////////////////// DELAY: ;延时 MOV R3,#0AH
DD1: MOV R1,#0FFH D2 : MOV R2,#0FFH
DJNZ R2,$ DJNZ R1,D2 DJNZ R3,DD1 RET
;////////////////////////////////////////////////// SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH END
7.4 过程检定
程序介绍(7.41—7.43)：本程序用软件模拟了一个振 动传感器软件搜频的全过程。振动传感器是通过在激励端 给传感器一定频率的电压，在感应端感应一定频率的电压 值。所以它能测很多东西，比如不同的压力所感应不同电 压值，不同油品粘度也可以感应不同电压值，等等。但是 59
这存在一个问题？就是传感器何时才能达到谐振状态呢， 于是这就要给激励端变化的频率来测感应端的电压，感应 端的电压在这个变化频率内何时最大，这时所给的频率就 是所搜到的谐振频率。以前没有单片机软件控制时，我们 只能通过硬件不断的给激励端变化频率电压，然后测感应 端电压，来搜到谐振频率。7.41 是在p1.0 口输出并显示变 化的频率200-250hz（省略了2 的显示），7.42 在7.41 的基础 上增加了AD 输入量的显示。
7．43 将会在您输入变化AD 值后，将搜到的AD 值与 频率值显示出来。实际应用如压力检测，粘度检测。 程序操作：因为7.41 和7.42 只是7.43 的铺垫。所以在 将7.43 程序写入并上电后，您将会在数码管左两位看到 200-250HZ 变化频率的显示（省略2），右边看到输入AD 值的显示。您可以用钟表起微调AD 输入的电位器，使AD 值上升，下降。在变化频率显示完后，程序将会把您所输 入的最大的AD 值与其所对应的频率一起显示出来，这就是 软件模拟的全过程。
7.41 P1.0 口产生200——250HZ 变化频率输出（数 码显示）
程序实例（f25dis.asm）: ORG 0000H AJMP MAIN ORG 001BH AJMP DIN1 MAIN:
;定义频率200 和300////////////////////////////////// F2H EQU 30H
60
F2L EQU 31H F3H EQU 32H F3L EQU 33H
;///////////////////////////////////////////////// DISFLAG EQU 34H ;显示标志 DISL EQU 35H ;显示低位 DISH EQU 36H ;显示高位
;定义频率保持初值////////////////////////////////// MOV R1,#50 MOV R2,#02H
;////////////////////////////////////////////////// ;显示赋初值//////////////////////////////////////// MOV DISFLAG,#00H MOV DISL,#00H MOV DISH,#00H
;////////////////////////////////////////////////// ;频率赋初值//////////////////////////////////////// MOV F2H,#0F6H MOV F2L,#3BH MOV F3H,#0F8H MOV F3L,#2FH
;///////////////////////////////////////////////// CLR P1.0 ;在P1.0 口产生一个低电
平，一个脉冲是由一个高电平和一个低电平组成的 MOV TMOD,#00010000B;定时器工作于方式1 MOV TH1,F2H
MOV TL1,F2L ;200HZ 输出 SETB EA ;开总中断 61
SETB TR1 ;开定时器1 运行 SETB ET1 ;开定时器1 允许 DISPLAY:
MOV SBUF,#00H D1: JNB TI,D1 CLR TI
MOV SBUF,#00H D2: JNB TI,D2 CLR TI MOV A,DISL
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D3: JNB TI,D3
CLR TI MOV A,DISH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI
ACALL DELAY AJMP DISPLAY LOOP: AJMP LOOP DIN1:
CPL P1.0 ;取反P1.0 口，实际是为了不断 的将p1.0 的电平关系转换，即产生了频率
;频率保持时间////////////////////////////////////// 62
DJNZ R1,RE MOV R1,#50 DJNZ R2,RE MOV R2,#02H
;////////////////////////////////////////////////// INC DISFLAG MOV A,DISFLAG CJNE A,#0AH,FF MOV DISFLAG,#00H INC DISL MOV A,DISL CJNE A,#0AH,FF MOV DISL,#00H INC DISH
;///////////////////////////////////////////////// FF: MOV A,F2H
CJNE A,F3H,XIA ;频率高位到300HZ 的高位 了吗？ AJMP JIA
;频率高位没到300HZ 的高位值，直接将低位值加1/////// XIA: INC F2L MOV A,F2L
CJNE A,#00H,RE INC F2H MOV A,F2H CJNE A,F3H,RE
;////////////////////////////////////////////////// ;频率高位加到300HZ 的高位值了，低位加一，到300HZ 的低 63
位值了吗，没到出去，到了关定时器/////////////////// JIA:
INC F2L ;到了将200HZ 频率的低位加1 MOV A,F2L
CJNE A,#F3L,RE CLR TR1
;////////////////////////////////////////////////// RE:
MOV TH1,F2H MOV TL1,F2L RETI DELAY:
MOV R3,#0FFH D5: DJNZ R3,D5 RET SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH ;数显代码 END
7.42 在显示频率输出的同时显示AD 值（数码显示） 程序实例（ad25dis.asm）: ORG 0000H AJMP MAIN ORG 001BH AJMP DIN1 MAIN:
;定义频率200 和300////////////////////////////////// F2H EQU 30H F2L EQU 31H F3H EQU 32H F3L EQU 33H
;////////////////////////////////////////////////// DISFLAG EQU 34H ;显示标志 DISL EQU 35H ;显示低位 DISH EQU 36H ;显示高位 ADNUMBER EQU 37H ;AD 值 DISADL EQU 38H ;显示AD 低位 DISADH EQU 39H ;显示AD 高位
;定义频率保持初值////////////////////////////////// MOV R1,#100 MOV R2,#02H
;//////////////////////////////////////////////////
MOV ADNUMBER,#00H ;AD 转换数初值
;显示高低位初值/////////////////////////////// MOV DISADL,#00H MOV DISADH,#00H
;显示赋初值//////////////////////////////////////// MOV DISFLAG,#00H MOV DISL,#00H MOV DISH,#00H
;频率赋初值//////////////////////////////////////// MOV F2H,#0F6H 65
MOV F2L,#3BH MOV F3H,#0F8H MOV F3L,#2FH
;////////////////////////////////////////////////// CLR P1.0 ;在P1.0 口产生一
个低电平，一个脉冲是由一个高电平和一个低电平组成的 MOV TMOD,#00010000B;定时器工作于方式1 MOV TH1,F2H
MOV TL1,F2L ;200HZ 输出 SETB EA ;开总中断
SETB TR1 ;开定时器1 运行 SETB ET1 ;开定时器1 允许 ADDIS:
ACALL AD ;呼叫AD 子程序
;将转换的数字量屏蔽高位低位送DISADL 保存//////////// MOV A,ADNUMBER ANL A,#0FH MOV DISADL,A
;////////////////////////////////////////////////// ;将转换的数字量屏蔽低位,将高位送DISADH 保存//////// MOV A,ADNUMBER ANL A,#0F0H SWAP A
MOV DISADH,A
;////////////////////////////////////////////////// DISPLAY: MOV A,DISADL 66
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D1: JNB TI,D1 CLR TI
MOV A,DISADH MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D2: JNB TI,D2 CLR TI MOV A,DISL
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D3: JNB TI,D3 CLR TI MOV A,DISH
MOV DPTR,#SETTAB MOVC A,@A+DPTR MOV SBUF,A D4: JNB TI,D4 CLR TI
ACALL DELAY AJMP ADDIS
LOOP: AJMP LOOP DIN1: PUSH ACC 67
CPL P1.0 ;取反P1.0 口，实际是为了
不断的将p1.0 的电平关系转换，即产生了频率;频率保持时间////////////////////////////////////// DJNZ R1,RE MOV R1,#100 DJNZ R2,RE MOV R2,#02H
;////////////////////////////////////////////////// INC DISFLAG MOV ` A,DISFLAG CJNE A,#0AH,FF MOV DISFLAG,#00H INC DISL MOV A,DISL CJNE A,#0AH,FF MOV DISL,#00H INC DISH
;////////////////////////////////////////////////// FF: MOV A,F2H
CJNE A,F3H,XIA ;频率高位到300HZ 的高位
了吗？ AJMP JIA
;频率高位没到300HZ 的高位值，直接将低位值加1/////// XIA: INC F2L MOV A,F2L
CJNE A,#00H,RE INC F2H MOV A,F2H 68
CJNE A,F3H,RE
;////////////////////////////////////////////////// ;频率高位加到300HZ 的高位值了，低位加一，到300HZ 的低 位值了吗，没到出去，到了关定时器/////////////////// JIA:
INC F2L ;到了将200HZ 频率的低位 加1
MOV A,F2L
CJNE A,#F3L,RE CLR TR1
;////////////////////////////////////////////////// RE:
MOV TH1,F2H MOV TL1,F2L POP ACC RETI
AD: MOV DPTR,#7F00H ;指向转换地址 MOV A,#03H ;指向转换口 MOVX @DPTR,A ;转换 MOV 40H,#H
D6: DJNZ 40H,D6 ;等100 微秒转换完 MOVX A,@DPTR ;转换后的值给A MOV ADNUMBER,A ;转换的值给30H RET DELAY:
MOV R3,#0FFH D5: DJNZ R3,D5 RET 69
SETTAB:
DB 0FCH,60H,0DAH,0F2H,66H,0B6H,0BEH,0E0H, 0FEH,0F6H
DB 0EEH,3EH,9CH,7AH,9EH,8EH ;数显代码 END
因篇幅问题不能全部显示，请点此查看更多更全内容