NEXUS.06.786.0.0.txt

@0


@1
DOS: MOV UP, ACC
MOV ACC, DOWN
SWP
MOV DOWN, ACC
JEZ DOS
SWP
JRO -5

@2
MOV UP, RIGHT

@3
DOS: MOV LEFT, ACC
MOV ACC, DOWN
SWP
MOV DOWN, ACC
JEZ DOS
SWP
JRO -5

@4
B: MOV DOWN, ACC
L: SWP
ADD DOWN
SWP
SUB 1
JNZ L
SWP
SUB UP
JLZ LZ
MOV 0, DOWN
MOV 0, UP
MOV ACC, RIGHT
JMP B
LZ: MOV 1, DOWN
MOV 1, UP

@5
B: ADD LEFT
ADD RIGHT
JEZ E2
SUB 2
JEZ E
NEG
MOV ACC, DOWN
MOV 0, ACC
JMP B
E: MOV 0, ACC
MOV 1, DOWN
JMP B
E2: MOV 0, DOWN

@6
B: MOV DOWN, ACC
L: SWP
ADD DOWN
SWP
SUB 1
JNZ L
SWP
SUB UP
JLZ LZ
MOV 0, DOWN
MOV 0, UP
MOV ACC, LEFT
JMP B
LZ: MOV 1, DOWN
MOV 1, UP

@7


@8
S: MOV 2, ACC
MOV ACC, UP
L: SWP
MOV ACC, UP
SWP
SUB 1
JNZ L
SWP
ADD 1
SWP
MOV UP, ACC
JNZ S
SWP
SUB 1
MOV ACC, RIGHT

@9
ADD LEFT
ADD RIGHT
SUB UP
MOV ACC, DOWN
MOV 0, ACC

@10
S: MOV 2, ACC
MOV ACC, UP
L: SWP
MOV ACC, UP
SWP
SUB 1
JNZ L
SWP
ADD 1
SWP
MOV UP, ACC
JNZ S
SWP
SUB 1
MOV ACC, LEFT