51单片机1602LCD显示数字频率计

;硬件连接：1602LCD显示000000Hz短接p1.4--p3.5则显示0000010hz
;LCD1602显示在不增加外部计数硬件的情况下，本试验软件可测最高频率达到460KHz
;工作原理：

;1S 钟内对输入脉冲所计数的次数则为频率值。
;16位二进制加法计数器的最大计数值为 65535。
;设置定时器 0 工作在定时方式1，定时1S。
;设置定时器 1 工作在计数方式1，对输入脉冲进行计数，溢出产生中断。
;将定时器 1中断定义为优先。在中断处理程序里对中断次数进行计数。1S到后，
;将中断次数和计数器里的计数值取出进行综合数据处理，处理后的数据送LCD1602显示?
;信号来源：
;1、软件里对 P1.4定时取反，形成输出脉冲,接到 P3.5 可自测。
; 显示结果：P1.4 → P3.5 显示： 000010 （Hz）
;如果有条件的话，可使用专用设备（信号发生器和频率计）进行校正。

;频率计的程序
;包含：外部中断设置，中断服务程序，定时程序，定时服务程序
;以及数据处理，显示，包括 三位十进制数转化为四位BCD码，
;------------------------------------------------------------
BEEPBITP3.7
LCD_RSBITP2.0
LCD_RWBITP2.1
LCD_ENBITP2.2
LCD_XEQU3FH;LCD地址变量

TIMER_HEQU30H;定时器高位字节单元
TIMER_LEQU31H;定时器低位字节单元
TIMCOUNTEQU32H;时间中断数


INT_GEQU35H;中断计数缓冲单元高地址
INT_HEQU34H;中断计数缓冲单元中地址
INT_LEQU33H;中断计数缓冲单元低地址


T_SEQU36H;数据显示低位
T_MEQU37H;数据显示中位
T_HEQU38H;数据显示高位
T_GEQU39H;数据显示最高位

;----------------------------------------------------------
ORG0000H
JMPMAIN;主程序开始
ORG000BH
JMPTIMER_INT;定时器T0中断服务程序
ORG001BH;定时器T1中断服务程序
JMPTIMER1
ORG0030H
;----------------------------------------------------------
MAIN:
MOVSP,#60H;设置SP指针
LCALLPRO_SET;初始化
CALLSET_LCD
LCALLTIM_T0
;-----------------------------------------------------------
;LCD1602是慢速显示器件，故100MS显示一次。
;-----------------------------------------------------------
MAIN1:
MOVR5,40
MAIN2:
ACALLDELAY1;3ms
DJNZR5,MAIN2
ACALLSBIN_SBCD
CALLCONV
JMPMAIN1
;------------------------------------------------------------
;T1计数器中断服务子程序
;计T1计数器溢出次数
;------------------------------------------------------------
TIMER1:
INC2AH
RETI
;------------------------------------------------------------
;初始化程序
;------------------------------------------------------------
PRO_SET:MOVA,#00H
MOVB,#00H
MOV2AH,A
MOVP0,#0FFH
MOVP1,#0FFH
MOVP2,#0FFH
MOVINT_H,#00H
MOVINT_L,#00H
MOVINT_G,#00H
MOVT_S,#00H
MOVT_H,#00H
MOVT_M,#00H
MOVT_G,#00H
MOVTIMCOUNT,#00H
MOVTIMER_H,#04CH;定时50MS
MOVTIMER_L,#10H;
CLRBEEP
SETBP3.5;P3.5端口置输入状态
RET;T1(TIMER1的外部输入脚）
;-----------------------------------------------------
;LCD初始化设置
;-----------------------------------------------------
SET_LCD:
CLRLCD_EN
CALLINIT_LCD;初始化LCD
CALLDELAY1
MOVDPTR,#INFO1;指针指到显示信息1
MOVA,#1;显示在第一行
CALLLCD_SHOW
MOVDPTR,#INFO2;指针指到显示信息2
MOVA,#2;显示在第二行
CALLLCD_SHOW
RET
;-----------------------------------------------------
INFO1:DB"CYMOMETER",0;LCD第一行显示信息
INFO2:DB"FREQ:HZ",0;LCD第二行显示信息
;-----------------------------------------------------
;LCD接口初始化
;8位I/O控制
;-----------------------------------------------------
INIT_LCD:
MOVA,#38H;双列显示，字形5*7点阵
CALLWCOM
CALLDELAY1
MOVA,#38H;双列显示，字形5*7点阵
CALLWCOM
CALLDELAY1
MOVA,#38H;双列显示，字形5*7点阵
CALLWCOM
CALLDELAY1
MOVA,#0CH;开显示，关光标，
CALLWCOM
CALLDELAY1
MOVA,#01H;清除LCD显示屏
CALLWCOM
CALLDELAY1
RET
;----------------------------------------------------
LCD_SHOW:;在LCD的第一行或第二行显示信息字符

CJNEA,#1,LINE2;判断是否为第一行
LINE1:MOVA,#80H;设置LCD的第一行地址
CALLWCOM;写入命令
CALLCLR_LINE;清除该行字符数据
MOVA,#80H;设置LCD的第一行地址
CALLWCOM;写入命令
JMPFILL
LINE2:MOVA,#0C0H;设置LCD的第二行地址
CALLWCOM;写入命令
CALLCLR_LINE;清除该行字符数据
MOVA,#0C0H;设置LCD的第二行地址
CALLWCOM
FILL:CLRA;填入字符
MOVCA,@A+DPTR;由消息区取出字符
CJNEA,#0,LC1;判断是否为结束码
RET
LC1:CALLWDATA;写入数据
INCDPTR;指针加1
JMPFILL;继续填入字符
RET
;---------------------------------------------------
CLR_LINE:;清除该行LCD的字符
MOVR0,#24
CL1:MOVA,#’’
CALLWDATA
DJNZR0,CL1
RET
;-----------------------------------------------------
;写指令、数据使能子程序
;-----------------------------------------------------
ENABLE:;写指令使能
CLRLCD_RS;RS=L,LCD_RW=L,D0-D7=指令码，E=高脉冲
CLRLCD_RW
SETBLCD_EN
CALLDELAY0
CLRLCD_EN
RET
ENABLE1:;写数据使能
SETBLCD_RS;RS=H,RW=L,D0-D7=数据，E=高脉冲
CLRLCD_RW
SETBLCD_EN
CALLDELAY0
CLRLCD_EN
RET

DELAY0:MOVR7,#250;延时500微秒
DJNZR7,$
RET
;----------------------------------------------------
;写入命令子程序
;----------------------------------------------------
WCOM:;以8位控制方式将命令写至LCD
MOVP0,A;写入命令
CALLENABLE
RET
;----------------------------------------------------
;写入数据子程序
;----------------------------------------------------
WDATA:;以8位控制方式将数据写至LCD
MOVP0,A;写入数据
CALLENABLE1
RET
;---------------------------------------------------
;在LCD第二行显示字符
;A=ASCDATA,B=LINEXPOS
;---------------------------------------------------
LCDP2:;在LCD的第二行显示字符
PUSHACC;
MOVA,B;设置显示地址
ADDA,#0C0H;设置LCD的第二行地址
CALLWCOM;写入命令
POPACC;由堆栈取出A
CALLWDATA;写入数据
RET
;-------------------------------------------------------
;ASCII转换并在第二行显示数字子程序
;-------------------------------------------------------
CONV:;MOVA,T_G
MOVLCD_X,#6;设置位置
;CALLSHOW_DIG2
MOVA,T_H
;INCLCD_X;加载小时数据
CALLSHOW_DIG2;显示数据
MOVA,T_M;加载分钟数据
INCLCD_X;设置位置
CALLSHOW_DIG2;显示数据
MOVA,T_S;加载秒数数据
INCLCD_X;设置位置
CALLSHOW_DIG2;显示数据
RET
;----------------------------------------------------
SHOW_DIG2:
MOVB,#16
DIVAB
ADDA,#30H
PUSHB
MOVB,LCD_X
CALLLCDP2
POPB
MOVA,B
ADDA,#30H
INCLCD_X
MOVB,LCD_X
CALLLCDP2
RET
;-----------------------------------------------------
DELAY1:;延时3MS
MOVR6,#15
D2:MOVR7,#100
DJNZR7,$
DJNZR6,D2
RET
;-----------------定时器设置------------------------
;设置定时器0工作在定时方式1,定时器1工作在计数方式1
;---------------------------------------------------------
TIM_T0:MOVTMOD,#0D1H
MOVTH0,TIMER_H;设置定时初值高位
MOVTL0,TIMER_L;设置定时初值低位
MOVTH1,#00H;清T1计数器
MOVTL1,#00H
MOVIE,#8AH;开中断总允许，允许T0溢出中断
SETBPT1
SETBTR1
SETBTR0;定时器开始工作
RET
;--------------------------------------------------------
;定时器0中断服务程序
;--------------------------------------------------------
TIMER_INT:
CLRTR0;关闭定时器
MOVTL0,TIMER_L;重新赋初值
MOVTH0,TIMER_H;
INCTIMCOUNT;定时1S，时间单位
MOVA,TIMCOUNT;查看数量值
CPLP1.4;产生自测信号
CJNEA,#20,T_END;如果没有到1S返回

CLRTR1;关闭计数器T1
MOVTIMCOUNT,#00H;到1S则清零
MOVINT_L,TL1;取出计数值低位
MOVINT_H,TH1;取出计数值高位
MOVINT_G,2AH;取出溢出计数值位
MOVTH1,#00H
MOVTL1,#00H
MOV2AH,#00H
SETBTR1
T_END:SETBTR0;重新开始定时操作
RETI
;---------------------------------------------------------------
;三字节二进制整数转换成四字节BCD码子程序
;二进制数从低位到高位分别存放在INT_L、INT_H、INT_G单元中
;BCD码从低位到高位分别存放在T_S、T_M、T_H、T_G单元中
;---------------------------------------------------------------
SBIN_SBCD:
PUSHPSW
SETBPSW.3;设置当前寄存器
CLRPSW.4

CLRA;清累加器
MOVT_G,A
MOVT_H,A;清除出口单元，准备转换
MOVT_M,A
MOVT_S,A

MOVR5,INT_G
MOVR7,INT_L;设置二进制数起始地址
MOVR6,INT_H
MOVR2,#24
CLRC
HH1:
MOVA,R7
RLCA
MOVR7,A

MOVA,R6
RLCA
MOVR6,A

MOVA,R5
RLCA
MOVR5,A

MOVA,T_S;得到低位数据
ADDCA,T_S;累加
DAA;十进制调整
MOVT_S,A;保存数据

MOVA,T_M;得到第二位数据
ADDCA,T_M;累加
DAA;十进制调整
MOVT_M,A;保存结果

MOVA,T_H;得到第三位
ADDCA,T_H;累加
DAA
MOVT_H,A;保存

MOVA,T_G;得到第四位
ADDCA,T_G;累加
;DAA
MOVT_G,A

DJNZR2,HH1;
POPPSW
RET
;----------------------------------------------------------------
END;告诉编译器本程序到此结束。
;-----------------------------------------------------------------