@1
MOV UP,RIGHT

@2
S: MOV LEFT,ACC
SAV
MOV UP,ACC
L: SWP
MOV ACC,DOWN
SWP
SUB 1
JNZ L
MOV -1,DOWN

@5
S: MOV UP,ACC
JLZ T
SAV
MOV ACC,DOWN
SUB ACC
SWP
L: SWP
ADD DOWN
SWP
SUB 1
JNZ L
D: SWP
MOV ACC,DOWN
JMP S
T: MOV -1,DOWN

@7
S: MOV 1,ACC
SAV
L: MOV UP,ACC
JLZ D
E: SWP
MOV ACC,UP
SWP
SUB 1
JNZ E
V: MOV UP,ACC
SAV
JMP L
D: SWP
MOV ACC,DOWN
