Subscribe to download
Automated Farm V1.2 Atmosphere Management (IC10)

#by la Chaise 28-09-2025 (Farm Air Conditioner) define PressDef 75 define MinAirRatio 0.90 # 90% ############################################# define Filtrator -348054045 # Filtration define BackPresReg -1149857558 # Back Pressure Reg define PresReg 209854039 # Pressure Regulator define GasMixer 2104106366 # Gas Mixer define PipeAnalyse 435685051 # Pipe Analyzer define FlashingLight -1535893860 # Flashing light ############################################# sub r0 PressDef 10 # 75 - 10 = 65 sb BackPresReg Setting r0 # Set Def Pressure 65 add r0 PressDef 10 # 75 + 10 = 85 sb PresReg Setting r0 # Set Def Pressure 85 ############################################# alias inDoor d0 ############################################# alias rPressure r15 alias inOpen r14 alias rBackPres r13 alias ratioAir r12 ############################################# sb PipeAnalyse Lock 1 start: # GasMixer Management ############################# lb r0 PipeAnalyse On Sum breqz r0 4 lb r0 PipeAnalyse Pressure Sum slt r0 r0 100 sb GasMixer On r0 lb r0 PresReg On Sum sb PipeAnalyse On r0 yield ############################################# sb GasMixer On 0 # turn off GasMixer ################################################### # Switch Filtration ############################### l r0 db RatioVolatilesOutput l r1 db RatioNitrousOxideOutput add r0 r0 r1 l r1 db RatioPollutantOutput add r0 r0 r1 sgtz r0 r0 or r0 r0 rBackPres sb Filtrator Mode r0 # switch filtration ############################################ # d1 = inDoor management ################### move inOpen 0 # if inDoor Not Set = Close brdns inDoor 2 l inOpen inDoor Open # is inDoor open ############## lbs r0 Filtrator 0 Quantity Minimum lbs r1 Filtrator 1 Quantity Minimum mul r0 r0 r1 seqz r0 r0 or r0 r0 inOpen sb FlashingLight On r0 ############## breqz inOpen 4 sb BackPresReg On 0 sb PresReg On 0 j start # if inDoor open no pressure management ############################################ sleep 2 l rPressure db PressureInput ############## bnez rBackPres BackPresIs1 sle r0 rPressure PressDef sb PresReg On r0 add r0 PressDef 5 sgt r0 rPressure r0 # r0 = 75 + 5 sb BackPresReg On r0 jal checkAirRatio slt rBackPres ratioAir MinAirRatio ############## beqz rBackPres start BackPresIs1: sb PresReg On 0 sub r0 PressDef 10 sgt rBackPres rPressure r0 sb BackPresReg On rBackPres j start ################################################### checkAirRatio: move ratioAir 0 move r2 0 move r3 0 loop: #FT 1=O2,2=N,4=Co2,8=H2,16=X,64=N2O,1024=H2O lbs r0 Filtrator r3 FilterType Sum move r1 0 brne r0 1 2 # if not FilterType 1=Oxygen jump 2 lb r1 Filtrator RatioOxygenInput Sum brne r0 2 2 # if not FilterType 2=Nitrogen jump 2 lb r1 Filtrator RatioNitrogenInput Sum brne r0 4 2 # if not FilterType 4=CarbonDioxide j2 lb r1 Filtrator RatioCarbonDioxideInput Sum sne r2 r0 r2 #if other FilterType not the same select r1 r2 r1 0 #if same filtertype don't add r1 move r2 r0 #save filter type add ratioAir ratioAir r1 add r3 r3 1 ble r3 1 loop j ra