Реферат: Асемблер Контрольна - вар1

Название: Асемблер Контрольна - вар1
Раздел: Рефераты по астрономии
Тип: реферат

Задача #1

Найти значение функции M3=(B+E-73H)+M2-(M1+7AH)-D

LDA 8150 ;M1→A

ADI 7A ;A:=A+7AH

MOV C, A ;A→C

LDA 8160 ;M2→A

SUB C ;A:=A-C

SUB в ;A:=A-D

MOV C, A ;A→C

MOV A, B ;B→A

ADD E ;A:=A+E

SUI 73 ;A:=A-73H

ADD C ;A:=A+C

STA 8170 ;A→M3


Задача #2

Написать алгоритм задержки 255 мс ± 0,1%

Поскольку 1 такт занимает 0,5 мкс, то по пропорции:

1 такт - 0,5·10-6 с

Х тактов - 255·10-3 с

тактов.

Учитывая погрешность 0,1%, результат должен составить 510000 ± 510 тактов.

Для такого кол-ва тактов будем использовать не один регистр, а регистровую пару DE.

Код задержки будет таким:

LXI D , Y

CALL DEL

… … …

DEL : DCX D ;5 тактов

MOV A , D ;5 тактов

ORA D ;4 такта

JNZ DEL ;10 тактов, если условие выполняется, и 7 тактов, если не выполняется

RET ;10 тактов

Чтобы найти Yвоспользуемся формулой: 510000 = Y(5( DCX) +5( MOV) +4( ORA) +10( JNZ) ) + 10( RET) .

510000 = 24·Y + 10 → Y = (510000–10) / 24 → Y = 21249,58 ≈ 21250 циклов. 2125010 = 530216 .

В программе использована команда ORAD, которая не влияет на содержимое аккумулятора, но влияет на флаг нулевого результата Z, по которому мы судим об окончании.

Окончательный код задержки будет выглядеть следующим образом:

LXI D , 5302 ;10 тактов

CALL DEL ;17 тактов

… … …

DEL : DCX D ;5 тактов

MOV A , D ;5 тактов

ORA D ;4 такта

JNZ DEL ;10 тактов, если условие выполняется, и 7 тактов, если не выполняется

RET ;10 тактов

В результате общее количество тактов будет: 24(один цикл) ·21250 + 10( RET) – 3( JNZ) + 10( LXI) + 17( CALL) = 510034 тактов.

Погрешность составит: .


Задача #3

Вычислить , где АСР и А MIN – среднее арифметическое и минимальное значение массива однобайтных чисел объёмом в 64 элемента.

Значения АСР и А MIN могут быть в диапазоне: . Следовательно, Y может быть в диапазоне: . Как видно, результат умещается в один регистр (байт).

Общий алгоритм программы выглядит так:

Алгоритм подпрограммы ADT (суммирования и нахождения минимального элемента):

Алгоритм подпрограммы DIV (деления через циклический сдвиг вправо с переносом):

Алгоритм подпрограммы REZ (нахождение значения Y):

<!-- так как среднее значение (АСР ) не превышает один байт, то оно находится не в паре DE, а в регистре D; это значение будет переправлено в регистр Н (пара HL уже не используется), чтобы освободить пару DE -->

Листинг программы расположен ниже:

CALL ADT ;вызов подпрограммы ADT (суммирование и нахождение минимального

элемента)

MVI B , 06 ;задание кол-ва сдвигов (B:=06H – 6 сдвигов равносильно

делению на 64)

CALL DIV ;вызов подпрограммы DIV (нахождение среднего значения)

CALL REZ ;вызов подпрограммы REZ (вычисление результата Y)

STA 80 FF ; пересылаем значение Y (окончательный результат) в ячейку 80FFH

RST 1 ;выход из программы

ADT : LXI H, 8100 ;задание адреса первого элемента (HL:=8100H)

MVI B , 40 ;задание кол-ва элементов (B:=64D=40H)

XRA A ;обнуление аккумулятора

LX I D , 0000 ;обнуление регистров E и в (пары DE) – старшего и младшего

байтов результата суммирования соответственно

MOV C , M ; будем считать первый элемент минимальным (С:=M(HL))

X1: MOV A , M ;переслать в аккумулятор текущий элемент (A:=M(HL))

CMP C ;сравниваем содержимое аккумулятора с текущим наименьшим

значением (A-C)

JP X 2 ;при TS=0 (A-C≥0 → A≥C) переход на Х2

MOV C , A ;если же TS=1 (A-C<0 → A<C), сделать текущий элемент наименьшим

X 2: ADD D ;суммирование (A:=D+A)

MOV D, A ;пересылкаA→D

JNC X3 ;перейти на Х3 если нет переполнения

INR E ;произошло переполнение → прибавить 1 к старшему байту

результата суммирования

X3: INX H ;присвоить HL адрес следующей ячейки (HL:=HL+1)

DCR B ;уменьшение счётчика кол-ва элементов на 1 (B:=B-1)

JNZ X1 ;если элемент не последний - продолжить суммирование

RET ;выход из подпрограммы ADT

DIV : MOV A , E ;пересылаем старший байт в аккумулятор (E→A)

RAR ;циклический сдвиг вправо через ТС

MOV E , A ;возврат в Е старшего байта

MOV A , D ;пересылаем младший байт в аккумулятор (D→A)

RAR ;циклический сдвиг вправо через ТС

MOV D , A ;возврат в в младшего байта

ORA A ;обнуление флага переполнения (ТС:=0)

DCR B ;уменьшение счётчика кол-ва сдвигов на 1 (B:=B-1)

JNZ DIV ;если сдвиг не последний – продолжить

RET ;выход из подпрограммы DIV

REZ : MOV Н, D ;пересылаем среднее значение в регистр Н

LX I D , 0000 ;обнуление регистров E и в (пары DE) - старшего и младшего

байтов результата Y соответственно

MOV A , C ; пересылаем минимальное значение в аккумулятор (C→A)

ADD A ;суммирование (A:=AMIN +AMIN =2AMIN )

JNC X 4 ;перейти на Х4 если нет переполнения

INR E ; произошло переполнение → прибавить 1 к старшему байту

результата Y

X 4: ADD C ; суммирование (A:=2AMIN +AMIN =3AMIN )

JNC X 5 ;перейти на Х5 если нет переполнения

INR E ; произошло переполнение → прибавить 1 к старшему байту

результата Y

X 5: MOV D , A ;пересылаем младший байт из аккумулятора в регистр D

MVI B , 01 ;задание кол-ва сдвигов (B:=01H – 1 сдвиг равносилен

делению на 2)

CALL DIV ;вызов подпрограммы DIV (деление на 2)

MOV A , Н ;пересылаем среднее значение в аккумулятор (Н→A)

ADD D ;суммирование АСР + младший байт (3АMIN /2)

JNC X 6 ;перейти на Х6 если нет переполнения

INR E ; произошло переполнение → прибавить 1 к старшему байту

результата Y

X 6: MOV D , A ;пересылаем младший байт из аккумулятора в регистр D

MVI B , 02 ;задание кол-ва сдвигов (B:=02H – 2 сдвига равносильно

делению на 4)

CALL DIV ;вызов подпрограммы DIV (деление на 4)

MOV A , D ;пересылаем значение Y в регистр аккумулятор (D→A)

RET ;выход из подпрограммы REZ


Задача #4

Вычислить , где АСР , AMAX и А MIN – среднее арифметическое, максимальное и минимальное значение массива однобайтных чисел объёмом в 64 элемента.

Значения АСР , AMAX и А MIN могут быть в диапазоне: . Минимальное значение (Y=00 ) может быть при АСР = AMAX = А MIN = 00. Максимальное значение будет тогда, когда массив будет состоять из 63х элементов, равных FF , и одного элемента, равного 00 ; при этом: AMAX = FF , А MIN = 00 , АСР = FC . В таком случае значение Y составит 1 F41016 , что выходит за пределы пары регистров и умещается в три байта. Значение Y будет располагаться в ячейках памяти 80 FFH , 80 FEH , 80 FDH, причем младший байт – в ячейке 80 FDH , самый старший – в ячейке 80 FFH .

Общий алгоритм программы выглядит так:

В программе используются подпрограммы ADT и DIV, алгоритм которых можно увидеть в задаче #3 . Подпрограмма деления (DIV) идеально подходит и для задачи #4 , а подпрограмму суммирования и нахождения минимального элемента массива (ADT) можно было бы дополнить нахождением и максимального элемента массива, если бы у на был хотя бы ещё один неиспользуемый регистр. Выйти из этой ситуации можно было бы используя ячейки ОЗУ для хранения промежуточных значений AMAX и А MIN . Но, так как AMAX требуется для расчёта лишь множителя, в программе была использована дополнительная подпрограмма нахождения максимального элемента и вычисления множителя (MAX).

Алгоритм подпрограммы REZ1 (вычисления множимого):

Алгоритм подпрограммы MAX (нахождение максимального элемента и вычисление множителя):

Алгоритм подпрограммы MULT (умножения и записи результата (Y ) в ОЗУ):

<!-- Операция умножения реализована посредством многократного суммирования (кол-во циклов суммирования = множитель-1). Поскольку множимое состоит из двух байт (находится в паре DE), то суммирование производится сначала для младших байтов (счётчик переполнения – в регистре H), а потом для старших байтов (счётчик переполнения – в регистре L). Таким образом, первый (младший) байт Y находится в регистре D, второй байт – состоит из суммы старшего байта множимого (E) и счётчика переполнения младшего байта множимого (H), третий (старший) байт – в регистре L -->

Листинг программы приведён ниже:

CALL ADT ;вызов подпрограммы ADT (суммирование и нахождение

минимального элемента)

MVI B , 06 ;задание кол-ва сдвигов (B:=06H – 6 сдвигов равносильно

делению на 64)

CALL DIV ;вызов подпрограммы DIV (нахождение среднего значения)

CALL REZ 1 ;вызов подпрограммы REZ1 (вычисление (4ACP – AMIN /4))

CALL MAX ;вызов подпрограммы MAX (вычисление AMAX /2)

CALL MULT ;вызов подпрограммы MULT (умножение)

RST 1 ;выход из программы

ADT : LXI H, 8100 ;задание адреса первого элемента (HL:=8100H)

MVI B , 40 ;задание кол-ва элементов (B:=64D=40H)

XRA A ;обнуление аккумулятора

LX I D , 0000 ;обнуление регистров E и в (пары DE) – старшего и младшего

байтов результата суммирования соответственно

MOV C , M ; будем считать первый элемент минимальным (С:=M(HL))

X1: MOV A , M ;переслать в аккумулятор текущий элемент (A:=M(HL))

CMP C ;сравниваем содержимое аккумулятора с текущим наименьшим

значением (A-C)

JP X 2 ;при TS=0 (A-C≥0 → A≥C) переход на Х2

MOV C , A ;если же TS=1 (A-C<0 → A<C), сделать текущий элемент

наименьшим

X 2: ADD D ;суммирование (A:=D+A)

MOV D, A ;пересылкаA→D

JNC X3 ;перейти на Х3 если нет переполнения

INR E ;произошло переполнение → прибавить 1 к старшему байту

результата суммирования

X3: INX H ;присвоить HL адрес следующей ячейки (HL:=HL+1)

DCR B ;уменьшение счётчика кол-ва элементов на 1 (B:=B-1)

JNZ X1 ;если элемент не последний - продолжить суммирование

RET ;выход из подпрограммы ADT

DIV : MOV A , E ;пересылаем старший байт в аккумулятор (E→A)

RAR ;циклический сдвиг вправо через ТС

MOV E , A ;возврат в Е старшего байта

MOV A , D ;пересылаем младший байт в аккумулятор (D→A)

RAR ;циклический сдвиг вправо через ТС

MOV D , A ;возврат в в младшего байта

ORA A ;обнуление флага переполнения (ТС:=0)

DCR B ;уменьшение счётчика кол-ва сдвигов на 1 (B:=B-1)

JNZ DIV ;если сдвиг не последний – продолжить

RET ;выход из подпрограммы DIV

REZ 1: MOV Н, D ;пересылаем ACP в регистр Н

MVI E , 00 ; обнуление регистра Е

MOV D , C ; пересылка АMIN в регистр D

MVI B , 02 ;задание кол-ва сдвигов (B:=02H – 2 сдвигa равносильно

делению на 4)

CALL DIV ;вызов подпрограммы DIV (деление на 4)

MOV C , D ;обратная пересылка в регистр С значения АMIN /4

MOV A , H ; отправляем ACP в аккумулятор

MVI E , 00 ; обнуление регистра E

MVI B , 03 ; записываем в регистр В количество циклов суммирования

(03 = 4 - 1)

X 4: ADD H ; к аккумулятору прибавляем по одному значению ACP

JNC X 5 ; если нет переполнения – перейти на Х5

INR E ; если произошло переполнение – увеличить старший байт на 1

X 5: DCR B ; уменьшить кол-во циклов суммирования на 1

JNZ X 4 ; если цикл не последний – повторить суммирование

SUB C ; вычитание: 4АСР – AMIN /4

JP X 6 ; если результат вычитания положителен – перейти на Х6

DCR E ; если результат вычитания отрицателен – вычесть 1 из

старшего байта

X 6: MOV D , A ; переслать младший байт результата (4АСР – AMIN /4) в регистр

D (весь результат находится в паре DE)

RET ;выход из подпрограммы REZ1

MAX : LXI H, 8100 ;задание адреса первого элемента (HL:=8100H)

MVI B , 40 ;задание кол-ва элементов (B:=64D=40H)

MOV A , M ; будем считать первый элемент максимальным (A:=M(HL))

X7: CMP M ;сравниваем максимальный элемент с текущим (A-M(HL))

JP X 8 ;при TS=0 (A-M(HL)≥0 → A≥M(HL)) переход на Х8

MOV A , M ;если же TS=1 (A-M(HL)<0 → A<M(HL)), сделать текущий

элемент максимальным

X8: INX H ;присвоить HL адрес следующей ячейки (HL:=HL+1)

DCR B ;уменьшение счётчика кол-ва элементов на 1 (B:=B-1)

JNZ X7 ;если элемент не последний - продолжить суммирование

RAR ;деление AMAX на 2

ORA A ;обнуление флага переполнения (ТС:=0)

MOV C , A ;пересылка значения AMAX /2 в регистр C

RET ;выход из подпрограммы MAX

MULT : LXI H , 0000 ; обнуление регистров H и L

MOV B , C ;загрузить множитель (AMAX /2) в регистр В

DCR B ;уменьшение на 1 множителя

MOV A , D ;пересылка младшего байта множимого в аккумулятор

X 9: ADD D ;суммируем по одному значению

JNC X 10 ;если нет переполнения – перейти на Х10

INR H ;если было переполнение – увеличить счётчик переполнения

младшего байта на 1

X 10: DCR B ;уменьшить кол-во циклов суммирования на 1

JNZ X 9 ;если цикл не последний – повторить суммирование

STA 80 FD ;отправить первый (самый младший) байт результата (Y) в

ячейку ОЗУ 80FDH

MOV B , C ;загрузить множитель (AMAX /2) в регистр В

DCR B ;уменьшение на 1 множителя

MOV A , E ;пересылка старшего байта множимого в аккумулятор

X 11: ADD E ;суммируем по одному значению

JNC X 12 ;если нет переполнения – перейти на Х12

INR L ;если было переполнение – увеличить счётчик переполнения

старшего байта на 1

X 12: DCR B ;уменьшить кол-во циклов суммирования на 1

JNZ X 11 ;если цикл не последний – повторить суммирование

ADD H ;суммирование старшего байта множимого с счётчиком

переполнения младшего байта множимого

JNC X 13 ;если нет переполнения – перейти на Х13

INR L ;если было переполнение – увеличить счётчик переполнения

старшего байта на 1

X 13: STA 80 FE ;отправить второй байт результата (Y) в ячейку ОЗУ 80FDH

MOV A , L ;переслать третий байт результата (Y) в аккумулятор

STA 80 FF ;отправить третий байт (самый старший) результата (Y) в

ячейку ОЗУ 80FFH

RET ;выход из подпрограммы MULT


Задача #5

Разработать драйвер вывода информации (разрядностью 12 бит) на внешнее устройство с помощью параллельного интерфейса ППИ (К580ВВ55).

Поскольку разрядность данных составляет 12 бит, для их вывода понадобится порт А и порт В. Отправлять сигнал «Запись» и принимать сигнал «Готов» будем портом С. Следовательно, управляющее слово будет таким: 100010002 = 8816 .

1 00 0 1 0 0 0
Режим работы группы А - 0 Направление порта А - вывод Направление порта С(7-4) - ввод Группа В Направление порта В - вывод Направление порта С(3-0) - вывод

Схема обмена данными ППИ с периферийным устройством:

Алгоритм работы драйвера:

DRV : PUSH B ;сохранение с стеке пары ВС

PUSH D ;сохранение с стеке пары DE

PUSH H ;сохранение с стеке пары HL

PUSH PSW ;сохранение с стеке аккумулятора и флагов

MVI A , 10001000

OUT < П ер. У стр.> ;вывод управляющего слова на периферийное устройство

LXI H , 8070 ;загрузка в пару HLадреса младшего байта

(1-8й бит) данных

MOV A , M

OUT PORTA ;вывод младшего байта в порт А

INX H ;перейти на адрес старшего байта (9-12й бит) данных

MOV A , M

OUT PORTB ;вывод старшего байта в порт В

MVI A, 00000001

OUT PORTC ;вывод сигнала «Запись» на порт С(0)

MVI A, 00000000

OUT PORTC ;обнуление значения порта С

X 1: IN PORTC ;приём сигнала портом С

RAL ;перемещение старшего бита пришедшего сигнала

с порта С(7) в ТС

JNC X 1 ;если ТС=0 (сигнал не пришёл) - продолжить ожидание

POP PSW ;восстановление аккумулятора и флагов

POP H ;восстановление пары HL

POP D ;восстановление пары DE

POP B ;восстановление пары BC

RET ;выход из драйвера