@1
MOV UP,DOWN

@5
L: MOV UP,ACC
SWP
MOV ACC,RIGHT
ADD 1
SUB 30
JNZ N
SWP
MOV ACC,RIGHT
JMP L
N: ADD 30
SWP
MOV ACC,RIGHT

@6
L: MOV LEFT,ACC
MOV ACC,DOWN
MOV LEFT,ACC
JEZ T
NEG
ADD 18
E: MOV ACC,DOWN
ADD 1
SUB 18
JEZ T
ADD 18
JMP E
T: MOV -1,DOWN
JMP L

@9
A: MOV UP,ACC
SAV
B: MOV UP,ACC
JLZ A
SWP
MOV ACC,DOWN
SWP
MOV ACC,DOWN
MOV 3,DOWN
MOV -1,DOWN
JMP B
