defrost.inc

使用三菱芯片开发的空调程序,具有低压保护功能

		if [m_PipeSubval] >= 6
             		seb    b_defrostFlag
     		endif
		jmp	WaitFor30Sec
        endif
	if [M_CompSumMin] > 60 && [M_CompSumMin] <= 70
		if [m_PipeSubval] >= 5
             		seb    b_defrostFlag
     		endif
		jmp	WaitFor30Sec
        endif
	if [M_CompSumMin] > 70 && [M_CompSumMin] <= 120
		if [m_PipeSubval] >= 4
             		seb    b_defrostFlag
     		endif
		jmp	WaitFor30Sec
        endif
	if [M_CompSumMin] >120
		if [m_PipeSubval] >= 3
             		seb    b_defrostFlag
     		endif
		jmp	WaitFor30Sec
        endif
   endif
	rts

;******************************************
FUN_InDefrostC:
        if    [CompOnminute] >= 16
                 [b_CompOnminute16] = 1
        endif
	if    [b_CompOnminute16] == 1
        	if  [M_CompSumMin] >= 40 && [CompOnminute] >= 5 && [mFanChangetime] >= 180 && [m_PipeSubval] >=3 && [m_Tmaxmid]<=15 && [b_stopoutfan] == 0;20050115
             		LDM     #00H,m_defrostCon
                        SEB     ice_flag
                        seb	b_defrostFlag
                        [b_CompOnminute16] = 0
                endif
       	endif
       	RTS

;****************************************************************************
;defrost act and out defrost judge
;called in main(heat mode)
;****************************************************************************

Fun_Defrost:
	if  [CompOnminute] < 5			;2004.5.24 change
 		[m_Tmax0]	= 0FFH
                [m_Tmax1]	= 0FFH
                [m_Tmax2]	= 0FFH
                [m_Tmax3]	= 0FFH
                [m_Tmax4]	= 0FFH
                [m_Tmax5]	= 0FFH
                [m_Tmax6]	= 0FFH
                [m_Tmax7]	= 0FFH
                ;[m_Tmin] 	= 0FFH          ;20050924
		[m_TmaxFirst]	= 00H		;2003.12.9
                ldm     #00H,m_pipeLow38Sec
                if  [CaseC2s] < 2
                    clb    	ice_flag
                endif
        endif
        if [ice_flag] == 0
                RTS
        endif

Fun_DefrostAct:
	if [Heat] == 1
		clb	Heat
		seb	Comp
		seb	Out_FanHigh
		ldm	#00H,heatoffsecond
	else
		if [heatoffsecond] >= 10
			if [Comp] == 0				;add in force defrost
				if [CompStopMinute] >= 3
					seb	Comp
				endif
			endif

			clb	Out_FanHigh
			clb	Four_valve
			clb	L_fan
			clb	M_fan
			clb	H_fan
			;clb	bRoomFanOn
		endif
	endif



	if [m_pipeupsec] >= 240 || [m_TpNodownMin] >= 5	;modified by chenchong 1202
		ldm	#00h,m_defrostCon
		clb	ice_flag
		seb	Four_valve
		jmp	Fun_DefrostOver
	else
		if [m_defrostCon] <= 2
			if [M_DefrostMin] >= 10
				clb	ice_flag
				seb	Four_valve
				seb	b_FirstInHeat
				if [M_CompSumMin] <= 70		;45, 2004.5.22
					inc	m_defrostCon
				else
					ldm #00h,m_defrostCon
				endif
				jmp	Fun_DefrostOver
			endif
		else
			if [M_CompSumMin] <= 80			;55, 2004.5.22
				if [M_DefrostMin] >= 12
					ldm	#00h,m_defrostCon
					clb	ice_flag
					seb	Four_valve
					jmp	Fun_DefrostOver
				endif
			else
				if [M_DefrostMin] >= 10
					ldm 	#00h,m_defrostCon
					clb	ice_flag
					seb	Four_valve
					jmp	Fun_DefrostOver
				endif
			endif
		endif
	endif
	rts

Fun_DefrostOver:
	[CompOnminute]		= 00H
	[CompOnSec]             = 00H
       	[M_DefrostMin]		= 00H
       	[CompRunSecond]		= 00H
       	[M_CompSumMin]		= 00H
       	[m_InDefrostSec]	= 00H
       	[m_TpNodownSec]		= 00H
       	[m_TpNodownMin]		= 00H
       	[m_pipeLow38Sec]	= 00H
       	[m_PipeUp20Sec]		= 00H
       	[m_pipeupsec]		= 00H
       	[m_Tmax]		= 00H
       	[m_TmaxFirst]		= 00H
       	[m_TmaxmidFirst]=0
        [m_Tmaxmid]=0
        [first43d_flag] = 0
       	[Outdefrost_flag] = 1
       	[CaseC2s] = 00h
       	CLB	b_defrostFlag
       	CLB  	b_Pipeupflag
       	CLB  	b_savecoolflag
       	[Ltemp5D_flag] = 0    ;20050109
        [runfan_flag] = 0;
        [min3_flag] = 0
        [nofan3min] = 00h     ;20050109
        [Lfanrunmin1] = 00h
        [Lfanrunmin] = 00h    ;20050109
        [Lfanrun] = 0
        [M_RoomTemp1] = [M_RoomTemp]             ;20050721
        [b_CompOnminute16] = 0
        [Lfanrun5] = 0
        [F_41D] = 0



	;[mDefrostFlag1]	= 0		;2004.5.26 add
       	rts

;**********************************************************************
;in or out defrost timer count  (timer)
;called in timer, 1s call 1 time;  if [ice_flag] == 1 && [POutFan] == 0
;**********************************************************************

FUN_Defrosttimer:
        if [Outdefrost_flag] == 1
		   if [NOcaseC38minS] <= [SECONDUP]
                        [NOcaseC38minS] = [NOcaseC38minS] + 1
                   endif
        endif
        if [NOcaseC38minS] >= [SECONDUP]		;60/3
		   [NOcaseC38minS] = 00h
		   if  [NOcaseC38min] <= 38
		          [NOcaseC38min] = [NOcaseC38min] + 1
		   endif
	endif
	if  [NOcaseC38min] >= 38
	       [Outdefrost_flag] = 00h
	       [NOcaseC38min] = 00h                      ;20050109
	endif
	lif [run_mode] == RUN_HEAT || [m_AutoMode] == RUN_HEAT

		jsr Con2SecondTimer				;2004.5.29

		if [b_defrostFlag] == 1
			if  [m_Tpipetempmid] < 45                ;bi 45d di 30s jishi
                                if  [m_pipeLow38Sec] < 40
                       			[m_pipeLow38Sec] = [m_pipeLow38Sec] + [ADDSECOND]
                                endif
			else
               			[m_pipeLow38Sec] = 00H
			endif
		else
			[m_pipeLow38Sec] = 00H
		endif

		if [ice_flag] == 1  && [Comp] == 1;  && [Out_FanHigh] == 0 	;2003.12.6
			jsr	OutDefrostCount
		else
			ldm	#00h,m_Defrostsec
			ldm	#00h,M_DefrostMin
			ldm	#00h,m_InDefrostSec
			ldm	#00h,m_pipeupsec
			ldm	#00h,m_TpNodownSec
			[m_TpNodownMin] = 00h
		endif
		if   [Comp]==1
                     if [port0] & RoomFAN_Enable != 0
                            if [Outdefrost_flag] == 0
                                  if  [b_onepulltwo] == 1     ;2006-1-3 13:42
                                         if  [m_Tpipetemp] <= [M_RoomTemp]
                                            if  [CaseC2s] <= 2
                                                 [CaseC2s] = [CaseC2s] + 1
                                            endif
                                         else
                                           if  [CaseC2s] < 2
                                               [CaseC2s] = 00h
                                           endif
                                         endif
                                  endif
                            endif
                     endif
                endif
	endif
	rts
;--------------------------------------------------------
Con2SecondTimer:
	if   [bFanchangeflag] ==1 && [mFanChangetime]<180  ;add by chenchong for 温度延时3min随风档变化
	       [mFanChangetime]=[mFanChangetime]+[ADDSECOND]
	else
	     [bFanchangeflag] =0
	endif
	RTS
;------------------------------------------------------
OutDefrostCount:
	inc	m_Defrostsec
	if [m_Defrostsec] >= [SECONDUP]		;60
		ldm	#00h,m_Defrostsec
		inc	M_DefrostMin
	endif	
	if [m_InDefrostSec] >= 180 && [b_FirstInHeat] == 1     ;&& [M_PipeTemp] > 10
		[mNowBuffer]	= [m_Tmin] + 2         ;AD值比较
		if [M_PipeTemp] > [mNowBuffer]
			if [m_PipeUp20Sec] < 40
;				[m_PipeUp20Sec] = [m_PipeUp20Sec] +1
				[m_PipeUp20Sec] = [m_PipeUp20Sec] + [ADDSECOND]
			endif
			if [m_PipeUp20Sec] >= 30
				seb	b_Pipeupflag   ;lian xu 30s nei guan wen bi t1 gao
			else
				clb	b_Pipeupflag
			endif
		else
			[m_PipeUp20Sec] = 00h
		endif
		if [b_Pipeupflag] == 1
			if [m_pipeupsec] <= 250
				[m_pipeupsec] = [m_pipeupsec] + [ADDSECOND]
			endif
		else
			ldm	#00h,m_pipeupsec
		endif
		if [M_PipeTemp] >=[m_Tmin]
			[m_TpNodownSec] = [m_TpNodownSec] + [ADDSECOND]
			if  [m_TpNodownSec] >= [SECONDUP]		;60
		                 ldm	#00h,m_TpNodownSec
		                 [m_TpNodownMin] = [m_TpNodownMin] + 1
	                endif
		else
			ldm	#00h,m_TpNodownSec
			[m_TpNodownMin] = 00h
		endif
	endif
	if [m_InDefrostSec] < 180
;                inc     m_InDefrostSec
		[m_InDefrostSec] = [m_InDefrostSec] + [ADDSECOND]
		[m_Tmin] 	= 0FFH          ;20050924
        endif
	rts