igbt.asm

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

;********************************************************
;  PROJECT NAME : nimh charger				*
;  Author	: borg					*
;  VERSION	: V0.0			      		*
;  BODY		: SN8P2704a				*
;  COMPILER	: 1.99N					*
;  function	:					*
;  input	:					*
;  output	: igbtvolt1_l, igbtvolt1_h		*
;		  igbtvolt2_l, igbtvolt2_h		*
;  use register	: data1, data2, igbtvolt1_l, igbtvolt1_h*
;		  igbtvolt2_l, igbtvolt2_h		*
;  use flag	: digbt1_f, digbt2_f			*
;  run cycles	: 					*
; *******************************************************

mnigbt:
	b0bts1	igbt_tturn_f
	jmp	mnigbt50
/*
	bclr	voltage_turn_f
	bclr	current_turn_f
	bclr	pan_turn_f
	bclr	igbt_tturn_f
	bset	igbt_vturn_f
*/	
	mov	a,#10010010b
	mov	adm,a
	mov	a,#11111011b
	mov	p4con,a
	
	call	adcchange
	
	mov	a,data1
	mov	igbt_temp_l,a
	mov	a,data2
	mov	igbt_temp_h,a
	
mnigbt10:
	mov	a,igbt_temp_l
	sub	a,igbt_tconst_l
	mov	a,igbt_temp_h
	sbc	a,igbt_tconst_h
	
	b0bts1	fc
	jmp	mnigbt101
	jmp	mnigbt102

mnigbt101:
	bclr	igbt_twarning_f
	jmp	mnigbt50
mnigbt102:
	bset	igbt_twarning_f
	jmp	mnigbt90
	

mnigbt50:
	b0bts1	igbt_vturn_f
	jmp	mnigbt90
/*
	bset	voltage_turn_f
	bclr	current_turn_f
	bclr	pan_turn_f
	bclr	igbt_tturn_f
	bclr	igbt_vturn_f
*/
	mov	a,#10010100b
	mov	adm,a
	mov	a,#11101111b
	mov	p4con,a
	
	call	adcchange
	
	mov	a,data1
	mov	igbt_vol_l,a
	mov	a,data2
	mov	igbt_vol_h,a
	
mnigbt501:
	mov	a,igbt_vol_l
	sub	a,igbt_vconst_l
	mov	a,igbt_vol_h
	sbc	a,igbt_vconst_h
	
	b0bts1	fc
	jmp	mnigbt502
	jmp	mnigbt503
mnigbt502:
	bclr	igbt_vwarning_f
	jmp	mnigbt90
mnigbt503:
	bset	igbt_vwarning_f
	jmp	mnigbt90
mnigbt90:
	ret