@0
MOV UP, ACC
SAV
MOV 8, ACC
SUB UP
MOV ACC, DOWN
NEG
ADD 8
SWP
MOV ACC, DOWN
JNZ R
MOV UP, DOWN
R:SWP
MOV ACC, DOWN

@3
S:JRO RIGHT
MOV DOWN, UP
MOV DOWN, UP
MOV DOWN, UP
MOV DOWN, UP
MOV DOWN, UP
MOV DOWN, UP
MOV DOWN, UP
MOV DOWN, RIGHT
MOV RIGHT, DOWN
MOV RIGHT, ACC
JEZ S
L:MOV UP, DOWN
SUB 1
JGZ L

@4
MOV UP, LEFT
MOV UP, ACC
JEZ W
MOV LEFT, ACC
MOV ACC, LEFT
MOV UP, LEFT
MOV ACC, DOWN
JMP E
W:MOV LEFT, NIL
MOV UP, LEFT
MOV UP, LEFT
E:

@7
MOV 0, LEFT
MOV 0, LEFT
MOV 0, LEFT
MOV 0, LEFT
MOV 0, LEFT
MOV 0, LEFT
MOV 0, LEFT
MOV 0, LEFT
L:MOV UP, DOWN
JMP L
