Ascending Order|SIC XE

.Program to sort ARRAY into ascending order.

SORT    START   0
OUTER   LDX INDEX
    LDS ARR1,X
    LDX #0
INNER   LDT ARR1,X
    COMPR   S,T
    JLT LOOP
    JEQ LOOP
    RMO S,A
    RMO T,S
    RMO A,T
    RMO X,A
    LDX INDEX
    STS ARR1,X
    RMO A,X
    STT ARR1,X
LOOP    RMO X,A
    ADD #3
    COMP    LENGTH
    RMO A,X
    JLT INNER
    LDA     INDEX
    ADD #3
    COMP    LENGTH
    STA INDEX
    JLT OUTER

ARR1    RESW    10
LENGTH  WORD    30
INDEX   WORD    0
    END