筛选法求素数问题请教

                DATA  SEGMENT
    INITIALN  DW        ?
         NUM  DW        10 DUP(?)
        IBUF  DB        10,0,9 DUP(?)
        OBUF  DW        10  DUP(?)
       SQRTN  DW        ?
        INF1  DB        "PLEASE INPUT A NUMBER OF RANGE:",0AH,0DH,'$'
        INF2  DB        "THE SQRT IS:",0AH,0DH,'$'
        INF0  DB        0AH,0DH,'$'
        INF3  DB        20H,20H,'$'
        DATA  ENDS
       EDATA  SEGMENT
       ARRAY  DW        32767 DUP(?)
       EDATA  ENDS
      
        CODE  SEGMENT
              ASSUME    CS:CODE,DS:DATA,ES:EDATA
      START:  MOV       AX,DATA
              MOV       DS,AX
              MOV       AX,EDATA
              MOV       ES,AX
              ;显示字符的宏
     DSTRING  MACRO     STRING
              PUSH      DX
              PUSH      AX
              MOV       DX,OFFSET STRING
              MOV       AH,09H
              INT       21H
              POP       AX
              POP       DX
              ENDM
            
              DSTRING   INF1
              CALL      DTOB
              DSTRING   INF0
              CALL      SQRT
              MOV       SQRTN,BX
              DSTRING   INF2
              MOV       AX,BX
              CALL      BTOAD
              DSTRING   INF0
              MOV       CX,INITIALN
              CALL      CREAT_ARRAY
              CALL      QSS
              LEA       SI,ARRAY
              MOV       CX,INITIALN
    NEXT_SS:  INC       SI
              INC       SI
              MOV       AX,ES:[SI]
              CMP       AX,0
              JE        NEXT_S_     ;不是零就把这个数输出，
              CALL      BTOAD
              ;DSTRING   INF3
              INC       BX
              CMP       BX,12
              JNE       NEXT_S_
              DSTRING   INF0        ;每输出 12 个数换行
              MOV       BX,0
    NEXT_S_:  LOOP      NEXT_SS
              MOV       AH,4CH
              INT       21H

              ;从键盘输入小于一串数字并拼数，能拼成的数最大值是 65535
        DTOB  PROC
              PUSH      BX
              PUSH      CX
              LEA       DX,IBUF
              MOV       AH,0AH
              INT       21H
              MOV       CL,IBUF+1
              MOV       CH,0
              DEC       CX
              MOV       SI,OFFSET IBUF+2
              MOV       AL,[SI]
              XOR       AH,AH
              XOR       AL,30H
              CMP       CX,0
              JE        DONE
              MOV       BX,10
      AGAIN:  MUL       BX
              INC       SI
              MOV       BH,[SI]
              XOR       BH,30H
              ADD       AL,BH
              ADC       AH,0
              XOR       BH,BH
              LOOP      AGAIN
       DONE:  POP       CX
              POP       BX
              RET
        DTOB  ENDP
        ;用牛顿迭代法求平方根 ，只精确到整数位      
     ;入口参数 ax
        ;出口参数 bx         
        SQRT  PROC
              PUSH      AX
              PUSH      CX
              MOV       CX,11
              MOV       INITIALN,AX
              MOV       BX,AX
         ND:  MOV       DX,0
              DIV       BX
              ADD       AX,BX
              SHR       AX,1
              MOV       BX,AX
              MOV       AX,INITIALN
              LOOP      ND
              POP       CX
              POP       AX
              RET
        SQRT  ENDP
              ;按十进制输出
                  ;入口参数 ax
       BTOAD  PROC
              PUSH      AX
              PUSH      BX
              PUSH      CX
              PUSH      DX
              PUSH      SI
              XOR       CX,CX
              XOR       DX,DX
              MOV       BX,10
      DODIV:  DIV       BX
              PUSH      DX
              INC       CX
              XOR       DX,DX
              CMP       AX,0
              JNZ       DODIV
              MOV       BX,CX
     SHOW_R:  POP       AX
              ADD       AL,30H
              MOV       DL,AL
              MOV       AH,02H
              INT       21H
              LOOP      SHOW_R
              MOV       CX,6
              SUB       CX,BX
    SPACE_N:  MOV       DL,20H
              MOV       AH,02H
              INT       21H
              LOOP      SPACE_N
              POP       SI
              POP       DX
              POP       CX
              POP       BX
              POP       AX
              RET
       BTOAD  ENDP
              
;入口参数是 cx，要多大的数组就给cx传多大的值
               ;array是一个数组的存放地址                    
CREAT_ARRAY  PROC
              PUSH      AX
              PUSH      SI
              PUSH      CX
              MOV       AX,1
              LEA       SI,ARRAY
     ARRAY_:  MOV       ES:[SI],AX
              INC       SI
              INC       SI
              INC       AX
              LOOP      ARRAY_
              POP       CX
              POP       SI
              POP       AX
              RET

 CREAT_ARRAY  ENDP
               ;筛选法求素数     
         QSS  PROC
              MOV       CX,SQRTN
              LEA       SI,ARRAY
     SQRT_N:  INC       SI
              INC       SI
              MOV       BX,ES:[SI]
              CMP       BX,0
              JE        SQRT_N_N
              PUSH      CX
              PUSH      SI
              MOV       CX,INITIALN
    DIV_T_0:  INC       SI
              INC       SI
              MOV       AX,ES:[SI]
              CMP       AX,0
              JE        NEXT_N
              MOV       DX,0
              DIV       BX
              CMP       DX,0
              JNE       NEXT_N
              MOV       ES:[SI],WORD PTR 0
     NEXT_N:  LOOP      DIV_T_0
              POP       SI
              POP       CX
   SQRT_N_N:  LOOP      SQRT_N
              RET
         QSS  ENDP
        CODE  ENDS
              END       START