Stationeers IC10 Cooling System on Mars

alias TankO2 d0
alias TankCool d1
alias AirVent d2
alias GasSensor d3

j loop
outward:
yield
s AirVent Mode 0
l r2 TankCool Pressure
s AirVent On r2
bgtz r2 outward
j loop
inward:
yield
s AirVent Mode 1
l r2 TankCool Pressure
slt r2 r2 1000
s AirVent On r2
bgtz r2 inward
j loop

loop:
yield
# temperature outside
l r0 GasSensor Temperature
sub r0 r0 273.15
ceil r0 r0

# temperature in CoolTank
l r1 TankCool Temperature
sub r1 r1 273.15
ceil r1 r1
# if CoolTank temperature > 0 r1 = 1
sgtz r1 r1
# pressure in CoolTank
l r2 TankCool Pressure
floor r2 r2
#if CoolTankPressure > 1000pa r2 = 1
sgt r2 r2 1000
and r3 r1 r2
bnez r3 outward

sle r3 r0 -50
seqz r2 r2
and r3 r2 r3
bnez r3 inward

j loop