#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