Alliance Power and Light - Exapunks


Here is my solution for Alliance Power and Light (40, 28, 40)

GRAB 300
COPY F X
REPL GO
COPY F X
DROP
MARK GO
LINK 800
COPY 800 T
REPL SPLIT
COPY 802 T
REPL SPLIT
MARK CHECK
HOST T
TEST T = X
TJMP SHUTDOWN
LINK 801
JUMP CHECK
MARK SPLIT
LINK T
REPL SPLIT
JUMP CHECK
HALT
MARK SHUTDOWN
@REP 4
NOOP
@END
COPY 0 #POWR

The NOOPs at the end are one (poor) way to deal with synchronization between the two exa that will shutdown the power.