СКАЧАТЬ:  konrolnaya-ii-semestr.zip [24,81 Kb] (cкачиваний: 20)

Контрольная работа

по дисциплине «Вычислительные машины, системы и сети»

на тему:

«Скважинный импульсный генератор нейтронов. Режим ГК»

ВАРИАНТ 13 

Условие задачи.

Разработать работающую программу регистрации естественного гама-излучения.

При выполнении работы использовать соответствующий фрагмент из программы для МП-системы «Импульсный генератор нейтронов», в котором разность между соседними отсчетами по каждому из зондов при чтении портов 19Н и 1АН равна 13(0DН).

С помощью разработанной программы получить выходной файл регистрации естественного гама-излучения за 7 проходов

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

LXI H,1810H

M3:   MVI A,01H

         STA 180FH

M2:   MOV A,E

         ADI 0DH

         OUT 19H

         OUT 1AH

         JNC M1

         CMC

M1:   IN 19H

         MOV B,A

         IN 1AH

         MOV C,A

         MOV A,B

         CMP D

         JC M7

         SUB D

M5:   ADD M

         MOV M,A

         MOV D,B

         INR L

         MVI A,00H

         ADC M

         MOV M,A

         INR L

         MOV A,C

         CMP E

         JC M8

         SUB E

M6:   ADD M

         MOV M,A

         MOV E,C

         INR L

         MVI A,00H

         ADC M

         MOV M,A

         INR L

         LDA 180FH

         INR A

         STA 180FH

         CPI 06H

         JNZ M2

         LXI H,1810H

|число Е прибавляем к содержимому аккумулятора

|содержимое аккумулятора пересылаем в порт 19Н и | 1АН

|если флаг переноса не ноль то переходим на М1

|устанавливаем флаг переноса на единицу

|чтение портов 19Н и 1АН и пересылка содержимого

|в регистры В и С соответственно

|

|

|сравниваем число из порта 19Н

|если предыдущее больше по значению,

|то переход к метке М7

|вычитаем предыдущее значение

|содержимое памяти прибавляем к А

|помещаем результат в память

|

|увеличиваем регистр НL на 1

|

|

|

|

|сравниваем число с порта 1АН

|если предыдущее больше,

|то переход по метке М8

|вычитаем предыдущее значение

| содержимое памяти прибавляем к А

|помещаем результат в память

|

|увеличиваем регистр НL на 1

|

|

|

|

|

|

|

|проверяем равен ли счетчик циклов 7

|если нет, то М2

|

         LDA 180Dh

         INR A

         STA 180DH

         CPI 07H

         JNZ M3

         HLT

M7:   MVI A,FFH

         SUB D

         ADD B

         INR A

         JMP M5

M8:   MVI A,FFH

         SUB E

         ADD C

         INR A

         JMP M6

|помещаем содержимое 180DH в А

|увеличиваем содержимое А на 1

|содержимое А

|проверяем равен ли счетчик 10

|если нет то переход, на М3

|

|

|содержимое регистра D вычитается из А, результат

|помещается в А и складывается с регистром В

|содержимое А увеличивается на 1

|переход на М5

|

| содержимое регистра Е вычитается из А, результат

|помещается в А и складывается с регистром С

|содержимое А увеличивается на 1

|переход на М6