dspio.asm

tms2407 dsp io控制程序。学习dsp的一个入门程序

*******************************************************
* TMS320C2x/C2xx/C5x ANSI C Codegen Version 7.00       
*******************************************************
;	C:\tic2xx\c2000\cgtools\bin\dspac.exe -v2xx dspio.c D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\dspio.if 
;	dspopt NOT RUN
;	C:\tic2xx\c2000\cgtools\bin\dspcg.exe -o -v2xx -o D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\dspio.if D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\dspio.asm D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\dspio.tmp 
	.port
	.file	"dspio.c"
	.text

	.sym	_initial,_initial,36,2,0
	.globl	_initial

	.func	5
;>>>> 	initial()
******************************************************
* FUNCTION DEF : _initial
******************************************************
_initial:
	POPD	*+
	SAR	AR0,*+
	SAR	AR1,*
	LARK	AR0,1
	LAR	AR0,*0+

	.line	3
;>>>> 	  asm("SETC SXM");
SETC SXM
	.line	4
;>>>> 	  asm("clrc OVM");
clrc OVM
	.line	5
;>>>> 	  asm("clrc CNF");
clrc CNF
	.line	6
;>>>> 	  asm("setc INTM");
setc INTM
	.line	7
;>>>> 	  SCSR1=0x81FE;
	LARK	AR3,28696
	MAR	* ,AR3
	SPLK	#33278,* 
	.line	8
;>>>> 	  WDCR=0x0e8;
	LACK	232
	ADRK	17
	SACL	* ,AR4
	.line	10
;>>>> 	  IMR=0x0000;
	LARK	AR4,4
	LACK	0
	SACL	* 
	.line	11
;>>>> 	  IFR=0xFFFF;
	ADRK	2
	SPLK	#65535,* ,AR3
	.line	12
;>>>> 	  MCRA=MCRA&0x0ff;
	LACK	255
	ADRK	103
	AND	* 
	SACL	* 
	.line	14
;>>>> 	  PBDATDIR=PBDATDIR|0x0ff00;
	LACK	65280
	ADRK	10
	OR	* 
	SACL	* 
	.line	15
;>>>> 	  MCRC=MCRC&0x0FBFF;
	LACK	64511
	SBRK	6
	AND	* 
	SACL	* 
	.line	16
;>>>> 	  PBDATDIR=PBDATDIR&0xff00;
	LACK	65280
	ADRK	6
	AND	* 
	SACL	* 
	.line	17
;>>>> 	  PFDATDIR=PFDATDIR|0x0404;
	LACK	1028
	SBRK	4
	OR	* 
	SACL	* 
	.line	18
;>>>> 	  PFDATDIR=PFDATDIR&0x0fffb;
	LACK	65531
	AND	* 
	SACL	* ,AR1
EPI0_1:
	.line	19
	SBRK	2
	LAR	AR0,*-
	PSHD	*
	RET

	.endfunc	23,000000000H,1

	.sym	_main,_main,36,2,0
	.globl	_main

	.func	25
;>>>> 	main()
;>>>> 	  int led;
;>>>> 	  int i,k;
******************************************************
* FUNCTION DEF : _main
******************************************************
_main:
	POPD	*+
	SAR	AR0,*+
	SAR	AR1,*
	LARK	AR0,4
	LAR	AR0,*0+

	.sym	_led,1,4,1,16
	.sym	_i,2,4,1,16
	.sym	_k,3,4,1,16
	.line	5
;>>>> 	  initial();
;>>>> 	    while(1)
	CALL	_initial
	MAR	* ,AR2
	SSXM ;;;
L1:
	.line	8
;>>>> 	     for(led=0x0080,i=0;i<8;led=led>>1,i++)
	LACK	128
	LARK	AR2,1
	MAR	*0+
	SACL	*+
	LACK	0
	SACL	* 
	LAC	* 
	SUBK	8
	BGEZ	L4
	MAR	*-,AR3
L3:
	.line	10
;>>>> 	      PBDATDIR=PBDATDIR&0xff00;
	LARK	AR3,28826
	LACK	65280
	AND	* 
	SACL	* 
	.line	11
;>>>> 	      PBDATDIR=PBDATDIR|led;
	LAC	* ,AR2
	OR	* ,AR3
	SACL	* 
	.line	12
;>>>> 	      PFDATDIR=PFDATDIR|0x0404;
	LACK	1028
	SBRK	4
	OR	* 
	SACL	* 
	.line	13
;>>>> 	      PFDATDIR=PFDATDIR&0x0fffB;
	LACK	65531
	AND	* 
	SACL	* ,AR2
	.line	14
;>>>> 	     for(k=0;k<0x0ffff;k++)
	LACK	0
	ADRK	2
	SACL	* 
	ZALS	* 
	RSXM
	SUBK	-1
	BGEZ	L6
L5:
	.line	15
;>>>> 	      k=k;
;>>>> 	    }//end for
	LAC	* 
	SACL	* 
	.line	14
	LAC	* 
	ADDK	1
	SACL	* 
	ZALS	* 
	SUBK	-1
	BLZ	L5
L6:
	.line	8
	SSXM
	SBRK	2
	LAC	* ,14
	SACH	*+,1
	LAC	* 
	ADDK	1
	SACL	* 
	LAC	*-,AR3
	SUBK	8
	BLZ	L3
L4:
	.line	17
;>>>> 	 }//end while
	MAR	* ,AR2
	B	L1
	.endfunc	42,000000000H,4

	.sym	_nothing,_nothing,32,2,0
	.globl	_nothing

	.func	45
;>>>> 	void interrupt nothing()
******************************************************
* FUNCTION DEF : _nothing
******************************************************
_nothing:
	CALL	I$$SAVE
	SAR	AR1,*
	LARK	AR0,1
	LAR	AR0,*0+

	.line	3
;>>>> 	 return;
EPI0_3:
	.line	4
	SBRK	1
	B	I$$REST,AR1   ;and return

	.endfunc	48,000000000H,1
*****************************************************
* UNDEFINED REFERENCES                              *
*****************************************************
	.global	I$$SAVE
	.global	I$$REST
	.end