@1
MOV UP ACC
MOV ACC RIGHT
MOV ACC DOWN

@2
S: MOV LEFT ACC
SUB 7
JGZ P
NEG
JNZ N
MOV 1 ACC
N: MOV 0 DOWN
SUB 1
JGZ N
JMP S
P: MOV 3 DOWN
SUB 1
JGZ P

@5
S: MOV UP ACC
SUB 7
JGZ P
NEG
JEZ Z
MOV ACC DOWN
MOV 11 DOWN
JMP S
P: MOV ACC DOWN
NEG
ADD 11
MOV ACC DOWN
JMP S
Z: MOV 1 DOWN
MOV 18 DOWN

@6
MOV UP DOWN

@8
MOV UP ACC
SAV
MOV UP ACC
SWP
L: SWP
MOV ACC RIGHT
ADD 1
SWP
SUB 1
JEZ E
MOV 0 RIGHT
JMP L
E: MOV 1 RIGHT

@9
MOV 77 ACC
A: MOV RIGHT DOWN
MOV RIGHT DOWN
MOV RIGHT DOWN
SUB 1
JGZ A
MOV 0 ACC
B: MOV ACC DOWN
MOV LEFT DOWN
MOV UP DOWN
MOV -1 DOWN
ADD LEFT
JMP B

@10
MOV -7 ACC
S: ADD 18
MOV 0 LEFT
MOV ACC LEFT
SWP
MOV 15 ACC
L: MOV 3 LEFT
MOV 3 LEFT
SUB 1
JGZ L
SWP
MOV -1 LEFT
SUB 17
JLZ S
MOV UP NIL
