131 1300 0010
;硬件連接：1602LCD顯示000000Hz短接p1.4--p3.5則顯示0000010hz
;LCD1602顯示在不增加外部計(jì)數(shù)硬件的情況下，本試驗(yàn)軟件可測最高頻率達(dá)到460KHz
;工作原理：
;1S 鐘內(nèi)對輸入脈沖所計(jì)數(shù)的次數(shù)則為頻率值。
;16位二進(jìn)制加法計(jì)數(shù)器的最大計(jì)數(shù)值為 65535。
;設(shè)置定時(shí)器 0 工作在定時(shí)方式1，定時(shí)1S。
;設(shè)置定時(shí)器 1 工作在計(jì)數(shù)方式1，對輸入脈沖進(jìn)行計(jì)數(shù)，溢出產(chǎn)生中斷。
;將定時(shí)器 1中斷定義為優(yōu)先。在中斷處理程序里對中斷次數(shù)進(jìn)行計(jì)數(shù)。1S到后，
;將中斷次數(shù)和計(jì)數(shù)器里的計(jì)數(shù)值取出進(jìn)行綜合數(shù)據(jù)處理，處理后的數(shù)據(jù)送LCD1602顯示？
;信號來源：
;1、軟件里對 P1.4定時(shí)取反，形成輸出脈沖，接到 P3.5 可自測。
; 顯示結(jié)果：P1.4 → P3.5 顯示： 000010 （Hz）
;如果有條件的話，可使用專用設(shè)備（信號發(fā)生器和頻率計(jì)）進(jìn)行校正。
;頻率計(jì)的程序
;包含：外部中斷設(shè)置，中斷服務(wù)程序，定時(shí)程序，定時(shí)服務(wù)程序
;以及數(shù)據(jù)處理，顯示，包括 三位十進(jìn)制數(shù)轉(zhuǎn)化為四位BCD碼，
;------------------------------------------------------------
BEEPBITP3.7
LCD_RSBITP2.0
LCD_RWBITP2.1
LCD_ENBITP2.2
LCD_XEQU3FH;LCD地址變量
TIMER_HEQU30H;定時(shí)器高位字節(jié)單元
TIMER_LEQU31H;定時(shí)器低位字節(jié)單元
TIMCOUNTEQU32H;時(shí)間中斷數(shù)
INT_GEQU35H;中斷計(jì)數(shù)緩沖單元高地址
INT_HEQU34H;中斷計(jì)數(shù)緩沖單元中地址
INT_LEQU33H;中斷計(jì)數(shù)緩沖單元低地址
T_SEQU36H;數(shù)據(jù)顯示低位
T_MEQU37H;數(shù)據(jù)顯示中位
T_HEQU38H;數(shù)據(jù)顯示高位
T_GEQU39H;數(shù)據(jù)顯示最高位
;----------------------------------------------------------
ORG0000H
JMPMAIN;主程序開始
ORG000BH
JMPTIMER_INT;定時(shí)器T0中斷服務(wù)程序
ORG001BH;定時(shí)器T1中斷服務(wù)程序
JMPTIMER1
ORG0030H
;----------------------------------------------------------
MAIN：
MOVSP，#60H;設(shè)置SP指針
LCALLPRO_SET;初始化
CALLSET_LCD
LCALLTIM_T0
;-----------------------------------------------------------
;LCD1602是慢速顯示器件，故100MS顯示一次。
;-----------------------------------------------------------
MAIN1：
MOVR5，40
MAIN2：
ACALLDELAY1;3ms
DJNZR5，MAIN2
ACALLSBIN_SBCD
CALLCONV
JMPMAIN1
;------------------------------------------------------------
;T1計(jì)數(shù)器中斷服務(wù)子程序
;計(jì)T1計(jì)數(shù)器溢出次數(shù)
;------------------------------------------------------------
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;定時(shí)50MS
MOVTIMER_L，#10H;
CLRBEEP
SETBP3.5;P3.5端口置輸入狀態(tài)
RET;T1（TIMER1的外部輸入腳）
;-----------------------------------------------------
;LCD初始化設(shè)置
;-----------------------------------------------------
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點(diǎn)陣
CALLWCOM
CALLDELAY1
MOVA，#38H;雙列顯示，字形5*7點(diǎn)陣
CALLWCOM
CALLDELAY1
MOVA，#38H;雙列顯示，字形5*7點(diǎn)陣
CALLWCOM
CALLDELAY1
MOVA，#0CH;開顯示，關(guān)光標(biāo)，
CALLWCOM
CALLDELAY1
MOVA，#01H;清除LCD顯示屏
CALLWCOM
CALLDELAY1
RET
;----------------------------------------------------
LCD_SHOW：;在LCD的第一行或第二行顯示信息字符
CJNEA，#1，LINE2;判斷是否為第一行
LINE1:MOVA，#80H;設(shè)置LCD的第一行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據(jù)
MOVA，#80H;設(shè)置LCD的第一行地址
CALLWCOM;寫入命令
JMPFILL
LINE2:MOVA，#0C0H;設(shè)置LCD的第二行地址
CALLWCOM;寫入命令
CALLCLR_LINE;清除該行字符數(shù)據(jù)
MOVA，#0C0H;設(shè)置LCD的第二行地址
CALLWCOM
FILL:CLRA;填入字符
MOVCA，@A+DPTR;由消息區(qū)取出字符
CJNEA，#0，LC1;判斷是否為結(jié)束碼
RET
LC1:CALLWDATA;寫入數(shù)據(jù)
INCDPTR;指針加1
JMPFILL;繼續(xù)填入字符
RET
;---------------------------------------------------
CLR_LINE：;清除該行LCD的字符
MOVR0，#24
CL1:MOVA，#’’
CALLWDATA
DJNZR0，CL1
RET
;-----------------------------------------------------
;寫指令、數(shù)據(jù)使能子程序
;-----------------------------------------------------
ENABLE：;寫指令使能
CLRLCD_RS;RS=L，LCD_RW=L，D0-D7=指令碼，E=高脈沖
CLRLCD_RW
SETBLCD_EN
CALLDELAY0
CLRLCD_EN
RET
ENABLE1：;寫數(shù)據(jù)使能
SETBLCD_RS;RS=H，RW=L，D0-D7=數(shù)據(jù)，E=高脈沖
CLRLCD_RW
SETBLCD_EN
CALLDELAY0
CLRLCD_EN
RET
DELAY0:MOVR7，#250;延時(shí)500微秒
DJNZR7，$
RET
;----------------------------------------------------
;寫入命令子程序
;----------------------------------------------------
WCOM：;以8位控制方式將命令寫至LCD
MOVP0，A;寫入命令
CALLENABLE
RET
;----------------------------------------------------
;寫入數(shù)據(jù)子程序
;----------------------------------------------------
WDATA：;以8位控制方式將數(shù)據(jù)寫至LCD
MOVP0，A;寫入數(shù)據(jù)
CALLENABLE1
RET
;---------------------------------------------------
;在LCD第二行顯示字符
;A=ASCDATA，B=LINEXPOS
;---------------------------------------------------
LCDP2：;在LCD的第二行顯示字符
PUSHACC;
MOVA，B;設(shè)置顯示地址
ADDA，#0C0H;設(shè)置LCD的第二行地址
CALLWCOM;寫入命令
POPACC;由堆棧取出A
CALLWDATA;寫入數(shù)據(jù)
RET
;-------------------------------------------------------
;ASCII轉(zhuǎn)換并在第二行顯示數(shù)字子程序
;-------------------------------------------------------
CONV：;MOVA，T_G
MOVLCD_X，#6;設(shè)置位置
;CALLSHOW_DIG2
MOVA，T_H
;INCLCD_X;加載小時(shí)數(shù)據(jù)
CALLSHOW_DIG2;顯示數(shù)據(jù)
MOVA，T_M;加載分鐘數(shù)據(jù)
INCLCD_X;設(shè)置位置
CALLSHOW_DIG2;顯示數(shù)據(jù)
MOVA，T_S;加載秒數(shù)數(shù)據(jù)
INCLCD_X;設(shè)置位置
CALLSHOW_DIG2;顯示數(shù)據(jù)
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：;延時(shí)3MS
MOVR6，#15
D2:MOVR7，#100
DJNZR7，$
DJNZR6，D2
RET
;-----------------定時(shí)器設(shè)置------------------------
;設(shè)置定時(shí)器0工作在定時(shí)方式1，定時(shí)器1工作在計(jì)數(shù)方式1
;---------------------------------------------------------
TIM_T0:MOVTMOD，#0D1H
MOVTH0，TIMER_H;設(shè)置定時(shí)初值高位
MOVTL0，TIMER_L;設(shè)置定時(shí)初值低位
MOVTH1，#00H;清T1計(jì)數(shù)器
MOVTL1，#00H
MOVIE，#8AH;開中斷總允許，允許T0溢出中斷
SETBPT1
SETBTR1
SETBTR0;定時(shí)器開始工作
RET
;--------------------------------------------------------
;定時(shí)器0中斷服務(wù)程序
;--------------------------------------------------------
TIMER_INT：
CLRTR0;關(guān)閉定時(shí)器
MOVTL0，TIMER_L;重新賦初值
MOVTH0，TIMER_H;
INCTIMCOUNT;定時(shí)1S，時(shí)間單位
MOVA，TIMCOUNT;查看數(shù)量值
CPLP1.4;產(chǎn)生自測信號
CJNEA，#20，T_END;如果沒有到1S返回
CLRTR1;關(guān)閉計(jì)數(shù)器T1
MOVTIMCOUNT，#00H;到1S則清零
MOVINT_L，TL1;取出計(jì)數(shù)值低位
MOVINT_H，TH1;取出計(jì)數(shù)值高位
MOVINT_G，2AH;取出溢出計(jì)數(shù)值位
MOVTH1，#00H
MOVTL1，#00H
MOV2AH，#00H
SETBTR1
T_END:SETBTR0;重新開始定時(shí)操作
RETI
;---------------------------------------------------------------
;三字節(jié)二進(jìn)制整數(shù)轉(zhuǎn)換成四字節(jié)BCD碼子程序
;二進(jìn)制數(shù)從低位到高位分別存放在INT_L、INT_H、INT_G單元中
;BCD碼從低位到高位分別存放在T_S、T_M、T_H、T_G單元中
;---------------------------------------------------------------
SBIN_SBCD：
PUSHPSW
SETBPSW.3;設(shè)置當(dāng)前寄存器
CLRPSW.4
CLRA;清累加器
MOVT_G，A
MOVT_H，A;清除出口單元，準(zhǔn)備轉(zhuǎn)換
MOVT_M，A
MOVT_S，A
MOVR5，INT_G
MOVR7，INT_L;設(shè)置二進(jìn)制數(shù)起始地址
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;得到低位數(shù)據(jù)
ADDCA，T_S;累加
DAA;十進(jìn)制調(diào)整
MOVT_S，A;保存數(shù)據(jù)
MOVA，T_M;得到第二位數(shù)據(jù)
ADDCA，T_M;累加
DAA;十進(jìn)制調(diào)整
MOVT_M，A;保存結(jié)果
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;告訴編譯器本程序到此結(jié)束。
