Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #To control an ship by hardsuit buttons like Pressure and Temperature
- #UP Filtration On Pressure>101
- #DOWN Filtration On Pressure<101
- #FORWARD Filtration Off Pressure>101
- #BACKWARD Filtration Off Pressure<101
- #LEFT Temperature>30
- #RIGHT Temperature<30
- #STOP Power On
- #Output for engines is -101 +101 for further sending converting to engine settings.
- alias Transmitter d0
- alias MemEngUpDown d1 #add mem
- alias MemEngNS d2 #add memory
- alias MemEngWE d3 #add memory
- alias Reserved d4
- alias StellarAnchor d5
- alias SuitPressure r1
- alias SuitTemperature r2
- alias SuitPower r3
- alias SuitFilter r4
- alias CurrentMode r5
- alias SaveHoris r6
- alias SaveVert r7
- l CurrentMode Transmitter Filtration
- s MemEngUpDown Setting 0 #start from total stop
- s MemEngNS Setting 0
- s MemEngWE Setting 0
- move SaveHoris 101 #center of suit pressure
- move SaveVert 101
- s Transmitter PressureSetting 101
- s Transmitter TemperatureSetting 303
- GetSuitValues:
- l SuitPressure Transmitter PressureSetting
- l SuitTemperature Transmitter TemperatureSetting
- l SuitPower Transmitter On
- l SuitFilter Transmitter Filtration
- SwitchAnchor:
- breqz SuitPower 10
- s StellarAnchor On 1 #stop all engines too
- s MemEngUpDown Setting 0
- s MemEngNS Setting 0
- s MemEngWE Setting 0
- move SaveHoris 101
- move SaveVert 101
- s Transmitter PressureSetting 101
- s Transmitter TemperatureSetting 303
- jr 2
- s StellarAnchor On 0
- CheckMode:
- beq SuitFilter 1 VertMode #Vert/Horis mode
- HorisMode:
- breq CurrentMode SuitFilter 3 #if mode same
- s Transmitter PressureSetting SaveHoris #suit prs
- jr 4 #after suit control corrected, skip next
- move SaveHoris SuitPressure
- sub SuitPressure SuitPressure 101 #+-101
- s MemEngNS Setting SuitPressure
- move CurrentMode SuitFilter
- jr 9 #jump across VertMode
- VertMode:
- breq CurrentMode SuitFilter 3 #if same mode
- s Transmitter PressureSetting SaveVert #suit prs
- jr 4 #after suit control corrected, skip next
- move SaveVert SuitPressure
- sub SuitPressure SuitPressure 101 #+-101
- s MemEngUpDown Setting SuitPressure
- move CurrentMode SuitFilter
- WEengs: #side engines
- sub SuitTemperature SuitTemperature 303 #+-30
- mul SuitTemperature SuitTemperature 3.36 #+-101
- round SuitTemperature SuitTemperature
- s MemEngWE Setting SuitTemperature
- yield
- j GetSuitValues
Add Comment
Please, Sign In to add comment
