deng1.txt

TIDSP2407交通灯程序

           .include "F2407REGS.h"  ;引用头部文件
           .def      _c_int0
           ;count .uesct "data0",1
           .sect	     ".vectors"				;定义主向量段
RSVECT		B    _c_int0				;PM 0	Reset Vector		1
INT1	B 		PHANTOM
INT2	B     GISR2

		.text
_c_int0:
        LDP  #DP_EVA
	    SPLK	#160CH,T1CON
		LDP		#0E0H
		SPLK	#81FEH,SCSR1
	   ;clrc   intm
		ldp		#4
		splk	#0e0h,200h
		out		200h,20h
        ldp		#100h 
        splk	#0h,8000h
        nop
        mar		*,ar2
        LAR		ar2,#1
begin:	LDP		#100H
		SPLK	#0861h,8000h
		nop
		call	delay4s
		mar     *,ar2
		LDP		#100H
		splk	#0451h,8000h
		nop
		call	delay250ms
		LDP		#100H
		splk	#0410h,8000h
		call	delay250ms
		LDP		#100H
		splk	#0451h,8000h
		call	delay250ms
		LDP		#100H
		splk	#0410h,8000h
		call	delay250ms
		LDP		#100H
		splk	#030ch,8000h
		call	delay4s
		mar *,ar2
		LDP		#100H
		splk	#028ah,8000h
		call	delay250ms
		LDP		#100H
		splk	#082h,8000h
		call	delay250ms
		LDP		#100H
		splk	#028ah,8000h
		call	delay250ms
		LDP		#100H
		splk	#0082h,8000h
		call	delay250ms
		nop
		banz	begin
	
		;LDP		#4H
		;SPLK	#1,0H
		;MAR		*,AR0
		;LAR		AR0,#1
		
		

		
		
	
				
		
		SETC	INTM
		CLRC	SXM
		CLRC	OVM
		CLRC	CNF
		LDP		#0E0H
		SPLK	#8EFEH,SCSR1
		SPLK	#0E8H,WDCR
		LDP		#0
		SPLK	#0002H,IMR
		SPLK	#0FFFFH,IFR
		
	    LDP		#100H
		SPLK	#0492H,8000H
	    LDP		#DP_EVA
		SPLK	#0000H,GPTCONA
		SPLK	#9898H,T1PR
		SPLK	#0000H,T1CNT
		;SPLK	#0FFFFH,T1CMPR
		SPLK	#164cH,T1CON
		SPLK	#0080H,EVAIMRA
		SPLK	#0FFFFH,EVAIFRA
		CLRC	INTM

wait:	NOP
   	    b	 	wait
		
GISR2:	
        ;ldp #4
        ;splk #1,count
		;LDP		#PIVR>>7H		
		;LACL	PIVR
		;XOR		#0027H
		;BCND	COM,EQ
		;nop
		;B       L
;COM:	
        mar *,ar3
        
        lar ar3,#1
        cmpr 0
        bcnd ON,tc
        b OFF
			
OFF:	ldp		#100h
		SPLK	#0H,8000H
		lar     ar0,#1
		;SPLK	#0,0H
		;ldp  #4
		
		B       K
		
ON:		LDP		#100H
		SPLK	#0492H,8000H
		LDP		#4H
		LAR		AR0,#0
		
K:		
		LDP		#DP_EVA
		SPLK    #0,T1CNT
		SPLK	#0FFFFH,EVAIFRA
		
;L:		NOP
        LDP		#0
		SPLK	#0FFFFH,IFR
        CLRC	INTM
		RET
	
			
delay250ms:	LACC #0FFFFH
delay250ms1:	sub		#1
				rpt		#098h
				nop
				BCND	delay250ms1,NEQ
				ret
delay4s:mar		*,ar1
        LAR		ar1,#0FH
delay4s1:		;sub		#1
				call	delay250ms
				BANZ delay4s1
			    ret
				
				NOP
				NOP
PHANTOM
		KICK_DOG
		RET
		
				.end