TemperatureControl.ic10

# Temperature Control
# Automatically opens/closes heat and cooling valves
# to try and reach the target temperature
# intake pump and target temperature are optional

alias targetPipe d0
alias coolValve d1
alias heatValve d2
alias intakePump d3
alias targetTempMemory d4

define MAXPRESSURE 10000
define DEFAULTTEMP 300
define TEMPTOLERANCE 2

alias vTargetTemp r15
alias vPressure r14
alias vLowTemp r13
alias vHighTemp r12

start:
#check Pressure
bdseal intakePump pressureCheck

#check Temp Setting
move vTargetTemp DEFAULTTEMP
bdseal targetTempMemory memoryCheck
s db Setting vTargetTemp
add vHighTemp vTargetTemp TEMPTOLERANCE
sub vLowTemp vTargetTemp TEMPTOLERANCE

#check cold temp
l r0 targetPipe Temperature
sgt r0 r0 vHighTemp
brdns coolValve 2
s coolValve On r0

#check hot temp
l r0 targetPipe Temperature
slt r0 r0 vLowTemp
brdns heatValve 2
s heatValve On r0

yield
j start

pressureCheck:
#PipePressure
l vPressure targetPipe Pressure
slt r0 vPressure MAXPRESSURE
s intakePump On r0
j ra

memoryCheck:
l vTargetTemp targetTempMemory Setting
add vTargetTemp vTargetTemp 273
j ra