@1
S: MOV UP,ACC
SUB 90
SAV
MOV UP,ACC
SUB 1
L: JEZ S
SWP
MOV ACC,DOWN
SWP
SUB 1
JMP L

@5
MOV 90,DOWN
MOV 0,DOWN
T: MOV UP,ACC
MOV ACC,DOWN
JEZ Z
JLZ E
SUB 90
JEZ W
Z: MOV 0,DOWN
JMP T
E: MOV 1,DOWN
JMP T
W: MOV -1,DOWN
JMP T

@8
T: MOV UP,ACC
JEZ N
JLZ Z
SUB 90
JEZ Z
MOV 1,ACC
JMP D
N: MOV -1,ACC
JMP D
Z: MOV 0,ACC
D: MOV ACC,RIGHT
MOV UP,RIGHT

@9
ADD LEFT
SWP
ADD LEFT
MOV ACC,DOWN
SWP
MOV ACC,DOWN
MOV 3,DOWN
MOV -1,DOWN
