Чередование цифр

        ; #########################################################################
        
.486
.model flat, stdcall
option casemap :none   ; case sensitive
        
        ; #########################################################################
        
        include \masm32\include\windows.inc
        include \masm32\include\user32.inc
        include \masm32\include\kernel32.inc
        
        includelib \masm32\lib\user32.lib
        includelib \masm32\lib\kernel32.lib
        ; #########################################################################
        
.data
 
       
    arr1 dd 3, -5, 7, 21, -3, 9, 0, 11, -14, 2
    arr2 dd ?, ?, ?, ?, ?, ?, ?, ?, ?, ?
    len  EQU         $-arr1        ; опр. раз-р м-ва
        
.code
;решил использовать флаг cf чтобы знать когда должна быть очередь отрицательного или положительного числа.есле cf=0 то число должно быть положительным ,иначе отрицательным.
start:
      mov ebx,offset arr1 
      mov ecx,len-1
      clc
label_1:
      mov eax,[ebx]   ;Заносим число в eax
      jae label_2        ; если флаг cf=0 то на label_2
      jmp label_4       ; иначе переход на label_4
label_2:                      
       js invert_minus ;если число отрицательное то на invert_minus
       stc                 ; cf=1
       jmp label_6 
label_4:
        clc                 ;cf=0
        js label_6 
invert_plus:
        neg eax           ;инверсия eax
        mov[ebx],eax    
        clc                  ;cf=0
        jmp label_6
invert_minus:
      neg eax              ;инверсия eax
      mov [ebx],eax 
      stc                     ;cf=1
      jmp label_6
label_6:
      loop label_1
 end start

.model tiny
.code
org 100h
start:
 mov si,offset arr1
 mov di,offset arr2
 mov cx,len
 xor bx,bx
 a:lodsw     ;загружаем элемент из arr1 в ax
 
   cwd       ;находим модуль ax
   xor ax,dx
   sub ax,dx
   
   xor ax,bx ;меняем знак (если bx= -1)
   sub ax,bx
   
   not bx    ;bx будет содержать то 0, то -1
   
   stosw     ;сохраняем ax в arr2
 loop a  
ret
  arr1 dw 3, -5, 7, 21, -3, 9, 0, 11, -14, 2
  len = ($-arr1)/2
  arr2 dw len dup(?)
end start

.model tiny
.code
org 100h
_start:
 mov si,offset arr1
 mov di,offset arr2
 mov cx,len
 xor bx,bx
 a:lodsw     ;загружаем элемент из arr1 в ax
 
   cwd       ;находим модуль ax
   xor ax,dx
   sub ax,dx
   
   xor ax,bx ;меняем знак (если bx= -1)
   sub ax,bx
   
   not bx    ;bx будет содержать то 0, то -1
   
   stosw     ;сохраняем ax в arr2
   
   mov ah,10h
   int 16h
 
   int 20h 
 
 loop a  
ret
  arr1 dw 3, -5, 7, 21, -3, 9, 0, 11, -14, 2
  len = ($-arr1)/2
  arr2 dw len dup(?)
end _start

.model tiny
.code
.486
org 100h
_start:
 mov si,offset arr1
 mov di,offset arr2
 mov cx,len
 xor bx,bx
 a:lodsw       ;çàãðóæàåì ýëåìåíò èç arr1 â ax
   cwd         ;íàõîäèì ìîäóëü ax
   xor ax,dx
   sub ax,dx
   xor ax,bx   ;ìåíÿåì çíàê (åñëè bx= -1)
   sub ax,bx
   not bx      ;bx áóäåò ñîäåðæàòü òî 0, òî -1
   stosw       ;ñîõðàíÿåì ax â arr2
   call OutInt ;вывод ax íà ýêðàí
 loop a
 
 xor ax,ax
 int 16h  
ret
 
  OutInt:
      pusha
      cwde
      cdq
      xor   ax,dx
      sub   ax,dx
      cwde
      aam 
      and   edx,2D0000h
      add   ax,3030h
      or    eax,edx
      bswap eax
      mov   dword ptr[_str],eax
      mov   ah,9
      mov   dx,offset _str 
      int   21h 
      popa
  ret 
 
  arr1 dw 3, -5, 7, 21, -3, 9, 0, 11, -14, 2
  len = ($-arr1)/2
  arr2 dw len dup(?)
  _str db '    $'
end _start