@1
S: MOV -1, RIGHT
L: MOV UP, ACC
MOV ACC, DOWN
JLZ E
MOV ACC, RIGHT
JMP L
E: MOV DOWN, ACC

@3
S: MOV 999, ACC
L: SAV
SUB RIGHT
MOV ACC, RIGHT
SWP
SUB RIGHT
JLZ E
JMP L
E: SWP
NEG
MOV ACC, RIGHT

@4
L: MOV UP, ACC
MOV ACC, LEFT
JLZ X
MOV LEFT, ACC
JGZ C
MOV 0, LEFT
JMP L
C: MOV ACC, LEFT
JMP L
X: MOV LEFT, ACC
MOV ACC, LEFT
R: MOV LEFT, ACC
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, UP

@5
S: MOV LEFT, ACC
MOV -1, RIGHT
T: MOV UP, ACC
JLZ O
MOV ACC, RIGHT
JMP T
O: MOV LEFT, ACC
ADD 1
L: SAV
ADD RIGHT
JLZ D
MOV ACC, DOWN
SWP
JMP L
D: MOV -1, DOWN

@7
MOV UP, DOWN
