controll.asm

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

;******************************************************
;name:mncontroll
;function:用于整个工作状态控制
;input:
;output:
;influece:
;*******************************************************
mncontroll:
	b0bts1	operateflag
	jmp	mncontroll90
	call	pwmcontroll
	call	Igbtcontroll
	call	buzzercontroll
	call	fancontroll
	call	malfunction
;-----
mncontroll90:
	ret
;******************************************************
;name:pwmcontroll
;function:用于控制负载电流
;input:
;output:
;influece:
;*******************************************************
pwmcontroll:
	
;-----
pwmcontroll90:
	ret
	
;******************************************************
;name:Igbtcontroll
;function:用于控制IGBT脉冲
;input:
;output:
;influece:
;*******************************************************
Igbtcontroll:
	
;-----
Igbtcontroll90:
	ret
	
;******************************************************
;name:buzzercontroll
;function:用于控制蜂鸣器输出
;input:
;output:
;influece:
;*******************************************************
buzzercontroll:
;//	b0bts1	buzzerflag
	jmp	buzzercontroll90
;-----
	b0bts0	loadfrequentflag
	jmp	buzzercontroll80
;//	b0bts1	buzfrequentflag
	jmp	buzzercontroll90
;//	bclr	buzfrequentflag
;---
	notbit	ptbuzzer
	ret
;-----
buzzercontroll80:
	mov	a,buzzercnt
	b0bts0	fz
	jmp	buzzercontroll90	
	decms	buzzercnt
	jmp	buzzercontroll90
	bclr	buzzerflag
;-----
buzzercontroll90:
	ret
	
;******************************************************
;name:fancontroll
;function:用于控制风扇运转
;input:
;output:
;influece:
;*******************************************************
fancontroll:
	b0bts1	operateflag
	jmp	fancontroll90
;-----
	bset	ptfan
fancontroll90:
	ret
	
;******************************************************
;name:malfunction
;function:故障控制程序
;input:
;output:
;influece:
;*******************************************************
malfunction:
	b0bts1	malfunctionflag
	jmp	malfunction80
;-----
	b0bts0	startflag
	jmp	malfunction70
;------------------------
	bset	startflag
	bset	Igbtstartupflag
	bclr	ledfrequentflag
	bclr	loadfrequentflag
	bclr	buzfrequentflag
;-----
	bclr	ptcout		;close IGBT
	bclr	fpwm1out
	bclr	ftc1enb		;stop t1 count
	bclr	fp01ien
;-----
	bclr	t1sflag
	mov_	timer1s,#60
	mov_	timerbuf1,#2
	ret	
;------------------------
malfunction70:
	b0bts1	t1sflag
	jmp	malfunction90
;----
	bclr	t1sflag
	decms	timerbuf1
	jmp	malfunction90
;----
	mov_	timerbuf1,#2
	notbit	buzzerflag
	ret
;------------------------
malfunction80:
	b0bts1	startflag
	jmp	malfunction90
;-----
	bset	fp01ien
	bclr	startflag
	bclr	Igbtstartupflag
malfunction90:
	ret