newisr.h

foc 通信程序源码

;----------------------------------------------------------------------------
XINT1FO		MAR	*,AR1
		MAR	*+
		SST	#1,*+
		SST	#0, *+
		SACH	*+
		SACL	*

		STOP		
                ldp	#4			;200H-027FH
       		splk    #3,FailFlag
       		
       		ALARM	
       		
       		Y3ON

		MAR	*,AR1
		LACL	*-
		ADDH	*-
		LST	#0, *-
		LST	#1, *-
 		CLRC	INTM
		RET		
;========================================================================
PHANTOM 	KICK_DOG			;RESETS WD COUNTER
		B	PHANTOM
;=====================================================================  

;sub delay  
;=====================================================================
MS_DELAY:	ldp	#4			
		LACC	#2000
		SACL	RPT_NUM
		LAR	AR7,MSEC		;Set AR7 to generate a
		MAR	*,AR7			;(AR7*0.1)mSEC delay loop

mS_LOOP:	ldp	#4
		RPT	RPT_NUM			;2000 cycles = 0.1mS
		NOP					;1 cycle
		BANZ	mS_LOOP,*-	;Repeat DELAY_LOOP
		RET					;Return from DELAY SR

;=========================================================================