stac segment stack 'stack'
db 128 dup ('st')
stac ends

dan segment
 mass db 24,41,27,38,64,65,7,21,47,3
 nmass db 10 dup(?)
 A db 8,42 
dan ends

cd segment
assume cs: cd, ds: dan, ss: stac

   start proc far
 push ds
 sub ax,ax
 push ax
 mov ax, dan
 mov ds,ax
 mov ah, 0
       mov cx, 10
       mov bx, offset mass
       mov di, offset nmass
       mov si, offset a

 begin: mov al, [bx]
        cmp al, [si]
        jg cxz
        jl s
cxz:    cmp al, [si+1]
        jl  xz
        jmp s
xz: inc ah
     s:  inc bx
 loop begin
mov [di],ah
ret
start endp
cd ends
end start

mov ah, 4Ch
int 21h

stac segment stack 'stack'
db 128 dup ('st')
stac ends

bufs struc
 lenbuf db 4
 len db 0
 buf_in db 4 dup(?)
ends

dan segment
mass db 24,41,27,38,64,65,7,21,47,3
A db 8
B db 42 
simv bufs <> 

String1 db "Введите 10 чисел [Каждое число через Enter]: $"
String2 db "Введите диапазон [минимум и максимум, через Enter]: $"
String3 db "Внутри диапазона лежит $"
String4 db " чис(ла)(ел)$"
String5 db 13 
	db 10
	db "Неправильный ввод!$"
dan ends

cd segment
assume cs: cd, ds: dan, ss: stac

; =====Процедура чтения проверки и преобразования введенного числа==========
dig:
 lea dx,simv
 mov ah,0Ah;читать строку
 int 21h
 lea si,simv+2 ;отсюда символы начинаются
 xor cx,cx
 mov cl,[si-1];количество символов в строке, которое введено

Check:       ;проверка 0 <= введенного =< 9
 cmp byte ptr [si],30h; ASCII Не меньше 0?
 jl @break           ; меньше
 cmp byte ptr [si],39h;ASCII Не больше 9?
 jg @break            ; больше
 inc si              ;следующий урод [извините -  это из Масяни;) ] 
 loop Check

 lea si,simv+2
 xor ax,ax
 mov [bx],ax

 mov cl,[si-1];сколько у нас символов?
 mov al,[si]   ;получаем из строки символов число
 sub al,30h;из строки в число

 cmp cl,1
 je  @c1
 cmp cl,2
 je  @c2
        
;домножаем на 100
 shl ax,2   ;ax=ax*4
 mov [bx],al 
 shl ax,3   ;ax=ax*8  -  а в ах уже ax*4 т.е. =ax*32
 add [bx],al
 shl ax,1   ;ax=ax*2-  а в ах уже ax*64 т.е. =ax*64 
 add [bx],al;4+32+64=100

 xor ax,ax
 inc si
 mov al,[si]
 sub al,30h;из строки в число

;домножаем на 10
@c2:
 shl ax,1   ;ax=ax*2
 add [bx],al 
 shl ax,2   ;ax=ax*8
 add [bx],al

 xor ax,ax
 mov al,[si+1]
 sub al,30h;из строки в число
;прибавляем остаток
@c1:
 add [bx],al

 mov ah,2 
 mov dl,0Dh
 int 21h
 mov dl,0Ah
 int 21h
retn

; ===========Выход, если не правильгый ввод====================
@break:
mov     ax,0900h               ; Показываем сообщение 1
mov     dx,offset string5
int 21h

mov ax,4c00h
int 21h




; ==========================Начало программы====================


  start proc far
push ds
mov ax, dan
mov ds,ax

; =====================================Ввод чисел====================
mov     ax,0900h               ; Показываем сообщение 1
mov     dx,offset string1
int 21h

mov cx,10    ;10 чисел
mov bx, offset mass
xor ax,ax

vvod:
 push cx  ;сохраняем предыдущее значение
 call dig
 inc bx
 pop cx             ;восстанавливаем предыдущее значение
loop vvod

; =========================Ввод границ диапазона====================
 mov     ax,0900h               ; Показываем сообщение 2
 mov     dx,offset string2
 int 21h
 lea bx,[A]
 call dig
 lea bx,[B]
 call dig
; ===========================Проверка диапазона====================

xor ah, ah
mov cx, 10
mov bx, offset mass

begin: mov al, [bx]
       cmp al, [A]
       jg cxz
       jl s
cxz:    cmp al, [B]
       jl  xz
       jmp s
xz: inc ah
    s:  inc bx
loop begin

mov cl,ah
; ================Вывод результата====================

mov     ax,0900h               ; Показываем сообщение 3
mov     dx,offset string3
int 21h

mov dl,cl
add dl,30h
mov ah,2
int 21h
                                                        
mov     ax,0900h               ; Показываем сообщение 4
mov     dx,offset string4
int 21h

mov ax,4c00h
int 21h

start endp
cd ends
end start