@0
  MOV 0 RIGHT
T:MOV UP ACC
  JEZ Z
  MOV 5 DOWN
  MOV ACC DOWN
R:MOV UP ACC
  MOV 8 DOWN
  MOV ACC DOWN
  JNZ R
Z:MOV 1 DOWN
  JMP T

@1
T:MOV DOWN ACC
  SAV
  MOV ACC DOWN
  MOV DOWN ACC
  JEZ Z
  JLZ L
G: #XXX BROKEN
Z:SWP
  MOV ACC LEFT
  MOV 0 LEFT
  MOV 1 DOWN
  JMP T
L:SWP
  MOV UP LEFT
  MOV ACC LEFT

@2


@3
T:JRO UP
1:MOV 11 RIGHT
  MOV 0 ACC
  MOV RIGHT NIL
  JMP T
5:MOV 0 DOWN
  MOV UP DOWN
  JMP T
8:MOV 1 RIGHT
  MOV UP RIGHT
  MOV DOWN RIGHT
R:JRO RIGHT

@4
T:JRO LEFT
  MOV LEFT RIGHT#1
  MOV LEFT RIGHT
R:JRO RIGHT
F:MOV UP DOWN
  JRO DOWN
Z:MOV 0 UP
  MOV -11 LEFT
  JMP T
  MOV -1 DOWN #END
  MOV DOWN LEFT
  JMP T
9R:MOV -1 LEFT
  MOV LEFT RIGHT
  JMP R

@5
T:MOV LEFT UP
  MOV LEFT DOWN
  JRO DOWN
1:MOV UP NIL #ZERO
  MOV 0 UP
  MOV UP LEFT
  JMP T
5:MOV UP ACC#NONZ
  SUB DOWN
  MOV DOWN UP
  JLZ L #XXX IF G?
  MOV 9 LEFT
  JMP T
L:MOV -1 UP
  MOV UP LEFT

@6
## SIMPLIFIED V2

@7
T:MOV UP ACC
  JLZ A
  MOV -1 UP
  MOV ACC LEFT
F:MOV UP ACC
  JEZ Z
  MOV -1 UP
  MOV ACC LEFT
  JMP F
A:MOV LEFT ACC
  MOV ACC DOWN
  JNZ A
  MOV NIL UP
  JMP T
Z:MOV 1 UP

@8
T:MOV UP ACC
  JEZ Z
  MOV 5 UP#NONZ
  MOV ACC UP
  MOV ACC UP
  JMP T
Z:MOV 1 UP #ZERO