Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #Early Game Power Systems Control
- # by SemlerPDX Dec2025
- define Generators 813146305
- define Batteries -400115994
- define SolarPanels -539224550 #basic
- #define SolarPanels -1545574413 #heavy
- define DaylightSensors 1076425094
- # Threshold for "dark"
- define IrradianceMin 1
- define RelativeTolerance 0.067 # approx. +/-1
- define SensorOffset 90 # 0, 90, 180, 270
- define DawnVertical 165
- define DawnHorizontal 180
- define ChargeMin 0.10 # 10%
- define ChargeMax 0.50 # 50%
- define TopOfStack 2
- alias Counter r15
- push 0
- push 0
- begin:
- move sp TopOfStack
- brgtz Counter 2
- move Counter 5
- start:
- beqz sp begin
- yield
- #Gather Power Data
- lb r0 Batteries PowerPotential Maximum
- get r1 db 0
- brlt r0 r1 2
- put db 0 r0 #maximum historic production
- lb r0 Batteries PowerActual Maximum
- mul r1 r0 2
- sub r0 r0 r1 #Invert to Negative
- get r1 db 1
- brgt r0 r1 2
- put db 1 r0 #maximum historic power draw
- #Display
- sub Counter Counter 1
- and r0 Counter 1
- breqz r0 3
- pop r0
- s db Setting r0
- #Backup Power Toggle
- lb r0 Batteries Charge Average
- lb r1 Generators On Maximum
- select r1 r1 ChargeMax ChargeMin
- slt r0 r0 r1
- sb Generators On r0
- #Check Time of Day
- lb r0 DaylightSensors SolarIrradiance Maximum
- blt r0 IrradianceMin nightSleep
- #Follow Sun (in daytime only)
- lb r0 DaylightSensors Vertical Maximum
- lb r1 DaylightSensors Horizontal Maximum
- add r0 r0 SensorOffset
- add r1 r1 SensorOffset
- sb SolarPanels Vertical r0
- sb SolarPanels Horizontal r1
- j start
- nightSleep:
- lb r0 SolarPanels Vertical Maximum
- bap r0 DawnVertical RelativeTolerance start
- #Point array at dawn sun
- sb SolarPanels Vertical DawnVertical
- sb SolarPanels Horizontal DawnHorizontal
- j start
Advertisement
