;  Sort in Descending Order
                ;  By: Mike Gallant
                
                CPU     "6800.TBL"
                HOF     "MOT8"
                ORG     0000H
DATA:           EQU     00FFH
LOCATION:       EQU     0200H
ENDOFDATA:      EQU     0120H

                LDAA    #DATA
                STAA    LOCATION
                LDX     LOCATION
FIRST:          INX
                CPX     #ENDOFDATA
                BEQ     GOOVER
                LDAA    200H
                LDAB    01,X
                CBA
                BPL     FIRST
                STAA    01,X
                TAB
                BRA     FIRST
GOOVER:         LDAA    200H
                INCA
                CMPA    ENDOFDATA
                BEQ     ENDIT
                BRA     FIRST
ENDIT:          WAI
                END