; Пример «Управление индикатором от ЭКР2102» ; ; Частота задающего генератора 1,2 МГц ; подключение файла описания ввода-вывода микросхемы ATtiny13 .include "tn13def.inc" ; начало программы .def temp = r16 .def temp1 = r17 .def temp2 = r18 .def count = r19 .def count1 = r11 ; счетчик прерываний Т0 .def out_dat = r20 ; данные на индик. 1 байт .def crc = r21 .def outByte = r22 .def bit = r23 ; Счетчик битов .def DelayReg = r24 .def DelayReg1 = r25 .def in_dat = r26 .def const = r4 .def tmp_lo = r6 .def tmp_hi = r7 .def hi_0 = r8 ; "00" ст. разряд темп. равен "0" .def md_0 = r9 ; "ff" ср. разряд не нуль .def min = r10 ; "ff" минус, "00" плюс .equ BIT1wire=pb4 .equ DDR1wire=ddrb .equ PIN1wire=pinb .equ ind_d = pb3 ; Выход данных .equ ind_c = pb0 ; Выход синхронизации .equ ind_w1 = pb1 ; Выход выбор 1 м/сх .equ ind_w2 = pb2 ; Выход выбор 2 м/сх .equ time = 25 ; счетчик переполнений (74=1010 миллисек) ;-------------------------------------------------------------------------- .org 0 rjmp RESET ; Reset Handler rjmp EXT_INT0 ; IRQ0 Handler rjmp PC_INT0 ; PCINT0 Handler rjmp TIM0_OVF ; Timer0 Overflow Handler rjmp EE_RDY ; EEPROM Ready Handler rjmp ANA_COMP ; Analog Comparator Handler rjmp TIM0_COMPA ; Timer0 CompareA Handler rjmp TIM0_COMPB ; Timer0 CompareB Handler rjmp WATCHDOG ; Watchdog Interrupt Handler rjmp ADC_Conv ; ADC Conversion Handler ;.org 0x40 reset: ldi temp, low(RAMEND) out spl, temp ldi temp, (1<480 мкс (575 мкс) mov DelayReg1, DelayReg ; буферим rcall usDelay4 cbi DDR1wire, BIT1wire ; Переводим линию в "1" rcall usDelay4 ; Ждём >480 мкс (575 мкс) ret ;----------------------------------------------------------------------------- ; **************************************************************************** do_crc: ; Программа обновления CRC8 ldi temp, 0x0C ldi temp1, 8 CRC8_l2: ror outByte ror CRC brcc CRC8_l3 subi CRC, 0x80 ; Инверсия старшего бита накопителя CRC8 CRC8_l3: brpl CRC8_l4 eor CRC, temp CRC8_l4: dec temp1 brne CRC8_l2 ret ;------------------------------------------------ ; загрузка памяти 0x60-0x67 (служебная прог.) mem_write: push yl clr temp ldi temp1, 6 mem_wr1: st y+, temp dec temp1 brne mem_wr1 pop yl ret ;------------------------------------------------ ; вывод на индикатор 8 байт памяти с адр. yl ind_mem: ; пишем в младшие rcall cs1_0 ldi temp1, 4 ind_mem1: ld in_dat, y+ mov out_dat, in_dat rcall data dec temp1 brne ind_mem1 ldi out_dat, 0x60 ; служебная посылка rcall data rcall cs_1 ; пишем в старшие rcall cs2_0 ldi temp1, 4 ind_mem2: ld in_dat, y+ mov out_dat, in_dat rcall data dec temp1 brne ind_mem2 ldi out_dat, 0x10 ; служебная посылка rcall data rcall cs_1 ret ;----------------------------------------------- ;----------------------------------------------- ; обработка дробной части температуры, надо умножить на 10 и ; поделить на 16 ; вход r6, выход 0x65, используется temp1, temp2 drob: push temp ; выделяем дробную часть andi temp, 0x0f mov temp2, temp ; умножаем на 10 по ф-ле: (temp*8)+temp+temp lsl temp ; x2 lsl temp ; x4 lsl temp ; x8 add temp, temp2 add temp, temp2 ; делим на 16 swap temp andi temp, 0x0f ; выводим в память ldi zh,0 ldi zl,0x66 st -z, temp pop temp ret ;----------------------------------------------- ;***** Subroutine Register Variables ; drem8u = temp1 ;остаток ; dres8u = temp ;результат ; dd8u = temp ;делимое ; dv8u = 0xa ;делитель ; dcnt8u = count ;счетчик ;***** Code div_10: ldi temp2, 0xa sub temp1, temp1 ;clear остаток и перенос ldi count, 9 ;заряжаем счетчик d8u_1: rol temp ;shift left dividend dec count ;decrement counter brne d8u_2 ;if done ret ;return d8u_2: rol temp1 ;shift dividend into remainder sub temp1, temp2 ;remainder = remainder - divisor brcc d8u_3 ;if result negative add temp1, temp2 ;restore remainder clc ;clear carry to be shifted into result rjmp d8u_1 ;else d8u_3: sec ;set carry to be shifted into result rjmp d8u_1 ;----------------------------------------------- ;----------------------------------------------- ; обработка целой части температуры ; вход r7:r6, выход 0x65, используется temp, temp1, temp2 cel: ; определяем +/- mov temp, r6 mov temp1, r7 clr temp2 tst temp1 mov min, temp2 brpl cel_pl ; работаем с минусом com temp com temp1 ldi temp2, 1 add temp, temp2 ; +1 к младшему clr temp2 add temp1, temp2 dec min cel_pl: ; работаем с дробной частью rcall drob ; формируем байт целой части температуры swap temp1 andi temp1, 0xf0 swap temp andi temp, 0x0f add temp, temp1 ; поместили в temp rcall div_10 st -z, temp1 rcall div_10 st -z, temp1 st -z, temp ret ;----------------------------------------------- ;------------------------------------------------ ; Подготовка к выводу на индикатор содержимого памяти 0x60-0x67 mem_ind: ldi yl, 0x60 clr temp1 st y+, temp1 st y+, temp1 tst r10 ; проверяем на "-" brpl plus ; минус st y+, temp1 ld in_dat, y ;проверяем 0x63 tst in_dat ldi temp2, 2 ; "-" brne min62 st y+, temp2 rjmp norma min62: dec yl st y+, temp2 rcall conv st y+, out_dat rjmp norma plus: ;проверяем 0x62 ld in_dat, y tst in_dat brne inf62 ; гасим 0х62 st y+, in_dat ; 0х62 загасили ;проверяем 0x63 ld in_dat, y tst in_dat brne inf63 ; гасим 0х63 st y+, in_dat ; 0х63 загасили rjmp norma nop inf62: rcall conv st y+, out_dat ; 0x62 ld in_dat, y inf63: rcall conv st y+, out_dat ; 0x63 norma: ld in_dat, y rcall conv sbr out_dat, 1 ; добавляем запятую st y+, out_dat ; 0х64 записали ld in_dat, y rcall conv st y+, out_dat ; 0х65 записали ldi temp, 0xc6 st y+, temp ; градус записали ldi temp, 0x9c st y+, temp ; "C" записали ret ;----------------------------------------------- ;.org 0x00fa ; таблица кодировки символов tab1: .db 0xfc, 0x60, 0xda, 0xf2, 0x66, 0xb6, 0xbe, 0xe0 ; 0-7 .db 0xfe, 0xf6, 0xee, 0x3e, 0x9c, 0x7a, 0x9e, 0x8e ; 8-f