c5_2_2.dsp

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

				dm(eit_int)=ar;				
				
				mx0=dm(rt); mx1=0;
				my0=dm(eft1_fra); my1=dm(eft1_int);
				 
				call dpm;
				mx0=dm(res_fra); mx1= dm(res_int);
				my0=dm(at_fra); my1=dm(at_int);
				 
				call dpm;				
				ax0=dm(res_fra);
				ax1=dm(res_int);
				dm(temp1_fra)=ax0;
				dm(temp1_int)=ax1;

				mx0=dm(rrt); mx1=0;
				my0=dm(eft2_fra); my1=dm(eft2_int);
				 
				call dpm;
				ax0=dm(temp1_fra);
				ax1=dm(temp1_int);
				ay0=dm(res_fra);
				ay1=dm(res_int);
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
                   		ax0=dm(eit_fra);
				ax1=dm(eit_int);
				ay0=dm(temp_fra);
				ay1=dm(temp_int);
				ar=ax0-ay0;
				dm(eft_fra)=ar;
				ar=ax1-ay1+c-1;
				dm(eft_int)=ar;					
				
				mx0=dm(rt); mx1=0;
				my0=dm(yft1_fra); my1=dm(yft1_int);
				 
				call dpm;
				mx0=dm(res_fra); mx1= dm(res_int);
				my0=dm(at_fra); my1=dm(at_int);
				call dpm; 
                  		ax0=dm(res_fra);
				ax1=dm(res_int);
				dm(temp1_fra)=ax0;
				dm(temp1_int)=ax1;

				mx0=dm(rrt); mx1=0;
				my0=dm(yft2_fra); my1=dm(yft2_int);
				 
				call dpm;
				ax0=dm(temp1_fra);
				ax1=dm(temp1_int);
				ay0=dm(res_fra);
				ay1=dm(res_int);
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
                   		ay0=dm(temp_fra);
				ay1=dm(temp_int);
				ax0=dm(yt_fra);
				ax1=dm(yt_int);
				ar=ax0-ay0;
				dm(yft_fra)=ar;
				ar=ax1-ay1+c-1;
				dm(yft_int)=ar;							
				ax0=dm(at_fra);
				ax1=dm(at_int);
				dm(at1_fra)=ax0;
				dm(at1_int)=ax1;
							
                   		ax0=dm(eit1_fra);
				ax1=dm(eit1_int);
				dm(eit2_fra)=ax0;
				dm(eit2_int)=ax1;
                   		ax0=dm(eit_fra);
				ax1=dm(eit_int);
				dm(eit1_fra)=ax0;
				dm(eit1_int)=ax1;
									
                   		ax0=dm(eft1_fra);
				ax1=dm(eft1_int);
				dm(eft2_fra)=ax0;
				dm(eft2_int)=ax1;
                   		ax0=dm(eft_fra);
				ax1=dm(eft_int);
				dm(eft1_fra)=ax0;
				dm(eft1_int)=ax1;
									
                   		ax0=dm(yft1_fra);
				ax1=dm(yft1_int);
				dm(yft2_fra)=ax0;
				dm(yft2_int)=ax1;
                  		ax0=dm(yft_fra);
				ax1=dm(yft_int);
				dm(yft1_fra)=ax0;
				dm(yft1_int)=ax1;
				ax0=dm(pt_fra);
				ax1=dm(pt_int);
				dm(pt1_fra)=ax0;
				dm(pt1_int)=ax1;
loop2:				nop;							
				si=dm(at_fra);
				sr=lshift si by –1(lo);
				si=sr0;							
				sr=lshift si by –1(lo);
				dm(xx)=sr0;
				ax0=dm(at_int);
				ay0=h#0ffff;
				ar=ax0+ay0;
				if not ac jump stone0;
				ax0=dm(at_int);
				ay0=h#0fffe;
				ar=ax0+ay0;
				if not ac jump stone1;
				ax0=dm(xx);
				ay0=h#0000;
				ar=ax0+ay0;
				if not ac jump stone2;
				ax0=dm(xx);
				ay0=h#0001;
				if not ac jump stone3;
				ax0=dm(xx);
				ay0=h#0c000;
				ar=ax0+ay0;
                  		ar=ar-1;
				jump stone;
stone3:				ar=dm(xx);
				ar=ar-1;
				jump stone;
stone2:				ax0=dm(xx);
				ay0=h#0c000;
                   		ar=ax0+ay0;
				jump stone;
stone1:				ax0=dm(xx);
				ay0=h#04000;
                   		ar=ax0+ay0;
				jump stone;
stone0:				ar=dm(xx);				    	
stone:				ar=-ar; ax0=0;               			
				dm(temp_fra)=ax0;				
				dm(temp_int)=ax1;
				mx0=ar;		my0=ar;
				dm(at_fra)=mx0;
				cntr=10;
				do loop4 until ce;
				mr=mx0*my0(ss);
				my0=mr1;
loop4:				nop;
				mx0=h#02dd;
				mr=mx0*my0(ss);
				ax0=mr1;
				
				ay0=h#8000;
				ar=ax0+ay0;
				if not ac jump am1;
				ar=dm(temp_int);
				ar=ar-1;
				dm(temp_int)=ar;
am1:				si=ax0;
				sr=lshift si by 1(lo);
				dm(temp_fra)=sr0;
				
				mx0=dm(at_fra);
				my0=dm(at_fra);
				cntr=8;
				do loop5 until ce;
				mr=mx0*my0(ss);
				my0=mr1;
loop5:				nop;
				mx0=h#03e1;
				mr=mx0*my0(ss);
				ax0=mr1;	
				ay0=h#8000;
				ar=ax0+ay0;
				if not ac jump am2;
				ar=dm(temp_int);
				ar=ar-1;
				dm(temp_int)=ar;
am2:				si=mr1;
				sr=lshift si by 1(lo);
				ay0=sr0;
				ax0=dm(temp_fra);
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ax1=0;	
				ay1=dm(temp_int);
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
				
				mx0=dm(at_fra);
				my0=dm(at_fra);
				cntr=6;
				do loop6 until ce;
				
				mr=mx0*my0(ss);
				my0=mr1;
loop6:				nop;
				mx0=h#06b6;
				mr=mx0*my0(ss);
				ax0=mr1;	
				ay0=h#8000;
				ar=ax0+ay0;
				if not ac jump am3;
				ar=dm(temp_int);
				ar=ar-1;
				dm(temp_int)=ar;
am3:				si=mr1;
				sr=lshift si by 1(lo);
				ax0=sr0;
				ay0=dm(temp_fra);
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ax1=0;	
				ay1=dm(temp_int);
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
				
				mx0=dm(at_fra);
				my0=dm(at_fra);
				cntr=4;
				do loop7 until ce;
				
				mr=mx0*my0(ss);
				my0=mr1;
loop7:				nop;
				mx0=h#0aaa;
				mr=mx0*my0(ss);
				ax0=mr1;	
				ay0=h#8000;
				ar=ax0+ay0;
				if not ac jump am4;
				ar=dm(temp_int);
				ar=ar-1;
				dm(temp_int)=ar;
am4:				si=mr1;
				sr=lshift si by 1(lo);
				ax0=sr0;
				ay0=dm(temp_fra);
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ax1=0;	
				ay1=dm(temp_int);
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
				
				mx0=dm(at_fra);
				my0=dm(at_fra);
				mr=mx0*my0(ss);
				my0=mr1;
				mr=mx0*my0(ss);
				mx0=mr1;
				my0=h#01555;
				mr=mx0*my0(ss);
				ax0=mr1;ay0=h#8000;
				ar=ax0+ay0;
				if not ac jump am5;
				ar=dm(temp_int);
				ar=ar-1;
				dm(temp_int)=ar;
am5:				si=mr1;
				sr=lshift si by 1(lo);
				ax0=sr0;
				ay0=dm(temp_fra);
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ax1=0;	
				ay1=dm(temp_int);
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
				
				ax0=dm(at_fra);
				ay0=h#08000;
				ar=ax0+ay0;
				if not ac jump am6;
				ar=dm(temp_int);
				ar=ar-1;
				dm(temp_int)=ar;
am6:				si=dm(at_fra);
				sr=lshift si by 1(lo);
				ay0=sr0; ax1=0;
				ax0=dm(temp_fra);
				ay1=dm(temp_int)
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
				
				ax0=dm(at_fra);
				ay0=h#08000;
				ar=ax0+ay0;
				
				mx0=dm(at_fra);
				my0=dm(at_fra);
				cntr=12;
				do loop8 until ce;
				
				mr=mx0*my0(ss);
				my0=mr1;
loop8:				nop;
				mx0=h#0238;
				mr=mx0*my0(ss);
				ax0=mr1;	
				ay0=h#8000;
				ar=ax0+ay0;
				if not ac jump am7;
				ar=dm(temp_int);
				ar=ar-1;
				dm(temp_int)=ar;
am7:				si=mr1;
				sr=lshift si by 1(lo);
				ax0=sr0;
				ay0=dm(temp_fra);
				ar=ax0+ay0;
				dm(temp_fra)=ar;
				ax1=0;	
				ay1=dm(temp_int);
				ar=ax1+ay1+c;
				dm(temp_int)=ar;
				
				ax0=1;				
				ax1=h#921f;
				ay0=dm(temp_int);
				ay1=dm(temp_fra);
				ar=ax1-ay1;
				dm(temp_fra)=ar;
				ar=ax0-ay0+c-1;
				dm(temp_int)=ar;
				mx0=h#028be;
				mx1=0;
				my0=dm(temp_fra);
				my1=dm(temp_int);
				 
				call dpm;				   
				mx0=dm(res_fra);
				mx1=dm(res_int);
				my0=0;my1=900;      	    			
				 
				call dpm;
				jump csp5;
										
dpm				ena m_mode;					
	              		MR=MX0*MY0(UU);         			
				MR0=MR1;					
				MR1=MR2;
				MR=MR+MX1*MY0(SU);				
				MR=MR+MX0*MY1(US);				
				DM(res_fra)=MR0;
				MR0=MR1;					
				MR1=MR2;					
				MR=MR+MX1*MY1(SS);				
				DM(res_int)=MR0;				
				dis m_mode;					
				RTS;						
CSP5:				IDLE;						
				.endmod;