Solar IC

# Dual Axis Solar Tracking
# Power Port on Solar Panel faces East(Sunrise)
# Solar Sensor faces East with port down.
# Will park sensors at dusk.
# Set Batch Writers input to the IC, and output
# to SolarPanel, one writer to Vertical, and
# the other writer to Horizontal.

alias solarsensor d0
alias batchvertical d1
alias batchhorizontal d2
loop:
l r3 d0 Activate
beq r3 1 start
s db Setting 0
s d1 On 1
yield
s d1 On 0
s db Setting 90
s d2 On 1
yield
s d2 On 0
yield
l r3 d0 Activate
breqz r3 -2
j loop

start:
jal vertical
jal horizontal
j loop

horizontal:
s d0 Mode 2
l r0 d0 SolarAngle
add r0 r0 86
s db Setting r0
s d2 On 1
yield
s d2 On 0
j ra

vertical:
s d0 Mode 1
l r1 d0 SolarAngle
#sub r1 r1 75
div r1 r1 1.8
s db Setting r1
s d1 On 1
yield
s d1 On 0
j ra