furnace program

[pittom]

I am working on furnace project and like to see what people think. The furnace is gas with baseboard heat and two pumps (2 zones).When heat is called for the pumps starts and does not stop till room is up to temp and flame comes on only when water temps is low.so even if pump stops and starts the flame does not care it is only looking at water temp.
 
I will be using cell phone to control it with my own webpage
 
I seams to work this is what everything is used for


t1-kitchen temp
t2-living room temp

em1-power reset
em2-estop on
em3-t1 temp sensor bad

op1-manual kitchen heaton
op2-manual estop
op3-kitchen heater time start(timed to come on)
op4-living heat room time start(timed to come on)
op5-kitchen heat on/off(for pump)
op6-living room heat on/off(for pump)
op7-manual living room on

var1-kitchen temp set hi(max 75 min 50)
var2-living room temp set hi(max 75 min 50)
var3-kitchen for setting (ch)hour for heat on
var4-kitchen for setting (ch)hour for heat off
var7-living room for setting (ch)hour for heat on
var8-living room for setting (ch)hour for heat off

ram1-var1-40=var2
ram2-em2
ram3-em3
ram7-living room temp set low from this(sub var2 ram1 ram7)
ram8-kitchen temp set lo from this(SUB VAR1 RAM1 ram8)

This is program

START
SET OP1 0
SET OP2 0
SET OP3 0
set op4 0
SET OP5 0
SET OP6 0
SET VAR1 60
set var2 60
SET VAR3 4
SET VAR4 6
set var7 19
set var8 21
SET RAM1 40
SET RAM3 0

LOOP:
TSTEQ OP2 1
CALLSUB ESTOP
TSTEQ TS1 0
CALLSUB prob_bad
callsub resetrams
SUB VAR1 RAM1 ram8
sub var2 ram1 ram7
TSTEQ OP3 1
CALLSUB time_kit
tsteq op4 1
callsub time_liv
TSTEQ OP1 1
CALLSUB MANUAL_ON
tsteq op7 1
callsub living_on
TSTLT T1 600
SET OP5 1
TSTGT T1 630
SET OP5 0
tstlt t2 500
set op6 1
tstgt t2 530
set op6 0
GOTO LOOP
END

resetrams:
tsteq op2 0
set ram2 0
tsteq ts1 1
set ram3 0
tstlt var1 500
set var1 500
tstgt var1 750
set var1 750
tstlt var2 500
set var2 500
tstgt var2 750
set var2 750
ret

prob_bad:
tsteq ram3 0
email em3
set ram3 1
callsub estop
ret
ESTOP:
SET OP1 0
SET OP3 0
set op4 0
SET OP5 0
SET OP6 0
set op7 0
TSTEQ ram2 0
EMAIL EM2
SET ram2 1
GOTO LOOP
RET

time_kit:
TSTEQ CH VAR3
CALLSUB wake_up
RET

time_liv:
tsteq ch var7
callsub up_wake
ret

up_wake:
tsteq ch var8
ret
callsub living_on
ret

wake_up:
TSTEQ CH VAR4
RET

CALLSUB MANUAL_ON
RET

living_on:
tstlt t2 var2
set op6 1
tstgt t2 ram7
set op6 0
goto loop
ret

MANUAL_ON:
TSTLT T1 VAR1
SET OP5 1
TSTGT T1 ram8
SET OP5 0
GOTO LOOP
RET

I know someone will rip it apart but that is ok,this is why i like this form to learn
 
tom

 

[CAI_Support]

Do you want to also set a timer for how long the furnace can keep on?

 

[pittom]

that is what i do with vars3,4,7,8
 
then program checks op3   op4
 
 

var3-kitchen for setting (ch)hour for heat on
var4-kitchen for setting (ch)hour for heat off
var7-living room for setting (ch)hour for heat on
var8-living room fo

        TSTEQ OP3 1  
	CALLSUB time_kit
        tsteq op4 1
        callsub time_liv