131 1300 0010
;硬件连接：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;告诉编译器本程序到此结束。
