app.asm

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

;********************************************************
;  PROJECT NAME : nimh charger				*
;  Author	: borg					*
;  VERSION	: V0.0			      		*
;  BODY		: SN8P2704a				*
;  COMPILER	: 1.99N					*
;  function	:					*
;  input	:					*
;  output	: tempvolt1_l, tempvolt1_h		*
;		  tempvolt2_l, tempvolt2_h		*
;  use register	: data1, data2, tempvolt1_l, tempvolt1_h*
;		  tempvolt2_l, tempvolt2_h		*
;  use flag	: dtemp1_f, dtemp2_f			*
;  run cycles	: 					*
; *******************************************************
mnapp:
 	b0bts1	power_f
	jmp	mnapp80
	jmp	mnapp10
mnapp10:
	clr	counter1s
	b0bts0	vol_warning_f		;equ	flag2.0
	jmp	mnapp101
	b0bts0	igbt_twarning_f		;equ	flag2.1
	jmp	mnapp101
	b0bts0	igbt_vwarning_f		;equ	flag2.2
	jmp	mnapp101
	b0bts0	pan_warning_f		;equ	flag2.3
	jmp	mnapp101
	b0bts0	cur_warning_f		;equ	flag2.4
	jmp	mnapp101
	jmp	mnapp102
mnapp101:
	jmp	mnapp70
mnapp102:
	jmp	mnapp20
mnapp20:
	bclr	warning_f
	bclr	warning_over_f
		
	b0bts1	nopan_f
	jmp	mnapp201
	jmp	mnapp202
mnapp201:
	bclr	t0_1min_f
	clr	t0count2
	bclr	pan_buzzer_f
	mov	a,#1
	mov	buzzer_wcount,a
	jmp	mnapp30
mnapp202:
	b0bts0	pan_buzzer_f
	jmp	mnapp203
	bset	pan_buzzer_f
	
	bset	buzzer_active_f
	bset	buzzer_active_wf
	mov	a,#121
	mov	buzzer_wcount,a
	jmp	mnapp30
mnapp203:
	b0bts1	t0_1min_f
	jmp	mnapp30
	bclr	t0_1min_f
	
	bclr	nopan_f
	bclr	power_f
	mov	a,#1
	mov	buzzer_wcount,a
	jmp	mnapp80
mnapp30:
	b0bts1	timer_out_f
	jmp	mnapp40
	bclr	timer_out_f
	bclr	power_f
	jmp	mnapp80
mnapp40:
	mov	a,#0ffh
	mov	dam,a
	jmp	mnapp50
mnapp50:
	call	ledsub
	jmp	mnapp90

mnapp70:
	b0bts1	warning_f
	jmp	mnapp701
	jmp	mnapp702
mnapp701:
	bset	warning_f
	bset	buzzer_f
	bset	buzzer_active_f
	bset	buzzer_active_wf
	mov	a,#61
	mov	buzzer_count,a
	jmp	mnapp90
mnapp702:
	b0bts1	warning_over_f
	jmp	mnapp90
	bclr	warning_over_f
	bclr	warning_f
	bclr	power_f
	jmp	mnapp80
	
mnapp80:
	bclr	outctrl_p
	mov	a,#80h
	mov	dam,a

	bclr	first_f
	bclr	warning_f
	bclr	vol_warning_f
	bclr	igbt_twarning_f
	bclr	igbt_vwarning_f
	bclr	pan_warning_f
	bclr	cur_warning_f
	bclr	timer_f
	bclr	timer_out_f

mnapp801:
	incms	counter1s
	jmp	mnapp802
	
	bclr	buzzer_p
	bclr	buzzer_f
	bclr	pan_buzzer_f

	bclr	buzzer_active_f
	bclr	buzzer_active_lf
	bclr	buzzer_active_sf
	bclr	buzzer_active_wf
	bclr	buzzer_en_lf
	bclr	buzzer_en_sf
	bclr	buzzer_en_wf
	
mnapp802:
	clr	rcounter
	clr	fcounter
	clr	TCOUNTER
	clr	timer_MINUTE
	mov	a,#00h
	mov	p1,a
	mov	a,#00001111b
	or	p5,a
;10.6 add power initlize
	MOV	A,#0bfh
	mov	power_set_l,a
	mov	a,#01ch
	mov	power_set_h,a
	
	jmp	mnapp90
mnapp90:
	ret