; enhanced bubble sort - requires FIRST to point to top of the data to
; sort, and LENGTH to be the number of elements

; 0 elements sorted in 1 cycle!
; 1 element sorted in 6 cycles
; 2 elements sorted in min 8, max 21 cycles
; 3 elements sorted in min 10, max 46 cycles
; 4 elements sorted in min 12, max 81 cycles
; 5 elements sorted in min 14, max 126 cycles
; x elements sorted in min (2x+4), max (5x^2+1) cycles

     org    go
     temp equ (loop-1)

loop slt    @p,                <p
     djn    loop,              l
     jmz    l,                 l

     mov    >p,                temp
     mov    @p,                <p

     mov.a  p,                 l
     sub.ba p,                 l

     add    #1,                p
     mov    temp,              @p

     jmp    loop+1,            <p

l    mov.x  #0,                #LENGTH
p    mov    #FIRST+LENGTH-1,   #FIRST+LENGTH-1
go   jmn    loop+1,            l

;    kill process when sorted

     dat    0,                 0
     end