LXI H, 8100
;задание адреса первого элемента (HL:=8100H)
MVI
D
, 40
;задание кол-ва элементов
XRA A
;обнуление аккумулятора
MVI
C
, 00
;обнуление регистра C (счетчик переполнений)
X
1:
ADD
M
;суммирование (A:=A+M(HL))
JNC X2
;перейти на Х2 если нет переполнения
INR
C
;произошло переполнение → прибавить 1 к старшему байту
результата суммирования
X2: INX H
;присвоить HL адрес следующей ячейки (HL:=HL+1)
DCR
D
;уменьшение счётчика кол-ва элементов на 1 (D:=D-1)
JNZ X1
;если элемент не последний - продолжить суммирование
MOV
B
,
A
;пересылка младшего байта результата суммирования в регистр В
Сумма 64х элементов находится в паре BC
MVI
D
, 06
;задание кол-ва сдвигов (6 сдвигов равносильно делению на 64)
CALL
DIV
;вызов подпрограммы деления
После DIV: Среднее значение находится в регистре В
LXI H, 8100
;задание адреса первого элемента (HL:=8100H)
MVI
D
, 40
;задание кол-ва элементов
MOV
A
,
M
;
будем считать первый элемент минимальным (A:=M(HL))
X3:
CMP
M
;сравниваем минимальный элемент с текущим (A-М(HL))
JM
X
4
;при S=1 (A-M(HL)<0 → A<M(HL)) переход на Х4
MOV
A
,
M
;если же S=0 (A-M(HL)≥0 → A≥M(HL)), сделать текущий элемент
наименьшим
X
4: INX H
;присвоить HL адрес следующей ячейки (HL:=HL+1)
DCR
D
;уменьшение счётчика кол-ва элементов на 1 (D:=D-1)
JNZ X3
;если элемент не последний - продолжить
MOV
C
,
A
;пересылка значения AMIN
в регистр C
Минимальное значение находится в регистре С
MOV
A
,
C
;пересылаем минимальное значение в аккумулятор (C→A)
RAR
;циклический сдвиг вправо через перенос (деление на 2)
ORA
A
;обнуление флага переполнения (ТС:=0)
MVI
C
, 00
;обнуление регистра C (счетчик переполнений)
ADD
B
;суммирование: АСР
+ АMIN
/2
JNC
X
5
;перейти на Х5 если нет переполнения
INR
C
;
произошло переполнение → прибавить 1 к старшему байту
результата Y
X
5:
MOV
B
,
A
;пересылаем младший байт из аккумулятора в регистр B
Значение (Аср + Amin/2) находится в паре ВС
MVI
D
, 02
;задание кол-ва сдвигов (2 сдвига равносильно делению на 4)
CALL DIV
;вызов подпрограммы DIV (деление на 4)
После DIV: Y находится в регистре В
MOV
A
,
B
;пересылаем значение Y в регистр аккумулятор (B→A)
STA
8150 ;
пересылаем значение Y (окончательный результат) в ячейку 8150H
RST 1
;выход из программы
DIV
:
MOV
A
,
C
;пересылаем старший байт в аккумулятор (C→A)
RAR
;циклический сдвиг вправо через ТС
MOV
C
,
A
;возврат в C старшего байта
MOV
A
,
B
;пересылаем младший байт в аккумулятор (B→A)
RAR
;циклический сдвиг вправо через ТС
MOV
B
,
A
;возврат в B младшего байта
ORA
A
;обнуление флага переполнения (ТС:=0)
DCR
D
;уменьшение счётчика кол-ва сдвигов на 1 (D:=D-1)
JNZ
DIV
;если сдвиг не последний – продолжить
RET
;выход из подпрограммы DIV
|