alias atmosphere d0
alias inpump d1
alias roomsensor d2
alias outpump d3
alias displaytemp d4
alias displaypressure d5

alias externaltemperature r9
alias internaltemperature r8
alias internalpressure r7

start:

l externaltemperature atmosphere  Temperature
l internaltemperature roomsensor Temperature
l internalpressure roomsensor Pressure

bdns displaytemp notempdisplay
s displaytemp Setting internaltemperature
notempdisplay:
bdns displaypressure nopressuredisplay
s displaypressure Setting internalpressure
nopressuredisplay:

sub r0 internaltemperature externaltemperature
sgt r0 r0 5 #if the room is 5 degrees warme
slt r1 internalpressure 120 # don't overpressurize
and r0 r0 r1
slt r1 internalpressure 70
or r0 r0 r1

s inpump Mode 1
s inpump On r0

sgt r0 internalpressure 100

s outpump Mode 1
s outpump On r0


yield
j start