org    inner

          temp   equ (outer-1)

outer     mov.b  x,              y
          mov.f  q,              p

inner     slt    {p,             <p
y         djn    inner,          #LENGTH-1
          jmz    next,           y

          mov    @p,             temp
p         mov    FIRST+LENGTH,   FIRST+LENGTH-1
          mov    temp,           *p
          djn    inner,          y
x
next      djn    outer,          #LENGTH-1

q         dat    FIRST+LENGTH-p, FIRST+LENGTH-p-1

          dat    0,              0

LENGTH EQU 50

FIRST
          a      for LENGTH
          dat    100-a
          rof

          end