Bet_elgeuse

AdvancedGasMixerFuelControl

Feb 16th, 2020
1,342
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1. alias GasMixer d0
  2. alias TankFuel d1
  3. alias TankO2 d2
  4. alias TankH d3
  5. alias Conditioner d4
  6. s GasMixer Lock 1
  7. s Conditioner On 1
  8. s Conditioner Lock 1
  9. define maxT 293.15
  10. alias SetPressure r13
  11. move SetPressure 1000 #SetPressureFuel
  12. alias TempFuel r14
  13. move TempFuel 243.15 #SetTempFuel maxTemp 303.15
  14. alias SetGasMixer r15
  15. move SetGasMixer 66
  16.  
  17. main:
  18. l r2 TankFuel Temperature
  19. sgt r2 r2 TempFuel
  20. s Conditioner Open r2
  21. l r0 TankO2 Temperature
  22. slt r0 r0 maxT
  23. l r1 TankH Temperature
  24. slt r1 r1 maxT
  25. add r0 r0 r1
  26. beq r0 2 mixer
  27. j main
  28.  
  29. mixer:
  30. s GasMixer Setting SetGasMixer
  31. l r2 TankFuel Pressure
  32. slt r2 r2 SetPressure
  33. s GasMixer On r2
  34. l r0 TankFuel RatioVolatiles
  35. slt r0 r0 0.66
  36. beq r0 1 SetVolatiles
  37. l r1 TankFuel RatioOxygen
  38. slt r1 r1 0.34
  39. beq r1 1 SetOxygen
  40. j main
  41.  
  42. SetVolatiles:
  43. l r0 TankFuel RatioVolatiles
  44. bgt r0 0.655 main
  45. add SetGasMixer SetGasMixer 1
  46. s GasMixer Setting SetGasMixer
  47. l r0 GasMixer On
  48. beq r0 0 main
  49. yield
  50. j SetVolatiles
  51.  
  52. SetOxygen:
  53. l r0 TankFuel RatioOxygen
  54. bgt r0 0.335 main
  55. sub SetGasMixer SetGasMixer 1
  56. s GasMixer Setting SetGasMixer
  57. l r0 GasMixer On
  58. beq r0 0 main
  59. yield
  60. j SetOxygen
Advertisement
Add Comment
Please, Sign In to add comment