Z80 เรียงลำดับน้อย - มาก (ประยุกต์)

ORG      1796H

START:
        LD       B,10
**
        LD       HL,1850H
        LD       DE,1860H
START1:
        LD       A,(HL)
        LD       (DE),A

        DEC      B
        JP       Z,INI
        INC      HL
        INC      DE
        JP       START1


**
INI:
        LD       D,9
START2
        LD       B,10
        LD       HL,1860H
        LD       DE,1870H
START3:
        LD       A,(HL)
        LD       (DE),A

        DEC      B
        JP       Z,INI2
        INC      HL
        INC      DE
        JP       START3

INI2:
        LD       D,9




SORT:
        LD       IX,1860H
        LD       B,9
LOOP:
        LD       A,(IX+0)
        LD       C,(IX+1)

        CP     C
        JP       C,NEXT

        LD       (IX+0),C        ;SWAP
        LD       (IX+1),A
NEXT:
        INC      IX
        DEC      B
        JP       NZ,LOOP
        DEC      D
        JP       NZ,SORT

SORT1:
        LD       IX,1870H
        LD       B,9
LOOP1:
        LD       A,(IX+0)
        LD       C,(IX+1)

        CP       C
        JP       NC,NEXT1

        LD       (IX+0),C        ;SWAP
        LD       (IX+1),A
NEXT1:
        INC      IX
        DEC      B
        JP       NZ,LOOP1
        DEC      D
        JP       NZ,SORT1

END_:
        HALT



        ORG      1850H

        DEFB     2
        DEFB     9
        DEFB     8
        DEFB     7
        DEFB     5
        DEFB     4
        DEFB     3
        DEFB     2
        DEFB     1


        END      START