intserver.asm

应用松翰母体写的一款电磁炉

;************************************************
;Name	:InterruptSub
;Function:
;Input  :
;Output	:
;Register Used:
;*************************************************
InterruptSub:
	XCH	A,AccBuf
	XCH	A,PFLAG
	B0MOV	PflagBuf,A
	
	b0bts0	FTc0IRQ		;//Analyse the Interrupt resourc
	jmp	Tc0INTR
	
	b0bts0	FP00IRQ		;//P00 interrupt
	jmp	P00INTR

Interrup90:

	XCH	A,PflagBuf
	B0MOV	PFLAG,A
	XCH	A,AccBuf	;//For release the Acc And Pflag
	
	RETI

;--------------------------------------------------------
Tc0INTR:
;//User can add  interrupt program
	
	bset	t10msflag
	
	mov	a,keychat
	b0bts0	fz
	jmp	TC0INTR10
	
	decms	keychat
	nop
;-----
TC0INTR10:
	decms	timer1s
	jmp	TC0INTR90
	bset	t1sflag
	mov_	timer1s,#100
;-----
TC0INTR20:
	decms	timer1m
	jmp	TC0INTR90
	mov_	timer1m,#60
	bset	t1mflag
TC0INTR90:
	b0bclr	FTc0IRQ
	jmp	Interrup90
	
;--------------------------------------------------------
P00INTR:
;//User can add  interrupt program

P00INTR90:
	b0bclr	FP00IRQ
	jmp	Interrup90
;--------------------------------------------------------
;***********************************************



;***********************************************
;Name	:mnintgnd
;Function:interface between interrupt and main
;Input  :
;Output	:
;Register Used:
;***********************************************
mnintgnd:

mnintgnd90:
	ret