www.pudn.com > LEDTEST20060803.rar > ledtest.asm


                   .title "LEDTEST.asm" 
                   .mmregs 
 
LEDAddr0		   .set  30f0h 
LEDAddr1		   .set  3001h 
LEDAddr2		   .set  30f2h 
LEDAddr3		   .set  3003h 
LEDAddr4		   .set  3004h 
LEDAddr5		   .set  3005h 
LEDAddr6		   .set  3006h 
LEDAddr7		   .set  3007h 
cpldport1          .set  2000h   
swcr			   .set  2bh		           
                   .def  _c_int00 
STACK				.usect "stack",100   
                   .text 
_c_int00:          
					RSBX CPL  
					RSBX SXM  
					LD	#00h,	DP             
					STM #000e3H,PMST 
    				STM #STACK+100h,SP	  
					stm #0f000h,swwsr              ;µÈ´ý0¸öʱÖÓ 
					stm #1,	swcr 
					ssbx intm 
					NOP 
TstStatu:                    STM #0b, CLKMD ;switch to DIV mode                    
  
					LDM CLKMD, A 
					AND #01b, A ;poll STATUS bit 
					BC TstStatu, ANEQ 
					STM #1111001111101111b, CLKMD ;switch to PLL  
					RPT #1000 
					NOP 
                    LD 	#0000H,	A 
                    NOP 
                    NOP 
                    PORTW	*(8H),	cpldport1 
                    NOP 
                    NOP 
                    PORTW	*(8H),	LEDAddr0 
                   	NOP 
                   	NOP 
                    PORTW	*(8H),	LEDAddr1 
                    NOP 
                    NOP 
                    PORTW	*(8H),	LEDAddr2 
                    NOP 
                    NOP 
                    PORTW	*(8H),	LEDAddr3 
                    NOP 
                    NOP 
                    PORTW	*(8H),	LEDAddr4 
                    NOP 
                    NOP 
                    PORTW	*(8H),	LEDAddr5 
                    NOP 
                    NOP 
                    PORTW	*(8H),	LEDAddr6 
                    NOP 
                    NOP 
                    PORTW	*(8H),	LEDAddr7 
					NOP 
					NOP 
                                      
LOOP_1: 
 
                    LD	#01110111B,	A			;1 
					PORTW	*(8H),	LEDAddr0 
                    NOP 
                    NOP 
                    CALL	delay1s 
                    LD	#00010100B,	A			;2 
                    NOP 
                    NOP 
					PORTW	*(8H),	LEDAddr1 
                    NOP 
                    NOP 
                    CALL	delay1s	 
                    LD	#11111111B,	A			;3 
                    NOP 
                    NOP 
					PORTW	*(8H),	LEDAddr2 
                    NOP 
                    NOP 
                    CALL	delay1s 
                    LD	#11111111B,	A			;4 
					PORTW	*(8H),	LEDAddr3 
                    NOP 
                    NOP 
                    CALL	delay1s 
                    LD	#11111111B,	A			;5 
					PORTW	*(8H),	LEDAddr4 
                    NOP 
                    NOP 
                    CALL	delay1s 
                    LD	#11111111B,	A			;6 
					PORTW	*(8H),	LEDAddr5 
                    NOP 
                    NOP 
                    CALL	delay1s 
                    LD	#11111111B,	A			;7 
					PORTW	*(8H),	LEDAddr6 
                    NOP 
                    NOP 
                    CALL	delay1s 
                    LD	#11111111B,	A			;8 
					PORTW	*(8H),	LEDAddr7 
                    NOP 
                    NOP 
                    CALL	delay1s 
                    LD	#00000000B,	A			 
                    PORTW	*(8H),	LEDAddr0 
                    NOP 
                    NOP 
                    CALL	delay1s 
					PORTW	*(8H),	LEDAddr1 
					NOP 
                    NOP 
                    CALL	delay1s 
					PORTW	*(8H),	LEDAddr2 
					NOP 
                    NOP 
                    CALL	delay1s 
					PORTW	*(8H),	LEDAddr3 
					NOP 
                    NOP 
                    CALL	delay1s 
					PORTW	*(8H),	LEDAddr4 
					NOP 
                    NOP 
                    CALL	delay1s 
					PORTW	*(8H),	LEDAddr5 
					NOP 
                    NOP 
                    CALL	delay1s 
					PORTW	*(8H),	LEDAddr6 
					NOP 
                    NOP 
                    CALL	delay1s 
					PORTW	*(8H),	LEDAddr7 
					NOP 
                    NOP 
                    CALL	delay1s 
                    NOP 
                    NOP 
                     
                    SSBX XF 
                    NOP 
                    RPT #2000 
                    NOP 
                    RPT #2000 
                    NOP 
                    RSBX XF 
                    NOP 
                    RPT #2000 
                    NOP 
                    RPT #2000 
                    NOP 
                     
                     
                     
                  B 		 LOOP_1 
                     
delay1s: 
					STM	#3000,	AR3 
delay_1				 
					RPT	#6FFH 
					NOP 
					NOP 
					NOP 
					BANZ	delay_1,	*AR3- 
					NOP 
					NOP 
 					RET 
                   .end