程序7.txt

里面有很多编程的

 程序7:16位无符号数排序
　
DATA  SEGMENT


  ARRAY DW 67 ,32,2,11,501 


  COUNT EQU $ -ARRAY


  WORK  DW ?


  DATA  ENDS


  CODE  SEGMENT


        ASSUME CS:CODE,DS:DATA


  STR   PROC FAR


        PUSH DS


        SUB AX,AX


        PUSH AX


        MOV AX,DATA


        MOV DS,AX


        MOV BL,0FFH


  ABC:  CMP BL,0


        JE LAST


        XOR BL,BL


        MOV SI,COUNT-2


        MOV AX,SI


        MOV DL, 2


        DIV DL


        MOV AH,0


        MOV CX,AX


  ABD:  MOV AX,ARRAY[SI]


        CMP AX,ARRAY[SI-2]


        JBE DONE


        XCHG ARRAY[SI-2],AX


        MOV ARRAY[SI],AX


        MOV BL,0FFH


  DONE: DEC SI


        DEC SI


        LOOP ABD


        JMP ABC


  LAST: RET


  STR   ENDP


  CODE  ENDS 


        END STR