CPU控制锁相环频率合成分频比N 程序.doc

;*;CPU控制锁相环频率合成分频比N;*;程序执行如下;*NS EQU 30H ;数据存储缓冲区8位NEW_NUM EQU 38HFPBD EQU 40HFPBG EQU 41HFPBD1 EQU 48HFPBG1 EQU 49HFKEY EQU 20H.0 ;按键标志，若有按键为1KEY_NO EQU 44H ;按键标号 ORG 00H AJMP BEGINBEGIN: MOV SP,#70H ACALL HELLOSCAN: CLR FKEYSCAN0: ACALL KEY_SCAN ;调用扫描键盘子程序SCAN1: JB FKEY,WAIT_OFF ;若有按键就等待按键放开 AJMP SCAN ;无则继续扫描和键盘WAIT_OFF: ACALL KEY_SCAN JB FKEY,WAIT_OFF;+键值判断+SWPD: MOV A,KEY_NOSW_A: CJNE A,#0AH,SW_B ;OK键,确认数据输入完毕 ACALL PL_FPB ;把输入的接收频率转化位分频比N送出 AJMP SCANSW_B: CJNE A,#0BH,SW_C ACALL XIAOYIN ;消隐等待输入新数据 AJMP SCANSW_C: CJNE A,#0CH,SW_D ;ACALL QPSS ;全频搜索 ACALL SW_UP1 AJMP SCANSW_D: CJNE A,#0DH,SW_E ;ACALL UPDW ;手动加减5KHZ1加,2减 ACALL SW_DOWN1 AJMP SCANSW_E: CJNE A,#0EH,SW_F ;HIBABY存台 ACALL HIBABY MOV R5,#10 ACALL DELAY ACALL CUNTAI AJMP SCANSW_F: CJNE A,#0FH,YES ;HELLO读台 ACALL HELLO MOV R5,#10 ACALL DELAY ACALL DUTAI AJMP SCANYES: ;显示出输入数据并存起来 ACALL XSQ ACALL NUM_STORE AJMP SCAN;OKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOK;主程序结束,以下为子程序;OKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOK;*;键盘(矩阵式)扫描,子程序1;*KEY_SCAN: MOV R3,#0EFH ;加载扫描输出初始信号11101111B MOV R4,#0 MOV R1,#4 CLR PSW.5S1: MOV A,R3 ;循环扫描16个按键 MOV P1,A MOV R5,#1 ACALL DELAY MOV A,P1 ;读取P1口数据判断按键是否有效 ANL A,#0FH MOV R2,#4S2: JB ACC.0,N1 ;判断有无按键, 若为1则表示没按键按下 MOV KEY_NO,R4 SETB PSW.5N1: INC R4 RR A DJNZ R2,S2 ;对一行进行扫描 MOV A,R3 RL A ;移至下一行扫描 MOV R3,A DJNZ R1,S1BACK: JNB PSW.5,NO_KEY SETB FKEY RETNO_KEY: CLR FKEY RET;!;消隐子程序,2;!XIAOYIN: MOV SCON,#00H SETB EA MOV R3,#08H MOV R0,#00H MOV DPTR,#TAB5LOOP13: MOV A,R0 MOVC A,A+DPTR MOV SBUF,AWAIT13: JNB TI,WAIT13 CLR TI MOV R5,#1 ACALL DELAY INC R0 DJNZ R3,LOOP13 RET;!;HELLO!程序,3;!HELLO: MOV SCON,#00H SETB EA MOV R0,#08H MOV R1,#00H MOV DPTR,#TAB3LOOP1: MOV A,R1 MOVC A,A+DPTR MOV SBUF,AWAIT: JNB TI,WAIT CLR TI MOV R5,#1 ACALL DELAY INC R1 DJNZ R0,LOOP1 RET;!;HIBABY!子程序,4;!HIBABY: MOV SCON,#00H SETB EA MOV R0,#08H MOV R1,#00H MOV DPTR,#TAB4LOOP11: MOV A,R1 MOVC A,A+DPTR MOV SBUF,AWAIT11: JNB TI,WAIT11 CLR TI MOV R5,#1 ACALL DELAY INC R1 DJNZ R0,LOOP11 RET;串行显示子程序,5;XSQ: MOV SCON,#00H SETB EALOOP2: MOV A,KEY_NO MOV DPTR,#TAB1 MOVC A,A+DPTR MOV SBUF,AXSQ1: JNB TI,XSQ1 CLR TI RET;数据存储子程序,6;NUM_STORE: MOV A,KEY_NO MOV DPTR,#TAB2 MOVC A,A+DPTR MOV NEW_NUM,A MOV NS+7, NS+6 MOV NS+6, NS+5 MOV NS+5, NS+4 MOV NS+4, NS+3 MOV NS+3, NS+2 MOV NS+2, NS+1 MOV NS+1, NS MOV NS,NEW_NUM RET;%;数据处理子程序,7(送出分频比N);%PL_FPB: MOV R1,#00H ;R1存N的低位,先赋值0 MOV R2,#00H ;R2存N的高位,先赋值0 MOV R0,#33H ;数据缓冲区所存频率的值调出来 MOV R3,#1 ;个十百.转换 MOV R4,#3 ;三位,所以循环3次SHU_N1: ;把输入(接收)的频率值存入R1,R2中 MOV A,R0 MOV B,R3 MUL AB ;把每一个的数依次和所对应的进位值相乘*1,*10,*100 ADD A,R1 ;将所得数低位与低位相加 MOV R1,A ;把相加后的低位数存入R1中 MOV A,B ADDC A,R2 ;将所得的数高位与高位相加(*带进位相加*) MOV R2,A ;把相加后的高位数存入R2中 INC R0 MOV A,#10 MOV B,R3 MUL AB MOV R3,A ;每次循环R3都乘以10 DJNZ R4,SHU_N1 ;判断是否继续执行循环SHU_N2: MOV A,R0 MOV R3,A MOV R6,#00H MOV R7,#00HLOOP3: MOV A,#0E8H ADD A,R6 MOV R6,A MOV A,#03H ADDC A,R7 MOV R7,A DJNZ R3,LOOP3SHU_N3: MOV A,R1 ADD A,R6 MOV R1,A MOV A,R2 ADDC A,R7 MOV R2,ASHU_N4: INC R0 MOV A,R0 MOV R3,A MOV R6,#00H MOV R7,#00HLOOP4: MOV A,#10H ADD A,R6 MOV R6,A MOV A,#27H ADDC A,R7 MOV R7,A DJNZ R3,LOOP4SHU_N5: MOV A,R1 ADD A,R6 MOV R1,A MOV A,R2 ADDC A,R7 MOV R2,ASHU_N6: ;把接收的频率减去10.7M(10700即29CCH)得到本振的频率值 MOV A,R1 SUBB A,#0D1H ;把低位减去0CCH,带借位相减 MOV R1,A ;所得的数存入R1 MOV A,R2 SUBB A,#29H ;把高位减去借位C和29H MOV R2,A ;所得的数存入R2CHUFA: MOV R4,#00H MOV R5,#00H MOV A,R2 MOV R6,A MOV A,R1 MOV R7,A MOV R2,#00H MOV R3,#05HNDIV: MOV A,R5 CLR C SUBB A,R3 MOV A,R4 SUBB A,R2 JNC NDIV1 MOV B,#16NDIV2: CLR C MOV A,R7 RLC A MOV R7,A MOV A,R6 RLC A MOV R6,A MOV A,R5 RLC A ;R4R5R6R7/R2R3=R6R7.R4R5 MOV R5,A XCH A,R4 RLC A XCH A,R4 MOV F0,C CLR C SUBB A,R3 MOV R1,A MOV A,R4 SUBB A,R2 JB F0,NDIV3 JC NDIV4NDIV3: MOV R4,A MOV A,R1 MOV R5,A INC R7NDIV4: DJNZ B,NDIV2 CLR F0NDIV1: SETB F0SHU_N7: MOV A,R7 MOV P0,A ;低位送给P0口 MOV 40H,A MOV A,R6 MOV P2,A ;高位送给P2口 MOV 41H,A RET;-;延迟子程序,8 *10ms;-DELAY: MOV R6,#100D1: MOV R7,#100 DJNZ R7,$ DJNZ R6,D1 DJNZ R5,DELAY RET;+;全频搜索子程序,9;+QPSS: MOV A,FPBD MOV R1,A MOV A,FPBG MOV R2,A CLR C ACALL UP;*判断是否有锁台信号*YTM: JB P3.6,STOP;*判断是否上升到最高频点*;搜索范围N为38605860DDM: MOV A,FPBD1 SUBB A,#0E4H MOV R1,A MOV A,FPBG1 SUBB A,#16H MOV R2,A CJNE R2,#00H,JIXV CJNE R1,#00H,JIXV MOV A,#14H MOV R1,A MOV A,#0FH MOV R2,AJIXV: MOV R5,#50 LCALL UP RET;&;有台则停止搜索,10;&STOP: AJMP SCAN;*;UP与DOWN,子程序11;*UPDW: ACALL XSQ2 CLR FKEY ACALL KEY_SCANSCAN4: JB FKEY,WAIT_OFF3 ;若有按键就等待按键放开 AJMP UPDW ;无则继续扫描键盘WAIT_OFF3: ACALL KEY_SCAN JB FKEY,WAIT_OFF3;*键值判断* MOV A,KEY_NOSW_UP: CJNE A,#01H,SW_DOWN ACALL SW_UP1 AJMP UPDWSW_DOWN: CJNE A,#02H,YES2 ACALL SW_DOWN1 AJMP UPDWYES2: ACALL XSQ2 AJMP SCAN RET;*;手动搜索加5KHZ子程序,12;*SW_UP1: MOV R1,FPBD MOV R2,FPBG CLR CUP: MOV A,R1 ADD A,#01H MOV R1,A ;分频比N加1,相当于加5KHZ MOV B,#00H MOV A,R2 ADDC A,B MOV R2,A MOV A,R1 MOV P0,A ;加1后的N再送给MC145151 MOV FPBD,A ;把N存起来 MOV FPBD1,A MOV A,R2 MOV P2,A MOV FPBG,A MOV FPBG1,A ACALL CHENG ;AJMP UPDW AJMP SCAN RET;*;手动搜索减5KHZ子程序,13;*SW_DOWN1: MOV R1,FPBD MOV R2,FPBG CLR C;*;开始减5KHZ子程序,14;*DOWN: MOV A,R1 ;分频比N减1,相当于减5KHZ CLR C SUBB A,#01H MOV R1,A MOV B,#00H MOV A,R2 SUBB A,B MOV R2,A MOV A,R1 MOV P0,A ;加1后的N再送给MC145151 MOV FPBD,A ;把N存起来 MOV FPBD1,A MOV A,R2 MOV P2,A MOV FPBG,A MOV FPBG1,A ACALL CHENG AJMP SCAN RET;*;分频比转化位数据并显示,15;*CHENG: MOV R5,#4LOOP5: MOV A,FPBD1 ADD A,R1 MOV FPBD1,A MOV A,FPBG1 ADDC A,R2 MOV FPBG1,A DJNZ R5,LOOP5;*本振频率加10.7MHZ* CLR C MOV A,FPBD1 ADD A,#0D1H MOV R1,A MOV A,FPBG1 ADDC A,#29H MOV R2,A;*双字节二进制数（存于R2R1）转换为压缩的BCD码*;转换结果放入R4R5R6中;R1,R6为低位;*BINBCD2: CLR A MOV R4,A MOV R5,A MOV R6,A MOV R7,#16LOOP6: CLR C MOV A,R1 RLC A MOV R1,A ;R3左移1位 MOV A,R2 RLC A MOV R2,A ;R2左移1位 MOV A,R6 ADDC A,R6 DA A MOV R6,A MOV A,R5 ADDC A,R5 DA A MOV R5,A MOV A,R4 ADDC A,R4 DA A MOV R4,A DJNZ R7,LOOP6;*解压缩*OUTBCD: MOV A,R6 ANL A,#0FH MOV 33H,A MOV A,R6 ANL A,#0F0H SWAP A MOV 34H,A MOV A,R5 ANL A,#0FH MOV 35H,A MOV A,R5 ANL A,#0F0H SWAP A MOV 36H,A MOV A, R4 ANL A,#0FH MOV 37H,A MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL CX2 RET;*送给显示器*CX2: MOV SCON,#00H SETB EA MOV R4,#08H MOV R0,#37H MOV DPTR,#TAB1LOOP8: MOV A,R0 MOVC A,A+DPTR MOV SBUF,AWAIT1: JNB TI,WAIT1 CLR TI DEC R0 DJNZ R4,LOOP8 MOV A,FPBD MOV R1,A MOV A,FPBG MOV R2,A RET;&;存台子程序,16;&CUNTAI: ACALL XIAOYIN CLR FKEY ACALL KEY_SCANSCAN2: JB FKEY,WAIT_OFF1 ;若有按键就等待按键放开 AJMP CUNTAI ;无则继续扫描键盘WAIT_OFF1: ACALL KEY_SCAN JB FKEY,WAIT_OFF1;*键值判断*SWPD1: MOV A,KEY_NOSW_0: CJNE A,#00H,SW_1 ACALL ZERO AJMP SCANSW_1: CJNE A,#01H,SW_2 ACALL ONE AJMP SCANSW_2: CJNE A,#02H,SW_3 ACALL TWO AJMP SCANSW_3: CJNE A,#03H,SW_4 ACALL THREE AJMP SCANSW_4: CJNE A,#04H,SW_5 ACALL FOUR AJMP SCANSW_5: CJNE A,#05H,SW_6 ACALL FIVE AJMP SCANSW_6: CJNE A,#06H,SW_7 ACALL SIX AJMP SCANSW_7: CJNE A,#07H,SW_8 ACALL SEVEN AJMP SCANSW_8: CJNE A,#08H,SW_9 ACALL EIGHT AJMP SCANSW_9: CJNE A,#09H,SW_10 ACALL NINE AJMP SCANSW_10: CJNE A,#0AH,SW_11 ACALL TEN AJMP SCANSW_11: CJNE A,#0BH,SW_12 ACALL ELEVEN AJMP SCANSW_12: CJNE A,#0CH,SW_13 ACALL TWELVE AJMP SCANSW_13: CJNE A,#0DH,SW_14 ACALL THIRDTEEN AJMP SCANSW_14: CJNE A,#0EH,OK ACALL FOURTEEN AJMP SCANOK: ACALL HELLO AJMP SCAN RETZERO: ACALL XSQ MOV 3FH,37H MOV 3EH,36H MOV 3DH,35H MOV 3CH,34H MOV 3BH,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETONE: ACALL XSQ MOV 08H,37H MOV 09H,36H MOV 0AH,35H MOV 0BH,34H MOV 0CH,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETTWO: ACALL XSQ MOV 0DH,37H MOV 0EH,36H MOV 0FH,35H MOV 10H,34H MOV 11H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETTHREE: ACALL XSQ MOV 12H,37H MOV 13H,36H MOV 14H,35H MOV 15H,34H MOV 16H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 ACALL SCAN RETFOUR: ACALL XSQ MOV 17H,37H MOV 18H,36H MOV 19H,35H MOV 1AH,34H MOV 1BH,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETFIVE: ACALL XSQ MOV 1CH,37H MOV 1DH,36H MOV 1EH,35H MOV 1FH,34H MOV 21H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETSIX: ACALL XSQ MOV 22H,37H MOV 23H,36H MOV 24H,35H MOV 25H,34H MOV 26H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETSEVEN: ACALL XSQ MOV 27H,37H MOV 28H,36H MOV 29H,35H MOV 2AH,34H MOV 2BH,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETEIGHT: ACALL XSQ MOV 2CH,37H MOV 2DH,36H MOV 2EH,35H MOV 2FH,34H MOV 50H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETNINE: ACALL XSQ MOV 51H,37H MOV 52H,36H MOV 53H,35H MOV 54H,34H MOV 55H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETTEN: ACALL XSQ MOV 56H,37H MOV 57H,36H MOV 58H,35H MOV 59H,34H MOV 5AH,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETELEVEN: ACALL XSQ MOV 5BH,37H MOV 5CH,36H MOV 5DH,35H MOV 5EH,34H MOV 5FH,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETTWELVE: ACALL XSQ MOV 60H,37H MOV 61H,36H MOV 62H,35H MOV 63H,34H MOV 64H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETTHIRDTEEN: ACALL XSQ MOV 65H,37H MOV 66H,36H MOV 67H,35H MOV 68H,34H MOV 69H,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETFOURTEEN: ACALL XSQ MOV 6AH,37H MOV 6BH,36H MOV 6CH,35H MOV 6DH,34H MOV 6EH,33H MOV R5,#30 ACALL DELAY ACALL XSQ2 AJMP SCAN RETXSQ2: MOV SCON,#00H SETB EA MOV R3,#08H MOV R0,#37H MOV DPTR,#TAB1LOOP12: MOV A,R0 MOVC A,A+DPTR MOV SBUF,AWAIT12: JNB TI,WAIT12 CLR TI MOV R5,#1 ACALL DELAY DEC R0 DJNZ R3,LOOP12 RET;*;读台子程序,17;*DUTAI: ACALL XIAOYIN ACALL KEY_SCANSCAN3: JB FKEY,WAIT_OFF2 ;若有按键就等待按键放开 AJMP DUTAI ;无则继续扫描键盘WAIT_OFF2: ACALL KEY_SCAN JB FKEY,WAIT_OFF2;*键值判断*SWPD2: MOV A,KEY_NOSW_00: CJNE A,#00H,SW_101 ACALL ZERO1 AJMP SCANSW_101: CJNE A,#01H,SW_22 ACALL ONE1 AJMP SCANSW_22: CJNE A,#02H,SW_33 ACALL TWO1 AJMP SCANSW_33: CJNE A,#03H,SW_44 ACALL THREE1 AJMP SCANSW_44: CJNE A,#04H,SW_55 ACALL FOUR1 AJMP SCANSW_55: CJNE A,#05H,SW_66 ACALL FIVE1 AJMP SCANSW_66: CJNE A,#06H,SW_77 ACALL SIX1 AJMP SCANSW_77: CJNE A,#07H,SW_88 ACALL SEVEN1 AJMP SCANSW_88: CJNE A,#08H,SW_99 ACALL EIGHT1 AJMP SCANSW_99: CJNE A,#09H,SW_1A ACALL NINE1 AJMP SCANSW_1A: CJNE A,#0AH,SW_1B ACALL TEN1 AJMP SCANSW_1B: CJNE A,#0BH,SW_1C ACALL ELEVEN1 AJMP SCANSW_1C: CJNE A,#0CH,SW_1D ACALL TWELVE1 AJMP SCANSW_1D: CJNE A,#0DH,SW_1E ACALL THIRDTEEN1 AJMP SCANSW_1E: CJNE A,#0EH,OK1 ACALL FOURTEEN1 AJMP SCANOK1: ACALL XSQ2 AJMP SCAN RETZERO1: ACALL XSQ MOV R5,#30 ACALL DELAY MOV 37H,3FH MOV 36H,3EH MOV 35H,3DH MOV 34H,3CH MOV 33H,3BH MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL PL_FPB ACALL XSQ2 AJMP SCAN RETONE1: ACALL XSQ MOV R5,#30 ACALL DELAY MOV 37H,08H MOV 36H,09H MOV 35H,0AH MOV 34H,0BH MOV 33H,0CH MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL PL_FPB ACALL XSQ2 AJMP SCAN RETTWO1: ACALL XSQ MOV R5,#30 ACALL DELAY MOV 37H,0DH MOV 36H,0EH MOV 35H,0FH MOV 34H,10H MOV 33H,11H MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL PL_FPB ACALL XSQ2 AJMP SCAN RETTHREE1: ACALL XSQ MOV R5,#30 ACALL DELAY MOV 37H,12H MOV 36H,13H MOV 35H,14H MOV 34H,15H MOV 33H,16H MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL PL_FPB ACALL XSQ2 AJMP SCAN RETFOUR1: ACALL XSQ MOV R5,#30 ACALL DELAY MOV 37H,17H MOV 36H,18H MOV 35H,19H MOV 34H,1AH MOV 33H,1BH MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL PL_FPB ACALL XSQ2 AJMP SCAN RETFIVE1: ACALL XSQ MOV R5,#30 ACALL DELAY MOV 37H,1CH MOV 36H,1DH MOV 35H,1EH MOV 34H,1FH MOV 33H,21H MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL PL_FPB ACALL XSQ2 AJMP SCAN RETSIX1: ACALL XSQ MOV R5,#30 ACALL DELAY MOV 37H,22H MOV 36H,23H MOV 35H,24H MOV 34H,25H MOV 33H,26H MOV 30H,#00H MOV 31H,#00H MOV 32H,#00H ACALL PL_FPB ACALL X