Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.         cpu     imp-16c/200
  2.  
  3. flag:   word    0               ; if non-zero, swap made during pass
  4. tab:                            ; vector address
  5. .       =       .+1
  6. tabend:                         ; sort limit
  7. .       =       .+1
  8. regs:                           ; register save area
  9. .       =       .+4
  10. ssort:  st      0,regs          ; save registers
  11.         st      1,regs+1
  12.         st      2,regs+2
  13.         st      3,regs+3
  14.         pull    2               ; obtain address of parameter list
  15.         push    2
  16.         li      0,0
  17.         st      0,flag
  18.         ld      3,1(2)          ; end of vector
  19.         aisz    3,-1
  20.         st      3,tabend
  21.         ld      3,(2)           ; vector address
  22.         st      3,tab
  23. loop:   ld      0,(3)           ; get a value
  24.         skg     0,1(3)          ; compare against next value
  25.         jmp     test            ; values in order
  26.         ld      1,1(3)          ; swap value
  27.         st      0,1(3)
  28.         st      1,0(3)
  29.         li      1,1             ; set sort flg non-zero
  30.         st      1,flag
  31. test:   aisz    3,1             ; increment table pointer
  32.         skg     3,tabend        ; finished this pass?
  33.         jmp     loop            ; no
  34.         ld      0,flag          ; yes - did we make a swap?
  35.         aisz    0,0
  36.         jmp     .+2             ; yes - continue sort
  37.         jmp     out             ; no - sort done
  38.         li      0,0             ; initialize for next pass
  39.         st      0,flag
  40.         ld      3,tab
  41.         jmp     loop
  42. out:    ld      0,regs          ; restore registers
  43.         ld      1,regs+1
  44.         ld      2,regs+2
  45.         ld      3,regs+3
  46.         rts     2
  47.  
  48.         end
  49.