此程序没输出，我弄了半天也弄不对。
情高手帮帮忙，谢谢额




DATAS SEGMENT
BUF DB 0AH,4DH,15H,36H,0F6H,20H,12H
N   =$-BUF
B DB ?
DATAS ENDS
STACKS SEGMENT STACK
      DB 200 DUP (0)
STACKS ENDS
CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:MOV AX,DATAS
      MOV DS,AX
      MOV SI,1
NEXT1:MOV DI,SI
      INC DI
      MOV AL,[BUF+SI-1]
NEXT2:CMP AL,[BUF+DI-1]
      JAE NEXT3
      XCHG [BUF+DI-1],AL
      MOV [BUF+SI-1],AL
NEXT3:INC DI
      CMP DI,N
      JBE NEXT2
      INC SI
      CMP SI,N-1
      JBE NEXT1
       MOV AH,4CH
      INT 21H
CODES ENDS
    END START[em18][em18][em18][em18]