Измерительные данные

STACKS SEGMENT STACK     ; начало сегмента стека
ARR DB 128 DUP (?)                   ; под стек отводится 128 байт
STACKS ENDS                                    ; конец сегмента стека
 
SAMPLESIZE EQU 100                      ; константа задает объем выборки
 
DATASG SEGMENT                           ; начало сегмента данных ФКК
DW SAMPLESIZE DUP (?)                 ; массив из 100 элементов ; размерностью слово
 
DATASG ENDS                                   ; коней сегмента данных
 
CODES SEGMENT                              ; начало кодового сегмента 
ASSUME CS: CODESG                       ; сегмент CODEнастроен на сегментный регистр CS
 
ASSUME DS: DATASG                      ; сегмент DATA настроен на сегментный регистр DS
 
ASSUME SS: STACKSG                     ; сегмент STACK настроен на сегментный регистр SS
 
FILLA PROC                                        ; подпрограмма заполнения массива ARR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV BX, 0                                           ; обнулить индекс массива
MOV CX, SAMPLESIZE                     ; переменная цикла
MOV DX, 200h                                     ; поместить адрес порта в DX
INL: IN AX, DX                                    ; получить слово данных из порта по адресу 200h
 
MOV ARR[BX], AX                             ; сохранить слово данных в массиве
ADD BX, 2                                            ; увеличить индекс массива на 2
LOOP INL                                             ; повторить операции
POP DX 
POP CX
POP BX 
POP AX
RET                                                        ; выход из подпрограммы
FILLA ENDP                                         ; конец подпрограммы
 
AVERW PROC                                     ; подпрограмма вычисления среднего выборки
PUSH BX
PUSH CX
XOR AX, AX                                        ; обнуление делимого 
XOR DX, DX                                        ; обнуление остатка
MOV CX, SAMPLE SIZE                    ; переменная цикла
L: ADDAX, [BX]                                  ; сложение элементов
ADD BX, 2                                            ; увеличить индекс элемента
LOOP L                                                 ; повторить для всех элементов
MOV CX, SAMPLESIZE                     ; помещение объема выборки в регистр СХ
DIV CX                                                 ; вычислить среднее значение
POP CX
POP BX
RET                                                    ; выход из подпрограммы
AVERW ENDP                                  ; подпрограмма поиска минимума и максимума
MINMAX PROC                     
 
PUSH BX                                        
PUSH CX                                       
MOV CX, SAMPLESIZE                ; переменная цикла                   
MOV DX, [BX]                                ; поместить в DX значение первого элемента
MOV AX, DX                                  ; вначале минимальный и максимальный, элементы равны
 
ADD BX, 2                                        ; перейти к следующему элементу
PUSH BX                                          ; сохранение адреса второго  элемента с текущим
MINL: CMP [BX], DX                     ; сравнить минимальный элемент с текущим
JAE L1                                              ; текущий элемент больше или равен мин-му?
MOV DX, [BX]                                ; новое минимальное значение помещается в DX
L1: ADD BX, 2                                 ; перейти к следующему элементу
LOOP MINL                                     ; повторить операции
POP BX                                             ; восстановление адреса второго элемента массива
 
MOV CX, SAMPLESIZE                ; переменная цикла
MAXL; CMP [BX], AX                   ; сравнить максимальный элемент с текущим
JBE L2                                              ; текущий элемент меньше или равен макс-му?
MOV AX, [BX]      ; новое макс. значение помещается в АХ 
L: ADD BX, 2    ; перейти к следующему элементу
LOOP MAXL   ; повторить операции
POP CX  
POP BX  
RET                                                     ; выход из подпрограммы
MINMAX ENDP   ; конец подпрограммы
 
S: MOV AX, DATASG                      ; поместить адрес сегмента данных в АХ
MOV DS, AX     ; загрузить сегментный регистр DS
LEA BX, ARR                                    ; поместить смещение массива ARR в BX
CALL FILL                                         ; выполнить процедуру заполнения массива ARR
CALL AVERW                                   ; выполнить процедуру вычисления среднего
PUSH DX  ; сохранить в стеке остаток
MOV DX, 220h     ; поместить адрес порта в DX
OUT DX, AX   ; вывод целого в порт вывода
POP AX   ; переместить в АХ остаток
OUT DX, AX    ;  вывод остатка в порт вывода
CALL MINMAX                                 ; выполнить процедуру поиска мин-ма и макс-ма
PUSH DX    ; сохранить в стеке минимальное значение 
MOV DX, 220h                                   ; вывод максимального значения
OUT DX, AX     ; сохранить в стеке минимальное значение
POP AX     ;  переместить в АХ минимальное значение
OUT DX, AX    ; вывод минимального значения 
CODESG ENDS  ; конец кодового сегмента
 
END S