@0
L:MOV UP,ACC
MOV ACC,DOWN
JEZ N
SWP
MOV ACC,DOWN
ADD 1
MOV ACC,DOWN
SUB 1
JMP C
N:SWP
C:JRO DOWN
ADD 3
SAV

@3
L:MOV UP,ACC
JEZ N
MOV ACC,RIGHT
SWP
MOV ACC,RIGHT
MOV UP,RIGHT
MOV UP,RIGHT
ADD 3
SAV
SUB 30
JNZ R
N:SAV
MOV 1,UP
JMP L
R:MOV 2,UP

@4
L:MOV LEFT,ACC
MOV LEFT,DOWN
MOV LEFT,DOWN
SUB 3
JEZ C
MOV 3,DOWN
JGZ D
MOV 0,DOWN
JMP B
C:MOV 0,DOWN
D:MOV 3,DOWN
B:ADD 3
MOV ACC,DOWN
MOV LEFT,DOWN

@7
L:MOV UP,ACC
MOV ACC,DOWN
MOV UP,DOWN
MOV UP,DOWN
MOV UP,DOWN
MOV -1,DOWN
JRO UP
JMP B
ADD 1
JMP B
B:MOV ACC,DOWN
MOV UP,DOWN
MOV 3,DOWN
MOV -1,DOWN
