我制作的函数发生器

寒舞

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



' n3 F: Z: o9 `/ n6 B  C, k

% w7 x1 H/ g9 g2 r 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
( `" n* t! n# z/ O
9 o0 Z6 E/ o( ?) Y) RSMG6 DATA 50H ;数码管值所存的地址SMG5 DATA 51HSMG4 DATA 52HSMG3 DATA 53H;****************TEN0 DATA 40H ;TEN1 DATA 41HTEN2 DATA 42HTEN3 DATA 43H

) s4 v# e& n' l: s# R6 n;*************** ;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
' {8 ~0 U9 v0 q* R6 j% M
4 V  ]2 V- k  r" o$ m 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口
6 r2 `* g3 G( U( t. E4 x
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,$ ;
! h* ~0 ~! ]5 g# q! E/ ]) U
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
% _# A% w, e" w9 b/ o) T1 ~6 `
6 Y  S; J3 K# k9 W$ iSM3: 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

0 `3 B& y6 w2 YSD: CALL NOSD ;调用不闪动子程序 JMP KK ;;;;;;;;;;;
$ o# S7 T1 f  V
' S2 f/ J( ^! O# ~3 _8 h& i/ \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 ;/////////////////// ;

* v! j) ]2 p3 y ;;;;;;;;;;;;;;;;;;;;;; MOV A,54H CJNE A,#00H,SD MOV DATA_OUT,#88H CALL SEND MOV DATA_OUT,#11011111B CALL SEND
+ |  g5 f7 e# }' m9 n4 `, D6 I1 M
JMP KKKK: SETB CSWAIT: JNB KEY,WAIT ; JMP MAIN;*******************************************
& i' Z0 F+ L& R1 M8 t5 J3 C. o" F
  v" e5 w: J. a- _2 F- z;*******************************************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 ;****;*******************************************

% C- s# ?  i5 T* m' A3 Q;*******************************************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
# d* n. W/ B) v. t
& d/ y2 \# @5 ~ DEC TEN ;数码管计数减少 MOV A,TEN CJNE A,#0FFH,S2 MOV TEN, #09H
1 w* C" W4 T6 z2 M) o9 v& ^
8 j5 O9 m! @/ H/ Z; s) ZS2: MOV A,#00H JMP OUTOUT: RET

, U& x* e" f4 @/ y7 @" `NEXT14: CJNE A,#11H,NEXT15 ;填写数码管功能 JMP OUTNEXT15: CJNE A,#12H,NEXT16 INC TEN ;数码管计数增加 MOV A,TEN CJNE A,#0AH,OUT MOV TEN, #00H

' L. f$ b0 x# ^ 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

5 D3 \9 e& S- s; F5 [9 X" w+ yBOXIN1: CJNE A,#01,BOXIN2 JMP WAVEB
) u& I% m) H$ f% b& t2 W& O1 @
0 v, w$ j1 R+ h- V; ~# h7 XBOXIN2: CJNE A,#02,BOXIN3 JMP WAVEC
4 m% `0 t# `8 ~2 [" c9 P0 M
' I- l/ J8 v) |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
6 C) v# O$ P7 t2 ?, f
OUTE: 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 ;;

3 w# v8 C. s! O8 n END

珊瑚

我顶了 正需要呢

虎门大雄

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

虎门大雄

下载了呢。谢谢了

fengjielin

技术文章