25-alliance-power-and-light.asm

;XA

GRAB 300
LINK 800

MARK ROWSEEK
HOST T
TEST T = F
FJMP NEXTCHK
REPL KILLER
MARK NEXTCHK
HOST T
TEST T = F
FJMP DONECHK
REPL KILLER
MARK DONECHK
SEEK -9999
COPY F T
REPL SPAWNL
COPY F T
REPL SPAWNL
SEEK -9999
COPY F T
REPL SPAWNR
COPY F T
REPL SPAWNR

TEST X = 3
FJMP NEXTROW
WIPE
HALT
MARK NEXTROW
LINK 801
SEEK -9999
ADDI X 1 X
JUMP ROWSEEK

MARK SPAWNL
COPY T X
MARK LOOPL
LINK 800
HOST T
TEST T = X
FJMP NEXTCHKL
REPL KILLER
MARK NEXTCHKL
JUMP LOOPL

MARK SPAWNR
COPY T X
MARK LOOPR
LINK 802
HOST T
TEST T = X
FJMP NEXTCHKR
REPL KILLER
MARK NEXTCHKR
JUMP LOOPR

MARK KILLER
COPY 50 X
MARK WAIT
SUBI X 1 X
TEST X = 0
FJMP WAIT
COPY 0 #POWR