controll.asm

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

;******************************************************
;name:mncontroll
;function:用于整个工作状态控制
;input:
;output:
;influece:
;*******************************************************
mncontroll:
	jb1	stoprunflag,mncontroll90
	jb0	operateflag,mncontroll90
	call	buzzercontroll
	call	fancontroll
	call	malfunction
;-----
mncontroll90:
	ret
;******************************************************
;name:buzzercontroll
;function:用于控制蜂鸣器输出
;input:
;output:
;influece:
;*******************************************************
buzzercontroll:

buzzercontroll90:
	ret
	
;******************************************************
;name:fancontroll
;function:用于控制风扇运转
;input:
;output:
;influece:
;*******************************************************
fancontroll:
	b0bts1	operateflag
	jmp	fancontroll90
;-----
	bset	ptfan
fancontroll90:
	ret
	
;******************************************************
;name:malfunction
;function:故障控制程序
;input:
;output:
;influece:
;*******************************************************
malfunction:
	b0bts0	abnormalvoltfalg
	jmp	checkagaincvolt	 ;市电电压不正常报警
	b0bts0	nocookerflag
	jmp	checkagaincooker ;无锅报警
;-----
malfunction10:
	b0bts1	malfunctionflag
	jmp	malfunction80
	jmp	startbuzzer
;-----
checkagaincvolt:
	b0bts0	secondflag
	jmp	startbuzzer
	bset	secondflag
	bclr	ADCstartflag
	bclr	ADCendflag
	bset	volADCflag
	jmp	startbuzzer
;-----
checkagaincooker:
	b0bts0	secondflag
	jmp	startbuzzer
	bset	secondflag
	bclr	detecttimeflag
	bclr	checkcookerflag
	bclr	cyclestartflag
	bclr	onecycleflag
	jmp	startbuzzer
;-----
startbuzzer:
	b0bts0	startflag
	jmp	malfunction70
;------------------------
	bset	startflag
	bset	Igbtstartupflag
	bclr	ledfrequentflag
;-----
	b0bts1	nocookerflag
	call	mnstopheat
;-----
	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