@1
MOV UP, ACC
MOV ACC, RIGHT
MOV ACC, DOWN

@2
MOV LEFT, ACC
MOV ACC, DOWN
SAV
LOOP:
MOV LEFT, ACC
SWP
MOV ACC, DOWN
JMP LOOP

@5
MOV UP, RIGHT

@6
START:
MOV UP, ACC
SUB LEFT
JGZ P
NEG
P:
MOV ACC, DOWN

@9
START:
MOV UP, ACC
SUB 10
JLZ Z
MOV 1, DOWN
JMP START
Z:
MOV 0, DOWN
