@0
S: MOV UP, ACC
JEZ NL
MOV ACC, DOWN
SWP
MOV ACC, DOWN
MOV ACC, DOWN
ADD 3
SAV
SUB 30
JNZ S
NL: MOV 0, DOWN
SAV

@3
S: MOV UP, ACC
MOV ACC, RIGHT
JEZ S
SUB 2
JEZ TW
MOV -1, ACC
TW: ADD 1
MOV UP, RIGHT
ADD UP
MOV ACC, RIGHT

@4
S: MOV LEFT, ACC
JEZ NL
MOV 1, DOWN
MOV LEFT, DOWN
SUB 3
JEZ Z
MOV 3, DOWN
JGZ T
MOV 0, DOWN
JMP E
Z: MOV 0, DOWN
T: MOV 3, DOWN
E: MOV LEFT, DOWN
JMP S
NL: MOV 12, DOWN

@7
JRO UP
MOV UP, DOWN
MOV ACC, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV -1, DOWN
MOV UP, DOWN
ADD 1
MOV ACC, DOWN
MOV 3, DOWN
MOV -1, DOWN
SUB 4
ADD 3
