Необходимо определить сколько элементов удовлетворяют неравенству - Assembler

Формулировка задачи:

Дан массив P[0..k]. Определить сколько элементов удовлетворяют неравенству А<Р[i]<В. Использовать косвенную регистровую адресацию. (Исходные данные поместить в сегменте данных. Результаты вывести на экран)

Решение задачи: «Необходимо определить сколько элементов удовлетворяют неравенству»

Листинг программы

.model tiny

Объяснение кода листинга программы

Устанавливается модель памяти - .model tiny
Определяется сегмент данных - .segments seg_data, .set v_segm, .set r_segm, .set d_segm
Определяется сегмент кода - .segments seg_code, .set v_segm, .set r_segm, .set code_segm
Задается размер стека - .stack 100h
Задается номер сегмента для работы с рекурсией - .recseg seg_code
Устанавливается признак наличия рекурсии - .recursion
Устанавливается флаг использования сегмента данных - .data_segm_flag
Устанавливается флаг использования сегмента кода - .code_segm_flag
Устанавливается флаг использования стека - .stack_flag
Устанавливается флаг использования рекурсии - .recursion_flag
Задается адрес точки входа в программу - .entry point