單片機(jī)控制DAC0832輸出正弦波三角波匯編程序

1、單片機(jī)控制DAC0832輸出正弦波三角波匯編程序org 0000hLJMP MAINORG 0003HLJMP L0MAIN:MOV R2,#0aH;調(diào)幅倍數(shù)MOV R4,#01H;增減選擇MOV R5,#01Hpp: SETB EASETB EX0;延時(shí)計(jì)數(shù)個(gè)數(shù)MOV A,#0FFH；讀取波形狀態(tài)MOV P1,AMOV A,P1JNB ACC.0,ZXB ;P1.0=0 則選擇正弦波JNB ACC.1,SJB ;P1.1=0 則選擇三角波JNB ACC.2,FB ;P1.2=0 則選擇方 波AJMP PPZXB:MOV R1,#00HLOOP1:MOV A,R1MOV DPTR,#TABLE

2、1；讀取正弦波數(shù)據(jù)首地址MOVC A,A+DPTR;去表格數(shù)據(jù)MOV B,R2MUL AB ；幅度大小INC R1XCH A,R1CLR CSUBB A,#0AH;是否已采樣半個(gè)周期JNC LK1 ;C=0 跳轉(zhuǎn)，即 R1 大于 0A, 以采樣半個(gè) 周期以上ADD A,#0AHXCH A,R1;還原 R1ADD A,#80H ;8OH 為零點(diǎn)，取得正的幅度值 AJMP LK0LK1:ADD A,#0AHXCH A,R1MOV R3,AMOV A,#80HCLR CSUBB A,R3 ;80H 為零點(diǎn)，取得負(fù)的幅度值 LK0:MOV DPTR,#8000H ; 送 DA 轉(zhuǎn)換入口地址MOVX D

3、PTR,AMOV A,R5KD:DEC R5 ; 調(diào)用延時(shí)CALL DELAYCJNE R5,#00H,KDMOV R5,ACJNE R1,#12H,LOOP1LJMP PPFB:MOV R1,#00HLOOP2:MOV A,R1MOV DPTR,#TABLE2;讀取方波數(shù)據(jù)首地址MOVC A,A+DPTR;去表格數(shù)據(jù)MOV B,R2MUL AB ; 幅度大小INC R1XCH A,R1CLR CSUBB A,#0AH;是否已采樣半個(gè)周期JNC LK3 ;C=0 跳轉(zhuǎn)，即 R1 大于 0A, 以采樣半個(gè) 周期以上ADD A,#0AHXCH A,R1 ; 還原 R1ADD A,#80H ;8OH

4、 為零點(diǎn)，取得正的幅度值A(chǔ)JMP LK2LK3:ADD A,#0AHXCH A,R1MOV R3,AMOV A,#80HCLR CSUBB A,R3 ;80H 為零點(diǎn)，取得負(fù)的幅度值LK2:MOV DPTR,#8000H MOVX DPTR,A MOV A,R5KD0:DEC R5 ; 調(diào)用延時(shí) CALL DELAY CJNE R5,#00H,KD0 MOV R5,ACJNE R1,#12H,LOOP2 LJMP PPSJB:MOV R1,#00HLOOP3:MOV A,R1MUL AB；幅度大小; 送 DA 轉(zhuǎn)換入口地址;讀取三角波波數(shù)據(jù)首地址;去表格數(shù)據(jù)MOV DPTR,#TABLE3 M

5、OVC A,A+DPTR MOV B,R2INC R1XCH A,R1CLR CSUBB A,#0DH;是否已采樣半個(gè)周期JNC LK5 ;C=0 跳轉(zhuǎn)，即 R1 大于 D, 以采樣半個(gè) 周期以上ADD A,#0DHXCH A,R1;還原 R1ADD A,#80H ;8OH 為零點(diǎn)，取得正的幅度值A(chǔ)JMP LK4LK5:ADD A,#0DHXCH A,R1MOV R3,AMOV A,#80HCLR CSUBB A,R3 ;80H 為零點(diǎn)，取得負(fù)的幅度值 LK4:MOV DPTR,#8000H ; 送 DA 轉(zhuǎn)換入口地址MOVX DPTR,A KD1:MOV A,R5DEC R5; 調(diào)用延時(shí)CA

6、LL DELAYCJNE R5,#00H,KD1MOV R5,ACJNE R1,#18H,LOOP3LJMP PPDELAY:NOPRETL0:CLR EAPUSH APUSH PSWJB P1.3,L1;中斷子程序CJNE R4,#00H,KL0INC R4SJMP LD0KL0:MOV R4,#00HLD0:JNB P1.3,LD0 ; 判斷鍵是否松開(kāi)LJMP LENDL1:JB P1.4,L2MOV A,R4JNZ KL1;判斷幅度是增還是減CJNE R2,#0AH,KK0 ; 判斷幅度是否達(dá)到最大SJMP LD1KK0:INC R2 ；幅度增加 0.5VSJMP LD1KL1:CJNE

7、 R2,#00H,KK1SJMP LD1KK1:DEC R2 ; 幅度減小 0.5VLD1:JNB P1.4,LD1LJMP LENDL2:JB P1.5 ,LENDMOV A,R4JNZ KL2 ; 判斷頻率的增減MOV A,#05H ;每次周期變化 20 微秒 CLR CADD A,R5JC LD2MOV R5,ALJMP LD2KL2:MOV A,R5CLR C SUBB A,#05HJC LD2MOV R5,ALD2:JNB P1.5,LD2 LEND:POP PSWPOP ASETB EARETITABLE1:DB00H,04H,08H,0bH,0cH,0cH,0bH,08H,04H,00H,04H,08H,0 bH,0cH,0cH,0bH,08H ,04HTABLE2:DB00H,00H,00H,00H,00H,00H,00H,00H,00H,0CH,0CH,0CH,0 CH,0CH,0CH,0