Суматор частот

bsf PORTB,7

movf Dig_4, W ; Значение единиц результата для индикации.

call segment ; Преобразование DEC -> семисегментный код.

movwf PORTB ; Вывод цифры на индикатор.

call delay ; Задержка времени для отображения одного разряда

return

; Процедура вычисления значений для индикации

calc ; Преобразование формата: HEX -> DEC.

calc3 movlw 0x03 ; определение тысяч

subwf rg1, W

btfss STATUS, C

goto calc1

btfss STATUS, Z

goto calc2

movlw 0xE8

subwf rg2, W

btfss STATUS, C

goto calc1

calc2

movlw 0xE8

subwf rg1, F

btfss STATUS, C

decf rg2, F

movlw 0x03

subwf rg2, F

incf M, F

goto calc3

calc1

movlw .100 ; определение сотен

subwf rg1, W

btfsc STATUS, C

goto calc22

movf rg2, W

btfsc STATUS, Z

goto calc12

calc22

movlw .100

subwf rg1, F

btfss STATUS, C

decf rg2, F

incf H, F

goto calc1

calc12

movlw .10 ; определение десятков

subwf rg1, W

btfss STATUS, C

goto calc13

movlw .10

subwf rg2, F

incf D, F

goto calc12

calc13

movf rg1, W ; определение единиц

movwf U

movf M, W ; формирование тысяч для инидикации

movwf Dig_1

movf H, W ; формирование сотен для инидикации

movwf Dig_2

movf D, W ; формирование десятков для инидикации

movwf Dig_3

movf U, W ; формирование единиц для инидикации

movwf Dig_4

return

; Процедура деления на 6 и сложения частот

div: movlw 2

clrf ost

movwf rg1

pb1:

swapf rg1,0

andlw 0x0f

swapf ost,1

iorwf ost,1 ; ost - число (делимое) 2 - hex знака

; mn = результат ost = остаток

movlw 0x0f

andwf adr,1

swapf mn,0

andlw 0xf0

iorwf adr,1

pb2:

movf rg2,0

andlw 0x0f

swapf ost,1

iorwf ost,1 ; ost - число (делимое) 2 - hex знака

; mn1 = результат ost = остаток

movlw 0xf0

andwf adr,1

movf mn1,0

iorwf adr,1

decfsz nom,1

goto pb1

movf mn,w ; сложение частот

addwf ADRES,1

return

; Процедура вывода частоты импульсов

out:

bsf PORTB,1 ; Выдача импульса

call delay

bcf PORTB,1

m1 decfsz mn1 ; Декремент mn1

call delay

goto m1 ; Если <>0, то переход на m1

decfsz mn ; Декремент mn

goto m1

return

END

Додаток 5. Текст файла “Error.log”

Warning[215] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 2 : Processor superceded by command line. Verify processor symbol.

Warning[205] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 3 : Found directive in column 1. (title)

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 50 : Argument out of range. Least significant bits used.

Message[302] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 52 : Register in operand not in bank 0. Ensure that bank bits are correct.

Message[302] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 54 : Register in operand not in bank 0. Ensure that bank bits are correct.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 55 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 57 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 75 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 146 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 148 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 152 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 157 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 166 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 169 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 174 : Argument out of range. Least significant bits used.

Warning[202] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 181 : Argument out of range. Least significant bits used.

Message[302] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 228 : Register in operand not in bank 0. Ensure that bank bits are correct.

Message[305] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 240 : Using default destination of 1 (file).

Message[305] C:\Пользователи\Андрей\ХПИ\11 семестр\Курсовой\MY_PROG.ASM 243 : Using default destination of 1 (file).

Додаток 6. Текст файла “My_prog.xrf”

MPASM 03.20 Released MY_PROG.ASM 1-12-2003 19:58:11 PAGE 1

MPASM Cross Reference File

LABEL TYPE FILE NAME SOURCE FILE REFERENCES

ADCON0 C MY_PROG.ASM 10* 56. 85. 86. 87. 88. 90.

ADRES C MY_PROG.ASM 11* 231.

C C MY_PROG.ASM 35* 146. 152. 157. 166. 174. 181.

D C MY_PROG.ASM 23* 185. 195.

Dig_1 C MY_PROG.ASM 13* 59. 112. 192.

Dig_2 C MY_PROG.ASM 14* 60. 119. 194.

Dig_3 C MY_PROG.ASM 15* 61. 126. 196.

Dig_4 C MY_PROG.ASM 16* 62. 135. 198.

H C MY_PROG.ASM 24* 176. 193.

INTCON C MY_PROG.ASM 12* 75. 83.

M C MY_PROG.ASM 25* 161. 191.

PCL C MY_PROG.ASM 27* 44.

PCLATH C MY_PROG.ASM 26* 43.

PORTA C MY_PROG.ASM 8* 48. 68. 77.

PORTB C MY_PROG.ASM 9* 49. 111. 114. 115. 117. 121. 122. 124. 128. 129. 130. 132.

133. 137. 237. 239.

PR0 C MY_PROG.ASM 34* 57.

RP0 C MY_PROG.ASM 28* 50. 55.

STATUS C MY_PROG.ASM 5* 50. 55. 57. 146. 148. 152. 157. 166. 169. 174. 181.

Start A MY_PROG.ASM 39. 47*

TRISA C MY_PROG.ASM 6* 52.

TRISB C MY_PROG.ASM 7* 54.

U C MY_PROG.ASM 22* 189. 197.

Z C MY_PROG.ASM 36* 148. 169.

__16C71 V MY_PROG.ASM 0*

a1 A MY_PROG.ASM 88* 89.

adr C MY_PROG.ASM 30* 214. 217. 225. 227.

calc A MY_PROG.ASM 93. 143*

calc1 A MY_PROG.ASM 147. 153. 163* 177.

calc12 A MY_PROG.ASM 170. 178* 186.

calc13 A MY_PROG.ASM 182. 187*

calc2 A MY_PROG.ASM 149. 154*

calc22 A MY_PROG.ASM 167. 171*

calc3 A MY_PROG.ASM 144* 162.

ctr C MY_PROG.ASM 19* 72.

dctr1 C MY_PROG.ASM 20* 102. 103.

dctr2 C MY_PROG.ASM 21*

del2 A MY_PROG.ASM 103* 104.

Висновок

В даному курсовому проекті проведена розробка пристрою “Суматор частот” з наступними характеристиками:

- частота послідовності імпульсів f1на вході пристрою 0,1 - 3200Гц;

- амплітуда пропорціонального аналогового сигналу f2 на вході пристрою 0 - 8В;

- формула обробки цих сигналів: f вих.= f1/6 + f2;

- частота послідовності імпульсів на виході пристрою 0,1 - 3203Гц;

- похибка вимірювань - не меньш ніж 0,05%

- індикація результатів вимірювань - на семисегментних індикаторах;

- потужність, що споживається від джерел живлення - не більше 1,5 Вт.

В процесі розробки був дан опис принципа дії подібних пристроїв, приведені можливі варіанти рішення поставленої задачі, дано обгрунтування вибору структурної схеми пристрою, виконана розробка функціональної схеми, розраховані основні параметри та характеристики, розроблено програмне забезпечення пристрою.

Розробка має навчальний характер.

Перелік використаної літератури

1. Е.П.Угрюмов "Проектирование элементов и узлов ЭВМ". -М.: Высш. шк., 1987.-318с.

2. Г.Р.Аванесян, В.П.Левшин "Интегральные микросхемы ТТЛ, ТТЛШ". Справочник. - М.: Машиностроение., 1993.

3. С.А.Бирюков "Применение интегральных микросхем серии ТТЛ". - М. 1992.

4. Вычислительные устройства на микросхемах: Справочник / В.И.Корнейчук, В.П.Тарасенко, Ю.Н.Мишинский. - К.:Техніка, 1986. -264с. ил.

5. В.В.Скородєлов. Проектування пристроїв на однокристалевих мікроконтролерах з RISC-архітектурою. В 2 кн. Кн. 1. Особливості проектування МКП та архітектура мікроконтролерів PIC: Навчальний посібник.-Харків: ХДПУ, 1999.-120 с.-Рос.мовою.

6. В.В.Скородєлов. Проектування пристроїв на однокристалевих мікроконтролерах з RISC-архітектурою. В 2 кн. Кн. 2. Розробка та відлагодження програм для ОМК PIC: Навчальний посібник.-Харків: ХДПУ, 1999.-127 с.-Рос.мовою.

7. Современные микроконтроллеры: архитектура, средства проектирования, примеры применения, ресурсы сети Интернет. Под ред.Коршуна И.В.; Составление, перевод с английского и литературная обработка Горбунова Б.Б. - Издательство «Аким», 1998.-227 с. с ил.

8. Сташин В.В. и др. Проектирование цифровых устройств на однокристальных микроконтроллерах. -М.: Энергоатомиздат, 1990.-224 с., ил.

9. Корячко В.П. Микропроцессоры и микроЭВМ в радиоэлектронных средствах. -М.: Высш.шк., 1990.- 407 с., ил.

10. Однокристальные микроконтроллеры Microchip: PIC 16C5X. /Пер. с англ. //Под ред. А.Н.Владимирова. - Рига.: ORMIX, 1996.- 120 с., ил.

11. Однокристальные микроконтроллеры Microchip: PIC 16C84. /Пер. с англ. //Под ред. А.Н.Владимирова. - Рига.: ORMIX, 1997.- 120 с., ил.

12. PIC 16/17 Microcontroller Data Book. Microchip Technolology Inc., 1996 October. - 640 с. ил.

13. Микроконтроллеры. Выпуск 1. Однокристальные микроконтроллеры PIC17C4X, PIC17C5X, M3820. - М.: ДОДЭКА, 1998, 384 с.

14. MPASM USER'S GUIDE with MPLINK and MPLIB. Microchip Technology Inc., 1997. - 155 с.

15. http://www.Microchip.com

Додаток 1. Схема алгоритмуроботи пристрою

ТАК

НІ

Лист

АПЗ37.089164.004ПЗ

Изм Лист № документа Підпис Дата

Додаток 2. Схема алгоритму розрахунку частоти F1.

ні

так

ні

так

ні

так

Лист

АПЗ37.089164.004ПЗ

Изм Лист № документа Підпис Дата

Додаток 3. Схема алгоритму розрахунку частоти F2.

Лист

АПЗ37.089164.004ПЗ

Изм Лист № документа Підпис Дата

Додаток 4. Текст програми на асемблері

;Текст программы

LIST p=16F71

title 'A1'

; Программные регистры:

STATUS equ 03

TRISA equ 85

TRISB equ 86

PORTA equ 05

PORTB equ 06

ADCON0 equ 07 ; Регистр управления АЦП

ADRES equ 09 ; Регистр результата преобразования АЦП

INTCON equ 0B ; Регистр управления прерываниями

Dig_1 equ 20 ; Значение тысяч для индикации.

Dig_2 equ 21 ; Значение сотен для индикации.

Dig_3 equ 22 ; Значение десятков для индикации.

Dig_4 equ 23 ; Значение единиц для индикации.

rg1 equ 10 ; Старший байт значения счетчика.

rg2 equ 11 ; Младший байт значения счетчика.

ctr equ 12 ; Счетчик циклов.

dctr1 equ 13 ; счетчик для задержки

dctr2 equ 14 ; счетчик для задержки

U equ 15 ; Десятичное значение единиц.

D equ 16 ; Десятичное значение десятков.

H equ 17 ; Десятичное значение сотен.

M equ 18 ; Десятичное значение тысяч.

PCLATH equ 24 ; Служебные переменные

PCL equ 25

RP0 equ 26

ost equ 27

adr equ 27

mn equ 28

mn1 equ 29

nom equ 30

PR0 equ 31

C equ 32

Z equ 33

org 0x00 ; Вектор сброса.

goto Start

org 0x10

segment ; Таблица преобразования DEC -> семисегментный код.

CLRF PCLATH

ADDWF PCL, F

dt 03F, 006, 05B, 04F, 066, 06D, 07D, 007, 07F, 06F

Start ; Начальная инициализация.

clrf PORTA ; Обнулить порт А.

clrf PORTB ; Обнулить порт В.

bsf STATUS,RP0 ; Обращение к банку 1.

movlw b'01000000'

movwf TRISA ; RA1 - вход

movlw b'00000000'

movwf TRISB ; RB0 - RB7 выходы

bcf STATUS,RP0 ; Обращение к банку 0.

clrf ADCON0 ; Установка порта А0 как аналогового

bcf STATUS,PR0

loop00 clrf Dig_1 ; очистка индикатора

clrf Dig_2

clrf Dig_3

clrf Dig_4

; Основной цикл программы.

; Ввод дискретных сигналов

loop0 btfsc PORTA, 1 ; ожидание 1 импульса

goto loop0

clrf rg1 ; обнуление счетчика

clrf rg2

movwf ctr

loop1 call delay ; задержка

incf rg1,1 ; инкремент RG1

btfsc INTCON, rg1 ; проверка переполнения

incf rg2,1 ; инкремент RG2

btfsc PORTA, 1 ; ожидание 2 импульса

goto loop1

; ввод аналоговых сигналов

movlw B'11000000' ; Разрешить прерывания от АЦП

movwf INTCON

movlw 0C1H ; Синхронизация АЦП от собств.генератора

movwf ADCON0 ; Разрешить работу АЦП

bcf ADCON0,3 ; Установить входной канал AIN0

bsf ADCON0,2 ; Начать процесс преобразования

a1 btfss ADCON0,2 ; Ждать окончания преобразования

goto a1

bcf ADCON0,1 ; Сброс флага окончания преобразования

call div ; Деление на 6 и сложение частот

call calc ; Вычисление значения для индикации.

call refresh ; Индикация

call out ; Вывод частоты импульсов

goto loop0 ; переход на начало цикла

; Процедура задержки

delay

movlw .06

movwf dctr1

del2 decfsz dctr1, F

goto del2

return

; Процедура индикации.

refresh

movlw 0x0F

movwf PORTB ; погасить все индикаторы

movf Dig_1, W ; Значение тысяч для индикации.

call segment ; Преобразование DEC -> семисегментный код.

movwf PORTB ; Вывод цифры на индикатор.

bcf PORTB,6 ; Активизировать индикатор 1

call delay ; Задержка времени для отображения одного разряда

bsf PORTB,6 ; Отключить индикатор 1

movf Dig_2, W ; Значение сотен для индикации.

call segment ; Преобразование DEC -> семисегментный код.

movwf PORTB ; Вывод цифры на индикатор.

bcf PORTB,7 ; Активизировать индикатор 2

call delay ; Задержка времени для отображения одного разряда

bsf PORTB,7 ; Отключить индикатор 2

movf Dig_3, W ; Значение десятков для индикации.

call segment ; Преобразование DEC -> семисегментный код.

movwf PORTB ; Вывод цифры на индикатор.

bcf PORTB,6 ; Активизировать индикатор 3

bcf PORTB,7

call delay ; Задержка времени для отображения одного разряда

bsf PORTB,6 ; Отключить индикатор 3

bsf PORTB,7

movf Dig_4, W ; Значение единиц результата для индикации.

call segment ; Преобразование DEC -> семисегментный код.

movwf PORTB ; Вывод цифры на индикатор.

call delay ; Задержка времени для отображения одного разряда

return

; Процедура вычисления значений для индикации

calc ; Преобразование формата: HEX -> DEC.

calc3 movlw 0x03 ; определение тысяч

subwf rg1, W

btfss STATUS, C

goto calc1

btfss STATUS, Z

goto calc2

movlw 0xE8

subwf rg2, W

btfss STATUS, C

goto calc1

calc2

movlw 0xE8

subwf rg1, F

btfss STATUS, C

decf rg2, F

movlw 0x03

subwf rg2, F

incf M, F

goto calc3

calc1

movlw .100 ; определение сотен

subwf rg1, W

btfsc STATUS, C

goto calc22

movf rg2, W

btfsc STATUS, Z

goto calc12

calc22

movlw .100

subwf rg1, F

btfss STATUS, C

decf rg2, F

incf H, F

goto calc1

calc12

movlw .10 ; определение десятков

subwf rg1, W

btfss STATUS, C

goto calc13

movlw .10

subwf rg2, F

incf D, F

goto calc12

calc13

movf rg1, W ; определение единиц

movwf U

movf M, W ; формирование тысяч для инидикации

movwf Dig_1

movf H, W ; формирование сотен для инидикации

movwf Dig_2

movf D, W ; формирование десятков для инидикации

movwf Dig_3

movf U, W ; формирование единиц для инидикации

movwf Dig_4

return

; Процедура деления на 6 и сложения частот

div: movlw 2

clrf ost

movwf rg1

pb1:

swapf rg1,0

andlw 0x0f

swapf ost,1

iorwf ost,1 ; ost - число (делимое) 2 - hex знака

; mn = результат ost = остаток

movlw 0x0f

andwf adr,1

swapf mn,0

andlw 0xf0

iorwf adr,1

pb2:

movf rg2,0

andlw 0x0f

swapf ost,1

iorwf ost,1 ; ost - число (делимое) 2 - hex знака

; mn1 = результат ost = остаток

movlw 0xf0

andwf adr,1

movf mn1,0

iorwf adr,1

decfsz nom,1

goto pb1

movf mn,w ; сложение частот

addwf ADRES,1

return

; Процедура вывода частоты импульсов

out:

bsf PORTB,1 ; Выдача импульса

call delay

bcf PORTB,1

m1 decfsz mn1 ; Декремент mn1

call delay

goto m1 ; Если <>0, то переход на m1

decfsz mn ; Декремент mn

goto m1

return

END

delay A MY_PROG.ASM 73. 100* 116. 123. 131. 138. 238. 241.

div A MY_PROG.ASM 92. 203*

loop0 A MY_PROG.ASM 68* 69. 96.

loop00 A MY_PROG.ASM 59*

loop1 A MY_PROG.ASM 73* 78.

m1 A MY_PROG.ASM 240* 242. 244.

mn C MY_PROG.ASM 31* 215. 230. 243.

mn1 C MY_PROG.ASM 32* 226. 240.

nom C MY_PROG.ASM 33* 228.

ost C MY_PROG.ASM 29* 204. 210. 211. 221. 222.

out A MY_PROG.ASM 95. 236*

pb1 A MY_PROG.ASM 207* 229.

pb2 A MY_PROG.ASM 218*

refresh A MY_PROG.ASM 94. 109*

MPASM 03.20 Released MY_PROG.ASM 1-12-2003 19:58:11 PAGE 2

MPASM Cross Reference File

LABEL TYPE FILE NAME SOURCE FILE REFERENCES

rg1 C MY_PROG.ASM 17* 70. 74. 75. 145. 156. 165. 173. 180. 188. 205. 208.

rg2 C MY_PROG.ASM 18* 71. 76. 151. 158. 160. 168. 175. 184. 219.

segment A MY_PROG.ASM 42* 113. 120. 127. 136.

LABEL TYPES

A Address

C Constant

E External

M Macro

S Segment

U Unknown

V Variable

X Other

Размещено на Allbest.ru