ad.asm

用dsp编写的四个程序,关于数组,还有语音,录音功能的实现

        .title "ex9"
		.global _c_int00
		.mmregs

DA_ADDR     .set    9100h
AD_DATA     .set    60h
        
		.sect ".vectors"
reset:	B _c_int00
		NOP
		NOP
		.space 4*128
		.text
_c_int00:
		LD #0h,DP
		STM #3000h,SP
		RSBX INTM
		STM #07FFFh,SWWSR
        SSBX XF   ;XF=1
        ST #1007h,CLKMD				;工作在20MHz
		RPT #0FFh
		NOP  
		STM #0ffffh,IFR
		ORM #000h,IMR
		;orm #01h,2bh
		RSBX SXM 
		        stm #2000h,ar2
		stm #64,ar1
		ld  #10,a
;aaa	    ST #0f0H,AD_DATA                          ;DA 测 试  程 序
;        rpt #50
;        PORTW  AD_DATA,DA_ADDR
;        nop
;        nop 
;        ST #0H,AD_DATA
;        rpt #50
;        PORTW  AD_DATA,DA_ADDR 
;        b  aaa 
aaa	    		ld  #10,a;stl a,AD_DATA                          ;DA 测 试  程 序
              stl a,*ar2+
        ;rpt #10
        ;PORTW  AD_DATA,DA_ADDR  ;write data in 2000h - 207Fh
        ;add #1,a
        banz aaa, *ar1-
        stm #64,ar1
        ld #0,a
bbb     		ld  #50,a;stl a,AD_DATA                          ;DA 测 试  程 序
                stl a,*ar2+
        ;rpt #10
        ;PORTW  AD_DATA,DA_ADDR
        ;sub #1,a
        banz bbb, *ar1-
        stm #64,ar1
        ld #0,a
        		st #1000,ar2
        PORTW *AR2+,8000H
        PORTW *AR2+,8001H
        PORTW *AR2+,8002H
        PORTW *AR2+,8003H
        PORTW *AR2+,8004H
        PORTW *AR2+,8005H
        PORTW *AR2+,8006H
        PORTW *AR2+,8007H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 8                      
        PORTW *AR2+,8008H
        PORTW *AR2+,8009H
        PORTW *AR2+,800aH
        PORTW *AR2+,800bH
        PORTW *AR2+,800cH
        PORTW *AR2+,800dH
        PORTW *AR2+,800eH
        PORTW *AR2+,800fH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 16                      
        PORTW *AR2+,8010H
        PORTW *AR2+,8011H
        PORTW *AR2+,8012H
        PORTW *AR2+,8013H
        PORTW *AR2+,8014H
        PORTW *AR2+,8015H
        PORTW *AR2+,8016H
        PORTW *AR2+,8017H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 24
        PORTW *AR2+,8018H
        PORTW *AR2+,8019H
        PORTW *AR2+,801aH
        PORTW *AR2+,801bH
        PORTW *AR2+,801cH
        PORTW *AR2+,801dH
        PORTW *AR2+,801eH
        PORTW *AR2+,801fH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 32                      
        PORTW *AR2+,8020H
        PORTW *AR2+,8021H
        PORTW *AR2+,8022H
        PORTW *AR2+,8023H
        PORTW *AR2+,8024H
        PORTW *AR2+,8025H
        PORTW *AR2+,8026H
        PORTW *AR2+,8027H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 40                      
        PORTW *AR2+,8028H
        PORTW *AR2+,8029H
        PORTW *AR2+,802aH
        PORTW *AR2+,802bH
        PORTW *AR2+,802cH
        PORTW *AR2+,802dH
        PORTW *AR2+,802eH
        PORTW *AR2+,802fH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 48                      
        PORTW *AR2+,8030H
        PORTW *AR2+,8031H
        PORTW *AR2+,8032H
        PORTW *AR2+,8033H
        PORTW *AR2+,8034H
        PORTW *AR2+,8035H
        PORTW *AR2+,8036H
        PORTW *AR2+,8037H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 56                      
        PORTW *AR2+,8038H
        PORTW *AR2+,8039H
        PORTW *AR2+,803aH
        PORTW *AR2+,803bH
        PORTW *AR2+,803cH
        PORTW *AR2+,803dH
        PORTW *AR2+,803eH
        PORTW *AR2+,803fH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 64                      
        PORTW *AR2+,8040H
        PORTW *AR2+,8041H
        PORTW *AR2+,8042H
        PORTW *AR2+,8043H
        PORTW *AR2+,8044H
        PORTW *AR2+,8045H
        PORTW *AR2+,8046H
        PORTW *AR2+,8047H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 72                      
        PORTW *AR2+,8048H
        PORTW *AR2+,8049H
        PORTW *AR2+,804aH
        PORTW *AR2+,804bH
        PORTW *AR2+,804cH
        PORTW *AR2+,804dH
        PORTW *AR2+,804eH
        PORTW *AR2+,804fH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 80                      
        PORTW *AR2+,8050H
        PORTW *AR2+,8051H
        PORTW *AR2+,8052H
        PORTW *AR2+,8053H
        PORTW *AR2+,8054H
        PORTW *AR2+,8055H
        PORTW *AR2+,8056H
        PORTW *AR2+,8057H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 88                      
        PORTW *AR2+,8058H
        PORTW *AR2+,8059H
        PORTW *AR2+,805aH
        PORTW *AR2+,805bH
        PORTW *AR2+,805cH
        PORTW *AR2+,805dH
        PORTW *AR2+,805eH
        PORTW *AR2+,805fH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 96                      
        PORTW *AR2+,8060H
        PORTW *AR2+,8061H
        PORTW *AR2+,8062H
        PORTW *AR2+,8063H
        PORTW *AR2+,8064H
        PORTW *AR2+,8065H
        PORTW *AR2+,8066H
        PORTW *AR2+,8067H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 104                      
        PORTW *AR2+,8068H
        PORTW *AR2+,8069H
        PORTW *AR2+,806aH
        PORTW *AR2+,806bH
        PORTW *AR2+,806cH
        PORTW *AR2+,806dH
        PORTW *AR2+,806eH
        PORTW *AR2+,806fH
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 112                      
        PORTW *AR2+,8070H
        PORTW *AR2+,8071H
        PORTW *AR2+,8072H
        PORTW *AR2+,8073H
        PORTW *AR2+,8074H
        PORTW *AR2+,8075H
        PORTW *AR2+,8076H
        PORTW *AR2+,8077H
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 120                      
        PORTW *AR2+,8078H
        PORTW *AR2+,8079H
        PORTW *AR2+,807aH
        PORTW *AR2+,807bH
        PORTW *AR2+,807cH
        PORTW *AR2+,807dH
        PORTW *AR2+,807eH
        PORTW *AR2+,807fH 
        		        stm #2000h,ar2
        b  aaa
        .end