2 не очень сложных задачи Опции

[brut_]

Помогите пожалуйста с двумя задачками:

1) Дан массив из 10 элементов. Вычислить разность между максимальным и
минимальным элементами (используйте адресацию по базе).

2) Дан массив P[0..k]. Определить сколько элементов удовлетворяют
неравенству A<P[i]<B (используйте косвенную регистровую адресацию).
Я ее частчно сделал:

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

осталось самое сложное:
Ввода с клавиатуры исходных данных и вывода на экран исходных и конечных данных.
Очистить экран и вывести результат в рамке красного цвета Поменять цвет рамки через 5 сек.
Помогите, пожалуйста...

[Dark]

Итак, решенная [без наворотов типа рамки] задача

Код

Мне пришлось сделать кое какое преобразование, для вводимых строк =)
так как нам нужны числа [байт!], то

1. Читаем до нажатия Enter в буфер
2. Если счетчик символов в буфере больше трех - неправильный ввод
3. Если какой из символов не от 0 до 9 - неправильный ввод
4. Переводим в число, в байт.

Возможный баг - ввод числа непомещающегося в байт. Эту проверку я писать
не буду =)

1. Читаем до нажатия Enter в буфер
- буфер на 3 символа [Этим решается проблема 2]
- используется функция MSDOS 0A

Формат буфера:
 1й байт - сколько максимум символов читать [с учетом Enter]
 2й байт - сколько  символов введено [Без учета Enter]
 от 3го байта - строка символов не больше 254 байт, с завершающим 0D [Enter]

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

В Data объявляем:

simv bufs <>

В программе считываем символ:

lea dx,simv
mov ah,0Ah
int 21h

Все =)

2. Проблема решена на стадии планирования 1.

3. Если какой из символов не от 0 до 9 - неправильный ввод

lea si,simv+2
xor cx,cx
mov cl,[bx-1]
Check:
cmp byte ptr [si],30h
jl @break
cmp byte ptr [si],39h
jq @break
inc si
loop Check

4. Переводим в число, в байт.
lea si,simv+2
xor cx,cx
mov cl,[si-1]
mov ax,[si]

;домножаем на 100
shl ax,1   ;ax=ax*4
mov [bx],ax
shl ax,4   ;ax=ax*16
add [bx],ax
shl ax,1   ;ax=ax*2
add [bx],ax
inc si
mov ax,[si]
;домножаем на 10
shl ax,1   ;ax=ax*2
add [bx],ax
shl ax,2   ;ax=ax*8
add [bx],ax
mov ax,[si+1]
;прибавляем остаток
add [bx],ax