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;告訴編譯器本程序到此結束。
