📄 action1.inc
字号:
clb L_fan
clb M_fan
seb H_fan
[fanspeed] = 5
[firstautofan_f] = 0
[mRoomFanoldauto] = 0
break
default
LDM #00h,M_RoomFan
break
ends
endif
else
clb M_fan
clb H_fan
seb L_fan
[fanspeed] = 9
endif
RTS
Fun_RoomFanspeed:
if [ir_sleep] == 1
[fanspeed] = 9
else
if [irStrongMan] == 1 && [b_hrp] == 1
[fanspeed] = 5
else
switch [M_RoomFan]
case 00
[fanspeed] = 7
break
case 10H
[fanspeed] = 9
break
case 20H
[fanspeed] = 7
break
case 30H
[fanspeed] = 5
break
default
[fanspeed] = 7
break
ends
endif
endif
RTS
;*****************************************************
; Room Fan Auto_mode
;
;******************************************************
Fun_AutoFan:
[m_HighTemp]=[settempval]+3
[m_HighTempcool]=[settempval]+2
[m_LowTemp]=[settempval]-3
[m_MidTemp] = [settempval]+1
if [run_mode] == RUN_AUTO
[m_Fanval] = [m_AutoMode]
else
[m_Fanval] = [run_mode]
endif
switch [m_Fanval]
case RUN_FAN ; Fan Mode Auto Room fan
if [M_RoomTempsel] <= [settempval]
[M_AutoFan] = 20h
endif
if [M_RoomTempsel] >= [m_HighTempcool]
[M_AutoFan] = 80h
endif
if [M_RoomTempsel] > [settempval] && [M_RoomTempsel] < [m_HighTempcool]
[M_AutoFan] = 40h
endif
break
case RUN_DRY
[M_AutoFan] = 20h
break
case RUN_COOL ; Cool Mode Auto Room fan
if [M_RoomTempsel] <= [settempval]
[M_AutoFan] = 20h
endif
if [M_RoomTempsel] > [m_HighTempcool]
[M_AutoFan] = 80h
endif
if [M_RoomTempsel] > [settempval] && [M_RoomTempsel] <= [m_HighTempcool]
[M_AutoFan] = 40h
endif
break
case RUN_HEAT ; Heat Mode Auto Room Fan
if [M_RoomTempsel] > [m_HighTemp]
[M_AutoFan] = 20h
endif
if [M_RoomTempsel] < [m_MidTemp]
[M_AutoFan] = 80h
endif
if [M_RoomTempsel] <= [m_HighTemp] && [M_RoomTempsel] >= [m_MidTemp]
[M_AutoFan] = 40h
endif
break
default
break
ends
AutoFan_act:
switch [M_AutoFan]
case 20h
clb M_fan
clb H_fan
seb L_fan
break
case 40h
clb L_fan
clb H_fan
seb M_fan
break
case 80h
clb L_fan
clb M_fan
seb H_fan
break
default
break
ends
RTS
;********************** Fun_FanMode ******************
; Void Fun_FanMode (Fun_mode)
;******************************************************
Fun_FanMode:
jsr Fun_RoomFan
ldm #00h,re_mode
CLB b_firstdry
clb Heat
if [CompStopSecond] >= 120
clb Four_valve
endif
clb Comp
clb Out_FanHigh
clb Htemp_flag
clb b_stopoutfan
clb b_savecoolflag
seb Ltemp_flag
[Ltemp5D_flag] = 0
[runfan_flag] = 0
[first43d_flag] = 0
[min3_flag] = 0
[Lfanrun] = 0
[CaseC2s] = 0
[Lfanrun5] = 0
[F_41D] = 0
[au_mode2] = RUN_FAN ;2005-11-15 16:30
LDM #00H,M_CompSumMin
LDM #00H,m_pipeLow38Sec
LDM #00h,savepowertime
CLB b_FirstInHeat
jsr Outheatclearflagsub
CLB ice_flag ;Add 99.12.29
CLb recool_flag
LDM #00H,coolTemp
CLB b_defrostFlag ;h
[m_TmaxFirst] = 00H
LDM #00H,m_Tmax
[m_TmaxmidFirst] = 0 ;2005-11-16 16:40
[m_Tmaxmid] = 0 ;2005-11-16 16:40
[m_PipeUp20Sec] = 00H
rts
;*************************************************************
;over current have been mask in main
;*************************************************************
CompItest:
if [mCompCurr] >= [m_MaxCurrAD]
seb Comp_Iflag
if [Comp_Iflag] == 1 && [M_OCSecond] >= 15
if [Comp] ==1
if [b_defrostFlag] == 0 && [ice_flag] == 0 ; v2.1 2003.7.8
clb Comp
inc M_LVCCount
SEB b_CompStop
if [M_LVCCount] >= 3
SEB b_LVCDispflag
[m_dispCount] = 00h
CLB ir1_onoff
CLB ir_onoff
JSR FunExec_KeyPower
endif
endif
clb Out_FanHigh
endif
endif
else
clb Comp_Iflag
ldm #00h,M_OCSecond
endif
out_Current:
rts
;*************************************************************
; Fun_CoolMode Program
; If M_RoomTemp > Tset+2 Comp = 1 Out_fan = Out_FanHIgh
; If M_RoomTemp < Tset-2 Comp = 0 Out_fan = STOP
; If Tset-2 <= M_RoomTemp <= Tset+2
; Comp (Out_FanHIgh) Run 6min ,Stop 4Min
;*************************************************************
Fun_DryMode:
JSR Fun_DryFan
if [CompStopSecond] >= 120
clb Four_valve
endif
clb Heat
ldm #00h,re_mode
seb Ltemp_flag
[Ltemp5D_flag] = 0
[runfan_flag] = 0
[first43d_flag] = 0
[min3_flag] = 0
[Lfanrun] = 0
[CaseC2s] = 0
[Lfanrun5] = 0
[F_41D] = 0
jsr Outheatclearflagsub
CLB ice_flag ;Add 99.12.29
CLB b_defrostFlag ;h
clb Htemp_flag
clb b_stopoutfan
LDM #00H,M_CompSumMin
LDM #00H,m_pipeLow38Sec
LDM #00h,savepowertime
clb b_savecoolflag
CLB b_FirstInHeat
;LDM #00H,DefrostSec
[au_mode2] = RUN_DRY ;2005-11-15 16:30
[m_TmaxFirst] = 00H
LDM #00H,m_Tmax
[m_TmaxmidFirst] = 0 ;2005-11-16 16:40
[m_Tmaxmid] = 0 ;2005-11-16 16:40
[m_PipeUp20Sec] = 00H
if [oldmode] == RUN_HEAT && [modetime] < 180
if [Comp] == 1
seb b_CompStop
clb Comp
ENDIF
clb Out_FanHigh
seb trun_mode
else
clb trun_mode
endif
if [CompOnminute] >= [m_CoolMin] || [recool_flag]==1
jsr safe_cool
endif
;if [b_hrp] == 1 && [ir1StrongMan] == 1 && [ir1_sleep] == 0 ;20050805
;[settempval] = 16
;endif
IF [settempval] <= 0FCH
[Set_TempUp] = [settempval]+2
else
[Set_TempUp] = 0FFH
ENDIF
if [settempval] >= 2
[Set_TempDown] = [settempval] - 2
else
[Set_TempDown] = 00H
endif
if [M_RoomTempsel] > [Set_TempUp]
CLB b_firstdry
if [recool_flag]== 0
jsr Fun_CompStart
endif
endif
if [M_RoomTempsel] < [Set_TempDown]
CLB b_firstdry
jsr Fun_CompStop
endif
if [M_RoomTempsel] <= [Set_TempUp] && [M_RoomTempsel] >= [Set_TempDown]
if [recool_flag]==0 && [Comp] == 0
If [CompStopMinute] >= 4
jsr Fun_CompStart
endif
endif
if [Comp] == 1 && [CompOnminute] >= 6
jsr Fun_CompStop
endif
SEB b_firstdry
endif
if [Comp] == 1
SEB Out_FanHigh
else
CLB Out_FanHigh
endif
RTS
Fun_DryFan:
Clb M_fan
CLB H_fan
SEB L_fan
[M_RoomFan] = 10H ; Add 2000.5.31
[firstautofan_f] = 0 ;2005-10-29 18:48
[mRoomFanoldauto] = 0 ;2005-10-29 18:48
RTS
Fun_StopFan:
clb M_fan
clb H_fan
CLB L_fan
RTS
;*************************************************************
Fun_CompStop:
if [CompOnminute] >= 6
if [Comp] == 1
clb Comp
SEB b_CompStop ;it is no use by my determinate
;[Ltemp5D_flag] = 0
;[runfan_flag] = 0
;[min3_flag] = 0
;[Lfanrun] = 0
;[CaseC2s] = 0
;[Lfanrun5] = 0
endif
endif
rts
;********************************************************************
; Fun_CoolMode:
; [M_RoomTemp] >= [settempval]+1 Comp=1 Out_Fan Room_Fan On
; [M_RoomTemp] <= [settempval]-1 Comp Out_Fan STOP Room_Fan On
; [M_RoomTemp] = [settempval] return
;********************************************************************
Fun_CoolMode:
if [CompStopSecond] >= 120
clb Four_valve
endif
clb Heat
ldm #00h,re_mode
CLB b_firstdry
jsr Outheatclearflagsub
CLB ice_flag ;Add 99.12.29
CLB b_defrostFlag ;h
clb Htemp_flag
clb b_stopoutfan
; LDM #00H,M_CompSumMin
; LDM #00H,m_pipeLow38Sec
[au_mode2] = RUN_COOL ;2005-11-15 16:31
clb b_savecoolflag
; [m_TmaxFirst] = 00H
; [m_PipeUp20Sec] = 00H
seb Ltemp_flag
[Ltemp5D_flag] = 0
[runfan_flag] = 0
[first43d_flag] = 0
[min3_flag] = 0
[Lfanrun] = 0
[CaseC2s] = 0
[Lfanrun5] = 0
[F_41D] = 0
CLB b_FirstInHeat
if [irsavePower] == 1
if [savepowertime] <= 5aH
jsr Fun_RoomFan
else
clb M_fan
clb H_fan
clb L_fan
endif
else
jsr Fun_RoomFan
endif
if [CompOnminute] >= [m_CoolMin] || [recool_flag]==1
jsr safe_cool
endif
if [modetime] < 180 && [oldmode] == RUN_HEAT
clb Comp
SEB b_CompStop
clb Out_FanHigh
seb trun_mode
else
clb trun_mode
endif
if [b_hrp] == 1 && [ir1StrongMan] == 1 && [ir1_sleep] == 0 ;20050805
[settempval] = 16
endif
if [M_RoomTempsel] > [settempval] && [recool_flag]==0 && [trun_mode]==0
jsr Fun_CompStart
endif
if [M_RoomTempsel] < [settempval] ;|| [m_RoomADval] <= [Tpot14]
jsr Fun_CompStop
endif
;**********************************************************
ldm #00h,m_pipeLow38Sec
[m_TmaxmidFirst] = 0 ;2005-11-16 16:40
[m_Tmaxmid] = 0 ;2005-11-16 16:40
[m_TmaxFirst] = 0 ;2005-11-16 16:42
LDM #00H,m_Tmax ;2002.9.17
[m_Tmax0]= 0FFH
[m_Tmax1]= 0FFH
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -