我制作的函数发生器

寒舞

我制作的低频函数发生器，可以实现１～２０Ｋ步进１ＨＺ可调，可以有正弦波，方波，三角波，任意波形．只要把波形数据存在２８６４存储器中即可．８个数码管显示，１６个按键控制．并且自己制作了一个波形数据产生器，希望与大家共享！
6 |' W9 Z% h2 p6 Q3 x3 w

6 ^7 c+ \# f1 L8 D
7 x1 W+ p3 `! Y4 r/ {+ q7 F
2 w! F  a$ Y. D4 p% M0 S# U
67a6d7dc.rar (6.23 KB, 下载次数: 2)

2010-2-23 22:17 上传

点击文件名下载附件

寒舞

BIT_COUNT DATA 7FH ;2005.5.17.我的硬件 Write By ClimberWinTIMER DATA 7EHTIMER1 DATA 7DHTEN DATA 7CHDATA_IN DATA 20HDATA_OUT DATA 21H

SMG6 DATA 50H ;数码管值所存的地址SMG5 DATA 51HSMG4 DATA 52HSMG3 DATA 53H;****************TEN0 DATA 40H ;TEN1 DATA 41HTEN2 DATA 42HTEN3 DATA 43H
! ?, n% k/ t9 l+ f9 s
;*************** ;R4 R5 R6 R7分别存数码管数据DAT BIT P2.2KEY BIT P2.1CS BIT P2.4CLK BIT P2.3 ;;;;;;;;;;;;;;;;A0 EQU P1.5A1 EQU P1.4CS1 EQU P1.3WR EQU P1.1RD EQU P1.2;;;;;;;;;;;;;;;;;;A8 EQU P1.6A9 EQU P1.7
; s" N  e3 Z9 U8 G' N
ORG 00H JMP ST ORG 13H JMP INT1ST: MOV IE, #10000100B ;设置INT0中断使能 MOV TCON,#00000000B ;设置中断为电平触发 MOV TMOD,#01010000B MOV SMG3,#00H MOV SMG4,#00H MOV SMG5,#00H MOV SMG6,#00H MOV 27H,#20H ;计数器低8位 MOV 28H,#03H ;计数器高8位 JMP START MOV R0,#00H MOV R6,#00H MOV 2DH,#03H ;波形选择 MOV 70H,#01H MOV 54H,#00H ;用于确定，让调节的不再闪动。0AH这个键控制(80H是P0口

4 v' R& Z8 c1 H2 x MOV 21H,#20H ;设置8254的计数器值 ;计数器1 MOV 3FH,#00H MOV 22H,#4EH CALL MODE1 ;计数器0 NOP MOV 27H,#20H CALL MODE2 ;计数器1

1 D$ ?$ E/ g. F& YSTART: MOV SP,#2FH ; ; CLR P2.2 ;A10 ;CLR P2.3 ;A11 ; CLR P2.4 ;A12 CLR A8 CLR A9 CLR DAT CLR CLK MOV TIMER,#50 ;ST_DELAY: MOV TIMER1,#255ST_DELAY1JNZ TIMER1,ST_DELAY1 DJNZ TIMER,ST_DELAY MOV DATA_OUT,#10100100B ; 清屏 CALL SEND;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

( U8 t+ f1 _3 K& W9 I: n- B3 t;******************************************** MOV DATA_OUT,#10000001B ;显示 ".HZ."* CALL SEND ;H ;* MOV DATA_OUT,#0CH ;* CALL SEND ;* ;++++++++++++++++++++++++++++++ ;* MOV DATA_OUT,#10000000B ;* CALL SEND ;* MOV DATA_OUT,#82H ; Z ;* CALL SEND ;*;++++++++++++++++++++++++++++++ ;* MOV DATA_OUT,#10000010B ;.点亮小数点;* CALL SEND ;* MOV DATA_OUT,#10001111B ;* CALL SEND ;*;++++++++++++++++++++++++++++++ ;* ;用个定时器就可以让小数点一闪一闪了;********************************************* ;MOV DATA_OUT,#98H ;这里的7位消隐 ;CALL SEND ; MOV DATA_OUT,#11111101B ; CALL SEND SETB CS;*********************************************MAIN: JB KEY,$ ;
/ D- J9 f# z, G9 x. g
CLR A MOV DATA_OUT,#15H ; 键盘读取指令 CALL SEND CALL RECEIVE SETB CS MOV A,DATA_IN MOV R0,#00H ;用来测试按键的对应值 MOV R0,A ;;;;;;;;;;;;;;;;;;;;;;;;; ;键值编码 CALL JUDGE CJNE A,#05H,LL MOV DATA_OUT,#0A4H ; 清屏 CALL SEND JMP START ;;;;;;;;;;;;;;;;;;;;;;;LL: MOV A,70H CJNE A,#01,L1 ;判断哪个数码管显示 JMP SM3L1: CJNE A,#02,L2 JMP SM4L2: CJNE A,#03,L3 JMP SM5L3: CJNE A,#04,L4 JMP SM6L4: CJNE A,#05,L5L5: MOV 70H,#01H

. T! u6 t& R' ]& a3 k; G% W* RSM3: MOV DATA_OUT,#10000010B ;数码管3的值存在SMG3地址中 CALL SEND MOV SMG3 ,TEN MOV R4,TEN MOV DATA_OUT,SMG3 MOV TEN ,SMG3 ;取的值存回TEN种，对进位，减位时有用 CALL SEND ;////////////////////////// MOV A,54H CJNE A,#00H,SD MOV DATA_OUT,#88H ;闪动程序 CALL SEND MOV DATA_OUT,#11111011B CALL SEND JMP KK

  _/ Z$ R0 f: eSD: CALL NOSD ;调用不闪动子程序 JMP KK ;;;;;;;;;;;
1 w: x, G1 ^% r/ Y
, c5 h. a% A. ?6 x. KSM4: MOV DATA_OUT,#10000011B CALL SEND MOV SMG4 ,TEN ;数码管4的值存在SMG4地址中 MOV R5,TEN MOV DATA_OUT,SMG4 MOV TEN ,SMG4 CALL SEND ;////////////////////////// MOV A,54H ;用50H的地址值来判断是否抖动显示 CJNE A,#00H,SD ;#00H就抖动程序，#01H就跳到不抖动的程序 MOV DATA_OUT,#88H CALL SEND MOV DATA_OUT,#11110111B CALL SEND JMP KKSM5: MOV DATA_OUT,#10000100B CALL SEND MOV SMG5 ,TEN ;数码管5的值存在SMG5地址中 MOV R6,TEN MOV DATA_OUT,SMG5 MOV TEN ,SMG5 CALL SEND ;/////////////////////// MOV A,54H CJNE A,#00H,SD ;判断是否选择抖动显示程序 MOV DATA_OUT,#88H CALL SEND MOV DATA_OUT,#11101111B CALL SEND JMP KKSM6: MOV DATA_OUT,#10000101B CALL SEND MOV SMG6 ,TEN ;数码管5的值存在SMG5地址中 MOV R7,TEN MOV A,SMG6 ;********************** ADD A,#10000000B ;数码管6的小数点的显示* MOV SMG6,A ;********************** MOV DATA_OUT,SMG6 ANL A,#01111111B MOV SMG6,A MOV TEN ,SMG6 CALL SEND ;/////////////////// ;

$ |# F1 ]' S; M/ @ ;;;;;;;;;;;;;;;;;;;;;; MOV A,54H CJNE A,#00H,SD MOV DATA_OUT,#88H CALL SEND MOV DATA_OUT,#11011111B CALL SEND

JMP KKKK: SETB CSWAIT: JNB KEY,WAIT ; JMP MAIN;*******************************************
, M; [* Q8 \0 @0 w
1 G1 C. l- q5 R6 Y: d3 ~- A;*******************************************SEND: MOV BIT_COUNT,#8 ; ;****;LED显示的发送子程序 CLR CS ;**** CALL LDELAY ;****SEND_LOOP: MOV C,DATA_OUT.7 ;**** MOV DAT,C ;**** SETB CLK ;**** MOV A,DATA_OUT ;**** RL A ;**** MOV DATA_OUT,A ;**** CALL SDELAY ;**** CLR CLK ;**** CALL SDELAY ;**** DJNZ BIT_COUNT,SEND_LOOP ;**** CLR DAT ;**** RET ;****;*******************************************

) L" S% R- g# A, P2 O' a4 ~4 n2 d;*******************************************RECEIVE: MOV BIT_COUNT,#8 ; 按键值接收指令 SETB DAT ; CALL LDELAY ;RECEIVE_LOOP: SETB CLK ; CALL SDELAY ; MOV A,DATA_IN ; RL A ; MOV DATA_IN,A ; MOV C,DAT ; MOV DATA_IN.0,C ; CLR CLK ; CALL SDELAY ; DJNZ BIT_COUNT,RECEIVE_LOOP CLR DAT RET ;;*******************************************JUDGE: CJNE A,#02H,NEXT1 ;按键值的对应设置，即各个按键的功能 MOV TEN,#00H JMP OUTNEXT1: CJNE A,#0BH,NEXT2 MOV TEN,#01H JMP OUTNEXT2: CJNE A,#0AH,NEXT3 MOV TEN,#02H JMP OUTNEXT3: CJNE A,#09H,NEXT4 ;;; MOV TEN,#03H JMP OUTNEXT4: CJNE A,#08H,NEXT5 MOV TEN,#04H JMP OUT ;*******************************NEXT5: CJNE A,#0FH,NEXT6 ;* 键盘对应值 * MOV TEN,#05H ;*0B 0A 09 08 ; 0D 0C 0D 0C JMP OUT ;*03 02 01 00*NEXT6: CJNE A,#0EH,NEXT7 ; 07 06 05 04******************* MOV TEN,#06H JMP OUTNEXT7: CJNE A,#0DH,NEXT8 MOV TEN,#07H JMP OUTNEXT8: CJNE A,#0CH,NEXT9 MOV TEN,#08H JMP OUTNEXT9: CJNE A,#03H,NEXT10 MOV TEN,#09H JMP

寒舞

OUTNEXT10: CJNE A,#06H,NEXT11 MOV TEN,#00H ;切换后后一位数码管显示0 INC 70H ;选择数码管,数码管的切换 JMP OUTNEXT11: CJNE A,#04H,NEXT12 ;确定按钮，按好后数码管不闪动了。 ;************* MOV A,R5 ;** MOV B,#10 ;** MUL AB ;** MOV R3,A ;** ;低2位数值 MOV A,R3 ;** ADD A,R4 ;** CALL CHANGE;* MOV 27H,A ;** ;************ MOV R1,A ;调试用，即高2位放到R1 ;************ MOV A,R7 ;** MOV B,#10 ;** MUL AB ;** MOV R3,A ;** ;高2位数值 MOV A,R3 ;** ADD A,R6 ;** CALL CHANGE;* MOV 28H,A ;** ;************ MOV R2,A ;调试用，即低2位放到R1 CALL MODE2 ;;; ;;;;;;;;;;;;;; MOV A,54H CJNE A,#01H,WIN MOV 54H,#00H JMP OUTWIN: MOV 54H,#01H JMP OUTNEXT12: CJNE A,#01H,NEXT13 INC 27H ;设计计数器INC MOV A,27H CJNE A ,#255,LATER MOV 27H,#01LATER: CALL MODE2 INC TEN ;数码管计数增加 MOV A,TEN CJNE A,#0AH,S1 MOV TEN, #00HS1: MOV A,#01H ;因为跳出此子程序后有个判断A的一个程序，当A为#05的时候清零。 JMP OUT ;所以不加这条指令会产生计数到5的时候屏幕清零这个结果。NEXT13: CJNE A,#00H,NEXT14 DEC 27H ;设计计数器DEC MOV A,27H CJNE A ,#01,LATER1 MOV 27H,#255LATER1: CALL MODE2
( ]  i, k; G' m- A& S) `
DEC TEN ;数码管计数减少 MOV A,TEN CJNE A,#0FFH,S2 MOV TEN, #09H

S2: MOV A,#00H JMP OUTOUT: RET
# ?) p: l2 C! x, u! W( K4 S5 }
5 Q/ h' ?% S% ^8 `4 ]NEXT14: CJNE A,#11H,NEXT15 ;填写数码管功能 JMP OUTNEXT15: CJNE A,#12H,NEXT16 INC TEN ;数码管计数增加 MOV A,TEN CJNE A,#0AH,OUT MOV TEN, #00H
( x( H) y9 Q8 ]0 V% G$ M' e) r5 k
JMP OUTNEXT16: CJNE A,#13H,NEXT17 DEC TEN ;数码管计数减少 MOV A,TEN CJNE A,#0FFH,OUT MOV TEN, #09H JMP OUTNEXT17: CJNE A,#11H,NEXT18 ;填写数码管功能 JMP OUTNEXT18: CJNE A,#07H,NEXT19 INC 2DH MOV A,2DH CJNE A,#00,BOXIN1 JMP WAVEA
0 z; R9 v, R- B
BOXIN1: CJNE A,#01,BOXIN2 JMP WAVEB

BOXIN2: CJNE A,#02,BOXIN3 JMP WAVEC
- J( [( o, i8 p9 c  U$ H  V3 z
BOXIN3: CJNE A,#03,BOXIN4 JMP WAVEDBOXIN4: MOV 2DH,#00HWAVEA: CALL WAVE1 JMP OUTWAVEB: CALL WAVE2 JMP OUTWAVEC: CALL WAVE3 JMP OUTWAVED: CALL WAVE4 JMP OUTNEXT19: CJNE A,#13H,OUT ;填写数码管功能 JMP OUT
5 M8 O7 l  Q7 |7 K4 z' l  Y
" y, E; x6 z9 S( sOUTE: RET;88888888888888888888888888888888888888888NOSD: MOV DATA_OUT,#88H ;不闪动程序 CALL SEND MOV DATA_OUT,#11111111B CALL SEND RET

;*******************************************;*******************************************LDELAY: MOV TIMER,#25 ; 50uSDLOOP: DJNZ TIMER,DLOOP RETSDELAY: MOV TIMER,#4 ; 8uSSLP: DJNZ TIMER,SLP RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

寒舞

;8254计数器部分子程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;WORD: CLR CS1 SETB RD CLR WR SETB A1 SETB A0 RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TIME0: CLR CS1 SETB RD SETB WR CLR A1 CLR A0 CLR WR RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TIME1: CLR CS SETB RD SETB WR CLR A1 SETB A0 CLR WR RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;TIME2: CLR CS SETB RD SETB WR CLR A0 SETB A1 CLR WR RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MODE1: CALL WORD MOV A, #00110110B CALL CONVERT MOV P0, A NOP CALL TIME0 MOV A,21H CALL CONVERT MOV P0,A SETB WR NOP CLR WR MOV A,22H CALL CONVERT MOV P0,A SETB WR RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MODE2: CALL WORD MOV A,#01110111B CALL CONVERT MOV P0,A CALL TIME1 MOV A,27H CALL CONVERT MOV P0,A SETB WR NOP CLR WR MOV A,28H CALL CONVERT MOV P0,A SETB WR RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MODE3: CALL WORD ;MOV P0,#10110111B ;先低后高16位10进制计数器 ; CALL TIME2 ; MOV P0,27H ; SETB WR ; NOP ; CLR WR ; MOV P0,28H ; SETB WR ;RET;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;CHANGE: ;例:把"#30H" 转化为 "#48H" ;;; MOV B,#10 ;;; DIV AB ;;; SWAP A ;;; MOV @R0,B ;;; XCHD A,@R0 ;;; RET ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;WAVE1: ;************************************** MOV DATA_OUT,#10010111B ;"* CALL SEND ;* MOV DATA_OUT,#01000000B ;* CALL SEND ;* CLR A9 ;选择存储器件地址 ;* CLR A8 ;* ;++++++++++++++++++++++++++++++ ;* RETWAVE2: ;************************************** MOV DATA_OUT,#10010111B ;"* CALL SEND ;* MOV DATA_OUT,#01000001B ;* CALL SEND ;* CLR A9 ;* SETB A8 ;* ;++++++++++++++++++++++++++++++ ;* RETWAVE3: ;************************************** MOV DATA_OUT,#10010111B ;"* CALL SEND ;* MOV DATA_OUT,#01001001B ;* CALL SEND ;* SETB A9 ;* CLR A8 ;* ;++++++++++++++++++++++++++++++ ;* RETWAVE4: ;************************************** MOV DATA_OUT,#10010111B ;"* CALL SEND ;* MOV DATA_OUT,#00011101B ;* CALL SEND ;* SETB A9 ;* SETB A8 ;* ;++++++++++++++++++++++++++++++ ;* RETCONVERT: MOV R5,#08H MOV 2FH,#00H CLR C S:RLC A ;A MOV 2EH,A; MOV A,2FH RRC A MOV 2FH,A MOV A,2EH DJNZ R5, S MOV A,2FH RETINT1: ;; PUSH ACC ;; PUSH PSW ;;XX: JB P3.3,$ ;消除抖动 ;; CALL SDELAY ;; JNB P3.3,XX ;; INC 27H CALL MODE2 INC 3FH MOV A,3FH CJNE A,#01H,MK1 CLR A9 SETB A8 JMP OUT1 MK1: CJNE A,#02H,MK2 SETB A9 CLR A8 JMP OUT1 MK2: MOV 3FH,#00H CLR A9 CLR A8 JMP OUT1OUT1: POP PSW ;; POP ACC ;; RETI ;;

END

珊瑚

我顶了 正需要呢

虎门大雄

楼主，谢谢你了，能能否把你的这个发到我的邮箱嘛，我参考哈，做个课程设计，谢谢你了，r568@yahoo.com.cn 帮我指导哈嘛，谢谢你了。

虎门大雄

下载了呢。谢谢了

fengjielin

技术文章