@1
SUB UP
NEG
MOV ACC,RIGHT
SWP
ADD 8
SAV

@2
MOV UP,DOWN
MOV LEFT,RIGHT

@3
MOV LEFT,DOWN

@5
MOV UP,ACC
SUB RIGHT
MOV ACC,DOWN

@6
MOV ACC,LEFT
MOV UP,DOWN
ADD 8

@7
L: MOV UP,ACC
JGZ NM
MOV RIGHT,NIL
ADD RIGHT
MOV ACC,DOWN
JMP L
NM: MOV RIGHT,ACC
JGZ ON
MOV RIGHT,NIL
MOV 0,DOWN
JMP L
ON: ADD RIGHT
MOV ACC,DOWN

@8
MOV UP,LEFT
MOV ACC,LEFT
ADD 8
