c3_9_1.asm

dsp入门与实践一书的源代码

			.mmregs   
SWCR	  	.set   002BH 				
outdata1 		.set   0000h			
outdata2  		.set   07ffh			
K_IPTR   	.set   000111000b<<07    		
K_TEMP  	.set   1111111b				
		    .data				
RES_SPACE:						
      	.space	07E0h					
		.word   	8000h			
		.word     0000H				
         .sect   	".DISPLAY"
		.label  	DISPLAY_SRC
		.word	    	08AAH			
		.word		7fffH			
		.word		0F000H			
		.word		0000h			
		.word   	0200h       		
		.word		01e0h			
		.word		0000h			
		.word		0100h			
     	.copy   	"vectors.asm"			
	
start：							
     	stm   	#3000h,sp        			
     	STM   	#80H,AR2				
     	STM   	#81H,AR3                 
     	ST    	#outdata1,*ar2
     	ST    	#outdata2,*ar3 
begin：
		portw	*ar2,0bfffh      
  		rpt     	#7fffh
		nop
  		portw	*ar3,0bfffh 
  		rpt     	#7fffh
		nop       
  		b		begin       				
	
		.space	2000h						
  		.label		DISPLAY_END	 
    
  	    .text
MAIN_START： 
  	stm     	#3000h,sp
  	STM     #0FFA0H,PMST    
	STM     #07FFFH,SWWSR
	STM     #0FFFFH,SWCR
	STM     #0H,34H
	STM     #0H,35H
	STM     #1H,34H
	STM     #0H,35H
	STM     #0EH,34H
	STM     #3F4FH,35H
	SSBX    INTM            	
	stm      #8000h,ar6
	STM     #8000H,AR3      	
	STM     DISPLAY_SRC,AR5		
  	STM     #0BH,AR4		
WRI_RPT：				
	STM     #63,AR1			
WRI_LOP：
    LD      *AR5,-8,A 			
    NOP
    NOP    
    AND     #0FEFFH,A			
    NOP
    NOP    
	STL     A,*AR6			
    NOP
    NOP    
    LD      *AR5,-8,A
    NOP
    NOP    
    OR      #0100H,A			
    NOP
    NOP    
	STL     A,*AR6+			
    NOP
    NOP    
	LD      *AR5,A 
    NOP
    NOP    
    AND     #0FEFFH,A
    NOP
    NOP    
	STL     A,*AR6
    NOP
    	NOP    
	LD      *AR5+,A    
    	NOP
    	NOP    
    	OR      #0100H,A
    	NOP
    	NOP    
	STL     A,*AR6+
    	NOP
    	NOP    
    	BANZ    WRI_LOP,*AR1-  
    	CALL    DELAYY 
	BANZ    WRI_RPT,*AR4-
	STM     #RES_SPACE,AR1	
	STM     #0FF80H,AR5		
	STM     #127,AR3
WRI_LOOP：
	LD    	*AR1,-8,A  
    NOP
    NOP    
    AND     #0FEFFH,A
    NOP
    NOP    
	STL     A,*AR5
    NOP
    NOP    
    LD      *AR1+,-8,A
    NOP
    NOP    
    OR      #0100H,A
    NOP
    NOP    
	STL    A,*AR5+		
	NOP
	BANZ    WRI_LOOP,*AR3-
LOAD_LOOP：
	B       LOAD_LOOP

DELAYY：				
  	PSHM    AR2               	
	STM     #0020H,AR2
DELAYY_LOOP：
  	RPT     #0fff0h
	NOP
	BANZ    DELAYY_LOOP,*AR2-
	POPM    AR2 
  RET
	.END