SHARE
TWEET

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

moking51 Dec 16th, 2019 (edited) 97 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ORG      1796H
  2.  
  3. START:
  4.         LD       B,10
  5. **
  6.         LD       HL,1850H
  7.         LD       DE,1860H
  8. START1:
  9.         LD       A,(HL)
  10.         LD       (DE),A
  11.  
  12.         DEC      B
  13.         JP       Z,INI
  14.         INC      HL
  15.         INC      DE
  16.         JP       START1
  17.  
  18.  
  19. **
  20. INI:
  21.         LD       D,9
  22. START2
  23.         LD       B,10
  24.         LD       HL,1860H
  25.         LD       DE,1870H
  26. START3:
  27.         LD       A,(HL)
  28.         LD       (DE),A
  29.  
  30.         DEC      B
  31.         JP       Z,INI2
  32.         INC      HL
  33.         INC      DE
  34.         JP       START3
  35.  
  36. INI2:
  37.         LD       D,9
  38.  
  39.  
  40.  
  41.  
  42. SORT:
  43.         LD       IX,1860H
  44.         LD       B,9
  45. LOOP:
  46.         LD       A,(IX+0)
  47.         LD       C,(IX+1)
  48.  
  49.         CP     C
  50.         JP       C,NEXT
  51.  
  52.         LD       (IX+0),C        ;SWAP
  53.         LD       (IX+1),A
  54. NEXT:
  55.         INC      IX
  56.         DEC      B
  57.         JP       NZ,LOOP
  58.         DEC      D
  59.         JP       NZ,SORT
  60.  
  61. SORT1:
  62.         LD       IX,1870H
  63.         LD       B,9
  64. LOOP1:
  65.         LD       A,(IX+0)
  66.         LD       C,(IX+1)
  67.  
  68.         CP       C
  69.         JP       NC,NEXT1
  70.  
  71.         LD       (IX+0),C        ;SWAP
  72.         LD       (IX+1),A
  73. NEXT1:
  74.         INC      IX
  75.         DEC      B
  76.         JP       NZ,LOOP1
  77.         DEC      D
  78.         JP       NZ,SORT1
  79.  
  80. END_:
  81.         HALT
  82.  
  83.  
  84.  
  85.         ORG      1850H
  86.  
  87.         DEFB     2
  88.         DEFB     9
  89.         DEFB     8
  90.         DEFB     7
  91.         DEFB     5
  92.         DEFB     4
  93.         DEFB     3
  94.         DEFB     2
  95.         DEFB     1
  96.  
  97.  
  98.         END      START
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top