请问各位，下面这道排序程序怎么打印在屏幕上的全是000000000啊？
DATA SEGMENT
  ARRAY DB 1H,6H,3H,8H,4H,9H,7H,2H,5H
  DATA ENDS
  STACK1 SEGMENT PARA STACK
   DW 40 DUP(?)
  STACK1 ENDS
  CODE SEGMENT
  ASSUME CS:CODE,DS:DATA,SS:STACK1
START:  MOV AX,DATA
  MOV DS,AX
  MOV CX,9
  DEC CX
LOOP1:  MOV DI,CX
  MOV BX,0
LOOP2:  MOV AL,ARRAY[BX]
  CMP AL,ARRAY[BX+1]
  JGE CONTINUE
  XCHG AL,ARRAY[BX+1]
  MOV ARRAY[BX],AL
CONTINUE: INC BX
  LOOP LOOP2
  MOV CX,DI
  LOOP LOOP1
  MOV BX,0
  MOV CX,9
PRINT:  MOV DL,ARRAY[BX]
  ADD DL,30H
  MOV AH,2
  INT 21H
  INC BX
  LOOP PRINT
  MOV AH,4CH
  INT 21H
CODE ENDS
 END