IC Mars Cooler

alias ActVent d0
alias Valves db
alias GasSensor d2
alias TempDial d3
alias TrgtTempLED d4
alias TempLED d5

alias ModeOn r15
alias Temp r14
alias TrgtTemp r13
alias MaxTT r12
alias MinTT r11

define Zero 273.15 #Kelvin to Celcius

s TempDial Mode 35

start:

l Temp GasSensor Temperature
l TrgtTemp TempDial Setting
l ModeOn ActVent On

sub Temp Temp Zero
add MaxTT TrgtTemp 5
sub MinTT TrgtTemp 5

s TempLED Setting Temp
s TrgtTempLED Setting TrgtTemp

beqz ModeOn TempHi
j TempLo



TempHi:
bge Temp MaxTT systemon
j systemoff

TempLo:
ble Temp MinTT systemoff
j systemon


systemon:
s ActVent On 1
s Valves Setting 1
j start

systemoff:
s ActVent On 0
s Valves Setting 0
j start