Найти в массиве первый 0 и заменить все оставшиеся числа 0

Dseg Segment
;  индивидуальные данные - начало
   N dw 10
   A dw -2,3,4,-8,0,1,6,-15,-20,-24
   B dw 10 dup (?)
   TextMA db 'Массив А: ',10,13,'$'
   TextMB db 'Массив В: ',10,13,'$'
   TextSum db 'сумма=$'
;  индивидуальные данные - конец
   Prob db '  $'
   Buffer db 6 dup (?),'$'
   NL db 10,13,'$'
Dseg Ends
 
Stacks segment
   dw 128 dup (?)
Stacks ends
 
Codes segment
  Main proc far
    Assume CS:codes, DS:dseg, SS:stacks
    Mov AX,Dseg
    Mov DS,AX
; индивидуальная часть программы - начало
    LEA DX,TextMA       ;блок 1
    CALL PRT        ;напечатать 'Mассив А:'
    LEA BP,A        ;блок 2
    Mov CX,N        ;загрузить в регистр ВР адрес начала массива А
    CALL PRINTMAS       ;печать массива А
    LEA DX,NL       ;перевод строки
    CALL PRT
    Xor AX,AX           ;блок 2       SUM - регистр AX
    Xor BX,BX           ;блок 3       i - регистр BX
    Xor SI,SI           ;блок 4       j - регистр SI
BL5:
        Mov DI,BX   ;блок 5
        SAL DI,1
        Mov CX,A[DI]
        CMP CX,2
        JG BL6          ;если A[i] >2, то на блок 6
        JMP BL7         ;               иначе на блок 7
    BL6:               
        Add AX,CX
        JMP BL10        ; переход на блок 10
    BL7: 
        Cmp CX,0        ;блок 7  
        JL BL8          ;  если А[i]<0, то на блок 8
        JMP BL10        ;  иначе на блок 10
   BL8:
        NEG CX          ; изменили знак A[i]
        Mov DI,SI
        SAL DI,1
        Mov B[DI],CX    ; B[j]:=-A[i]
        INC SI          ;  блок 9
   BL10:
        INC BX         ;   блок 10
        CMP BX,N        ;  блок 11
        JL BL5          ;если i<N, то на блок 5
        LEA DX,TextMB       ;блок 9
        CALL PRT        ;напечатать 'Mассив В:'
        LEA BP,B
        Mov CX,SI       ;перепишем в СХ SI=j
        CALL PRINTMAS       ;печать массива В
        LEA DX,NL
        CALL PRT            ; перевод строки
        Lea DX,TextSUM      ;  печать текста "сумма="
        CALL PRT
        CALL PRN            ;  печать полученной суммы
; индивидуальная часть программы - конец    
    Mov AH,4CH
    Int 21h
  Main Endp
 ;****************************************************************
  CONVBA PROC
…
  CONVBA endp
;****************************************************************
  PRINTMAS PROC              ; процедура печати массива
; процедура печатает по 8 чисел в строке
; адрес начала массива записан в регистре ВР, количество элементов ;массива – в регистре СХ.
    push AX
    push BX
    push DX
    push SI
 
    Mov BX,0
    Xor DX,DX
PRMAS1:
          Mov SI,BX
           SAL SI,1
           Mov AX,[DS:BP] [SI]
           push BX
           LEA BX,Buffer
           CALL CONVBA
           POP BX
           push DX
           LEA DX,Buffer
           Mov AH,09h
           Int 21h
           LEA DX,PROB
           Int 21h
           POP DX
           Inc DX
           Inc BX
          Cmp BX,CX
          Jge psmas
           CMP DX,8
           JL PRMAS2
Psmas:
           LEA DX,NL
           Mov AH,09h
           Int 21h
           Xor DX,DX
    PRMAS2:
           CMP BX,CX
           JL PRMAS1
           POP SI
           POP DX
           POP BX
           POP AX
           RET
  PRINTMAS endp
;*******************************************************
  PRT PROC  ; процедура печати текста
    …
  PRT ENDP
;******************************************************
  PRN PROC  ; процедура печати числа
   …
  PRN ENDP
;******************************************************
Codes ends
END MAIN

mov   di,offset A
mov   cx,N
xor   ax,ax
repne scasw
rep   stosw