Разработка цифрового измерителя температуры на базе микроконтроллера AT90xx

cpi tmode,1

breq outTmin

cpi tmode,2

breq outTmax

ldi temp,0xb

outterm:

ldi ZH,high(DLCD+5)

ldi ZL,low(DLCD+5)

ldi temp2,0xb

sbrs fbinH,0

ldi temp2,0x10

; ldi temp3,0

; sub temp3,temp2

; ror temp3

st Z+,temp2

inc ZL

inc ZL

ldi temp2,5

sbrs fbinL,0

ldi temp2,0

st Z+,temp2

ldi fbinH,0

clc

ror fbinL

rcall bin16BCD5

mov temp3,fbinH

mov temp2,fbinL

swap temp2

andi temp3,0xf

andi temp2,0xf

andi temp,0xf

rcall getcod

mov temp1,temp

set

bst temp1,4

mov temp,temp2

rcall getcod

mov temp2,temp

mov temp,temp3

rcall getcod

mov temp3,temp

ldi ZH,high(DLCD+6)

ldi ZL,low(DLCD+6)

st Z+,temp3

st Z+,temp2

st Z+,temp1

rcall LCDOUT

;*************************************************************************

; программа возвращает  код символа для индикатора

; значение temp заменяется  на значение необходимое для  отображения на

; индикаторе и оно помещается  назад в ячейку temp

getcod:

ldi ZH,high(LCDCG*2)

ldi ZL,low(LCDCG*2);init Z-pointer

add ZL,temp

lpm ;get constant

mov temp,r0

ret

;*************************************************************************

; данные для отображения  на индикаторе

LCDCG: ;тип код

.DB 0xEE ;число 0

.DB 0x60 ;число 1

.DB 0x2F ;число 2

.DB 0x6D ;число 3

.DB 0xE1 ;число 4

.DB 0xCD ;число 5

.DB 0xCF ;число 6

.DB 0x68 ;число 7

.DB 0xEF ;число 8

.DB 0xED ;число 9

.DB 0x10 ;символ. a

.DB 0x01 ;символ - b

.DB 0x87 ;символ t c

.DB 0x46 ;символ u d

.DB 0x67 ;символ d e

.DB 0x07 ;символ c f

.DB 0x00 ;символ blanck 10 пустой  символ

;строка tc-

tcstr:

.DB 0x0c,0x0f,0x0b,0x10

;строка tu-

tustr:

.DB 0x0c,0x0d,0x0b,0x10

;cтрока td-

tdstr:

.DB 0x0c,0x0e,0x0b,0x10

;*************************************************************************

;*

;* PROGRAM RESET - главная программа

;*

;*************************************************************************

RESET:

ldi temp,low(RAMEND)

out SPL,temp ; настройка стека  на верх памяти данных

rcall port_set ; настроить порты

rcall CLRLCD

;*************************************************************************

;*

;* mainloop - главный цикл программы

;*

;*************************************************************************

mainloop:

ldi temp1,250

mov r5,temp1

mainloop1:

rcall KEYPRESS ;определения нажатия кнопки

brne keyis ; переход если хотябы  одна кнопка нажата

rjmp returnin ;возврат к основному цыклу

keyis:

ldi temp1,250

mov r5,temp1

cpi temp,1

rcall key1press

cpi temp,2

rcall key2press

cpi temp,3

rcall key3press

returnin:

ldi temp1,0xaa ; чтениее текущей  температуры термостата

rcall TERMIN

ldi temp2,0xaa ; инициализация  термостата

rcall TERMIN

mov TNORML,temp

mov TNORMH,temp1

rcall calckterm ; расчет температуры

dec r5

brne mainloop1 ; после ожиданжжия  в течении минуты

ldi tmode,0 ; возвратиться в  основной режим

rjmp mainloop

;*************************************************************************

;* обработка клавиши режима

key1press:

and tmode,tmode

brne k1setmax

dec tmode

rjmp keyret

k1setmax:

ldi temp,2

mov tmode,temp

keyret:

rcall calckterm

rjmp KEYUP

;*************************************************************************

;* обработка клавиши изменения значения вверх

key2press:

cpi tmode,1

brne key2min

cpi tmode,2

brne key2max

rjmp keyret

key2min:

sbrs TMINH,0

rjmp key2minm

inc TMINL

brmi key2mins

rjmp keyret

key2mins:

ldi TMINH,0

rjmp keyret

key2minm:

cpi TMINL,0xfa

brmi keyret

inc TMINL

rjmp keyret

key2max:

sbrs TMAXH,0

rjmp key2maxm

inc TMINL

brmi key2maxs

rjmp keyret

key2maxs:

ldi TMAXH,0

rjmp keyret

key2maxm:

cpi TMAXL,0xfa

brmi keyret

inc TMAXL

rjmp keyret

;*************************************************************************

;* обработка клавиши изменения  значения вниз

key3press:

cpi tmode,1

brne key3min

cpi tmode,2

brne key3max

rjmp keyret

key3min:

sbrc TMINH,0

rjmp key3minm

dec TMINL

brmi key3mins

rjmp keyret

key3mins:

ldi TMINH,1

rjmp keyret

key3minm:

cpi TMINL,0x92

brmi keyret

dec TMINL

rjmp keyret

key3max:

sbrc TMAXH,0

rjmp key3maxm

dec TMAXL

brmi key3maxs

rjmp keyret

key3maxs:

ldi TMAXH,1

rjmp keyret

key3maxm:

cpi TMAXL,0x92

brmi keyret

dec TMAXL

rjmp keyret

;*************************************************************************

;1. Текст программы "bin16BCD5"- преобразование 16-битного двоичного

;значения в упакованный BCD формат

;*************************************************************************

;* Количество слов кода:25 + возврат

;* Количество циклов:25/176 (Мин/Макс) + возврат

;* Использованные младшие  регистры:нет

;* Использованные старшие  регистры:4(fbinL,fbinH/tBCD0,tBCD1,tBCD2)

;* Использованные указатели:нет

;*************************************************************************

;***** Регистровые переменные  подпрограммы

.def fbinL =r16;двоичное значение, младший байт

.def fbinH =r17;двоичное значение, старший байт

.def tBCD0 =r17;BCD значение, цифры 1 и 0

.def tBCD1 =r18;BCD значение, цифры 3 и 2

.def tBCD2 =r19;BCD значение, цифра 4

;Примечание: Переменные fbinH и tBCD0 должны размещаться в одном

;регистре.

;***** Код

;*************************************************************************

bin16BCD5:

ldi tBCD2, -1

bin16BCD5_loop_1:

inc tBCD2

subi fbinL, low(10000)

sbci fbinH, high(10000)

brsh bin16BCD5_loop_1

subi fbinL, low(-10000)

sbci fbinH, high(-10000)

ldi tBCD1, -0x11

bin16BCD5_loop_2:

subi tBCD1, -0x10

subi fbinL, low(1000)

sbci fbinH, high(1000)

brsh bin16BCD5_loop_2

subi fbinL, low(-1000)

sbci fbinH, high(-1000)

bin16BCD5_loop_3:

inc tBCD1

subi fbinL, low(100)

sbci fbinH, high(100)

brsh bin16BCD5_loop_3

subi fbinL, -100

ldi tBCD0, -0x10

bin16BCD5_loop_4:

subi tBCD0, -0x10

subi fbinL, 10

brsh bin16BCD5_loop_4

subi fbinL, -10

add tBCD0, fbinL

ret

;*************************************************************************

 

Список литературы

1. Журнал «Схемотехника» №2 (16) февраль 2001 стр. 2-7
2. http://atmel.ru
3. http://telesys.users.ru
4. http://kulakov.ru
5. http://platan.ru
6. http://sensorsmag.com
7. http://ferrite.ru