home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG4.2 < prev    next >
Encoding:
Text File  |  1987-12-17  |  671 b   |  21 lines
  1. IGEN:        LEA    TABELL,A0    ; A0 pekar på tabellen
  2.         LEA    1(A0),A1    ; A1=A0+1
  3.         MOVE.W    ANTAL,D7    ; D7=antal tal
  4.         CLR.W    FLAGGA        ; Nollställ flaggan
  5. SORTERA:    CMPM.B    (A0)+,(A1)+    ; Är tal 2 mindre än tal 1?
  6.         BLS.S    EKORREKT    ; I sådana fall hoppa över
  7.         MOVE.B    -1(A0),D0    ; Nähä, då byter vi talen
  8.         MOVE.B    (A0),D1
  9.         MOVE.B    D0,(A0)
  10.         MOVE.B    D1,-1(A0)
  11.         MOVE.W    #$FFFF,FLAGGA    ; Och så sätter vi flaggan
  12. EKORREKT:    SUBQ.W    #1,D7        ; Minska D7 med 1
  13.         BNE.S    SORTERA        ; Är alla tal kollade?
  14.         TST.W    FLAGGA        ; Är talen rätt sorterade?
  15.         BNE.S    IGEN        ; Om inte, sortera igen
  16.         RTS            ; Då var vi färdiga!
  17.  
  18. TABELL:        DC.B    3,2,18,67,43,109,245,18,34,185,0,56,92,171
  19. ANTAL:        DC.W    14-1
  20. FLAGGA:        DC.W    0
  21.