Код:

Name Program
    min1 = 1000     ; промежуток от 1000 до 2000
    max1 = 2000
    min2 = -5000    ; промежуток от -5000 до 5000
    max2 = 5000
;Описание  переменных
       Data segment
       X1 dw 4B0h
        dw 8520h
        dw 3EDh
        dw 7D1h
        dw 384h
        dw 601h
       Y1 dw 6 Dup(?) 
       X2 dw 8300h
        dw 1F4h
        dw 0F448h
        dw 13ECh
        dw 0EC14h
        dw 0D05h
       Y2 dw 6 dup(?) 
 
      Data ends
      Stack SEGMENT
        DW 16 dup(?)
        StkTOp LABEL  word
      Stack ends
 
      Code SEGMENT
        ASSUME CS: Code, DS: Data, ES: Data, SS: Stack
 
abc macro X, Y, N, min, max ; x - входной массив. у - выходной массив. n - кол-во чисел во входном массиве. min, max - промежуток для выборки
 
local M1, M2
          
    mov cx, N       ; кол-во чисел
    lea si, X             ; адрес массива чисел
    lea di, Y       ; адрес выходного массива
    
M1: mov ax, [si]    ; загружаем первое число
    cmp ax, min ; сравниваем
    JL M2           ; если меньше то идем на М2
    cmp ax, max ; сравниваем
    JG M2       ; если больше идем на M2                       
    mov [di], ax    ; выборка числа
    add di, type Y  ; переходим на другое число
    
M2: add si, type X  ; переходим на следующее число
    dec cx          ; цикл
    JNZ M1
endm
 
; Основная программа
Start:   mov AX, Data
     mov DS, AX
     mov ES, AX
     mov Ax, Stack
     mov SS, AX
     mov SP, offset StkTop
     
     abc X1, Y1, 6, min1, max1
     abc X2, Y2, 6, min2, max2
code ends
end start