我制作的函数发生器

寒舞

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

" D6 M( Q9 L6 \2 ~) ]! d
6 X3 z( B% o4 w: ]! i0 y

( ?& S/ c$ p" T" N+ H8 \, E: t
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
3 l% P2 N' l* o
SMG6 DATA 50H ;数码管值所存的地址SMG5 DATA 51HSMG4 DATA 52HSMG3 DATA 53H;****************TEN0 DATA 40H ;TEN1 DATA 41HTEN2 DATA 42HTEN3 DATA 43H

/ C6 U6 F" C2 W( ];*************** ;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
  {2 L3 K. i# S* r# f
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口

MOV 21H,#20H ;设置8254的计数器值 ;计数器1 MOV 3FH,#00H MOV 22H,#4EH CALL MODE1 ;计数器0 NOP MOV 27H,#20H CALL MODE2 ;计数器1

START: 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;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;******************************************** 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,$ ;

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
' \1 u2 }% ?7 L9 B4 t
SM3: 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
) D8 v, j2 J$ I' a
1 M2 T$ G6 _$ wSD: CALL NOSD ;调用不闪动子程序 JMP KK ;;;;;;;;;;;
( {- |3 h$ m$ C
3 U) V0 Y! p8 |SM4: 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 ;/////////////////// ;

;;;;;;;;;;;;;;;;;;;;;; MOV A,54H CJNE A,#00H,SD MOV DATA_OUT,#88H CALL SEND MOV DATA_OUT,#11011111B CALL SEND

  w/ r+ o: R$ V8 f1 ?: n JMP KKKK: SETB CSWAIT: JNB KEY,WAIT ; JMP MAIN;*******************************************

;*******************************************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 ;****;*******************************************

/ H7 x* h" e- E+ k% U4 I, Q) L) a  a;*******************************************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
) j: x% x2 C/ \
DEC TEN ;数码管计数减少 MOV A,TEN CJNE A,#0FFH,S2 MOV TEN, #09H

S2: MOV A,#00H JMP OUTOUT: RET
" G0 x7 B( ~) V* ?1 X
8 t2 @8 S% }% T" l$ Z$ V' c/ uNEXT14: CJNE A,#11H,NEXT15 ;填写数码管功能 JMP OUTNEXT15: CJNE A,#12H,NEXT16 INC TEN ;数码管计数增加 MOV A,TEN CJNE A,#0AH,OUT MOV TEN, #00H
4 u4 L! r0 n6 b7 W" M
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
/ h5 N$ D; j) B0 Z9 D; b& y6 q$ |
BOXIN1: CJNE A,#01,BOXIN2 JMP WAVEB
- \/ b8 h- ?& z# T/ s4 J2 U* o
$ L( f0 T2 {! q4 J) s* {" K# d4 pBOXIN2: CJNE A,#02,BOXIN3 JMP WAVEC
+ `" y+ Z  K5 y# Z+ p* x& \" k
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
$ O# a+ ]1 C# u: s6 |2 a( z
OUTE: RET;88888888888888888888888888888888888888888NOSD: MOV DATA_OUT,#88H ;不闪动程序 CALL SEND MOV DATA_OUT,#11111111B CALL SEND RET

3 P4 x* K' o2 L. u) j# X;*******************************************;*******************************************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 ;;
8 _/ Q2 ?7 ~& z8 k' p  ~
END

珊瑚

我顶了 正需要呢

虎门大雄

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

虎门大雄

下载了呢。谢谢了

fengjielin

技术文章